17 lines
844 B
Mathematica
17 lines
844 B
Mathematica
XUGET ; SF/XAK - PACKAGE INTEGRITY CHECKER ;12/14/92 11:47 ;
|
|
;;8.0;KERNEL;;Jul 10, 1995
|
|
1 W ! S DIR("A",1)="This answer is case sensitive.",DIR("A")="Select PACKAGE PREFIX",DIR(0)="FO^2:4"
|
|
S DIR("?")="Prefix must be 2 to 4 characters in length.",DIR("??")="^D H^XUGET"
|
|
D ^DIR G END:$D(DIRUT) S X=X_"NTEG"
|
|
X ^%ZOSF("TEST") I '$T W !!?5,"Integrity program does not exist." G 1
|
|
W ! S XD="^"_X S %ZIS="Q" D ^%ZIS G END:POP
|
|
I $D(IO("Q")) K IO("Q") S ZTRTN="GO^XUGET",ZTSAVE("XD")="",ZTDESC="ROUTINE INTEGRITY CHECKER",ZTIO=ION D ^%ZTLOAD G 1
|
|
GO W !,"Running "_XD_"..." D @XD G END:$D(ZTSK)
|
|
G 1
|
|
H ;
|
|
S DZ="?",DIC="^DIC(9.4,",DIC(0)="QE",D="C",DIC("S")="N X S X=$P(^(0),U,2)_""NTEG"" X ^%ZOSF(""TEST"")"
|
|
S DIC("W")="W ?15,$P(^(0),U)" D DQ^DICQ
|
|
K %,%Y,DD,DIX,DIY,DO,DISYS,D,DIC,DZ
|
|
Q
|
|
END K %I,ZTSK,XD,IO("Q"),POP,LN,I,L,X,DIR,DIRUT S U="^" Q
|