[BACK]Return to %SYSINIT.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / mlib

Diff for /freem/mlib/%SYSINIT.m between versions 1.3 and 1.7

version 1.3, 2025/03/10 00:38:15 version 1.7, 2025/05/03 04:05:23
Line 1 Line 1
 %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM  %SYSINIT ;VCL/SNW-FREEM STARTUP ROUTINE; 5/1/2025 11:00 AM
     ;0.0;FreeM;****FREEM**;Serena Willis @2020      ;0.0;FreeM;****FREEM**;Serena Willis @2020
     ;      ;
     ;   $Id$      ;   $Id$
Line 26 Line 26
     ;   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.      ;   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
     ;      ;
     ;   $Log$      ;   $Log$
       ;   Revision 1.7  2025/05/03 04:05:23  snw
       ;   Fix %SYSINIT
       ;
       ;   Revision 1.6  2025/05/02 12:44:48  snw
       ;   Documentation updates
       ;
       ;   Revision 1.5  2025/05/01 17:02:30  snw
       ;   Further debugging improvements
       ;
       ;   Revision 1.4  2025/04/10 14:37:20  snw
       ;   Updates to manual
       ;
     ;   Revision 1.3  2025/03/10 00:38:15  snw      ;   Revision 1.3  2025/03/10 00:38:15  snw
     ;   Phase 3 of REUSE compliance and header reformatting      ;   Phase 3 of REUSE compliance and header reformatting
     ;      ;
Line 34 Line 46
     ; SPDX-License-Identifier: AGPL-3.0-or-later          ; SPDX-License-Identifier: AGPL-3.0-or-later    
     S %DIA=$DIALECT      S %DIA=$DIALECT
     S $DIALECT="FREEM"      S $DIALECT="FREEM"
     CONST %MATH.PI=3.141592653589793238462      CONST %MATH("PI")=3.141592653589793238462
     CONST %MATH.E=2.71828182845904523536      CONST %MATH("E")=2.71828182845904523536
     CONST %MATH.GAMMA=0.57721566490153286060      CONST %MATH("GAMMA")=0.57721566490153286060
     CONST %MATH.DEGPERRAD=57.29577951308232087680      CONST %MATH("DEGPERRAD")=57.29577951308232087680
     CONST %MATH.PHI=1.61803398874989484820      CONST %MATH("PHI")=1.61803398874989484820
     CONST %IO.CRLF=$C(13,10)      CONST %IO("CRLF")=$C(13,10)
     CONST %SYS.SIGNAL.HUP=1      CONST %SYS("SIGNAL","HUP")=1
     CONST %SYS.SIGNAL.INT=2      CONST %SYS("SIGNAL","INIT")=2
     CONST %SYS.SIGNAL.KILL=9      CONST %SYS("SIGNAL","KILL")=9
     CONST %SYS.SIGNAL.TERM=15      CONST %SYS("SIGNAL","TERM")=15
     ASTART "TRIGGER"      ASTART "TRIGGER"
     S $ZTRAP="NOLS^%SYSINIT"      S $ZTRAP="NOLS^%SYSINIT"
     D ^LCLINIT      D ^LCLINIT
Line 60  COPYRIGHT ; Line 72  COPYRIGHT ;
     S %DIA=$DIALECT      S %DIA=$DIALECT
     S $DIALECT="FREEM"      S $DIALECT="FREEM"
     W "Coherent Logic Development ",$ZVERSION,!      W "Coherent Logic Development ",$ZVERSION,!
     W "Copyright (C) 2014, 2020, 2021 Coherent Logic Development LLC",!,!      W "Copyright (C) 2014, 2025 Coherent Logic Development LLC",!,!
     W "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>",!      W "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>",!
     W "This is free software: you are free to change and redistribute it.",!      W "This is free software: you are free to change and redistribute it.",!
     W "There is NO WARRANTY, to the extent permitted by law.",!,!      W "There is NO WARRANTY, to the extent permitted by law.",!,!
Removed from v.1.3  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>