* 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