HP Pascal/iX Programmer's Guide (31502-90023)

9- 22

$literal_alias on$

program dick(input,output

$if 'hpux'$ ,stderr $endif$ );

$if 'hpux'$

type argtype = packed array[1..32000] of char;

argarray= array[0..32000] of ^argtype;

argarrayptr = ^argarray;

var argc $alias '__argc_value'$ : integer;

argv $alias '__argv_value'$ : argarrayptr;

env $alias '_environ'$ : argarrayptr;

procedure p_init_args $alias 'P_INIT_ARGS'$(c:integer;

v,e:argarrayptr); external;

$endif$

procedure u_init_traps $alias 'U_INIT_TRAPS'$; external;

(

Example continued on next page

procedure initialize_pascal_standard_files;

begin

$if 'hpux'$

p_init_args(argc,argv,env); { initialize for module arg }

$endif$

u_init_traps; { initialize for trap handling }

{ now open standard files }

reset(input,'$stdin','shared');

rewrite(output,'$stdlist');

$if 'hpux'$

rewrite(stderr,'$stderr');

$endif$

end;

begin end.