langhelp 0.9.8

data/test/a_classes.lst

@@ -0,0 +1,2 @@
+A
+B

data/test/a_methods.lst

@@ -0,0 +1,2 @@
+A#foo
+B.bar

data/test/b_classes.lst

@@ -0,0 +1,2 @@
+B
+C

data/test/b_methods.lst

@@ -0,0 +1,2 @@
+B.bar
+C#baz

data/test/c_methods.lst

@@ -0,0 +1,4 @@
+A
+B
+A#foo
+B.bar

data/test/common.rb

@@ -0,0 +1,15 @@
+module CheckLink
+  def check_link(str)
+    s = ""
+    @x.to_e s
+    assert_equal str, s
+  end
+
+  def check_link_include?(str)
+    s = ""
+    @x.to_e s
+    links = s.split(/\n/)
+    assert( links.include?(str), s )
+  end
+end
+

data/test/d_methods.lst

@@ -0,0 +1,4 @@
+B
+C
+B.bar
+C#baz

data/test/langhelp.e

@@ -0,0 +1,566 @@
+#######
+#
+# E-scripts about langhelp.
+#
+#######
+
+# (eeindex)
+## INDEX
+## (to "test-flash")
+## (to "test-lh-sh")
+## (to "test-lh-ri")
+## (to "test-w3m-batch:automated")
+## (to "test-langhelp-narg:automated")
+## (to "test-langhelp-index:automated")
+## (to "test-mklanghelp-error")
+## (to "test-occur:automated")
+## (to "test-eval-after-load-and-gc")
+## (to "test-revert")
+## (to "test-face")
+## (to "test-init-script")
+## (to "test-info:automated")
+## (to "test-w3m:automated")
+## (to "test-w3m-name-anchor:automated")
+## (to "w3m-test-eesteps")
+## (to "%s")
+
+################
+# test-flash
+emacs=xemacs-nw
+emacs=emacs-nw
+emacs=emacs
+emacs=emacs21
+emacs=emacs21-nw
+ (eevnow-at ".test-flash")
+ (eech-kill-emacs)
+
+#
+# .test-flash
+<<'%%%' > $EERUBY
+el4r_process_autoloads
+if featurep :xemacs
+  el_require :overlay
+end  
+
+el4r_lisp_eval %(
+(let ((langhelp-flash t)
+      (langhelp-centerint t))
+ (lh-anchor "HTMLSplit#each"	"~/.langhelp/_home_rubikitch_ruby_htmlsplit_html.txt")
+))
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY --emacs=$emacs
+
+#
+
+
+################
+# test-lh-sh
+emacs=xemacs-nw
+emacs=emacs-nw
+ (eevnow-at ".test-lh-sh")
+ (eech-kill-emacs)
+
+#
+# .test-lh-sh
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_load "langhelp.rb"
+#elvar.ee_anchor_format = "<<%s>>"
+lh = LangHelp::LangHelp.run
+lh_refe "IO#print"
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY --emacs=$emacs
+
+#
+
+################
+# test-lh-ri
+emacs=xemacs-nw
+emacs=emacs-nw
+emacs=emacs21-nw
+ (eevnow-at ".test-lh-ri")
+!
+ (eech-M-x "search-forward" "Kernel#print")
+ (eech "l")
+ (eech "l")
+:(current-buffer)
+ (eech-kill-emacs)
+
+#
+# .test-lh-ri
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el_load "ri-ruby"
+el4r_lisp_eval %((setq ri-ruby-script "/home/rubikitch/bin/ri-emacs.rb"))
+el4r_load "langhelp.rb"
+#elvar.ee_anchor_format = "<<%s>>"
+lh = LangHelp::LangHelp.run
+lh_language_index "ruby"
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY --emacs=$emacs
+
+#
+
+
+
+################
+# test-w3m-batch:automated 
+ (eevnow-at ".test-w3m-batch")
+el4r -I ~/emacs/init.d -I /usr/local/share/emacs/site-lisp/w3m/ $EERUBY
+ (eech-kill-emacs)
+el4r -I ~/emacs/init.d -I /usr/local/share/emacs/site-lisp/w3m/ $EERUBY -b
+
+
+#
+# .test-w3m-batch
+# (eevnow-bounded)
+<<'%%%' > $EERUBY
+el_load "00init" # advice for `abbreviate-file-name'
+defun(:w3m_buffers) do 
+  w3m_list_buffers.map{|b|
+    with(:with_current_buffer,b){ elvar.w3m_current_url}
+  }
+end
+
+
+el4r_process_autoloads
+lh_w3m "Initial release", "file:///home/rubikitch/src/langhelp/langhelp.en.html"
+other_window 1
+ppm 'thing_at_point :line'
+%%%
+#
+
+
+
+################
+# test-langhelp-narg:automated 
+# (view-fline "/log/el4rlog")
+ (eevnow-at ".test-langhelp-narg")
+ (eech "\C-u\C-csruby\C-f")
+ (eech "\C-c\C-c")
+ (eech-kill-emacs)
+
+
+
+#
+# .test-langhelp-narg
+# (eevnow-bounded)
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_load "langhelp.rb"
+lh = LangHelp::LangHelp.run
+lh.conf
+
+el_require :ruby_mode
+find_file "~/src/langhelp/lib/langhelp/langhelp-base.rb"
+ruby_mode
+self.el4r_is_debug = true
+# langhelp
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY
+#
+
+################
+# test-langhelp-index:automated 
+# (view-fline "/log/el4rlog")
+ (eevnow-at ".test-langhelp-index")
+
+ (eech-M-x "el4r-boot")
+ (eech-kill-emacs)
+
+
+
+#
+# .test-langhelp-index
+# (eevnow-bounded)
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_load "langhelp.rb"
+lh = LangHelp::LangHelp.run
+lh.conf
+switch_to_buffer "*langhelp index*"
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY --emacs=$emacs
+#
+
+
+
+################
+# test-mklanghelp-error
+ (eevnow-at ".test-mklanghelp-error")
+setup-home
+mklanghelp-in-src --all |& tee /log/mklanghelp.log
+ls -l ~/.langhelp | result-long
+v /log/mklanghelp.log
+v ~/.langhelp/ruby.e
+v ~/.langhelp/el4r.e
+restore-home
+
+setup-home
+mklanghelp-in-src ruby 
+v ~/.langhelp/ruby.e
+restore-home
+
+setup-home
+set-config-ruby
+# v ~/.langhelp/config
+mklanghelp-in-src --all
+ls -l ~/.langhelp/
+rm ~/.langhelp/*.lst
+mklanghelp-in-src --all
+mklanghelp-in-src --all
+restore-home
+
+#
+# .test-mklanghelp-error
+cd ~/src/langhelp
+
+mklanghelp-in-src () {
+ruby -I $oldhome/src/langhelp/lib $oldhome/src/langhelp/bin/mklanghelp $*
+}
+
+pseudo-home () {
+tmpdir
+oldhome=$HOME
+export HOME=`pwd`
+}
+
+set-config-ruby () {
+cat  <<%%% | cat /home/rubikitch/src/langhelp/data/langhelp/config.sample - > ~/.langhelp/config
+@lang = {}
+@lang["ruby"] =        [
+  {:RubyRefm => "~/doc/rubyrefm/refm482.html", :title=>"Ruby Reference Manual (Japanese)"},
+  {:Ri => true, :title=>"RI"},
+  {:Refe => true, :title=>"ReFe"},
+  {:MoonWolfRubyDoc => "~/ruby/htmlsplit.html", :title=>"HTMLSplit (Japanese)"},
+  {:RD => "~/compile/sys-proctable-0.6.4/doc/linux.rd", :title=>"ProcTable"},
+]
+%%%
+}
+setup-home () {
+pseudo-home
+mkdir -p ~/.langhelp
+cp /home/rubikitch/src/langhelp/data/langhelp/config.sample ~/.langhelp/config
+}
+
+restore-home () {
+export HOME=$oldhome
+tmpdir-clean
+}
+
+
+
+#
+
+################
+# test-occur:automated 
+# (view-fline "/log/el4rlog")
+ (eevnow-at ".test-occur")
+ (eech "help")
+ (eech "\C-o")
+:tab-width
+ (eech "\C-c\C-c")
+ (eech-kill-emacs)
+
+
+
+#
+# .test-occur
+# (eevnow-bounded)
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_load "langhelp.rb"
+lh = LangHelp::LangHelp.run
+lh.conf
+
+el_require :ruby_mode
+find_file "~/src/langhelp/lib/langhelp/langhelp-base.rb"
+ruby_mode
+self.el4r_is_debug = true
+langhelp
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp --emacs=$emacs $EERUBY 
+#
+
+
+
+################
+# test-eval-after-load-and-gc
+# test-revert
+# (view-fline "/log/el4rlog")
+ (eevnow-at ".test-revert")
+ (eech "\C-f")
+:(goto-line 1400)
+ (eech "R")
+ (eech ":(foo)\n")
+ (eech "ximenu\n")
+ (eech "\C-gq")
+ (eech-kill-emacs)
+
+#
+# .test-revert
+# (eevnow-bounded)
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_process_autoloads
+el4r_rubyobj_stock.gc_trigger_count = 60
+el4r_rubyobj_stock.gc_trigger_increment = 2 
+el4r_rubyobj_stock.gc_trigger_increment = 4
+el4r_rubyobj_stock.gc_trigger_increment = 10
+
+module X
+class Foo < ElApp
+  def initialize(x={})
+    do_defun
+  end
+
+  def do_defun
+    defun(:foo, :interactive=>true) do
+      1
+    end
+  end
+end
+end
+X::Foo.new
+
+require 'bell'
+class << el4r_rubyobj_stock
+    def pre_gc_hook
+      message "gc start (#{@oid_to_obj_hash.keys.length})"
+    end
+
+    def post_gc_hook
+      message "gc end (#{count_of_stocked_objects})"
+    end
+end
+
+el_require :ruby_mode
+find_file "~/src/langhelp/lib/langhelp/langhelp-base.rb"
+el_require :imenu
+ruby_mode
+self.el4r_is_debug = true
+el4r_process_autoloads
+langhelp
+%%%
+el4r -r ~/src/el4r -l /log/el4rlog -I ~/emacs/lisp $EERUBY
+#
+
+# (view-file "revert.errorlog")
+
+################
+# test-face
+ (eevnow-at ".test-face")
+ (eech "Shell Emulation")
+ (eech "\C-n")
+ruby.e
+perl.e
+ (eech "autogenerated")
+ (eech-kill-emacs)
+
+:font-lock-keywords
+:(car (nth 1 font-lock-keywords))
+:(re-search-forward (car (nth 1 font-lock-keywords)) nil t)
+xfont-lock-fontify-buffer
+
+xlist-faces-display
+
+ (eevnow-at ".test-face")
+xfundamental-mode
+xlanghelp-menu-mode
+:langhelp-sexp-face
+:font-lock-keywords
+:(turn-on-font-lock)
+xfont-lock-fontify-buffer
+:(with-current-buffer "*scratch*" font-lock-keywords)
+:langhelp-font-lock-keywords
+:(setq font-lock-keywords langhelp-font-lock-keywords)
+xkill-emacs
+
+
+#
+# .test-face
+# (eevnow-bounded)
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+el4r_process_autoloads
+find_file "~/.langhelp/sh.e"
+%%%
+el4r $EERUBY
+#
+
+
+################
+# test-init-script
+# This is integrated into test/test-command.rb
+ (eevnow-at ".test-init-script")
+mklanghelp --init-script=$EERUBY ratpoisonrc
+mklanghelp --init-script=$EERUBY -f ratpoisonrc 
+
+#
+# .test-init-script
+cd ~/src/langhelp/
+<<'%%%' > $EERUBY
+require 'bell-result'
+result "init.rb loaded"
+%%%
+#
+
+
+################
+# test-info:automated 
+## LangHelpByInfo ��ʤ�����LangHelp������
+ (eevnow-at ".test-info")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+ (eech "l")
+:(current-buffer)
+xkill-emacs
+
+# show error log
+ (eech "\exel4r-show-log\n")
+
+#
+# .test-info
+# (eevnow-bounded)
+<<'%%%' > $EERUBY
+el4r_process_autoloads
+find_file "~/.langhelp/ratpoisonrc.e"
+split_window
+#elvar.same_window_buffer_names = nil
+search_forward "windows"
+%%%
+el4r $EERUBY
+#
+
+################
+## test-w3m:automated 
+ (eevnow-at ".test-w3m")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+ (eech "l")
+:(w3m-buffers)
+xkill-emacs
+
+ (eevnow-at ".test-w3m")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+:(kill-buffer "*w3m*")
+ (eech "\C-scommand.html\C-f")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+ (eech "l")
+ (eech "\e<jjjjl")
+xkill-emacs
+
+ (eevnow-at ".test-w3m")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+:(kill-buffer "*w3m*")
+ (eech "l")
+ (eech "l")
+ (eech "l")
+xkill-emacs
+
+
+
+# show error log
+ (eech "\exel4r-show-log\n")
+
+#
+# .test-w3m
+# (eevnow-bounded)
+<<'%%%' > $EERUBY
+toggle_debug_on_error
+el_load "00init" # advice for `abbreviate-file-name'
+
+
+defun(:w3m_buffers) do 
+  w3m_list_buffers.map{|b|
+    with(:with_current_buffer,b){ elvar.w3m_current_url}
+  }
+end
+
+
+el4r_process_autoloads
+find_file "~/.langhelp/graphviz-dot.e"
+split_window
+search_forward "len"
+%%%
+el4r --emacs=$emacs -I ~/emacs/init.d -I /usr/local/share/emacs/site-lisp/w3m/ $EERUBY
+#el4r -Q $EERUBY
+#
+
+## test-w3m-name-anchor:automated 
+ (eevnow-at ".test-w3m-name-anchor")
+ (eech "l")
+ (eech "j")
+ (eech "l")
+ (eech "l")
+:(w3m-buffers)
+ (eech "\C-xo")
+ (eech "\exw3m-search-name-anchor\nlabel:6\n")
+ (eech "\exw3m-search-name-anchor\nlabel:7\n")
+ (eech-kill-emacs)
+
+# show error log
+ (eech "\exel4r-show-log\n")
+
+#
+# .test-w3m-name-anchor
+# (eevnow-bounded)
+<<'%%%' > $EERUBY
+el_load "00init" # advice for `abbreviate-file-name'
+defun(:w3m_buffers) do 
+  w3m_list_buffers.map{|b|
+    with(:with_current_buffer,b){ elvar.w3m_current_url}
+  }
+end
+el4r_process_autoloads
+switch_to_buffer "*scratch*"
+insert <<XXX
+# (lh-w3m nil "file:///home/rubikitch/src/langhelp/langhelp.en.html#label:6")
+# (lh-w3m nil "file:///home/rubikitch/src/langhelp/langhelp.en.html#label:7")
+XXX
+split_window
+goto_char 1
+langhelp_menu_mode
+#el_require :w3m
+%%%
+el4r -I ~/emacs/init.d -I /usr/local/share/emacs/site-lisp/w3m/ $EERUBY
+#el4r -Q $EERUBY
+#
+
+
+################
+# w3m-test-eesteps
+
+#
+# (eeb-el4r)
+defun(:w3m_buffers) do 
+  w3m_list_buffers.map{|b|
+    with(:with_current_buffer,b){ elvar.w3m_current_url}
+  }
+end
+
+eesteps [
+ "<<find-file>> ~/.langhelp/graphviz-dot.e RET",
+ "<<goto-line>> 10 RET",
+ "j",
+ "l",
+ "l",
+ "l",
+ [:p, [:w3m_buffers]],
+]
+
+#
+
+
+Local Variables:
+truncate-lines: t
+ee-anchor-format: "%s"
+End: