mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 23:41:27 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
56 lines
957 B
OpenEdge ABL
56 lines
957 B
OpenEdge ABL
{
|
|
File: TerminalsPriv.p
|
|
|
|
Contains: xxx put contents here xxx
|
|
|
|
Written by: xxx put writers here xxx
|
|
|
|
Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT TerminalsPriv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED TerminalsPriv}
|
|
{$SETC TerminalsPriv := 1}
|
|
|
|
{$I+}
|
|
{$SETC TerminalsPrivIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED Terminals}
|
|
{$I Terminals.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := TerminalsPrivIncludes}
|
|
|
|
TYPE
|
|
LineDataBlock = RECORD
|
|
dataPtr : Ptr;
|
|
dataSize : LONGINT;
|
|
attrPtr : Ptr;
|
|
attrSize : LONGINT;
|
|
|
|
reserved : LONGINT;
|
|
END;
|
|
|
|
PROCEDURE TMPeekLine(hTerm: TermHandle; lineNo: INTEGER;
|
|
VAR theLineData: LineDataBlock);
|
|
|
|
{$ENDC} { TerminalsPriv }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|