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)