blob: 15e0027b65cc35b369e71167961e5086c2368197 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
|
