| 1 | RGUTIN18 ;CAIRO/DKM - Inits for Open-M;04-Sep-1998 11:26;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | OPEN(X1,X2) ;
|
|---|
| 4 | O X1:$S("Rr"[$G(X2):"RS","Ww"[X2:"WNS","Bb"[X2:"RF",1:""):0
|
|---|
| 5 | E ZT "NOPEN"
|
|---|
| 6 | U X1
|
|---|
| 7 | S ^TMP("HFS",$J,X1)=""
|
|---|
| 8 | Q
|
|---|
| 9 | CLOSE(X) C X
|
|---|
| 10 | K ^TMP("HFS",$J,X)
|
|---|
| 11 | Q
|
|---|
| 12 | CLOSEALL N Z
|
|---|
| 13 | S Z=""
|
|---|
| 14 | F S Z=$O(^TMP("HFS",$J,Z)) Q:Z="" C Z
|
|---|
| 15 | K ^TMP("HFS",$J)
|
|---|
| 16 | Q
|
|---|
| 17 | EOF ZT:$ZA=-1 "ENDOFFILE"
|
|---|
| 18 | Q
|
|---|
| 19 | EOFERR() Q:$ZE["ENDOFFILE"
|
|---|
| 20 | READ(X,Y) ;
|
|---|
| 21 | S $ZT="READX"
|
|---|
| 22 | U $G(Y,$I)
|
|---|
| 23 | R X
|
|---|
| 24 | Q 0
|
|---|
| 25 | READX Q 1
|
|---|
| 26 | DELETE(X) ;
|
|---|
| 27 | S X=$ZF(-1,"del """_X_"""")
|
|---|
| 28 | Q
|
|---|
| 29 | RENAME(X1,X2) ;
|
|---|
| 30 | S X1=$ZF(-1,"ren """_X1_""" """_X2_"""")
|
|---|
| 31 | Q
|
|---|
| 32 | DIR(X1,X2,X3) ;
|
|---|
| 33 | N Z,Z1
|
|---|
| 34 | S X3=$G(X3,$NA(^UTILITY("DIR",$J)))
|
|---|
| 35 | K @X3
|
|---|
| 36 | S:'$G(X2) X2=9999999999
|
|---|
| 37 | F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" D
|
|---|
| 38 | .S Z1=$P(Z1,"\",$L(Z1,"\"))
|
|---|
| 39 | .S:$TR(Z1,".")'="" @X3@(Z1)=""
|
|---|
| 40 | Q
|
|---|
| 41 | DIRDLM() Q "\\\"
|
|---|
| 42 | DEFDIR(X) ;
|
|---|
| 43 | S X=$G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
|
|---|
| 44 | S:$E(X,$L(X))'="\" X=X_"\"
|
|---|
| 45 | Q X
|
|---|
| 46 | ERR(X1,X2,X3) ;
|
|---|
| 47 | S X1=$E($P($ZE,">"),2,99),X2=$P($P($ZE,">",2),":"),X3=X1
|
|---|
| 48 | S:X2["*" X2=""
|
|---|
| 49 | S:$E(X1)="Z" X3=$E(X1,2,99),X1="ZTRAP"
|
|---|
| 50 | Q
|
|---|
| 51 | FTP(X1,X2,X3,X4,X5,X6,X7) ;
|
|---|
| 52 | Q
|
|---|
| 53 | RAISE(X) ZT $G(X)
|
|---|
| 54 | TRAP(X) Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
|
|---|
| 55 | SIZE(X) Q 0
|
|---|
| 56 | FREE(X) Q 0
|
|---|
