diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/tab4tex/source/newline.inc |
Initial commit
Diffstat (limited to 'support/tab4tex/source/newline.inc')
-rw-r--r-- | support/tab4tex/source/newline.inc | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/support/tab4tex/source/newline.inc b/support/tab4tex/source/newline.inc new file mode 100644 index 0000000000..bb47722f64 --- /dev/null +++ b/support/tab4tex/source/newline.inc @@ -0,0 +1,25 @@ +* NEWLINE +* Checks OS and compiler type to set newline +* Part of this function uses a function posted by +* Gregory White <glwhite@netconnect.com.au> +* on the Snobol list in March 2003 +* Guido Milanese <guido.milanese@unicatt.it> + + define('newline()compiler_type') +-include "compiler.inc" +-include "systype.inc" + :(newline_end) + +newline +* Compiler being used. If it is Snobol4+, that does not have +* the HOST() function, assumes that the newline is Dos type + +snobol4 (compiler_type = compiler()) ? "SNOBOL4+" :f(other) + newline = char(13) char(10) :(return) + +* otherwise finds through HOST the OS type and sets newline +* accordingly +other newline = systype() :(return) +newline_end + + |