78 lines
1.9 KiB
Mathematica
78 lines
1.9 KiB
Mathematica
ENXGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 12, 1996@09:45:44
|
|
;;7.0;ENGINEERING;**25**;AUG 17, 1993
|
|
;;7.2;MAR 12, 1996@09:45:44
|
|
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 ;;
|
|
ENEQ1 ;;15954192
|
|
ENEQ2 ;;3682101
|
|
ENEQ3 ;;9467888
|
|
ENFAR1 ;;5222396
|
|
ENFAR2 ;;5549493
|
|
ENFAR3 ;;3893341
|
|
ENFAR4 ;;6028891
|
|
ENFAUTL ;;5498296
|
|
ENFAVAL ;;4144643
|
|
ENFAXMTM ;;8209636
|
|
ENLIB3 ;;4928359
|
|
ENWONEW2 ;;5433422
|
|
ENXGI001 ;;10198513
|
|
ENXGI002 ;;9493143
|
|
ENXGI003 ;;9608485
|
|
ENXGI004 ;;3037114
|
|
ENXGI005 ;;10404246
|
|
ENXGI006 ;;9877951
|
|
ENXGI007 ;;4827334
|
|
ENXGI008 ;;12348941
|
|
ENXGI009 ;;16087423
|
|
ENXGI00A ;;9474280
|
|
ENXGI00B ;;8440948
|
|
ENXGI00C ;;10610250
|
|
ENXGI00D ;;13600195
|
|
ENXGI00E ;;11198556
|
|
ENXGI00F ;;3577969
|
|
ENXGI00G ;;7777594
|
|
ENXGI00H ;;8169994
|
|
ENXGI00I ;;9448447
|
|
ENXGI00J ;;11900556
|
|
ENXGI00K ;;9111764
|
|
ENXGI00L ;;9898253
|
|
ENXGI00M ;;9754996
|
|
ENXGI00N ;;8123484
|
|
ENXGI00O ;;10165041
|
|
ENXGI00P ;;9347851
|
|
ENXGI00Q ;;9344585
|
|
ENXGI00R ;;9889475
|
|
ENXGI00S ;;2577721
|
|
ENXGI00T ;;6884962
|
|
ENXGI00U ;;3161118
|
|
ENXGI00V ;;3088329
|
|
ENXGI00W ;;1463718
|
|
ENXGI00X ;;3572593
|
|
ENXGI00Y ;;2055436
|
|
ENXGI00Z ;;2776083
|
|
ENXGI010 ;;1733251
|
|
ENXGI011 ;;2577002
|
|
ENXGI012 ;;1493113
|
|
ENXGI013 ;;2605764
|
|
ENXGI014 ;;1547356
|
|
ENXGI015 ;;1399745
|
|
ENXGI016 ;;9817966
|
|
ENXGI017 ;;7429103
|
|
ENXGI018 ;;1830276
|
|
ENXGIEN ;;1762119
|
|
ENXGINI1 ;;4919111
|
|
ENXGINI2 ;;5232604
|
|
ENXGINI3 ;;16807278
|
|
ENXGINI4 ;;3357776
|
|
ENXGINI5 ;;1160518
|
|
ENXGINIT ;;10509737
|
|
ENXGIPR ;;3413934
|
|
ENXGIPS ;;7758629
|
|
ENXGIPS1 ;;3267905
|