| 2112 | // |
| 2113 | |
| 2114 | static act* par_finish() |
| 2115 | { |
| 2116 | act* action = MSC_action(0, ACT_finish); |
| 2117 | |
| 2118 | if (!terminator()) |
| 2119 | while (true) |
| 2120 | { |
| 2121 | gpre_sym* symbol = gpreGlob.token_global.tok_symbol; |
| 2122 | if (symbol && (symbol->sym_type == SYM_database)) |
| 2123 | { |
| 2124 | rdy* ready = (rdy*) MSC_alloc(RDY_LEN); |
| 2125 | ready->rdy_next = (rdy*) action->act_object; |
| 2126 | action->act_object = (ref*) ready; |
| 2127 | ready->rdy_database = (gpre_dbb*) symbol->sym_object; |
| 2128 | CPR_eol_token(); |
| 2129 | } |
| 2130 | else |
| 2131 | CPR_s_error("database handle"); |
| 2132 | if (terminator()) |
| 2133 | break; |
| 2134 | if (!MSC_match(KW_COMMA)) |
| 2135 | break; |
| 2136 | } |
| 2137 | |
| 2138 | if (gpreGlob.sw_language == lang_ada) |
| 2139 | MSC_match(KW_SEMI_COLON); |
| 2140 | return action; |
| 2141 | } |
| 2142 | |
| 2143 | |
| 2144 | //____________________________________________________________ |
no test coverage detected