w3m

map.c (16502B)

---

 /* $Id$ */
 /*
  * client-side image maps
  */
 #include "fm.h"
 #include <math.h>
 
 MapList *
 searchMapList(Buffer *buf, char *name)
 {
     MapList *ml;
 
     if (name == NULL)
 	return NULL;
     for (ml = buf->maplist; ml != NULL; ml = ml->next) {
 	if (!Strcmp_charp(ml->name, name))
 	    break;
     }
     return ml;
 }
 
 #ifdef USE_IMAGE
 static int
 inMapArea(MapArea * a, int x, int y)
 {
     int i;
     double r1, r2, s, c, t;
 
     if (!a)
 	return FALSE;
     switch (a->shape) {
     case SHAPE_RECT:
 	if (x >= a->coords[0] && y >= a->coords[1] &&
 	    x <= a->coords[2] && y <= a->coords[3])
 	    return TRUE;
 	break;
     case SHAPE_CIRCLE:
 	if ((x - a->coords[0]) * (x - a->coords[0])
 	    + (y - a->coords[1]) * (y - a->coords[1])
 	    <= a->coords[2] * a->coords[2])
 	    return TRUE;
 	break;
     case SHAPE_POLY:
 	for (t = 0, i = 0; i < a->ncoords; i += 2) {
 	    r1 = sqrt((double)(x - a->coords[i]) * (x - a->coords[i])
 		      + (double)(y - a->coords[i + 1]) * (y -
 							  a->coords[i + 1]));
 	    r2 = sqrt((double)(x - a->coords[i + 2]) * (x - a->coords[i + 2])
 		      + (double)(y - a->coords[i + 3]) * (y -
 							  a->coords[i + 3]));
 	    if (r1 == 0 || r2 == 0)
 		return TRUE;
 	    s = ((double)(x - a->coords[i]) * (y - a->coords[i + 3])
 		 - (double)(x - a->coords[i + 2]) * (y -
 						     a->coords[i +
 							       1])) / r1 / r2;
 	    c = ((double)(x - a->coords[i]) * (x - a->coords[i + 2])
 		 + (double)(y - a->coords[i + 1]) * (y -
 						     a->coords[i +
 							       3])) / r1 / r2;
 	    t += atan2(s, c);
 	}
 	if (fabs(t) > 2 * 3.14)
 	    return TRUE;
 	break;
     case SHAPE_DEFAULT:
 	return TRUE;
     default:
 	break;
     }
     return FALSE;
 }
 
 static int
 nearestMapArea(MapList *ml, int x, int y)
 {
     ListItem *al;
     MapArea *a;
     int i, l, n = -1, min = -1, limit = pixel_per_char * pixel_per_char
 	+ pixel_per_line * pixel_per_line;
 
     if (!ml || !ml->area)
 	return n;
     for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (a) {
 	    l = (a->center_x - x) * (a->center_x - x)
 		+ (a->center_y - y) * (a->center_y - y);
 	    if ((min < 0 || l < min) && l < limit) {
 		n = i;
 		min = l;
 	    }
 	}
     }
     return n;
 }
 
 static int
 searchMapArea(Buffer *buf, MapList *ml, Anchor *a_img)
 {
     ListItem *al;
     MapArea *a;
     int i, n;
     int px, py;
 
     if (!(ml && ml->area && ml->area->nitem))
 	return -1;
     if (!getMapXY(buf, a_img, &px, &py))
 	return -1;
     n = -ml->area->nitem;
     for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (!a)
 	    continue;
 	if (n < 0 && inMapArea(a, px, py)) {
 	    if (a->shape == SHAPE_DEFAULT) {
 		if (n == -ml->area->nitem)
 		    n = -i;
 	    }
 	    else
 		n = i;
 	}
     }
     if (n == -ml->area->nitem)
 	return nearestMapArea(ml, px, py);
     else if (n < 0)
 	return -n;
     return n;
 }
 
 MapArea *
 retrieveCurrentMapArea(Buffer *buf)
 {
     Anchor *a_img, *a_form;
     FormItemList *fi;
     MapList *ml;
     ListItem *al;
     MapArea *a;
     int i, n;
 
     a_img = retrieveCurrentImg(buf);
     if (!(a_img && a_img->image && a_img->image->map))
 	return NULL;
     a_form = retrieveCurrentForm(buf);
     if (!(a_form && a_form->url))
 	return NULL;
     fi = (FormItemList *)a_form->url;
     if (!(fi && fi->parent && fi->parent->item))
 	return NULL;
     fi = fi->parent->item;
     ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
     if (!ml)
 	return NULL;
     n = searchMapArea(buf, ml, a_img);
     if (n < 0)
 	return NULL;
     for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (a && i == n)
 	    return a;
     }
     return NULL;
 }
 
 int
 getMapXY(Buffer *buf, Anchor *a, int *x, int *y)
 {
     if (!buf || !a || !a->image || !x || !y)
 	return 0;
     *x = (int)((buf->currentColumn + buf->cursorX
 		- COLPOS(buf->currentLine, a->start.pos) + 0.5)
 	       * pixel_per_char) - a->image->xoffset;
     *y = (int)((buf->currentLine->linenumber - a->image->y + 0.5)
 	       * pixel_per_line) - a->image->yoffset;
     if (*x <= 0)
 	*x = 1;
     if (*y <= 0)
 	*y = 1;
     return 1;
 }
 #endif
 
 Anchor *
 retrieveCurrentMap(Buffer *buf)
 {
     Anchor *a;
     FormItemList *fi;
 
     a = retrieveCurrentForm(buf);
     if (!a || !a->url)
 	return NULL;
     fi = (FormItemList *)a->url;
     if (fi->parent->method == FORM_METHOD_INTERNAL &&
 	!Strcmp_charp(fi->parent->action, "map"))
 	return a;
     return NULL;
 }
 
 #if defined(USE_IMAGE) || defined(MENU_MAP)
 MapArea *
 follow_map_menu(Buffer *buf, char *name, Anchor *a_img, int x, int y)
 {
     MapList *ml;
     ListItem *al;
     int i, selected = -1;
     int initial = 0;
 #ifdef MENU_MAP
     MapArea *a;
     char **label;
 #endif
 
     ml = searchMapList(buf, name);
     if (ml == NULL || ml->area == NULL || ml->area->nitem == 0)
 	return NULL;
 
 #ifdef USE_IMAGE
     initial = searchMapArea(buf, ml, a_img);
     if (initial < 0)
 	initial = 0;
     else if (!image_map_list) {
 	selected = initial;
 	goto map_end;
     }
 #endif
 
 #ifdef MENU_MAP
     label = New_N(char *, ml->area->nitem + 1);
     for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (a)
 	    label[i] = *a->alt ? a->alt : a->url;
 	else
 	    label[i] = "";
     }
     label[ml->area->nitem] = NULL;
 
     optionMenu(x, y, label, &selected, initial, NULL);
 #endif
 
 #ifdef USE_IMAGE
   map_end:
 #endif
     if (selected >= 0) {
 	for (i = 0, al = ml->area->first; al != NULL; i++, al = al->next) {
 	    if (al->ptr && i == selected)
 		return (MapArea *) al->ptr;
 	}
     }
     return NULL;
 }
 #endif
 
 #ifndef MENU_MAP
 char *map1 = "<HTML><HEAD><TITLE>Image map links</TITLE></HEAD>\
 <BODY><H1>Image map links</H1>\
 <table>";
 
 Buffer *
 follow_map_panel(Buffer *buf, char *name)
 {
     Str mappage;
     MapList *ml;
     ListItem *al;
     MapArea *a;
     ParsedURL pu;
     char *p, *q;
     Buffer *newbuf;
 
     ml = searchMapList(buf, name);
     if (ml == NULL)
 	return NULL;
 
     mappage = Strnew_charp(map1);
     for (al = ml->area->first; al != NULL; al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (!a)
 	    continue;
 	parseURL2(a->url, &pu, baseURL(buf));
 	p = parsedURL2Str(&pu)->ptr;
 	q = html_quote(p);
 	if (DecodeURL)
 	    p = html_quote(url_unquote_conv(p, buf->document_charset));
 	else
 	    p = q;
 	Strcat_m_charp(mappage, "<tr valign=top><td><a href=\"", q, "\">",
 		       html_quote(*a->alt ? a->alt : mybasename(a->url)),
 		       "</a><td>", p, NULL);
     }
     Strcat_charp(mappage, "</table></body></html>");
 
     newbuf = loadHTMLString(mappage);
 #ifdef USE_M17N
     if (newbuf)
 	newbuf->document_charset = buf->document_charset;
 #endif
     return newbuf;
 }
 #endif
 
 MapArea *
 newMapArea(char *url, char *target, char *alt, char *shape, char *coords)
 {
     MapArea *a = New(MapArea);
 #ifdef USE_IMAGE
     char *p;
     int i, max;
 #endif
 
     a->url = url;
     a->target = target;
     a->alt = alt ? alt : "";
 #ifdef USE_IMAGE
     a->shape = SHAPE_RECT;
     if (shape) {
 	if (!strcasecmp(shape, "default"))
 	    a->shape = SHAPE_DEFAULT;
 	else if (!strncasecmp(shape, "rect", 4))
 	    a->shape = SHAPE_RECT;
 	else if (!strncasecmp(shape, "circ", 4))
 	    a->shape = SHAPE_CIRCLE;
 	else if (!strncasecmp(shape, "poly", 4))
 	    a->shape = SHAPE_POLY;
 	else
 	    a->shape = SHAPE_UNKNOWN;
     }
     a->coords = NULL;
     a->ncoords = 0;
     a->center_x = 0;
     a->center_y = 0;
     if (a->shape == SHAPE_UNKNOWN || a->shape == SHAPE_DEFAULT)
 	return a;
     if (!coords) {
 	a->shape = SHAPE_UNKNOWN;
 	return a;
     }
     if (a->shape == SHAPE_RECT) {
 	a->coords = New_N(short, 4);
 	a->ncoords = 4;
     }
     else if (a->shape == SHAPE_CIRCLE) {
 	a->coords = New_N(short, 3);
 	a->ncoords = 3;
     }
     max = a->ncoords;
     for (i = 0, p = coords; (a->shape == SHAPE_POLY || i < a->ncoords) && *p;) {
 	while (IS_SPACE(*p))
 	    p++;
 	if (!IS_DIGIT(*p) && *p != '-' && *p != '+')
 	    break;
 	if (a->shape == SHAPE_POLY) {
 	    if (max <= i) {
 		max = i ? i * 2 : 6;
 		a->coords = New_Reuse(short, a->coords, max + 2);
 	    }
 	    a->ncoords++;
 	}
 	a->coords[i] = (short)atoi(p);
 	i++;
 	if (*p == '-' || *p == '+')
 	    p++;
 	while (IS_DIGIT(*p))
 	    p++;
 	if (*p != ',' && !IS_SPACE(*p))
 	    break;
 	while (IS_SPACE(*p))
 	    p++;
 	if (*p == ',')
 	    p++;
     }
     if (i != a->ncoords || (a->shape == SHAPE_POLY && a->ncoords < 6)) {
 	a->shape = SHAPE_UNKNOWN;
 	a->coords = NULL;
 	a->ncoords = 0;
 	return a;
     }
     if (a->shape == SHAPE_POLY) {
 	a->ncoords = a->ncoords / 2 * 2;
 	a->coords[a->ncoords] = a->coords[0];
 	a->coords[a->ncoords + 1] = a->coords[1];
     }
     if (a->shape == SHAPE_CIRCLE) {
 	a->center_x = a->coords[0];
 	a->center_y = a->coords[1];
     }
     else {
 	for (i = 0; i < a->ncoords / 2; i++) {
 	    a->center_x += a->coords[2 * i];
 	    a->center_y += a->coords[2 * i + 1];
 	}
 	a->center_x /= a->ncoords / 2;
 	a->center_y /= a->ncoords / 2;
     }
 #endif
     return a;
 }
 
 /* append image map links */
 static void
 append_map_info(Buffer *buf, Str tmp, FormItemList *fi)
 {
     MapList *ml;
     ListItem *al;
     MapArea *a;
     ParsedURL pu;
     char *p, *q;
 
     ml = searchMapList(buf, fi->value ? fi->value->ptr : NULL);
     if (ml == NULL)
 	return;
 
     Strcat_m_charp(tmp,
 		   "<tr valign=top><td colspan=2>Links of current image map",
 		   "<tr valign=top><td colspan=2><table>", NULL);
     for (al = ml->area->first; al != NULL; al = al->next) {
 	a = (MapArea *) al->ptr;
 	if (!a)
 	    continue;
 	parseURL2(a->url, &pu, baseURL(buf));
 	q = html_quote(parsedURL2Str(&pu)->ptr);
 	if (DecodeURL)
 	    p = html_quote(url_unquote_conv(a->url, buf->document_charset));
 	else
 	    p = html_quote(a->url);
 	Strcat_m_charp(tmp, "<tr valign=top><td>&nbsp;&nbsp;<td><a href=\"",
 		       q, "\">",
 		       html_quote(*a->alt ? a->alt : mybasename(a->url)),
 		       "</a><td>", p, "\n", NULL);
     }
     Strcat_charp(tmp, "</table>");
 }
 
 /* append links */
 static void
 append_link_info(Buffer *buf, Str html, LinkList * link)
 {
     LinkList *l;
     ParsedURL pu;
     char *url;
 
     if (!link)
 	return;
 
     Strcat_charp(html, "<hr width=50%><h1>Link information</h1><table>\n");
     for (l = link; l; l = l->next) {
 	if (l->url) {
 	    parseURL2(l->url, &pu, baseURL(buf));
 	    url = html_quote(parsedURL2Str(&pu)->ptr);
 	}
 	else
 	    url = "(empty)";
 	Strcat_m_charp(html, "<tr valign=top><td><a href=\"", url, "\">",
 		       l->title ? html_quote(l->title) : "(empty)", "</a><td>",
 		       NULL);
 	if (l->type == LINK_TYPE_REL)
 	    Strcat_charp(html, "[Rel]");
 	else if (l->type == LINK_TYPE_REV)
 	    Strcat_charp(html, "[Rev]");
 	if (!l->url)
 	    url = "(empty)";
 	else if (DecodeURL)
 	    url = html_quote(url_unquote_conv(l->url, buf->document_charset));
 	else
 	    url = html_quote(l->url);
 	Strcat_m_charp(html, "<td>", url, NULL);
 	if (l->ctype)
 	    Strcat_m_charp(html, " (", html_quote(l->ctype), ")", NULL);
 	Strcat_charp(html, "\n");
     }
     Strcat_charp(html, "</table>\n");
 }
 
 /* append frame URL */
 static void
 append_frame_info(Buffer *buf, Str html, struct frameset *set, int level)
 {
     char *p, *q;
     int i, j;
 
     if (!set)
 	return;
 
     for (i = 0; i < set->col * set->row; i++) {
 	union frameset_element frame = set->frame[i];
 	if (frame.element != NULL) {
 	    switch (frame.element->attr) {
 	    case F_UNLOADED:
 	    case F_BODY:
 		if (frame.body->url == NULL)
 		    break;
 		Strcat_charp(html, "<pre_int>");
 		for (j = 0; j < level; j++)
 		    Strcat_charp(html, "   ");
 		q = html_quote(frame.body->url);
 		Strcat_m_charp(html, "<a href=\"", q, "\">", NULL);
 		if (frame.body->name) {
 		    p = html_quote(url_unquote_conv(frame.body->name,
 						    buf->document_charset));
 		    Strcat_charp(html, p);
 		}
 		if (DecodeURL)
 		    p = html_quote(url_unquote_conv(frame.body->url,
 						    buf->document_charset));
 		else
 		    p = q;
 		Strcat_m_charp(html, " ", p, "</a></pre_int><br>\n", NULL);
 #ifdef USE_SSL
 		if (frame.body->ssl_certificate)
 		    Strcat_m_charp(html,
 				   "<blockquote><h2>SSL certificate</h2><pre>\n",
 				   html_quote(frame.body->ssl_certificate),
 				   "</pre></blockquote>\n", NULL);
 #endif
 		break;
 	    case F_FRAMESET:
 		append_frame_info(buf, html, frame.set, level + 1);
 		break;
 	    }
 	}
     }
 }
 
 /* 
  * information of current page and link 
  */
 Buffer *
 page_info_panel(Buffer *buf)
 {
     Str tmp = Strnew_size(1024);
     Anchor *a;
     ParsedURL pu;
     TextListItem *ti;
     struct frameset *f_set = NULL;
     int all;
     char *p, *q;
 #ifdef USE_M17N
     wc_ces_list *list;
     char charset[16];
 #endif
     Buffer *newbuf;
 
     Strcat_charp(tmp, "<html><head>\
 <title>Information about current page</title>\
 </head><body>\
 <h1>Information about current page</h1>\n");
     if (buf == NULL)
 	goto end;
     all = buf->allLine;
     if (all == 0 && buf->lastLine)
 	all = buf->lastLine->linenumber;
 #ifdef USE_M17N
     Strcat_charp(tmp, "<form method=internal action=charset>");
 #endif
     p = parsedURL2Str(&buf->currentURL)->ptr;
     if (DecodeURL)
 	p = url_unquote_conv(p, 0);
     Strcat_m_charp(tmp, "<table cellpadding=0>",
 		   "<tr valign=top><td nowrap>Title<td>",
 		   html_quote(buf->buffername),
 		   "<tr valign=top><td nowrap>Current URL<td>",
 		   html_quote(p),
 		   "<tr valign=top><td nowrap>Document Type<td>",
 		   buf->real_type ? html_quote(buf->real_type) : "unknown",
 		   "<tr valign=top><td nowrap>Last Modified<td>",
 		   html_quote(last_modified(buf)), NULL);
 #ifdef USE_M17N
     if (buf->document_charset != InnerCharset) {
 	list = wc_get_ces_list();
 	Strcat_charp(tmp,
 		     "<tr><td nowrap>Document Charset<td><select name=charset>");
 	for (; list->name != NULL; list++) {
 	    sprintf(charset, "%d", (unsigned int)list->id);
 	    Strcat_m_charp(tmp, "<option value=", charset,
 			   (buf->document_charset == list->id) ? " selected>"
 			   : ">", list->desc, NULL);
 	}
 	Strcat_charp(tmp, "</select>");
 	Strcat_charp(tmp, "<tr><td><td><input type=submit value=Change>");
     }
 #endif
     Strcat_m_charp(tmp,
 		   "<tr valign=top><td nowrap>Number of lines<td>",
 		   Sprintf("%d", all)->ptr,
 		   "<tr valign=top><td nowrap>Transferred bytes<td>",
 		   Sprintf("%d", buf->trbyte)->ptr, NULL);
 
     a = retrieveCurrentAnchor(buf);
     if (a != NULL) {
 	parseURL2(a->url, &pu, baseURL(buf));
 	p = parsedURL2Str(&pu)->ptr;
 	q = html_quote(p);
 	if (DecodeURL)
 	    p = html_quote(url_unquote_conv(p, buf->document_charset));
 	else
 	    p = q;
 	Strcat_m_charp(tmp,
 		       "<tr valign=top><td nowrap>URL of current anchor<td><a href=\"",
 		       q, "\">", p, "</a>", NULL);
     }
     a = retrieveCurrentImg(buf);
     if (a != NULL) {
 	parseURL2(a->url, &pu, baseURL(buf));
 	p = parsedURL2Str(&pu)->ptr;
 	q = html_quote(p);
 	if (DecodeURL)
 	    p = html_quote(url_unquote_conv(p, buf->document_charset));
 	else
 	    p = q;
 	Strcat_m_charp(tmp,
 		       "<tr valign=top><td nowrap>URL of current image<td><a href=\"",
 		       q, "\">", p, "</a>", NULL);
     }
     a = retrieveCurrentForm(buf);
     if (a != NULL) {
 	FormItemList *fi = (FormItemList *)a->url;
 	p = form2str(fi);
 	if (DecodeURL)
 	    p = html_quote(url_unquote_conv(p, buf->document_charset));
 	else
 	    p = html_quote(p);
 	Strcat_m_charp(tmp,
 		       "<tr valign=top><td nowrap>Method/type of current form&nbsp;<td>",
 		       p, NULL);
 	if (fi->parent->method == FORM_METHOD_INTERNAL
 	    && !Strcmp_charp(fi->parent->action, "map"))
 	    append_map_info(buf, tmp, fi->parent->item);
     }
     Strcat_charp(tmp, "</table>\n");
 #ifdef USE_M17N
     Strcat_charp(tmp, "</form>");
 #endif
 
     append_link_info(buf, tmp, buf->linklist);
 
     if (buf->document_header != NULL) {
 	Strcat_charp(tmp, "<hr width=50%><h1>Header information</h1><pre>\n");
 	for (ti = buf->document_header->first; ti != NULL; ti = ti->next)
 	    Strcat_m_charp(tmp, "<pre_int>", html_quote(ti->ptr),
 			   "</pre_int>\n", NULL);
 	Strcat_charp(tmp, "</pre>\n");
     }
 
     if (buf->frameset != NULL)
 	f_set = buf->frameset;
     else if (buf->bufferprop & BP_FRAME &&
 	     buf->nextBuffer != NULL && buf->nextBuffer->frameset != NULL)
 	f_set = buf->nextBuffer->frameset;
 
     if (f_set) {
 	Strcat_charp(tmp, "<hr width=50%><h1>Frame information</h1>\n");
 	append_frame_info(buf, tmp, f_set, 0);
     }
 #ifdef USE_SSL
     if (buf->ssl_certificate)
 	Strcat_m_charp(tmp, "<h1>SSL certificate</h1><pre>\n",
 		       html_quote(buf->ssl_certificate), "</pre>\n", NULL);
 #endif
   end:
     Strcat_charp(tmp, "</body></html>");
     newbuf = loadHTMLString(tmp);
 #ifdef USE_M17N
     if (newbuf)
 	newbuf->document_charset = buf->document_charset;
 #endif
     return newbuf;
 }