1 /* ***********************************************************
 2    *                                                         *
 3    * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 4    *                                                         *
 5    *********************************************************** */
 6 
 7 
 8 /* HISTORY COMMENTS:
 9   1) change(86-04-02,Dupuis), approve(86-04-02,MCR7188), audit(86-07-29,GWMay),
10      install(86-07-29,MR12.0-1106):
11      84-12-28 Matthew Pierret: Written so that linus would not use hard-coded
12      reserved words.
13                                                    END HISTORY COMMENTS */
14 
15 /* DESCRIPTION:
16 
17    linus_lila_tokens_
18 */
19 
20 /* HISTORY:
21 Written by Matthew Pierret, 12/27/84.
22 Modified:
23 */
24 /* format: style2,ind3,ll79 */
25 %page;
26 
27 linus_lila_tokens_:
28           procedure ();
29 
30 /* DECLARATIONS */
31 
32 /* Automatic */
33 
34 dcl  (
35       code                              fixed bin (35),
36       1 local_cds_args                  aligned like cds_args,
37 1 local_linus_lila_tokens aligned like linus_lila_tokens
38      )                                  automatic;
39 
40 /* Constant */
41 
42 dcl  (
43       EXCLUDE_ARRAY                     dim (1) char (32) init ("pad*"),
44       MYNAME                            char (32) init ("linus_lila_tokens_")
45      )                                  internal static options (constant);
46 
47 /* Entry */
48 
49 dcl  com_err_                           entry() options(variable),
50      create_data_segment_               entry (ptr, fixed bin(35));
51 
52 /* Builtin */
53 
54 dcl  (addr, hbound, size, unspec)       builtin;
55 
56 %page;
57 
58 local_linus_lila_tokens.version = LINUS_LILA_TOKENS_VERSION_1;
59 local_linus_lila_tokens.language = LINUS_LILA_TOKENS_LANGUAGE_ENGLISH;
60 local_linus_lila_tokens.first_chars = "dfisuw";
61 local_linus_lila_tokens.dup = "dup";
62 local_linus_lila_tokens.differ = "differ";
63 local_linus_lila_tokens.from = "from";
64 local_linus_lila_tokens.inter = "inter";
65 local_linus_lila_tokens.select = "select";
66 local_linus_lila_tokens.unique = "unique";
67 local_linus_lila_tokens.union = "union";
68 local_linus_lila_tokens.where = "where";
69 
70 /* initialize the cds structure */
71 
72           unspec (local_cds_args) = ""b;
73           local_cds_args.sections (1).p = addr (local_linus_lila_tokens);
74           local_cds_args.sections (1).len = size (local_linus_lila_tokens);
75           local_cds_args.sections (1).struct_name = "linus_lila_tokens";
76           local_cds_args.seg_name = MYNAME;
77           local_cds_args.exclude_array_ptr = addr (EXCLUDE_ARRAY);
78           local_cds_args.num_exclude_names = hbound (EXCLUDE_ARRAY, 1);
79           local_cds_args.switches.have_text = "1"b;
80 
81 /* call cds to make the segment */
82 
83           call create_data_segment_ (addr (local_cds_args), code);
84           if code ^= 0
85           then call com_err_ (code, MYNAME);
86 
87           return;
88 
89 /* Include Files */
90 
91 %page;
92 %include cds_args;
93 %page;
94 %include linus_lila_tokens;
95 %page;
96 %include copy_flags;
97 
98 end linus_lila_tokens_;