[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.4 and 1.7

version 1.4, 2025/04/10 14:37:20 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      ;   Revision 1.4  2025/04/10 14:37:20  snw
     ;   Updates to manual      ;   Updates to manual
     ;      ;
Line 37 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 %MATHPI=3.141592653589793238462      CONST %MATH("PI")=3.141592653589793238462
     CONST %MATHE=2.71828182845904523536      CONST %MATH("E")=2.71828182845904523536
     CONST %MATHGAMMA=0.57721566490153286060      CONST %MATH("GAMMA")=0.57721566490153286060
     CONST %MATHDEGPERRAD=57.29577951308232087680      CONST %MATH("DEGPERRAD")=57.29577951308232087680
     CONST %MATHPHI=1.61803398874989484820      CONST %MATH("PHI")=1.61803398874989484820
     CONST %IOCRLF=$C(13,10)      CONST %IO("CRLF")=$C(13,10)
     CONST %SYSSIGNALHUP=1      CONST %SYS("SIGNAL","HUP")=1
     CONST %SYSSIGNALINT=2      CONST %SYS("SIGNAL","INIT")=2
     CONST %SYSSIGNALKILL=9      CONST %SYS("SIGNAL","KILL")=9
     CONST %SYSSIGNALTERM=15      CONST %SYS("SIGNAL","TERM")=15
     ASTART "TRIGGER"      ASTART "TRIGGER"
     S $ZTRAP="NOLS^%SYSINIT"      S $ZTRAP="NOLS^%SYSINIT"
     D ^LCLINIT      D ^LCLINIT
Line 63  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.4  
changed lines
  Added in v.1.7

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