Diff for /freem/mlib/%SYSINIT.m between versions 1.1 and 1.8

version 1.1, 2025/01/19 02:04:04 version 1.8, 2025/05/05 04:46:35
Line 1 Line 1
 %SYSINIT ;VCL/JPW-FREEM STARTUP ROUTINE; 10/23/2020 6:55 PM  %SYSINIT ;VCL/SNW-FREEM STARTUP ROUTINE; 5/1/2025 11:00 AM
     ;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.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
       ;   Documentation updates
       ;
       ;   Revision 1.5  2025/05/01 17:02:30  snw
       ;   Further debugging improvements
       ;
       ;   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      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.INT=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
Line 65  COPYRIGHT ; Line 75  COPYRIGHT ;
     S %DIA=$DIALECT      S %DIA=$DIALECT
     S $DIALECT="FREEM"      S $DIALECT="FREEM"
     W "Coherent Logic Development ",$ZVERSION,!      W "Coherent Logic Development ",$ZVERSION,!
     W "Copyright (C) 2014, 2020, 2021 Coherent Logic Development LLC",!,!      W "Copyright (C) 2014, 2025 Coherent Logic Development LLC",!,!
     W "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>",!      W "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>",!
     W "This is free software: you are free to change and redistribute it.",!      W "This is free software: you are free to change and redistribute it.",!
     W "There is NO WARRANTY, to the extent permitted by law.",!,!      W "There is NO WARRANTY, to the extent permitted by law.",!,!

Removed from v.1.1  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>