1 /* BEGIN INCLUDE FILE ..... tedsrch_.incl.pl1 ..... 10/21/82 J Falksen */
 2 
 3 dcl tedsrch_$init_exp entry ( /* initialize an expression area               */
 4           ptr,                /* -> compiled expression area            [IN] */
 5           fixed bin (21));    /*   length of area in words              [IN] */
 6 
 7 dcl tedsrch_$compile entry (  /* compile a regular expression                */
 8           ptr,                /* -> regular expression to compile       [IN] */
 9           fixed bin (21),     /*   length thereof                       [IN] */
10           ptr,                /* -> compiled expression area            [IN] */
11           bit (1)aligned,     /* 0- line mode     1- string mode        [IN] */
12           bit (1)aligned,     /* 0- reg expr      1- literal expr       [IN] */
13           char (168) var,     /* error message                         [OUT] */
14           fixed bin (35)      /* error status code                     [OUT] */
15                     );
16 
17 dcl tedsrch_$search entry (   /* search for expression                       */
18           ptr,                /* -> compiled expression area            [IN] */
19           ptr,                /* -> buffer ctl block for file           [IN] */
20           fixed bin (21),     /* beginning of string to search in file  [IN] */
21           fixed bin (21),     /* end of string to search                [IN] */
22           fixed bin (21),     /* beginning of match                    [OUT] */
23           fixed bin (21),     /* end of match                          [OUT] */
24           fixed bin (21),     /* end of string used for match          [OUT] */
25           char (168)var,      /* error message return                  [OUT] */
26           fixed bin (35)      /* error status code                     [OUT] */
27                     );
28 
29 
30 /* END INCLUDE FILE ..... tedsrch_.incl.pl1 ..... */