HP SunSoft Pascal 4.0 Manuel d'utilisateur télécharger pdf (Page 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

Commentaires sur ces manuels

Pas de commentaire

HP SunSoft Pascal 4.0 Manuel d'utilisateur Page 279

Commentaires sur ces manuels

Produits connexes et manuels pour Logiciel HP SunSoft Pascal 4.0