freem/mlib/%SYSINIT.m - diff

Return to %SYSINIT.m CVS log

Up to [Coherent Logic Development] / freem / mlib

version 1.7, 2025/05/03 04:05:23	version 1.8, 2025/05/05 04:46:35
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.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	; Revision 1.7 2025/05/03 04:05:23 snw
; Fix %SYSINIT	; Fix %SYSINIT
;	;
Line 46	Line 49
; 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	ZCONST %MATH("PI")=3.141592653589793238462
CONST %MATH("E")=2.71828182845904523536	ZCONST %MATH("E")=2.71828182845904523536
CONST %MATH("GAMMA")=0.57721566490153286060	ZCONST %MATH("GAMMA")=0.57721566490153286060
CONST %MATH("DEGPERRAD")=57.29577951308232087680	ZCONST %MATH("DEGPERRAD")=57.29577951308232087680
CONST %MATH("PHI")=1.61803398874989484820	ZCONST %MATH("PHI")=1.61803398874989484820
CONST %IO("CRLF")=$C(13,10)	ZCONST %IO("CRLF")=$C(13,10)
CONST %SYS("SIGNAL","HUP")=1	ZCONST %SYS("SIGNAL","HUP")=1
CONST %SYS("SIGNAL","INIT")=2	ZCONST %SYS("SIGNAL","INIT")=2
CONST %SYS("SIGNAL","KILL")=9	ZCONST %SYS("SIGNAL","KILL")=9
CONST %SYS("SIGNAL","TERM")=15	ZCONST %SYS("SIGNAL","TERM")=15
ASTART "TRIGGER"	ASTART "TRIGGER"
S $ZTRAP="NOLS^%SYSINIT"	S $ZTRAP="NOLS^%SYSINIT"
D ^LCLINIT	D ^LCLINIT