A

 

Comments

 

The %list directive and the -lcompiler option perform the same function.

 

Example

The Pascal program, list.p

 

program list_example(output);

 

{ This program demonstrates the use of the %list

 

and %nolist directives. }

 

%list;

 

%include 'types.h';

 

%nolist;

 

begin

 

pri := [red, yellow, blue];

 

pos := [true, false];

 

cap := ['A'..'Z'];

 

dig := [0..100];

 

writeln('There are ',card(pri): 4, ' primary colors.');

 

writeln('There are ',card(pos): 4, ' possibilities.');

 

writeln('There are ',card(cap): 4, ' capital letters.'');

 

writeln('There are ',card(dig): 4, ' digits.')

 

end. { list_example }

 

 

The include file, types.h

type

lowints = 0..100;

primary_colors = set of (red, yellow, blue); possibilities = set of boolean; capital_letters = set of 'A'..'Z';

digits = set of lowints;

var

pri: primary_colors;

pos: possibilities;

cap: capital_letters;

dig: digits;

Pascal Preprocessor

261