92 lines
2.2 KiB
Mathematica
92 lines
2.2 KiB
Mathematica
SOWKNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 27, 1993@13:24:55
|
|
;;3.0; Social Work ;;27 Apr 93
|
|
;;7.0;APR 27, 1993@13:24:55
|
|
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 ;;
|
|
SOWKAI ;;16305479
|
|
SOWKAR10 ;;14236043
|
|
SOWKARS ;;14521939
|
|
SOWKARS1 ;;18777021
|
|
SOWKARS2 ;;7449645
|
|
SOWKARS3 ;;16667309
|
|
SOWKARS4 ;;10817406
|
|
SOWKARS5 ;;15465749
|
|
SOWKARS6 ;;16633298
|
|
SOWKAWB ;;13339750
|
|
SOWKAWI ;;13217836
|
|
SOWKAWS ;;13951899
|
|
SOWKAWU ;;13765101
|
|
SOWKBH ;;12299984
|
|
SOWKCDR ;;7116274
|
|
SOWKCLCR ;;18567302
|
|
SOWKCLEA ;;10538327
|
|
SOWKCLIS ;;14247325
|
|
SOWKCLIW ;;16363946
|
|
SOWKCLOS ;;8092518
|
|
SOWKCLSP ;;16805620
|
|
SOWKCLSS ;;14979588
|
|
SOWKCLSW ;;17185283
|
|
SOWKCO ;;3898139
|
|
SOWKCONV ;;4436757
|
|
SOWKCOR ;;5609249
|
|
SOWKCP ;;15376647
|
|
SOWKCS ;;5761811
|
|
SOWKDB ;;15800513
|
|
SOWKDB1 ;;18335188
|
|
SOWKDB2 ;;14758265
|
|
SOWKDBE ;;11529639
|
|
SOWKDBEN ;;4819385
|
|
SOWKDBPA ;;15244363
|
|
SOWKDBPN ;;13688251
|
|
SOWKDBSR ;;6093680
|
|
SOWKDSC ;;9428821
|
|
SOWKHELP ;;451888
|
|
SOWKHINC ;;5240870
|
|
SOWKHIRH ;;9003381
|
|
SOWKHIRM ;;4296299
|
|
SOWKHR ;;18756024
|
|
SOWKHR1 ;;12359499
|
|
SOWKHRM ;;11699697
|
|
SOWKHRM1 ;;8787118
|
|
SOWKLC ;;11342110
|
|
SOWKLCD ;;7717468
|
|
SOWKLOC ;;1966030
|
|
SOWKND ;;14149382
|
|
SOWKNEW ;;17310955
|
|
SOWKOPEN ;;13991685
|
|
SOWKOPT ;;15130764
|
|
SOWKPAD ;;2712545
|
|
SOWKPAO ;;17447663
|
|
SOWKPAOD ;;12709807
|
|
SOWKPAOQ ;;7129575
|
|
SOWKPC ;;12576211
|
|
SOWKPLC ;;14761937
|
|
SOWKPNTF ;;8707402
|
|
SOWKPREI ;;3898958
|
|
SOWKPTC ;;9609396
|
|
SOWKQAM1 ;;10904679
|
|
SOWKQAM3 ;;10977624
|
|
SOWKQAM4 ;;17408693
|
|
SOWKQAM5 ;;12713872
|
|
SOWKQAMN ;;12542049
|
|
SOWKQAMR ;;15354672
|
|
SOWKQAR2 ;;13111829
|
|
SOWKQAR4 ;;10616112
|
|
SOWKQARI ;;13804667
|
|
SOWKRCH ;;14957542
|
|
SOWKRCH1 ;;5741075
|
|
SOWKRCS ;;8410142
|
|
SOWKRF ;;11343394
|
|
SOWKRFD ;;6784701
|
|
SOWKRKD ;;6058520
|
|
SOWKSITE ;;5418158
|
|
SOWKTC ;;11716158
|
|
SOWKTRAN ;;5223185
|
|
SOWKTY ;;1236574
|