home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PASCAL / PT03.ZIP / GLOBTYPS.INC < prev    next >
Encoding:
Text File  |  1982-11-02  |  734 b   |  26 lines
  1. { globtyps (PC) -- global types for portable tools }
  2.  
  3. TYPE
  4.  character = 0..255;  { byte-sized. ascii + other stuff }
  5.  sstring = super packed array [1..*] of character;
  6.  string = sstring(MAXSTR);
  7.  bigstring = sstring(BIGSTR);
  8.  smlstring = sstring(SMLSTR);
  9.  filedesc = IOERROR..MAXOPEN;
  10.  txtfilp  = ^text;
  11.  txtbufp  = ^lstring(255);
  12.  ioblock = record { to keep track of open files }
  13.   filevar : txtfilp;
  14.   mode : IOERROR..IOWRITE;
  15.   buf : txtbufp;
  16.   cpos : 0..255;
  17.  end;
  18.  outptype = (STDCONS,STDPRT,STDFILE);
  19.  parmptr  = ^parmtype;
  20.  parmstr  = ^superst;
  21.  superst  = super packed array [1..*] of character;
  22.  parmtype = record { linked list of command line parameters }
  23.   parm : parmstr;
  24.   next : parmptr;
  25.  end;
  26.