pTAL Reference Manual (H06.03+)

Compiler Directives
HP pTAL Reference Manual—523746-005
17-25
DEFINETOG
For an explanation of directive stacks, see Directive Stacks on page 17-4.
In the DEFEXPAND listing, the DEFINE body appears on lines following the DEFINE
identifier. In the listing:
•
All letters are uppercase.
•
No comments, line boundaries, or extra blanks appear.
•
The lexical level of the DEFINE appears in the left margin, starting at 1.
•
Parameters to the DEFINE appear as #n, where n is the sequence number of the
parameter, starting at 1.
DEFINETOG
DEFINETOG specifies toggles for use in conditional compilation, without changing
their settings. If DEFINETOG is specifying a toggle for the first time, its setting is off.
Default: NODEFEXPAND
Placement: Anywhere
Scope:
•
DEFEXPAND applies to subsequent code it until it is overridden by
NODEFEXPAND
•
NODEFEXPAND applies to subsequent code until it is overridden by
DEFEXPAND
Dependencies: DEFEXPAND has no effect if NOLIST or SUPPRESS is active
References:
•
LIST on page 17-41
•
SUPPRESS on page 17-63
Example 17-16. DEFEXPAND Directive
?DEFEXPAND ! List expanded DEFINEs
DEFINE increment (x) = x := x + 1#; ! Expanded DEFINE
DEFINE decrement (y) = y := y - 1#; ! Expanded DEFINE
! Other global data declarations
toggle-number
,
toggle-name
toggle-number
( )
,
toggle-name
VST212.vsd
DEFINETOG