Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGUTOS

RGUTOS.m

Go to the documentation of this file.
  1. RGUTOS ;CAIRO/DKM - Platform-dependent operations;04-Sep-1998 11:26;DKM
  1. ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
  1. ;=================================================================
  1. VER() Q $P($T(+2),";",3)
  1. CVTFN(RGFIL,RGROOT) ;
  1. N RGZ,RGZ1,RGD
  1. S RGD=$$DIRDLM,RGROOT=$G(RGROOT)
  1. S:$E(RGROOT,$L(RGROOT))=$E(RGD,3) RGROOT=$E(RGROOT,1,$L(RGROOT)-1)
  1. S RGZ=$L(RGFIL,"/"),RGZ1=$P(RGFIL,"/",1,RGZ-1),RGFIL=$P(RGFIL,"/",RGZ)
  1. S:$L(RGZ1) RGROOT=RGROOT_$E(RGD,$S($L(RGROOT):2,1:1))_$TR(RGZ1,"/.-",$E(RGD,2))
  1. Q RGROOT_$S($L(RGROOT):$E(RGD,3),1:"")_RGFIL
  1. RM(X) X ^%ZOSF("RM")
  1. Q
  1. TEST(X) N Z
  1. S:X[U Z=$P(X,U),X=$P(X,U,2)
  1. X ^%ZOSF("TEST")
  1. Q $S('$T:0,$G(Z)="":1,Z'?.1"%"1.AN:0,1:$T(@Z^@X)'="")
  1. ETRAP() Q $$NEWERR^%ZTER
  1. OPENX(X1,X2) ;
  1. D OPEN(.X1,.X2)
  1. Q X1
  1. OPEN(X1,X2) ;
  1. O X1:$S("Rr"[$G(X2):"RS","Ww"[X2:"WNS","Bb"[X2:"RF",1:""):0
  1. E ZT "NOPEN"
  1. U X1
  1. S ^TMP("HFS",$J,X1)=""
  1. Q
  1. CLOSE(X) C X
  1. K ^TMP("HFS",$J,X)
  1. Q
  1. CLOSEALL N Z
  1. S Z=""
  1. F S Z=$O(^TMP("HFS",$J,Z)) Q:Z="" C Z
  1. K ^TMP("HFS",$J)
  1. Q
  1. EOF ZT:$ZA=-1 "ENDOFFILE"
  1. Q
  1. EOFERR() Q:$ZE["ENDOFFILE"
  1. READ(X,Y) ;
  1. S $ZT="READX"
  1. U $G(Y,$I)
  1. R X
  1. Q 0
  1. READX Q 1
  1. DELETE(X) ;
  1. S X=$ZF(-1,"del """_X_"""")
  1. Q
  1. RENAME(X1,X2) ;
  1. S X1=$ZF(-1,"ren """_X1_""" """_X2_"""")
  1. Q
  1. DIR(X1,X2,X3) ;
  1. N Z,Z1
  1. S X3=$G(X3,$NA(^UTILITY("DIR",$J)))
  1. K @X3
  1. S:'$G(X2) X2=9999999999
  1. F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" D
  1. .S Z1=$P(Z1,"\",$L(Z1,"\"))
  1. .S:$TR(Z1,".")'="" @X3@(Z1)=""
  1. Q
  1. DIRDLM() Q "\\\"
  1. DEFDIR(X) ;
  1. S X=$G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
  1. S:$E(X,$L(X))'="\" X=X_"\"
  1. Q X
  1. ERR(X1,X2,X3) ;
  1. S X1=$E($P($ZE,">"),2,99),X2=$P($P($ZE,">",2),":"),X3=X1
  1. S:X2["*" X2=""
  1. S:$E(X1)="Z" X3=$E(X1,2,99),X1="ZTRAP"
  1. Q
  1. FTP(X1,X2,X3,X4,X5,X6,X7) ;
  1. Q
  1. RAISE(X) ZT $G(X)
  1. TRAP(X) Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
  1. SIZE(X) Q 0
  1. FREE(X) Q 0