HP SunSoft Pascal 4.0 manual if Directive, Hostname% pc -xl exitdirective.p hostname% a.out

A

The Pascal program,

exit_directive.p

Comments

If the compiler encounters an %exit directive within an include file, it stops processing the include file, but continues processing the source file in which it is included. In effect, %exit is equivalent to an end-of-file marker.

When the compiler processes an %exit directive within an %if or %ifdef construct, it closes all %if or %ifdefs before it stops processing the current file.

Example

program exit_directive(output);

begin

writeln('Hello, world!') end. { exit_directive } %exit

Everything after the %exit is ignored. So you can put anything here.

The commands to compile and execute exit_directive.p

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

Hello, world!

The %if Directive

The %if directive is a conditional branching directive.

Syntax

%if expression %then

.

.

%end if

Pascal Preprocessor 257