mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-01 11:42:10 +00:00
5b0f0cc134
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.
87 lines
2.0 KiB
Plaintext
87 lines
2.0 KiB
Plaintext
;EASE$$$ READ ONLY COPY of file ÒdpCompileOptions.inc.aÓ
|
|
; 1.2 ngk 08/08/1989 Completed definitions to match Pascal definitions
|
|
; Added qCatchFailures
|
|
; 1.1 ngk 06/11/1989 Added STRING ASIS to DebugerSymbol macro definition
|
|
; 1.0 ngk 05/19/1989 Submitted for first time
|
|
; END EASE MODIFICATION HISTORY
|
|
;************************************************************************
|
|
;*
|
|
;* File: dpCompileOptions.inc.a
|
|
;*
|
|
;* Data Publication Manager
|
|
;*
|
|
;* by Nick Kledzik
|
|
;* May 17, 1989
|
|
;*
|
|
;* qRangeCheck ==> overflow checking of numbers, range checking of arrays
|
|
;* qUnInit ==> all variables are initialized to $7267...
|
|
;* qNames ==> all procedures and functions have MacsBug symbols
|
|
;* qCatchFailures ==> each failure handler breaks into MacsBug on failure
|
|
;*
|
|
;* qDebug ==> qRangeCheck, qUnInit, qNames, qCatchFailures
|
|
;*
|
|
;************************************************************************
|
|
|
|
|
|
|
|
|
|
; by defualt qDebug is False
|
|
IF &TYPE('qDebug') = 'UNDEFINED' THEN
|
|
qDebug Equ 0
|
|
ELSE
|
|
qDebug Equ 1
|
|
ENDIF
|
|
|
|
|
|
; If qDebug is True, set the default for others to be true
|
|
IF qDebug <> 0 THEN
|
|
|
|
IF &TYPE('qRangeCheck') = 'UNDEFINED' THEN
|
|
qRangeCheck Equ 1
|
|
ENDIF
|
|
|
|
IF &TYPE('qUnInit') = 'UNDEFINED' THEN
|
|
qUnInit Equ 1
|
|
ENDIF
|
|
|
|
IF &TYPE('qNames') = 'UNDEFINED' THEN
|
|
qNames Equ 1
|
|
ENDIF
|
|
|
|
IF &TYPE('qCatchFailures') = 'UNDEFINED' THEN
|
|
qCatchFailures Equ 1
|
|
ENDIF
|
|
|
|
ENDIF ; qDebug
|
|
|
|
|
|
; Set the default for the undefined ones to be False
|
|
IF &TYPE('qRangeCheck') = 'UNDEFINED' THEN
|
|
qRangeCheck Equ 0
|
|
ENDIF
|
|
|
|
IF &TYPE('qUnInit') = 'UNDEFINED' THEN
|
|
qUnInit Equ 0
|
|
ENDIF
|
|
|
|
IF &TYPE('qNames') = 'UNDEFINED' THEN
|
|
qNames Equ 0
|
|
ENDIF
|
|
|
|
IF &TYPE('qCatchFailures') = 'UNDEFINED' THEN
|
|
qCatchFailures Equ 0
|
|
ENDIF
|
|
|
|
|
|
|
|
; Only define the DebugerSymbol macro if qNames is True
|
|
IF qNames <> 0 THEN
|
|
MACRO
|
|
DebugerSymbol &name
|
|
STRING ASIS
|
|
DC.B $80 + &LEN(&name), '&name'
|
|
DC.W $0000
|
|
ENDM
|
|
ENDIF ; qNames
|
|
|