summaryrefslogtreecommitdiff
path: root/support/tab4tex/source/systype.inc
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.