home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / zindent5.lbr / SYSVAR.IQC / SYSVAR.INC
Text File  |  1986-09-24  |  6KB  |  204 lines
  1.  
  2. (* Include File **************************************************)
  3. (* System Variables, v. 0600am, wed, 17.Sep.86, Glen Ellis *)
  4.  
  5. (* begin of SYSTEM.PAS *)
  6.  
  7. TYPE
  8.  
  9. (*---> Global Reserved Words <---*)
  10.  
  11.     (* general purpose *)
  12.  
  13.     string1    = string[1];
  14.     string2    = string[2];
  15.     string3    = string[3];
  16.     string4    = string[4];
  17.     string5    = string[5];
  18.     string6    = string[6];
  19.     string7    = string[7];
  20.     string8    = string[8];
  21.     string9    = string[9];
  22.     string10   = string[10];
  23.     string11   = string[11];
  24.     string12   = string[12];
  25.     string13   = string[13];
  26.     string14   = string[14];
  27.     string79   = string[79];
  28.     string80   = string[80];
  29.     string127  = string[127];
  30.     string128  = string[128];
  31.     string255  = string[255];
  32.  
  33.     THEstr     = string255;
  34.     lgc        = boolean;
  35.     nbr        = integer;
  36.  
  37.     typF       = text;     (* type of file     *)
  38.     typFN      = string14; (* type of filename *)
  39.  
  40. (*----------------------------------------------------------*)
  41.  
  42.  
  43. VAR
  44.  
  45.    (*---> programmer's control *)
  46.  
  47.    SysDisplay         : lgc; (* normal running display *)
  48.    SysUserTrace       : lgc; (* extra display for user *)
  49.    SysPgmTrace        : lgc; (* audit developmental for programmer *)
  50.    SysSpcTrace        : lgc; (* special, developmental, testing only *)
  51.  
  52.    (*---> I/O flags *)
  53.  
  54.    (* Pascal I/O values                          *)
  55.    SysIOcheck                : lgc ;
  56.    IOval                     : nbr ;
  57.    IOerr                     : lgc ;
  58.  
  59.    (*---> Control Variables *)
  60.  
  61.    (* short names are for sending many vars to procedures *)
  62.    (* without line overflow *)
  63.  
  64.    (* enable keyword search if first 'begin' occurred *)
  65.    SysEnableBegin               : lgc;
  66.    SEB                          : lgc;
  67.  
  68.    (* enable CORE module if all parameters OK    *)
  69.    SysEnableCore                : lgc;  (* SEC *)
  70.    SEC                          : lgc;
  71.  
  72.    (* enable write to disk (ex. if not comment ) *)
  73.    SysMarkWrite                 : lgc;  (* SMW *)
  74.    SMW                          : lgc;
  75.  
  76.    (*---> file handler memvar *)
  77.  
  78.    SysInFile                      : typF;
  79.    SIFF                           : typF;
  80.    SysOutFile                     : typF;
  81.    SOFF                           : typF;
  82.  
  83.    SysInFileName                  : string14;
  84.    SIFN                           : string14;
  85.    SysOutFileName                 : string14;
  86.    SOFN                           : string14;
  87.  
  88.    SysFile0, SysFile1, SysFile2   : string14;
  89.  
  90.  
  91.    (*---> file string *)
  92.  
  93.    SysInStr, SysOutStr         : THEstr   ;
  94.    SISS    , SOSS              : THEstr   ;
  95.  
  96.    SysInLine, SysOutLine       : THEstr   ;
  97.    SILL     , SOLL             : THEstr   ;
  98.  
  99.    SysString                   : THEstr;
  100.  
  101.  
  102.    (*---> utility *)
  103.  
  104.    InFile, OutFile             : typF;
  105.    Line, Workline              : THEstr;
  106.    InStr, OutStr               : Thestr;
  107.  
  108.    str1                           : string1;
  109.    str2                           : string2;
  110.    str3                           : string3;
  111.    str4                           : string4;
  112.    str5                           : string5;
  113.    str6                           : string6;
  114.    str7                           : string7;
  115.    str8                           : string8;
  116.    x,xx,y,yy,z,zz                 : nbr;
  117.    Mark                           : lgc;
  118.  
  119.    (*---> Operating Variables for Core module *)
  120.  
  121.    (* required by Sysline.inc and Sysfile.inc modules *)
  122.  
  123.          SysCmdLine     : lgc;  (* Command Line entry *)
  124.          SCL            : lgc;
  125.  
  126.          SysCmdFile     : lgc;  (* Command File entry *)
  127.          SCF            : lgc;
  128.  
  129.          SysCmdUser     : lgc;  (* Command User entry *)
  130.          SCU            : lgc;
  131.          SysCmdUserFile : lgc;
  132.          SysCmdUserParm : lgc;
  133.  
  134.          SysPgmMod        : string2; (* flag for current development *)
  135.          SPMM             : string2;
  136.  
  137.          SysPgmModStrL    : string2; (* prefix for comment line *)
  138.          SPMSL            : string2;
  139.  
  140.          SysPgmModStrR    : string2; (* suffix for comment line *)
  141.          SPMSR            : string2;
  142.  
  143.          SysPgmType       : string4; (* used by SysParse for SysPgmMod *)
  144.          SPT              : string4;
  145.  
  146.  
  147.          SysComment     : lgc;  (* enable include of comment lines *)
  148.            SysCommentNum  : nbr;  (* temp var                        *)
  149.          SysLineCnt     : lgc;  (* enable line numbering module    *)
  150.            SysLineCntNum  : nbr;
  151.            SysLineNum     : nbr;
  152.          SysVertiate    : lgc; (* vertical markers for blank lines *)
  153.  
  154.          SysCharEntry   : string1; (* gen. purp.entry FETCHER *)
  155.  
  156.          SysIndent      : lgc;  (* enable indent of source lines *)
  157.          SysIndentNum   : nbr;  (* length of indent group          *)
  158.          SIN            : nbr;
  159.  
  160.          SysIndentPos   : nbr;  (* indent position current         *)
  161.          SIP            : nbr;
  162.  
  163.          SysLenMax      : nbr;  (* line length for typF line       *)
  164.          SLM            : nbr;
  165.  
  166.          (* defaults not covered yet *)
  167.  
  168.          SysInSource    : array [1..48] of string14;
  169.          SysInSourceCnt : nbr;
  170.          SysInSourceMax : nbr;
  171.  
  172.          (* required for KEYWORD.INC *)
  173.          (* not all used in any one application *)
  174.          (* rename these if need be  *)
  175.  
  176.          SyslevelIF     : nbr;
  177.          SLI            : nbr;
  178.  
  179.          SyslevelCASE   : nbr;
  180.          SLC            : nbr;
  181.  
  182.          SyslevelWHILE  : nbr;
  183.          SLW            : nbr;
  184.  
  185.          SysLevelBEGIN  : nbr;
  186.          SLB            : nbr;
  187.  
  188.          SysLevelREPEAT : nbr;
  189.          SLR            : nbr;
  190.  
  191.  
  192. (* end of SYS.VAR *)
  193.  
  194. (************************************************************************)
  195.  
  196. (*:B:0*)
  197.    : nbr;
  198.  
  199.  
  200. (* end of SYS.VAR *)
  201.  
  202. (************************************************************************)
  203.  
  204. (*:B:0*