2021-04-19 10:47:21 +00:00
|
|
|
/*
|
|
|
|
* misc.c
|
|
|
|
*
|
|
|
|
* libhtml - HTML->X renderer
|
|
|
|
* Copyright (c) 1995-1997, John Kilburg <john@cs.unlv.edu>
|
|
|
|
*
|
|
|
|
* 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 of the License, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
*/
|
|
|
|
#include "port_before.h"
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
|
|
#include <stdlib.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "port_after.h"
|
|
|
|
|
|
|
|
#include "html.h"
|
|
|
|
|
|
|
|
static void RenderAnchor _ArgProto((HTMLInfo, HTMLBox, Region));
|
|
|
|
|
|
|
|
/*
|
|
|
|
* RenderAnchor
|
|
|
|
*/
|
|
|
|
static void
|
|
|
|
RenderAnchor(li, box, r)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLBox box;
|
|
|
|
Region r;
|
|
|
|
{
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLAnchorBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
char *value;
|
|
|
|
HTMLBox box;
|
|
|
|
|
|
|
|
if ((value = MLFindAttribute(p, "name")) != NULL)
|
|
|
|
{
|
|
|
|
box = HTMLCreateBox(li, env);
|
|
|
|
box->width = 2;
|
|
|
|
box->height = 2;
|
|
|
|
box->render = RenderAnchor;
|
|
|
|
HTMLEnvAddBox(li, env, box);
|
|
|
|
HTMLAddAnchor(li, box, value, NULL);
|
|
|
|
}
|
|
|
|
if (MLFindAttribute(p, "href") != NULL) env->anchor = p;
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
HTMLInsertStatus
|
|
|
|
HTMLAnchorInsert(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
if (MLFindAttribute(p, "href") == NULL)
|
|
|
|
{
|
|
|
|
if (MLFindAttribute(p, "name") != NULL) return(HTMLInsertEmpty);
|
|
|
|
else return(HTMLInsertReject);
|
|
|
|
}
|
|
|
|
return(HTMLInsertOK);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLHxBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAttribID aid;
|
|
|
|
HTMLTagID tagid;
|
|
|
|
|
|
|
|
tagid = HTMLTagToID(env->tag);
|
|
|
|
|
|
|
|
if (tagid == TAG_H1) HTMLSetFontScale(env->fi, 5);
|
|
|
|
else if (tagid == TAG_H2) HTMLSetFontScale(env->fi, 4);
|
|
|
|
else if (tagid == TAG_H3) HTMLSetFontScale(env->fi, 3);
|
|
|
|
else if (tagid == TAG_H4) HTMLSetFontScale(env->fi, 2);
|
|
|
|
else if (tagid == TAG_H5) HTMLSetFontScale(env->fi, 1);
|
|
|
|
else if (tagid == TAG_H6) HTMLSetFontScale(env->fi, 0);
|
|
|
|
|
|
|
|
aid = HTMLAttributeToID(p, "align");
|
|
|
|
if (aid == ATTRIB_CENTER || aid == ATTRIB_RIGHT)
|
|
|
|
{
|
|
|
|
if (aid == ATTRIB_CENTER) env->ff = FLOW_CENTER_JUSTIFY;
|
|
|
|
else if (aid == ATTRIB_RIGHT) env->ff = FLOW_RIGHT_JUSTIFY;
|
|
|
|
}
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLHxEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLFontBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLTagID tagid = HTMLTagToID(env->tag);
|
|
|
|
|
|
|
|
if (tagid == TAG_EM || tagid == TAG_CITE || tagid == TAG_I)
|
|
|
|
{
|
|
|
|
HTMLAddFontSlant(env->fi);
|
|
|
|
}
|
|
|
|
else if (tagid == TAG_B || tagid == TAG_STRONG)
|
|
|
|
{
|
|
|
|
HTMLAddFontWeight(env->fi);
|
|
|
|
}
|
|
|
|
else if (tagid == TAG_TT) HTMLSetFontFixed(env->fi);
|
2021-04-19 14:49:45 +00:00
|
|
|
|
2021-04-19 10:47:21 +00:00
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLParaBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAttribID aid;
|
|
|
|
|
|
|
|
aid = HTMLAttributeToID(p, "align");
|
|
|
|
if (aid == ATTRIB_CENTER || aid == ATTRIB_RIGHT)
|
|
|
|
{
|
|
|
|
if (aid == ATTRIB_CENTER) env->ff = FLOW_CENTER_JUSTIFY;
|
|
|
|
else if (aid == ATTRIB_RIGHT) env->ff = FLOW_RIGHT_JUSTIFY;
|
|
|
|
}
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLParaEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
HTMLInsertStatus
|
|
|
|
HTMLParaInsert(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* If the current environment is <p> then terminate the environment
|
|
|
|
* before starting the new one.
|
|
|
|
*/
|
|
|
|
if (HTMLTagToID(env->tag) == TAG_P) HTMLEndEnv(li, TAG_P);
|
|
|
|
return(HTMLInsertOK);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* HTMLBreak
|
|
|
|
*/
|
|
|
|
void
|
|
|
|
HTMLBreak(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAttribID aid;
|
|
|
|
HTMLBox box;
|
|
|
|
|
|
|
|
box = HTMLCreateBox(li, env);
|
|
|
|
|
|
|
|
aid = HTMLAttributeToID(p, "clear");
|
|
|
|
if (aid == ATTRIB_LEFT) HTMLSetB(box, BOX_CLEAR_LEFT);
|
|
|
|
else if (aid == ATTRIB_RIGHT) HTMLSetB(box, BOX_CLEAR_RIGHT);
|
|
|
|
else if (aid == ATTRIB_ALL) HTMLSetB(box, BOX_CLEAR_RIGHT | BOX_CLEAR_LEFT);
|
|
|
|
else HTMLSetB(box, BOX_LINEBREAK);
|
|
|
|
|
|
|
|
HTMLEnvAddBox(li, env, box);
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLAddressBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddFontSlant(env->fi);
|
|
|
|
HTMLAddBlankLine(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLAddressEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddBlankLine(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLBQBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLBQEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLCenterBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
env->ff = FLOW_CENTER_JUSTIFY;
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLCenterEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLDivBegin(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAttribID aid;
|
|
|
|
|
|
|
|
aid = HTMLAttributeToID(p, "align");
|
|
|
|
if (aid == ATTRIB_CENTER) env->ff = FLOW_CENTER_JUSTIFY;
|
|
|
|
else if (aid == ATTRIB_LEFT) env->ff = FLOW_LEFT_JUSTIFY;
|
|
|
|
else if (aid == ATTRIB_RIGHT) env->ff = FLOW_RIGHT_JUSTIFY;
|
|
|
|
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
HTMLDivEnd(li, env, p)
|
|
|
|
HTMLInfo li;
|
|
|
|
HTMLEnv env;
|
|
|
|
MLElement p;
|
|
|
|
{
|
|
|
|
HTMLAddLineBreak(li, env);
|
|
|
|
|
|
|
|
return;
|
|
|
|
}
|