int ipf_trans_line(
/*****************/
section_def *section,
int alloc_size
) {
char *ptr;
char *end;
int ch;
char *ctx_name;
char *ctx_text;
char buf[500];
int font_idx;
int line_len;
bool term_fix;
int ch_len;
int len;
char *file_name;
/* check for special column 0 stuff first */
ptr = Line_buf;
ch = *(unsigned char *)ptr;
ch_len = 0;
line_len = 0;
switch( ch ) {
case CH_TABXMP:
if( *skip_blank( ptr + 1 ) == '\0' ) {
Tab_xmp = FALSE;
trans_add_str( ":exmp.\n", section, &alloc_size );
Blank_line_sfx = FALSE; // remove following blanks
} else {
read_tabs( ptr + 1 );
trans_add_str( ":xmp.\n", section, &alloc_size );
Tab_xmp = TRUE;
Blank_line_pfx = FALSE; // remove preceding blanks
}
return( alloc_size );
case CH_BOX_ON:
/* Table support is the closest thing to boxing in IPF, but it
doesn't work well with changing fonts on items in the tables
(the edges don't line up). So we draw long lines at the
top and bottom instead */
draw_line( section, &alloc_size );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_BOX_OFF:
draw_line( section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_OLIST_START:
trans_add_list( ":ol", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_LIST_START:
trans_add_list( ":ul", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_DLIST_START:
trans_add_str( ":dl break=all tsize=5.\n", section, &alloc_size );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_SLIST_START:
trans_add_list( ":sl", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_SLIST_END:
trans_add_str( ":esl.\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_OLIST_END:
trans_add_str( ":eol.\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_LIST_END:
trans_add_str( ":eul.\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_DLIST_END:
trans_add_str( ":edl.\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_LIST_ITEM:
case CH_DLIST_TERM:
/* eat blank lines before list items and terms */
Blank_line_pfx = FALSE;
break;
case CH_CTX_KW:
ptr = whole_keyword_line( ptr );
if( ptr == NULL ) {
return( alloc_size );
}
break;
}
if( *skip_blank( ptr ) == '\0' ) {
/* ignore blanks lines before the topic starts */
if( !Curr_ctx->empty ) {
/* the line is completely blank. This tells us to output
a blank line. BUT, all lists and things automatically
generate blank lines before they display, so we
must pend the line */
Blank_line_pfx = TRUE;
}
return( alloc_size );
}
/* An explanation of 'Blank_line_pfx': when we hit a blank line,
we set Blank_line_pfx to TRUE. On the non-tag next line, the
blank line is generated.
Some tags automatically generate a blank line, so they
turn this flag off. This causes the next non-tag line to NOT
put out the blank line */
if( Blank_line_pfx ) {
if( Blank_line_sfx ) {
line_len += trans_add_str( ".br\n", section, &alloc_size );
}
Blank_line_pfx = FALSE;
}
/* An explanation of 'Blank_line_sfx': some ending tags automatically
generate a blank line, so no blank line after them should get
generated. Normally, this flag is set to TRUE, but ending
tags and Defn list term tags set this FALSE, so no extra '.br'
is generated.
But, this rule only applies if a blank line immediately
follows the tag, so its reset here regardless */
Blank_line_sfx = TRUE;
ch = *(unsigned char *)ptr;
if( ch != CH_LIST_ITEM && ch != CH_DLIST_TERM && ch != CH_DLIST_DESC && !Tab_xmp ) {
/* a .br in front of li and dt would generate extra spaces */
line_len += trans_add_str( ".br\n", section, &alloc_size );
}
term_fix = FALSE;
for( ;; ) {
ch = *(unsigned char *)ptr;
if( ch == '\0' ) {
if( term_fix ) {
trans_add_str( ":ehp2.", section, &alloc_size );
term_fix = FALSE;
}
trans_add_char( '\n', section, &alloc_size );
break;
} else if( ch == CH_HLINK || ch == CH_DFN ) {
Curr_ctx->empty = FALSE;
/* there are no popups in IPF, so treat them as links */
ctx_name = ptr + 1;
ptr = strchr( ptr + 1, ch );
if( ptr == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ptr = '\0';
ctx_text = ptr + 1;
ptr = strchr( ctx_text + 1, ch );
if( ptr == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ptr = '\0';
add_link( ctx_name );
sprintf( buf, ":link reftype=hd refid=%s.", ctx_name );
line_len += trans_add_str( buf, section, &alloc_size );
line_len += trans_add_str_ipf( ctx_text, section, &alloc_size );
ch_len += strlen( ctx_text );
line_len += trans_add_str( ":elink.", section, &alloc_size );
++ptr;
} else if( ch == CH_FLINK ) {
Curr_ctx->empty = FALSE;
file_name = strchr( ptr + 1, ch );
if( file_name == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
ctx_name = strchr( file_name + 1, ch );
if( ctx_name == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
ctx_text = strchr( ctx_name + 1, ch );
if( ctx_text == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ctx_text = '\0';
ctx_text = ctx_name + 1;
*ctx_name = '\0';
ctx_name = file_name + 1;
*file_name = '\0';
file_name = ptr + 1;
sprintf( buf, ":link reftype=launch object='view.exe' "
"data='%s %s'.", file_name, ctx_name );
line_len += trans_add_str( buf, section, &alloc_size );
line_len += trans_add_str_ipf( ctx_text, section, &alloc_size );
ch_len += strlen( ctx_text );
line_len += trans_add_str( ":elink.", section, &alloc_size );
ptr = ctx_text + strlen( ctx_text ) + 1;
} else if( ch == CH_LIST_ITEM ) {
/* list item */
line_len += trans_add_str( ":li.", section, &alloc_size );
ptr = skip_blank( ptr + 1 );
} else if( ch == CH_DLIST_DESC ) {
trans_add_str( ":dd.", section, &alloc_size );
ptr = skip_blank( ptr + 1 );
} else if( ch == CH_DLIST_TERM ) {
/* definition list term */
ptr = skip_blank( ptr + 1 );
if( *(unsigned char *)ptr == CH_FONTSTYLE_START ) { /* avoid nesting */
line_len += trans_add_str( ":dt.", section, &alloc_size );
Blank_line_sfx = FALSE;
} else {
line_len += trans_add_str( ":dt.:hp2.", section, &alloc_size );
term_fix = TRUE;
Blank_line_sfx = FALSE;
}
} else if( ch == CH_CTX_KW ) {
end = strchr( ptr + 1, CH_CTX_KW );
memcpy( buf, ptr + 1, end - ptr - 1 );
buf[end - ptr - 1] = '\0';
add_ctx_keyword( Curr_ctx, buf );
ptr = end + 1;
if( *ptr == ' ' ) {
/* kludge fix cuz of GML: GML thinks that keywords are
are real words, so it puts a space after them.
This should fix that */
++ptr;
}
} else if( ch == CH_PAR_RESET ) {
/* this can be ignored for IPF */
++ptr;
} else if( ch == CH_BMP ) {
Curr_ctx->empty = FALSE;
++ptr;
ch = *(unsigned char *)ptr;
ptr += 2;
end = strchr( ptr, CH_BMP );
*end = '\0';
switch( ch ) {
case 'i':
sprintf( buf, ":artwork runin name='%s'.", ptr );
break;
case 'l':
sprintf( buf, ":artwork align=left name='%s'.", ptr );
break;
case 'r':
sprintf( buf, ":artwork align=right name='%s'.", ptr );
break;
case 'c':
sprintf( buf, ":artwork align=center name='%s'.", ptr );
break;
}
line_len += trans_add_str( buf, section, &alloc_size );
ptr = end + 1;
} else if( ch == CH_FONTSTYLE_START ) {
++ptr;
end = strchr( ptr, CH_FONTSTYLE_START );
font_idx = 0;
for( ; ptr != end; ++ptr ) {
switch( *ptr ) {
case 'b':
font_idx |= FONT_STYLE_BOLD;
break;
case 'i':
font_idx |= FONT_STYLE_ITALIC;
break;
case 'u':
case 's':
font_idx |= FONT_STYLE_UNDERLINE;
break;
}
}
line_len += trans_add_str( Font_match[font_idx],
section, &alloc_size );
Font_list[Font_list_curr] = font_idx;
++Font_list_curr;
++ptr;
} else if( ch == CH_FONTSTYLE_END ) {
--Font_list_curr;
line_len += trans_add_str( Font_end[Font_list[Font_list_curr]],
section, &alloc_size );
++ptr;
} else if( ch == CH_FONTTYPE ) {
++ptr;
end = strchr( ptr, CH_FONTTYPE );
*end = '\0';
strcpy( buf, ":font facename=" );
if( Real_ipf_font ) {
/* This code supports fonts in the expected
manor, but not in the usual IPF way. In IPF, font switching
(including sizing) is NEVER done, except to Courier for
examples. So, this code is inappropriate */
if( stricmp( ptr, Fonttype_roman ) == 0 ) {
strcat( buf, "'Tms Rmn'" );
} else if( stricmp( ptr, Fonttype_helv ) == 0 ) {
strcat( buf, "Helv" );
} else {
/* Symbol doesn't work,so use courier instead */
strcat( buf, "Courier" );
}
line_len += trans_add_str( buf, section, &alloc_size );
ptr = end + 1;
end = strchr( ptr, CH_FONTTYPE );
*end = '\0';
sprintf( buf, " size=%dx10.", atoi( ptr ) );
} else {
/* this code turns all font changes to the default system
font, except for Courier. This is the normal IPF way */
strcat( buf, "Courier" );
if( stricmp( ptr, Fonttype_courier ) == 0 ) {
strcat( buf, " size=12x10." );
} else {
/* default system font */
strcat( buf, " size=0x0." );
}
ptr = end + 1;
end = strchr( ptr, CH_FONTTYPE );
}
line_len += trans_add_str( buf, section, &alloc_size );
ptr = end + 1;
} else {
++ptr;
Curr_ctx->empty = FALSE;
if( Tab_xmp && ch == Tab_xmp_char ) {
len = tab_align( ch_len, section, &alloc_size );
ch_len += len;
line_len += len;
ptr = skip_blank( ptr );
} else {
line_len += trans_add_char_ipf( ch, section, &alloc_size );
++ch_len;
}
if( line_len > 120 && ch == ' ' && !Tab_xmp ) {
/* break onto the next line */
line_len = 0;
trans_add_char( '\n', section, &alloc_size );
}
}
}
return( alloc_size );
}
int html_trans_line( section_def *section, int alloc_size )
/*********************************************************/
{
char *ptr;
char *end;
int ch;
char *ctx_name;
char *ctx_text;
char buf[ 500 ];
int font_idx;
int line_len;
bool term_fix;
int ch_len;
int len;
char *file_name;
/* check for special column 0 stuff first */
ptr = Line_buf;
ch = *(unsigned char *)ptr;
ch_len = 0;
line_len = 0;
switch( ch ) {
case CH_TABXMP:
if( *skip_blank( ptr + 1 ) == '\0' ) {
Tab_xmp = FALSE;
trans_add_str( "</xmp>\n", section, &alloc_size );
Blank_line_sfx = FALSE; // remove following blanks
} else {
read_tabs( ptr + 1 );
trans_add_str( "<xmp>\n", section, &alloc_size );
Tab_xmp = TRUE;
Blank_line_pfx = FALSE; // remove preceding blanks
}
return( alloc_size );
case CH_BOX_ON:
/* Table support is the closest thing to boxing in IPF, but it
doesn't work well with changing fonts on items in the tables
(the edges don't line up). So we draw long lines at the
top and bottom instead */
draw_line( section, &alloc_size );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_BOX_OFF:
draw_line( section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_OLIST_START:
trans_add_list( "<OL>\n", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_LIST_START:
trans_add_list( "<UL>\n", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_DLIST_START:
trans_add_str( "<DL>\n", section, &alloc_size );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_SLIST_START:
trans_add_list( "<UL>\n", section, &alloc_size, ptr );
Blank_line_pfx = FALSE;
return( alloc_size );
case CH_SLIST_END:
trans_add_str( "</UL>\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_OLIST_END:
trans_add_str( "</OL>\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_LIST_END:
trans_add_str( "</UL>\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_DLIST_END:
trans_add_str( "</DL>\n", section, &alloc_size );
Blank_line_sfx = FALSE;
return( alloc_size );
case CH_LIST_ITEM:
case CH_DLIST_TERM:
/* eat blank lines before list items and terms */
Blank_line_pfx = FALSE;
break;
case CH_CTX_KW:
ptr = whole_keyword_line( ptr );
if( ptr == NULL ) {
return( alloc_size );
}
break;
}
if( *skip_blank( ptr ) == '\0' ) {
/* ignore blanks lines before the topic starts */
if( !Curr_ctx->empty ) {
/* the line is completely blank. This tells us to output
a blank line. BUT, all lists and things automatically
generate blank lines before they display, so we
must pend the line */
Blank_line_pfx = TRUE;
}
return( alloc_size );
}
/* An explanation of 'Blank_line_pfx': when we hit a blank line,
we set Blank_line_pfx to TRUE. On the non-tag next line, the
blank line is generated.
Some tags automatically generate a blank line, so they
turn this flag off. This causes the next non-tag line to NOT
put out the blank line */
if( Blank_line_pfx ) {
if( Blank_line_sfx ) {
line_len += trans_add_str( "<BR>", section, &alloc_size );
}
Blank_line_pfx = FALSE;
}
/* An explanation of 'Blank_line_sfx': some ending tags automatically
generate a blank line, so no blank line after them should get
generated. Normally, this flag is set to TRUE, but ending
tags and Defn list term tags set this FALSE, so no extra '<BR>'
is generated.
But, this rule only applies if a blank line immediately
follows the tag, so its reset here regardless */
Blank_line_sfx = TRUE;
ch = *(unsigned char *)ptr;
if( ch != CH_LIST_ITEM && ch != CH_DLIST_TERM && ch != CH_DLIST_DESC && !Tab_xmp ) {
/* a .br in front of li and dt would generate extra spaces */
line_len += trans_add_str( "<BR>", section, &alloc_size );
}
term_fix = FALSE;
for( ;; ) {
ch = *(unsigned char *)ptr;
if( ch == '\0' ) {
if( term_fix ) {
// trans_add_str( "</hp2>", section, &alloc_size );
term_fix = FALSE;
}
trans_add_char( '\n', section, &alloc_size );
break;
} else if( ch == CH_HLINK || ch == CH_DFN ) {
Curr_ctx->empty = FALSE;
/* there are no popups in IPF, so treat them as links */
ctx_name = ptr + 1;
ptr = strchr( ptr + 1, ch );
if( ptr == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ptr = '\0';
ctx_text = ptr + 1;
ptr = strchr( ctx_text + 1, ch );
if( ptr == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ptr = '\0';
add_link( ctx_name );
sprintf( buf, "<A HREF=\"#%s\">", ctx_name );
line_len += trans_add_str( buf, section, &alloc_size );
line_len += trans_add_str_html( ctx_text, section, &alloc_size );
ch_len += strlen( ctx_text );
line_len += trans_add_str( "</A>", section, &alloc_size );
++ptr;
} else if( ch == CH_FLINK ) {
Curr_ctx->empty = FALSE;
file_name = strchr( ptr + 1, ch );
if( file_name == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
ctx_name = strchr( file_name + 1, ch );
if( ctx_name == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
ctx_text = strchr( ctx_name + 1, ch );
if( ctx_text == NULL ) {
error( ERR_BAD_LINK_DFN, TRUE );
}
*ctx_text = '\0';
ctx_text = ctx_name + 1;
*ctx_name = '\0';
ctx_name = file_name + 1;
*file_name = '\0';
file_name = ptr + 1;
sprintf( buf, "<A HREF=\"#%s\">", ctx_name );
line_len += trans_add_str( buf, section, &alloc_size );
line_len += trans_add_str_html( ctx_text, section, &alloc_size );
ch_len += strlen( ctx_text );
line_len += trans_add_str( "</A>", section, &alloc_size );
ptr = ctx_text + strlen( ctx_text ) + 1;
} else if( ch == CH_LIST_ITEM ) {
/* list item */
line_len += trans_add_str( "<LI>", section, &alloc_size );
ptr = skip_blank( ptr + 1 );
} else if( ch == CH_DLIST_DESC ) {
trans_add_str( "<DD>", section, &alloc_size );
ptr = skip_blank( ptr + 1 );
} else if( ch == CH_DLIST_TERM ) {
/* definition list term */
line_len += trans_add_str( "<DT>", section, &alloc_size );
term_fix = TRUE;
ptr = skip_blank( ptr + 1 );
Blank_line_sfx = FALSE;
} else if( ch == CH_CTX_KW ) {
end = strchr( ptr + 1, CH_CTX_KW );
memcpy( buf, ptr + 1, end - ptr - 1 );
buf[ end - ptr - 1 ] = '\0';
add_ctx_keyword( Curr_ctx, buf );
ptr = end + 1;
if( *ptr == ' ' ) {
/* kludge fix cuz of GML: GML thinks that keywords are
are real words, so it puts a space after them.
This should fix that */
++ptr;
}
} else if( ch == CH_PAR_RESET ) {
/* this can be ignored for IPF */
++ptr;
} else if( ch == CH_BMP ) {
Curr_ctx->empty = FALSE;
++ptr;
ch = *(unsigned char *)ptr;
ptr += 2;
end = strchr( ptr, CH_BMP );
*end = '\0';
// convert filenames to lower case
strlwr( ptr );
switch( ch ) {
case 'i':
sprintf( buf, "<IMG SRC=\"%s\">", ptr );
break;
case 'l':
sprintf( buf, "<IMG SRC=\"%s\" ALIGN=TOP>", ptr );
break;
case 'r':
sprintf( buf, "<IMG SRC=\"%s\" ALIGN=BOTTOM>", ptr );
break;
case 'c':
sprintf( buf, "<IMG SRC=\"%s\" ALIGN=MIDDLE>", ptr );
break;
}
line_len += trans_add_str( buf, section, &alloc_size );
ptr = end + 1;
} else if( ch == CH_FONTSTYLE_START ) {
++ptr;
end = strchr( ptr, CH_FONTSTYLE_START );
font_idx = 0;
for( ; ptr != end; ++ptr ) {
switch( *ptr ) {
case 'b':
font_idx |= FONT_STYLE_BOLD;
break;
case 'i':
font_idx |= FONT_STYLE_ITALIC;
break;
case 'u':
case 's':
font_idx |= FONT_STYLE_UNDERLINE;
break;
}
}
line_len += trans_add_str( Font_match[ font_idx ], section, &alloc_size );
Font_list[ Font_list_curr ] = font_idx;
++Font_list_curr;
++ptr;
} else if( ch == CH_FONTSTYLE_END ) {
--Font_list_curr;
line_len += trans_add_str( Font_end[ Font_list[ Font_list_curr ] ], section, &alloc_size );
++ptr;
} else if( ch == CH_FONTTYPE ) {
++ptr;
end = strchr( ptr, CH_FONTTYPE );
*end = '\0';
if( stricmp( ptr, Fonttype_courier ) == 0 ) {
strcpy( buf, "<TT>" );
} else {
/* default system font */
strcpy( buf, "</TT>" );
}
ptr = end + 1;
end = strchr( ptr, CH_FONTTYPE );
line_len += trans_add_str( buf, section, &alloc_size );
ptr = end + 1;
} else {
++ptr;
Curr_ctx->empty = FALSE;
if( Tab_xmp && ch == Tab_xmp_char ) {
len = tab_align( ch_len, section, &alloc_size );
ch_len += len;
line_len += len * sizeof( HTML_SPACE );
ptr = skip_blank( ptr );
}
if( line_len > 120 && ch == ' ' && !Tab_xmp ) {
/* break onto the next line */
line_len = 0;
trans_add_char( '\n', section, &alloc_size );
if( *ptr == ' ' ) {
line_len += trans_add_str( HTML_SPACE, section, &alloc_size );
++ch_len;
ptr++;
}
} else {
line_len += trans_add_char_html( ch, *(unsigned char *)ptr, section, &alloc_size );
++ch_len;
}
}
}
return( alloc_size );
}
