diff -crN w3m-0.4/XMakefile w3m-0.4-js-20030304/XMakefile
*** w3m-0.4/XMakefile	2003-02-13 02:22:33.000000000 +0900
--- w3m-0.4-js-20030304/XMakefile	2003-02-24 13:38:07.000000000 +0900
***************
*** 1,10 ****
  # $Id: XMakefile,v 1.36 2003/02/12 17:22:33 ukai Exp $
  SRCS=main.c file.c buffer.c display.c etc.c search.c linein.c table.c local.c \
  	form.c map.c frame.c rc.c menu.c mailcap.c image.c\
! 	func.c cookie.c history.c backend.c $(KEYBIND_SRC)
  OBJS=main.o file.o buffer.o display.o etc.o search.o linein.o table.o local.o\
  	form.o map.o frame.o rc.o menu.o mailcap.o image.o\
! 	func.o cookie.o history.o backend.o $(KEYBIND_OBJ)
  LSRCS=terms.c conv.c url.c ftp.c anchor.c mimehead.c parsetagx.c\
  	tagtable.c istream.c news.c
  LOBJS=terms.o conv.o url.o ftp.o anchor.o mimehead.o parsetagx.o\
--- 1,12 ----
  # $Id: XMakefile,v 1.36 2003/02/12 17:22:33 ukai Exp $
  SRCS=main.c file.c buffer.c display.c etc.c search.c linein.c table.c local.c \
  	form.c map.c frame.c rc.c menu.c mailcap.c image.c\
! 	func.c cookie.c history.c backend.c $(KEYBIND_SRC)\
! 	script.c js_html.c
  OBJS=main.o file.o buffer.o display.o etc.o search.o linein.o table.o local.o\
  	form.o map.o frame.o rc.o menu.o mailcap.o image.o\
! 	func.o cookie.o history.o backend.o $(KEYBIND_OBJ)\
! 	script.o js_html.o
  LSRCS=terms.c conv.c url.c ftp.c anchor.c mimehead.c parsetagx.c\
  	tagtable.c istream.c news.c
  LOBJS=terms.o conv.o url.o ftp.o anchor.o mimehead.o parsetagx.o\
diff -crN w3m-0.4/buffer.c w3m-0.4-js-20030304/buffer.c
*** w3m-0.4/buffer.c	2003-02-04 00:49:19.000000000 +0900
--- w3m-0.4-js-20030304/buffer.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 105,110 ****
--- 105,114 ----
  	unlink(buf->header_source);
      if (buf->mailcap_source)
  	unlink(buf->mailcap_source);
+ #ifdef USE_SCRIPT
+     if (buf->script_lang)
+ 	script_close(buf);
+ #endif
      while (buf->frameset) {
  	deleteFrameSet(buf->frameset);
  	buf->frameset = popFrameTree(&(buf->frameQ));
diff -crN w3m-0.4/config.h.dist w3m-0.4-js-20030304/config.h.dist
*** w3m-0.4/config.h.dist	2003-02-07 02:15:10.000000000 +0900
--- w3m-0.4-js-20030304/config.h.dist	2003-02-24 13:38:07.000000000 +0900
***************
*** 145,150 ****
--- 145,151 ----
  #undef USE_IMLIB2
  #define USE_HELP_CGI
  #undef USE_XFACE
+ #undef USE_JAVASCRIPT
  
  #define DEF_EDITOR "/bin/vi"
  #define DEF_MAILER "/bin/mail"
diff -crN w3m-0.4/configure w3m-0.4-js-20030304/configure
*** w3m-0.4/configure	2003-02-07 02:15:10.000000000 +0900
--- w3m-0.4-js-20030304/configure	2003-02-24 13:38:07.000000000 +0900
***************
*** 819,824 ****
--- 819,826 ----
    def_param "use_digest_auth" n
  fi
  
+ ask_param "EXPERIMENTAL JavaScript support" use_javascript n
+ 
  ask_param "Inline image support" use_image n
  if [ "$use_image" = y ]; then
    def_use_image="#define USE_IMAGE"
***************
*** 1080,1085 ****
--- 1082,1136 ----
  if [ -n "$extlib" ]; then
    echo "additional library found: $extlib"
  fi
+ 
+ ## Search js
+ jslib=
+ jsinclude=
+ jstype=
+ if [ "$use_javascript" = "y" ]; then
+ for tlibdir in /lib /usr/lib /usr/local/lib /usr/ucblib /usr/ccslib /usr/ccs/lib $prefix/lib ${HOME}/lib
+ do
+   if [ -f $tlibdir/libnjs.a -o -f $tlibdir/libnjs.$so_ext ] ; then
+     echo "$tlibdir/libnjs found"
+     jslib="-L$tlibdir -lnjs"
+     jstype=njs
+     break
+   elif [ -f $tlibdir/libjs.a -o -f $tlibdir/libjs.$so_ext ] ; then
+     echo "$tlibdir/libjs found"
+     jslib="-L$tlibdir -ljs"
+     jstype=js
+     break
+   fi
+ done
+ for inc in /usr/include /usr/local/include $prefix/include ${HOME}/include
+ do
+   if [ -f $inc/njs/njs.h ]; then
+     echo "$inc/njs/njs.h found"
+     if [ "$jstype" != njs ]; then
+       echo "js version mismatch."
+       exit 1
+     fi
+     jsinclude="-I$inc"
+     break
+   elif [ -f $inc/js.h ]; then
+     echo "$inc/js.h found"
+     if [ "$jstype" != js ]; then
+       echo "js version mismatch."
+       exit 1
+     fi
+     jsinclude="-I$inc"
+     break
+   fi
+ done
+ if [ -z "$jslib" -o -z "$jsinclude" ]; then
+   echo "Error: It seems you don't have libjs or js.h."
+   echo "       JavaScript cannot be supported."
+   exit 1
+ fi
+ if [ "$jstype" = njs ]; then
+   cflags="$cflags -DHAVE_NJS"
+ fi
+ fi
  extlib="$extlib $ldflags"
  
  ## Search zlib
***************
*** 2341,2350 ****
  ETC_DIR = $sysconfdir
  RC_DIR = ~/.w3m
  HELP_FILE = $helpfile
! SYS_LIBRARIES = $gpmlib $termlib $ssllib $v6lib
  LOCAL_LIBRARIES = $extlib
  CC = $cc
! MYCFLAGS = $cflags $bsdinclude $sslinclude
  LDFLAGS = $ldflags
  GCCFLAGS = $cflags -I./\$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS
  KEYBIND_SRC = $keymap_file.c
--- 2392,2401 ----
  ETC_DIR = $sysconfdir
  RC_DIR = ~/.w3m
  HELP_FILE = $helpfile
! SYS_LIBRARIES = $gpmlib $termlib $ssllib $v6lib $jslib
  LOCAL_LIBRARIES = $extlib
  CC = $cc
! MYCFLAGS = $cflags $bsdinclude $sslinclude $jsinclude
  LDFLAGS = $ldflags
  GCCFLAGS = $cflags -I./\$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS
  KEYBIND_SRC = $keymap_file.c
***************
*** 2410,2415 ****
--- 2461,2467 ----
  $def_use_imlib2
  $def_use_help_cgi
  $def_use_xface
+ $def_use_javascript
  
  #define DEF_EDITOR "$editor"
  #define DEF_MAILER "$mailer"
diff -crN w3m-0.4/file.c w3m-0.4-js-20030304/file.c
*** w3m-0.4/file.c	2003-02-07 02:21:43.000000000 +0900
--- w3m-0.4-js-20030304/file.c	2003-03-04 01:14:55.000000000 +0900
***************
*** 47,53 ****
  static struct table *tables[MAX_TABLE];
  static struct table_mode table_mode[MAX_TABLE];
  
! #ifdef USE_IMAGE
  static ParsedURL *cur_baseURL = NULL;
  #ifdef JP_CHARSET
  static char cur_document_code;
--- 47,53 ----
  static struct table *tables[MAX_TABLE];
  static struct table_mode table_mode[MAX_TABLE];
  
! #if defined(USE_IMAGE) || defined(USE_SCRIPT)
  static ParsedURL *cur_baseURL = NULL;
  #ifdef JP_CHARSET
  static char cur_document_code;
***************
*** 1621,1626 ****
--- 1621,1639 ----
  	    t = "news:group";
  	    break;
  #endif
+ #ifdef USE_JAVASCRIPT
+ 	case SCM_JAVASCRIPT:
+ 	    if (! use_script)
+ 		return NULL;
+ 	    if (! Currentbuf)
+ 		return NULL;
+ 	    script_eval(Currentbuf, "JavaScript", pu.file);
+ 	    if (Currentbuf->location)
+ 		return loadGeneralFile(Currentbuf->location, current, referer,
+ 			flag, NULL);
+ 	    displayBuffer(Currentbuf, B_FORCE_REDRAW);
+ 	    return NO_BUFFER;
+ #endif
  	case SCM_UNKNOWN:
  #ifdef USE_EXTERNAL_URI_LOADER
  	    tmp = searchURIMethods(&pu);
***************
*** 1932,1938 ****
      if (real_type == NULL)
  	real_type = t;
      proc = loadBuffer;
! #ifdef USE_IMAGE
      cur_baseURL = New(ParsedURL);
      copyParsedURL(cur_baseURL, &pu);
  #endif
--- 1945,1951 ----
      if (real_type == NULL)
  	real_type = t;
      proc = loadBuffer;
! #if defined(USE_IMAGE) || defined(USE_SCRIPT)
      cur_baseURL = New(ParsedURL);
      copyParsedURL(cur_baseURL, &pu);
  #endif
***************
*** 1991,1996 ****
--- 2004,2014 ----
      }
  #endif
  
+ #ifdef USE_SCRIPT
+     if (flag & RG_SCRIPT)
+ 	proc = loadBuffer;
+     else
+ #endif
      if (!strcasecmp(t, "text/html"))
  	proc = loadHTMLBuffer;
      else if (is_plain_text_type(t))
