183 lines
4.7 KiB
C
183 lines
4.7 KiB
C
/* html.c -- html-related utilities.
|
||
$Id: html.c,v 1.5 1999/09/18 19:27:41 karl Exp $
|
||
|
||
Copyright (C) 1999 Free Software Foundation, Inc.
|
||
|
||
This program is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
This program is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with this program; if not, write to the Free Software Foundation,
|
||
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
||
|
||
#include "system.h"
|
||
#include "cmds.h"
|
||
#include "html.h"
|
||
#include "lang.h"
|
||
#include "makeinfo.h"
|
||
#include "sectioning.h"
|
||
|
||
/* See html.h. */
|
||
int html_output_head_p = 0;
|
||
|
||
void
|
||
html_output_head ()
|
||
{
|
||
char *html_title;
|
||
|
||
if (html_output_head_p)
|
||
return;
|
||
html_output_head_p = 1;
|
||
|
||
/* The <title> should not have markup. */
|
||
html_title = title ? text_expansion (title) : _("Untitled");
|
||
|
||
add_word_args ("<html lang=\"%s\"><head>\n<title>%s</title>\n",
|
||
language_table[language_code].abbrev, html_title);
|
||
|
||
add_word ("<meta http-equiv=\"Content-Type\" content=\"text/html");
|
||
if (document_encoding)
|
||
add_word_args ("; charset=%s", document_encoding);
|
||
add_word ("\">\n");
|
||
|
||
add_word_args ("<meta name=description content=\"%s\">\n", html_title);
|
||
add_word_args ("<meta name=generator content=\"makeinfo %s\">\n", VERSION);
|
||
add_word ("<link href=\"http://texinfo.org/\" rel=generator-home>\n");
|
||
add_word ("</head><body>\n\n");
|
||
}
|
||
|
||
|
||
/* Escape HTML special characters in the string if necessary,
|
||
returning a pointer to a possibly newly-allocated one. */
|
||
char *
|
||
escape_string (string)
|
||
char * string;
|
||
{
|
||
int i=0, newlen=0;
|
||
char * newstring;
|
||
|
||
do
|
||
{
|
||
/* Find how much to allocate. */
|
||
switch (string[i])
|
||
{
|
||
case '&':
|
||
newlen += 5; /* `&' */
|
||
break;
|
||
case '<':
|
||
case '>':
|
||
newlen += 4; /* `<', `>' */
|
||
break;
|
||
default:
|
||
newlen++;
|
||
}
|
||
i++;
|
||
}
|
||
while (string[i]);
|
||
|
||
if (newlen == i) return string; /* Already OK. */
|
||
|
||
newstring = xmalloc (newlen + 2);
|
||
i = 0;
|
||
do
|
||
{
|
||
switch (string[i])
|
||
{
|
||
case '&':
|
||
strcpy (newstring, "&");
|
||
newstring += 5;
|
||
break;
|
||
case '<':
|
||
strcpy (newstring, "<");
|
||
newstring += 4;
|
||
break;
|
||
case '>':
|
||
strcpy (newstring, ">");
|
||
newstring += 4;
|
||
break;
|
||
default:
|
||
newstring[0] = string[i];
|
||
newstring++;
|
||
}
|
||
}
|
||
while (string[i++]);
|
||
free (string);
|
||
return newstring - newlen -1;
|
||
}
|
||
|
||
/* Open or close TAG according to START_OR_END. */
|
||
void
|
||
insert_html_tag (start_or_end, tag)
|
||
int start_or_end;
|
||
char *tag;
|
||
{
|
||
if (!paragraph_is_open && (start_or_end == START))
|
||
{
|
||
/* Need to compensate for the <p> we are about to insert, or
|
||
else cm_xxx functions that call us will get wrong text
|
||
between START and END. */
|
||
adjust_braces_following (output_paragraph_offset, 3);
|
||
add_word ("<p>");
|
||
}
|
||
add_char ('<');
|
||
if (start_or_end != START)
|
||
add_char ('/');
|
||
add_word (tag);
|
||
add_char ('>');
|
||
}
|
||
|
||
/* Output an HTML <link> to the filename for NODE, including the
|
||
other string as extra attributes. */
|
||
void
|
||
add_link (node, attributes)
|
||
char *node, *attributes;
|
||
{
|
||
if (node)
|
||
{
|
||
add_word_args ("<link %s href=\"", attributes);
|
||
add_anchor_name (node, 1);
|
||
add_word ("\">\n");
|
||
}
|
||
}
|
||
|
||
/* Output NAME with characters escaped as appropriate for an anchor
|
||
name, i.e., escape URL special characters as %<n>. */
|
||
void
|
||
add_escaped_anchor_name (name)
|
||
char *name;
|
||
{
|
||
for (; *name; name++)
|
||
{
|
||
if (*name == '&')
|
||
add_word ("&");
|
||
else if (! URL_SAFE_CHAR (*name))
|
||
/* Cast so characters with the high bit set are treated as >128,
|
||
for example o-umlaut should be 246, not -10. */
|
||
add_word_args ("%%%x", (unsigned char) *name);
|
||
else
|
||
add_char (*name);
|
||
}
|
||
}
|
||
|
||
/* Insert the text for the name of a reference in an HTML anchor
|
||
appropriate for NODENAME. If HREF is nonzero, it will be
|
||
appropriate for a href= attribute, rather than name= i.e., including
|
||
the `#' if it's an internal reference. */
|
||
void
|
||
add_anchor_name (nodename, href)
|
||
char *nodename;
|
||
int href;
|
||
{
|
||
if (href)
|
||
add_char ('#');
|
||
|
||
add_escaped_anchor_name (nodename);
|
||
}
|