Initial work on PS and PDF output. Because these two backends share

[sgt/halibut] / bk_whlp.c

/*
 * Windows Help backend for Halibut
 */

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <assert.h>

#include "halibut.h"
#include "winhelp.h"

struct bk_whlp_state {
    WHLP h;
    indexdata *idx;
    keywordlist *keywords;
    WHLP_TOPIC curr_topic;
    FILE *cntfp;
    int cnt_last_level, cnt_workaround;
};

/*
 * Indexes of fonts in our standard font descriptor set.
 */
enum {
    FONT_NORMAL,
    FONT_EMPH,
    FONT_CODE,
    FONT_ITAL_CODE,
    FONT_BOLD_CODE,
    FONT_TITLE,
    FONT_TITLE_EMPH,
    FONT_TITLE_CODE,
    FONT_RULE
};

static void whlp_rdaddwc(rdstringc *rs, word *text);
static int whlp_convert(wchar_t *s, int maxlen,
                        char **result, int hard_spaces);
static void whlp_mkparagraph(struct bk_whlp_state *state,
                             int font, word *text, int subsidiary);
static void whlp_navmenu(struct bk_whlp_state *state, paragraph *p);
static void whlp_contents_write(struct bk_whlp_state *state,
                                int level, char *text, WHLP_TOPIC topic);
    
paragraph *whlp_config_filename(char *filename)
{
    paragraph *p;
    wchar_t *ufilename, *up;
    int len;

    p = mknew(paragraph);
    memset(p, 0, sizeof(*p));
    p->type = para_Config;
    p->next = NULL;
    p->fpos.filename = "<command line>";
    p->fpos.line = p->fpos.col = -1;

    ufilename = ufroma_dup(filename);
    len = ustrlen(ufilename) + 2 + lenof(L"winhelp-filename");
    p->keyword = mknewa(wchar_t, len);
    up = p->keyword;
    ustrcpy(up, L"winhelp-filename");
    up = uadv(up);
    ustrcpy(up, ufilename);
    up = uadv(up);
    *up = L'\0';
    assert(up - p->keyword < len);
    sfree(ufilename);

    return p;
}

