blob: 2a4d7f81caac0a463a804db38b1c4aa114d7a80c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
* SYSTYPE
* Sets new_line value according to OS
* Guido Milanese <guido.milanese@unicatt.it>
* March 2003
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.
|