summaryrefslogtreecommitdiff
path: root/support/tab4tex/source/compiler.inc
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/tab4tex/source/compiler.inc
Initial commit
Diffstat (limited to 'support/tab4tex/source/compiler.inc')
-rw-r--r--support/tab4tex/source/compiler.inc22
1 files changed, 22 insertions, 0 deletions
diff --git a/support/tab4tex/source/compiler.inc b/support/tab4tex/source/compiler.inc
new file mode 100644
index 0000000000..15e0027b65
--- /dev/null
+++ b/support/tab4tex/source/compiler.inc
@@ -0,0 +1,22 @@
+* Compiler.inc
+* Gregory White <glwhite@netconnect.com.au>
+* Posted to the Snobol list (March 2003)
+* and adapted as a function
+
+
+ DEFINE('COMPILER()') :(COMPILER_END)
+
+compiler
+
+IDprocessor :($('COMPILER' SIZE(DATE())))
+
+COMPILER17 compiler = 'SPITBOL' :(return)
+
+COMPILER19 compiler = 'CSNOBOL4' :(return)
+
+COMPILER20 compiler = 'SNOBOL4+' :(return)
+
+compiler_end
+
+* Uses the different size of DATE() to detect the compiler used
+