***************
*** 3011,3017 ****
  Str
  process_img(struct parsed_tag *tag, int width)
  {
!     char *p, *q, *r, *r2 = NULL, *s, *t;
  #ifdef USE_IMAGE
      int w, i, nw, ni = 1, n, w0 = -1, i0 = -1;
      int align, xoffset, yoffset, top, bottom, ismap = 0;
--- 3029,3035 ----
  Str
  process_img(struct parsed_tag *tag, int width)
  {
!     char *p, *q, *r, *r2 = NULL, *s, *t, *id;
  #ifdef USE_IMAGE
      int w, i, nw, ni = 1, n, w0 = -1, i0 = -1;
      int align, xoffset, yoffset, top, bottom, ismap = 0;
***************
*** 3029,3034 ****
--- 3047,3056 ----
      parsedtag_get_value(tag, ATTR_ALT, &q);
      t = q;
      parsedtag_get_value(tag, ATTR_TITLE, &t);
+     id = NULL;
+     parsedtag_get_value(tag, ATTR_ID, &id);
+     if (id == NULL)
+ 	parsedtag_get_value(tag, ATTR_NAME, &id);
      w = -1;
      if (parsedtag_get_value(tag, ATTR_WIDTH, &w)) {
  	if (w < 0) {
***************
*** 3218,3223 ****
--- 3240,3247 ----
  	    Strcat_charp(tmp, " ismap");
      }
  #endif
+     if (id != NULL)
+ 	Strcat(tmp, Sprintf(" name=\"%s\"", id));
      Strcat_charp(tmp, ">");
      if (q != NULL && *q == '\0' && ignore_null_img_alt)
  	q = NULL;
***************
*** 3781,3786 ****
--- 3805,3934 ----
      }
  }
  
+ #ifdef USE_SCRIPT
+ Str
+ process_script(struct parsed_tag * tag, struct html_feed_environ *h_env)
+ {
+     char *p = "JavaScript", *q, *t;
+     struct stat st;
+     int wait_st;
+ 
+     if (frame_source)
+ 	return NULL;
+ 
+     parsedtag_get_value(tag, ATTR_LANGUAGE, &p);
+     h_env->cur_script_lang = p;
+     h_env->cur_script_str = Strnew();
+     t = NULL;
+     if (parsedtag_get_value(tag, ATTR_FRAMENAME, &t)) {
+ 	h_env->script_target = t;
+     }
+     q = NULL;
+     if (parsedtag_get_value(tag, ATTR_SRC, &q)) {
+ 	Buffer *b;
+ 	Line *l;
+ 	Str s;
+ 	char *file;
+ 	pid_t pid;
+ 
+ 	file = tmpfname(TMPF_DFL, ".js")->ptr;
+ 	if ((pid = fork()) == 0) {
+ 	    FILE *f;
+ 	    ParsedURL u;
+ 
+ 	    setup_child(FALSE, 0, -1);
+ 	    q = remove_space(q);
+ #ifdef JP_CHARSET
+ 	    parseURL2(conv(q, InnerCode, cur_document_code)->ptr, &u, cur_baseURL);
+ 	    UseContentCharset = TRUE;
+ 	    UseAutoDetect = TRUE;
+ #else
+ 	    parseURL2(q, &u, cur_baseURL);
+ #endif
+ 	    b = loadGeneralFile(parsedURL2Str(&u)->ptr, cur_baseURL, NULL, RG_SCRIPT, NULL);
+ 	    if (b) {
+ 		if (b->real_type) {
+ 		    f = fopen(file, "w");
+ 		    if (f) {
+ 			saveBuffer(b, f, TRUE);
+ 			fclose(f);
+ 		    }
+ 		}
+ 		discardBuffer(b);
+ 	    }
+ 	    exit(0);
+ 	} else if (pid < 0) {
+ 	    return NULL;
+ 	}
+ 
+ #ifdef HAVE_WAITPID
+ 	waitpid(pid, &wait_st, 0);
+ #else
+ 	wait(&wait_st);
+ #endif
+ 	if (stat(file, &st))
+ 	    return NULL;
+ 
+ 	b = loadFile(file);
+ 	if (b) {
+ 	    l = b->firstLine;
+ 	    while (l) {
+ 		Strcat(h_env->cur_script_str, Sprintf("%s\n", l->lineBuf));
+ 		l = l->next;
+ 	    }
+ 	    discardBuffer(b);
+ 	}
+ 	unlink(file);
+ 	s = process_n_script(h_env);
+ 	if (s == NULL) {
+ 	    s = Strnew();
+ 	}
+ 	return s;
+     }
+     return NULL;
+ }
+ 
+ Str
+ process_n_script(struct html_feed_environ *h_env)
+ {
+     Buffer *buf;
+     Str tmp = NULL;
+  
+     if (! use_script)
+ 	return NULL;
+     if (h_env != NULL &&
+ 	h_env->cur_script_str != NULL && h_env->cur_script_str->length) {
+ 	char *p;
+ 	buf = newBuffer(INIT_BUFFER_WIDTH);
+ 	p = h_env->cur_script_str->ptr;
+ 	while (IS_SPACE(*p)) p++;
+ 	if (! strncmp(p, "<!--", 4))
+ 	    while (!IS_ENDL(*p)) p++;
+ 	buf->script_interp = h_env->script_interp;
+ 	buf->script_lang = h_env->script_lang;
+ 	buf->script_target = h_env->script_target;
+ 	buf->currentURL = *cur_baseURL;
+ 	tmp = script_eval(buf, h_env->cur_script_lang, p);
+ 	h_env->script_interp = buf->script_interp;
+ 	h_env->script_lang = buf->script_lang;
+ 	h_env->script_target = buf->script_target;
+ 	if (buf->location) {
+ 	    tmp = Sprintf("script: <meta http-equiv=\"refresh\" content=\"url=%s; 0\">",
+ 		html_quote(buf->location));
+ 	}
+     }
+     h_env->cur_script_str = NULL;
+     return tmp;
+ }
+ 
+ void
+ feed_script(char *str, struct html_feed_environ *h_env)
+ {
+     if (str != NULL && h_env != NULL && h_env->cur_script_str != NULL)
+ 	Strcat_charp(h_env->cur_script_str, str);
+ }
+ #endif
+ 
  Str
  process_hr(struct parsed_tag *tag, int width, int indent_width)
  {
***************
*** 4534,4539 ****
--- 4682,4694 ----
  	obuf->end_tag = 0;
  	return 1;
      case HTML_SCRIPT:
+ #ifdef USE_SCRIPT
+ 	if (use_script) {
+ 	    tmp = process_script(tag, h_env);
+ 	    if (tmp != NULL)
+ 		HTMLlineproc1(tmp->ptr, h_env);
+ 	}
+ #endif
  	obuf->flag |= RB_SCRIPT;
  	obuf->end_tag = HTML_N_SCRIPT;
  	return 1;
***************
*** 4544,4550 ****
--- 4699,4726 ----
      case HTML_N_SCRIPT:
  	obuf->flag &= ~RB_SCRIPT;
  	obuf->end_tag = 0;
+ #ifdef USE_SCRIPT
+ 	if (use_script) {
+ 	    tmp = process_n_script(h_env);
+ 	    if (tmp != NULL)
+ 		HTMLlineproc1(tmp->ptr, h_env);
+ 	}
+ #endif
+ 	return 1;
+ #ifdef USE_SCRIPT
+     case HTML_NOSCRIPT:
+ 	if (use_script) {
+ 	    obuf->flag |= RB_NOSCRIPT;
+ 	    obuf->end_tag = HTML_N_NOSCRIPT;
+ 	}
+ 	return 1;
+     case HTML_N_NOSCRIPT:
+ 	if (use_script) {
+ 	    obuf->flag &= ~RB_NOSCRIPT;
+ 	    obuf->end_tag = 0;
+ 	}
  	return 1;
+ #endif
      case HTML_N_STYLE:
  	obuf->flag &= ~RB_STYLE;
  	obuf->end_tag = 0;
***************
*** 4669,4674 ****
--- 4845,4853 ----
  	tables[obuf->table_level]->real_width = width;
  	tables[obuf->table_level]->total_width = 0;
  #endif
+ #ifdef USE_SCRIPT
+ 	tables[obuf->table_level]->h_env = h_env;
+ #endif
  	return 1;
      case HTML_N_TABLE:
  	/* should be processed in HTMLlineproc() */
***************
*** 4815,4821 ****
  	}
  	return 1;
      case HTML_BASE:
! #ifdef USE_IMAGE
  	p = NULL;
  	if (parsedtag_get_value(tag, ATTR_HREF, &p)) {
  	    if (!cur_baseURL)
--- 4994,5000 ----
  	}
  	return 1;
      case HTML_BASE:
! #if defined(USE_IMAGE) || defined(USE_SCRIPT)
  	p = NULL;
  	if (parsedtag_get_value(tag, ATTR_HREF, &p)) {
  	    if (!cur_baseURL)
***************
*** 5736,5741 ****
--- 5915,5923 ----
  		if (str[1] && REALLY_THE_BEGINNING_OF_A_TAG(str))
  		    is_tag = TRUE;
  		else if (!(pre_mode & (RB_PLAIN | RB_INTXTA | RB_INSELECT |
+ #ifdef USE_SCRIPT
+ 				       RB_NOSCRIPT |
+ #endif
  				       RB_SCRIPT | RB_STYLE | RB_TITLE))) {
  		    line = Strnew_m_charp(str + 1, line, NULL)->ptr;
  		    str = "&lt;";
***************
*** 5750,5755 ****
--- 5932,5940 ----
  	}
  
  	if (pre_mode & (RB_PLAIN | RB_INTXTA | RB_INSELECT | RB_SCRIPT |
+ #ifdef USE_SCRIPT
+ 			RB_NOSCRIPT |
+ #endif
  			RB_STYLE | RB_TITLE)) {
  	    if (is_tag) {
  		p = str;
***************
*** 5767,5772 ****
--- 5952,5963 ----
  		feed_title(str);
  		continue;
  	    }
+ 
+ #ifdef USE_SCRIPT
+ 	    if (pre_mode & RB_NOSCRIPT)
+ 		continue;
+ #endif
+ 
  	    /* select */
  	    if (pre_mode & RB_INSELECT) {
  		if (obuf->table_level >= 0)
***************
*** 5788,5796 ****
--- 5979,5996 ----
  		feed_textarea(str);
  		continue;
  	    }
+ #ifdef USE_SCRIPT
+ 	    /* script */
+ 	    if (pre_mode & RB_SCRIPT) {
+ 		if (use_script)
+ 		    feed_script(str, h_env);
+ 		continue;
+ 	    }
+ #else
  	    /* script */
  	    if (pre_mode & RB_SCRIPT)
  		continue;
+ #endif
  	    /* style */
  	    if (pre_mode & RB_STYLE)
  		continue;
***************
*** 6363,6369 ****
      /* for unbalanced table tag */
      while (obuf->table_level >= 0) {
  	table_mode[obuf->table_level].pre_mode
! 	    &= ~(TBLM_SCRIPT | TBLM_STYLE | TBLM_PLAIN);
  	HTMLlineproc1("</table>", h_env);
      }
  }
--- 6563,6573 ----
      /* for unbalanced table tag */
      while (obuf->table_level >= 0) {
  	table_mode[obuf->table_level].pre_mode
! 	    &= ~(TBLM_SCRIPT | 
! #ifdef USE_SCRIPT
! 		 TBLM_NOSCRIPT |
! #endif
! 		 TBLM_STYLE | TBLM_PLAIN);
  	HTMLlineproc1("</table>", h_env);
      }
  }
***************
*** 6485,6490 ****
--- 6689,6696 ----
  	image_flag = IMG_FLAG_AUTO;
      else
  	image_flag = IMG_FLAG_SKIP;
+ #endif
+ #if defined(USE_IMAGE) || defined(USE_SCRIPT)
      if (newBuf->currentURL.file)
  	cur_baseURL = baseURL(newBuf);
  #endif
***************
*** 6505,6510 ****
--- 6711,6723 ----
  
      init_henv(&htmlenv1, &obuf, envs, MAX_ENV_LEVEL, NULL, newBuf->width, 0);
  
+ #ifdef USE_SCRIPT
+     htmlenv1.cur_script_str = NULL;
+     htmlenv1.cur_script_lang = NULL;
+     htmlenv1.script_interp = NULL;
+     htmlenv1.script_lang = NULL;
+     htmlenv1.script_target = NULL;
+ #endif
      if (w3m_halfdump)
  	htmlenv1.f = stdout;
      else
***************
*** 6544,6551 ****
  	    }
  	}
  #endif				/* USE_NNTP */
! 	if (src)
  	    Strfputs(lineBuf2, src);
  	linelen += lineBuf2->length;
  	if (w3m_dump & DUMP_SOURCE)
  	    continue;
--- 6757,6766 ----
  	    }
  	}
  #endif				/* USE_NNTP */
! 	if (src) {
  	    Strfputs(lineBuf2, src);
+ 	    fflush(src);
+ 	}
  	linelen += lineBuf2->length;
  	if (w3m_dump & DUMP_SOURCE)
  	    continue;
***************
*** 6602,6607 ****
--- 6817,6827 ----
      newBuf->document_code = code;
      content_charset = '\0';
  #endif				/* JP_CHARSET */
+ #ifdef USE_SCRIPT
+     newBuf->script_interp = htmlenv1.script_interp;
+     newBuf->script_lang = htmlenv1.script_lang;
+     newBuf->script_target = htmlenv1.script_target;
+ #endif
  #ifdef USE_IMAGE
      newBuf->image_flag = image_flag;
  #endif
diff -crN w3m-0.4/fm.h w3m-0.4-js-20030304/fm.h
*** w3m-0.4/fm.h	2003-02-19 00:43:24.000000000 +0900
--- w3m-0.4-js-20030304/fm.h	2003-02-24 13:38:07.000000000 +0900
***************
*** 34,39 ****
--- 34,45 ----
  #undef USE_ANSI_COLOR
  #endif
  
+ #ifdef USE_JAVASCRIPT
+ #ifndef USE_SCRIPT
+ #define USE_SCRIPT
+ #endif
+ #endif
+ 
  #include "ctrlcode.h"
  #include "html.h"
  #include "gc.h"
***************
*** 456,461 ****
--- 462,473 ----
  #ifdef USE_SSL
      char *ssl_certificate;
  #endif
+ #ifdef USE_SCRIPT
+     void *script_interp;
+     char *script_lang;
+     char *location;
+     char *script_target;
+ #endif
      char image_flag;
      char image_loaded;
      char need_reshape;
***************
*** 599,604 ****
--- 611,619 ----
  #endif				/* FORMAT_NICE */
  #define RB_DEL		0x100000
  #define RB_S		0x200000
+ #ifdef USE_SCRIPT
+ #define RB_NOSCRIPT	0x400000
+ #endif
  
  #define RB_GET_ALIGN(obuf) ((obuf)->flag&RB_ALIGN)
  #define RB_SET_ALIGN(obuf,align) {(obuf)->flag &= ~RB_ALIGN; (obuf)->flag |= (align); }
***************
*** 639,644 ****
--- 654,660 ----
  #define RG_NOCACHE   1
  #define RG_FRAME     2
  #define RG_FRAME_SRC 4
+ #define RG_SCRIPT    8
  
  struct html_feed_environ {
      struct readbuffer *obuf;
***************
*** 653,658 ****
--- 669,681 ----
      int envc_real;
      char *title;
      int blank_lines;
+ #ifdef USE_SCRIPT
+     Str cur_script_str;
+     char *cur_script_lang;
+     void *script_interp;
+     char *script_lang;
+     char *script_target;
+ #endif
  };
  
  struct auth_cookie {
***************
*** 1154,1159 ****
--- 1177,1189 ----
  } AlarmEvent;
  #endif
  
