192 lines
7.5 KiB
Plaintext
192 lines
7.5 KiB
Plaintext
(****************************************
|
||
* *
|
||
* MODULA-2 Multi-Pass Compiler *
|
||
* **************************** *
|
||
* *
|
||
* Implementation for Intel 8086 *
|
||
* *
|
||
* *
|
||
* CompPara: *
|
||
* *
|
||
* parameter module to configurate *
|
||
* the Modula-2 compiler *
|
||
* implementation module may be *
|
||
* changed by the user *
|
||
* *
|
||
* *
|
||
* Version: *
|
||
* 1.10 Nov 23' 1984 *
|
||
* *
|
||
* *
|
||
* Copyright (C) 1984 Logitech. *
|
||
* All Rights Reserved. *
|
||
* *
|
||
* This program is a trade secret of *
|
||
* Logitech, and it is not to be *
|
||
* reproduced, published, disclosed *
|
||
* to others, copied, adapted, *
|
||
* distributed or displayed without *
|
||
* the prior authorization of Logitech *
|
||
* *
|
||
* Licensee agrees to attach or embed *
|
||
* this notice on all copies of the *
|
||
* program, including partial copies *
|
||
* or modified versions thereof. *
|
||
* *
|
||
****************************************)
|
||
DEFINITION MODULE CompPara;
|
||
|
||
EXPORT QUALIFIED
|
||
CPpageLength, CPpageWidth, (* listing definition *)
|
||
CPffAtEnd, CPffAtBegin,
|
||
CPheader, CPdate,
|
||
CPfooter, CPfooterText,
|
||
CPpriorityLevels, (* interrupt system definition: 8259A *)
|
||
CPRTSfunctVector, (* interrupt vector to access to RTS functions *)
|
||
CPemulator, (* default settings of compiler options *)
|
||
CPinteractiv,
|
||
CPstatistic,
|
||
CPquery, CPautoquery,
|
||
CPdebug, CPversion,
|
||
CPlister, CPerrorLister,
|
||
CPafterPass1, CPafterPass2,(* defines moment of listing generation *)
|
||
CPstacktest, CPrangetest, (* default settings of program-source options *)
|
||
CPindextest;
|
||
|
||
VAR
|
||
|
||
(* the following variables are used to define the format of *)
|
||
(* the listing generated by the compiler *)
|
||
|
||
CPpageLength,
|
||
(* number of lines per page : initial value is 60 *)
|
||
(* valid range: 40..65535 (if out of range: 60 is taken) *)
|
||
|
||
CPpageWidth: CARDINAL;
|
||
(* number of characters per line : initial value is 79 *)
|
||
(* valid range: 50..150 (if out of range: 79 is taken) *)
|
||
|
||
(* the next two parameters are used to define the page eject *)
|
||
|
||
CPffAtEnd: BOOLEAN;
|
||
(* defines whether a formfeed at last character *)
|
||
(* is generated or not: initial value is TRUE *)
|
||
|
||
CPffAtBegin: BOOLEAN;
|
||
(* defines whether a formfeed at first character *)
|
||
(* is generated or not: initial value is FALSE *)
|
||
|
||
(* the next two parameters define the header of each page *)
|
||
|
||
CPheader: BOOLEAN;
|
||
(* defines whether a headerline is generated on each *)
|
||
(* page or not: initial value is TRUE *)
|
||
|
||
CPdate: BOOLEAN;
|
||
(* defines whether date in headerline is generated *)
|
||
(* or not: initial value is FALSE *)
|
||
|
||
|
||
(* a header line has the following format: *)
|
||
(* Modula-2/86 Date filename.ext Page n *)
|
||
(* e.g. *)
|
||
(* Modula-2/86 Nov 16'83 COMPPARA.DEF Page 1 *)
|
||
|
||
|
||
(* the next two parameters define the footer of each page *)
|
||
|
||
CPfooter: BOOLEAN;
|
||
(* defines whether a footerline is generated on each *)
|
||
(* page or not: initial value is FALSE *)
|
||
|
||
CPfooterText: ARRAY [0..149] OF CHAR;
|
||
(* string of pagewidth characters that defines the footerline *)
|
||
(* normally used for Copyright text: initially an empty string *)
|
||
|
||
|
||
(* definition of interrupt system: number of priority levels *)
|
||
|
||
CPpriorityLevels: CARDINAL;
|
||
(* initial value of distributed version is 8: *)
|
||
(* defined by the (8259A) interrupt controller(s) *)
|
||
|
||
|
||
(* definition of interface to Run-Time-Support system *)
|
||
|
||
CPRTSfunctVector: CARDINAL;
|
||
(* defines the interrupt vector to acces the RTS *)
|
||
(* RTS: Runtime Support: Assembley part of Modula-2/86 System *)
|
||
(* normally 228: may be only changed if RTS is changed *)
|
||
|
||
|
||
(* the following boolean variable defines whether code for an *)
|
||
(* 8087 coprocessor or an 8087 emulator is generated by the compiler *)
|
||
|
||
CPemulator: BOOLEAN; (* initial value is TRUE *)
|
||
|
||
(* the following options define the interactive behaviour of the compiler *)
|
||
|
||
CPinteractiv: BOOLEAN; (* initial value is TRUE *)
|
||
(* whether compiler may be stopped by typing a key *)
|
||
|
||
CPstatistic: BOOLEAN; (* initial value is TRUE *)
|
||
(* whether compiler displays some statistic values *)
|
||
|
||
CPquery: BOOLEAN; (* initial value is FALSE *)
|
||
(* whether compiler asks for the symbol files of *)
|
||
(* the imported modules or tries to find them by *)
|
||
(* the default strategy: *)
|
||
(* build filename from module name by taking *)
|
||
(* the 8 first characters and the extension 'SYM' *)
|
||
|
||
CPautoquery: BOOLEAN; (* initial value is TRUE *)
|
||
(* whether compiler falls automatically in query mode *)
|
||
(* if it didn't find the file by the default mechanism *)
|
||
|
||
CPdebug: BOOLEAN; (* initial value is TRUE *)
|
||
(* whether compiler generates a reference file *)
|
||
(* that would be used by the debugger, or not *)
|
||
|
||
CPversion: BOOLEAN; (* initial value is FALSE *)
|
||
(* whether compiler displays version info or not *)
|
||
|
||
CPlister: BOOLEAN; (* initial value is FALSE *)
|
||
(* whether compiler generates a listing file or not *)
|
||
|
||
CPerrorLister: BOOLEAN; (* initial value is TRUE *)
|
||
(* whether compiler generates automatically an *)
|
||
(* error listing if errors occured or not *)
|
||
|
||
(* moment of listing generation in case of errors *)
|
||
|
||
(* if both variables are set to FALSE the listing *)
|
||
(* will be generated after pass3 *)
|
||
(* the functions of the different passes are: *)
|
||
(* pass1 checks syntactic of program *)
|
||
(* pass2 checks declaration parts (allocation) *)
|
||
(* pass3 checks bodys (compatibility test) *)
|
||
|
||
|
||
CPafterPass1: BOOLEAN; (* initial value: TRUE *)
|
||
(* whether compiler goes to lister if error detected *)
|
||
(* in pass1 and terminates compilation, or not *)
|
||
|
||
CPafterPass2: BOOLEAN; (* initial value: FALSE *)
|
||
(* whether compiler goes to lister if error detected *)
|
||
(* in pass2 and terminates compilation, or not *)
|
||
|
||
(* the following boolean variables are used to define the default *)
|
||
(* setting of the corresponding testcode options: *)
|
||
(* TRUE means: default is '+'; FALSE means: default is '-' *)
|
||
|
||
CPstacktest: BOOLEAN;
|
||
(* for option 'S': initial value is TRUE *)
|
||
|
||
CPrangetest: BOOLEAN;
|
||
(* for option 'R': initial value is TRUE *)
|
||
|
||
CPindextest: BOOLEAN;
|
||
(* for option 'T': initial value is TRUE *)
|
||
|
||
END CompPara.
|
||
|