|
version 1.6, 2025/05/02 12:44:48
|
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 |
| |
; Fix %SYSINIT |
| |
; |
| ; Revision 1.6 2025/05/02 12:44:48 snw |
; Revision 1.6 2025/05/02 12:44:48 snw |
| ; Documentation updates |
; Documentation updates |
| ; |
; |
|
Line 43
|
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 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to %SYSINIT.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / mlib