45 lines
946 B
Mathematica
45 lines
946 B
Mathematica
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)
|