* NEWLINE
* Checks OS and compiler type to set newline
* Part of this function uses a function posted by
* Gregory White <[email protected]>
* on the Snobol list in March 2003
* Guido Milanese <[email protected]>

       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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.