HP SunSoft Pascal 4.0 Manual do Utilizador descarregar pdf (Página 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

Comentários a estes Manuais

Sem comentários

HP SunSoft Pascal 4.0 Manual do Utilizador Página 279

Comentários a estes Manuais

Manuais e produtos relacionados com Software HP SunSoft Pascal 4.0