Sun Microsystems SunSoft Pascal 4.0, Руководство пользователя

Страница: 285 / 333

Pascal Preprocessor 261
A
Comments
The
%list
directive and the
-l
compiler 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;