--- freem/mlib/%SYSINIT.m 2025/03/10 00:38:15 1.3
+++ freem/mlib/%SYSINIT.m 2025/05/05 04:46:35 1.8
@@ -1,7 +1,7 @@
-%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
;
- ; $Id: %SYSINIT.m,v 1.3 2025/03/10 00:38:15 snw Exp $
+ ; $Id: %SYSINIT.m,v 1.8 2025/05/05 04:46:35 snw Exp $
; FreeM Startup Routine
;
;
@@ -26,6 +26,21 @@
; 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
;
@@ -34,16 +49,16 @@
; 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
@@ -60,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.",!,!