A

Example

The Pascal program, config.p, which defines the conditional variables one and

two

The output when you compile config.p without the -configoption

The output when you define the variable one

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 }

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

Begin program. End program.

hostname% pc -xl-config one config.p hostname% a.out

Begin program.

One is defined as 32767.

End program.

248

Pascal 4.0 User’s Guide