Annotation of freem/mlib/%SYSINIT.m, revision 1.1
1.1 ! snw 1: %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM
! 2: ;0.0;FreeM;****FREEM**;John P Willis @2020
! 3: ;
! 4: ; *
! 5: ; * *
! 6: ; * *
! 7: ; ***************
! 8: ; * * * *
! 9: ; * MUMPS *
! 10: ; * * * *
! 11: ; ***************
! 12: ; * *
! 13: ; * *
! 14: ; *
! 15: ;
! 16: ; %SYSINIT.m
! 17: ; FreeM Startup Routine
! 18: ;
! 19: ;
! 20: ; Author: John P. Willis <jpw@coherent-logic.com>
! 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