/**
* 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
