summaryrefslogtreecommitdiff
path: root/support/texaccents/newline.inc
diff options
context:
space:
mode:
Diffstat (limited to 'support/texaccents/newline.inc')
-rw-r--r--support/texaccents/newline.inc23
1 files changed, 23 insertions, 0 deletions
diff --git a/support/texaccents/newline.inc b/support/texaccents/newline.inc
new file mode 100644
index 0000000000..8c685791cc
--- /dev/null
+++ b/support/texaccents/newline.inc
@@ -0,0 +1,23 @@
+* NEWLINE
+* Checks OS and compiler type to set newline
+* Part of this function uses code posted by
+* Gregory White <glwhite@netconnect.com.au>
+* on the Snobol list in March 2003
+* Guido Milanese <guido.milanese@unicatt.it>
+#################################################################
+# MIT License - Copyright (c) 2003 Guido Milanese
+# See file LICENSE in this package
+#################################################################
+ 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