1 /* BEGIN INCLUDE FILE ..... tedgvd.incl.pl1 ..... 06/29/82 J Falksen */
 2 
 3 dcl (adr_op         init (01),          /* ( address processing              */
 4 
 5     srepl_op        init (-1),          /* literal replace string            */
 6     sself_op        init (-2),          /* "&" replace                       */
 7     sdup_op         init (-3),          /* "x\=" duplication                 */
 8     seval_op        init (-4),          /* "\g{}" processing                 */
 9     teval_op        init (-5),          /* evaluation test                   */
10     tsrch_op        init (-6),          /* search test                       */
11     tdone_op        init (-7)           /* test succeeds                     */
12     )               fixed bin int static options (constant);
13 
14 dcl comptr          ptr;
15 dcl 1 gvx           based (comptr),     /* compiled gv request               */
16       2 hdr,
17         3 max_len   fixed bin (24),     /* max size available (words)        */
18         3 tot_len   fixed bin (24),     /* total size in use (words)         */
19         3 srch_len  fixed bin (24),     /* search size (words)               */
20         3 mk_list   fixed bin (24),     /* list of mk requests compiled      */
21         3 printing  bit (1),            /* 1- contains "pP=lLtT"             */
22         3 ic        fixed bin,          /* instruction counter               */
23       2 word        (gvx.tot_len) fixed bin (35); /* compiled statement      */
24 
25 dcl cfp             ptr;
26 dcl 1 cf            based (cfp),        /* compiled function                 */
27       2 hdr,
28         3 op        fixed bin,          /* operation                         */
29         3 siz       fixed bin (24),     /* size of structure                 */
30         3 len       fixed bin,          /* length of string                  */
31       2 da          char (cf.len);      /* string data                       */
32 
33 dcl 1 cfmk          based (cfp),        /* compiled mk                       */
34       2 hdr         like cf.hdr,
35       2 cb_r        bit (18) aligned,   /* offset of destination bcb         */
36       2 link        fixed bin;          /* link to next mk entry             */
37 
38 dcl 1 cfa           based (cfp),        /* compiled address                  */
39       2 hdr         like cf.hdr,
40       2 (ad1, ad2)  fixed bin (21);     /* 1st,2nd address values            */
41 
42 dcl 1 cft           based (cfp),        /* compiled test                     */
43       2 hdr         like cf.hdr,
44       2 (t, f)      fixed bin,          /* true/false next location offset   */
45       2 cexpml      fixed bin,          /* max length of expr area           */
46       2 cexpl       fixed bin,          /* length set by tedsrch_$compile    */
47       2 da          char (cft.len);     /* text of {}, compiled //           */
48 
49 dcl 1 cfx           based (cfp),        /* regexp / eval                     */
50       2 hdr         like cf.hdr,
51       2 cexpml      fixed bin,          /* max length of expr area           */
52       2 cexpl       fixed bin,          /* length set by tedsrch_$compile    */
53       2 da          char (cft.len);     /* text of {}, compiled //           */
54 
55 /* END INCLUDE FILE ..... tedgvd.incl.pl1 ..... */