PRIVATE void HTML_end_element (HTStructured * me, int element_number)
{
if (!me->started) {
HTextImp_build(me->text, HTEXT_BEGIN);
me->started = YES;
}
/* Update our parse stack */
if (me->overflow > 0) {
me->overflow--;
return;
}
me->sp++;
if (me->sp > me->stack + MAX_NESTING - 1) {
HTTRACE(SGML_TRACE, "HTML Parser. Bottom of parse stack reached\n");
me->sp = me->stack + MAX_NESTING - 1;
}
/* Look at what element was closed */
switch(element_number) {
case HTML_TITLE:
HTAnchor_setTitle(me->node_anchor, HTChunk_data(me->title));
break;
case HTML_PRE:
if (me->comment_start)
HTextImp_addText(me->text, me->comment_start, strlen(me->comment_start));
break;
}
/* Call out to the layout engine */
HTextImp_endElement(me->text, element_number);
}
PRIVATE void parse_menu ARGS2 (
CONST char *, arg,
HTParentAnchor *,anAnchor)
{
char gtype;
char ch;
char line[BIG];
char address[BIG];
char *name, *selector; /* Gopher menu fields */
char *host;
char *port;
char *p = line;
#define TAB '\t'
#define HEX_ESCAPE '%'
if (!HTAnchor_title(anAnchor))
HTAnchor_setTitle(anAnchor, arg);/* Tell user something's happening */
node_anchor = anAnchor;
HT = HText_new(anAnchor);
HText_beginAppend(HT);
HText_appendText(HT, "Select one of:<P>\n<UL>");
/* HText_appendText(HT, "Select one of:<P>\n<UL>"); */
while ((ch=NEXT_CHAR) != (char)EOF)
{
if (ch != '\n')
{
*p = ch; /* Put character in line */
if (p< &line[BIG-1]) p++;
}
else
{
*p++ = 0; /* Terminate line */
p = line; /* Scan it to parse it */
port = 0; /* Flag "not parsed" */
if (TRACE) fprintf(stderr, "HTGopher: Menu item: %s\n", line);
gtype = *p++;
/* Break on line with a dot by itself */
if ((gtype=='.') && ((*p=='\r') || (*p==0))) break;
if (gtype && *p)
{
name = p;
selector = strchr(name, TAB);
if (selector) {
*selector++ = 0; /* Terminate name */
host = strchr(selector, TAB);
if (host) {
*host++ = 0; /* Terminate selector */
port = strchr(host, TAB);
if (port) {
char *junk;
port[0] = ':'; /* delimit host a la W3 */
junk = strchr(port, 13 /* was TAB */);
if (junk) *junk++ = 0; /* Chop port */
if ((port[1]=='0') && (!port[2]))
port[0] = 0; /* 0 means none */
} /* no port */
} /* host ok */
} /* selector ok */
} /* gtype and name ok */
if (gtype == GOPHER_WWW)
{ /* Gopher pointer to W3 */
HText_appendText(HT, "<LI> ");
write_anchor(name, selector);
HText_appendText(HT, "\n");
/* HText_appendParagraph(HT); */
}
else if (port)
{ /* Other types need port */
if (gtype == GOPHER_TELNET)
{
if (*selector)
sprintf(address, "telnet://%s@%s/",
selector, host);
else
sprintf(address, "telnet://%s/", host);
}
else if (gtype == GOPHER_TN3270)
{
if (*selector)
sprintf(address, "tn3270://%s@%s/",
selector, host);
else
sprintf(address, "tn3270://%s/", host);
}
else
{ /* If parsed ok */
char *q;
char *p;
sprintf(address, "gopher://%s/%c", host, gtype);
q = address+ strlen(address);
for(p=selector; *p; p++) { /* Encode selector string */
/* fprintf (stderr, "Checking %d (%c) for acceptable.\n",
*p, *p); */
if (acceptable[*p]) *q++ = *p;
else {
*q++ = HEX_ESCAPE; /* Means hex coming */
*q++ = hex[(TOASCII(*p)) >> 4];
*q++ = hex[(TOASCII(*p)) & 15];
}
}
*q++ = 0; /* terminate address */
}
/* HText_appendText(HT, " "); */ /* Prettier JW/TBL */
HText_appendText(HT, "<LI> ");
/* Error response from Gopher doesn't deserve to
be a hyperlink. */
if (strcmp (address, "gopher://error.host:1/0"))
write_anchor(name, address);
else
HText_appendText(HT, name);
HText_appendText(HT, "\n");
/* HText_appendParagraph(HT); */
}
else
{ /* parse error */
if (TRACE) fprintf(stderr,
"HTGopher: Bad menu item.\n");
HText_appendText(HT, line);
HText_appendParagraph(HT);
} /* parse error */
p = line; /* Start again at beginning of line */
} /* if end of line */
} /* Loop over characters */
PRIVATE void HTML_start_element (HTStructured * me,
int element_number,
const BOOL * present,
const char ** value)
{
HTChildAnchor * address = NULL;
if (!me->started) {
HTextImp_build(me->text, HTEXT_BEGIN);
me->started = YES;
}
/* Look at what element was started */
switch (element_number) {
case HTML_A:
if (present[HTML_A_HREF] && value[HTML_A_HREF]) {
address = HTAnchor_findChildAndLink(
me->node_anchor, /* parent */
present[HTML_A_NAME] ? value[HTML_A_NAME] : NULL, /* Tag */
value[HTML_A_HREF], /* Addresss */
present[HTML_A_REL] && value[HTML_A_REL] ?
(HTLinkType) HTAtom_caseFor(value[HTML_A_REL]) : NULL);
if (present[HTML_A_TITLE] && value[HTML_A_TITLE]) {
HTLink * link = HTAnchor_mainLink((HTAnchor *) address);
HTParentAnchor * dest = HTAnchor_parent(HTLink_destination(link));
if (!HTAnchor_title(dest)) HTAnchor_setTitle(dest, value[HTML_A_TITLE]);
}
HTextImp_foundLink(me->text, element_number, HTML_A_HREF,
address, present, value);
HTTRACE(SGML_TRACE, "HTML Parser. Anchor `%s\'\n" _ value[HTML_A_HREF]);
}
break;
case HTML_AREA:
if (present[HTML_AREA_HREF] && value[HTML_AREA_HREF]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_AREA_HREF], NULL);
HTextImp_foundLink(me->text, element_number, HTML_AREA_HREF,
address, present, value);
HTTRACE(SGML_TRACE, "HTML Parser. Image map area `%s\'\n" _ value[HTML_AREA_HREF]);
}
break;
case HTML_BASE:
if (present[HTML_BASE_HREF] && value[HTML_BASE_HREF]) {
HTAnchor_setBase(me->node_anchor, (char *) value[HTML_BASE_HREF]);
HTTRACE(SGML_TRACE, "HTML Parser. New base `%s\'\n" _ value[HTML_BASE_HREF]);
}
break;
case HTML_BODY:
if (present[HTML_BODY_BACKGROUND] && value[HTML_BODY_BACKGROUND]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_BODY_BACKGROUND], NULL);
HTextImp_foundLink(me->text, element_number, HTML_BODY_BACKGROUND,
address, present, value);
HTTRACE(SGML_TRACE, "HTML Parser. Background `%s\'\n" _ value[HTML_BODY_BACKGROUND]);
}
break;
case HTML_FORM:
if (present[HTML_FORM_ACTION] && value[HTML_FORM_ACTION]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_FORM_ACTION], NULL);
HTextImp_foundLink(me->text, element_number, HTML_FORM_ACTION,
address, present, value);
}
break;
case HTML_FRAME:
if (present[HTML_FRAME_SRC] && value[HTML_FRAME_SRC]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_FRAME_SRC], NULL);
HTextImp_foundLink(me->text, element_number, HTML_FRAME_SRC,
address, present, value);
HTTRACE(SGML_TRACE, "HTML Parser. Frame `%s\'\n" _ value[HTML_FRAME_SRC]);
}
break;
case HTML_INPUT:
if (present[HTML_INPUT_SRC] && value[HTML_INPUT_SRC]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_INPUT_SRC], NULL);
HTextImp_foundLink(me->text, element_number, HTML_INPUT_SRC,
address, present, value);
}
break;
case HTML_IMG:
if (present[HTML_IMG_SRC] && value[HTML_IMG_SRC]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_IMG_SRC], NULL);
HTextImp_foundLink(me->text, element_number, HTML_IMG_SRC,
address, present, value);
}
break;
case HTML_ISINDEX:
HTAnchor_setIndex(me->node_anchor);
break;
case HTML_LINK:
if (present[HTML_LINK_HREF] && value[HTML_LINK_HREF]) {
HTParentAnchor * dest = NULL;
address = HTAnchor_findChildAndLink(
me->node_anchor, /* parent */
present[HTML_A_NAME] ? value[HTML_A_NAME] : NULL, /* Tag */
present[HTML_A_HREF] ? value[HTML_A_HREF] : NULL, /* Addresss */
NULL); /* Rels */
dest = HTAnchor_parent(HTAnchor_followMainLink((HTAnchor *) address));
/* If forward reference */
if ((present[HTML_LINK_REL] && value[HTML_LINK_REL])) {
char * strval = NULL;
char * ptr = NULL;
char * relation = NULL;
StrAllocCopy(strval, value[HTML_LINK_REL]);
ptr = strval;
while ((relation = HTNextLWSToken(&ptr)) != NULL) {
HTLink_add((HTAnchor *) me->node_anchor, (HTAnchor *) dest,
(HTLinkType) HTAtom_caseFor(relation),
METHOD_INVALID);
}
HT_FREE(strval);
}
/* If reverse reference */
if ((present[HTML_LINK_REV] && value[HTML_LINK_REV])) {
char * strval = NULL;
char * ptr = NULL;
char * relation = NULL;
StrAllocCopy(strval, value[HTML_LINK_REV]);
ptr = strval;
while ((relation = HTNextLWSToken(&ptr)) != NULL) {
HTLink_add((HTAnchor *) dest, (HTAnchor *) me->node_anchor,
(HTLinkType) HTAtom_caseFor(relation),
METHOD_INVALID);
}
HT_FREE(strval);
}
/* If we got any type information as well */
if (present[HTML_LINK_TYPE] && value[HTML_LINK_TYPE]) {
if (HTAnchor_format(dest) == WWW_UNKNOWN)
HTAnchor_setFormat(dest,
(HTFormat) HTAtom_caseFor(value[HTML_LINK_TYPE]));
}
/* Call out to the layout engine */
HTextImp_foundLink(me->text, element_number, HTML_LINK_HREF,
address, present, value);
}
break;
case HTML_META:
if (present[HTML_META_NAME] && value[HTML_META_NAME]) {
HTAnchor_addMeta (me->node_anchor,
value[HTML_META_NAME],
(present[HTML_META_CONTENT] && value[HTML_META_CONTENT]) ?
value[HTML_META_CONTENT] : "");
}
break;
case HTML_OBJECT:
if (present[HTML_OBJECT_CLASSID] && value[HTML_OBJECT_CLASSID]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_OBJECT_CLASSID], NULL);
HTextImp_foundLink(me->text, element_number, HTML_OBJECT_CLASSID,
address, present, value);
}
if (present[HTML_OBJECT_CODEBASE] && value[HTML_OBJECT_CODEBASE]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_OBJECT_CODEBASE], NULL);
HTextImp_foundLink(me->text, element_number, HTML_OBJECT_CODEBASE,
address, present, value);
}
if (present[HTML_OBJECT_DATA] && value[HTML_OBJECT_DATA]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_OBJECT_DATA], NULL);
HTextImp_foundLink(me->text, element_number, HTML_OBJECT_DATA,
address, present, value);
}
if (present[HTML_OBJECT_ARCHIVE] && value[HTML_OBJECT_ARCHIVE]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_OBJECT_ARCHIVE], NULL);
HTextImp_foundLink(me->text, element_number, HTML_OBJECT_ARCHIVE,
address, present, value);
}
if (present[HTML_OBJECT_USEMAP] && value[HTML_OBJECT_USEMAP]) {
address = HTAnchor_findChildAndLink(me->node_anchor, NULL,
value[HTML_OBJECT_USEMAP], NULL);
HTextImp_foundLink(me->text, element_number, HTML_OBJECT_USEMAP,
address, present, value);
}
break;
case HTML_PRE:
if (me->comment_end)
HTextImp_addText(me->text, me->comment_end, strlen(me->comment_end));
break;
case HTML_TITLE:
HTChunk_truncate(me->title,0);
break;
}
/* Update our parse stack */
if (SGML_findTagContents(me->dtd, element_number) != SGML_EMPTY) {
if (me->sp == me->stack) {
HTTRACE(SGML_TRACE, "HTML Parser. Maximum nesting of %d exceded!\n" _ MAX_NESTING);
me->overflow++;
return;
}
--(me->sp);
me->sp[0] = element_number;
}
/* Call out to the layout engine */
HTextImp_beginElement(me->text, element_number, present, value);
}
