|
|
| version 1.1, 2025/01/19 02:04:04 | version 1.4, 2025/04/10 14:37:20 |
|---|---|
| Line 1 | Line 1 |
| %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM | %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM |
| ;0.0;FreeM;****FREEM**;John P Willis @2020 | ;0.0;FreeM;****FREEM**;Serena Willis @2020 |
| ; | ; |
| ; * | ; $Id$ |
| ; * * | |
| ; * * | |
| ; *************** | |
| ; * * * * | |
| ; * MUMPS * | |
| ; * * * * | |
| ; *************** | |
| ; * * | |
| ; * * | |
| ; * | |
| ; | |
| ; %SYSINIT.m | |
| ; FreeM Startup Routine | ; FreeM Startup Routine |
| ; | ; |
| ; | ; |
| ; Author: John P. Willis <jpw@coherent-logic.com> | ; Author: Serena Willis <snw@coherent-logic.com> |
| ; Copyright (C) 1998 MUG Deutschland | ; Copyright (C) 1998 MUG Deutschland |
| ; Copyright (C) 2020, 2022 Coherent Logic Development LLC | ; Copyright (C) 2020, 2022 Coherent Logic Development LLC |
| ; | ; |
| Line 36 | Line 24 |
| ; | ; |
| ; You should have received a copy of the GNU Affero Public License | ; You should have received a copy of the GNU Affero Public License |
| ; along with FreeM. If not, see <https://www.gnu.org/licenses/>. | ; along with FreeM. If not, see <https://www.gnu.org/licenses/>. |
| ; | ; |
| ; $Log$ | |
| ; 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 %DIA=$DIALECT |
| S $DIALECT="FREEM" | S $DIALECT="FREEM" |
| CONST %MATH.PI=3.141592653589793238462 | CONST %MATHPI=3.141592653589793238462 |
| CONST %MATH.E=2.71828182845904523536 | CONST %MATHE=2.71828182845904523536 |
| CONST %MATH.GAMMA=0.57721566490153286060 | CONST %MATHGAMMA=0.57721566490153286060 |
| CONST %MATH.DEGPERRAD=57.29577951308232087680 | CONST %MATHDEGPERRAD=57.29577951308232087680 |
| CONST %MATH.PHI=1.61803398874989484820 | CONST %MATHPHI=1.61803398874989484820 |
| CONST %IO.CRLF=$C(13,10) | CONST %IOCRLF=$C(13,10) |
| CONST %SYS.SIGNAL.HUP=1 | CONST %SYSSIGNALHUP=1 |
| CONST %SYS.SIGNAL.INT=2 | CONST %SYSSIGNALINT=2 |
| CONST %SYS.SIGNAL.KILL=9 | CONST %SYSSIGNALKILL=9 |
| CONST %SYS.SIGNAL.TERM=15 | CONST %SYSSIGNALTERM=15 |
| ASTART "TRIGGER" | ASTART "TRIGGER" |
| S $ZTRAP="NOLS^%SYSINIT" | S $ZTRAP="NOLS^%SYSINIT" |
| D ^LCLINIT | D ^LCLINIT |