void whlp_backend(paragraph *sourceform, keywordlist *keywords,
                  indexdata *idx, void *unused) {
    WHLP h;
    char *filename, *cntname;
    paragraph *p, *lastsect;
    struct bk_whlp_state state;
    WHLP_TOPIC contents_topic;
    int i;
    int nesting;
    indexentry *ie;
    int done_contents_topic = FALSE;

    IGNORE(unused);

    h = state.h = whlp_new();
    state.keywords = keywords;
    state.idx = idx;

    whlp_start_macro(h, "CB(\"btn_about\",\"&About\",\"About()\")");
    whlp_start_macro(h, "CB(\"btn_up\",\"&Up\",\"Contents()\")");
    whlp_start_macro(h, "BrowseButtons()");

    whlp_create_font(h, "Times New Roman", WHLP_FONTFAM_SERIF, 24,
                     0, 0, 0, 0);
    whlp_create_font(h, "Times New Roman", WHLP_FONTFAM_SERIF, 24,
                     WHLP_FONT_ITALIC, 0, 0, 0);
    whlp_create_font(h, "Courier New", WHLP_FONTFAM_FIXED, 24,
                     0, 0, 0, 0);
    whlp_create_font(h, "Courier New", WHLP_FONTFAM_FIXED, 24,
                     WHLP_FONT_ITALIC, 0, 0, 0);
    whlp_create_font(h, "Courier New", WHLP_FONTFAM_FIXED, 24,
                     WHLP_FONT_BOLD, 0, 0, 0);
    whlp_create_font(h, "Arial", WHLP_FONTFAM_SERIF, 30,
                     WHLP_FONT_BOLD, 0, 0, 0);
    whlp_create_font(h, "Arial", WHLP_FONTFAM_SERIF, 30,
                     WHLP_FONT_BOLD|WHLP_FONT_ITALIC, 0, 0, 0);
    whlp_create_font(h, "Courier New", WHLP_FONTFAM_FIXED, 30,
                     WHLP_FONT_BOLD, 0, 0, 0);
    whlp_create_font(h, "Courier New", WHLP_FONTFAM_SANS, 18,
                     WHLP_FONT_STRIKEOUT, 0, 0, 0);

    /*
     * Loop over the source form finding out whether the user has
     * specified particular help topic names for anything. Also
     * pick out the output file name at this stage.
     */
    filename = dupstr("output.hlp");
    for (p = sourceform; p; p = p->next) {
        p->private_data = NULL;
        if (p->type == para_Config && p->parent) {
            if (!ustricmp(p->keyword, L"winhelp-topic")) {
                char *topicname;
                whlp_convert(uadv(p->keyword), 0, &topicname, 0);
                /* Store the topic name in the private_data field of the
                 * containing section. */
                p->parent->private_data = topicname;
            } else if (!ustricmp(p->keyword, L"winhelp-filename")) {
                sfree(filename);
                filename = utoa_dup(uadv(p->keyword));
            }
        }
    }

    /*
     * Ensure the output file name has a .hlp extension. This is
     * required since we must create the .cnt file in parallel with
     * it.
     */
    {
        int len = strlen(filename);
        if (len < 4 || filename[len-4] != '.' ||
            tolower(filename[len-3] != 'h') ||
            tolower(filename[len-2] != 'l') ||
            tolower(filename[len-1] != 'p')) {
            char *newf;
            newf = mknewa(char, len + 5);
            sprintf(newf, "%s.hlp", filename);
            sfree(filename);
            filename = newf;
            len = strlen(newf);
        }
        cntname = mknewa(char, len);
        sprintf(cntname, "%.*s.cnt", len-4, filename);
    }

    state.cntfp = fopen(cntname, "wb");
    state.cnt_last_level = -1; state.cnt_workaround = 0;

    /*
     * Loop over the source form registering WHLP_TOPICs for
     * everything.
     */

    contents_topic = whlp_register_topic(h, "Top", NULL);
    whlp_primary_topic(h, contents_topic);
    for (p = sourceform; p; p = p->next) {
        if (p->type == para_Chapter ||
            p->type == para_Appendix ||
            p->type == para_UnnumberedChapter ||
            p->type == para_Heading ||
            p->type == para_Subsect) {
            char *topicid = p->private_data;
            char *errstr;

            p->private_data = whlp_register_topic(h, topicid, &errstr);
            if (!p->private_data) {
                p->private_data = whlp_register_topic(h, NULL, NULL);
                error(err_winhelp_ctxclash, &p->fpos, topicid, errstr);
            }
            sfree(topicid);
        }
    }

    /*
     * Loop over the index entries, preparing final text forms for
     * each one.
     */
    for (i = 0; (ie = index234(idx->entries, i)) != NULL; i++) {
        rdstringc rs = {0, 0, NULL};
        whlp_rdaddwc(&rs, ie->text);
        ie->backend_data = rs.text;
    }

    whlp_prepare(h);

    /* ------------------------------------------------------------------
     * Begin the contents page.
     */

    whlp_begin_topic(h, contents_topic, "Contents", "DB(\"btn_up\")", NULL);

    /*
     * The manual title goes in the non-scroll region, and also
     * goes into the system title slot.
     */
    {
        rdstringc rs = {0, 0, NULL};
        for (p = sourceform; p; p = p->next) {
            if (p->type == para_Title) {
                whlp_begin_para(h, WHLP_PARA_NONSCROLL);
                whlp_mkparagraph(&state, FONT_TITLE, p->words, FALSE);
                whlp_rdaddwc(&rs, p->words);
                whlp_end_para(h);
            }
        }
        if (rs.text) {
            whlp_title(h, rs.text);
            fprintf(state.cntfp, ":Title %s\r\n", rs.text);
            sfree(rs.text);
        }
        whlp_contents_write(&state, 1, "Title page", contents_topic);
        /* FIXME: configurability in that string */
    }

    /*
     * Put the copyright into the system section.
     */
    {
        rdstringc rs = {0, 0, NULL};
        for (p = sourceform; p; p = p->next) {
            if (p->type == para_Copyright)
                whlp_rdaddwc(&rs, p->words);
        }
        if (rs.text) {
            whlp_copyright(h, rs.text);
            sfree(rs.text);
        }
    }

    lastsect = NULL;

    /* ------------------------------------------------------------------
     * Now we've done the contents page, we're ready to go through
     * and do the main manual text. Ooh.
     */
    nesting = 0;
    for (p = sourceform; p; p = p->next) switch (p->type) {
        /*
         * Things we ignore because we've already processed them or
         * aren't going to touch them in this pass.
         */
      case para_IM:
      case para_BR:
      case para_Biblio:                /* only touch BiblioCited */
      case para_VersionID:
      case para_NoCite:
      case para_Title:
        break;

      case para_LcontPush:
      case para_QuotePush:
        nesting++;
        break;
      case para_LcontPop:
      case para_QuotePop:
        assert(nesting > 0);
        nesting--;
        break;

        /*
         * Chapter and section titles: start a new Help topic.
         */
      case para_Chapter:
      case para_Appendix:
      case para_UnnumberedChapter:
      case para_Heading:
      case para_Subsect:

        if (!done_contents_topic) {
            paragraph *p;

            /*
             * If this is the first section title we've seen, then
             * we're currently still in the contents topic. We
             * should therefore finish up the contents page by
             * writing a nav menu.
             */
            for (p = sourceform; p; p = p->next) {
                if (p->type == para_Chapter ||
                    p->type == para_Appendix ||
                    p->type == para_UnnumberedChapter)
                    whlp_navmenu(&state, p);
            }

            state.curr_topic = contents_topic;

            done_contents_topic = TRUE;
        }

        if (lastsect && lastsect->child) {
            paragraph *q;
            /*
             * Do a navigation menu for the previous section we
             * were in.
             */
            for (q = lastsect->child; q; q = q->sibling)
                whlp_navmenu(&state, q);
        }
        {
            rdstringc rs = {0, 0, NULL};
            WHLP_TOPIC new_topic, parent_topic;
            char *macro, *topicid;

            new_topic = p->private_data;
            whlp_browse_link(h, state.curr_topic, new_topic);
            state.curr_topic = new_topic;

            if (p->kwtext) {
                whlp_rdaddwc(&rs, p->kwtext);
                rdaddsc(&rs, ": ");    /* FIXME: configurability */
            }
            whlp_rdaddwc(&rs, p->words);
            if (p->parent == NULL)
                parent_topic = contents_topic;
            else
                parent_topic = (WHLP_TOPIC)p->parent->private_data;
            topicid = whlp_topic_id(parent_topic);
            macro = smalloc(100+strlen(topicid));
            sprintf(macro,
                    "CBB(\"btn_up\",\"JI(`',`%s')\");EB(\"btn_up\")",
                    topicid);
            whlp_begin_topic(h, new_topic,
                             rs.text ? rs.text : "",
                             macro, NULL);
            sfree(macro);

            {
                /*
                 * Output the .cnt entry.
                 * 
                 * WinHelp has a bug involving having an internal
                 * node followed by a leaf at the same level: the
                 * leaf is output at the wrong level. We can mostly
                 * work around this by modifying the leaf level
                 * itself (see whlp_contents_write), but this
                 * doesn't work for top-level sections since we
                 * can't turn a level-1 leaf into a level-0 one. So
                 * for top-level leaf sections (Bibliography
                 * springs to mind), we output an internal node
                 * containing only the leaf for that section.
                 */
                int i;
                paragraph *q;

                /* Count up the level. */
                i = 1;
                for (q = p; q->parent; q = q->parent) i++;

                if (p->child || !p->parent) {
                    /*
                     * If p has children then it needs to be a
                     * folder; if it has no parent then it needs to
                     * be a folder to work around the bug.
                     */
                    whlp_contents_write(&state, i, rs.text, NULL);
                    i++;
                }
                whlp_contents_write(&state, i, rs.text, new_topic);
            }

            sfree(rs.text);

            whlp_begin_para(h, WHLP_PARA_NONSCROLL);
            if (p->kwtext) {
                whlp_mkparagraph(&state, FONT_TITLE, p->kwtext, FALSE);
                whlp_set_font(h, FONT_TITLE);
                whlp_text(h, ": ");    /* FIXME: configurability */
            }
            whlp_mkparagraph(&state, FONT_TITLE, p->words, FALSE);
            whlp_end_para(h);

            lastsect = p;
        }
        break;

      case para_Rule:
        whlp_para_attr(h, WHLP_PARA_SPACEBELOW, 12);
        whlp_para_attr(h, WHLP_PARA_ALIGNMENT, WHLP_ALIGN_CENTRE);
        whlp_begin_para(h, WHLP_PARA_SCROLL);
        whlp_set_font(h, FONT_RULE);
#define TEN "\xA0\xA0\xA0\xA0\xA0\xA0\xA0\xA0\xA0\xA0"
#define TWENTY TEN TEN
#define FORTY TWENTY TWENTY
#define EIGHTY FORTY FORTY
        whlp_text(h, EIGHTY);
#undef TEN
#undef TWENTY
#undef FORTY
#undef EIGHTY
        whlp_end_para(h);
        break;

      case para_Normal:
      case para_Copyright:
      case para_DescribedThing:
      case para_Description:
      case para_BiblioCited:
      case para_Bullet:
      case para_NumberedList:
        whlp_para_attr(h, WHLP_PARA_SPACEBELOW, 12);
        if (p->type == para_Bullet || p->type == para_NumberedList) {
            whlp_para_attr(h, WHLP_PARA_LEFTINDENT, 72*nesting + 72);
            whlp_para_attr(h, WHLP_PARA_FIRSTLINEINDENT, -36);
            whlp_set_tabstop(h, 72, WHLP_ALIGN_LEFT);
            whlp_begin_para(h, WHLP_PARA_SCROLL);
            whlp_set_font(h, FONT_NORMAL);
            if (p->type == para_Bullet) {
                whlp_text(h, "\x95");
            } else {
                whlp_mkparagraph(&state, FONT_NORMAL, p->kwtext, FALSE);
                whlp_text(h, ".");
            }
            whlp_tab(h);
        } else {
            whlp_para_attr(h, WHLP_PARA_LEFTINDENT,
                           72*nesting + (p->type==para_Description ? 72 : 0));
            whlp_begin_para(h, WHLP_PARA_SCROLL);
        }

        if (p->type == para_BiblioCited) {
            whlp_mkparagraph(&state, FONT_NORMAL, p->kwtext, FALSE);
            whlp_text(h, " ");
        }

        whlp_mkparagraph(&state, FONT_NORMAL, p->words, FALSE);
        whlp_end_para(h);
        break;

      case para_Code:
        /*
         * In a code paragraph, each individual word is a line. For
         * Help files, we will have to output this as a set of
         * paragraphs, all but the last of which don't set
         * SPACEBELOW.
         */
        {
            word *w;
            wchar_t *t, *e;
            char *c;

            for (w = p->words; w; w = w->next) if (w->type == word_WeakCode) {
                t = w->text;
                if (w->next && w->next->type == word_Emph) {
                    w = w->next;
                    e = w->text;
                } else
                    e = NULL;

                if (!w->next)
                    whlp_para_attr(h, WHLP_PARA_SPACEBELOW, 12);

                whlp_para_attr(h, WHLP_PARA_LEFTINDENT, 72*nesting);
                whlp_begin_para(h, WHLP_PARA_SCROLL);
                while (e && *e && *t) {
                    int n;
                    int ec = *e;

                    for (n = 0; t[n] && e[n] && e[n] == ec; n++);
                    if (ec == 'i')
                        whlp_set_font(h, FONT_ITAL_CODE);
                    else if (ec == 'b')
                        whlp_set_font(h, FONT_BOLD_CODE);
                    else
                        whlp_set_font(h, FONT_CODE);
                    whlp_convert(t, n, &c, FALSE);
                    whlp_text(h, c);
                    sfree(c);
                    t += n;
                    e += n;
                }
                whlp_set_font(h, FONT_CODE);
                whlp_convert(t, 0, &c, FALSE);
                whlp_text(h, c);
                sfree(c);
                whlp_end_para(h);
            }
        }
        break;
    }

    fclose(state.cntfp);
    whlp_close(h, filename);

    /*
     * Loop over the index entries, cleaning up our final text
     * forms.
     */
    for (i = 0; (ie = index234(idx->entries, i)) != NULL; i++) {
        sfree(ie->backend_data);
    }

    sfree(filename);
    sfree(cntname);
}

