RGZOSF ;CAIRO/DKM - Platform-dependent operations;09-Oct-1998 08:25;DKM
;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
;=================================================================
CVTFN(RGFIL,RGROOT) ;
Q $$CVTFN^RGUTOS(.RGFIL,.RGROOT)
RM(X) D RM^RGUTOS(.X)
Q
TEST(X) Q $$TEST^RGUTOS(.X)
ETRAP() Q $$ETRAP^RGUTOS
OPENX(X1,X2) ;
Q $$OPENX^RGUTOS(.X1,.X2)
VER() Q $$VER^RGUTOS
OPEN(X1,X2) ;
D OPEN^RGUTOS(.X1,.X2)
Q
CLOSE(X) D CLOSE^RGUTOS(.X)
Q
CLOSEALL G CLOSEALL^RGUTOS
EOF D EOF^RGUTOS
Q
EOFERR() Q $$EOFERR^RGUTOS
READ(X,Y) ;
Q $$READ^RGUTOS(.X,.Y)
DELETE(X) ;
D DELETE^RGUTOS(.X)
Q
RENAME(X1,X2) ;
D RENAME^RGUTOS(.X1,.X2)
Q
DIR(X1,X2,X3) ;
D DIR^RGUTOS(.X1,.X2,.X3)
Q
DIRDLM() Q $$DIRDLM^RGUTOS
ERR(X1,X2,X3) ;
D ERR^RGUTOS(.X1,.X2,.X3)
Q
FTP(X1,X2,X3,X4,X5,X6,X7) ;
D FTP^RGUTOS(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
Q
RAISE(X) D RAISE^RGUTOS(.X)
Q
TRAP(X) Q $$TRAP^RGUTOS(.X)
SIZE(X) Q $$SIZE^RGUTOS(.X)
FREE(X) Q $$FREE^RGUTOS(.X)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGZOSF 990 printed Dec 13, 2024@01:43:08 Page 2
RGZOSF ;CAIRO/DKM - Platform-dependent operations;09-Oct-1998 08:25;DKM
+1 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
+2 ;=================================================================
CVTFN(RGFIL,RGROOT) ;
+1 QUIT $$CVTFN^RGUTOS(.RGFIL,.RGROOT)
RM(X) DO RM^RGUTOS(.X)
+1 QUIT
TEST(X) QUIT $$TEST^RGUTOS(.X)
ETRAP() QUIT $$ETRAP^RGUTOS
OPENX(X1,X2) ;
+1 QUIT $$OPENX^RGUTOS(.X1,.X2)
VER() QUIT $$VER^RGUTOS
OPEN(X1,X2) ;
+1 DO OPEN^RGUTOS(.X1,.X2)
+2 QUIT
CLOSE(X) DO CLOSE^RGUTOS(.X)
+1 QUIT
CLOSEALL GOTO CLOSEALL^RGUTOS
EOF DO EOF^RGUTOS
+1 QUIT
EOFERR() QUIT $$EOFERR^RGUTOS
READ(X,Y) ;
+1 QUIT $$READ^RGUTOS(.X,.Y)
DELETE(X) ;
+1 DO DELETE^RGUTOS(.X)
+2 QUIT
RENAME(X1,X2) ;
+1 DO RENAME^RGUTOS(.X1,.X2)
+2 QUIT
DIR(X1,X2,X3) ;
+1 DO DIR^RGUTOS(.X1,.X2,.X3)
+2 QUIT
DIRDLM() QUIT $$DIRDLM^RGUTOS
ERR(X1,X2,X3) ;
+1 DO ERR^RGUTOS(.X1,.X2,.X3)
+2 QUIT
FTP(X1,X2,X3,X4,X5,X6,X7) ;
+1 DO FTP^RGUTOS(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
+2 QUIT
RAISE(X) DO RAISE^RGUTOS(.X)
+1 QUIT
TRAP(X) QUIT $$TRAP^RGUTOS(.X)
SIZE(X) QUIT $$SIZE^RGUTOS(.X)
FREE(X) QUIT $$FREE^RGUTOS(.X)
