static void gml_hp_sf_common( const gmltag * entry, int level, e_tags t )
{
char * p;
entry = entry;
init_nest_cb();
nest_cb->p_stack = copy_to_nest_stack();
if( level >= wgml_font_cnt ) { // invalid font use default
level = 0;
}
nest_cb->font = level;
g_curr_font = level;
nest_cb->c_tag = t;
scan_err = false;
p = scan_start;
if( *p == '.' ) p++; // over '.'
if( *p ) {
process_text( p, g_curr_font );
}
if( !ProcFlags.concat && (input_cbs->fmflags & II_eol) ) {
scr_process_break(); // ensure line is output
}
scan_start = scan_stop + 1;
return;
}
static void gml_xl_lp_common( e_tags t )
{
char * p;
end_lp(); // terminate :LP if active
init_nest_cb();
nest_cb->p_stack = copy_to_nest_stack();
nest_cb->c_tag = t;
scan_err = false;
p = scan_start;
if( *p == '.' ) p++; // possible tag end
if( t != t_LP ) { // text only allowed for :LP
if( t != t_DL && t != t_GL ) { // DL/GL don't require LI/LP
ProcFlags.need_li_lp = true; // :LI or :LP next
}
start_doc_sect(); // if not already done
if( g_line_indent == 0 ) {
ProcFlags.para_starting = false; // clear for this tag's first break
}
scr_process_break();
if( *p ) {
process_text( p, g_curr_font );
}
}
return;
}
void init_nest_cb( bool copy_stack )
{
tag_cb *wk;
wk = alloc_tag_cb();
memset( wk, 0, sizeof( *wk ) );
wk->prev = nest_cb;
wk->gtag = GML_TAG_NONE;
wk->p_stack = NULL;
wk->lay_tag = NULL;
if( nest_cb == NULL ) { // if first one set defaults
wk->left_indent = 0;
wk->right_indent = 0;
wk->post_skip = 0;
wk->tsize = 0;
wk->termhi = 0;
wk->headhi = 0;
wk->dl_break = false;
wk->compact = false;
wk->font = g_curr_font;
}
if( copy_stack ) {
wk->p_stack = copy_to_nest_stack();
}
nest_cb = wk; // new top of stack
return;
}
extern void gml_xmp( const gmltag * entry )
{
char * p;
entry = entry;
start_doc_sect();
scr_process_break();
scan_err = false;
p = scan_start;
if( *p == '.' ) {
/* already at tag end */
} else {
p++;
while( *p == ' ' ) {
p++;
}
if( !strnicmp( "depth=", p, 6 ) ) {
p += 6;
/***************************************************************/
/* Although unsupported, scan depth='xxx' */
/***************************************************************/
g_warn( wng_unsupp_att, "depth" );
wng_count++;
file_mac_info();
while( *p && *p != '.' ) { // ignore all up to tag end
p++;
}
}
}
if( ProcFlags.xmp_active ) { // nested :XMP tag not supported
g_err_tag_nest( "eXMP" );
scan_start = scan_stop + 1;
return;
}
/******************************************************************/
/* test for XMP within :ADDRESS, :FIG , :FN */
/******************************************************************/
if( ProcFlags.address_active ) {
g_err_tag_x_in_y( "XMP", "ADDRESS" );
scan_start = scan_stop + 1;
return;
} else {
if( ProcFlags.fig_active ) {
g_err_tag_x_in_y( "XMP", "FIG" );
scan_start = scan_stop + 1;
return;
} else {
if( ProcFlags.fn_active ) {
g_err_tag_x_in_y( "XMP", "FN" );
scan_start = scan_stop + 1;
return;
}
}
}
ProcFlags.xmp_active = true;
first_xline = true;
font_save = g_curr_font;
g_curr_font = layout_work.xmp.font;
if( nest_cb->c_tag == t_NONE ) {
g_cur_left = g_page_left + conv_hor_unit( &layout_work.xmp.left_indent );
} else {
g_cur_left += conv_hor_unit( &layout_work.xmp.left_indent );
}
g_cur_h_start = g_cur_left;
ProcFlags.keep_left_margin = true; // keep special indent
init_nest_cb();
nest_cb->p_stack = copy_to_nest_stack();
nest_cb->c_tag = t_XMP;
spacing = layout_work.xmp.spacing;
set_skip_vars( NULL, &layout_work.xmp.pre_skip, NULL, spacing, g_curr_font );
ProcFlags.group_elements = true;
justify_save = ProcFlags.justify;
ProcFlags.justify = ju_off; // TBD
if( *p == '.' ) p++; // possible tag end
if( *p ) {
process_text( p, g_curr_font ); // if text follows
}
scan_start = scan_stop + 1;
return;
}
void start_doc_sect( void )
{
bool first_section;
bool header;
bool page_r;
char * h_text;
doc_section ds;
hdsrc hds_lvl;
int k;
page_ej page_e;
uint32_t page_c;
uint32_t page_s;
if( ProcFlags.start_section ) {
return; // once is enough
}
if( !ProcFlags.fb_document_done ) { // the very first section/page
do_layout_end_processing();
}
scr_process_break(); // commit any prior text
first_section = (ProcFlags.doc_sect == doc_sect_none);
ProcFlags.start_section = true;
ProcFlags.keep_left_margin = false;
page_c = layout_work.defaults.columns;
ds = ProcFlags.doc_sect_nxt; // new section
if( ds == doc_sect_none ) {
ds = doc_sect_body; // if text without section start assume body
}
/***********************************************************************/
/* process special section attributes */
/***********************************************************************/
switch( ds ) {
case doc_sect_titlep :
page_c = layout_work.titlep.columns;
page_e = ej_yes;
page_r = false; // no page number reset
header = false; // no header string (ABSTRACT, ... ) output
init_nest_cb();
nest_cb->p_stack = copy_to_nest_stack();
nest_cb->c_tag = t_TITLEP;
nest_cb->p_stack->lineno = titlep_lineno; // correct line number
break;
case doc_sect_abstract :
page_c = layout_work.abstract.columns;
page_e = layout_work.abstract.page_eject;
page_r = layout_work.abstract.page_reset;
page_s = layout_work.hx.hx_sect[hds_abstract].spacing;
header = layout_work.hx.hx_sect[hds_abstract].header;
if( header ) {
h_text = &layout_work.abstract.string;
hds_lvl = hds_abstract;
}
break;
case doc_sect_preface :
page_c = layout_work.preface.columns;
page_e = layout_work.preface.page_eject;
page_r = layout_work.preface.page_reset;
page_s = layout_work.hx.hx_sect[hds_preface].spacing;
header = layout_work.hx.hx_sect[hds_preface].header;
if( header ) {
h_text = &layout_work.preface.string;
hds_lvl = hds_preface;
}
break;
case doc_sect_body :
page_c = layout_work.body.columns;
page_e = layout_work.body.page_eject;
page_r = layout_work.body.page_reset;
page_s = layout_work.hx.hx_sect[hds_body].spacing;
header = layout_work.hx.hx_sect[hds_body].header;
if( header ) {
h_text = &layout_work.body.string;
hds_lvl = hds_body;
}
break;
case doc_sect_appendix :
page_c = layout_work.appendix.columns;
page_e = layout_work.appendix.section_eject;
page_r = layout_work.appendix.page_reset;
page_s = layout_work.hx.hx_sect[hds_appendix].spacing;
header = false; // no section header string output, as such
if( page_e != ej_no ) {
page_e = ej_yes; // "even" and "odd" act like "yes"
}
for( k = 1; k < hds_appendix; k++ ) { // reset heading levels
hd_nums[k].headn = 0;
if( hd_nums[k].headnsub != NULL ) {
*(hd_nums[k].headnsub->value) = '\0';
}
}
break;
case doc_sect_backm :
page_c = layout_work.backm.columns;
page_e = layout_work.backm.page_eject;
page_r = layout_work.backm.page_reset;
page_s = layout_work.hx.hx_sect[hds_backm].spacing;
header = layout_work.hx.hx_sect[hds_backm].header;
if( header ) {
h_text = &layout_work.backm.string;
hds_lvl = hds_backm;
}
break;
case doc_sect_index :
page_c = layout_work.index.columns;
page_e = layout_work.index.page_eject;
page_r = layout_work.index.page_reset;
page_s = layout_work.hx.hx_sect[hds_index].spacing;
header = layout_work.hx.hx_sect[hds_index].header;
if( header ) {
h_text = &layout_work.index.index_string;
hds_lvl = hds_index;
}
break;
case doc_sect_gdoc :
case doc_sect_etitlep :
case doc_sect_frontm :
page_c = layout_work.defaults.columns;
page_e = ej_no; // no page eject
page_r = false; // no page number reset
page_s = layout_work.defaults.spacing; // default spacing
header = false; // no section header
break;
case doc_sect_egdoc :
page_c = layout_work.defaults.columns;
page_e = ej_yes;
page_r = false; // no page number reset
page_s = layout_work.defaults.spacing; // default spacing
header = false; // no section header
break;
default:
internal_err( __FILE__, __LINE__ );
break;
}
if( first_section ) { // nothing precedes the first section
if( page_e == ej_even ) {
do_page_out(); // apage of first page is odd
page = 0; // restart page for first text page
ProcFlags.page_ejected = true;
}
set_section_banners( ds );
reset_t_page();
document_new_position(); // first text page ready for content
} else if( page_e == ej_no ) {
full_page_out(); // ensure are on last page
ProcFlags.page_ejected = false;
set_section_banners( ds );
reset_bot_ban();
} else {
last_page_out(); // ensure last page output
ProcFlags.page_ejected = true; // only first section has nothing to output
if( page_e == ej_odd ) {
if( (page & 1) ) { // first page will be odd
do_page_out(); // emit blank page
}
} else if( page_e == ej_even ) {
if( !(page & 1) ) { // first page will be even
do_page_out(); // emit blank page
}
} else if( page_e != ej_yes ) {
internal_err( __FILE__, __LINE__ );
}
g_skip = 0; // ignore remaining skip value
set_section_banners( ds );
reset_t_page();
}
ProcFlags.doc_sect = ds;
t_page.col_count = page_c;
set_cols();
if( page_r ) {
page = 0;
}
spacing = page_s;
g_cur_left = g_page_left_org;
if( header ) {
line_position = pos_center;
concat_save = ProcFlags.concat;
ProcFlags.concat = true;
justify_save = ProcFlags.justify;
ProcFlags.justify = ju_off;
gen_heading( h_text, NULL, 0, hds_lvl );
g_indent = 0; // reset for section body
ProcFlags.concat = concat_save;
ProcFlags.justify = justify_save;
}
g_curr_font = layout_work.defaults.font;
g_cur_h_start = g_page_left_org + g_indent;
ProcFlags.doc_sect = ds;
}