static void whlp_contents_write(struct bk_whlp_state *state,
                                int level, char *text, WHLP_TOPIC topic) {
    /*
     * Horrifying bug in WinHelp. When dropping a section level or
     * more without using a folder-type entry, WinHelp accidentally
     * adds one to the section level. So we correct for that here.
     */
    if (state->cnt_last_level > level && topic)
        state->cnt_workaround = -1;
    else if (!topic)
        state->cnt_workaround = 0;
    state->cnt_last_level = level;

    fprintf(state->cntfp, "%d ", level + state->cnt_workaround);
    while (*text) {
        if (*text == '=')
            fputc('\\', state->cntfp);
        fputc(*text, state->cntfp);
        text++;
    }
    if (topic)
        fprintf(state->cntfp, "=%s", whlp_topic_id(topic));
    fputc('\n', state->cntfp);
}

static void whlp_navmenu(struct bk_whlp_state *state, paragraph *p) {
    whlp_begin_para(state->h, WHLP_PARA_NONSCROLL);
    whlp_start_hyperlink(state->h, (WHLP_TOPIC)p->private_data);
    if (p->kwtext) {
        whlp_mkparagraph(state, FONT_NORMAL, p->kwtext, TRUE);
        whlp_set_font(state->h, FONT_NORMAL);
        whlp_text(state->h, ": ");    /* FIXME: configurability */
    }
    whlp_mkparagraph(state, FONT_NORMAL, p->words, TRUE);
    whlp_end_hyperlink(state->h);
    whlp_end_para(state->h);

}

