From 72f72d64a422d6628c4796f5c0bf2e508f134214 Mon Sep 17 00:00:00 2001 From: Tatsuya Kinoshita Date: Wed, 4 May 2011 16:05:14 +0900 Subject: Adding upstream version 0.5.1 --- map.c | 665 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 665 insertions(+) create mode 100644 map.c (limited to 'map.c') diff --git a/map.c b/map.c new file mode 100644 index 0000000..90aa35a --- /dev/null +++ b/map.c @@ -0,0 +1,665 @@ +/* $Id: map.c,v 1.30 2003/09/24 18:49:00 ukai Exp $ */ +/* + * client-side image maps + */ +#include "fm.h" +#include + +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 = "Image map links\ +

Image map links

\ +"; + +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, "
", + html_quote(*a->alt ? a->alt : mybasename(a->url)), + "", p, NULL); + } + Strcat_charp(mappage, "
"); + + 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, + "Links of current image map", + "", 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, "
  ", + html_quote(*a->alt ? a->alt : mybasename(a->url)), + "", p, "\n", NULL); + } + Strcat_charp(tmp, "
"); +} + +/* 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, "

Link information

\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, "
", + l->title ? html_quote(l->title) : "(empty)", "", + 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, "", url, NULL); + if (l->ctype) + Strcat_m_charp(html, " (", html_quote(l->ctype), ")", NULL); + Strcat_charp(html, "\n"); + } + Strcat_charp(html, "
\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, ""); + for (j = 0; j < level; j++) + Strcat_charp(html, " "); + q = html_quote(frame.body->url); + Strcat_m_charp(html, "", 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, "
\n", NULL); +#ifdef USE_SSL + if (frame.body->ssl_certificate) + Strcat_m_charp(html, + "

SSL certificate

\n",
+				   html_quote(frame.body->ssl_certificate),
+				   "
\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, "\ +Information about current page\ +\ +

Information about current page

\n"); + if (buf == NULL) + goto end; + all = buf->allLine; + if (all == 0 && buf->lastLine) + all = buf->lastLine->linenumber; +#ifdef USE_M17N + Strcat_charp(tmp, "
"); +#endif + p = parsedURL2Str(&buf->currentURL)->ptr; + if (DecodeURL) + p = url_unquote_conv(p, 0); + Strcat_m_charp(tmp, "", + "
Title", + html_quote(buf->buffername), + "
Current URL", + html_quote(p), + "
Document Type", + buf->real_type ? html_quote(buf->real_type) : "unknown", + "
Last Modified", + html_quote(last_modified(buf)), NULL); +#ifdef USE_M17N + if (buf->document_charset != InnerCharset) { + list = wc_get_ces_list(); + Strcat_charp(tmp, + "
Document Charset"); + Strcat_charp(tmp, "
"); + } +#endif + Strcat_m_charp(tmp, + "
Number of lines", + Sprintf("%d", all)->ptr, + "
Transferred bytes", + 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, + "
URL of current anchor", p, "", 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, + "
URL of current image", p, "", 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, + "
Method/type of current form ", + 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, "
\n"); +#ifdef USE_M17N + Strcat_charp(tmp, "
"); +#endif + + append_link_info(buf, tmp, buf->linklist); + + if (buf->document_header != NULL) { + Strcat_charp(tmp, "

Header information

\n");
+	for (ti = buf->document_header->first; ti != NULL; ti = ti->next)
+	    Strcat_m_charp(tmp, "", html_quote(ti->ptr),
+			   "\n", NULL);
+	Strcat_charp(tmp, "
\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, "

Frame information

\n"); + append_frame_info(buf, tmp, f_set, 0); + } +#ifdef USE_SSL + if (buf->ssl_certificate) + Strcat_m_charp(tmp, "

SSL certificate

\n",
+		       html_quote(buf->ssl_certificate), "
\n", NULL); +#endif + end: + Strcat_charp(tmp, ""); + newbuf = loadHTMLString(tmp); +#ifdef USE_M17N + if (newbuf) + newbuf->document_charset = buf->document_charset; +#endif + return newbuf; +} -- cgit v1.2.3 From 1d0ba25a660483da1272a31dd077ed94441e3d9f Mon Sep 17 00:00:00 2001 From: Tatsuya Kinoshita Date: Sat, 2 Jan 2021 09:20:37 +0900 Subject: New upstream version 0.5.3+git20210102 --- map.c | 29 +++++++++-------------------- 1 file changed, 9 insertions(+), 20 deletions(-) (limited to 'map.c') diff --git a/map.c b/map.c index 90aa35a..bb240ea 100644 --- a/map.c +++ b/map.c @@ -279,7 +279,7 @@ follow_map_panel(Buffer *buf, char *name) p = parsedURL2Str(&pu)->ptr; q = html_quote(p); if (DecodeURL) - p = html_quote(url_unquote_conv(p, buf->document_charset)); + p = html_quote(url_decode2(p, buf)); else p = q; Strcat_m_charp(mappage, "", @@ -417,10 +417,7 @@ append_map_info(Buffer *buf, Str tmp, FormItemList *fi) 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); + p = html_quote(url_decode2(a->url, buf)); Strcat_m_charp(tmp, "  ", html_quote(*a->alt ? a->alt : mybasename(a->url)), @@ -457,10 +454,8 @@ append_link_info(Buffer *buf, Str html, LinkList * link) 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); + url = html_quote(url_decode2(l->url, buf)); Strcat_m_charp(html, "", url, NULL); if (l->ctype) Strcat_m_charp(html, " (", html_quote(l->ctype), ")", NULL); @@ -498,8 +493,7 @@ append_frame_info(Buffer *buf, Str html, struct frameset *set, int level) Strcat_charp(html, p); } if (DecodeURL) - p = html_quote(url_unquote_conv(frame.body->url, - buf->document_charset)); + p = html_quote(url_decode2(frame.body->url, buf)); else p = q; Strcat_m_charp(html, " ", p, "
\n", NULL); @@ -550,9 +544,7 @@ page_info_panel(Buffer *buf) #ifdef USE_M17N Strcat_charp(tmp, "
"); #endif - p = parsedURL2Str(&buf->currentURL)->ptr; - if (DecodeURL) - p = url_unquote_conv(p, 0); + p = url_decode2(parsedURL2Str(&buf->currentURL)->ptr, NULL); Strcat_m_charp(tmp, "", "
Title", html_quote(buf->buffername), @@ -581,7 +573,7 @@ page_info_panel(Buffer *buf) "
Number of lines", Sprintf("%d", all)->ptr, "
Transferred bytes", - Sprintf("%d", buf->trbyte)->ptr, NULL); + Sprintf("%lu", (unsigned long)buf->trbyte)->ptr, NULL); a = retrieveCurrentAnchor(buf); if (a != NULL) { @@ -589,7 +581,7 @@ page_info_panel(Buffer *buf) p = parsedURL2Str(&pu)->ptr; q = html_quote(p); if (DecodeURL) - p = html_quote(url_unquote_conv(p, buf->document_charset)); + p = html_quote(url_decode2(p, buf)); else p = q; Strcat_m_charp(tmp, @@ -602,7 +594,7 @@ page_info_panel(Buffer *buf) p = parsedURL2Str(&pu)->ptr; q = html_quote(p); if (DecodeURL) - p = html_quote(url_unquote_conv(p, buf->document_charset)); + p = html_quote(url_decode2(p, buf)); else p = q; Strcat_m_charp(tmp, @@ -613,10 +605,7 @@ page_info_panel(Buffer *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); + p = html_quote(url_decode2(p, buf)); Strcat_m_charp(tmp, "
Method/type of current form ", p, NULL); -- cgit v1.2.3