HP SunSoft Pascal 4.0 Bedienungsanleitung PDF herunterladen (Seite 279)

100

101

Pascal Preprocessor 255

Example

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.

The Pascal program,

enable.p. This example sets

the conditional variable two to

true, which is equivalent to

setting the -config option to

two on the command-line.

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 }

The commands to compile and

output enable.p

hostname% pc -xl enable.p

hostname% a.out

Two is defined as -32768.

1 2 ... 274 275 276 277 278 279 280 281 282 283 284 ... 332 333

Kommentare zu diesen Handbüchern

Keine Kommentare

HP SunSoft Pascal 4.0 Bedienungsanleitung Seite 279

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Software HP SunSoft Pascal 4.0