static void whlp_mkparagraph(struct bk_whlp_state *state,
                             int font, word *text, int subsidiary) {
    keyword *kwl;
    int deffont = font;
    int currfont = -1;
    int newfont;
    char *c;
    paragraph *xref_target = NULL;

    for (; text; text = text->next) switch (text->type) {
      case word_HyperLink:
      case word_HyperEnd:
        break;

      case word_IndexRef:
        if (subsidiary) break;         /* disabled in subsidiary bits */
        {
            indextag *tag = index_findtag(state->idx, text->text);
            int i;
            if (!tag)
                break;
            for (i = 0; i < tag->nrefs; i++)
                whlp_index_term(state->h, tag->refs[i]->backend_data,
                                state->curr_topic);
        }
        break;

      case word_UpperXref:
      case word_LowerXref:
        if (subsidiary) break;         /* disabled in subsidiary bits */
        kwl = kw_lookup(state->keywords, text->text);
        assert(xref_target == NULL);
        if (kwl) {
            if (kwl->para->type == para_NumberedList) {
                break;                 /* don't xref to numbered list items */
            } else if (kwl->para->type == para_BiblioCited) {
                /*
                 * An xref to a bibliography item jumps to the section
                 * containing it.
                 */
                if (kwl->para->parent)
                    xref_target = kwl->para->parent;
                else
                    break;
            } else {
                xref_target = kwl->para;
            }
            whlp_start_hyperlink(state->h,
                                 (WHLP_TOPIC)xref_target->private_data);
        }
        break;

      case word_XrefEnd:
        if (subsidiary) break;         /* disabled in subsidiary bits */
        if (xref_target)
            whlp_end_hyperlink(state->h);
        xref_target = NULL;
        break;
        
      case word_Normal:
      case word_Emph:
      case word_Code:
      case word_WeakCode:
      case word_WhiteSpace:
      case word_EmphSpace:
      case word_CodeSpace:
      case word_WkCodeSpace:
      case word_Quote:
      case word_EmphQuote:
      case word_CodeQuote:
      case word_WkCodeQuote:
        if (towordstyle(text->type) == word_Emph)
            newfont = deffont + FONT_EMPH;
        else if (towordstyle(text->type) == word_Code ||
                 towordstyle(text->type) == word_WeakCode)
            newfont = deffont + FONT_CODE;
        else
            newfont = deffont;
        if (newfont != currfont) {
            currfont = newfont;
            whlp_set_font(state->h, newfont);
        }
        if (removeattr(text->type) == word_Normal) {
            if (whlp_convert(text->text, 0, &c, TRUE))
                whlp_text(state->h, c);
            else
                whlp_mkparagraph(state, deffont, text->alt, FALSE);
            sfree(c);
        } else if (removeattr(text->type) == word_WhiteSpace) {
            whlp_text(state->h, " ");
        } else if (removeattr(text->type) == word_Quote) {
            whlp_text(state->h,
                      quoteaux(text->aux) == quote_Open ? "\x91" : "\x92");
                                       /* FIXME: configurability */
        }
        break;
    }
}

