1 /* ---------------- BEGIN include file ge_environment.incl.pl1 ---------------- */
 2 
 3 /* Last modified 10/20/75 by C. D. Tavares to make items in all structures look
 4    as much alike as possible. */
 5 
 6 dcl  environment_ptr pointer parameter;
 7 
 8 dcl 1 environment aligned based (environment_ptr),
 9     2 stack_p pointer,
10     2 command_p pointer,
11     2 system_symbol_p pointer,
12     2 system_macro_p pointer,
13     2 sym_p pointer,
14     2 mac_p pointer,
15     2 areap pointer,
16     2 at_ptr pointer,
17     2 error_message char (100) varying,
18     2 external_char_table aligned,
19       3 dirname char (168) unaligned,
20       3 ename char (32) unaligned,
21     2 default_char_table aligned like external_char_table,
22     2 cur_char_table aligned like external_char_table;
23 
24 dcl 1 based_system_symbol_list aligned based (system_symbol_p),
25     2 n_system_symbols fixed bin,
26     2 each_system_symbol (0 refer (based_system_symbol_list.n_system_symbols)) aligned,
27       3 system_symbols (2) char (32) varying,
28       3 system_symbol_vector fixed bin;
29 
30 dcl 1 based_system_macro_list aligned based (system_macro_p),
31     2 n_system_macros fixed bin,
32     2 each_system_macro (0 refer (based_system_macro_list.n_system_macros)) aligned,
33       3 system_macros (2) char (32) varying,
34       3 system_macro_vector fixed bin;
35 
36 dcl (stack_p, command_p, system_symbol_p, system_macro_p,
37      sym_p, mac_p, areap, at_ptr) pointer;
38 
39 
40 initialize_ptrs: proc;
41 
42           stack_p = environment.stack_p;
43           command_p = environment.command_p;
44           system_symbol_p = environment.system_symbol_p;
45           system_macro_p = environment.system_macro_p;
46           sym_p = environment.sym_p;
47           mac_p = environment.mac_p;
48           areap = environment.areap;
49           at_ptr = environment.at_ptr;
50 
51           environment.error_message = "";
52 
53           return;
54      end initialize_ptrs;
55 
56 /* ----------------- END include file ge_environment.incl.pl1 ----------------- */