From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- support/tab4tex/source/compiler.inc | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 support/tab4tex/source/compiler.inc (limited to 'support/tab4tex/source/compiler.inc') 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 +* 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 + -- cgit v1.2.3