static void whlp_rdaddwc(rdstringc *rs, word *text) {
    char *c;

    for (; text; text = text->next) switch (text->type) {
      case word_HyperLink:
      case word_HyperEnd:
      case word_UpperXref:
      case word_LowerXref:
      case word_XrefEnd:
      case word_IndexRef:
        break;

      case word_Normal:
      case word_Emph:
      case word_Code:
      case word_WeakCode:
      case word_WhiteSpace:
      case word_EmphSpace:
      case word_CodeSpace:
      case word_WkCodeSpace:
      case word_Quote:
      case word_EmphQuote:
      case word_CodeQuote:
      case word_WkCodeQuote:
        assert(text->type != word_CodeQuote &&
               text->type != word_WkCodeQuote);
        if (removeattr(text->type) == word_Normal) {
            if (whlp_convert(text->text, 0, &c, FALSE))
                rdaddsc(rs, c);
            else
                whlp_rdaddwc(rs, text->alt);
            sfree(c);
        } else if (removeattr(text->type) == word_WhiteSpace) {
            rdaddc(rs, ' ');
        } else if (removeattr(text->type) == word_Quote) {
            rdaddc(rs, quoteaux(text->aux) == quote_Open ? '\x91' : '\x92');
                                       /* FIXME: configurability */
        }
        break;
    }
}

