", conf.nav_attrs);
} else
{
fprintf(fp, ">");
}
if (xhtml_last_file == NULL)
{
fprintf(fp, "Previous | ");
} else
{
fprintf(fp, "Previous | ", xhtml_last_file->filename);
}
fprintf(fp, "Contents | ");
if (file != NULL)
{ /* otherwise we're doing nav links for the index */
if (xhtml_next_file == NULL)
xhtml_next_file = file->child;
if (xhtml_next_file == NULL)
xhtml_next_file = file->next;
if (xhtml_next_file == NULL)
xhtml_next_file = file->parent->next;
}
if (xhtml_next_file == NULL)
{
if (file == NULL)
{ /* index, so no next file */
fprintf(fp, "Next ");
} else
{
fprintf(fp, "Next", xhtml_index_filename);
}
} else
{
fprintf(fp, "Next", xhtml_next_file->filename);
}
fprintf(fp, "\n");
}
/* Write out the index file */
static void xhtml_do_index_body(FILE * fp)
{
indexentry *y;
int ti;
if (count234(idx->entries) == 0)
return; /* don't write anything at all */
fprintf(fp, "\n");
/* iterate over idx->entries using the tree functions and display everything */
for (ti = 0; (y = (indexentry *) index234(idx->entries, ti)) != NULL;
ti++)
{
if (y->backend_data)
{
int i;
xhtmlindex *xi;
fprintf(fp, "- ");
xhtml_para(fp, y->text);
fprintf(fp, "
\n- ");
xi = (xhtmlindex *) y->backend_data;
for (i = 0; i < xi->nsection; i++)
{
xhtmlsection *sect = xi->sections[i];
if (sect)
{
char fragmentbuf[NAMEDFRAGMENT_MAXLEN];
fprintf(fp, "", conf.leaf_level ? sect->file->filename : "",
xhtml_get_fragmentname(sect, fragmentbuf));
if (sect->para->kwtext)
{
xhtml_para(fp, sect->para->kwtext);
} else if (sect->para->words)
{
xhtml_para(fp, sect->para->words);
}
fprintf(fp, "");
if (i + 1 < xi->nsection)
{
fprintf(fp, ", ");
}
}
}
fprintf(fp, "
\n");
}
}
fprintf(fp, "
\n");
}
static void xhtml_do_index()
{
word temp_word =
{ NULL, NULL, word_Normal, 0, 0, L"Index", {NULL, 0, 0} };
FILE *fp = fopen(xhtml_index_filename, "w");
if (fp == NULL)
fatal(err_cantopenw, xhtml_index_filename);
xhtml_doheader(fp, &temp_word);
xhtml_donavlinks(fp, NULL);
xhtml_do_index_body(fp);
xhtml_donavlinks(fp, NULL);
xhtml_dofooter(fp);
fclose(fp);
}
/* Output the given file. This includes whatever contents at beginning and end, etc. etc. */
static void xhtml_do_file(xhtmlfile * file)
{
FILE *fp = fopen(file->filename, "w");
if (fp == NULL)
fatal(err_cantopenw, file->filename);
if (file->sections->para->words)
{
xhtml_doheader(fp, file->sections->para->words);
} else if (file->sections->para->kwtext)
{
xhtml_doheader(fp, file->sections->para->kwtext);
} else
{
xhtml_doheader(fp, NULL);
}
xhtml_donavlinks(fp, file);
if (file->is_leaf && conf.leaf_contains_contents &&
xhtml_do_contents(NULL, file) >= conf.leaf_smallest_contents)
xhtml_do_contents(fp, file);
xhtml_do_sections(fp, file->sections);
if (!file->is_leaf)
xhtml_do_naked_contents(fp, file);
xhtml_donavlinks(fp, file);
xhtml_dofooter(fp);
fclose(fp);
xhtml_last_file = file;
}
/* Output the top-level file. */
static void xhtml_do_top_file(xhtmlfile * file, paragraph * sourceform)
{
paragraph *p;
char fname[4096];
int done = FALSE;
FILE *fp = fopen(file->filename, "w");
if (fp == NULL)
fatal(err_cantopenw, file->filename);
if (conf.chm_toc_file || conf.chm_ind_file) g_outputtype = OT_CHM | (g_outputtype & (OT_XHTML|OT_HTML5));
ustrtoa(conf.chm_toc_file, fname, 4096);
if(*fname)
{
chm_toc = fopen(fname, "w");
if (chm_toc == NULL)
fatal(err_cantopenw, fname);
}
else
chm_toc = NULL;
ustrtoa(conf.chm_ind_file, fname, 4096);
if(*fname){
chm_ind = fopen(fname, "w");
if (chm_ind == NULL)
fatal(err_cantopenw, fname);
}
else
chm_ind = NULL;
/* Do the title -- only one allowed */
for (p = sourceform; p && !done; p = p->next)
{
if (p->type == para_Title)
{
xhtml_doheader(fp, p->words);
if(chm_toc)chm_doheader(chm_toc, p->words);
if(chm_ind)chm_doheader(chm_ind, p->words);
done = TRUE;
}
}
if (!done)
xhtml_doheader(fp, NULL /* Eek! */ );
/*
* Display the title.
*/
for (p = sourceform; p; p = p->next)
{
if (p->type == para_Title)
{
xhtml_heading(fp, p);
break;
}
}
/* Do the preamble and copyright */
for (p = sourceform; p; p = p->next)
{
if (p->type == para_Preamble)
{
fprintf(fp, "");
xhtml_hack_xhtmlify(p->words);
xhtml_para(fp, p->words);
fprintf(fp, "
\n");
}
}
for (p = sourceform; p; p = p->next)
{
if (p->type == para_Copyright)
{
fprintf(fp, "");
xhtml_hack_xhtmlify(p->words);
xhtml_para(fp, p->words);
fprintf(fp, "
\n");
}
}
xhtml_do_contents(fp, file);
xhtml_do_sections(fp, file->sections);
/*
* Put the index in the top file if we're in single-file mode
* (leaf-level 0).
*/
if (conf.leaf_level == 0 && count234(idx->entries) > 0)
{
fprintf(fp, "Index
\n");
xhtml_do_index_body(fp);
}
xhtml_dofooter(fp);
if(chm_toc)chm_dofooter(chm_toc);
if(chm_ind)chm_dofooter(chm_ind);
fclose(fp);
if(chm_toc)
{
fclose(chm_toc);
chm_toc = NULL;
}
if(chm_ind)
{
fclose(chm_ind);
chm_ind = NULL;
}
}
/* Convert a Unicode string to an ASCII one. '?' is
* used for unmappable characters.
*/
static void xhtml_utostr(wchar_t * in, char **out)
{
int l = ustrlen(in);
int i;
*out = smalloc(l + 1);
for (i = 0; i < l; i++)
{
if (in[i] >= 32 && in[i] <= 126)
(*out)[i] = (char) in[i];
else
(*out)[i] = '?';
}
(*out)[i] = 0;
}
/*
* Write contents for the given file, and subfiles, down to
* the appropriate contents depth. Returns the number of
* entries written.
*/
static int xhtml_do_contents(FILE * fp, xhtmlfile * file)
{
int level, limit, start_level, count = 0;
if (!file)
return 0;
level = (file->sections) ? (file->sections->level) : (0);
limit = conf.contents_depth[(level > 5) ? (5) : (level)];
start_level = (file->is_leaf) ? (level - 1) : (level);
last_level = start_level;
count += xhtml_do_contents_section_limit(fp, file->sections, limit);
count += xhtml_do_contents_limit(fp, file->child, limit);
if (fp != NULL)
{
while (last_level > start_level)
{
last_level--;
fprintf(fp, "\n");
if(chm_toc)fprintf(chm_toc, "\n");
}
}
return count;
}
/* As above, but doesn't do anything in the current file */
static int xhtml_do_naked_contents(FILE * fp, xhtmlfile * file)
{
int level, limit, start_level, count = 0;
if (!file)
return 0;
level = (file->sections) ? (file->sections->level) : (0);
limit = conf.contents_depth[(level > 5) ? (5) : (level)];
start_level = (file->is_leaf) ? (level - 1) : (level);
last_level = start_level;
count = xhtml_do_contents_limit(fp, file->child, limit);
if (fp != NULL)
{
while (last_level > start_level)
{
last_level--;
fprintf(fp, "\n");
if(chm_toc)fprintf(chm_toc, "\n");
}
}
return count;
}
/*
* Write contents for the given file, children, and siblings, down to
* given limit contents depth.
*/
static int xhtml_do_contents_limit(FILE * fp, xhtmlfile * file, int limit)
{
int count = 0;
while (file)
{
count += xhtml_do_contents_section_limit(fp, file->sections, limit);
count += xhtml_do_contents_limit(fp, file->child, limit);
file = file->next;
}
return count;
}
/*
* Write contents entries for the given section tree, down to the
* limit contents depth.
*/
static int
xhtml_do_contents_section_deep_limit(FILE * fp, xhtmlsection * section,
int limit)
{
int count = 0;
while (section)
{
if (!xhtml_add_contents_entry(fp, section, limit))
return 0;
else
count++;
count +=
xhtml_do_contents_section_deep_limit(fp, section->child, limit);
section = section->next;
}
return count;
}
/*
* Write contents entries for the given section tree, down to the
* limit contents depth.
*/
static int
xhtml_do_contents_section_limit(FILE * fp, xhtmlsection * section, int limit)
{
int count = 0;
if (!section)
return 0;
xhtml_add_contents_entry(fp, section, limit);
count = 1;
count += xhtml_do_contents_section_deep_limit(fp, section->child, limit);
/* section=section->child;
while (section && xhtml_add_contents_entry(fp, section, limit)) {
section = section->next;
} */
return count;
}
/*
* Add a section entry, unless we're exceeding the limit, in which
* case return FALSE (otherwise return TRUE).
*/
static int
xhtml_add_contents_entry(FILE * fp, xhtmlsection * section, int limit)
{
char fragmentbuf[NAMEDFRAGMENT_MAXLEN], *fragment, *filename;
if (!section || section->level > limit)
return FALSE;
if (fp == NULL || section->level < 0)
return TRUE;
while (last_level > section->level)
{
last_level--;
fprintf(fp, "\n");
if(chm_toc)fprintf(chm_toc, "\n");
}
while (last_level < section->level)
{
last_level++;
fprintf(fp, "