128 lines
2.9 KiB
Mathematica
128 lines
2.9 KiB
Mathematica
EEONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 26, 1995@09:33:28
|
|
;;2.0;EEO Complaint Tracking;;Apr 27, 1995
|
|
;;7.2;APR 26, 1995@09:33:28
|
|
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|
CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
|
;
|
|
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|
ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|
W ! G CONT
|
|
ROU ;;
|
|
EEO0210 ;;14059811
|
|
EEO211 ;;9961734
|
|
EEOEAHO1 ;;9202738
|
|
EEOEAHO2 ;;7231931
|
|
EEOEAHOC ;;13718465
|
|
EEOEEDIE ;;8755140
|
|
EEOEEXE ;;8539870
|
|
EEOEEXMT ;;5351853
|
|
EEOEFIN ;;18655248
|
|
EEOEINP ;;3826665
|
|
EEOEMAN ;;5755760
|
|
EEOENF ;;5716172
|
|
EEOEOE2 ;;7147038
|
|
EEOEOI5 ;;5946587
|
|
EEOEOI6 ;;4635217
|
|
EEOEOP2 ;;3105960
|
|
EEOEOSE ;;12545787
|
|
EEOERCR ;;16248822
|
|
EEOERCR1 ;;41140744
|
|
EEOETICK ;;9984982
|
|
EEOEXE1 ;;11146481
|
|
EEOEXMT1 ;;6240330
|
|
EEOEXMT2 ;;5635159
|
|
EEOIN001 ;;10418583
|
|
EEOIN002 ;;9641785
|
|
EEOIN003 ;;12427901
|
|
EEOIN004 ;;12689540
|
|
EEOIN005 ;;10988726
|
|
EEOIN006 ;;13982102
|
|
EEOIN007 ;;11213705
|
|
EEOIN008 ;;11149937
|
|
EEOIN009 ;;7958865
|
|
EEOIN00A ;;9108573
|
|
EEOIN00B ;;2651326
|
|
EEOIN00C ;;1574589
|
|
EEOIN00D ;;3492330
|
|
EEOIN00E ;;2338901
|
|
EEOIN00F ;;10787283
|
|
EEOIN00G ;;9168500
|
|
EEOIN00H ;;11586588
|
|
EEOIN00I ;;10700009
|
|
EEOIN00J ;;3761154
|
|
EEOIN00K ;;3860088
|
|
EEOIN00L ;;1727319
|
|
EEOIN00M ;;9339460
|
|
EEOIN00N ;;3623950
|
|
EEOIN00O ;;5086014
|
|
EEOIN00P ;;5286817
|
|
EEOIN00Q ;;5329896
|
|
EEOIN00R ;;5603038
|
|
EEOIN00S ;;5780436
|
|
EEOIN00T ;;5556740
|
|
EEOIN00U ;;5714014
|
|
EEOIN00V ;;5637500
|
|
EEOIN00W ;;5696561
|
|
EEOIN00X ;;5835832
|
|
EEOIN00Y ;;5708262
|
|
EEOIN00Z ;;5604985
|
|
EEOIN010 ;;5412853
|
|
EEOIN011 ;;5813503
|
|
EEOIN012 ;;5346462
|
|
EEOIN013 ;;5709159
|
|
EEOIN014 ;;5912095
|
|
EEOIN015 ;;5519220
|
|
EEOIN016 ;;5592750
|
|
EEOIN017 ;;5622916
|
|
EEOIN018 ;;5517428
|
|
EEOIN019 ;;5491864
|
|
EEOIN01A ;;6240729
|
|
EEOIN01B ;;5723864
|
|
EEOIN01C ;;4811844
|
|
EEOIN01D ;;4478954
|
|
EEOIN01E ;;4397929
|
|
EEOIN01F ;;4309516
|
|
EEOIN01G ;;4305036
|
|
EEOIN01H ;;4415252
|
|
EEOIN01I ;;4315694
|
|
EEOIN01J ;;4351726
|
|
EEOIN01K ;;4305902
|
|
EEOIN01L ;;4312866
|
|
EEOIN01M ;;4474900
|
|
EEOIN01N ;;4309574
|
|
EEOIN01O ;;4310448
|
|
EEOIN01P ;;4396909
|
|
EEOIN01Q ;;4294548
|
|
EEOIN01R ;;4312086
|
|
EEOIN01S ;;4311859
|
|
EEOIN01T ;;4296643
|
|
EEOIN01U ;;4318788
|
|
EEOIN01V ;;4291564
|
|
EEOIN01W ;;4298280
|
|
EEOIN01X ;;4313018
|
|
EEOIN01Y ;;4295409
|
|
EEOIN01Z ;;4712186
|
|
EEOIN020 ;;6438676
|
|
EEOIN021 ;;6069173
|
|
EEOIN022 ;;2305860
|
|
EEOIN023 ;;4807486
|
|
EEOIN024 ;;1412870
|
|
EEOIN025 ;;6743330
|
|
EEOIN026 ;;8771070
|
|
EEOIN027 ;;8192208
|
|
EEOIN028 ;;1965879
|
|
EEOINIS ;;2168307
|
|
EEOINIT ;;10829233
|
|
EEOINIT1 ;;5700373
|
|
EEOINIT2 ;;5232639
|
|
EEOINIT3 ;;16093541
|
|
EEOINIT4 ;;3357811
|
|
EEOINIT5 ;;1217308
|
|
EEOIPCON ;;10149140
|
|
EEOIPOS2 ;;10406787
|
|
EEOIPOST ;;8798681
|
|
EEOIPRE ;;44559
|
|
EEOUTIL ;;5522790
|
|
EEOUTIL1 ;;6847267
|