Adding upstream version 0.5.1

2011-05-04 16:05:14 +09:00
parent adc0f0ac3c
commit 72f72d64a4
403 changed files with 329486 additions and 0 deletions
--- a/scripts/bm2menu/README
+++ b/scripts/bm2menu/README
@@ -0,0 +1,21 @@
+
+bm2menu.pl
+
+  <20>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD>ե<EFBFBD><D5A5><EFBFBD><EFBFBD><EFBFBD> ~/.w3m/bookmark.html <20><><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD> w3m <20><>
+  <20>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˥塼<CBA5>Ȥ<EFBFBD><C8A4>ƻȤ<C6BB><C8A4><EFBFBD><EFBFBD>ͤˤ<CDA4><CBA4>롣
+
+<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˡ
+ 
+  ~/.w3m/bookmark.html <20><><EFBFBD>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD> ~/.w3m/menu <20><><EFBFBD>ɲá<C9B2> 
+
+    perl bm2menu.pl ~/.w3m/bookmark.html >> ~/.w3m/menu
+
+  <20><><EFBFBD>ˡ<EFBFBD>~/.w3m/keymap <20><>
+
+    keymap  x  MENU  Bookmarks
+
+  <20><><EFBFBD>ͤ˥<CDA4><CBA5><EFBFBD><EFBFBD>γ<EFBFBD><CEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƥ<EFBFBD><C6A4>ɲä<C9B2><C3A4>ޤ<EFBFBD><DEA4><EFBFBD>
+
+  <20><><EFBFBD><EFBFBD><EFBFBD>ǡ<EFBFBD><C7A1><EFBFBD><EFBFBD><EFBFBD> `x' <20>ǥ֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˥塼<CBA5><E5A1BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ޤ<EFBFBD><DEA4><EFBFBD>
+  <20><><EFBFBD>˥塼<CBA5><E5A1BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> doc-jp/README.menu <20><><EFBFBD>ɤ<EFBFBD><C9A4>Ǥ<EFBFBD><C7A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+    
--- a/scripts/bm2menu/bm2menu.pl
+++ b/scripts/bm2menu/bm2menu.pl
@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+
+$PRE_MENU = "";
+$POST_MENU = <<EOF;
+ nop	"----------------------"
+ func	"<22>֥å<D6A5><C3A5>ޡ<EFBFBD><DEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɲ<EFBFBD> (a)"	ADD_BOOKMARK	"aA"
+EOF
+# $POST_MENU = <<EOF;
+#  nop	"----------------------"
+#  func	"Add Bookmark       (a)"	ADD_BOOKMARK	"aA"
+# EOF
+
+@section = ();
+%title = ();
+%url = ();
+while(<>) {
+  if (/<h2>(.*)<\/h2>/) {
+    $s = &unquote($1);
+    push(@section, $s);
+  } elsif (/<li><a href=\"(.*)\">(.*)<\/a>/) {
+    $u = &unquote($1);
+    $t = &unquote($2);
+    $url{$s}   .= "$u\n";
+    $title{$s} .= "$t\n";
+  }
+}
+
+print "menu Bookmarks\n";
+print $PRE_MENU;
+foreach(@section) {
+  print " popup\t\"$_\"\t\"$_\"\n"; 
+}
+print $POST_MENU;
+print "end\n";
+
+foreach(@section) {
+  print "\n";
+  print "menu \"$_\"\n";
+  @ts = split("\n", $title{$_});
+  @us = split("\n", $url{$_});
+  while(@ts) {
+    $t = shift @ts;
+    $u = shift @us;
+    print " func\t\"$t\"\tGOTO\t\"\"\t\"$u\"\n"; 
+  }
+  print "end\n";
+}
+
+sub unquote {
+  local($_) = @_;
+
+  s/\&lt;/\</g;
+  s/\&gt;/\>/g;
+  s/\&nbsp;/ /g;
+  s/\&amp;/\&/g;
+
+  return $_;
+}