langhelp 0.9.8

data/bin/mklanghelp

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+# -*- ruby -*-
+#  mklanghelp - Create langhelp index of various languages
+#  
+#  Copyright (C) 2005,2006 rubikitch <rubikitch@ruby-lang.org>
+#  Version: $Id:$
+
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#    This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#    You should have received a copy of the GNU General Public License
+#  along with this program; if not, write to the Free Software
+#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+require 'optparse'
+require 'langhelp/mklanghelp'
+mk = MkLangHelp.new
+langs = ARGV                    # default
+
+ARGV << "--help" if ARGV.empty?
+ARGV.options do |o|
+  o.banner << " [languages]\n" << "Supported languages: #{mk.langs.join(', ')}\n"
+  o.on("-a", "--all", "Output index of all languages.") { langs = mk.langs }
+  o.on("--home=DIR", "Output directory of index files.") {|v|  mk.langhelp_home = v}
+  o.on("--suffix=SUFFIX",
+       "Suffix of index files [default: #{mk.index_suffix}]"){|v|
+    mk.index_suffix = v }
+  o.on("--init-script=FILE", "-c FILE",
+       "Initialize script name [default: #{mk.init_script}]"){|v|
+    mk.init_script = v }
+  o.on("-f", "Suppress read of init script."){ mk.no_init = true }
+  o.on("--langs", "Output supported languages.") {
+    puts mk.langs; exit 0 }
+  o.on("--stdout", "Output index into stdout.") { mk.output_stdout = true }
+  o.on("-e EXP", "--eval=EXP", "Evaluate.") {|e|
+    mk.eval_expr = eval(e)
+    mk.output_stdout = true
+    langs = ["stdout"]
+  }
+  o.on("-d", "--debug", "Output stack trace when error occurred.") {
+    mk.debug_mode = true }
+  o.parse!
+end
+
+mk.write(langs)

data/data/langhelp/config.sample