/*
 * Convert a wide string into a string of chars. If `result' is
 * non-NULL, mallocs the resulting string and stores a pointer to
 * it in `*result'. If `result' is NULL, merely checks whether all
 * characters in the string are feasible for the output character
 * set.
 *
 * Return is nonzero if all characters are OK. If not all
 * characters are OK but `result' is non-NULL, a result _will_
 * still be generated!
 */
static int whlp_convert(wchar_t *s, int maxlen,
                        char **result, int hard_spaces) {
    /*
     * FIXME. Currently this is ISO8859-1 only.
     */
    int doing = (result != 0);
    int ok = TRUE;
    char *p = NULL;
    int plen = 0, psize = 0;

    if (maxlen <= 0)
        maxlen = -1;

    for (; *s && maxlen != 0; s++, maxlen--) {
        wchar_t c = *s;
        char outc;

        if ((c >= 32 && c <= 126) ||
            (c >= 160 && c <= 255)) {
            /* Char is OK. */
            if (c == 32 && hard_spaces)
                outc = '\240';
            else
                outc = (char)c;
        } else {
            /* Char is not OK. */
            ok = FALSE;
            outc = 0xBF;               /* approximate the good old DEC `uh?' */
        }
        if (doing) {
            if (plen >= psize) {
                psize = plen + 256;
                p = resize(p, psize);
            }
            p[plen++] = outc;
        }
    }
    if (doing) {
        p = resize(p, plen+1);
        p[plen] = '\0';
        *result = p;
    }
    return ok;
}