diff options
author | Norbert Preining <norbert@preining.info> | 2022-08-31 03:00:47 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-08-31 03:00:47 +0000 |
commit | d1518bf9b322780506b9422250024028e402f0ec (patch) | |
tree | a9ef6284c91fe9a1c5be6d74925c6bd9837aab65 /support/texaccents/systype.inc | |
parent | a77b48e45a7d631d231a8eee66703ce9c02c44c9 (diff) |
CTAN sync 202208310300
Diffstat (limited to 'support/texaccents/systype.inc')
-rw-r--r-- | support/texaccents/systype.inc | 17 |
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. |