(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "18-May-2018 12:53:00" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>UFSCALLC.;2
 3701   

      previous date%: "31-May-90 12:17:51" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>UFSCALLC.;1)


(* ; "
Copyright (c) 1987, 1988, 1990, 2018 by Venue & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT UFSCALLCCOMS)

(RPAQQ UFSCALLCCOMS
 
       ((FNS \UFSOpenFile-C \UFSCloseFile-C \UFSGetFileName-C \DSKGetFileName-C \UFSDeleteFile-C 
             \UFSRenameFile-C \UFSReadPages-C \UFSWritePages-C \UFSGetSize-C \UFSReadDir-C 
             \UFSDirectoryNameP-C \DSKDirectoryNameP-C \UFSGetFileInfo-C \UFSCHDIR-C 
             \UFSSetFileInfo-C \UFSGetFreeBlock-C \UFSNextFile-C \UFSFinishFileInfo-C)))
(DEFINEQ

(\UFSOpenFile-C

(LAMBDA (FILE REC ACC CDATE LENGTH ERRNO) (* ; "Edited 29-Mar-90 17:50 by nm") (SUBRCALL COM-OPENFILE FILE REC ACC CDATE LENGTH ERRNO))
)

(\UFSCloseFile-C

(LAMBDA (PATHNAME FILEID CDATE ERRNO) (* ; "Edited 29-Mar-90 17:51 by nm") (SUBRCALL COM-CLOSEFILE PATHNAME FILEID CDATE ERRNO))
)

(\UFSGetFileName-C

(LAMBDA (PATHNAME RECOG BUF ERRNO) (* ; "Edited 28-Jul-88 14:08 by hayata") (SUBRCALL UFS-GETFILENAME PATHNAME RECOG BUF ERRNO))
)

(\DSKGetFileName-C

(LAMBDA (PATHNAME RECOG BUF ERRNO) (* ; "Edited 28-Jul-88 21:47 by hayata") (SUBRCALL DSK-GETFILENAME PATHNAME RECOG BUF ERRNO))
)

(\UFSDeleteFile-C

(LAMBDA (NAME FDEV ERRNO) (* ; "Edited 28-Jul-88 21:48 by hayata") (SELECTQ (fetch (FDEV DEVICENAME) of FDEV) (UNIX (SUBRCALL UFS-DELETEFILE NAME ERRNO)) (DSK (SUBRCALL DSK-DELETEFILE NAME ERRNO)) NIL))
)

(\UFSRenameFile-C

(LAMBDA (OLDNAME NEWNAME FDEV ERRNO) (* ; "Edited 28-Jul-88 21:49 by hayata") (SELECTQ (fetch (FDEV DEVICENAME) of FDEV) (UNIX (SUBRCALL UFS-RENAMEFILE OLDNAME NEWNAME ERRNO)) (DSK (SUBRCALL DSK-RENAMEFILE OLDNAME NEWNAME ERRNO)) NIL))
)

(\UFSReadPages-C

(LAMBDA (FILEID PAGENUM BUFFER ERRNO) (* ; "Edited 29-Mar-90 17:52 by nm") (SUBRCALL COM-READPAGES FILEID PAGENUM BUFFER ERRNO))
)

(\UFSWritePages-C

(LAMBDA (FILEID PAGENUM BUFFER SIZE ERRNO) (* ; "Edited 29-Mar-90 17:53 by nm") (SUBRCALL COM-WRITEPAGES FILEID PAGENUM BUFFER SIZE ERRNO))
)

(\UFSGetSize-C

(LAMBDA (FILEID BUF ERRNO) (* ; "Edited 29-Mar-90 17:53 by nm") (SUBRCALL COM-TRUNCATEFILE FILEID BUF ERRNO))
)

(\UFSReadDir-C

(LAMBDA (FILTER PROPP ID ERRNO) (* ; "Edited  3-May-90 15:02 by nm") (SUBRCALL COM-GEN-FILES FILTER PROPP ID ERRNO))
)

(\UFSDirectoryNameP-C

(LAMBDA (DIRSPEC BUF ERRNO) (* ; "Edited 29-Mar-90 18:03 by nm") (SUBRCALL UFS-DIRECTORYNAMEP DIRSPEC BUF ERRNO))
)

(\DSKDirectoryNameP-C

(LAMBDA (DIRSPEC BUF ERRNO) (* ; "Edited 29-Mar-90 18:03 by nm") (SUBRCALL DSK-DIRECTORYNAMEP DIRSPEC BUF ERRNO))
)

(\UFSGetFileInfo-C

(LAMBDA (FILENAME ATTR-CODE BUFFER ERRNO) (* ; "Edited 29-Mar-90 17:57 by nm") (SUBRCALL COM-GETFILEINFO FILENAME ATTR-CODE BUFFER ERRNO))
)

(\UFSCHDIR-C

(LAMBDA (DIR) (* ; "Edited 29-Mar-90 17:59 by nm") (SUBRCALL COM-CHANGEDIR DIR)))

(\UFSSetFileInfo-C

(LAMBDA (FILENAME ATTR-CODE BUFFER ERRNO) (* ; "Edited 29-Mar-90 17:59 by nm") (SUBRCALL COM-SETFILEINFO FILENAME ATTR-CODE BUFFER ERRNO))
)

(\UFSGetFreeBlock-C

(LAMBDA (FILE BUF) (* ; "Edited 29-Mar-90 18:00 by nm") (SUBRCALL COM-GETFREEBLOCK FILE BUF)))

(\UFSNextFile-C

(LAMBDA (GENFILESTATE) (* ; "Edited  7-May-90 21:01 by nm") (SUBRCALL COM-NEXT-FILE GENFILESTATE)))

(\UFSFinishFileInfo-C

(LAMBDA (FINFOID) (* ; "Edited  3-May-90 18:06 by nm") (SUBRCALL COM-FINISH-FINFO FINFOID)))
)
(PUTPROPS UFSCALLC COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 2018))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (811 3598 (\UFSOpenFile-C 821 . 978) (\UFSCloseFile-C 980 . 1131) (\UFSGetFileName-C 
1133 . 1286) (\DSKGetFileName-C 1288 . 1441) (\UFSDeleteFile-C 1443 . 1669) (\UFSRenameFile-C 1671 . 
1930) (\UFSReadPages-C 1932 . 2083) (\UFSWritePages-C 2085 . 2248) (\UFSGetSize-C 2250 . 2380) (
\UFSReadDir-C 2382 . 2519) (\UFSDirectoryNameP-C 2521 . 2662) (\DSKDirectoryNameP-C 2664 . 2805) (
\UFSGetFileInfo-C 2807 . 2970) (\UFSCHDIR-C 2972 . 3070) (\UFSSetFileInfo-C 3072 . 3235) (
\UFSGetFreeBlock-C 3237 . 3355) (\UFSNextFile-C 3357 . 3476) (\UFSFinishFileInfo-C 3478 . 3596)))))
STOP