From 54da48c631347b43699211f88607a921fe78c178 Mon Sep 17 00:00:00 2001 From: Fumitoshi UKAI Date: Fri, 30 Nov 2001 16:48:12 +0000 Subject: [w3m-dev 02600] From: Fumitoshi UKAI --- scripts/.cvsignore | 3 + scripts/Makefile | 54 ++++++++++++-- scripts/w3mhelp.cgi.in | 186 +++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 237 insertions(+), 6 deletions(-) create mode 100644 scripts/w3mhelp.cgi.in (limited to 'scripts') diff --git a/scripts/.cvsignore b/scripts/.cvsignore index 8cf0879..191d0e6 100644 --- a/scripts/.cvsignore +++ b/scripts/.cvsignore @@ -1 +1,4 @@ dirlist.cgi +w3mhelp.cgi +w3hmhelp-*.pl + diff --git a/scripts/Makefile b/scripts/Makefile index b1d304a..4cf6575 100644 --- a/scripts/Makefile +++ b/scripts/Makefile @@ -3,27 +3,69 @@ prefix = /usr/local DESTDIR = BIN_DIR = $(prefix)/bin LIB_DIR = $(prefix)/lib/w3m +HELP_DIR = $(prefix)/lib/w3m -LIB_TARGETS = dirlist.cgi +LIB_TARGETS = dirlist.cgi w3mhelp.cgi INSTALL = install -c INSTALL_SCRIPT = $(INSTALL) -m 755 PERL = /usr/local/bin/perl +DOCDIRS = doc:en_English doc-jp:ja_Japanese + .SUFFIXES: .in -all: $(LIB_TARGETS) +all: $(LIB_TARGETS) helplibs .in: - sed 's%@PERL@%$(PERL)%' $< > $@ - chmod +x $@ + @echo "generating $@..." + @sed -e 's%@PERL@%$(PERL)%' -e 's%@HELP_DIR@%$(HELP_DIR)%' \ + -e 's%@DOCDIRS@%$(DOCDIRS)%' $< > $@ + @chmod +x $@ + @echo done + +helplibs: + @echo "generating w3mhelp-funcname.pl..." + @echo '%funcname = (' > w3mhelp-funcname.pl + @while read fname fid; do \ + case "$$fname" in [a-zA-Z@]*) echo "'$$fname', '$$fid',";; esac; \ + done < ../funcname.tab >> w3mhelp-funcname.pl + @echo ');' >> w3mhelp-funcname.pl + @echo '%keyfunc = (' >> w3mhelp-funcname.pl + @case "$(KEYBIND_SRC)" in *lynx*) keymap=keymap.lynx;; *) keymap=keymap.default;; esac; \ + while read keyword keys func rest; do \ + if [ "X$$keyword" = Xkeymap ]; then \ + keys=`echo "$$keys" | sed -e 's/\\\\/\\\\&/g'`; \ + echo "'$$keys', '$$func',"; \ + fi; \ + done < ../doc/$$keymap >> w3mhelp-funcname.pl + @echo ');' >> w3mhelp-funcname.pl + @echo '1;' >> w3mhelp-funcname.pl + @echo "done" + + @echo "generating w3mhelp-funcdesc*.pl..." + @for dirlang in $(DOCDIRS); do \ + dir=`expr "$$dirlang" : "\(.*\):.*"`; \ + lang=`expr "$$dirlang" : ".*:\(.*\)_.*"`; \ + echo '%funcdesc = (' > w3mhelp-funcdesc.$$lang.pl; \ + while read func desc; do \ + case "$$func" in [a-zA-Z@]*) echo "'$$func', '$$desc', ";; esac; \ + done < ../$$dir/README.func >> w3mhelp-funcdesc.$$lang.pl; \ + echo ');' >> w3mhelp-funcdesc.$$lang.pl; \ + echo '1;' >> w3mhelp-funcdesc.$$lang.pl; \ + done + @echo done install: $(LIB_TARGETS) for file in $(LIB_TARGETS); \ do \ - $(INSTALL_SCRIPT) $$file $(DISTDIR)$(LIB_DIR); \ + $(INSTALL_SCRIPT) $$file $(DESTDIR)$(LIB_DIR); \ + done + for file in w3mhelp-*.pl; \ + do \ + $(INSTALL) $$file $(DESTDIR)$(HELP_DIR); \ done clean: - rm -f $(LIB_TARGETS) + rm -f $(LIB_TARGETS) w3mhelp-*.pl diff --git a/scripts/w3mhelp.cgi.in b/scripts/w3mhelp.cgi.in new file mode 100644 index 0000000..06d99e9 --- /dev/null +++ b/scripts/w3mhelp.cgi.in @@ -0,0 +1,186 @@ +#!@PERL@ +# $Id: w3mhelp.cgi.in,v 1.1 2001/11/30 16:48:19 ukai Exp $ + +$helpdir="@HELP_DIR@"; +unshift(@INC, $helpdir); +@docdirs=qw(@DOCDIRS@); + +require "w3mhelp-funcname.pl"; +require "w3mhelp-funcdesc.en.pl"; +$lang = 'en'; + +%htmlesc = qw(< < > > & &); + +$keymap = "$ENV{'HOME'}/.w3m/keymap"; +$version = '*unknown*'; +if (defined($ENV{'QUERY_STRING'})) { + print "QUERY_STRING=$ENV{'QUERY_STRING'}\n"; + if ($ENV{'QUERY_STRING'} =~ /(^|&)version=([^&]*)/) { + $version = $2; + $version =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge; + $version =~ s/w3m\///; + } + if ($ENV{'QUERY_STRING'} =~ /(^|&)lang=([^&]*)/) { + local $tlang=$2; + $tlang =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge; + $tlang =~ tr/A-Z/a-z/; + print "tlang=$tlang\n"; + eval qq{require "w3mhelp-funcdesc.$tlang.pl"}; + if (defined(%funcdesc)) { + $lang = $tlang; + } + } +} + +if (-f $keymap) { + open(KEYMAP, $keymap) or die "cannot open keymap: $keymap, $!"; + &load_keymap(*KEYMAP, $func); + close(KEYMAP); +} + +local (%funckeydesc, $key, $fname, $desc); + +while (($fname, $desc) = each %funcdesc) { + $funckeydesc{$funcname{$fname}} = "$desc\n"; +} +while (($key, $fname) = each %keyfunc) { + $funckeydesc{$funcname{$fname}} .= "$key,"; +} + +print < + +w3m help page + + +
+******* +w3m + (WWW-wo-Miru) Version $version by +A.ITO ********
+ ***** Key assign table ***** +
+ +HEADING + +$q_version = $version; +$q_version =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge; +$script = "$d[2] version
\n"; + } +} + +&show_keymap("Page/Cursor motion", + qw(pgFore pgBack movR movL movD movU lup1 ldown1 + goLineF goLineL movRW movLW shiftl shiftr + col1R col1L goLine ctrCsrH ctrCsrV + topA lastA nextA prevA + nextL nextLU nextR nextRD nextD nextU)); + +&show_keymap("Hyperlink operation", + qw(followA svA peekURL peekIMG followI svI + chkURL chkNMID curURL pginfo curlno ldHist + rFrame extbrz linkbrz)); + +&show_keymap("File/Stream operation", + qw(goURL ldfile readsh pipesh)); + +&show_keymap("Buffer operation", + qw(backBf vwSrc selMn editBf rdrwSc reload + svBuf svSrc editScr)); + +print <Buffer selection mode + +
k, C-pSelect previous buffer +
j, C-nSelect next buffer +
DDelete current buffer +
RETGo to the selected buffer +
+PAGE + +&show_keymap("Bookmark operation", + qw(ldBmark adBmark)); + +&show_keymap("Search", + qw(srchfor srchbak srchnxt srchprv)); + +&show_keymap("Dictionary look-up", + qw(dictword dictwordat)); + +&show_keymap("Mark operation", + qw(_mark prevMk nextMk reMark)); + +&show_keymap("Miscellany", + qw(setAlarm execsh ldhelp ldOpt cooLst susp qquitfm quitfm)); + +print <Line-edit mode + +
C-fMove cursor forward +
C-bMove cursor backward +
C-hDelete previous character +
C-dDelete current character +
C-kKill everything after cursor +
C-uKill everything before cursor +
C-aMove to the top of line +
C-eMove to the bottom of line +
C-pFetch the previous string from the history list +
C-nFetch the next string from the history list +
TAB,SPCComplete filename +
RETURNAccept +
+
+ + +PAGE + +exit 0; + +sub load_keymap { + local(*FH) = shift; + my ($func) = @_; + + while () { + next if /^#/; + next if /^\s*$/; + ($keymap, $key, $fname) = split; + next unless $keymap =~ /keymap/; + $fname =~ tr/a-z/A-Z/; + next unless (defined($funcdesc{$fname})); + $key =~ s/^\\//; + $keyfunc{$key} = $fname; + } +} + +sub show_keymap { + my ($head, @list) = @_; + my ($fid); + my ($attr) = " WIDTH=140"; + + print <$head + +PAGE + foreach $fid (@list) { + local ($desc, $keys) = split("\n", $funckeydesc{$fid}, 2); + $keys =~ s/,$//; + $keys = '' if ($keys eq ''); + $keys =~ s/[<>&]/$htmlesc{$&}/ge; + $desc =~ s/[<>&]/$htmlesc{$&}/ge; + print <$keys +PAGE + $attr = ""; + } + print "
$desc
\n"; +} -- cgit v1.2.3