Lines Matching refs:cgl
73 } cgl;
361 else if (!strstr(format, "arning")) TT.cgl.compile_error_count++;
1303 if (TT.cgl.in_print_stmt && ! TT.cgl.paren_level && (tok == tkgt || tok == tkpipe))
1447 TT.cgl.paren_level++;
1517 TT.cgl.paren_level--;
1556 TT.cgl.paren_level++;
1571 TT.cgl.paren_level--;
1767 TT.cgl.paren_level++;
1774 TT.cgl.paren_level--;
1945 TT.cgl.in_print_stmt = 1;
1965 TT.cgl.in_print_stmt = 0;
2054 *brk = TT.cgl.break_dest;
2055 *cont = TT.cgl.continue_dest;
2060 TT.cgl.break_dest = *brk;
2061 TT.cgl.continue_dest = *cont;
2070 TT.cgl.continue_dest = TT.zcode_last + 1;
2074 TT.cgl.break_dest = TT.zcode_last + 1;
2078 ZCODE[TT.zcode_last] = TT.cgl.continue_dest - TT.zcode_last - 1;
2079 ZCODE[TT.cgl.break_dest + 1] = TT.zcode_last - TT.cgl.break_dest - 1;
2090 TT.cgl.continue_dest = TT.zcode_last + 1;
2092 TT.cgl.break_dest = TT.zcode_last + 1;
2104 ZCODE[TT.cgl.continue_dest + 1] = TT.zcode_last - TT.cgl.continue_dest - 1;
2110 gen2cd(tkwhile, TT.cgl.break_dest - TT.zcode_last - 1);
2111 ZCODE[TT.cgl.break_dest + 1] = TT.zcode_last - TT.cgl.break_dest - 1;
2130 TT.cgl.break_dest = TT.zcode_last + 1;
2132 TT.cgl.continue_dest = TT.zcode_last + 1;
2136 ZCODE[TT.cgl.break_dest - 1] = TT.zcode_last - TT.cgl.break_dest + 1;
2138 gen2cd(opjump, TT.cgl.continue_dest - TT.zcode_last - 3);
2139 ZCODE[TT.cgl.break_dest + 1] = TT.zcode_last - TT.cgl.break_dest - 1;
2174 TT.cgl.continue_dest = TT.zcode_last + 1;
2176 TT.cgl.break_dest = TT.zcode_last + 1;
2181 TT.cgl.stack_offset_to_fix += 3;
2183 TT.cgl.stack_offset_to_fix -= 3;
2184 gen2cd(opjump, TT.cgl.continue_dest - TT.zcode_last - 3);
2185 ZCODE[TT.cgl.break_dest + 1] = TT.zcode_last - TT.cgl.break_dest - 1;
2202 if (TT.cgl.break_dest) gen2cd(tkbreak, TT.cgl.break_dest - TT.zcode_last - 3);
2208 if (TT.cgl.continue_dest)
2209 gen2cd(tkcontinue, TT.cgl.continue_dest - TT.zcode_last - 3);
2216 if (TT.cgl.rule_type) XERR("%s", "next inside BEGIN or END\n");
2217 if (TT.cgl.in_function_body) XERR("%s", "next inside function def\n");
2223 if (TT.cgl.rule_type) XERR("%s", "nextfile inside BEGIN or END\n");
2224 if (TT.cgl.in_function_body) XERR("%s", "nextfile inside function def\n");
2237 if (TT.cgl.stack_offset_to_fix) gen2cd(opdrop_n, TT.cgl.stack_offset_to_fix);
2241 gen2cd(tkreturn, TT.cgl.nparms);
2242 if (!TT.cgl.in_function_body) XERR("%s", "return outside function def\n");
2277 TT.cgl.nparms++;
2309 TT.cgl.funcnum = funcnum;
2310 TT.cgl.nparms = 0;
2325 TT.cgl.in_function_body = 1;
2327 TT.cgl.in_function_body = 0;
2330 gen2cd(tkreturn, TT.cgl.nparms);
2386 if (TT.cgl.last_begin) ZCODE[TT.cgl.last_begin] = TT.zcode_last - TT.cgl.last_begin;
2387 else TT.cgl.first_begin = TT.zcode_last + 1;
2389 TT.cgl.rule_type = tkbegin;
2391 TT.cgl.rule_type = 0;
2393 TT.cgl.last_begin = TT.zcode_last;
2398 if (TT.cgl.last_end) ZCODE[TT.cgl.last_end] = TT.zcode_last - TT.cgl.last_end;
2399 else TT.cgl.first_end = TT.zcode_last + 1;
2401 TT.cgl.rule_type = tkbegin;
2403 TT.cgl.rule_type = 0;
2405 TT.cgl.last_end = TT.zcode_last;
2409 if (TT.cgl.last_recrule)
2410 ZCODE[TT.cgl.last_recrule] = TT.zcode_last - TT.cgl.last_recrule;
2411 else TT.cgl.first_recrule = TT.zcode_last + 1;
2414 TT.cgl.last_recrule = TT.zcode_last;
2421 if (TT.cgl.last_recrule)
2422 ZCODE[TT.cgl.last_recrule] = TT.zcode_last - TT.cgl.last_recrule;
2423 else TT.cgl.first_recrule = TT.zcode_last + 1;
2432 gen2cd(oprange2, ++TT.cgl.range_pattern_num);
2436 ZCODE[saveloc-1] = TT.cgl.range_pattern_num;
2439 gen2cd(oprange3, TT.cgl.range_pattern_num);
2449 TT.cgl.last_recrule = TT.zcode_last;
2477 if (TT.cgl.last_begin) ZCODE[TT.cgl.last_begin-1] = opquit;
2478 if (TT.cgl.last_end) ZCODE[TT.cgl.last_end-1] = opquit;
2479 if (TT.cgl.last_recrule) ZCODE[TT.cgl.last_recrule-1] = opquit;
2486 if (TT.cgl.first_end && !TT.cgl.first_recrule) {
2488 TT.cgl.first_recrule = TT.zcode_last;
4453 if ((r = interp(TT.cgl.first_recrule, status)) == tknextfile) next_fp();
4479 if (TT.cgl.first_begin) r = interp(TT.cgl.first_begin, &status);
4481 if (TT.cgl.first_recrule) run_files(&status);
4482 if (TT.cgl.first_end) r = interp(TT.cgl.first_end, &status);
4516 if (TT.cgl.compile_error_count)
4517 error_exit("%d syntax error(s)", TT.cgl.compile_error_count);
4523 return TT.cgl.compile_error_count;