/** * Returns the pp_indent to use for this line */ int pf_check(struct parse_frame *frm, chunk_t *pc) { int in_ifdef = frm->in_ifdef; int b4_cnt = cpd.frame_count; int pp_level = cpd.pp_level; const char *txt = NULL; chunk_t *next; if (pc->type != CT_PREPROC) { return(pp_level); } next = chunk_get_next(pc); if (pc->parent_type != next->type) { LOG_FMT(LNOTE, "%s: Preproc parent not set correctly on line %d: got %s expected %s\n", __func__, pc->orig_line, get_token_name(pc->parent_type), get_token_name(next->type)); pc->parent_type = next->type; } LOG_FMT(LPFCHK, "%s: %5d] %s\n", __func__, pc->orig_line, get_token_name(pc->parent_type)); pf_log_frms(LPFCHK, "TOP", frm); if ((pc->flags & PCF_IN_PREPROC) != 0) { LOG_FMT(LPF, " <In> "); pf_log(LPF, frm); if (pc->parent_type == CT_PP_IF) { /* An #if pushes a copy of the current frame on the stack */ cpd.pp_level++; pf_push(frm); frm->in_ifdef = CT_PP_IF; txt = "if-push"; } else if (pc->parent_type == CT_PP_ELSE) { pp_level--; /** * For #else of #elif, we want to keep the #if part and throw out the * else parts. * We check to see what the top type is to see if we just push or * pop and then push. * We need to use the copy right before the if. */ if (frm->in_ifdef == CT_PP_IF) { /* we have [...] [base]-[if], so push an [else] */ pf_push(frm); frm->in_ifdef = CT_PP_ELSE; } /* we have [...] [base] [if]-[else], copy [base] over [else] */ pf_copy_2nd_tos(frm); frm->in_ifdef = CT_PP_ELSE; txt = "else-push"; } else if (pc->parent_type == CT_PP_ENDIF) { /** * we may have [...] [base] [if]-[else] or [...] [base]-[if]. * Throw out the [else]. */ cpd.pp_level--; pp_level--; if (frm->in_ifdef == CT_PP_ELSE) { /** * We have: [...] [base] [if]-[else] * We want: [...]-[if] */ pf_copy_tos(frm); /* [...] [base] [if]-[if] */ frm->in_ifdef = cpd.frames[cpd.frame_count - 2].in_ifdef; pf_trash_tos(); /* [...] [base]-[if] */ pf_trash_tos(); /* [...]-[if] */ txt = "endif-trash/pop"; } else if (frm->in_ifdef == CT_PP_IF) { /** * We have: [...] [base] [if] * We want: [...] [base] */ pf_pop(frm); txt = "endif-pop"; } else { txt = "???"; } } } if (txt != NULL) { LOG_FMT(LPF, "%s: %d> %s: %s in_ifdef=%d/%d counts=%d/%d\n", __func__, pc->orig_line, get_token_name(pc->parent_type), txt, in_ifdef, frm->in_ifdef, b4_cnt, cpd.frame_count); pf_log_all(LPF); LOG_FMT(LPF, " <Out>"); pf_log(LPF, frm); } pf_log_frms(LPFCHK, "END", frm); return(pp_level); }
/** * Scans through the whole list and does stuff. * It has to do some tricks to parse preprocessors. * * TODO: This can be cleaned up and simplified - we can look both forward and backward! */ void brace_cleanup(void) { chunk_t *pc; chunk_t vs_chunk; struct parse_frame frm; int pp_level; memset(&frm, 0, sizeof(frm)); cpd.frame_count = 0; cpd.in_preproc = CT_NONE; cpd.pp_level = 0; pc = chunk_get_head(); while (pc != NULL) { /* Check for leaving a #define body */ if ((cpd.in_preproc != CT_NONE) && ((pc->flags & PCF_IN_PREPROC) == 0)) { if (cpd.in_preproc == CT_PP_DEFINE) { /* out of the #define body, restore the frame */ pf_pop(&frm); } cpd.in_preproc = CT_NONE; } /* Check for a preprocessor start */ pp_level = cpd.pp_level; if (pc->type == CT_PREPROC) { pp_level = preproc_start(&frm, pc); } /* Do before assigning stuff from the frame */ if ((cpd.lang_flags & LANG_PAWN) != 0) { if ((frm.pse[frm.pse_tos].type == CT_VBRACE_OPEN) && (pc->type == CT_NEWLINE)) { pc = pawn_check_vsemicolon(pc); } } /* Assume the level won't change */ pc->level = frm.level; pc->brace_level = frm.brace_level; pc->pp_level = pp_level; /** * #define bodies get the full formatting treatment * Also need to pass in the initial '#' to close out any virtual braces. */ if (!chunk_is_comment(pc) && !chunk_is_newline(pc) && ((cpd.in_preproc == CT_PP_DEFINE) || (cpd.in_preproc == CT_NONE))) { cpd.consumed = false; parse_cleanup(&frm, pc); print_stack(LBCSAFTER, (pc->type == CT_VBRACE_CLOSE) ? "Virt-}" : pc->str, &frm, pc); } pc = chunk_get_next(pc); } }
//TODO: This can be cleaned up and simplified - we can look both forward and backward! void brace_cleanup(void) { LOG_FUNC_ENTRY(); chunk_t *pc; parse_frame_t frm; cpd.unc_stage = unc_stage_e::BRACE_CLEANUP; memset(&frm, 0, sizeof(frm)); cpd.frame_count = 0; cpd.in_preproc = CT_NONE; cpd.pp_level = 0; pc = chunk_get_head(); while (pc != nullptr) { // Check for leaving a #define body if (cpd.in_preproc != CT_NONE && (pc->flags & PCF_IN_PREPROC) == 0) { if (cpd.in_preproc == CT_PP_DEFINE) { // out of the #define body, restore the frame pf_pop(&frm); } cpd.in_preproc = CT_NONE; } // Check for a preprocessor start size_t pp_level = cpd.pp_level; if (pc->type == CT_PREPROC) { pp_level = preproc_start(&frm, pc); } // Do before assigning stuff from the frame if (cpd.lang_flags & LANG_PAWN) { if ( (frm.pse[frm.pse_tos].type == CT_VBRACE_OPEN) && pc->type == CT_NEWLINE) { pc = pawn_check_vsemicolon(pc); } } // Assume the level won't change pc->level = frm.level; pc->brace_level = frm.brace_level; pc->pp_level = pp_level; /* * #define bodies get the full formatting treatment * Also need to pass in the initial '#' to close out any virtual braces. */ if ( !chunk_is_comment(pc) && !chunk_is_newline(pc) && (cpd.in_preproc == CT_PP_DEFINE || cpd.in_preproc == CT_NONE)) { cpd.consumed = false; parse_cleanup(&frm, pc); print_stack(LBCSAFTER, (pc->type == CT_VBRACE_CLOSE) ? "Virt-}" : pc->str.c_str(), &frm, pc); } pc = chunk_get_next(pc); } } // brace_cleanup