rtf.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 779 行 · 第 1/2 页

        --section->section_size;
    } else {
        trans_add_str( "\\par ", section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_S_LIST ) {
        Line_prefix &= ~LPREFIX_S_LIST;
        sprintf( buf, "\\li%d ", Curr_indent );
        trans_add_str( buf, section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_FIX_FI ) {
        Line_prefix &= ~LPREFIX_FIX_FI;
        trans_add_str( "\\fi0 ", section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_E_LIST ) {
        Line_prefix &= ~LPREFIX_E_LIST;
        sprintf( buf, "\\li%d\\fi0 ", Curr_indent );
        trans_add_str( buf, section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_PAR_RESET ) {
        Line_prefix &= ~LPREFIX_PAR_RESET;
        trans_add_tabs( section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_LEFTALIGN ) {
        Line_prefix &= ~LPREFIX_LEFTALIGN;
        trans_add_str( "\\ql ", section, &alloc_size );
    }
    if( Line_prefix & LPREFIX_BOX_ON ) {
        Line_prefix &= ~LPREFIX_BOX_ON;
        trans_add_str( "\\box ", section, &alloc_size );
    }

    Blank_line = TRUE;
    for( ;; ) {
        ch = *ptr;
        if( ch != '\0' && ( ch != ' ' || ch != '\t' ) ) {
            Blank_line = FALSE;
        }
        if( ch == '\0' ) {
            if( Line_postfix == LPOSTFIX_TERM ) {
                Line_postfix = LPOSTFIX_NONE;
                /* this must go on the end of the current line, otherwise
                   the bolding used on the term screws up the spacing
                   on the next line */
                trans_add_str( Reset_font_str, section, &alloc_size );
                /* we still need to do the indent fixing on the next
                   line, though */
                Line_prefix |= LPREFIX_FIX_FI;
            }
            trans_add_char( '\n', section, &alloc_size );
            break;
        } else if( ch == CH_HLINK || ch == CH_DFN ) {
            Curr_ctx->empty = FALSE;
            ctx_name = strchr( ptr + 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 = ptr + 1;
            add_link( ctx_name );
            if( ch == CH_HLINK ) {
                trans_add_str( "{\\f2\\uldb ", section, &alloc_size );
                trans_add_nobreak_str( translate_str_rtf( ctx_text, FALSE ),
                                                        section, &alloc_size );
                trans_add_str( "\\v\\f2\\uldb ", section, &alloc_size );
                trans_add_str( ctx_name, section, &alloc_size );
                trans_add_str( "\\v0 ", section, &alloc_size );
                trans_add_str( Reset_font_str, section, &alloc_size );
                trans_add_str( "}", section, &alloc_size );
            } else if( ch == CH_DFN ) {
                trans_add_str( "{\\f2\\ul ", section, &alloc_size );
                trans_add_nobreak_str( translate_str_rtf( ctx_text, FALSE ),
                                                        section, &alloc_size );
                trans_add_str( "\\v\\f2\\ul ", section, &alloc_size );
                trans_add_str( ctx_name, section, &alloc_size );
                trans_add_str( "\\v0 ", section, &alloc_size );
                trans_add_str( Reset_font_str, section, &alloc_size );
                trans_add_str( "}", section, &alloc_size );
            }
            ptr = ctx_text + strlen( ctx_text ) + 1;
        } 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;
            trans_add_str( "{\\f2\\uldb ", section, &alloc_size );
            trans_add_nobreak_str( translate_str_rtf( ctx_text, FALSE ),
                                                    section, &alloc_size );
            trans_add_str( "\\v\\f2\\uldb !JumpKeyword( \"",
                                                section, &alloc_size );
            trans_add_str( file_name, section, &alloc_size );
            trans_add_str( ".hlp\", \"", section, &alloc_size );
            trans_add_str( translate_str_rtf( ctx_name, TRUE ),
                                                section, &alloc_size );
            trans_add_str( "\" );\\v0 ", section, &alloc_size );
            trans_add_str( Reset_font_str, section, &alloc_size );
            trans_add_str( "}", section, &alloc_size );
            ptr = ctx_text + strlen( ctx_text ) + 1;
        } else if( ch == CH_LIST_ITEM ) {
            if( Curr_list->type != LIST_TYPE_SIMPLE ) {
                if( Curr_list->type == LIST_TYPE_UNORDERED ) {
                    sprintf( buf, "\\fi-%d\\f1 \\'b7\\f2\\tab ", INDENT_INC );
                } else if( Curr_list->type == LIST_TYPE_ORDERED ) {
                    /* ordered list type */
                    sprintf( buf, "\\f2\\fi-%d\\b %d.\\plain\\f2\\fs20\\tab ",
                                            INDENT_INC, Curr_list->number );
                    ++Curr_list->number;
                }
                trans_add_str( buf, section, &alloc_size );
                Line_prefix |= LPREFIX_FIX_FI;
            }
            ptr = skip_blank( ptr + 1 );
            Eat_blanks = TRUE;
        } else if( ch == CH_DLIST_DESC ) {
            /* we don't have to do anything with this for RTF. Ignore it */
            ptr = skip_blank( ptr + 1 );
        } else if( ch == CH_DLIST_TERM ) {
            /* definition list term */
            sprintf( buf, "\\f2\\fi-%d \\b ", INDENT_INC );
            trans_add_str( buf, section, &alloc_size );
            Line_postfix = LPOSTFIX_TERM;
            ptr = skip_blank( ptr + 1 );
            Eat_blanks = TRUE;
        } 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 ) {
            Line_prefix |= LPREFIX_PAR_RESET;
            ++ptr;
        } else if( ch == CH_BMP ) {
            Curr_ctx->empty = FALSE;
            ++ptr;
            ch = *ptr;
            ptr += 2;
            end = strchr( ptr, CH_BMP );
            *end = '\0';
            if( ch != 'c' ) {
                switch( ch ) {
                case 'i':
                    sprintf( buf, "\\{bmc %s\\}", ptr );
                    break;

                case 'l':
                    sprintf( buf, "\\{bml %s\\}", ptr );
                    break;

                case 'r':
                    sprintf( buf, "\\{bmr %s\\}", ptr );
                    break;
                }
            } else {
                /* centered bitmap are not directly supported in RTF */
                sprintf( buf, "\\qc \\{bmc %s\\}", ptr );
                Line_prefix |= LPREFIX_LEFTALIGN;
            }
            trans_add_str( buf, section, &alloc_size );
            ptr = end + 1;
        } else if( ch == CH_FONTSTYLE_START ) {
            ++ptr;
            end = strchr( ptr, CH_FONTSTYLE_START );
            for( ; ptr != end; ++ptr ) {
                switch( *ptr ) {

                case 'b':
                    trans_add_str( "\\b ", section, &alloc_size );
                    break;

                case 'i':
                    trans_add_str( "\\i ", section, &alloc_size );
                    break;

                case 'u':
                    trans_add_str( "\\ul ", section, &alloc_size );
                    break;

                case 's':
                    trans_add_str( "\\ulw ", section, &alloc_size );
                    break;
                }
            }
            ++ptr;
        } else if( ch == CH_FONTSTYLE_END ) {
            trans_add_str( "\\b0 \\i0 \\ul0 \\ulw0 ", section, &alloc_size );
            ++ptr;
        } else if( ch == CH_FONTTYPE ) {
            ++ptr;
            end = strchr( ptr, CH_FONTTYPE );
            *end = '\0';
            if( stricmp( ptr, Fonttype_roman ) == 0 ) {
                strcpy( buf, "\\f0 " );
            } else if( stricmp( ptr, Fonttype_symbol ) == 0 ) {
                strcpy( buf, "\\f1 " );
            } else if( stricmp( ptr, Fonttype_courier ) == 0 ) {
                strcpy( buf, "\\f4 " );
            } else {
                strcpy( buf, "\\f2 " );
            }
            trans_add_str( buf, section, &alloc_size );
            ptr = end + 1;
            end = strchr( ptr, CH_FONTTYPE );
            *end = '\0';
            sprintf( buf, "\\fs%d ", atoi( ptr ) * 2 );
            trans_add_str( buf, section, &alloc_size );
            ptr = end + 1;
        } else {
            ++ptr;
            if( !Eat_blanks || ch != ' ' ) {
                Curr_ctx->empty = FALSE;
                if( Tab_xmp && ch == Tab_xmp_char ) {
                    trans_add_str( "\\tab ", section, &alloc_size );
                    /* skip blanks after a tab, so that hyperlinks line up */
                    ptr = skip_blank( ptr );
                } else {
                    trans_add_char_rtf( ch, section, &alloc_size );
                }
                Eat_blanks = FALSE;
            }
        }
    }

    return( alloc_size );
}

static void print_tab_stops( void )
/*********************************/
{
    int                 tab;

    for( tab = 1; tab <= NUM_TAB_STOPS; ++tab ) {
        whp_fprintf( Out_file, "\\tx%d ", INDENT_INC * tab );
    }
}

static void output_hdr( void )
/****************************/
{
    /* the header is printed inline so that the -zc compiler option
       will place these strings into the code segment.

       This header is originally derived from some WinWord document
       saved in RTF format. The copy used here comes from the
       file 'header.rtf' in the database WINHELP directory */

    whp_fprintf( Out_file, "{\\rtf1\\ansi \\deff2{\\fonttbl{\\f0\\froman Tms Rmn;}{\\f1\\fdecor Symbol;}{\\f2\\fswiss Helv;}{\\f3\\fmodern pica;}{\\f4\\fmodern Courier;}{\\f5\\fmodern elite;}{\\f6\\fmodern prestige;}{\\f7\\fmodern lettergothic;}{\\f8\\fmodern gothicPS;}\n" );
    whp_fprintf( Out_file, "{\\f9\\fmodern cubicPS;}{\\f10\\fmodern lineprinter;}{\\f11\\fswiss Helvetica;}{\\f12\\fmodern avantegarde;}{\\f13\\fmodern spartan;}{\\f14\\fmodern metro;}{\\f15\\fmodern presentation;}{\\f16\\fmodern APL;}{\\f17\\fmodern OCRA;}{\\f18\\fmodern OCRB;}{\\f19\\froman boldPS;}\n" );
    whp_fprintf( Out_file, "{\\f20\\froman emperorPS;}{\\f21\\froman madaleine;}{\\f22\\froman zapf humanist;}{\\f23\\froman classic;}{\\f24\\froman roman f;}{\\f25\\froman roman g;}{\\f26\\froman roman h;}{\\f27\\froman timesroman;}{\\f28\\froman century;}{\\f29\\froman palantino;}\n" );
    whp_fprintf( Out_file, "{\\f30\\froman souvenir;}{\\f31\\froman garamond;}{\\f32\\froman caledonia;}{\\f33\\froman bodini;}{\\f34\\froman university;}{\\f35\\fscript Script;}{\\f36\\fscript scriptPS;}{\\f37\\fscript script c;}{\\f38\\fscript script d;}{\\f39\\fscript commercial script;}\n" );
    whp_fprintf( Out_file, "{\\f40\\fscript park avenue;}{\\f41\\fscript coronet;}{\\f42\\fscript script h;}{\\f43\\fscript greek;}{\\f44\\froman kana;}{\\f45\\froman hebrew;}{\\f46\\froman roman s;}{\\f47\\froman russian;}{\\f48\\froman roman u;}{\\f49\\froman roman v;}{\\f50\\froman roman w;}\n" );
    whp_fprintf( Out_file, "{\\f51\\fdecor narrator;}{\\f52\\fdecor emphasis;}{\\f53\\fdecor zapf chancery;}{\\f54\\fdecor decor d;}{\\f55\\fdecor old english;}{\\f56\\fdecor decor f;}{\\f57\\fdecor decor g;}{\\f58\\fdecor cooper black;}{\\f59\\fnil linedraw;}{\\f60\\fnil math7;}{\\f61\\fnil math8;}\n" );
    whp_fprintf( Out_file, "{\\f62\\fnil bar3of9;}{\\f63\\fnil EAN;}{\\f64\\fnil pcline;}{\\f65\\fnil tech h;}{\\f66\\fswiss Helvetica-Narrow;}{\\f67\\fmodern Modern;}{\\f68\\froman Roman;}}{\\colortbl;\\red0\\green0\\blue0;\\red0\\green0\\blue255;\\red0\\green255\\blue255;\\red0\\green255\\blue0;\n" );
    whp_fprintf( Out_file, "\\red255\\green0\\blue255;\\red255\\green0\\blue0;\\red255\\green255\\blue0;\\red255\\green255\\blue255;}{\\stylesheet{\\s244 \\fs16\\up6 \\sbasedon0\\snext0 footnote reference;}{\\s245 \\fs20 \\sbasedon0\\snext245 footnote text;}{\\s246\\li720 \\i\\fs20 \n" );
    whp_fprintf( Out_file, "\\sbasedon0\\snext255 heading 9;}{\\s247\\li720 \\i\\fs20 \\sbasedon0\\snext255 heading 8;}{\\s248\\li720 \\i\\fs20 \\sbasedon0\\snext255 heading 7;}{\\s249\\li720 \\fs20\\ul \\sbasedon0\\snext255 heading 6;}{\\s250\\li720 \\b\\fs20 \\sbasedon0\\snext255 heading 5;}{\\s251\\li360 \n" );
    whp_fprintf( Out_file, "\\ul \\sbasedon0\\snext255 heading 4;}{\\s252\\li360 \\b \\sbasedon0\\snext255 heading 3;}{\\s253\\sb120 \\b\\f2 \\sbasedon0\\snext0 heading 2;}{\\s254\\sb240 \\b\\f2\\ul \\sbasedon0\\snext0 heading 1;}{\\s255\\li720 \\fs20 \\sbasedon0\\snext255 Normal Indent;}{\\fs20 \n" );
    whp_fprintf( Out_file, "\\snext0 Normal;}{\\s2\\fi-240\\li480\\sb80\\tx480 \\f11 \\sbasedon0\\snext2 nscba;}{\\s3\\fi-240\\li240\\sa20 \\f11 \\sbasedon0\\snext3 j;}{\\s4\\li480\\sa20 \\f11 \\sbasedon0\\snext4 ij;}{\\s5\\sb80\\sa20 \\f11 \\sbasedon0\\snext5 btb;}{\\s6\\fi-240\\li2400\\sb20\\sa20 \\f11\\fs20 \n" );
    whp_fprintf( Out_file, "\\sbasedon0\\snext6 ctcb;}{\\s7\\fi-240\\li480\\sa40\\tx480 \\f11 \\sbasedon0\\snext7 ns;}{\\s8\\sa120 \\f11\\fs28 \\sbasedon0\\snext8 TT;}{\\s9\\fi-240\\li2400\\sa20 \\f11 \\sbasedon0\\snext9 crtj;}{\\s10\\fi-240\\li480\\tx480 \\f11 \\sbasedon0\\snext10 nsca;}{\\s11\\sa20 \\f11 \n" );
    whp_fprintf( Out_file, "\\sbasedon0\\snext11 bt;}{\\s12\\li240\\sb120\\sa40 \\f11 \\sbasedon0\\snext12 Hf;}{\\s13\\li240\\sb120\\sa40 \\f11 \\sbasedon0\\snext13 Hs;}{\\s14\\li480\\sb120\\sa40 \\f11 \\sbasedon0\\snext14 RT;}{\\s15\\fi-2160\\li2160\\sb240\\sa80\\tx2160 \\f11 \\sbasedon0\\snext15 c;}{\n" );
    whp_fprintf( Out_file, "\\s16\\li2160\\sa20 \\f11 \\sbasedon0\\snext16 ct;}{\\s17\\li240\\sa20 \\f11 \\sbasedon0\\snext17 it;}{\\s18\\li480 \\f11\\fs20 \\sbasedon0\\snext18 nsct;}{\\s19\\fi-160\\li400\\sb80\\sa40 \\f11 \\sbasedon0\\snext19 nscb;}{\\s20\\fi-2640\\li2880\\sb120\\sa40\\brdrb\\brdrs \\brdrbtw\\brdrs \n" );
    whp_fprintf( Out_file, "\\tx2880 \\f11 \\sbasedon0\\snext20 HC2;}{\\s21\\fi-2640\\li2880\\sb120\\sa20\\tx2880 \\f11 \\sbasedon0\\snext21 C2;}{\\s22\\fi-240\\li2400\\sa20 \\f11\\fs20 \\sbasedon0\\snext22 ctc;}{\\s23\\li2160\\sb160 \\f11 \\sbasedon0\\snext23 crt;}{\\s24\\li480\\sb20\\sa40 \\f11 \n" );
    whp_fprintf( Out_file, "\\sbasedon0\\snext24 or;}}{\\info{\\author WATCOM}{\\creatim\\yr2000\\mo1\\dy1}{\\version1}{\\edmins1}{\\nofpages0}{\\nofwords0}{\\nofchars0}{\\vern8310}}\\ftnbj \\sectd \\linex576\\endnhere\n" );

    whp_fprintf( Out_file, "\\pard\\plain \\sl240 \\fs20 \\f2 " );

    print_tab_stops();
    fputc( '\n', Out_file );
}

static void output_ctx_hdr(
/*************************/

    ctx_def                     *ctx
) {
    ctx_def                     *up_ctx;
    keylist_def                 *keylist;

    whp_fprintf( Out_file, "\\par \\pard \\page " );

    /* context id */
    whp_fprintf( Out_file, "#%s# %s}", Rtf_ctl_prefix, ctx->ctx_name );
    whp_fprintf( Out_file, "$%s$ %s}", Rtf_ctl_prefix,
                                    translate_str_rtf( ctx->title, FALSE ) );
    if( Do_up ) {
        /* spit out up button stuff */
        whp_fprintf( Out_file, "!{\\footnote ! ChangeButtonBinding( \"btn_up\", " );
        for( up_ctx = ctx->up_ctx; up_ctx != NULL; up_ctx = up_ctx->up_ctx ) {
            if( !Remove_empty || !up_ctx->empty ) {
                break;
            }
        }
        if( up_ctx == NULL ) {
            whp_fprintf( Out_file, "\"Contents()\") }" );
        } else {
            whp_fprintf( Out_file, "\"JumpId( `%s\', `%s\')\") }",
                                                Help_fname, up_ctx->ctx_name );
        }
    }

    if( ctx->keylist != NULL ) {
        whp_fprintf( Out_file, "K%sK ", Rtf_ctl_prefix );
        for( keylist = ctx->keylist; keylist != NULL;
                                            keylist = keylist->next ) {
            whp_fprintf( Out_file, ";%s",
                            translate_str_rtf( keylist->key->keyword, FALSE ) );
        }
        whp_fprintf( Out_file, "}" );
    }
    if( ctx->browse != NULL ) {
        whp_fprintf( Out_file, "+%s+ %s:%.4d}", Rtf_ctl_prefix,
                        translate_str_rtf( ctx->browse->browse_name, FALSE ),
                        ctx->browse_num );
    }
    if( ctx->title_fmt == TITLE_FMT_NOLINE ||
                ( !Keep_titles && ctx->title_fmt != TITLE_FMT_LINE ) ) {
        whp_fprintf( Out_file, "{\\f2 \\fs28 %s }\\f2 \\fs20\n",
                                    translate_str_rtf( ctx->title, FALSE ) );
    } else {
        whp_fprintf( Out_file, "{\\keepn \\f2 \\fs28 %s"
                " \\f2 \\fs20 \\par \\pard \\f2 \\fs20 ",
                                    translate_str_rtf( ctx->title, FALSE ) );
        print_tab_stops();
        whp_fprintf( Out_file, "}\n" );
    }
}

static void output_end( void )
/****************************/
{
    whp_fprintf( Out_file, "\\par }\n" );
}

static void output_ctx_sections(
/******************************/

    ctx_def                     *ctx
) {
    section_def                 *section;

    for( section = ctx->section_list; section != NULL; ) {
        if( section->section_size > 0 ) {
            whp_fwrite( section->section_text, 1,
                                        section->section_size, Out_file );
        }
        section = section->next;
    }
}

void rtf_output_file( void )
/**************************/
{
    ctx_def                     *ctx;

    output_hdr();
    for( ctx = Ctx_list; ctx != NULL; ctx = ctx->next ) {
        if( !Remove_empty || !ctx->empty || ctx->req_by_link ) {
            output_ctx_hdr( ctx );
            output_ctx_sections( ctx );
        }
    }
    output_end();
}