- 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 Jan 18, 2025@02:44:22 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)