+ #ifdef USE_SCRIPT
+ global int use_script init(FALSE);
+ global int enable_js_windowopen init(FALSE);
+ global int confirm_js_windowclose init(TRUE);
+ global Buffer *scriptBuffer init(NULL);
+ #endif
+ 
  /* 
   * Externals
   */
diff -crN w3m-0.4/frame.c w3m-0.4-js-20030304/frame.c
*** w3m-0.4/frame.c	2003-01-30 02:10:39.000000000 +0900
--- w3m-0.4-js-20030304/frame.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 618,623 ****
--- 618,635 ----
  				}
  			    }
  			}
+ #ifdef USE_SCRIPT
+ 			else if (pre_mode & RB_NOSCRIPT) {
+ 			    q = tok->ptr;
+ 			    if ((tag = parse_tag(&q, FALSE)) &&
+ 				tag->tagid == end_tag) {
+ 				pre_mode = 0;
+ 				end_tag = 0;
+ 				goto proc_normal;
+ 			    }
+ 			    is_tag = FALSE;
+ 			}
+ #endif
  		    }
  
  		  proc_normal:
***************
*** 718,723 ****
--- 730,737 ----
  			case HTML_SCRIPT:
  			    pre_mode = RB_SCRIPT;
  			    end_tag = HTML_N_SCRIPT;
+ 			    parsedtag_set_value(tag,
+ 						ATTR_FRAMENAME, s_target);
  			    break;
  			case HTML_STYLE:
  			    pre_mode = RB_STYLE;
***************
*** 738,743 ****
--- 752,763 ----
  			    end_tag = MAX_HTMLTAG;
  			    fputs("<PRE_PLAIN>", f1);
  			    goto token_end;
+ #ifdef USE_SCRIPT
+ 			case HTML_NOSCRIPT:
+ 			    pre_mode = RB_NOSCRIPT;
+ 			    end_tag = HTML_N_NOSCRIPT;
+ 			    break;
+ #endif
  			default:
  			    break;
  			}
***************
*** 826,831 ****
--- 846,855 ----
  		    else if (pre_mode & RB_STYLE)
  			fputs("</STYLE>\n", f1);
  		}
+ #ifdef USE_SCRIPT
+ 		else if (pre_mode & RB_NOSCRIPT)
+ 		    fputs("</NOSCRIPT>\n", f1);
+ #endif
  		while (t_stack--)
  		    fputs("</TABLE>\n", f1);
  		UFclose(&f2);
diff -crN w3m-0.4/html.c w3m-0.4-js-20030304/html.c
*** w3m-0.4/html.c	2002-12-10 00:40:36.000000000 +0900
--- w3m-0.4-js-20030304/html.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 28,36 ****
  #define MAXA_PRE	MAXA_CORE + 1
  unsigned char ALST_IMG[] =
      { ATTR_SRC, ATTR_ALT, ATTR_WIDTH, ATTR_HEIGHT, ATTR_ALIGN, ATTR_USEMAP,
!     ATTR_ISMAP, ATTR_TITLE, ATTR_CORE
  };
