5

Using the define Variable Attribute

This example makes global public using the define attribute of the variable declaration.

The program unit,

defvar_prog.p

The module unit, defvar_mod.p, which makes global public using the define attribute

program defvar_prog;

var

global: extern integer;

procedure proc; external;

begin

global := 1;

writeln('From MAIN, before PROC: ', global); proc;

writeln('From MAIN, after PROC: ', global); end. { defvar_prog }

module defvar_mod;

var

global : define integer;

procedure proc;

begin

writeln('From PROC: ',global); global := global + 1;

end; { proc }

82

Pascal 4.0 User’s Guide