| [613] | 1 | RGZOSF ;CAIRO/DKM - Platform-dependent operations;09-Oct-1998 08:25;DKM
|
|---|
| 2 | ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
|
|---|
| 3 | ;=================================================================
|
|---|
| 4 | CVTFN(RGFIL,RGROOT) ;
|
|---|
| 5 | Q $$CVTFN^RGUTOS(.RGFIL,.RGROOT)
|
|---|
| 6 | RM(X) D RM^RGUTOS(.X)
|
|---|
| 7 | Q
|
|---|
| 8 | TEST(X) Q $$TEST^RGUTOS(.X)
|
|---|
| 9 | ETRAP() Q $$ETRAP^RGUTOS
|
|---|
| 10 | OPENX(X1,X2) ;
|
|---|
| 11 | Q $$OPENX^RGUTOS(.X1,.X2)
|
|---|
| 12 | VER() Q $$VER^RGUTOS
|
|---|
| 13 | OPEN(X1,X2) ;
|
|---|
| 14 | D OPEN^RGUTOS(.X1,.X2)
|
|---|
| 15 | Q
|
|---|
| 16 | CLOSE(X) D CLOSE^RGUTOS(.X)
|
|---|
| 17 | Q
|
|---|
| 18 | CLOSEALL G CLOSEALL^RGUTOS
|
|---|
| 19 | EOF D EOF^RGUTOS
|
|---|
| 20 | Q
|
|---|
| 21 | EOFERR() Q $$EOFERR^RGUTOS
|
|---|
| 22 | READ(X,Y) ;
|
|---|
| 23 | Q $$READ^RGUTOS(.X,.Y)
|
|---|
| 24 | DELETE(X) ;
|
|---|
| 25 | D DELETE^RGUTOS(.X)
|
|---|
| 26 | Q
|
|---|
| 27 | RENAME(X1,X2) ;
|
|---|
| 28 | D RENAME^RGUTOS(.X1,.X2)
|
|---|
| 29 | Q
|
|---|
| 30 | DIR(X1,X2,X3) ;
|
|---|
| 31 | D DIR^RGUTOS(.X1,.X2,.X3)
|
|---|
| 32 | Q
|
|---|
| 33 | DIRDLM() Q $$DIRDLM^RGUTOS
|
|---|
| 34 | ERR(X1,X2,X3) ;
|
|---|
| 35 | D ERR^RGUTOS(.X1,.X2,.X3)
|
|---|
| 36 | Q
|
|---|
| 37 | FTP(X1,X2,X3,X4,X5,X6,X7) ;
|
|---|
| 38 | D FTP^RGUTOS(.X1,.X2,.X3,.X4,.X5,.X6,.X7)
|
|---|
| 39 | Q
|
|---|
| 40 | RAISE(X) D RAISE^RGUTOS(.X)
|
|---|
| 41 | Q
|
|---|
| 42 | TRAP(X) Q $$TRAP^RGUTOS(.X)
|
|---|
| 43 | SIZE(X) Q $$SIZE^RGUTOS(.X)
|
|---|
| 44 | FREE(X) Q $$FREE^RGUTOS(.X)
|
|---|