! #define MAXA_IMG	MAXA_CORE + 8
  unsigned char ALST_TABLE[] =
      { ATTR_BORDER, ATTR_WIDTH, ATTR_HBORDER, ATTR_CELLSPACING,
      ATTR_CELLPADDING, ATTR_VSPACE, ATTR_CORE
--- 28,36 ----
  #define MAXA_PRE	MAXA_CORE + 1
  unsigned char ALST_IMG[] =
      { ATTR_SRC, ATTR_ALT, ATTR_WIDTH, ATTR_HEIGHT, ATTR_ALIGN, ATTR_USEMAP,
!     ATTR_ISMAP, ATTR_TITLE, ATTR_NAME, ATTR_CORE
  };
! #define MAXA_IMG	MAXA_CORE + 9
  unsigned char ALST_TABLE[] =
      { ATTR_BORDER, ATTR_WIDTH, ATTR_HBORDER, ATTR_CELLSPACING,
      ATTR_CELLPADDING, ATTR_VSPACE, ATTR_CORE
***************
*** 70,75 ****
--- 70,78 ----
  unsigned char ALST_AREA[] =
      { ATTR_HREF, ATTR_TARGET, ATTR_ALT, ATTR_SHAPE, ATTR_COORDS, ATTR_CORE };
  #define MAXA_AREA	MAXA_CORE + 5
+ unsigned char ALST_SCRIPT[] =
+     { ATTR_LANGUAGE, ATTR_SRC, ATTR_FRAMENAME, ATTR_CORE };
+ #define MAXA_SCRIPT	MAXA_CORE + 3
  unsigned char ALST_BASE[] = { ATTR_HREF, ATTR_TARGET, ATTR_CORE };
  #define MAXA_BASE	MAXA_CORE + 2
  unsigned char ALST_BODY[] = { ATTR_BACKGROUND, ATTR_CORE };
***************
*** 113,121 ****
  unsigned char ALST_IMG_ALT[] =
      { ATTR_SRC, ATTR_WIDTH, ATTR_HEIGHT, ATTR_USEMAP, ATTR_ISMAP, ATTR_HSEQ,
      ATTR_XOFFSET, ATTR_YOFFSET, ATTR_TOP_MARGIN, ATTR_BOTTOM_MARGIN,
!     ATTR_TITLE
  };
! #define MAXA_IMG_ALT  11
  unsigned char ALST_NOP[] = { ATTR_CORE };
  #define MAXA_NOP	MAXA_CORE
  
--- 116,124 ----
  unsigned char ALST_IMG_ALT[] =
      { ATTR_SRC, ATTR_WIDTH, ATTR_HEIGHT, ATTR_USEMAP, ATTR_ISMAP, ATTR_HSEQ,
      ATTR_XOFFSET, ATTR_YOFFSET, ATTR_TOP_MARGIN, ATTR_BOTTOM_MARGIN,
!     ATTR_TITLE, ATTR_NAME
  };
! #define MAXA_IMG_ALT  12
  unsigned char ALST_NOP[] = { ATTR_CORE };
  #define MAXA_NOP	MAXA_CORE
  
***************
*** 178,184 ****
      {"map", ALST_MAP, MAXA_MAP, 0},	/*  55 HTML_MAP        */
      {"/map", NULL, 0, TFLG_END},	/*  56 HTML_N_MAP      */
      {"area", ALST_AREA, MAXA_AREA, 0},	/*  57 HTML_AREA       */
!     {"script", NULL, 0, 0},	/*  58 HTML_SCRIPT     */
      {"/script", NULL, 0, TFLG_END},	/*  59 HTML_N_SCRIPT   */
      {"base", ALST_BASE, MAXA_BASE, 0},	/*  60 HTML_BASE       */
      {"del", NULL, 0, 0},	/*  61 HTML_DEL        */
--- 181,187 ----
      {"map", ALST_MAP, MAXA_MAP, 0},	/*  55 HTML_MAP        */
      {"/map", NULL, 0, TFLG_END},	/*  56 HTML_N_MAP      */
      {"area", ALST_AREA, MAXA_AREA, 0},	/*  57 HTML_AREA       */
!     {"script", ALST_SCRIPT, MAXA_SCRIPT, 0},	/*  58 HTML_SCRIPT     */
      {"/script", NULL, 0, TFLG_END},	/*  59 HTML_N_SCRIPT   */
      {"base", ALST_BASE, MAXA_BASE, 0},	/*  60 HTML_BASE       */
      {"del", NULL, 0, 0},	/*  61 HTML_DEL        */
***************
*** 228,261 ****
      {"link", ALST_LINK, MAXA_LINK, 0},	/*  104 HTML_LINK      */
      {"s", NULL, 0, 0},		/*  105 HTML_S        */
      {"/s", NULL, 0, TFLG_END},	/*  106 HTML_N_S      */
!     {NULL, NULL, 0, 0},		/* 107 Undefined       */
  
      /* pseudo tag */
!     {"select_int", ALST_SELECT_INT, MAXA_SELECT_INT, TFLG_INT},	/* 108 HTML_SELECT_INT   */
!     {"/select_int", NULL, 0, TFLG_INT | TFLG_END},	/* 109 HTML_N_SELECT_INT */
!     {"option_int", ALST_OPTION, MAXA_OPTION, TFLG_INT},	/* 110 HTML_OPTION_INT   */
!     {"textarea_int", ALST_TEXTAREA_INT, MAXA_TEXTAREA_INT, TFLG_INT},	/* 111 HTML_TEXTAREA_INT   */
!     {"/textarea_int", NULL, 0, TFLG_INT | TFLG_END},	/* 112 HTML_N_TEXTAREA_INT */
!     {"table_alt", ALST_TABLE_ALT, MAXA_TABLE_ALT, TFLG_INT},	/* 113 HTML_TABLE_ALT   */
!     {"rule", ALST_RULE, MAXA_RULE, TFLG_INT},	/* 114 HTML_RULE        */
!     {"/rule", NULL, 0, TFLG_INT | TFLG_END},	/* 115 HTML_N_RULE      */
!     {"pre_int", NULL, 0, TFLG_INT},	/* 116 HTML_PRE_INT     */
!     {"/pre_int", NULL, 0, TFLG_INT | TFLG_END},	/* 117 HTML_N_PRE_INT   */
!     {"title_alt", ALST_TITLE_ALT, MAXA_TITLE_ALT, TFLG_INT},	/* 118 HTML_TITLE_ALT   */
!     {"form_int", ALST_FORM_INT, MAXA_FORM_INT, TFLG_INT},	/* 119 HTML_FORM_INT    */
!     {"/form_int", NULL, 0, TFLG_INT | TFLG_END},	/* 120 HTML_N_FORM_INT  */
!     {"dl_compact", NULL, 0, TFLG_INT},	/* 121 HTML_DL_COMPACT  */
!     {"input_alt", ALST_INPUT_ALT, MAXA_INPUT_ALT, TFLG_INT},	/* 122 HTML_INPUT_ALT   */
!     {"/input_alt", NULL, 0, TFLG_INT | TFLG_END},	/* 123 HTML_N_INPUT_ALT */
!     {"img_alt", ALST_IMG_ALT, MAXA_IMG_ALT, TFLG_INT},	/* 124 HTML_IMG_ALT     */
!     {"/img_alt", NULL, 0, TFLG_INT | TFLG_END},	/* 125 HTML_N_IMG_ALT   */
!     {" ", ALST_NOP, MAXA_NOP, TFLG_INT},	/* 126 HTML_NOP         */
!     {"pre_plain", NULL, 0, TFLG_INT},	/* 127 HTML_PRE_PLAIN         */
!     {"/pre_plain", NULL, 0, TFLG_INT | TFLG_END},	/* 128 HTML_N_PRE_PLAIN         */
!     {"internal", NULL, 0, TFLG_INT},	/* 129 HTML_INTERNAL   */
!     {"/internal", NULL, 0, TFLG_INT | TFLG_END},	/* 130 HTML_N_INTERNAL   */
!     {"div_int", ALST_P, MAXA_P, TFLG_INT},	/*  131 HTML_DIV_INT    */
!     {"/div_int", NULL, 0, TFLG_INT | TFLG_END},	/*  132 HTML_N_DIV_INT  */
  };
  
  TagAttrInfo AttrMAP[MAX_TAGATTR] = {
--- 231,266 ----
      {"link", ALST_LINK, MAXA_LINK, 0},	/*  104 HTML_LINK      */
      {"s", NULL, 0, 0},		/*  105 HTML_S        */
      {"/s", NULL, 0, TFLG_END},	/*  106 HTML_N_S      */
!     {"noscript", NULL, 0, 0},	/* 107 HTML_NOSCRIPT       */
!     {"/noscript", NULL, 0, TFLG_END},	/* 108 HTML_N_NOSCRIPT       */
!     {NULL, NULL, 0, 0},		/* 109 Undefined       */
  
      /* pseudo tag */
!     {"select_int", ALST_SELECT_INT, MAXA_SELECT_INT, TFLG_INT},	/* 110 HTML_SELECT_INT   */
!     {"/select_int", NULL, 0, TFLG_INT | TFLG_END},	/* 111 HTML_N_SELECT_INT */
!     {"option_int", ALST_OPTION, MAXA_OPTION, TFLG_INT},	/* 112 HTML_OPTION_INT   */
!     {"textarea_int", ALST_TEXTAREA_INT, MAXA_TEXTAREA_INT, TFLG_INT},	/* 113 HTML_TEXTAREA_INT   */
!     {"/textarea_int", NULL, 0, TFLG_INT | TFLG_END},	/* 114 HTML_N_TEXTAREA_INT */
!     {"table_alt", ALST_TABLE_ALT, MAXA_TABLE_ALT, TFLG_INT},	/* 115 HTML_TABLE_ALT   */
!     {"rule", ALST_RULE, MAXA_RULE, TFLG_INT},	/* 116 HTML_RULE        */
!     {"/rule", NULL, 0, TFLG_INT | TFLG_END},	/* 117 HTML_N_RULE      */
!     {"pre_int", NULL, 0, TFLG_INT},	/* 118 HTML_PRE_INT     */
!     {"/pre_int", NULL, 0, TFLG_INT | TFLG_END},	/* 119 HTML_N_PRE_INT   */
!     {"title_alt", ALST_TITLE_ALT, MAXA_TITLE_ALT, TFLG_INT},	/* 120 HTML_TITLE_ALT   */
!     {"form_int", ALST_FORM_INT, MAXA_FORM_INT, TFLG_INT},	/* 121 HTML_FORM_INT    */
!     {"/form_int", NULL, 0, TFLG_INT | TFLG_END},	/* 122 HTML_N_FORM_INT  */
!     {"dl_compact", NULL, 0, TFLG_INT},	/* 123 HTML_DL_COMPACT  */
!     {"input_alt", ALST_INPUT_ALT, MAXA_INPUT_ALT, TFLG_INT},	/* 124 HTML_INPUT_ALT   */
!     {"/input_alt", NULL, 0, TFLG_INT | TFLG_END},	/* 125 HTML_N_INPUT_ALT */
!     {"img_alt", ALST_IMG_ALT, MAXA_IMG_ALT, TFLG_INT},	/* 126 HTML_IMG_ALT     */
!     {"/img_alt", NULL, 0, TFLG_INT | TFLG_END},	/* 127 HTML_N_IMG_ALT   */
!     {" ", ALST_NOP, MAXA_NOP, TFLG_INT},	/* 128 HTML_NOP         */
!     {"pre_plain", NULL, 0, TFLG_INT},	/* 129 HTML_PRE_PLAIN         */
!     {"/pre_plain", NULL, 0, TFLG_INT | TFLG_END},	/* 130 HTML_N_PRE_PLAIN         */
!     {"internal", NULL, 0, TFLG_INT},	/* 131 HTML_INTERNAL   */
!     {"/internal", NULL, 0, TFLG_INT | TFLG_END},	/* 132 HTML_N_INTERNAL   */
!     {"div_int", ALST_P, MAXA_P, TFLG_INT},	/*  133 HTML_DIV_INT    */
!     {"/div_int", NULL, 0, TFLG_INT | TFLG_END},	/*  134 HTML_N_DIV_INT  */
  };
  
  TagAttrInfo AttrMAP[MAX_TAGATTR] = {
***************
*** 310,316 ****
      {"rev", VTYPE_STR, 0},	/* 48 ATTR_REV            */
      {"title", VTYPE_STR, 0},	/* 49 ATTR_TITLE          */
      {"accesskey", VTYPE_STR, 0},	/* 50 ATTR_ACCESSKEY          */
!     {NULL, VTYPE_NONE, 0},	/* 51 Undefined           */
      {NULL, VTYPE_NONE, 0},	/* 52 Undefined           */
      {NULL, VTYPE_NONE, 0},	/* 53 Undefined           */
      {NULL, VTYPE_NONE, 0},	/* 54 Undefined           */
--- 315,321 ----
      {"rev", VTYPE_STR, 0},	/* 48 ATTR_REV            */
      {"title", VTYPE_STR, 0},	/* 49 ATTR_TITLE          */
      {"accesskey", VTYPE_STR, 0},	/* 50 ATTR_ACCESSKEY          */
!     {"language", VTYPE_STR, 0},	/* 51 ATTR_LANGUAGE           */
      {NULL, VTYPE_NONE, 0},	/* 52 Undefined           */
      {NULL, VTYPE_NONE, 0},	/* 53 Undefined           */
      {NULL, VTYPE_NONE, 0},	/* 54 Undefined           */
diff -crN w3m-0.4/html.h w3m-0.4-js-20030304/html.h
*** w3m-0.4/html.h	2003-01-16 01:11:43.000000000 +0900
--- w3m-0.4-js-20030304/html.h	2003-02-24 13:38:07.000000000 +0900
***************
*** 60,65 ****
--- 60,66 ----
      char *query;
      char *label;
      int is_nocache;
+     int has_port;
  } ParsedURL;
  
  typedef struct {
***************
*** 195,229 ****
  #define HTML_LINK       104
  #define HTML_S          105
  #define HTML_N_S        106
  
     /* pseudo tag */
! #define HTML_SELECT_INT     108
! #define HTML_N_SELECT_INT   109
! #define HTML_OPTION_INT     110
! #define HTML_TEXTAREA_INT   111
! #define HTML_N_TEXTAREA_INT 112
! #define HTML_TABLE_ALT      113
! #define HTML_RULE           114
! #define HTML_N_RULE         115
! #define HTML_PRE_INT        116
! #define HTML_N_PRE_INT      117
! #define HTML_TITLE_ALT      118
! #define HTML_FORM_INT       119
! #define HTML_N_FORM_INT     120
! #define HTML_DL_COMPACT     121
! #define HTML_INPUT_ALT      122
! #define HTML_N_INPUT_ALT    123
! #define HTML_IMG_ALT        124
! #define HTML_N_IMG_ALT      125
! #define HTML_NOP	    126
! #define HTML_PRE_PLAIN	    127
! #define HTML_N_PRE_PLAIN    128
! #define HTML_INTERNAL       129
! #define HTML_N_INTERNAL     130
! #define HTML_DIV_INT        131
! #define HTML_N_DIV_INT      132
  
! #define MAX_HTMLTAG	    133
  
  /* Tag attribute */
  
--- 196,232 ----
  #define HTML_LINK       104
  #define HTML_S          105
  #define HTML_N_S        106
+ #define HTML_NOSCRIPT	107
+ #define HTML_N_NOSCRIPT	108
  
     /* pseudo tag */
! #define HTML_SELECT_INT     110
! #define HTML_N_SELECT_INT   111
! #define HTML_OPTION_INT     112
! #define HTML_TEXTAREA_INT   113
! #define HTML_N_TEXTAREA_INT 114
! #define HTML_TABLE_ALT      115
! #define HTML_RULE           116
! #define HTML_N_RULE         117
! #define HTML_PRE_INT        118
! #define HTML_N_PRE_INT      119
! #define HTML_TITLE_ALT      120
! #define HTML_FORM_INT       121
! #define HTML_N_FORM_INT     122
! #define HTML_DL_COMPACT     123
! #define HTML_INPUT_ALT      124
! #define HTML_N_INPUT_ALT    125
! #define HTML_IMG_ALT        126
! #define HTML_N_IMG_ALT      127
! #define HTML_NOP	    128
! #define HTML_PRE_PLAIN	    129
! #define HTML_N_PRE_PLAIN    130
! #define HTML_INTERNAL       131
! #define HTML_N_INTERNAL     132
! #define HTML_DIV_INT        133
! #define HTML_N_DIV_INT      134
  
! #define MAX_HTMLTAG	    135
  
  /* Tag attribute */
  
***************
*** 278,283 ****
--- 281,287 ----
  #define ATTR_REV		48
  #define ATTR_TITLE		49
  #define ATTR_ACCESSKEY		50
+ #define ATTR_LANGUAGE		51
  
  /* Internal attribute */
  #define ATTR_XOFFSET		60
***************
*** 370,374 ****
--- 374,381 ----
  #ifdef USE_SSL
  #define SCM_HTTPS       13
  #endif				/* USE_SSL */
+ #ifdef USE_JAVASCRIPT
+ #define SCM_JAVASCRIPT	14
+ #endif
  
  #endif				/* _HTML_H */
diff -crN w3m-0.4/js_html.c w3m-0.4-js-20030304/js_html.c
*** w3m-0.4/js_html.c	1970-01-01 09:00:00.000000000 +0900
--- w3m-0.4-js-20030304/js_html.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 0 ****
--- 1,779 ----
+ #include "fm.h"
+ #ifdef USE_JAVASCRIPT
+ #include "js_html.h"
+ #include <sys/utsname.h>
+ 
+ static JSMethodResult
+ window_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     WindowCtx *ictx;
+ 
+     ictx = (WindowCtx *)GC_MALLOC(sizeof(WindowCtx));
+     ictx->win = newGeneralList();
+     ictx->close = FALSE;
+     *ictx_return = ictx;
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ window_open(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     WindowCtx *ictx = (WindowCtx *)instance_context; 
+     jse_windowopen_t *w;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (argc <= 1)
+ 	return JS_ERROR;
+ 
+     if (argv[0].type != JS_TYPE_STRING || argv[1].type != JS_TYPE_STRING)
+ 	return JS_ERROR;
+ 
+     w = (jse_windowopen_t *)GC_MALLOC(sizeof(jse_windowopen_t));
+     w->url  = allocStr(argv[0].u.s->data, argv[0].u.s->len);
+     w->name = allocStr(argv[1].u.s->data, argv[1].u.s->len);
+     pushValue(ictx->win, (void *)w);
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ window_close(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     WindowCtx *ictx = (WindowCtx *)instance_context; 
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+     
+     ictx->close = TRUE;
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     LocationCtx *ictx;
+ 
+     ictx = (LocationCtx *)GC_MALLOC(sizeof(LocationCtx));
+     bzero(ictx, sizeof(LocationCtx));
+     if (argc > 0 && argv[0].type == JS_TYPE_STRING) {
+ 	ictx->url = Strnew_charp_n(argv[0].u.s->data, argv[0].u.s->len);
+ 	parseURL(ictx->url->ptr, &ictx->pu, NULL);
+     } else {
+ 	ictx->url = Strnew();
+     }
+     ictx->refresh = 0;
+     *ictx_return = ictx;
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_replace(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (argc != 1)
+ 	return JS_ERROR;
+ 
+     if (argv[0].type != JS_TYPE_STRING)
+ 	return JS_ERROR;
+ 
+     ictx->url = Strnew_charp_n(argv[0].u.s->data, argv[0].u.s->len);
+     parseURL(ictx->url->ptr, &ictx->pu, NULL);
+     ictx->refresh |= JS_LOC_REFRESH;
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_reload(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (argc != 0)
+ 	return JS_ERROR;
+ 
+     ictx->refresh |= JS_LOC_REFRESH;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_href(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	ictx->url = Strnew_charp_n(value->u.s->data, value->u.s->len);
+ 	parseURL(ictx->url->ptr, &ictx->pu, NULL);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	js_type_make_string(interp, value, ictx->url->ptr, ictx->url->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_protocol(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+     char *p;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	s = Strnew_charp_n(value->u.s->data, value->u.s->len);
+ 	Strcat_charp(s, ":");
+ 	p = allocStr(s->ptr, s->length);
+ 	ictx->pu.scheme = getURLScheme(&p);
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ fprintf(stderr, "*****URL:%s\n", ictx->url->ptr);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	s = Strnew();
+ 	switch (ictx->pu.scheme) {
+ 	case SCM_HTTP:
+ 	    Strcat_charp(s, "http:");
+ 	    break;
+ 	case SCM_GOPHER:
+ 	    Strcat_charp(s, "gopher:");
+ 	    break;
+ 	case SCM_FTP:
+ 	    Strcat_charp(s, "ftp:");
+ 	    break;
+ 	case SCM_LOCAL:
+ 	    Strcat_charp(s, "file:");
+ 	    break;
+ 	case SCM_NNTP:
+ 	    Strcat_charp(s, "nntp:");
+ 	    break;
+ 	case SCM_NEWS:
+ 	    Strcat_charp(s, "news:");
+ 	    break;
+ #ifndef USE_W3MMAILER
+ 	case SCM_MAILTO:
+ 	    Strcat_charp(s, "mailto:");
+ 	    break;
+ #endif
+ #ifdef USE_SSL
+ 	case SCM_HTTPS:
+ 	    Strcat_charp(s, "https:");
+ 	    break;
+ #endif
+ 	case SCM_JAVASCRIPT:
+ 	    Strcat_charp(s, "javascript:");
+ 	    break;
+ 	default:
+ 	    break;
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_host(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+     char *p, *q;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	p = allocStr(value->u.s->data, value->u.s->len);
+ 	if ((q = strchr(p, ':')) != NULL) {
+ 	    *q++ = '\0';
+ 	    ictx->pu.port = atoi(q);
+ 	    ictx->pu.has_port = 1;
+ 	}
+ 	ictx->pu.host = Strnew_charp(p)->ptr;
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	s = Strnew();
+ 	if (ictx->pu.host) {
+ 	    Strcat_charp_n(s, ictx->pu.host, strlen(ictx->pu.host));
+ 	    if (ictx->pu.has_port)
+ 		Strcat(s, Sprintf(":%d", ictx->pu.port));
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_hostname(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	ictx->pu.host = allocStr(value->u.s->data, value->u.s->len);
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	s = Strnew();
+ 	if (ictx->pu.host) {
+ 	    Strcat_charp_n(s, ictx->pu.host, strlen(ictx->pu.host));
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_port(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	switch (value->type) {
+ 	case JS_TYPE_INTEGER:
+ 	    ictx->pu.port = value->u.i;
+ 	    break;
+ 	case JS_TYPE_DOUBLE:
+ 	    ictx->pu.port = (int)value->u.d;
+ 	    break;
+ 	case JS_TYPE_STRING:
+ 	    ictx->pu.port = atoi(value->u.s->data);
+ 	    break;
+ 	default:
+ 	    return JS_ERROR;
+ 	}
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	if (ictx->pu.has_port)
+ 	    s = Sprintf("%d", ictx->pu.port);
+ 	else
+ 	    s = Strnew();
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_pathname(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	ictx->pu.file = allocStr(value->u.s->data, value->u.s->len);
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	s = Strnew();
+ 	if (ictx->pu.file) {
+ 	    Strcat_charp_n(s, ictx->pu.file, strlen(ictx->pu.file));
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_search(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	ictx->pu.query = allocStr(value->u.s->data, value->u.s->len);
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_REFRESH;
+     } else {
+ 	s = Strnew();
+ 	if (ictx->pu.query) {
+ 	    Strcat_charp(s, "?");
+ 	    Strcat_charp_n(s, ictx->pu.query, strlen(ictx->pu.query));
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ location_hash(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     LocationCtx *ictx = (LocationCtx *)instance_context; 
+     Str s;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp) {
+ 	if (value->type != JS_TYPE_STRING)
+ 	    return JS_ERROR;
+ 	ictx->pu.label = allocStr(value->u.s->data, value->u.s->len);
+ 	ictx->url = parsedURL2Str(&ictx->pu);
+ 	ictx->refresh |= JS_LOC_HASH;
+     } else {
+ 	s = Strnew();
+ 	if (ictx->pu.label) {
+ 	    Strcat_charp(s, "#");
+ 	    Strcat_charp_n(s, ictx->pu.label, strlen(ictx->pu.label));
+ 	}
+ 	js_type_make_string(interp, value, s->ptr, s->length);
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ cookie_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ image_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ formitem_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ form_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ form_submit(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     /* TODO: form submit flag on */
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ form_reset(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     /* TODO: form reset flag on */
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ anchor_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ history_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     HistoryCtx *ictx;
+ 
+     ictx = (HistoryCtx *)GC_MALLOC(sizeof(HistoryCtx));
+     ictx->pos = 0;
+     *ictx_return = ictx;
+     *ictx_destructor_return = NULL; /* TODO: GC_free() ? */
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ history_back(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     HistoryCtx *ictx = (HistoryCtx *)instance_context; 
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     ictx->pos = -1;
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ history_forward(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     HistoryCtx *ictx = (HistoryCtx *)instance_context; 
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     ictx->pos = 1;
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ history_go(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     HistoryCtx *ictx = (HistoryCtx *)instance_context; 
+     int i;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (argc != 1)
+ 	return JS_OK;
+ 
+     switch (argv[0].type) {
+     case JS_TYPE_INTEGER:
+ 	ictx->pos = argv[0].u.i;
+ 	break;
+     case JS_TYPE_DOUBLE:
+ 	ictx->pos = (int)argv[0].u.d;
+ 	break;
+     }
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ navigator_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     NavigatorCtx *ictx;
+ 
+     ictx = (NavigatorCtx *)GC_MALLOC(sizeof(NavigatorCtx));
+     ictx->appcodename = NULL;
+     ictx->appname = NULL;
+     ictx->appversion = NULL;
+     ictx->useragent = NULL;
+     *ictx_return = ictx;
+     *ictx_destructor_return = NULL; /* TODO: GC_free() ? */
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ navigator_appcodename(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     NavigatorCtx *ictx = (NavigatorCtx *)instance_context; 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp)
+ 	return JS_ERROR; /* Forbidden */
+ 
+     if (! ictx->appcodename)
+ 	ictx->appcodename = Strnew_charp("w3m");
+ 
+     js_type_make_string(interp, value,
+ 	ictx->appcodename->ptr, ictx->appcodename->length);
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ navigator_appname(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     NavigatorCtx *ictx = (NavigatorCtx *)instance_context; 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp)
+ 	return JS_ERROR; /* Forbidden */
+ 
+     if (! ictx->appname)
+ 	ictx->appname = Strnew_charp("w3m");
+ 
+     js_type_make_string(interp, value,
+ 	ictx->appname->ptr, ictx->appname->length);
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ navigator_appversion(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     NavigatorCtx *ictx = (NavigatorCtx *)instance_context; 
+ #if LANG == JA
+     const char *lang = "ja-JP";
+ #else
+     const char *lang = "en-US";
+ #endif
+     char *platform;
+     struct utsname unamebuf;
+     char *p;
+     int n;
+ 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp)
+ 	return JS_ERROR; /* Forbidden */
+ 
+     if (! ictx->appversion) {
+ 	if (uname(&unamebuf) == -1) {
+ 	    platform = "Unknown";
+ 	} else {
+ 	    platform = unamebuf.sysname;
+ 	}
+ 	p = strchr(w3m_version, '/');
+ 	if (p != NULL) {
+ 	    p++;
+ 	    n = strspn(p, "0123456789.");
+ 	    if (n > 0) {
+ 		Str rnum = Strnew();
+ 		Strcopy_charp_n(rnum, p, n);
+ 		ictx->appversion = Sprintf("%s (%s; %s)", rnum->ptr, platform, lang);
+ 		Strfree(rnum);
+ 	    }
+ 	}
+     }
+ 
+     js_type_make_string(interp, value,
+ 	ictx->appversion->ptr, ictx->appversion->length);
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ navigator_useragent(JSClassPtr cls, void *instance_context,
+ 	JSInterpPtr interp, int setp, JSType *value, char *error_return)
+ {
+     NavigatorCtx *ictx = (NavigatorCtx *)instance_context; 
+     if (! ictx && !(ictx = js_class_context(cls)))
+ 	return JS_ERROR;
+ 
+     if (setp)
+ 	return JS_ERROR; /* Forbidden */
+ 
+     if (! ictx->useragent) {
+ 	if (UserAgent == NULL || *UserAgent == '\0')
+ 	    ictx->useragent = Strnew_charp(w3m_version);
+ 	else
+ 	    ictx->useragent = Strnew_charp(UserAgent);
+     }
+ 
+     js_type_make_string(interp, value,
+ 	ictx->useragent->ptr, ictx->useragent->length);
+ 
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ document_new(JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
+ 	void **ictx_return, JSFreeProc *ictx_destructor_return,
+ 	char *error_return)
+ {
+     DocumentCtx *ictx;
+ 
+     ictx = (DocumentCtx *)GC_MALLOC(sizeof(DocumentCtx));
+     ictx->write = NULL;
+     *ictx_return = ictx;
+     *ictx_destructor_return = NULL;
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ document_write(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     DocumentCtx *ictx = (DocumentCtx *)instance_context; 
+     JSType *a;
+     int i;
+ 
+     if (! ictx)
+ 	return JS_ERROR;
+ 
+     if (! ictx->write)
+ 	ictx->write = Strnew();
+     for (i = 0; i < argc; i++) {
+ 	a = &argv[i];
+ 	switch (a->type) {
+ 	case JS_TYPE_BOOLEAN:
+ 	    Strcat_charp(ictx->write, a->u.d ? "true" : "false");
+ 	    break;
+ 	case JS_TYPE_INTEGER:
+ 	    Strcat(ictx->write, Sprintf("%d", a->u.i));
+ 	    break;
+ 	case JS_TYPE_DOUBLE:
+ 	    Strcat(ictx->write, Sprintf("%.21g", a->u.d));
+ 	    break;
+ 	case JS_TYPE_STRING:
+ 	    Strcat_charp_n(ictx->write, a->u.s->data, a->u.s->len);
+ 	    break;
+ 	default:
+ 	    break;
+ 	}
+     }
+     return JS_OK;
+ }
+ 
+ static JSMethodResult
+ document_writeln(JSClassPtr cls, void *instance_context, JSInterpPtr interp,
+ 	int argc, JSType *argv, JSType *result_return, char *error_return)
+ {
+     DocumentCtx *ictx = (DocumentCtx *)instance_context; 
+     JSType *a;
+     int i;
+ 
+     if (! ictx)
+ 	return JS_ERROR;
+ 
+     document_write(cls, instance_context, interp,
+ 		   argc, argv, result_return, error_return);
+     Strcat_charp(ictx->write, "\n");
+ 
+     return JS_OK;
+ }
+ 
+ JSInterpPtr
+ js_html_init(void)
+ {
+     JSInterpPtr interp;
+     JSClassPtr window_cls;
+     JSClassPtr document_cls, navigator_cls, history_cls;
+     JSClassPtr anchor_cls, form_cls, formitem_cls, image_cls;
+     JSClassPtr cookie_cls, location_cls;
+ 
+     interp = js_create_interp(NULL);
+ 
+     window_cls = js_class_create("(Window)", NULL, 0, window_new);
+     js_class_define_method(window_cls, "open", JS_CF_STATIC, window_open);
+     js_class_define_method(window_cls, "close", JS_CF_STATIC, window_close);
+     js_define_class(interp, window_cls, "Window");
+ 
+     document_cls = js_class_create("(Document)", NULL, 0, document_new);
+     js_class_define_method(document_cls, "write", JS_CF_STATIC, document_write);
+     js_class_define_method(document_cls, "writeln", JS_CF_STATIC, document_writeln);
+     js_define_class(interp, document_cls, "Document");
+ 
+     navigator_cls = js_class_create("(Navigator)", NULL, 0, navigator_new);
+     js_class_define_property(navigator_cls, "appCodeName",
+ 		JS_CF_STATIC|JS_CF_IMMUTABLE, navigator_appcodename);
+     js_class_define_property(navigator_cls, "appName",
+ 		JS_CF_STATIC|JS_CF_IMMUTABLE, navigator_appname);
+     js_class_define_property(navigator_cls, "appVersion",
+ 		JS_CF_STATIC|JS_CF_IMMUTABLE, navigator_appversion);
+     js_class_define_property(navigator_cls, "userAgent",
+ 		JS_CF_STATIC|JS_CF_IMMUTABLE, navigator_useragent);
+     js_define_class(interp, navigator_cls, "Navigator");
+ 
+     history_cls = js_class_create("(History)", NULL, 0, history_new);
+     js_class_define_method(history_cls, "back", JS_CF_STATIC, history_back);
+     js_class_define_method(history_cls, "forward",
+ 				JS_CF_STATIC, history_forward);
+     js_class_define_method(history_cls, "go", JS_CF_STATIC, history_go);
+     js_define_class(interp, history_cls, "History");
+ 
+     anchor_cls = js_class_create("(Anchor)", NULL, 0, anchor_new);
+     js_define_class(interp, anchor_cls, "Anchor");
+ 
+     form_cls = js_class_create("(Form)", NULL, 0, form_new);
+     js_class_define_method(form_cls, "submit", JS_CF_STATIC, form_submit);
+     js_class_define_method(form_cls, "reset", JS_CF_STATIC, form_reset);
+     js_define_class(interp, form_cls, "Form");
+ 
+     formitem_cls = js_class_create("(FormItem)", NULL, 0, formitem_new);
+     js_define_class(interp, formitem_cls, "FormItem");
+ 
+     image_cls = js_class_create("(Image)", NULL, 0, image_new);
+     js_define_class(interp, image_cls, "Image");
+ 
+     cookie_cls = js_class_create("(Cookie)", NULL, 0, cookie_new);
+     js_define_class(interp, cookie_cls, "Cookie");
+ 
+     location_cls = js_class_create("(Location)", NULL, 0, location_new);
+     js_class_define_method(location_cls, "replace", JS_CF_STATIC, location_replace);
+     js_class_define_method(location_cls, "reload", JS_CF_STATIC, location_reload);
+     js_class_define_property(location_cls, "href", JS_CF_STATIC, location_href);
+     js_class_define_property(location_cls, "protocol", JS_CF_STATIC, location_protocol);
+     js_class_define_property(location_cls, "host", JS_CF_STATIC, location_host);
+     js_class_define_property(location_cls, "hostname", JS_CF_STATIC, location_hostname);
+     js_class_define_property(location_cls, "port", JS_CF_STATIC, location_port);
+     js_class_define_property(location_cls, "pathname", JS_CF_STATIC, location_pathname);
+     js_class_define_property(location_cls, "search", JS_CF_STATIC, location_search);
+     js_class_define_property(location_cls, "hash", JS_CF_STATIC, location_hash);
+     js_define_class(interp, location_cls, "Location");
+ 
+     return interp;
+ }
+ #endif
diff -crN w3m-0.4/js_html.h w3m-0.4-js-20030304/js_html.h
*** w3m-0.4/js_html.h	1970-01-01 09:00:00.000000000 +0900
--- w3m-0.4-js-20030304/js_html.h	2003-02-24 13:38:07.000000000 +0900
***************
*** 0 ****
--- 1,82 ----
+ #ifndef JS_HTML_H
+ #define JS_HTML_H
+ 
+ #ifdef HAVE_NJS
+ 
+ /* for NJS 0.3.0 or later. */
+ #include <njs/njs.h>
+ 
+ #define JSType			NJSValue
+ #define JSInterpPtr		NJSInterpPtr
+ #define JSClassPtr		NJSClassPtr
+ #define JSFreeProc		NJSFreeProc
+ #define JSMethodResult		NJSMethodResult
+ 
+ #define JS_ERROR		NJS_ERROR
+ #define JS_OK			NJS_OK
+ 
+ #define JS_TYPE_STRING		NJS_VALUE_STRING
+ #define JS_TYPE_BOOLEAN		NJS_VALUE_BOOLEAN
+ #define JS_TYPE_DOUBLE		NJS_VALUE_DOUBLE
+ #define JS_TYPE_INTEGER		NJS_VALUE_INTEGER
+ 
+ #define JS_CF_STATIC		NJS_CF_STATIC
+ #define JS_CF_IMMUTABLE		NJS_CF_IMMUTABLE
+ 
+ #define js_eval			njs_eval
+ #define js_result		njs_result
+ #define js_create_interp	njs_create_interp
+ #define js_destroy_interp	njs_destroy_interp
+ #define js_class_context	njs_class_context
+ #define js_class_create		njs_class_create
+ #define js_define_class		njs_define_class
+ #define js_lookup_class		njs_lookup_class
+ #define js_class_define_method	njs_class_define_method
+ #define js_class_define_property njs_class_define_property
+ #define js_type_make_string	njs_type_make_string
+ #define js_type_make_array	njs_type_make_array
+ #define js_isa			njs_isa
+ 
+ #else /* HAVE_NJS */
+ 
+ /* for NJS 0.2.5. */
+ #include <js.h>
+ 
+ #endif
+ 
+ typedef struct jse_windowopen {
+   char *url;
+   char *name;
+ } jse_windowopen_t;
+ 
+ typedef struct window_ctx_st {
+   GeneralList *win;
+   int close;
+ } WindowCtx;
+ 
+ typedef struct document_ctx_st {
+   Str write;
+ } DocumentCtx;
+ 
+ typedef struct navigator_ctx_st {
+   Str appcodename;
+   Str appname;
+   Str appversion;
+   Str useragent;
+ } NavigatorCtx;
+ 
+ typedef struct history_ctx_st {
+   int pos;
+ } HistoryCtx;
+ 
+ typedef struct location_ctx_st {
+   Str url;
+   ParsedURL pu;
+   int refresh;
+ #define JS_LOC_REFRESH	1
+ #define JS_LOC_HASH	2
+ } LocationCtx;
+ 
+ extern JSInterpPtr js_html_init(void);
+ 
+ #endif
diff -crN w3m-0.4/main.c w3m-0.4-js-20030304/main.c
*** w3m-0.4/main.c	2003-02-19 00:43:25.000000000 +0900
--- w3m-0.4-js-20030304/main.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 168,173 ****
--- 168,176 ----
  #ifdef USE_MIGEMO
  	    ",migemo"
  #endif
+ #ifdef USE_JAVASCRIPT
+ 	    ",javascript"
+ #endif
  	);
  }
  
***************
*** 2699,2704 ****
--- 2702,2709 ----
  	referer = NO_REFERER;
      if (referer == NULL)
  	referer = parsedURL2Str(&Currentbuf->currentURL)->ptr;
+     if (Currentbuf)
+ 	Currentbuf->script_target = target;
      buf = loadGeneralFile(url, baseURL(Currentbuf), referer, flag, request);
      if (buf == NULL) {
  	char *emsg = Sprintf("Can't load %s", url)->ptr;
***************
*** 6394,6396 ****
--- 6399,6459 ----
      for (i = 0; i < PREC_NUM && b->next; i++, b = b->next) ;
      resetPos(b);
  }
+ 
+ #ifdef USE_SCRIPT
+ void
+ jWindowOpen(Buffer *buf, char *url, char *target)
+ {
+     union frameset_element *f_element = NULL;
+     Buffer *b;
+     ParsedURL u;
+     int i, t = FALSE;
+ 
+     if (CurrentTab == NULL || Currentbuf == NULL)
+ 	return;
+ 
+     if (!strcasecmp(target, "_top")) {
+ 	/* open on frame top */
+ 	;
+     } else if (!strcasecmp(target, "_self")) {
+ 	b = Currentbuf->linkBuffer[LB_N_FRAME];
+ 	if (b && b->frameset && buf->script_target) {
+ 	    f_element = search_frame(b->frameset, buf->script_target);
+ 	    if (f_element) {
+ 		/* FIXME */
+ 		/* target = buf->script_target; */
+ 	    }
+ 	}
+     } else if (check_target && open_tab_blank && target &&
+ 	(!strcasecmp(target, "_new") || !strcasecmp(target, "_blank"))) {
+ 	t = TRUE;
+     } else {
+ 	b = Currentbuf->linkBuffer[LB_N_FRAME];
+ 	if (b && b->frameset) {
+ 	    f_element = search_frame(b->frameset, target);
+ 	    if (f_element == NULL || f_element->body->attr != F_BODY)
+ 		t = TRUE;
+ 	}
+     }
+ 
+     if (!t) {
+ 	parseURL2(url, &u, baseURL(Currentbuf));
+ 	loadLink(parsedURL2Str(&u)->ptr, target,
+ 		 parsedURL2Str(&Currentbuf->currentURL)->ptr, NULL);
+     } else {
+ 	_newT();
+ 	b = Currentbuf;
+ 	parseURL2(url, &u, baseURL(Currentbuf));
+ 	loadLink(parsedURL2Str(&u)->ptr, target,
+ 		 parsedURL2Str(&Currentbuf->currentURL)->ptr, NULL);
+ 	if (b != Currentbuf)
+ 	    delBuffer(b);
+ 	else
+ 	    deleteTab(CurrentTab);
+ 	displayBuffer(Currentbuf, B_NORMAL);
+ 
+ 	/* TODO: set target name to the "window" */
+     }
+     return;
+ }
+ #endif
diff -crN w3m-0.4/proto.h w3m-0.4-js-20030304/proto.h
*** w3m-0.4/proto.h	2003-02-19 00:43:25.000000000 +0900
--- w3m-0.4-js-20030304/proto.h	2003-02-24 13:38:07.000000000 +0900
***************
*** 198,203 ****
--- 198,211 ----
  extern Str process_textarea(struct parsed_tag *tag, int width);
  extern Str process_n_textarea(void);
  extern void feed_textarea(char *str);
+ #ifdef USE_SCRIPT
+ extern Str process_script(struct parsed_tag *tag, struct html_feed_environ *h_env);
+ extern Str process_n_script(struct html_feed_environ *h_env);
+ extern void feed_script(char *str, struct html_feed_environ *h_env);
+ extern Str script_eval(Buffer *buf, char *lang, char *script);
+ extern void script_close(Buffer *buf);
+ extern void jWindowOpen(Buffer *buf, char *url, char *target);
+ #endif
  extern Str process_form(struct parsed_tag *tag);
  extern Str process_n_form(void);
  extern int getMetaRefreshParam(char *q, Str *refresh_uri);
diff -crN w3m-0.4/rc.c w3m-0.4-js-20030304/rc.c
*** w3m-0.4/rc.c	2003-02-06 01:48:09.000000000 +0900
--- w3m-0.4-js-20030304/rc.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 214,219 ****
--- 214,225 ----
  
  #define CMT_KEYMAP_FILE "keymapファイル"
  
+ #ifdef USE_SCRIPT
+ #define CMT_USE_SCRIPT	"JavaScriptを使用する"
+ #define CMT_ENABLE_JS_WINDOWOPEN	"window.open() を有効にする"
+ #define CMT_CONFIRM_JS_WINDOWCLOSE	"window.close() で確認する"
+ #endif				/* USE_SCRIPT */
+ 
  #else				/* LANG != JA */
  
  
***************
*** 378,383 ****
--- 384,395 ----
  
  #define CMT_KEYMAP_FILE "keymap file"
  
+ #ifdef USE_SCRIPT
+ #define CMT_USE_SCRIPT	"Use JavaScript"
+ #define CMT_ENABLE_JS_WINDOWOPEN	"Enable window.open()"
+ #define CMT_CONFIRM_JS_WINDOWCLOSE	"Confirm window.close()"
+ #endif				/* USE_SCRIPT */
+ 
  #endif				/* LANG != JA */
  
  #define PI_TEXT    0
***************
*** 805,810 ****
--- 817,833 ----
  #endif
      {NULL, 0, 0, NULL, NULL, NULL},
  };
+ #ifdef USE_SCRIPT
+ struct param_ptr params10[] = {
+     {"use_script", P_INT, PI_ONOFF, (void *)&use_script, CMT_USE_SCRIPT,
+      NULL},
+     {"enable_js_windowopen", P_INT, PI_ONOFF,
+      (void *)&enable_js_windowopen, CMT_ENABLE_JS_WINDOWOPEN, NULL},
+     {"confirm_js_windowclose", P_INT, PI_ONOFF,
+      (void *)&confirm_js_windowclose, CMT_CONFIRM_JS_WINDOWCLOSE, NULL},
+     {NULL, 0, 0, NULL, NULL, NULL},
+ };
+ #endif				/* USE_SCRIPT */
  
  struct param_section sections[] = {
  #if LANG == JA
***************
*** 823,828 ****
--- 846,854 ----
  #ifdef USE_COOKIE
      {"クッキーの設定", params8},
  #endif
+ #ifdef USE_SCRIPT
+     {"スクリプトの設定", params10},
+ #endif
  #else				/* LANG != JA */
      {"Display Settings", params1},
  #ifdef USE_COLOR
***************
*** 839,844 ****
--- 865,873 ----
  #ifdef USE_COOKIE
      {"Cookie Settings", params8},
  #endif
+ #ifdef USE_SCRIPT
+     {"Script Settings", params10},
+ #endif
  #endif				/* LANG != JA */
      {NULL, NULL}
  };
diff -crN w3m-0.4/script.c w3m-0.4-js-20030304/script.c
*** w3m-0.4/script.c	1970-01-01 09:00:00.000000000 +0900
--- w3m-0.4-js-20030304/script.c	2003-03-04 01:22:46.000000000 +0900
***************
*** 0 ****
--- 1,398 ----
+ #include "fm.h"
+ #ifdef USE_SCRIPT
+ #ifdef USE_JAVASCRIPT
+ #include "js_html.h"
+ 
+ static void
+ script_buf2js(Buffer *buf, JSInterpPtr interp)
+ {
+     Buffer *tb;
+ /*    Str s;*/
+     int i, j;
+     AnchorList *aln, *alh;
+     Anchor *an, *ah;
+     FormList *fl;
+     FormItemList *fi;
+ 
+ /*    s = Strnew();*/
+ 
+     js_eval(interp, "window = new Window();");
+     js_eval(interp, "document = new Document();");
+     js_eval(interp, "navigator = new Navigator();");
+     js_eval(interp, "history = new History();");
+     if (buf != NULL) {
+ 	js_eval(interp, Sprintf("location = new Location(\"%s\");",
+ 		parsedURL2Str(&buf->currentURL)->ptr)->ptr);
+     } else {
+ 	js_eval(interp, "location = new Location();");
+     }
+     js_eval(interp, "document.anchors = new Array();");
+     js_eval(interp, "document.forms = new Array();");
+ 
+     i = 0;
+     if (CurrentTab != NULL) {
+ 	for (tb = Firstbuf; tb != NULL; i++, tb = tb->nextBuffer);
+     }
+     js_eval(interp, Sprintf("history.length = %d;", i)->ptr);
+ 
+     if (buf != NULL) {
+ 	char *t, *c;
+ 	Str cs;
+ 
+ 	js_eval(interp, Sprintf("document.URL = \"%s\";", parsedURL2Str(&buf->currentURL)->ptr)->ptr);
+ 
+ 	switch (buf->currentURL.scheme) {
+ 	case SCM_HTTP:
+ 	case SCM_GOPHER:
+ 	case SCM_FTP:
+ #ifdef USE_SSL
+ 	case SCM_HTTPS:
+ #endif
+ 	    if (buf->currentURL.host != NULL)
+ 		js_eval(interp, Sprintf("document.domain = \"%s\";", buf->currentURL.host)->ptr);
+ 	    break;
+ 	}
+ 	js_eval(interp, Sprintf("document.lastModified = \"%s\";", last_modified(buf))->ptr);
+ 	c = t = "";
+ 	if (buf->buffername != NULL)
+ 	    t = buf->buffername;
+ #ifdef USE_COOKIE
+ 	cs = find_cookie(&buf->currentURL);
+ 	if (cs) c = cs->ptr;
+ #endif
+ 
+ 	js_eval(interp, Sprintf("document.title = \"%s\";", t)->ptr);
+ 	js_eval(interp, Sprintf("document.cookie = \"%s\";", c)->ptr);
+ 
+ 	if (buf->name != NULL) {
+ 	    aln = buf->name;
+ 	    alh = buf->href;
+ 	    for (i = 0; i < aln->nanchor; i++) {
+ 		char *n, *h;
+ 
+ 		an = &aln->anchors[i];
+ 		ah = &alh->anchors[an->hseq];
+ 
+ 		js_eval(interp, Sprintf("document.anchors[%d] = new Anchor();", i)->ptr);
+ 
+ 		n = h = "";
+ 		if (an->url != NULL)
+ 		    n = an->url;
+ 		if (ah->url != NULL)
+ 		    h = ah->url; /* TODO: It shall be Absolute URL. */
+ 
+ 		js_eval(interp, Sprintf("document.anchors[%d].name = \"%s\";", i, n)->ptr);
+ 		js_eval(interp, Sprintf("document.anchors[%d].href = \"%s\";", i, h)->ptr);
+ 		if (an->url != NULL) {
+ 		    js_eval(interp, Sprintf("document.%s = document.anchors[%d];", n, i)->ptr);
+ /*		    js_eval(interp, Sprintf("document.anchor[\"%s\"] = document.anchors[%d];", n, i)->ptr);*/
+ 		}
+ 	    }
+ 	}
+ 	if (buf->formlist != NULL) {
+ 	    for (i = 0, fl = buf->formlist; fl != NULL; i++, fl = fl->next) {
+ 		char *m, *a, *e, *n, *t;
+ 
+ 		js_eval(interp, Sprintf("document.forms[%d] = new Form();", i)->ptr);
+ 		m = "get";
+ 		if (fl->method == FORM_METHOD_POST) {
+ 		    m = "post";
+ 		}
+ 		a = e = n = t = "";
+ 		if (fl->enctype == FORM_ENCTYPE_MULTIPART) {
+ 		    e = "multipart/form-data";
+ 		}
+ 		if (fl->action && fl->action->length > 0)
+ 		    a = fl->action->ptr;
+ 		if (fl->name != NULL)
+ 		    n = fl->name;
+ 		if (fl->target != NULL)
+ 		    t = fl->target;
+ 
+ 		js_eval(interp, Sprintf("document.forms[%d].method = \"%s\";", i, m)->ptr);
+ 		js_eval(interp, Sprintf("document.forms[%d].action = \"%s\";", i, a)->ptr);
+ 		js_eval(interp, Sprintf("document.forms[%d].encoding = \"%s\";", i, e)->ptr);
+ 		js_eval(interp, Sprintf("document.forms[%d].name = \"%s\";", i, n)->ptr);
+ 		if (fl->name != NULL) {
+ 		    js_eval(interp, Sprintf("document.%s = document.forms[%d];", n, i)->ptr);
+ /*		    js_eval(interp, Sprintf("document.forms[\"%s\"] = document.forms[%d];", n, i)->ptr);*/
+ 		}
+ 		js_eval(interp, Sprintf("document.forms[%d].target = \"%s\";", i, t)->ptr);
+ 		js_eval(interp, Sprintf("document.forms[%d].elements = new Array();", i, fl->nitems)->ptr);
+ 
+ 		for (j = 0, fi = fl->item; fi != NULL; j++, fi = fi->next) {
+ 		    char *n, *t, *v;
+ 
+ 		    js_eval(interp, Sprintf("document.forms[%d].elements[%d] = new FormItem();", i, j)->ptr);
+ 
+ 		    n = v = "";
+ 		    if (fi->name && fi->name->length > 0)
+ 			n = fi->name->ptr;
+ 
+ 		    switch (fi->type) { /* TODO: タイプ毎の定義項目も設定。 */
+ 		    case FORM_INPUT_TEXT:
+ 			t = "text";
+ 			if (fi->init_value->length > 0)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultValue = \"%s\";", i, j, fi->init_value->ptr)->ptr);
+ 			break;
+ 		    case FORM_INPUT_PASSWORD:
+ 			t = "password";
+ 			if (fi->init_value->length > 0)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultValue = \"%s\";", i, j, fi->init_value->ptr)->ptr);
+ 			break;
+ 		    case FORM_INPUT_CHECKBOX:
+ 			t = "checkbox";
+ 			if (fi->init_checked)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultChecked = true;", i, j)->ptr);
+ 			else
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultChecked = false;", i, j)->ptr);
+ 			if (fi->checked)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].checked = true;", i, j)->ptr);
+ 			else
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].checked = false;", i, j)->ptr);
+ 			break;
+ 		    case FORM_INPUT_RADIO:
+ 			t = "radio";
+ 			if (fi->init_checked)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultChecked = true;", i, j)->ptr);
+ 			else
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultChecked = false;", i, j)->ptr);
+ 			if (fi->checked)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].checked = true;", i, j)->ptr);
+ 			else
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].checked = false;", i, j)->ptr);
+ 			break;
+ 		    case FORM_INPUT_SUBMIT:
+ 			t = "submit"; break;
+ 		    case FORM_INPUT_RESET:
+ 			t = "reset"; break;
+ 		    case FORM_INPUT_HIDDEN:
+ 			t = "hidden"; break;
+ 		    case FORM_INPUT_IMAGE:
+ 			t = "image"; break;
+ 		    case FORM_SELECT:
+ 			t = "select";
+ #ifdef MENU_SELECT
+ 			/* TODO: option 設定 */
+ 			js_eval(interp, Sprintf("document.forms[%d].elements[%d].selectedIndex = %d;", i, j, fi->selected)->ptr);
+ #endif
+ 			break;
+ 		    case FORM_TEXTAREA:
+ 			t = "textarea";
+ 			if (fi->init_value->length > 0)
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultValue = \"%s\";", i, j, fi->init_value->ptr)->ptr);
+ 			break;
+ 		    case FORM_INPUT_BUTTON:
+ 			t = "button"; break;
+ 		    case FORM_INPUT_FILE:
+ 			t = "file";
+ 			if (fi->init_value && fi->init_value->length > 0) /* TODO: Read Only */
+ 			    js_eval(interp, Sprintf("document.forms[%d].elements[%d].defaultValue = \"%s\";", i, j, fi->init_value->ptr)->ptr);
+ 			break;
+ 		    default:
+ 			t = ""; break;
+ 		    }
+ 
+ 		    if (fi->value && fi->value->length > 0)
+ 			v = fi->value->ptr;
+ 
+ 		    js_eval(interp, Sprintf("document.forms[%d].elements[%d].name = \"%s\";", i, j, n)->ptr);
+ 		    js_eval(interp, Sprintf("document.forms[%d].elements[%d].type = \"%s\";", i, j, t)->ptr);
+ 		    js_eval(interp, Sprintf("document.forms[%d].elements[%d].value = \"%s\";", i, j, v)->ptr);
+ 		    if (fi->name && fi->name->length > 0)
+ 			js_eval(interp, Sprintf("document.forms[%d].%s = document.forms[%d].elements[%d];", i, n, i, j)->ptr);
+ 		}
+ 	    }
+ 	}
+     }
+ 
+     /* js_eval(interp, s->ptr);*/
+ }
+ 
+ static void
+ script_chBuf(int pos)
+ {
+     int i;
+     Buffer *buf;
+ 
+     if (pos > 0) {
+ 	for (i = 0; i < pos; i++) {
+ 	    buf = prevBuffer(Firstbuf, Currentbuf);
+ 	    if (!buf) {
+ 		if (i == 0)
+ 		    return;
+ 		break;
+ 	    }
+ 	    Currentbuf = buf;
+ 	}
+     } else {
+ 	for (i = 0; i < -pos; i++) {
+ 	    buf = Currentbuf->nextBuffer;
+ 	    if (!buf) {
+ 		if (i == 0)
+ 		    return;
+ 		break;
+ 	    }
+ 	    Currentbuf = buf;
+ 	}
+     }
+     displayBuffer(Currentbuf, B_FORCE_REDRAW);
+ }
+ 
+ static Str
+ script_js2buf(Buffer *buf, JSInterpPtr interp)
+ {
+     JSType value;
+     DocumentCtx *dictx = NULL;
+     HistoryCtx  *hictx = NULL;
+     LocationCtx *lictx = NULL;
+     WindowCtx   *wictx = NULL;
+ 
+     js_eval(interp, "window;");
+     js_result(interp, &value);
+     if (js_isa(interp, &value, js_lookup_class(interp, "Window"),
+ 	(void **)&wictx) && wictx) {
+ 	if (wictx->win && wictx->win->nitem) {
+ 	    jse_windowopen_t	*w;
+ 	    while ((w = popValue(wictx->win)) != NULL) {
+ 		if (enable_js_windowopen) {
+ 		    jWindowOpen(buf, w->url, w->name);
+ 		}
+ 	    }
+ 	}
+ 	if (wictx->close) {
+ 	    if (CurrentTab != NULL && Currentbuf != NULL) {
+ 		char *ans = "y";
+ 		if (buf && confirm_js_windowclose) {
+ 		    ans = inputChar("window.close() ? (y/n)");
+ 		}
+ 		if (ans && tolower(*ans) == 'y') {
+ 		    closeT();
+ 		    return NULL;
+ 		}
+ 	    }
+ 	    wictx->close = FALSE;
+ 	}
+     }
+     
+     if (CurrentTab != NULL && Currentbuf != NULL) {
+ 	js_eval(interp, "history;");
+ 	js_result(interp, &value);
+ 	if (js_isa(interp, &value, js_lookup_class(interp, "History"),
+ 	    (void **)&hictx) && hictx && hictx->pos != 0) {
+ 	    script_chBuf(hictx->pos);
+ 	    hictx->pos = 0;
+ 	    return NULL;
+ 	}
+     }
+ 
+     js_eval(interp, "document.location;");
+     js_result(interp, &value);
+     if (buf && value.type == JS_TYPE_STRING && value.u.s->len)
+ 	buf->location = allocStr(value.u.s->data, value.u.s->len);
+ 
+     js_eval(interp, "location;");
+     js_result(interp, &value);
+     if (js_isa(interp, &value, js_lookup_class(interp, "Location"),
+ 	(void **)&lictx) && lictx) {
+ 	if (buf && lictx->url && lictx->refresh) {
+ 	    if (lictx->refresh & JS_LOC_REFRESH) {
+ 		buf->location = allocStr(lictx->url->ptr, lictx->url->length);
+ 	    } else if (lictx->refresh & JS_LOC_HASH) {
+ 		Anchor *a;
+ #ifdef JP_CHARSET
+ 		a = searchURLLabel(buf,
+ 				   conv(lictx->pu.label, buf->document_code,
+ 					InnerCode)->ptr);
+ #else				/* not JP_CHARSET */
+ 		a = searchURLLabel(buf, lictx->pu.label);
+ #endif				/* not JP_CHARSET */
+ 		if (a != NULL) {
+ 		    gotoLine(buf, a->start.line);
+ #ifdef LABEL_TOPLINE
+ 		    if (label_topline)
+ 			buf->topLine = lineSkip(buf, buf->topLine,
+ 						buf->currentLine->linenumber
+ 						- buf->topLine->linenumber,
+ 						FALSE);
+ #endif
+ 		    buf->pos = a->start.pos;
+ 		    arrangeCursor(buf);
+ 		}
+ 	    }
+ 	    lictx->refresh = 0;
+ 	}
+     }
+ 
+     js_eval(interp, "document;");
+     js_result(interp, &value);
+     if (js_isa(interp, &value, js_lookup_class(interp, "Document"),
+ 	(void **)&dictx) && dictx)
+ 	return dictx->write;
+     return NULL;
+ }
+ 
+ static Str
+ script_js_eval(Buffer *buf, char *script)
+ {
+     JSInterpPtr interp;
+ 
+     if (buf && buf->script_interp) {
+ 	interp = (JSInterpPtr)buf->script_interp;
+     } else {
+ 	interp = js_html_init();
+ 	if (buf)
+ 	    buf->script_interp = (void *)interp;
+     }
+     script_buf2js(buf, interp);
+     js_eval(interp, script);
+     return script_js2buf(buf, interp);
+ }
+ 
+ static void
+ script_js_close(Buffer *buf)
+ {
+     if (buf && buf->script_interp) {
+ 	js_destroy_interp((JSInterpPtr)buf->script_interp);
+ 	buf->script_interp = NULL;
+     }
+ }
+ #endif
+ 
+ Str
+ script_eval(Buffer *buf, char *lang, char *script)
+ {
+     if (buf && buf->location)
+         buf->location = NULL;
+     if (! lang || ! script)
+ 	return NULL;
+     if (buf) {
+ 	if (buf->script_lang) {
+ 	    if (strcasecmp(lang, buf->script_lang))
+ 		return NULL;
+ 	} else
+ 	    buf->script_lang = lang;
+     }
+ #ifdef USE_JAVASCRIPT
+     if (! strcasecmp(lang, "javascript") ||
+ 	! strcasecmp(lang, "jscript"))
+ 	return script_js_eval(buf, script);
+     else
+ #endif
+ 	return NULL;
+ }
+ 
+ void
+ script_close(Buffer *buf)
+ {
+     if (! buf || ! buf->script_lang)
+ 	return;
+ #ifdef USE_JAVASCRIPT
+     if (! strcasecmp(buf->script_lang, "javascript") ||
+ 	! strcasecmp(buf->script_lang, "jscript"))
+ 	script_js_close(buf);
+ #endif
+     buf->script_interp = NULL;
+     buf->script_lang = NULL;
+ }
+ #endif
diff -crN w3m-0.4/table.c w3m-0.4-js-20030304/table.c
*** w3m-0.4/table.c	2003-02-21 00:39:22.000000000 +0900
--- w3m-0.4-js-20030304/table.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 2045,2050 ****
--- 2045,2051 ----
      t->maxrow = -1;
      t->border_mode = border;
      t->flag = 0;
+     t->h_env = NULL;
      if (border == BORDER_NOWIN)
  	t->flag |= TBL_EXPAND_OK;
  
***************
*** 2424,2429 ****
--- 2425,2444 ----
      feed_table1(tbl, tmp, mode, width);
  }
  
+ #ifdef USE_SCRIPT
+ static void
+ table_close_script(struct table *tbl, struct table_mode *mode, int width)
+ {
+     Str tmp;
+     mode->pre_mode &= ~TBLM_SCRIPT;
+     mode->end_tag = 0;
+     if (! use_script)
+ 	return;
+     tmp = process_n_script(tbl->h_env);
+     feed_table1(tbl, tmp, mode, width);
+ }
+ #endif
+ 
  static void
  table_close_anchor0(struct table *tbl, struct table_mode *mode)
  {
***************
*** 2484,2489 ****
--- 2499,2513 ----
  
      cmd = tag->tagid;
  
+ #ifdef USE_SCRIPT
+     if (mode->pre_mode & TBLM_NOSCRIPT) {
+ 	if (mode->end_tag == cmd) {
+ 	    mode->pre_mode &= ~TBLM_NOSCRIPT;
+ 	    mode->end_tag = 0;
+ 	}
+ 	return TAG_ACTION_NONE;
+     }
+ #endif
      if (mode->pre_mode & TBLM_PLAIN) {
  	if (mode->end_tag == cmd) {
  	    mode->pre_mode &= ~TBLM_PLAIN;
***************
*** 2502,2509 ****
--- 2526,2537 ----
      }
      if (mode->pre_mode & TBLM_SCRIPT) {
  	if (mode->end_tag == cmd) {
+ #ifdef USE_SCRIPT
+ 	    table_close_script(tbl, mode, width);
+ #else
  	    mode->pre_mode &= ~TBLM_SCRIPT;
  	    mode->end_tag = 0;
+ #endif
  	    return TAG_ACTION_NONE;
  	}
  	return TAG_ACTION_PLAIN;
***************
*** 3061,3069 ****
--- 3089,3112 ----
      case HTML_COL:
  	break;
      case HTML_SCRIPT:
+ #ifdef USE_SCRIPT
+ 	if (use_script) {
+ 	    tmp = process_script(tag, tbl->h_env);
+ 	    if (tmp != NULL)
+ 		feed_table1(tbl, tmp, mode, width);
+ 	}
+ #endif
  	mode->pre_mode |= TBLM_SCRIPT;
  	mode->end_tag = HTML_N_SCRIPT;
  	break;
+ #ifdef USE_SCRIPT
+     case HTML_NOSCRIPT:
+ 	if (use_script) {
+ 	    mode->pre_mode |= TBLM_NOSCRIPT;
+ 	    mode->end_tag = HTML_N_NOSCRIPT;
+ 	}
+ 	break;
+ #endif
      case HTML_STYLE:
  	mode->pre_mode |= TBLM_STYLE;
  	mode->end_tag = HTML_N_STYLE;
***************
*** 3128,3147 ****
  	}
  	else {
  	    if (!(mode->pre_mode & (TBLM_PLAIN | TBLM_INTXTA | TBLM_INSELECT |
  				    TBLM_SCRIPT | TBLM_STYLE)))
  		return -1;
  	}
      }
      else {
! 	if (mode->pre_mode & (TBLM_DEL | TBLM_S))
  	    return -1;
      }
      if (mode->caption) {
  	Strcat_charp(tbl->caption, line);
  	return -1;
      }
      if (mode->pre_mode & TBLM_SCRIPT)
  	return -1;
      if (mode->pre_mode & TBLM_STYLE)
  	return -1;
      if (mode->pre_mode & TBLM_INTXTA) {
--- 3171,3204 ----
  	}
  	else {
  	    if (!(mode->pre_mode & (TBLM_PLAIN | TBLM_INTXTA | TBLM_INSELECT |
+ #ifdef USE_SCRIPT
+ 				    TBLM_NOSCRIPT |
+ #endif
  				    TBLM_SCRIPT | TBLM_STYLE)))
  		return -1;
  	}
      }
      else {
! 	if (mode->pre_mode & (TBLM_DEL |
! 			      TBLM_S))
  	    return -1;
      }
      if (mode->caption) {
  	Strcat_charp(tbl->caption, line);
  	return -1;
      }
+ #ifdef USE_SCRIPT
+     if (mode->pre_mode & TBLM_NOSCRIPT)
+ 	return -1;
+     if (mode->pre_mode & TBLM_SCRIPT) {
+ 	if (use_script)
+ 	    feed_script(line, tbl->h_env);
+ 	return -1;
+     }
+ #else
      if (mode->pre_mode & TBLM_SCRIPT)
  	return -1;
+ #endif
      if (mode->pre_mode & TBLM_STYLE)
  	return -1;
      if (mode->pre_mode & TBLM_INTXTA) {
diff -crN w3m-0.4/table.h w3m-0.4-js-20030304/table.h
*** w3m-0.4/table.h	2002-12-07 01:50:49.000000000 +0900
--- w3m-0.4-js-20030304/table.h	2003-02-24 13:38:07.000000000 +0900
***************
*** 112,117 ****
--- 112,120 ----
      VEC *vector;
  #endif				/* MATRIX */
      int sloppy_width;
+ #ifdef USE_SCRIPT
+     struct html_feed_environ *h_env;
+ #endif
  };
  
  #define TBLM_PRE	RB_PRE
***************
*** 126,131 ****
--- 129,137 ----
  #define TBLM_SPECIAL	(TBLM_PRE | TBLM_PRE_INT | TBLM_SCRIPT | TBLM_STYLE | TBLM_PLAIN | TBLM_NOBR)
  #define TBLM_DEL	RB_DEL
  #define TBLM_S		RB_S
+ #ifdef USE_SCRIPT
+ #define TBLM_NOSCRIPT	RB_NOSCRIPT
+ #endif
  #define TBLM_ANCHOR	0x1000000
  
  #define  uchar           unsigned char
diff -crN w3m-0.4/tagtable.tab w3m-0.4-js-20030304/tagtable.tab
*** w3m-0.4/tagtable.tab	2002-12-10 00:40:37.000000000 +0900
--- w3m-0.4-js-20030304/tagtable.tab	2003-02-24 13:38:07.000000000 +0900
***************
*** 101,106 ****
--- 101,108 ----
  area		HTML_AREA
  script		HTML_SCRIPT
  /script		HTML_N_SCRIPT
+ noscript	HTML_NOSCRIPT
+ /noscript	HTML_N_NOSCRIPT
  base		HTML_BASE
  del		HTML_DEL
  /del		HTML_N_DEL
diff -crN w3m-0.4/url.c w3m-0.4-js-20030304/url.c
*** w3m-0.4/url.c	2003-02-06 01:44:00.000000000 +0900
--- w3m-0.4-js-20030304/url.c	2003-02-24 13:38:07.000000000 +0900
***************
*** 60,66 ****
--- 60,71 ----
      0,				/* mailto - not defined */
  #ifdef USE_SSL
      443,			/* https */
+ #else
+     0,
  #endif				/* USE_SSL */
+ #ifdef USE_JAVASCRIPT
+     0,                         /* javascript - not defined */
+ #endif
  };
  
  struct cmdtable schemetable[] = {
***************
*** 80,86 ****
--- 85,96 ----
  #endif
  #ifdef USE_SSL
      {"https", SCM_HTTPS},
+ #else
+     {"???", SCM_UNKNOWN},
  #endif				/* USE_SSL */
+ #ifdef USE_JAVASCRIPT
+     {"javascript", SCM_JAVASCRIPT},
+ #endif
      {NULL, SCM_UNKNOWN},
  };
  
***************
*** 660,665 ****
--- 670,676 ----
      p_url->pass = NULL;
      p_url->host = NULL;
      p_url->is_nocache = 0;
+     p_url->has_port = 0;
      p_url->file = NULL;
      p_url->real_file = NULL;
      p_url->query = NULL;
***************
*** 730,735 ****
--- 741,752 ----
  	/* the url doesn't begin with '//' */
  	goto analyze_file;
      }
+ #ifdef USE_JAVASCRIPT
+     if (p_url->scheme == SCM_JAVASCRIPT) {
+ 	p_url->file = allocStr(p, -1);
+ 	return;
+     }
+ #endif
      /* scheme part has been found */
      if (p_url->scheme == SCM_UNKNOWN) {
  	p_url->file = allocStr(url, -1);
***************
*** 797,802 ****
--- 814,820 ----
  	/* scheme://host:port/ */
  	tmp = Strnew_charp_n(q, p - q);
  	p_url->port = atoi(tmp->ptr);
+ 	p_url->has_port = 1;
  	/* *p is one of ['\0', '/', '?', '#'] */
  	break;
      case '@':
***************
*** 945,950 ****
--- 963,969 ----
      p->scheme = q->scheme;
      p->port = q->port;
      p->is_nocache = q->is_nocache;
+     p->has_port = q->has_port;
      p->user = ALLOC_STR(q->user);
      p->pass = ALLOC_STR(q->pass);
      p->host = ALLOC_STR(q->host);
***************
*** 966,971 ****
--- 985,994 ----
      if (pu->scheme == SCM_MAILTO)
  	return;
  #endif
+ #ifdef USE_JAVASCRIPT
+     if (pu->scheme == SCM_JAVASCRIPT)
+ 	return;
+ #endif
      if (pu->scheme == SCM_DATA)
  	return;
      if (pu->scheme == SCM_NEWS || pu->scheme == SCM_NEWS_GROUP) {
***************
*** 1125,1131 ****
--- 1148,1159 ----
  	"news", "news", "data", "mailto",
  #ifdef USE_SSL
  	"https",
+ #else
+ 	"???",
  #endif				/* USE_SSL */
+ #ifdef USE_JAVASCRIPT
+ 	"javascript",
+ #endif
      };
  
      if (pu->scheme == SCM_MISSING) {
***************
*** 1158,1163 ****
--- 1186,1197 ----
  	return tmp;
      }
  #endif
+ #ifdef USE_JAVASCRIPT
+     if (pu->scheme == SCM_JAVASCRIPT) {
+ 	Strcat_charp(tmp, pu->file);
+ 	return tmp;
+     }
+ #endif
      if (pu->scheme == SCM_DATA) {
  	Strcat_charp(tmp, pu->file);
  	return tmp;
***************
*** 1178,1184 ****
      }
      if (pu->host) {
  	Strcat_charp(tmp, pu->host);
! 	if (pu->port != DefaultPort[pu->scheme]) {
  	    Strcat_char(tmp, ':');
  	    Strcat(tmp, Sprintf("%d", pu->port));
  	}
--- 1212,1218 ----
      }
      if (pu->host) {
  	Strcat_charp(tmp, pu->host);
! 	if (pu->has_port) {
  	    Strcat_char(tmp, ':');
  	    Strcat(tmp, Sprintf("%d", pu->port));
  	}
***************
*** 1257,1263 ****
      if (target->host) {
  	Strcat_charp(s, "Host: ");
  	Strcat_charp(s, target->host);
! 	if (target->port != DefaultPort[target->scheme])
  	    Strcat(s, Sprintf(":%d", target->port));
  	Strcat_charp(s, "\r\n");
      }
--- 1291,1297 ----
      if (target->host) {
  	Strcat_charp(s, "Host: ");
  	Strcat_charp(s, target->host);
! 	if (target->has_port)
  	    Strcat(s, Sprintf(":%d", target->port));
  	Strcat_charp(s, "\r\n");
      }
***************
*** 1780,1785 ****
--- 1814,1825 ----
  	uf.stream = newStrStream(tmp);
  	uf.guess_type = (*p != '\0') ? p : "text/plain";
  	return uf;
+ #ifdef USE_JAVASCRIPT
+     case SCM_JAVASCRIPT:
+ 	uf.stream = NULL;
+ 	uf.scheme = SCM_JAVASCRIPT;
+ 	return uf;
+ #endif
      case SCM_UNKNOWN:
      default:
  	return uf;