* NEWLINE
* Checks OS and compiler type to set newline
* Part of this function uses code posted by
* Gregory White <[email protected]>
* on the Snobol list in March 2003
* Guido Milanese <[email protected]>
#################################################################
# MIT License -  Copyright (c) 2003 Guido Milanese
# See file LICENSE in this package
#################################################################
       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.