--- freem/mlib/%SYSINIT.m 2025/01/19 02:04:04 1.1.1.1 +++ freem/mlib/%SYSINIT.m 2025/05/05 04:46:35 1.8 @@ -1,23 +1,11 @@ -%SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM - ;0.0;FreeM;****FREEM**;John P Willis @2020 +%SYSINIT ;VCL/SNW-FREEM STARTUP ROUTINE; 5/1/2025 11:00 AM + ;0.0;FreeM;****FREEM**;Serena Willis @2020 ; - ; * - ; * * - ; * * - ; *************** - ; * * * * - ; * MUMPS * - ; * * * * - ; *************** - ; * * - ; * * - ; * - ; - ; %SYSINIT.m + ; $Id: %SYSINIT.m,v 1.8 2025/05/05 04:46:35 snw Exp $ ; FreeM Startup Routine ; ; - ; Author: John P. Willis + ; Author: Serena Willis ; Copyright (C) 1998 MUG Deutschland ; Copyright (C) 2020, 2022 Coherent Logic Development LLC ; @@ -36,19 +24,41 @@ ; ; You should have received a copy of the GNU Affero Public License ; along with FreeM. If not, see . - ; + ; + ; $Log: %SYSINIT.m,v $ + ; Revision 1.8 2025/05/05 04:46:35 snw + ; Documentation fixes; make FreeM more standards compliant + ; + ; 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 + ; Phase 3 of REUSE compliance and header reformatting + ; + ; + ; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC + ; SPDX-License-Identifier: AGPL-3.0-or-later S %DIA=$DIALECT S $DIALECT="FREEM" - 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.INT=2 - CONST %SYS.SIGNAL.KILL=9 - CONST %SYS.SIGNAL.TERM=15 + ZCONST %MATH("PI")=3.141592653589793238462 + ZCONST %MATH("E")=2.71828182845904523536 + ZCONST %MATH("GAMMA")=0.57721566490153286060 + ZCONST %MATH("DEGPERRAD")=57.29577951308232087680 + ZCONST %MATH("PHI")=1.61803398874989484820 + ZCONST %IO("CRLF")=$C(13,10) + ZCONST %SYS("SIGNAL","HUP")=1 + ZCONST %SYS("SIGNAL","INIT")=2 + ZCONST %SYS("SIGNAL","KILL")=9 + ZCONST %SYS("SIGNAL","TERM")=15 ASTART "TRIGGER" S $ZTRAP="NOLS^%SYSINIT" D ^LCLINIT @@ -65,7 +75,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.",!,!