@@ -0,0 +1,889 @@
+# -*- ruby -*-
+# 
+################################################################
+#                                                              #
+# This is a langhelp sample configuration file                 #
+#                                                              #
+################################################################
+# 
+# This file is pure Ruby script. So all the Ruby expression is valid.
+# If you use langhelp for the first time then copy it into
+# `~/.langhelp/config' and edit the copied file for your environment.
+# 
+# If you do not need a certain line which begins from spaces and `{'
+# character (Hash elements), you can comment out the line. To comment
+# out a line, put `#' character at the beginning of line. If you use
+# font-lock the commented line is colored as comment. To avoid
+# confusion and syntax error, Hash elements are written in one line
+# even if the line is very long.
+# 
+# To help you modify this file for your environment, some sexps are embedded.
+# All lines containing embedded sexp have `[EVAL IT]' mark.
+# To eval the sexp, type C-e C-x C-e; `end-of-line' and `eval-last-sexp'.
+# 
+# Remember to reboot el4r when you modify this file.
+# Type `M-x el4r-boot' to reboot el4r.
+# 
+# If you want to know supported languages, eval the sexp below.
+# [EVAL IT] (occur "^################ ")
+# 
+######## How to Get Documents
+# 
+# To get documents, it is easy by using Debian GNU/Linux package
+# even if you are not using Debian.
+# 
+# If you are using Debian, simply `apt-get install' package.
+# 
+# If you are not using Debian, eval `browse-url' sexp. It brings you
+# the debian package directory.  The file name of Debian package `foo'
+# is `foo_version_architecture.deb'. Then download the corresponding
+# package.
+# 
+# To extract Debian package, execute the following command.
+# You need GNU ar (in Binutils).
+# [EVAL IT] (browse-url "http://www.gnu.org/software/binutils/")
+# 
+#   ar x foo_version_architecture.deb; tar xzvf data.tar.gz | grep usr/share
+#
+# 
+######## You need GNU wget to download multiple HTMLs
+#
+# For windows users,
+# Wget for win32 is here    [EVAL IT] (browse-url "http://apollo.u-gakugei.ac.jp/~sunaoka/tools/win32/wget/wget-1.9.1-win32-binary.zip")
+# OpenSSL for win32 is here [EVAL IT] (browse-url "http://apollo.u-gakugei.ac.jp/~sunaoka/tools/win32/openssl/openssl-0.9.7g-win32-binary.zip")
+# 
+######## If you are not Japanese
+# 
+# Eval this sexp to comment-out all the Japanese setting.
+# 
+# [EVAL IT] (replace-regexp "^.+Japanese" "#\\&")
+# 
+######## How to Add a New Document
+#
+# Langhelp defines many classes to handle various document formats,
+# such as HTML, Info, Manpage, RD, Perl POD, and so on.  If you get an
+# HTML document, use HTML class. If you get an Info document, use Info
+# class. If you get a plain text document, use Grep class.
+#
+# Eval this sexp to list all the class.
+#
+# [EVAL IT] (occur "#### class")
+#
+######## How to Add a New Language
+#
+# This file is a Ruby script. So if you want to add a new language,
+# add a new element assignment of the `@lang' hash.
+#
+# For example, you add `foo' language, 
+# 
+#  @lang["foo"] = [
+#
+#  ]
+#
+# 
+# After writing an assignment, add documents.
+# 
+################################################################
+
+@LANGHELP_HOME = File.expand_path("~/.langhelp/")
+@HTML2TXT = "w3m -cols 1000 -dump -T text/html"
+@ENCODING = :euc_jp
+# @ENCODING = :sjis
+@TAB_WIDTH = -4                 # negative number means (frame-width - @TAB_WIDTH.abs) 
+
+# If you do not want to use langhelp frame, uncomment this.
+# @NO_FRAME=true 
+
+#### The langhelp key binding.
+## The left is key and the right is EmacsLisp command.
+## Note that the name of EmacsLisp command is substituted ('-' -> '_').
+@KEY_BINDING = {
+        'n' => :next_line,
+        'p' => :previous_line,
+
+        ## vi-like cursor movement
+        'j' => :next_line,
+        'k' => :previous_line,
+
+        ## follow the link
+        # [EVAL IT] (describe-function 'lh-goto-link)
+        # [EVAL IT] (describe-function 'lh-goto-link-centering)
+        # [EVAL IT] (describe-function 'lh-goto-link-edit)
+        'l' => :lh_goto_link,   
+        '\C-m' => :lh_goto_link,
+        ';' => :lh_goto_link_centering, 
+        'C' => :lh_goto_link_centering,
+        'L' => :lh_goto_link_centering,
+        'o' => :lh_goto_link_edit, 
+        ## Kill help buffer
+        # [EVAL IT] (describe-function 'lh-kill-link)
+        'D' => :lh_kill_link,   
+        'K' => :lh_kill_link,
+
+
+        ## Restore window configuration before langhelp-call.
+        '\C-c\C-c' => :winconf_pop,
+        'h' => :winconf_pop,
+
+        ## scroll the langhelp buffer
+        ' ' => :scroll_up,
+        'b' => :scroll_down,
+
+        '/' => :isearch_forward,
+        's' => :isearch_forward,
+        'g' => :beginning_of_buffer,
+
+        ## scroll help buffer (under the langhelp buffer) 
+        # [EVAL IT] (describe-function 'scroll-other-window)
+        # [EVAL IT] (describe-function 'scroll-other-window-down)
+        'v' => :scroll_other_window, 
+        'c' => :scroll_other_window_down, 
+
+        ## Update langhelp buffer
+        # [EVAL IT] (describe-function 'langhelp-revert-buffer)
+        'R' => :langhelp_revert_buffer, 
+
+        ## bm.el : buffer bookmark.
+        # [EVAL IT] (describe-function 'bm-toggle)
+        # [EVAL IT] (describe-function 'bm-previous)
+        # [EVAL IT] (describe-function 'bm-next)
+        'm' => :bm_toggle,  
+        'u' => :bm_toggle,
+        'P' => :bm_previous, 
+        'N' => :bm_next,        
+
+        ## show full index
+        # [EVAL IT] (describe-function 'langhelp-switch-to-index-buffer)
+        'd' => :langhelp_switch_to_index_buffer, 
+
+        ## narrowing
+        # [EVAL IT] (describe-function 'langhelp-toggle-narrowing)
+        '\C-c\C-n' => :langhelp_toggle_narrowing, 
+
+        ## exclude
+        # [EVAL IT] (describe-function 'flush-lines)
+        'V' => :flush_lines_whole_buffer,
+        'G' => :keep_lines_whole_buffer,
+
+}                               # /@KEY_BINDING
+
+
+#### langhelp-occur setup
+## When isearching in langhelp buffer, this key invokes langhelp-occur.
+@isearch_occur_key = '\C-o'
+## Langhelp key binding (global-map) 
+@langhelp_key = '\C-cs'
+## `true' if you want to use `grep' shell command. This is faster.
+@occur_by_grep = true
+## If you do not have `grep' shell command, uncomment this.
+# @occur_by_grep = false
+
+################################################################
+################################################################
+
+@lang = {}                      # DO NOT REMOVE THIS LINE
+@aliases = {}                   # DO NOT REMOVE THIS LINE
+
+# Note that specified file names are expanded internally. So you can
+# write `~/' notation.
+
+#### Directories which contain manpages.
+manpath = %w[ /usr/share/man/ /usr/local/man/ /usr/local/share/man /usr/X11R6/man ]
+
+
+################ Index for shell script ################
+@lang["sh"] = [
+  #### class Info
+  #
+  # Extract lines which match the regexp or function markup from GNU Info format.
+  #
+  # :Info    : Info files (wildcard is also accepted)
+  # :regexp  : All lines which match this regexp are indexed.
+  #            Extract important information if omitted
+  # :title   : Title of this section (common among all classes)
+  # :extract : Which to extract. candidates = [:node, :regexp, :section, :description]
+  #            If you prefer brief index, set :extract attribute.
+  #            By default, extract all of above.
+  #
+
+  ## debian: zsh-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/z/zsh/")
+  {:Info => "/usr/share/info/zsh.info*", :title=>"ZSH Info"},
+  ## debian: bash-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/b/bash/")
+  {:Info => "/usr/share/info/bash.info.gz", :title=>"Bash Info"},
+  ## debian: coreutils
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/c/coreutils/")
+  {:Info=>"gnujdoc/coreutils-5.2.1/coreutils-ja.info*", :title=>"Info (Japanese)"},
+  {:Info => "/usr/share/info/coreutils.info.gz", :title=>"GNU Coreutils"},
+
+  {:Info=>"~/.langhelp/gnujdoc/fileutils-4.1/fileutils-ja.info.gz", :title=>"Info (Japanese)"},
+
+  {:Info=>"~/.langhelp/gnujdoc/findutils-4.2.23/find-ja.info.gz", :title=>"Info (Japanese)"},
+
+  {:Info=>"~/.langhelp/gnujdoc/sh-utils-2.0/sh-utils-ja.info.gz", :title=>"Info (Japanese)"},
+  {:Info=>"~/.langhelp/gnujdoc/textutils-2.0/textutils-ja.info.gz", :title=>"Info (Japanese)"},
+
+  ## debian: gettext
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/gettext/")
+#  {:Info => "/usr/share/info/gettext.info.gz", :title=>"GNU `gettext' utilities"},
+  ## debian: id-utils
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/i/id-utils/")
+#  {:Info => "/usr/share/info/id-utils.info.gz", :title=>"ID utilities"},
+
+  ## If you prefer brief index, uncomment those three lines.
+#  {:Info => "/usr/share/info/coreutils.info.gz", :regexp=>/^\d+\.\d+ \`(\w+)\': /, :title=>"GNU Coreutils"},
+#  {:Info => "/usr/share/info/gettext.info.gz", :regexp=>/^[\d\.]+ Invoking the \`(.+)\' Program$/, :title=>"GNU `gettext' utilities"},
+#  {:Info => "/usr/share/info/id-utils.info.gz", :regexp=>/^[\d\.]+ \`(.+)\':/, :title=>"ID utilities"},
+
+  #### class Manpage
+  #
+  # Create manpage index(multiple manpages / not read contents).
+  #
+  # :Manpage : Sections of manpages
+  # :manpath : Directories which contain manpages.
+  # :glob    : List only matched filename [default: *]
+  #
+  #
+  # Create single manpage index(read contents).
+  # :Manpage : command
+  # :section : manpage section
+  # :regexp  : regexp to extract
+  #
+  ## man1, man5, man6, man7, man8
+  {:Manpage => [1,5,6,7,8], :manpath=>manpath, :title=>"Manpages" },
+]
+## shell-mode also uses sh's index
+@aliases["sh"] = [ "shell", "shell-script" ]
+
+
+################ Index for C ################
+@lang["c"] = [
+  #### class RefeC, Ri, Refe, LuaHelp ...
+  #
+  # Call the specific shell command when documentation is shown.
+  #
+  # [Class Symbol] : true means that shell command is called
+  # :cmd           : Shell command cmd is called
+  #
+
+  ## refe is available at here
+  ## [EVAL IT] (browse-url "http://i.loveruby.net/ja/projects/refe/")
+  {:RefeC => true, :cmd=>"refe -e", :title=>"Ruby/C API (Japanese)"},
+  ## debian: glibc-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/glibc/")
+  {:Info => "/usr/share/info/libc.info*", :title=>"The GNU C Library Reference Manual"},
+  ## man2, man3
+  {:Manpage => [2,3], :manpath=>manpath, :title=>"Manpages"},
+]
+
+
+################ Index for Makefile ################
+@lang["makefile"] = [
+  ## debian: make
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/m/make/")
+  {:Info => "/usr/share/info/make.info*", :title=>"GNU Make Info"},
+  ## debian: automake1.9
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/a/automake1.9/")
+  {:Info=>"~/.langhelp/gnujdoc/automake-1.9/automake-ja.info*", :title=>"Info (Japanese)"},
+  {:Info => "/usr/share/info/automake-1.9.info*", :title=>"GNU Automake Info"},
+]
+
+################ Index for Autoconf ################
+@lang["autoconf"] = [
+  {:Info=>"~/.langhelp/gnujdoc/autoconf-2.59/autoconf-ja.info*", :title=>"Info (Japanese)"},
+  ## debian: autoconf-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/non-free/a/autoconf-nonfree/")
+  {:Info => "/usr/share/info/autoconf.info.gz", :title=>"GNU Autoconf Info"},
+  ## debian: autoconf2.13
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/a/autoconf2.13/")
+#  {:Info => "/usr/share/info/autoconf2.13.info.gz", :title=>"GNU Autoconf Info"},
+]
+
+################ Index for C++ ################
+@lang["c++"] = [
+  #### class W3MLink
+  #
+  # Create a hyperlink to an HTML file.
+  #
+  # :W3MLink  : The HTML file to link
+  # :label    : Name of link (can be omitted)
+  # 
+
+  ## debian: stl-manual
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/s/stl-manual/")
+  {:W3MLink => "/usr/share/doc/stl-manual/html/index.html", :label=>"STL Guide", :title=>"Useful links"},
+
+  #### class W3MExtractLinks
+  #
+  # Extract links from an HTML file, and create lh-w3m hyperlinks.
+  #
+  # :W3MExtractLinks       : The HTML file to extract links
+  # :exclude_label         : specify labels which you do not want to be extractd (Hash / Regexp / Array) 
+  # :exclude_url           : specify URLs which you do not want to be extractd (Hash / Regexp / Array) 
+  {:W3MExtractLinks => "/usr/share/doc/stl-manual/html/stl_index.html", :exclude_url=>[/www.sgi.com/, /index.html/], :title=>"STL index"},
+
+  ## debian: libg++2.8.1.3-dev
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/libg/libg++27/")
+  {:Info => "/usr/share/info/libg++.info.gz", :title=>"libg++ Info"},
+]
+
+
+################ Index for Ruby ################
+@lang["ruby"] =        [
+  #### class RubyRefm
+  #
+  # Create index of Ruby Reference Manual in Japanese.
+  #
+  # :RubyRefm : index page or directory.
+  #
+
+  ## available at
+  ## [EVAL IT] (browse-url "http://elbereth-hp.hp.infoseek.co.jp/ruby.html")
+  {:RubyRefm => "~/doc/rubyrefm/", :title=>"Ruby Reference Manual (Japanese)"},
+  ## Ri index
+  {:Ri => true, :title=>"RI"},
+  ## ReFe index (so-called Japanese Ri)
+  ## refe is available at here
+  ## [EVAL IT] (browse-url "http://i.loveruby.net/ja/projects/refe/")
+  {:Refe => true, :cmd=>"refe", :title=>"ReFe (Japanese)"},
+  #### class MoonWolfRubyDoc
+  #
+  # Create index of MoonWolf's RubyDoc format.
+  #
+  {:MoonWolfRubyDoc => "~/ruby/htmlsplit.html", :title=>"HTMLSplit (Japanese)"},
+  #### class RD
+  #
+  # Create index of RD format.
+  #
+  # :exclude : Exclude line or regexp (Array).
+  # 
+  # [EVAL IT] (locate "sys-proctable")
+  {:RD => "~/compile/sys-proctable-0.6.4/doc/linux.rd", :title=>"ProcTable"},
+
+  {:Grep => "~/compile/narray-0.5.7/SPEC.ja", :regexp=>/^(\S.|    \S)/,  :title=>"NArray SPEC"},
+  {:RD=> "~/compile/numru-units-1.5/doc/units.rd", :title=>"units"},
+
+]
+## inferior-ruby-mode (and irbsh) also uses ruby's index.
+@aliases["ruby"] = [ "inferior-ruby" ]
+
+
+################ Index for EmacsLisp ################
+@lang["emacs-lisp" ] = [
+  ## debian: emacs-lisp-intro
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/emacs-lisp-intro/")
+  {:Info => "/usr/share/info/emacs-lisp-intro.info.gz", :title=>"EmacsLisp Intro"},
+
+  {:Info => "/usr/share/info/emacs-21/cl*.gz", :title=>"cl manual"},
+  ## debian: elisp-manual-ja
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/elisp-manual-ja/")
+  {:Info => "/usr/share/info/elisp-ja*", :title=>"EmacsLisp manual (Japanese)"},
+  ## debian: elisp-manual
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/elisp-manual/")
+  #  {:Info => "/usr/share/info/elisp*", :title=>"EmacsLisp manual (English)"},
+  ## debian: emacs-manual-ja
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/emacs-manual-ja/")
+  # {:Info => "/usr/share/info/emacs-ja*", :title=>"Emacs manual (Japanese)"},
+  {:Info=>"~/.langhelp/gnujdoc/emacs-20.6/emacs-ja.info*", :title=>"Info (Japanese)"},
+
+  ## debian: emacs21-common
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/emacs21/")
+  {:Info => "/usr/share/info/emacs-21/emacs*", :title=>"Emacs manual (English)"},
+  ## debian: elib
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/e/elib/")
+  {:Info => "/usr/share/info/elib.info*", :title=>"Elib manual"},
+  ## debian: eieio
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/c/cedet/")
+  {:Info => "/usr/share/info/eieio.info*", :title=>"EIEIO manual"},
+  ## debian: apel
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/a/apel/")
+  {:Grep => "/usr/share/doc/apel/README.en.gz", :regexp=>/^\*/, :title=>"apel manual"},
+  
+]
+## inferior-emacs-lisp-mode and lisp-interaction-mode also use emacs-lisp's index
+@aliases["emacs-lisp"] = [ "inferior-emacs-lisp", "lisp-interaction" ]
+
+
+################ Index for Perl ################
+@lang["perl"] = [
+  #### class PodSections
+  #
+  # Show all the sections in perl.pod.
+  #
+  # :PodSections  : true   (means that langhelp defuns `lh-podsections')
+  # :perl_pod     : The full path of perl.pod
+  # :cmd          : perldoc command line
+  #
+  # [EVAL IT] (locate "perl.pod")
+
+  ## debian: perl-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/p/perl/")
+  {:PodSections => true, :perl_pod => "/usr/share/perl/5.8.8/pod/perl.pod", :cmd=>"perldoc -t", :title=>"POD Sections"},
+
+  #### class PerlFunc
+  #
+  # Create index of Perl builtin functions.
+  #
+  # :PerlFunc     : true
+  # :perlfunc_pod : The full path of perlfunc.pod
+  # :cmd          : perldoc command line
+  #
+  # [EVAL IT] (locate "perlfunc.pod")
+
+  ## debian: perl-doc
+  {:PerlFunc => true, :perlfunc_pod => "/usr/share/perl/5.8.8/pod/perlfunc.pod", :cmd=>"perldoc -t -f", :title=>"Perl Builtin Functions"},
+
+  #### class PerlDoc
+  #
+  # Create index of Perl modules.
+  #
+  # :PerlDoc      : true
+  # :perl_path    : Perl library path (Array)
+  # :cmd          : perldoc command line
+  #
+  # [EVAL IT] (locate "/usr/share/perl")
+  {:PerlDoc => true, :perl_path => [ "/usr/share/perl/5.8.8", "/usr/share/perl5" ], :cmd=>"perldoc -t", :title=>"Perl Modules"},
+]
+## cperl-mode also uses perl's index.
+@aliases["perl"] = [ "cperl" ]
+
+
+################ Index for PHP ################
+## Directory which contains PHP manual (HTML format)
+php_manual_dir = "~/compile/phpdoc/"
+@lang["php"] = [
+  #### class PHPManual
+  #
+  # Create index of PHP Manual whose format is HTML.
+  #
+  # :PHPManual  : Directory which contains PHP manual.
+  # :glob       : Process only files which match the glob.
+  #
+  # [EVAL IT] (locate "control-structures")
+
+  ## debian: phpdoc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/non-free/p/phpdoc/")
+  {:PHPManual => php_manual_dir, :glob=>"function.*", :title=>"Function Reference"},
+  {:PHPManual => php_manual_dir, :glob=>"class.*", :title=>"Class Reference"},
+  {:PHPManual => php_manual_dir, :glob=>"control-structures.*", :title=>"Control Structure Reference"},
+]
+
+
+################ Index for Scheme ################
+@lang["scheme"] =      [
+  ## debian: gauche-doc
+  ## [EVAL IT] (locate "gauche-ref")
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/gauche/")
+  {:Info => "/usr/share/info/gauche-refj.info*.gz", :title=>"Info (Japanese)"},
+  {:Info => "/usr/share/info/gauche-refe.info*.gz", :title=>"Info (English)"},
+
+  ## debian: guile-1.6-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/guile-1.6/")
+  {:Info => "/usr/share/info/guile.info*", :title=>"Guile Info"},
+  {:Info => "/usr/share/info/guile-tut.info*", :title=>"Guile Tutorial"},
+  {:Info => "/usr/share/info/goops.info*", :title=>"GOOPS Info"},
+
+
+  ## R5RS documents
+  ## debian: r5rs-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/r/r5rs-doc/")
+  {:Info => "/usr/share/info/r5rs.info*.gz", :title=>"R5RS Info"},
+
+  #### class HTML
+  #
+  # Extract HeadLines (Content of H1 .. H6 element) and DescListItems
+  # (Content of DT element) of HTML format. This class handles many
+  # logically marked-up HTMLs. For poorly marked-up HTMLs, use W3MGrep
+  # class instead or write your own class.
+  # 
+  # :HTML      : The HTML file. (allows multiple HTMLs using glob) 
+  # :noconv    : If true, disable charset conversion.
+  # :recursive : Recursive indexing. 
+  #              if `:next', follow the next page specified by LINK element. 
+  # 
+  ## SRFI documents
+  # To download all SRFI documents, issue:
+  #   cd ~/doc; srfi-get.rb
+  # If you want to read Japanese SRFI documents(partial), issue:
+  #   srfi-ja-get.rb
+  {:HTML => "~/doc/srfi-*.html", :title=>"SRFI"},
+
+  #### class Grep
+  #
+  # Extract lines which match the regexp. This class is for plain text.
+  # This class is general purpose.
+  #
+  # :Grep    : The input file.
+  # :regexp  : The regexp to extract.
+  # :exclude : Exclude line or regexp (Array).
+  #
+  # Older definition is deprecated.
+  # :Grep    : The regexp to extract.
+  # :src     : The input file.
+  # :exclude : Exclude line or regexp (Array).
+  #
+  # [EVAL IT] (locate "gaunit")
+
+  ## GaUnit  is available here
+  ## [EVAL IT] (browse-url "http://www.cozmixng.org/~kou/gauche/gaunit.html.en")
+  {:Grep => "~/compile/gaunit-0.1.1/README.ja", :regexp=>%r!^---|^:!, :title=>"GaUnit (Japanese)"},
+  {:Grep => "~/compile/gaunit-0.1.1/README.en", :regexp=>%r!^---|^:!, :title=>"GaUnit (English)"},
+]
+## Index for Scheme is the same as gauche's one.
+@aliases["scheme"] = ["inferior-gauche"]
+@aliases["scheme"] << "gauche"
+@aliases["scheme"] << "guile"
+
+
+################ Index for ratpoisonrc  ################
+# ratpoisonrc is configuration file for ratpoison window manager.
+@lang["ratpoisonrc"] = [
+  ## [EVAL IT] (locate "ratpoison.info.gz")
+  ## debian: ratpoison
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/r/ratpoison/")
+#  {:Info => "/usr/share/info/ratpoison.info.gz", :title=>"Info"},
+  {:Info => "~/compile/ratpoison-1.4.0/doc/ratpoison.info", :title=>"Info"},
+]
+
+
+################ Index for screenrc  ################
+# screenrc is configuration file for GNU Screen.
+@lang["screenrc"] = [
+  # [EVAL IT] (locate "screen.info.gz")
+  ## debian: screen
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/s/screen/")
+#  {:Info => "/usr/share/info/screen.info*", :title=>"Info"},
+  {:Info => "~/src/screen-4.0.2/doc/screen.info*", :title=>"Info"},
+]
+
+
+################ Index for EmacsRuby ################
+@lang["el4r"] = [
+  # *langhelp:el4r* == *langhelp:ruby* + *langhelp:emacs-lisp*
+  @lang["ruby"],
+  @lang["emacs-lisp"],
+]
+
+
+
+################ Index for Python ################
+@lang["python"] = [
+  ## debian: python2.1-doc
+  ## debian: python2.2-doc
+  ## debian: python2.3-doc
+  ## debian: python2.4-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/p/python2.4/")
+  {:Info => "/usr/share/info/python2.4-ref.info*", :title=>"Python Reference Manual"},
+  {:Info => "/usr/share/info/python2.4-lib.info*", :title=>"Python Library Reference"},
+  {:Info => "/usr/share/info/python2.4-tut.info*", :title=>"Python Tutorial"},
+  {:Info => "/usr/share/info/python2.4-mac.info*", :title=>"Macintosh Library Modules"},
+  {:Info => "/usr/share/info/python2.4-ext.info*", :title=>"Extending and Embedding the Python Interpreter"},
+  {:Info => "/usr/share/info/python2.4-dist.info*", :title=>"Distributing Python Modules"},
+  {:Info => "/usr/share/info/python2.4-api.info*", :title=>"Python/C API Reference Manual"},
+
+
+  #### class PythonLib
+  #
+  # Create index of Python Manual whose format is HTML.
+  #
+  # :PythonLib  : The index page.
+  #
+  # [EVAL IT] (locate "genindex.html")
+  # {:PythonLib => "~/src/Python-Docs-2.4/lib/genindex.html", :title=>"Python reference (HTML)"},
+]
+
+################ Index for Lua ################
+@lang["lua"] = [
+  #### luahelp
+  {:LuaHelp => true, :cmd=>"luahelp", :title=>"LuaHelp"},
+  #### lunit (Testing framework)
+  # [EVAL IT] (locate "lunit-")
+  {:Grep => "~/compile/lunit-0.3alpha/DOCUMENTATION", :regexp=>%r/^\tlunit\./, :title=>"lunit"},
+]
+
+################ Index for Graphviz ################
+@lang["graphviz-dot"] = [
+  #### class W3MGrep
+  #
+  # Extract lines which match the regexp. This class is for HTML.
+  # Beware that W3M-DUMPED TEXT is grepped.
+  # This class is general purpose.
+  #
+  # :W3MGrep  : The input file.
+  # :regexp   : The regexp to extract.
+  # :exclude  : Exclude line or regexp (Array).
+  #
+  # Older definition is deprecated
+  # :W3MGrep  : The regexp to extract.
+  # :src      : The input file.
+  # :exclude  : Exclude line or regexp (Array).
+  #
+  # [EVAL IT] (locate "graphviz")
+  # [EVAL IT] (locate "attrs.html")
+
+  ## debian: graphviz
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/graphviz/")
+  {:W3MGrep => "/usr/share/doc/graphviz/html/info/attrs.html", :regexp=>/^\w+$/, :title=>"Graph Attributes"},
+  {:W3MGrep => "/usr/share/doc/graphviz/html/FAQ.html", :regexp=>/^(Q\.|=+)/, :title=>"FAQ"},
+
+  {:HTML=>"/usr/share/doc/graphviz/html/info/lang.html", :title=>"The DOT Language"},
+  {:HTML=>"/usr/share/doc/graphviz/html/info/command.html", :title=>"Command-line usage"},
+  {:HTML=>"/usr/share/doc/graphviz/html/info/output.html", :title=>"Output Formats"},
+  {:HTML=>"/usr/share/doc/graphviz/html/info/shapes.html", :title=>"Node Shapes"},
+  {:HTML=>"/usr/share/doc/graphviz/html/info/colors.html", :title=>"Colors"},
+]
+
+################ Index for Octave ################
+# [EVAL IT] (shell-command "apt-cache search octave")
+# [EVAL IT] (list-directory "/usr/share/info")
+@lang["octave"] = [
+  ## debian: octave2.9-info
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/o/octave2.9/")
+  {:Info => "/usr/share/info/octave2.9.info*", :title => "Octave info" },
+  {:Info => "/usr/share/info/Octave2.9-FAQ.info.gz", :title => "Octave FAQ info" },
+  {:Info => "/usr/share/info/liboctave2.9.info.gz", :title => "liboctave info" },
+
+  ## older octave
+  ## debian: octave2.1-info
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/o/octave2.1/")
+#  {:Info => "/usr/share/info/octave2.1.info*", :title => "Octave info" },
+#  {:Info => "/usr/share/info/Octave2.1-FAQ.info.gz", :title => "Octave FAQ info" },
+#  {:Info => "/usr/share/info/liboctave2.1.info.gz", :title => "liboctave info" },
+]
+@aliases["octave"] = [ "inferior-octave" ]
+
+################ Index for LaTeX ################
+# [EVAL IT] (locate "latex.info.gz")
+# [EVAL IT] (locate "kpathsea.info.gz")
+# [EVAL IT] (locate "web2c.info.gz")
+# [EVAL IT] (locate "dvips.info.gz")
+@lang["latex"] = [
+  ## debian: tetex-bin
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/t/tetex-bin/")
+  {:Info => "~/info/latex.info*", :title=>"LaTeX Info"},
+  {:Info => "~/info/kpathsea.info.gz", :title=>"Kpathsea Info"},
+  {:Info => "~/info/web2c.info*", :title=>"Web2c Info"},
+  {:Info => "~/info/dvips.info*", :title=>"Dvips Info"},
+]
+@aliases["latex"] = [ "yatex", "auctex" ]
+
+################ Index for Awk ################
+# [EVAL IT] (locate "awk.info.gz")
+@lang["awk"] = [
+  ## debian: gawk
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/gawk/")
+  {:Info => "/usr/share/info/gawk.info.gz", :title=>"GNU Awk Info"},
+  {:Info => "/usr/share/info/gawkinet.info.gz", :title=>"TCP/IP Internetworking With `gawk' Info"},
+]
+
+################ Index for sed ################
+# [EVAL IT] (locate "sed.info.gz")
+@lang["sed"] = [
+  {:Info=>"~/.langhelp/gnujdoc/sed-4.1.2/sed-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: sed
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/s/sed/")
+  {:Info => "/usr/share/info/sed.info.gz", :title=>"GNU sed Info"},
+]
+
+################ Index for m4 ################
+@lang["m4"] = [
+  {:Info=>"~/.langhelp/gnujdoc/m4-1.4/m4-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: m4
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/m/m4/")
+  {:Info => "/usr/share/info/m4.info.gz", :title=>"GNU m4 Info"},
+]
+
+################ Index for Tcl ################
+@lang["tcl"] = [
+  ## debian: tcl8.0-doc
+  ## debian: tcl8.3-doc
+  ## debian: tcl8.4-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/t/tcl8.4/")
+  {:Manpage => [3], :manpath=>manpath, :glob=>"*.3tcl*", :title=>"Tcl Manpages"},
+]
+
+################ Index for wget ################
+@lang["wget"] = [
+  {:Info => "~/.langhelp/gnujdoc/wget-1.10/wget-ja.info.gz", :title=>"GNU Wget Info (Japanese)"},
+  {:Info => "/usr/share/info/wget.info.gz", :title=>"GNU Wget Info"},
+]
+
+################ Index for binutils ################
+@lang["binutils"] = [
+  {:Info=>"~/.langhelp/gnujdoc/binutils-2.16.1/binutils-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: binutils-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/b/binutils/")
+  {:Info=>"/usr/share/info/as.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/bfd.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/binutils.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/gprof.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/ld.info.gz", :title=>"Info"},
+]
+
+################ Index for diff ################
+@lang["diff"] = [
+  {:Info=>"~/.langhelp/gnujdoc/diffutils-2.8.1/diff-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: diff-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/d/diff-doc/")
+  {:Info=>"/usr/share/info/diff.info.gz", :title=>"Info"},
+]
+################ Index for flex ################
+@lang["flex"] = [
+  {:Info=>"~/.langhelp/gnujdoc/flex-2.5.4/flex-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: flex
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/f/flex/")
+  {:Info=>"/usr/share/info/flex.info.gz", :title=>"Info"},
+]
+################ Index for gengetopt ################
+@lang["gengetopt"] = [
+  {:Info=>"~/.langhelp/gnujdoc/gengetopt-2.14/gengetopt-ja.info.gz", :title=>"Info (Japanese)"},
+]
+################ Index for grep ################
+@lang["grep"] = [
+  {:Info=>"~/.langhelp/gnujdoc/grep-2.5/grep-ja.info.gz", :title=>"Info (Japanese)"},
+]
+################ Index for gzip ################
+@lang["gzip"] = [
+  {:Info=>"~/.langhelp/gnujdoc/gzip-1.2.4/gzip-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: gzip
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/gzip/")
+  {:Info=>"/usr/share/info/gzip.info.gz", :title=>"Info"},
+]
+################ Index for hurd ################
+@lang["hurd"] = [
+  {:Info=>"~/.langhelp/gnujdoc/hurd-0.2/hurd-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: hurd-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/h/hurd/")
+  {:Info=>"/usr/share/info/hurd.info.gz", :title=>"Info"},
+
+]
+################ Index for libtool ################
+@lang["libtool"] = [
+  {:Info=>"~/.langhelp/gnujdoc/libtool-1.5/libtool-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: libtool-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/libt/libtool/")
+  {:Info=>"/usr/share/info/libtool.info.gz", :title=>"Info"},
+]
+################ Index for standards ################
+@lang["standards"] = [
+  {:Info=>"~/.langhelp/gnujdoc/standards-19981118/standards-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: gnu-standards
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/non-free/g/gnu-standards/")
+  {:Info=>"/usr/share/info/standards.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/maintain.info.gz", :title=>"Info"},
+]
+################ Index for texinfo ################
+@lang["texinfo"] = [
+  {:Info=>"~/.langhelp/gnujdoc/texinfo-4.3/info-ja.info.gz", :title=>"Info (Japanese)"},
+  {:Info=>"~/.langhelp/gnujdoc/texinfo-4.3/info-stnd-ja.info.gz", :title=>"Info (Japanese)"},
+  {:Info=>"~/.langhelp/gnujdoc/texinfo-4.3/texinfo-ja.info*", :title=>"Info (Japanese)"},
+  ## debian: info
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/t/texinfo/")
+  {:Info=>"/usr/share/info/info.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/info-stnd.info.gz", :title=>"Info"},
+]
+
+
+################ Index for gdb ################
+@lang["gdb"] = [
+  {:Info=>"~/.langhelp/gnujdoc/gdb-4.18/gdb-ja.info*", :title=>"Info (Japanese)"},
+  ## debian: gdb
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/g/gdb/")
+  {:Info=>"/usr/share/info/gdb.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/gdbinit.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/stabs.info.gz", :title=>"Info"},
+]
+################ Index for cvs ################
+@lang["cvs"] = [
+  ## debian: cvsbook-ja
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/j/j-cvsbook/")
+  {:Info=>"/usr/share/info/j-cvsbook.info*", :title=>"CVS book (Japanese)"},
+  ## debian: cvsbook
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/c/cvsbook/")
+  {:Info=>"/usr/share/info/cvsbook.info*", :title=>"CVS book"},
+
+  {:Info=>"~/.langhelp/gnujdoc/cvs-1.11/cvs-ja.info*", :title=>"Info (Japanese)"},
+  ## debian: cvs
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/c/cvs/")
+  {:Info=>"/usr/share/info/cvs.info.gz", :title=>"Info"},
+  {:Info=>"/usr/share/info/cvsclient.info.gz", :title=>"Info"},
+
+]
+################ Index for bison ################
+@lang["bison"] = [
+  {:Info=>"~/.langhelp/gnujdoc/bison-1.28/bison-ja.info.gz", :title=>"Info (Japanese)"},
+  ## debian: bison-doc
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/main/b/bison/")
+  {:Info=>"/usr/share/info/bison.info.gz", :title=>"Info"},
+]
+
+################ Index for svn ################
+#
+### How to get Japanese subversion book.
+# 
+# cd ~/.langhelp
+# wget -r -l1 -p -k http://subversion.bluegate.org/doc/index.html
+# 
+### How to get English subversion book.
+#
+# cd ~/.langhelp
+# wget -r -l1 -p -k http://svnbook.red-bean.com/en/1.0/
+# 
+@lang["svn"] = [
+  {:HTML=>"~/.langhelp/subversion.bluegate.org/doc/pr01.html", :recursive=>:next, :title=>"subversion book (Japanese)"},
+  {:HTML=>"~/.langhelp/svnbook.red-bean.com/en/1.0/pr01.html", :recursive=>:next, :title=>"subversion book"},
+]
+@aliases["svn"] = ["svn-status"]
+
+
+################ Index for HTML ################
+#### How to get Japanese Recommendations of the W3
+# 
+# cd ~/.langhelp
+# wget -r -l1 -p -k http://www.asahi-net.or.jp/%7Esd5a-ucd/rec-html401j/cover.html http://www.doraneko.org/webauth/xhtml11/20010531/Overview.html http://www.doraneko.org/webauth/xhtmlbasic/20001219/Overview.html http://www.doraneko.org/webauth/css1/19961217/Overview.html
+# 
+@lang["html"] = [
+  {:HTML=>"~/.langhelp/www.asahi-net.or.jp/~sd5a-ucd/rec-html401j/cover.html", :recursive=>:next, :title=>"HTML 4.01 Specification (Japanese)"},
+  {:HTML=>"~/.langhelp/www.doraneko.org/webauth/xhtml11/20010531/Overview.html", :recursive=>:next, :title=>"XHTML 1.1 - Module-based XHTML (Japanese)"},
+  {:HTML=>"~/.langhelp/www.doraneko.org/webauth/xhtmlbasic/20001219/Overview.html", :title=>"XHTML Basic (Japanese)"},
+  {:HTML=>"~/.langhelp/www.doraneko.org/webauth/css1/19961217/Overview.html", :title=>"Cascading Style Sheets, level 1 (Japanese)"},
+
+
+  ## debian: w3-recs
+  ## [EVAL IT] (browse-url "http://ftp.debian.or.jp/debian/pool/non-free/w/w3-recs/")
+  {:HTML=>"/usr/share/doc/w3-recs/RECS/html4/cover.html", :recursive=>:next, :title=>"HTML 4.01 Specification"},
+  {:HTML=>"/usr/share/doc/w3-recs/RECS/xhtml1-20020801/Cover.html", :recursive=>:next, :title=>"XHTML 1.0 The Extensible HyperText Markup Language (Second Edition)"},
+  {:HTML=>"/usr/share/doc/w3-recs/RECS/xhtml11-20010531/xhtml11.html", :recursive=>:next, :title=>"XHTML 1.1 - Module-based XHTML"},
+  {:HTML=>"/usr/share/doc/w3-recs/RECS/REC-CSS1-19990111.html", :title=>"Cascading Style Sheets, level 1"},
+  {:HTML=>"/usr/share/doc/w3-recs/RECS/css2/cover.html", :recursive=>:next, :title=>"Cascading Style Sheets, Level 2"},
+
+]
+@aliases["html"] = ["yahtml", "css"]
+
+
+################ Index for GLOBAL ################
+@lang["global"] = [
+  {:Info=>"/usr/share/info/global.info.gz", :title=>"Info"},
+]
+
+################ Index for id-utils ################
+@lang["id-utils"] = [
+  {:Info => "/usr/share/info/id-utils.info.gz", :title=>"ID utilities"},
+]
+
+################ Index for sgrep ################
+@lang["sgrep"] = [
+  {:Manpage=>"sgrep", :section=>1, :regexp=>/^       v\(/, :title=>"manpage"},
+  {:Grep=>"/usr/share/doc/sgrep/README.gz", :regexp=>/^\*/, :title=>"readme"},
+]
+
+#### ~/.langhelp/config2 is the private config file. (not mandatory) 
+config2 = "#{@LANGHELP_HOME}/config2"
+if File.file? config2
+  eval File.read(config2)
+end
+
+# Local Variables:
+# ee-anchor-format: "################ %s ################"
+# End: