- Hewlett-Packard User Guide Printer Printer

248 Pascal 4.0 User’s Guide
A
Example
The Pascal program,
config.p, which defines the
conditional variables one and
two
program config_example(output);
{ This program demonstrates the use of the
%config compiler directive. }
var
a: integer := maxint;
b: integer := minint;
%var one two
begin
writeln('Begin program.');
%if one %then
writeln('One is defined as ', a:2, '.');
%elseif two %then
writeln('Two is defined as ', b:2, '.');
%elseif %config %then
writeln('Nothing is defined.');
%endif
writeln('End program.')
end. { config_example }
The output when you compile
config.p without the
-config option
hostname% pc -xl config.p
hostname% a.out
Begin program.
End program.
The output when you define the
variable one
hostname% pc -xl -config one config.p
hostname% a.out
Begin program.
One is defined as 32767.
End program.