A

The Pascal program, enable.p. This example sets the conditional variable two to true, which is equivalent to setting the -configoption to two on the command-line.

The commands to compile and output enable.p

Example

program enable_example(output);

{This program demonstrates the use of the %enable compiler directive. }

var

a:integer;

b:integer;

%var one, two %enable two

begin

%if one %then

a := maxint;

writeln('One is defined as ', a:2, '.'); %endif

%if two %then

b := minint;

writeln('Two is defined as ', b:2, '.'); %endif

end. { enable_example }

hostname% pc -xl enable.p hostname% a.out

Two is defined as -32768.

The %endif Directive

The %endif directive indicates the end of a %if or %ifdef directive. See the sections on %if and %ifdef for more information on this directive.

The %error Directive

The %error directive causes the compiler to print a string on the standard output and treat it as an error.

Pascal Preprocessor

255