summaryrefslogtreecommitdiff
path: root/support/tab4tex/source/newline.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/newline.inc
Initial commit
Diffstat (limited to 'support/tab4tex/source/newline.inc')
-rw-r--r--support/tab4tex/source/newline.inc25
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
+
+