185 lines
3.5 KiB
Mathematica
185 lines
3.5 KiB
Mathematica
XMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002 10:18
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
;;7.3;Apr 19, 2002@07:52:43
|
|
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")
|
|
G CONT^XMNTEG0
|
|
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 ;;
|
|
XM ;;10750940
|
|
XMA ;;193377
|
|
XMA0 ;;305822
|
|
XMA03 ;;66257
|
|
XMA11 ;;19543
|
|
XMA11A ;;295406
|
|
XMA1B ;;741680
|
|
XMA1C ;;99629
|
|
XMA2 ;;1117192
|
|
XMA21 ;;2501947
|
|
XMA21C ;;5477330
|
|
XMA2B ;;4983521
|
|
XMA2R ;;3986868
|
|
XMA3 ;;11956281
|
|
XMA30 ;;10571799
|
|
XMA32 ;;8481844
|
|
XMA32A ;;9150003
|
|
XMA7 ;;16522
|
|
XMAD2 ;;208202
|
|
XMADGO ;;10833
|
|
XMAFTP ;;3725650
|
|
XMAH ;;1584093
|
|
XMAH1 ;;2176845
|
|
XMAI2 ;;2084332
|
|
XMAPBLOB ;;4954112
|
|
XMAPHOST ;;7077399
|
|
XMASEC ;;46560
|
|
XMB ;;4289569
|
|
XMBBLOB ;;1692263
|
|
XMBGRP ;;8136862
|
|
XMC ;;3542655
|
|
XMC1 ;;9454283
|
|
XMC11 ;;2246886
|
|
XMC1A ;;3411138
|
|
XMC1B ;;2460937
|
|
XMCB ;;3553056
|
|
XMCD ;;4131908
|
|
XMCDNT ;;401792
|
|
XMCE ;;1460559
|
|
XMCP ;;2311480
|
|
XMCQ ;;4988121
|
|
XMCQA ;;6380548
|
|
XMCQH ;;2468361
|
|
XMCSIZE ;;1758419
|
|
XMCTLK ;;8483546
|
|
XMCTRAP ;;161791
|
|
XMCU1 ;;787300
|
|
XMCX ;;5550363
|
|
XMCXT ;;2533239
|
|
XMCXU ;;5743394
|
|
XMD ;;7748228
|
|
XMDIR1 ;;9778409
|
|
XMDIR1A ;;4299248
|
|
XMDIR1B ;;3077473
|
|
XMDIRQST ;;7707598
|
|
XMDIRRCV ;;1925075
|
|
XMDIRSND ;;2039595
|
|
XMFAX ;;5011960
|
|
XMGAPI0 ;;2470973
|
|
XMGAPI1 ;;22159
|
|
XMGAPI2 ;;3885630
|
|
XMGAPI3 ;;2143520
|
|
XMGAPI4 ;;5418259
|
|
XMHIG ;;6374158
|
|
XMHIU ;;9084627
|
|
XMJBL ;;4988691
|
|
XMJBM ;;11064135
|
|
XMJBM1 ;;3151843
|
|
XMJBN ;;10845646
|
|
XMJBN1 ;;5454531
|
|
XMJBU ;;2768827
|
|
XMJDIR ;;6153613
|
|
XMJERR ;;375271
|
|
XMJMA ;;3612338
|
|
XMJMBULL ;;1994222
|
|
XMJMC ;;9725999
|
|
XMJMCODE ;;12533067
|
|
XMJMD ;;9375016
|
|
XMJMF ;;3844343
|
|
XMJMF1 ;;11350281
|
|
XMJMF2 ;;6670003
|
|
XMJMFA ;;6729708
|
|
XMJMFB ;;17121533
|
|
XMJMFC ;;12108437
|
|
XMJML ;;12709285
|
|
XMJMLN ;;14794710
|
|
XMJMLR ;;14272339
|
|
XMJMLR1 ;;6881581
|
|
XMJMOI ;;14666274
|
|
XMJMOI1 ;;8385762
|
|
XMJMOIE ;;3277725
|
|
XMJMP ;;15497599
|
|
XMJMP1 ;;18918998
|
|
XMJMP2 ;;2708969
|
|
XMJMQ ;;14078177
|
|
XMJMQ1 ;;13480745
|
|
XMJMR ;;10472863
|
|
XMJMR1 ;;10598504
|
|
XMJMRO ;;5049970
|
|
XMJMS ;;7995221
|
|
XMJMSA ;;1902278
|
|
XMJMSO ;;10097928
|
|
XMJMT ;;8959953
|
|
XMKP ;;16206281
|
|
XMKP1 ;;1811191
|
|
XMKPL ;;2912755
|
|
XMKPLQ ;;5786623
|
|
XMKPO ;;2469366
|
|
XMKPR ;;10051281
|
|
XMKPR1 ;;5051210
|
|
XMKPRD ;;5470763
|
|
XML ;;5119164
|
|
XML1CRC ;;5596625
|
|
XML4CRC ;;11722711
|
|
XML4CRC1 ;;6216754
|
|
XMLPC ;;2821947
|
|
XMLSWP ;;5626101
|
|
XMLSWP0 ;;5152871
|
|
XMLSWP2 ;;3134547
|
|
XMLTCP ;;2332071
|
|
XMM1 ;;3866874
|
|
XMM2 ;;2670817
|
|
XMP ;;8830587
|
|
XMP2 ;;9384926
|
|
XMP2A ;;8263048
|
|
XMJMOR ;;14793912
|
|
XMJMORX ;;13578226
|
|
XMJMORX1 ;;7116146
|
|
XMP3 ;;6720603
|
|
XMPC ;;5352206
|
|
XMPG ;;4410165
|
|
XMPH ;;4952939
|
|
XMPSEC ;;7152889
|
|
XMR ;;11613068
|
|
XMR0BLOB ;;4867143
|
|
XMR1 ;;10825754
|
|
XMR2 ;;2314394
|
|
XMR3 ;;14650619
|
|
XMR3A ;;2650246
|
|
XMR4 ;;11545724
|
|
XMRENT ;;2261713
|
|
XMRFTP ;;3153916
|
|
XMRFTPUX ;;3165955
|
|
XMRINETD ;;363486
|
|
XMRMSM ;;338607
|
|
XMRONT ;;390591
|
|
XMRPCTS ;;4756429
|
|
XMRPCTS0 ;;5251212
|
|
XMRPCTS1 ;;5706972
|
|
XMRPCTSA ;;3495721
|
|
XMRPOP ;;11311549
|
|
XMRTCP ;;3549159
|
|
XMRTCPGO ;;2857890
|
|
XMRUCX ;;1143285
|
|
XMS ;;8210098
|
|
XMS0BLOB ;;6743955
|
|
XMS1 ;;9572683
|
|
XMS2 ;;5021128
|
|
XMS3 ;;11387711
|
|
XMSFTP ;;3096740
|
|
XMSFTPUX ;;3150307
|
|
XMTDF ;;7250797
|
|
XMTDL ;;18753082
|
|
XMTDL1 ;;4584627
|
|
XMTDL2 ;;10414584
|
|
XMTDO ;;1726768
|
|
XMTDR ;;10257008
|
|
XMTDT ;;8338601
|
|
XMUCXPOP ;;361549
|
|
XMUDCHK ;;1578565
|
|
XMUDCHR ;;8046508
|
|
XMUDNC ;;14028901
|
|
XMUDTOP ;;3796998
|