DIRECTORY IO USING [STREAM], PascalBasic; PascalWizardFiles: CEDAR DEFINITIONS = BEGIN OPEN PascalBasic; PascalFile: TYPE = LONG POINTER TO MesaFile _ NIL; PascalFilePtr: TYPE = LONG POINTER TO PascalFile; -- for passing files as VAR parameters MesaFile: TYPE = RECORD [ str: IO.STREAM _ NIL, eof: BOOLEAN _ FALSE, openFileLink: MesaFilePtr _ NIL]; MesaFilePtr: TYPE = REF MesaFile; PascalTextFile: TYPE = RECORD [ baseFile: PascalFile, eoln: BOOLEAN _ TRUE, -- TRUE if element is a blank representing CR element: PascalChar _ ' -- last character read ]; PascalTextFilePtr: TYPE = LONG POINTER TO PascalTextFile; -- for passing by VAR Text: TYPE = PascalTextFile; PascalTextBREAK: PROCEDURE [file: PascalTextFilePtr]; PascalTextGET: PROCEDURE [file: PascalTextFilePtr]; PascalTextElement: PROCEDURE [file: PascalTextFilePtr] RETURNS [PascalChar]; PascalTextPUT: PROCEDURE [file: PascalTextFilePtr]; PascalTextRESET: PROCEDURE [file: PascalTextFilePtr]; PascalTextREWRITE: PROCEDURE [file: PascalTextFilePtr]; PascalTextPAGE: PROCEDURE [file: PascalTextFilePtr]; PascalTextEOF: PROCEDURE [file: PascalTextFilePtr] RETURNS [BOOLEAN]; PascalTextEOLN: PROCEDURE [file: PascalTextFilePtr] RETURNS [BOOLEAN]; PascalBREAK: PROCEDURE [ file: PascalFilePtr, length: CARDINAL, element: LONG POINTER]; PascalGET: UNSAFE PROCEDURE [ file: PascalFilePtr, length: CARDINAL, element: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED --]; PascalPUT: PROCEDURE [ file: PascalFilePtr, length: CARDINAL, element: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED --]; PascalRESET: UNSAFE PROCEDURE [ file: PascalFilePtr, length: CARDINAL, element: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED --]; PascalREWRITE: PROCEDURE [ file: PascalFilePtr, length: CARDINAL _ 0, element: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED -- _ NIL]; PascalRead, PascalReadLong, PascalWrite, PascalWriteLong: UNSAFE PROCEDURE [ file: PascalFilePtr, length: CARDINAL, element: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED --, item: LONG POINTER -- TO ARRAY[0..length/2) OF UNSPECIFIED --]; PascalEOF: PROCEDURE [file: PascalFilePtr] RETURNS [BOOLEAN]; PascalReadLn, PascalWriteLn: PROCEDURE [file: PascalTextFilePtr]; PascalReadInteger: PROCEDURE [file: PascalTextFilePtr] RETURNS [PascalInteger]; PascalWriteInteger: PROCEDURE [ file: PascalTextFilePtr, item: PascalInteger, fieldMinLength: PascalInteger _ -1]; PascalReadReal: PROCEDURE [file: PascalTextFilePtr] RETURNS [PascalReal]; PascalWriteReal: PROCEDURE [ file: PascalTextFilePtr, item: PascalReal, fieldMinLength, fracLength: PascalInteger _ -1]; PascalReadChar: PROCEDURE [file: PascalTextFilePtr] RETURNS [PascalChar]; PascalWriteChar: PROCEDURE [ file: PascalTextFilePtr, item: PascalChar, fieldMinLength: PascalInteger _ -1]; PascalReadBoolean: PROCEDURE [file: PascalTextFilePtr] RETURNS [PascalBoolean]; PascalWriteBoolean: PROCEDURE [ file: PascalTextFilePtr, item: PascalBoolean, fieldMinLength: PascalInteger _ -1]; PascalReadArrayOfChar, PascalReadLongArrayOfChar: UNSAFE PROCEDURE [ file: PascalTextFilePtr, item: CharArrayPtr, arrayBound: PascalInteger]; PascalWriteArrayOfChar, PascalWriteLongArrayOfChar: PROCEDURE [ file: PascalTextFilePtr, item: CharArrayPtr, arrayBound: PascalInteger, fieldMinLength: PascalInteger _ -1]; PascalWriteString, PascalWriteLongString: PROCEDURE [ file: PascalTextFilePtr, item: ROPE, fieldMinLength: PascalInteger _ -1]; PascalOpenTextFileWithStream: UNSAFE PROCEDURE [ file: PascalTextFilePtr, stream: IO.STREAM]; PascalOpenTextFileTTYInput: UNSAFE PROCEDURE [ file: PascalTextFilePtr]; PascalOpenTextFileTTYOutput: UNSAFE PROCEDURE [ file: PascalTextFilePtr]; PascalCloseTextFile: UNSAFE PROCEDURE [file: PascalTextFilePtr]; PascalOpenFileWithStream: UNSAFE PROCEDURE [ file: PascalFilePtr, stream: IO.STREAM]; PascalCloseFile: UNSAFE PROCEDURE [file: PascalFilePtr]; END. -- PascalWizardFiles êfile: PascalWizardFiles.mesa last modified by Ramshaw, October 10, 1983 5:34 pm written by McCreight, November 17, 1980 3:13 PM a thin layer of Pascal files on top of IO.STREAM T Y P E S P R O C E D U R E S Called by PasMesa Text File Operations: Binary File Operations: The "length" argument is in units of bytes rather than words, but the only odd value that will ever arise is 1. The Pascal program generates these arguments by utilizing a little-known feature of the SIZE operator in Mesa: if you say SIZE[T, 2], you get back the size in words of a packed array of 2 T's. The latter two arguments don't mean anything, and are just included since PasMesa prefers to generate them. formatted IO for text files reads up to or writes a CR At this point, McCreight included the following ReadString routines, but I don't see how they could ever arise, nor do I see how to make them safe. PascalReadString, PascalReadLongString: PROCEDURE [file: PascalTextFilePtr, item: LONG POINTER TO ??ROPE??]; P R O C E D U R E S NOT Called by PasMesa (and hence, intended to be called as external procedures by the Pascal program, or else from Mesa code that implements such external procedures). text file operations Allocates a new MesaFile and installs the specified stream Allocates a new MesaFile and sets up file to read from the terminal (no pre-read) Allocates a new MesaFile and sets up file to output to the terminal Closes the file, and sets the PascalFile to NIL; the MesaFile must continue to exist however, to avoid collecting non-garbage. binary file operations Allocates a new MesaFile and installs the specified stream Closes the file, and sets the PascalFile to NIL; the MesaFile must continue to exist however, to avoid collecting non-garbage. Ê%˜Jšœ™Jšœ2™2Jšœ0™0J˜Jšœ0™0J˜šÏk ˜ Jšœœœ˜J˜ J˜—Jšœœ œ˜&˜Jšœœ ˜J˜Jšœ ™ J˜Jš œ œœœœ œ˜2Jš œœœœœÏc'˜ZJ˜šœ œœ˜Jšœœœœ˜Jšœœœ˜Jšœœ˜!—Jšœ œœ ˜!J˜šœœœ˜J˜Jšœœœž-˜CJšœž˜/J˜—Jš œœœœœž˜QJ˜Jšœœ˜J˜J˜Jšœ'™'J˜—Jšœ™˜JšÏnœ œ˜5J˜JšŸ œ œ˜3J˜JšŸœ œœ˜LJ˜JšŸ œ œ˜3J˜JšŸœ œ˜5J˜JšŸœ œ˜7J˜JšŸœ œ˜4J˜JšŸ œ œœœ˜EJ˜JšŸœ œœœ˜FJ˜—Jšœ™JšœN™NJšœN™NJšœM™MJšœF™F˜šŸ œ œ˜Jšœœ˜&Jšœ œœ˜J˜—šŸ œœ œ˜Jšœœ˜&Jšœ œœž*œ˜BJ˜—šŸ œ œ˜Jšœœ˜&Jšœ œœž*œ˜BJ˜—šŸ œœ œ˜Jšœœ˜&Jšœ œœž*œ˜BJ˜—šŸ œ œ˜Jšœœ˜*Jš œ œœž*œœ˜H——JšœQ™QJšœ™˜šœ)Ÿœœ œ˜LJšœœ˜&Jšœ œœž*œ˜AJšœœœž*œ˜?J˜—JšŸ œ œœœ˜=J˜—Jšœ™˜šœŸ œ œ˜BJšœ™J˜—JšŸœ œœ˜OJ˜šŸœ œ˜J˜-J˜$J˜—JšŸœ œœ˜IJ˜šŸœ œ˜J˜*J˜0J˜—JšŸœ œœ˜IJ˜šŸœ œ˜J˜OJ˜—JšŸœ œœ˜OJ˜šŸœ œ˜J˜-J˜$J˜—šœŸœœ œ˜DJ˜J˜J˜J˜—šœŸœ œ˜?J˜J˜J˜?J˜——JšœT™TJšœ>™>Jšœ'™'JšœD™D˜šœŸœ œ˜5Jšœœ&˜IJ˜J˜J˜—Jšœ,™,JšœF™FJšœJ™JJ˜—Jšœ™˜šŸœœ œ˜0J˜Jšœœœ˜Jšœ:™:J˜—šŸœœ œ˜.J˜JšœQ™QJ˜—šŸœœ œ˜/J˜JšœC™CJ˜J˜—šŸœœ œ˜BJšœC™CJšœ<™