Annotation of freem/mlib/%SYSINIT.m, revision 1.3
1.1 snw 1: %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM
1.2 snw 2: ;0.0;FreeM;****FREEM**;Serena Willis @2020
1.1 snw 3: ;
1.3 ! snw 4: ; $Id$
1.1 snw 5: ; FreeM Startup Routine
6: ;
7: ;
1.3 ! snw 8: ; Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 9: ; Copyright (C) 1998 MUG Deutschland
10: ; Copyright (C) 2020, 2022 Coherent Logic Development LLC
11: ;
12: ;
13: ; This file is part of FreeM.
14: ;
15: ; FreeM is free software: you can redistribute it and/or modify
16: ; it under the terms of the GNU Affero Public License as published by
17: ; the Free Software Foundation, either version 3 of the License, or
18: ; (at your option) any later version.
19: ;
20: ; FreeM is distributed in the hope that it will be useful,
21: ; but WITHOUT ANY WARRANTY; without even the implied warranty of
22: ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23: ; GNU Affero Public License for more details.
24: ;
25: ; You should have received a copy of the GNU Affero Public License
26: ; along with FreeM. If not, see <https://www.gnu.org/licenses/>.
1.3 ! snw 27: ;
! 28: ; $Log$
! 29: ;
! 30: ; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
! 31: ; SPDX-License-Identifier: AGPL-3.0-or-later
1.1 snw 32: S %DIA=$DIALECT
33: S $DIALECT="FREEM"
34: CONST %MATH.PI=3.141592653589793238462
35: CONST %MATH.E=2.71828182845904523536
36: CONST %MATH.GAMMA=0.57721566490153286060
37: CONST %MATH.DEGPERRAD=57.29577951308232087680
38: CONST %MATH.PHI=1.61803398874989484820
39: CONST %IO.CRLF=$C(13,10)
40: CONST %SYS.SIGNAL.HUP=1
41: CONST %SYS.SIGNAL.INT=2
42: CONST %SYS.SIGNAL.KILL=9
43: CONST %SYS.SIGNAL.TERM=15
44: ASTART "TRIGGER"
45: S $ZTRAP="NOLS^%SYSINIT"
46: D ^LCLINIT
47: NOLS ;
48: S $ZTRAP=""
49: S $DIALECT=%DIA
50: K %DIA
51: I $D(%TMPINITROUTINE) D @%TMPINITROUTINE G RTNDONE
52: I $D(%TMPINITMCODE) @%TMPINITMCODE
53: RTNDONE ;
54: Q
55: copyright ;
56: COPYRIGHT ;
57: S %DIA=$DIALECT
58: S $DIALECT="FREEM"
59: W "Coherent Logic Development ",$ZVERSION,!
60: W "Copyright (C) 2014, 2020, 2021 Coherent Logic Development LLC",!,!
61: W "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>",!
62: W "This is free software: you are free to change and redistribute it.",!
63: W "There is NO WARRANTY, to the extent permitted by law.",!,!
64: S $DIALECT=%DIA
65: K %DIA
66: Q
67: limits ;
68: LIMITS ;
69: S %DIA=$DIALECT
70: S $DIALECT="FREEM"
71: N MWAPI S MWAPI="<<DISABLED>>"
72: S:^$SYSTEM("MWAPI") MWAPI=^$DISPLAY($PDISPLAY,"PLATFORM")
73: W !,$ZVERSION," - System Limits",!!
74: W " MAX NAME LENGTH: ",^$SYSTEM("NAME_LENGTH"),!
75: W " MAX NODE LENGTH: ",^$SYSTEM("STRING_MAX"),!
76: W " MWAPI SUPPORT: ",MWAPI,!
77: I MWAPI'="<<DISABLED>>" THEN D
78: . W " DISPLAY: ",$PDISPLAY,!
79: . W " RESOLUTION: ",^$DISPLAY($PDISPLAY,"SIZE"),!
80: . W " COLOR SPECTRUM: ",^$DISPLAY($PDISPLAY,"SPECTRUM"),!
81: . W " COLOR TYPE: ",^$DISPLAY($PDISPLAY,"COLORTYPE"),!
82: . W " SCREEN UNITS: ",^$DISPLAY($PDISPLAY,"UNITS"),!
83: S $DIALECT=%DIA
84: K %DIA
85: Q
86: info ;
87: INFO ;
88: S %DIA=$DIALECT
89: S $DIALECT="FREEM"
90: N NS S NS=^$JOB($JOB,"NAMESPACE")
91: W $ZVERSION," (Namespace ",^$JOB($JOB,"NAMESPACE"),")",!,!
92: W "USER-DEFINED LANGUAGE ELEMENTS:",!
93: W " Intrinsic Z-Commands: ",!
94: W " Intrinsic Z-Functions: ",!
95: W " Intrinsic Special Variables: ",!!
96: W "EVENT MANAGEMENT:",!
97: W " BREAK Service Code: '",!!
98: W "GLOBAL DATABASE:",!
99: W " Global Handler: ","[",NS,"] ",?65,^$JOB($JOB,"ENGINES","GLOBAL",NS),!
100: S NS="SYSTEM"
101: W " -> ","[",NS,"] ",?65,^$JOB($JOB,"ENGINES","GLOBAL",NS),!
102: W " Last Referenced Global: ",$REFERENCE,!
103: W " Characters in Unique Name: ",^$JOB($JOB,"GVN_UNIQUE_CHARS"),!
104: W " Case Sensitivity: ",^$JOB($JOB,"GVN_CASE_SENSITIVE"),!
105: W " Max Length (Global Name + Subscripts): ",^$JOB($JOB,"GVN_NAME_SUB_LENGTH"),!
106: W " Max Length (Each Subscript): ",^$JOB($JOB,"GVN_SUB_LENGTH"),!
107: S $DIALECT=%DIA
108: K %DIA
109: Q
110: jobs ;
111: JOBS ;
112: S %DIA=$DIALECT
113: S $DIALECT="FREEM"
114: W " -== ",$ZVERSION," Job Manager ==-",!,!
115: jmmnu ;%DIALECT FREEM
116: W "PID",?7,"NAMESPACE",?20,"ROUTINE",?41,"$PRINCIPAL",?63,"UID:GID",!
117: W "---",?7,"---------",?20,"-------",?41,"----------",?63,"-------",!
118: S PID=""
119: F S PID=$O(^$JOB(PID)) Q:PID="" D
120: . W PID,?7,^$JOB(PID,"NAMESPACE"),?20,^$JOB(PID,"ROUTINE"),?41,^$JOB(PID,"$PRINCIPAL")
121: . W ?63,^$JOB(PID,"USER"),":",^$JOB(PID,"GROUP")
122: . I PID=$JOB W "*",!
123: . I PID'=$JOB W !
124: W !
125: W "'*' represents the current process.",!
126: W "Type 'quit' at the prompt to quit the Job Manager.",!,!
127: gpid ;
128: W "PID> " R PID W !
129: I PID="quit" S $DIALECT=%DIA K %DIA QUIT
130: I '$D(^$JOB(PID)) W "Invalid PID",! G gpid
131: W "Job PID "_PID_":",!
132: W " Current Namespace: ",^$JOB(PID,"NAMESPACE"),!
133: W " Current Routine: ",^$JOB(PID,"ROUTINE"),!
134: W " Value of $PRINCIPAL: ",^$JOB(PID,"$PRINCIPAL"),!
135: W " Value of $IO: ",^$JOB(PID,"$IO"),!
136: W " Process Owner: ",^$JOB(PID,"USER"),!
137: W " Process Group: ",^$JOB(PID,"GROUP"),!
138: W " Process $TLEVEL: ",^$JOB(PID,"$TLEVEL"),!,!
139: jsel ;
140: W "h)alt PID "_PID_" or c)hoose another? " R ACT#1
141: I (ACT="h")!(ACT="H") K ^$JOB(PID) W !,"Sent SIGTERM to process "_PID_".",! G jmmnu
142: W !,! G jmmnu
143: S $DIALECT=%DIA
144: K %DIA
145: Q
146: TRMSTAT ;
147: trmstat ;
148: S %DIA=$DIALECT
149: S $DIALECT="FREEM"
150: W !,"FreeM Terminal Status",!
151: W "---------------------",!,!
152: W "ECHOON = "_^$DEVICE($P,"ECHOON")_" DELMODE = "_^$DEVICE($P,"DELMODE")_" ESCSEQPROC = "_^$DEVICE($P,"ESCSEQPROC"),!
153: W "CONVUPPER = "_^$DEVICE($P,"CONVUPPER")_" DELEMPTY = "_^$DEVICE($P,"DELEMPTY")_" NOCTRLS = "_^$DEVICE($P,"NOCTRLS"),!
154: W "CTRLOPROC = "_^$DEVICE($P,"CTRLOPROC")_" NOTYPEAHEAD = "_^$DEVICE($P,"NOTYPEAHEAD")_" TERMID = "_^$DEVICE($P,"TERMID"),!,!
155: W "Device Status Word is "_^$DEVICE($P,"DSW"),!,!
156: S $DIALECT=%DIA K %DIA
157: Q
158: GLOBAL ;
159: global ;
160: S %DIA=$DIALECT
161: S $DIALECT="FREEM"
162: N GBLNAM,G
163: W !,"Which global (including ^)? "
164: R GBLNAM W !!
165: I '$D(GBLNAM) W "Invalid global?",! G GLOBAL
166: S G=$E(GBLNAM,2,$L(GBLNAM))
167: W "GLOBAL: ",GBLNAM,!
168: W "NAMESPACE: ",^$GLOBAL(G,"NAMESPACE")
169: I $D(^$SYSTEM("MAPPINGS","GLOBAL",GBLNAM)) W " [mapped]",!
170: E W !
171: W "DATA FILE: ",^$GLOBAL(G,"FILE"),!
172: S $DIALECT=%DIA K %DIA
173: Q
174: rw ;
175: S %DIA=$DIALECT
176: S $DIALECT="FREEM"
177: W !,"---=== PROFESSOR RICHARD WALTERS ===---",!!
178: W "UC Davis professor Richard Walters, the former director of the",!
179: W "FreeM project, died on January 18, 2021 at the age of 90.",!,!
180: W "The FreeM project--and the M community--owes him a great debt",!
181: W "of gratitude.",!,!
182: W "Rest in power, Professor Walters.",!,!
183: W "Sincerely,",!
184: W " - The FreeM Project",!,!
185: S $DIALECT=%DIA K %DIA
186: Q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[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