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