home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / zen / zindent / zinvar.inc < prev   
Encoding:
Text File  |  1987-03-30  |  7.0 KB  |  202 lines
  1.  
  2.  
  3. (*******************************************************************)
  4. (*                                                                 *)
  5. (* Include File                                                    *)
  6. (* System Variables, v. 0630am, sun, 28.Mar.87, Glen Ellis         *)
  7. (*                                                                 *)
  8. (*******************************************************************)
  9.  
  10. (* many of these memvar assignments are not actually utilized
  11. (* within the Zindent program.  They are here because they were
  12. (* required during development, and now they linger.  Some groups
  13. (* of Types and Vars are here just for consistent availability,
  14. (* as a 'pool' from which to draw for development in the future. *)
  15.  
  16. CONST
  17.       (* not used yet, but could be useful for displays *)
  18.       VertBar    = '|';     HorzBar    = '_';
  19.       LCBracket  = '{';     RCBracket  = '}';
  20.       LSBracket  = '[';     RSBracket  = ']';
  21.       Tilde      = '~';
  22.  
  23.  
  24. TYPE
  25.  
  26.     (* general purpose *)
  27.  
  28.     string1    = string[1];
  29.     string2    = string[2];
  30.     string3    = string[3];
  31.     string4    = string[4];
  32.     string5    = string[5];
  33.     string6    = string[6];
  34.     string7    = string[7];
  35.     string8    = string[8];
  36.     string9    = string[9];
  37.     string10   = string[10];
  38.     string11   = string[11];
  39.     string12   = string[12];
  40.     string13   = string[13];
  41.     string14   = string[14];
  42.     string40   = string[40];
  43.     string80   = string[80];
  44.     string127  = string[127];
  45.     string128  = string[128];
  46.     string255  = string[255];
  47.  
  48.     THEstr     = string255;  (* "THE" string is the catch-all ! *)
  49.     lgc        = boolean;    (* short abreviation *)
  50.     nbr        = integer;    (* short abreviation *)
  51.  
  52.     typF       = text;     (* type of file     *)
  53.     typFN      = string14; (* type of filename *)
  54.                (* for MSDOS make typFN much longer ! *)
  55.  
  56. (*----------------------------------------------------------*)
  57.  
  58.  
  59. VAR
  60.  
  61.    (*---> programmer's control *)
  62.  
  63.    SysDisplay         : lgc; (* normal running display *)
  64.    SysUserTrace       : lgc; (* extra display for user *)
  65.    SysPgmTrace        : lgc; (* audit developmental for programmer *)
  66.    SysSpcTrace        : lgc; (* special, developmental, testing only *)
  67.  
  68.    (*---> I/O flags *)
  69.  
  70.    (* Pascal I/O values *)
  71.    SysIOcheck                : lgc ;
  72.    IOval                     : nbr ;
  73.    IOerr                     : lgc ;
  74.  
  75.    (*---> Command Line Entry module *)
  76.    SysLineUse, SysLineCmd, SysLineFil : lgc;
  77.  
  78.    (*---> Control Variables *)
  79.  
  80.    (* long names are for programming readability. *)
  81.    (* short names are for sending many vars to procedures *)
  82.    (*       without line overflow. *)
  83.  
  84.    (* improvement in speed and code side could be obtained by
  85.    (* utilizing the same memvar names throughout the program,
  86.    (* without shuffling between long/short memvars. *)
  87.  
  88.    (* enable Pascal keyword search if first 'begin' occurred *)
  89.    SysEnableBegin               : lgc;
  90.    SEB                          : lgc;
  91.  
  92.    (* enable CORE module if all parameters OK    *)
  93.    SysEnableCore                : lgc;  (* SEC *)
  94.    SEC                          : lgc;
  95.  
  96.    (* enable write to disk (ex. if not comment ) *)
  97.    SysMarkWrite                 : lgc;  (* SMW *)
  98.    SMW                          : lgc;
  99.  
  100.    (*---> file handler memvar *)
  101.  
  102.    SysInFile                      : typF;
  103.    SIFF                           : typF;
  104.    SysOutFile                     : typF;
  105.    SOFF                           : typF;
  106.  
  107.    SysInFileName                  : typFN;
  108.    SIFN                           : typFN;
  109.    SysOutFileName                 : typFN;
  110.    SOFN                           : typFN;
  111.  
  112.    SysFile0, SysFile1, SysFile2   : typFN;
  113.  
  114.  
  115.    (*---> file string *)
  116.  
  117.    SysInStr, SysOutStr         : THEstr   ;  (* I/O string *)
  118.    SISS    , SOSS              : THEstr   ;
  119.  
  120.    SysInLine, SysOutLine       : THEstr   ;  (* I/O line data *)
  121.    SILL     , SOLL             : THEstr   ;
  122.  
  123.    SysString                   : THEstr   ;  (* general string *)
  124.  
  125.  
  126.    (*---> utility *)
  127.  
  128.    InFile, OutFile             : typF;
  129.    Line, Workline              : THEstr;
  130.    StringLine                  : string80;
  131.    InStr, OutStr               : Thestr;
  132.  
  133.    str1                           : string1;
  134.    str2                           : string2;
  135.    str3                           : string3;
  136.    str4                           : string4;
  137.    str5                           : string5;
  138.    str6                           : string6;
  139.    str7                           : string7;
  140.    str8                           : string8;
  141.    str9                           : string9;
  142.    str10                          : string10;
  143.    str11                          : string11;
  144.    str12                          : string12;
  145.    str13                          : string13;
  146.    str14                          : string14;
  147.    x,xx,y,yy,z,zz                 : nbr;
  148.    Mark                           : lgc;
  149.  
  150.    (*---> Operating Variables for Core module *)
  151.  
  152.    (* required by Sysline.inc and Sysfile.inc modules *)
  153.  
  154.    SysCmdLine, SCL    : lgc;  (* Command Line entry *)
  155.    SysCmdFile, SCF    : lgc;  (* Command File entry *)
  156.    SysCmdUser, SCU    : lgc;  (* Command User entry *)
  157.    SysCmdUserFile     : lgc;
  158.    SysCmdUserParm     : lgc;
  159.  
  160.    SysPgmMod, SPMM       : string2; (* flag for current development *)
  161.    SysPgmModStrL, SPMSL  : string2; (* prefix for comment line *)
  162.    SysPgmModStrR,SPMSR   : string2; (* suffix for comment line *)
  163.    SysPgmType, SPT       : string4; (* used by SysParse for SysPgmMod *)
  164.  
  165.    (* defined specifically within modules *)
  166.  
  167.    SysComment     : lgc;  (* enable include of comment lines *)
  168.    SysCommentNum  : nbr;  (* temp var                        *)
  169.    SysLineCnt     : lgc;  (* enable line numbering module    *)
  170.    SysLineCntNum  : nbr;
  171.    SysLineNum     : nbr;
  172.    SysVertiate    : lgc; (* vertical markers for blank lines *)
  173.  
  174.    SysCharEntry   : string1; (* gen. purp.entry FETCHER *)
  175.  
  176.    SysIndent            : lgc;  (* enable indent of source lines *)
  177.    SysIndentNum, SIN    : nbr;  (* length of indent group          *)
  178.    SysIndentPos, SIP    : nbr;  (* indent position current         *)
  179.    SysLenMax, SLM       : nbr;  (* line length for typF line       *)
  180.  
  181.          (* defaults not covered yet *)
  182.  
  183.          (* for FileName list from Text File *)   (*string14*)
  184.          SysInSource    : array [1..48] of typFN;
  185.          SysInSourceCnt : nbr;
  186.          SysInSourceMax : nbr;
  187.  
  188.          (* required for KEYWORD.INC *)
  189.          (* not all used in any one application *)
  190.          (* rename these if need be  *)
  191.  
  192.          SyslevelIF, SLI       : nbr;
  193.          SyslevelCASE, SLC     : nbr;
  194.          SyslevelWHILE, SLW    : nbr;
  195.          SysLevelBEGIN, SLB    : nbr;
  196.          SysLevelREPEAT, SLR   : nbr;
  197.  
  198.  
  199. (* end of SYS.VAR *)
  200.  
  201.  
  202. (*******************************************************************)
  203. (*<<<>>>*)