static void prep_docnum_line( text_line * p_line, char * p )
{
text_chars * curr_t;
uint32_t h_left;
uint32_t h_right;
h_left = g_page_left + conv_hor_unit( &layout_work.docnum.left_adjust );
h_right = g_page_right - conv_hor_unit( &layout_work.docnum.right_adjust );
if( *p ) {
curr_t = alloc_text_chars( layout_work.docnum.string, 1 + strlen( p ) +
strlen( layout_work.docnum.string ), g_curr_font );
} else {
curr_t = alloc_text_chars( layout_work.docnum.string,
1 + strlen( layout_work.docnum.string ), g_curr_font );
}
if( *p ) {
strcat_s( curr_t->text, curr_t->length, p );
}
curr_t->count = strlen( curr_t->text );
curr_t->count = len_to_trail_space( curr_t->text, curr_t->count );
intrans( curr_t->text, &curr_t->count, g_curr_font );
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
while( curr_t->width > (h_right - h_left) ) { // too long for line
if( curr_t->count < 2) { // sanity check
break;
}
curr_t->count -= 1; // truncate text
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
}
p_line->first = curr_t;
p_line->last = curr_t;
p_line->line_height = wgml_fonts[g_curr_font].line_height;
curr_t->x_address = h_left;
if( layout_work.docnum.page_position == pos_center ) {
if( h_left + curr_t->width < h_right ) {
curr_t->x_address += (h_right - h_left - curr_t->width) / 2;
}
} else if( layout_work.docnum.page_position == pos_right ) {
curr_t->x_address = h_right - curr_t->width;
}
ju_x_start = curr_t->x_address;
return;
}
void start_line_with_string( const char *text, font_number font, bool leave_1space )
{
text_chars *n_char; // new text char
size_t count;
unsigned space_count;
count = strlen( text );
if( count == 0 ) {
return;
}
space_count = 0;
while( *(text + count - 1) == ' ' ) { // strip trailing spaces
space_count++;
if( --count == 0 ) {
break;
}
}
if( leave_1space && space_count > 0 ) {// for ordered :LI keep 1 trailing space
space_count--;
count++;
}
n_char = alloc_text_chars( text, count, font );
n_char->x_address = g_cur_h_start;
ju_x_start = g_cur_h_start;
input_cbs->fmflags &= ~II_sol; // no longer start of line
n_char->width = cop_text_width( n_char->text, n_char->count, font );
/***********************************************************/
/* Test if word hits right margin */
/***********************************************************/
if( n_char->x_address + n_char->width > g_page_right ) {
process_line_full( t_line, ProcFlags.concat );
t_line = alloc_text_line();
n_char->x_address = g_cur_h_start;
}
if( t_line == NULL ) {
t_line = alloc_text_line();
}
if( t_line->first == NULL ) { // first element in output line
t_line->first = n_char;
t_line->line_height = wgml_fonts[font].line_height;
ju_x_start = n_char->x_address;
ProcFlags.line_started = true;
} else {
t_line->last->next = n_char;
n_char->prev = t_line->last;
}
t_line->last = n_char;
g_cur_h_start = n_char->x_address + n_char->width;
post_space = space_count * wgml_fonts[layout_work.defaults.font].spc_width;
}
static void doc_header( su *p_sk, su *top_sk, xx_str *h_string,
font_number font, spacing_line spacing_ln, bool no_eject )
{
doc_element * cur_el;
font_number font_save;
int32_t h_left;
text_chars * curr_t;
text_line * hd_line;
font_save = g_curr_font;
g_curr_font = font;
g_curr_font = font_save;
set_skip_vars( NULL, top_sk, p_sk, spacing_ln, g_curr_font );
if( (h_string == NULL) || (*h_string == '\0') ||
(*h_string == ' ') || (*h_string == '\t') ) {
/********************************************************/
/* header contained "yes" but the string was empty: */
/* the OW docs do this with APPENDIX for PS/PDF output */
/********************************************************/
hd_line = alloc_text_line(); // defaults work
} else {
curr_t = alloc_text_chars( h_string, strlen( h_string ), font );
curr_t->width = cop_text_width( curr_t->text, curr_t->count, font );
h_left = g_page_left +(g_page_right - g_page_left - curr_t->width) / 2;
curr_t->x_address = h_left;
hd_line = alloc_text_line();
hd_line->first = curr_t;
hd_line->line_height = wgml_fonts[font].line_height;
}
if( input_cbs->fmflags & II_research ) {
test_out_t_line( hd_line );
}
cur_el = alloc_doc_el( el_text );
cur_el->blank_lines = g_blank_lines;
g_blank_lines = 0;
cur_el->depth = hd_line->line_height;
cur_el->subs_skip = g_subs_skip;
cur_el->top_skip = g_top_skip;
cur_el->element.text.overprint = ProcFlags.overprint;
ProcFlags.overprint = false;
cur_el->element.text.spacing = g_spacing;
cur_el->element.text.first = hd_line;
ProcFlags.skips_valid = false;
hd_line = NULL;
if( no_eject ) {
insert_col_main( cur_el );
} else {
insert_page_width( cur_el );
}
}
static void prep_date_line( text_line *p_line, const char *p )
{
text_chars * curr_t;
uint32_t h_left;
uint32_t h_right;
symsub * subdate;
int rc;
h_left = g_page_left + conv_hor_unit( &layout_work.date.left_adjust );
h_right = g_page_right - conv_hor_unit( &layout_work.date.right_adjust );
if( *p ) {
curr_t = alloc_text_chars( p, strlen( p ), g_curr_font );
} else {
rc = find_symvar( &global_dict, "date", no_subscript, &subdate );
curr_t = alloc_text_chars( subdate->value, strlen( subdate->value ), g_curr_font );
}
curr_t->count = len_to_trail_space( curr_t->text, curr_t->count );
curr_t->count = intrans( curr_t->text, curr_t->count, g_curr_font );
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
while( curr_t->width > (h_right - h_left) ) { // too long for line
if( curr_t->count < 2) { // sanity check
break;
}
curr_t->count -= 1; // truncate text
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
}
p_line->first = curr_t;
p_line->last = curr_t;
curr_t->x_address = h_left;
if( layout_work.date.page_position == pos_center ) {
if( h_left + curr_t->width < h_right ) {
curr_t->x_address += (h_right - h_left - curr_t->width) / 2;
}
} else if( layout_work.date.page_position == pos_right ) {
curr_t->x_address = h_right - curr_t->width;
}
ju_x_start = curr_t->x_address;
return;
}
static void prep_title_line( text_line * p_line, const char * p )
{
text_chars * curr_t;
uint32_t h_left;
uint32_t h_right;
uint32_t curr_x;
h_left = g_page_left + conv_hor_unit( &layout_work.title.left_adjust, g_curr_font );
h_right = g_page_right - conv_hor_unit( &layout_work.title.right_adjust, g_curr_font );
curr_t = alloc_text_chars( p, strlen( p ), g_curr_font );
curr_t->count = len_to_trail_space( curr_t->text, curr_t->count );
curr_t->count = intrans( curr_t->text, curr_t->count, g_curr_font );
curr_t->font = layout_work.title.font;
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
while( curr_t->width > (h_right - h_left) ) { // too long for line
if( curr_t->count < 2 ) { // sanity check
break;
}
curr_t->count -= 1; // truncate text
curr_t->width = cop_text_width( curr_t->text, curr_t->count, g_curr_font );
}
p_line->first = curr_t;
p_line->last = curr_t;
curr_x = h_left;
if( layout_work.title.page_position == pos_center ) {
if( h_left + curr_t->width < h_right ) {
curr_x += (h_right - h_left - curr_t->width) / 2;
}
} else if( layout_work.title.page_position == pos_right ) {
curr_x = h_right - curr_t->width;
}
curr_t->x_address = curr_x;
ju_x_start = curr_x;
return;
}
extern void gml_note( const gmltag * entry )
{
char * p;
font_number font_save;
text_chars * marker;
uint32_t spc_cnt;
scan_err = false;
p = scan_start;
start_doc_sect(); // if not already done
scr_process_break();
font_save = g_curr_font;
g_curr_font = layout_work.note.font;
set_skip_vars( &layout_work.note.pre_skip, NULL, &layout_work.note.post_skip,
spacing, g_curr_font );
post_space = 0;
if( nest_cb->c_tag == t_NONE ) {
g_cur_left = g_page_left + conv_hor_unit( &layout_work.note.left_indent, g_curr_font );
} else {
g_cur_left += conv_hor_unit( &layout_work.note.left_indent, g_curr_font );
}
g_cur_h_start = g_cur_left;
ProcFlags.keep_left_margin = true; // keep special Note indent
start_line_with_string( layout_work.note.string, layout_work.note.font, false );
/* the value of post_space after start_line_with_string() is wrong for */
/* two reasons: 1) it uses the wrong font; 2) it is at most "1" even if */
/* more than one space appears at the end of the note_string. */
spc_cnt = post_space / wgml_fonts[g_curr_font].spc_width;
post_space = spc_cnt * wgml_fonts[font_save].spc_width;
if( (t_line != NULL) && (t_line->last != NULL) ) {
g_cur_left += t_line->last->width + post_space;
}
g_cur_h_start = g_cur_left;
ju_x_start = g_cur_h_start;
spacing = layout_work.note.spacing;
g_curr_font = layout_work.defaults.font;
set_skip_vars( NULL, NULL, NULL, spacing, g_curr_font );
if( *p == '.' ) p++; // over '.'
while( *p == ' ' ) p++; // skip initial space
if( *p ) { // if text follows
post_space = 0;
process_text( p, g_curr_font );
} else if( !ProcFlags.concat && ProcFlags.has_aa_block &&
(t_line != NULL) && (post_space > 0) ) {
/* only create marker if line not empty, */
/* :NOTE note_string is not nullstring and ends in at least 1 space */
marker = alloc_text_chars( NULL, 0, font_save );
marker->x_address = g_cur_h_start;
if( t_line->first == NULL ) {
t_line->first = marker;
t_line->last = t_line->first;
} else {
marker->prev = t_line->last;
t_line->last->next = marker;
t_line->last = t_line->last->next;
}
post_space = 0;
}
g_curr_font = font_save;
scan_start = scan_stop + 1;
return;
}
static void content_reg( banner_lay_tag * ban )
{
text_chars * curr_t;
char * pbuf;
symsub * symsubval;
int k;
int rc;
switch( ban->region->contents.content_type ) {
case string_content:
pbuf = mem_alloc( buf_size );
*pbuf = '\0';
if( ban->region->script_format ) {
/***************************************************************/
/* substitute variables and create text_chars instances */
/***************************************************************/
for( k = 0; k < 3; ++k ) {
if( ban->region->script_region[k].string != NULL ) {
substitute_vars( pbuf, ban->region->script_region[k].string,
ban->region->script_region[k].len );
if( *pbuf ) {
curr_t = alloc_text_chars( pbuf, strlen( pbuf ), ban->region->font );
/***************************************************/
/* use font 0 for width calculation */
/* even if another font is used for banregion */
/* to get the same result as wgml4 TBD */
/***************************************************/
curr_t->width = cop_text_width( curr_t->text, curr_t->count, 0 );
// ban->region->font );
reg_text[k] = curr_t;
}
}
}
} else { // no script format only normal string with perhaps vars
substitute_vars( pbuf, ban->region->contents.string,
strlen( ban->region->contents.string ) );
if( *pbuf ) {
curr_t = alloc_text_chars( pbuf, strlen( pbuf ), ban->region->font );
/***********************************************************/
/* is font 0 used for width calc? TBD */
/***********************************************************/
curr_t->width = cop_text_width( curr_t->text, curr_t->count, ban->region->font );
if( ban->region->region_position == pos_left ) {
reg_text[0] = curr_t;
} else if( ban->region->region_position == pos_center ) {
reg_text[1] = curr_t;
} else if( ban->region->region_position == pos_right ) {
reg_text[2] = curr_t;
} else {
reg_text[0] = curr_t; // position left if unknown
}
}
}
mem_free( pbuf );
break;
case author_content :
rc = find_symvar( &global_dict, "$author", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "author", 6, ban->region->font );
}
break;
case bothead_content :
rc = find_symvar( &global_dict, "$bothead", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "bothead", 7, ban->region->font );
}
break;
case date_content :
rc = find_symvar( &global_dict, "$date", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "date", 4, ban->region->font );
}
break;
case docnum_content :
rc = find_symvar( &global_dict, "$docnum", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "docnum", 6, ban->region->font );
}
break;
case head0_content :
rc = find_symvar( &global_dict, "$head0", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head0", 5, ban->region->font );
}
break;
case head1_content :
rc = find_symvar( &global_dict, "$head1", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head1", 5, ban->region->font );
}
break;
case head2_content :
rc = find_symvar( &global_dict, "$head2", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head2", 5, ban->region->font );
}
break;
case head3_content :
rc = find_symvar( &global_dict, "$head3", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head3", 5, ban->region->font );
}
break;
case head4_content :
rc = find_symvar( &global_dict, "$head4", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head4", 5, ban->region->font );
}
break;
case head5_content :
rc = find_symvar( &global_dict, "$head5", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head5", 5, ban->region->font );
}
break;
case head6_content :
rc = find_symvar( &global_dict, "$head6", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "head6", 5, ban->region->font );
}
break;
case headnum0_content :
rc = find_symvar( &global_dict, "$hnum0", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum0", 5, ban->region->font );
}
break;
case headnum1_content :
rc = find_symvar( &global_dict, "$hnum1", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum1", 5, ban->region->font );
}
break;
case headnum2_content :
rc = find_symvar( &global_dict, "$hnum2", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum2", 5, ban->region->font );
}
break;
case headnum3_content :
rc = find_symvar( &global_dict, "$hnum3", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum3", 5, ban->region->font );
}
break;
case headnum4_content :
rc = find_symvar( &global_dict, "$hnum4", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum4", 5, ban->region->font );
}
break;
case headnum5_content :
rc = find_symvar( &global_dict, "$hnum5", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum5", 5, ban->region->font );
}
break;
case headnum6_content :
rc = find_symvar( &global_dict, "$hnum6", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "hnum6", 5, ban->region->font );
}
break;
case headtext0_content :
rc = find_symvar( &global_dict, "$htext0", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext0", 5, ban->region->font );
}
break;
case headtext1_content :
rc = find_symvar( &global_dict, "$htext1", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext1", 5, ban->region->font );
}
break;
case headtext2_content :
rc = find_symvar( &global_dict, "$htext2", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext2", 5, ban->region->font );
}
break;
case headtext3_content :
rc = find_symvar( &global_dict, "$htext3", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext3", 5, ban->region->font );
}
break;
case headtext4_content :
rc = find_symvar( &global_dict, "$htext4", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext4", 5, ban->region->font );
}
break;
case headtext5_content :
rc = find_symvar( &global_dict, "$htext5", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext5", 5, ban->region->font );
}
break;
case headtext6_content :
rc = find_symvar( &global_dict, "$htext6", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "htext6", 5, ban->region->font );
}
break;
case pgnuma_content :
rc = find_symvar( &global_dict, "$pgnuma", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnuma", 6, ban->region->font );
}
break;
case pgnumad_content :
rc = find_symvar( &global_dict, "$pgnumad", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnumad", 7, ban->region->font );
}
break;
case pgnumc_content :
rc = find_symvar( &global_dict, "$pgnumc", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnumc", 6, ban->region->font );
}
break;
case pgnumcd_content :
rc = find_symvar( &global_dict, "$pgnumcd", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnumcd", 7, ban->region->font );
}
break;
case pgnumr_content :
rc = find_symvar( &global_dict, "$pgnumr", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnumr", 6, ban->region->font );
}
break;
case pgnumrd_content :
rc = find_symvar( &global_dict, "$pgnumrd", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "pgnumrd", 7, ban->region->font );
}
break;
case sec_content :
rc = find_symvar( &global_dict, "$sec", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "sec", 3, ban->region->font );
}
break;
case stitle_content :
rc = find_symvar( &global_dict, "$stitle", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "stitle", 6, ban->region->font );
}
break;
case title_content :
rc = find_symvar( &global_dict, "$title", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "title", 6, ban->region->font );
}
break;
case time_content :
rc = find_symvar( &global_dict, "$time", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "time", 4, ban->region->font );
}
break;
case tophead_content :
rc = find_symvar( &global_dict, "$tophead", no_subscript, &symsubval );
if( rc == 2 ) {
curr_t = alloc_text_chars( symsubval->value, strlen( symsubval->value ), ban->region->font );
} else {
curr_t = alloc_text_chars( "tophead", 7, ban->region->font );
}
break;
case no_content : // empty region
curr_t = NULL;
// curr_t = alloc_text_chars( "no content", 10, ban->region->font );
break;
default:
// the other possible banner region values are TBD
curr_t = alloc_text_chars( "Dummy region", 12, ban->region->font );
break;
}
if( curr_t == NULL ) {
/* do nothing */
} else {
if( ban->region->contents.content_type != string_content ) {
/***********************************************************/
/* is font 0 used for width calc? TBD */
/***********************************************************/
curr_t->width = cop_text_width( curr_t->text, curr_t->count, ban->region->font );
if( ban->region->region_position == pos_left ) {
reg_text[0] = curr_t;
} else if( ban->region->region_position == pos_center ) {
reg_text[1] = curr_t;
} else if( ban->region->region_position == pos_right ) {
reg_text[2] = curr_t;
} else {
reg_text[0] = curr_t; // position left if invalid
}
}
}
return;
}
static void hx_header( int hx_lvl, const char *hnumstr, const char *txt )
{
doc_element * cur_el;
font_number font_save;
font_number font;
int32_t width;
int32_t widthn;
text_chars * curr_t;
text_chars * curr_tn;
text_line * hd_line;
hd_line = NULL;
font_save = g_curr_font;
g_spacing_ln = layout_work.hx[hx_lvl].spacing;
if( layout_work.hx[hx_lvl].line_break ) {
set_skip_vars( &layout_work.hx[hx_lvl].pre_skip,
&layout_work.hx[hx_lvl].pre_top_skip,
&layout_work.hx[hx_lvl].post_skip,
g_spacing_ln,
layout_work.hx[hx_lvl].number_font );
} else {
set_skip_vars( &layout_work.hx[hx_lvl].pre_skip,
&layout_work.hx[hx_lvl].pre_top_skip,
NULL,
g_spacing_ln,
layout_work.hx[hx_lvl].number_font );
}
post_space = 0;
curr_t = NULL;
curr_tn = NULL;
width = 0;
widthn = 0;
hd_line = alloc_text_line();
if( layout_work.hx[hx_lvl].number_form != num_none ) {
font = layout_work.hx[hx_lvl].number_font;
curr_tn = alloc_text_chars( hnumstr, strlen( hnumstr ), font );
curr_tn->width = cop_text_width( curr_tn->text, curr_tn->count, font );
widthn = curr_tn->width + wgml_fonts[font].spc_width;;
hd_line->first = curr_tn;
hd_line->line_height = wgml_fonts[font].line_height;
hd_line->last = curr_tn;
}
if( (txt != NULL) && (*txt != '\0') ) {
font = layout_work.hx[hx_lvl].font;
curr_t = alloc_text_chars( txt, strlen( txt ), font );
curr_t->width = cop_text_width( curr_t->text, curr_t->count, font );
width = curr_t->width;
if( hd_line->first == NULL ) {
hd_line->first = curr_t;
} else {
curr_tn->next = curr_t;
curr_t->prev = curr_tn;
}
hd_line->last = curr_t;
if( hd_line->line_height < wgml_fonts[font].line_height ) {
hd_line->line_height = wgml_fonts[font].line_height;
}
}
if( curr_t == NULL ) {
curr_t = curr_tn;
curr_tn = NULL;
width = widthn;
widthn = 0;
}
g_cur_left = g_page_left + conv_hor_unit( &layout_work.hx[hx_lvl].indent )
+ conv_hor_unit( &layout_work.hx[hx_lvl].align );
if( layout_work.hx[hx_lvl].page_position == pos_left ) {
if( curr_tn != NULL ) {
curr_tn->x_address = g_cur_left;
}
curr_t->x_address = g_cur_left + widthn;
} else {
if( layout_work.hx[hx_lvl].page_position == pos_center ) {
curr_t->x_address = g_cur_left + widthn
+ (g_page_right - g_cur_left - widthn - width) / 2;
} else {
curr_t->x_address = g_page_right - width;
}
if( curr_tn != NULL ) {
curr_tn->x_address = curr_t->x_address - widthn;
}
}
if( input_cbs->fmflags & II_research ) {
test_out_t_line( hd_line );
}
cur_el = alloc_doc_el( el_text );
cur_el->blank_lines = g_blank_lines;
g_blank_lines = 0;
cur_el->depth = hd_line->line_height;
cur_el->subs_skip = g_subs_skip;
cur_el->top_skip = g_top_skip;
cur_el->element.text.overprint = ProcFlags.overprint;
ProcFlags.overprint = false;
cur_el->element.text.spacing = g_spacing;
cur_el->element.text.first = hd_line;
ProcFlags.skips_valid = false;
hd_line = NULL;
if( layout_work.hx[hx_lvl].page_eject == ej_no ) {
insert_col_main( cur_el );
} else {
insert_page_width( cur_el );
}
}
