summaryrefslogtreecommitdiff
path: root/support/texaccents/systype.inc
diff options
context:
space:
mode:
Diffstat (limited to 'support/texaccents/systype.inc')
-rw-r--r--support/texaccents/systype.inc17
1 files changed, 17 insertions, 0 deletions
diff --git a/support/texaccents/systype.inc b/support/texaccents/systype.inc
new file mode 100644
index 0000000000..4932f82c58
--- /dev/null
+++ b/support/texaccents/systype.inc
@@ -0,0 +1,17 @@
+* SYSTYPE
+* Sets new_line value according to OS
+* Guido Milanese <guido.milanese@unicatt.it>
+* March 2003
+#################################################################
+# MIT License - Copyright (c) 2003 Guido Milanese
+# See file LICENSE in this package
+#################################################################
+ DEFINE('SYSTYPE()os') :(SYSTYPE_END)
+SYSTYPE os = replace(host(),&UCASE,&LCASE)
+UNIX os ? ('nix' | 'nux') :f(DOS)
+ systype = char(10) :(return)
+DOS systype = char(13) char(10) :s(return)
+ :(freturn)
+SYSTYPE_END
+* 'os' is the string returned by host().
+* The function does not work under snobol4+, requires Spitbol or CSnobol4.