Sun Microsystems SunSoft Pascal 4.0, User Manual

Page: 107 / 333

Separate Compilation 83
5
Using the
define
Declaration
This example defines
global
in the module
defvar_mod2
using the
define
declaration. The advantage of using the
define
declaration over the
define
variable attribute is that the
define
declaration can be easily converted to use
include
files.
The commands to compile and
execute
defvar_prog.p
and
defvar_mod.p
hostname% pc -xl defvar_prog.p defvar_mod.p
defvar_prog.p:
defvar_mod.p:
Linking:
hostname% a.out
From MAIN, before PROC: 1
From PROC : 1
From MAIN, after PROC : 2
The program unit,
defvar_prog.p
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 }