--- freem/mlib/%SYSINIT.m 2025/05/01 17:02:30 1.5 +++ freem/mlib/%SYSINIT.m 2025/05/02 12:44:48 1.6 @@ -1,7 +1,7 @@ %SYSINIT ;VCL/SNW-FREEM STARTUP ROUTINE; 5/1/2025 11:00 AM ;0.0;FreeM;****FREEM**;Serena Willis @2020 ; - ; $Id: %SYSINIT.m,v 1.5 2025/05/01 17:02:30 snw Exp $ + ; $Id: %SYSINIT.m,v 1.6 2025/05/02 12:44:48 snw Exp $ ; FreeM Startup Routine ; ; @@ -26,6 +26,9 @@ ; along with FreeM. If not, see . ; ; $Log: %SYSINIT.m,v $ + ; 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 ; @@ -40,16 +43,16 @@ ; SPDX-License-Identifier: AGPL-3.0-or-later S %DIA=$DIALECT S $DIALECT="FREEM" - CONST %MATHPI=3.141592653589793238462 - CONST %MATHE=2.71828182845904523536 - CONST %MATHGAMMA=0.57721566490153286060 - CONST %MATHDEGPERRAD=57.29577951308232087680 - CONST %MATHPHI=1.61803398874989484820 - CONST %IOCRLF=$C(13,10) - CONST %SYSSIGNALHUP=1 - CONST %SYSSIGNALINT=2 - CONST %SYSSIGNALKILL=9 - CONST %SYSSIGNALTERM=15 + CONST %MATH("PI")==3.141592653589793238462 + CONST %MATH("E")=2.71828182845904523536 + CONST %MATH("GAMMA")=0.57721566490153286060 + CONST %MATH("DEGPERRAD")=57.29577951308232087680 + CONST %MATH("PHI")=1.61803398874989484820 + CONST %IO("CRLF")=$C(13,10) + CONST %SYS("SIGNAL","HUP")=1 + CONST %SYS("SIGNAL","INIT")=2 + CONST %SYS("SIGNAL","KILL")=9 + CONST %SYS("SIGNAL","TERM")=15 ASTART "TRIGGER" S $ZTRAP="NOLS^%SYSINIT" D ^LCLINIT @@ -66,7 +69,7 @@ COPYRIGHT ; S %DIA=$DIALECT S $DIALECT="FREEM" 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 ",! W "This is free software: you are free to change and redistribute it.",! W "There is NO WARRANTY, to the extent permitted by law.",!,!