gonzui-emacs 0.3

data/bin/gonzui-db-emacs.rb

@@ -0,0 +1,21 @@
+#! /usr/local/bin/ruby
+#  
+#  Copyright (C) 2005 rubikitch <rubikitch@ruby-lang.org>
+#  Version: $Id: gonzui-db-emacs.rb 1077 2005-12-22 14:54:51Z rubikitch $
+
+#  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 'kconv'
+
+GONZUI_DB = "gonzui-db"
+puts `#{GONZUI_DB} -r #{ARGV.join ' '}`.toeuc

data/bin/gonzui-search-emacs.rb

@@ -0,0 +1,121 @@
+#! /usr/local/bin/ruby
+#  
+#  Copyright (C) 2005 rubikitch <rubikitch@ruby-lang.org>
+#  Version: $Id: gonzui-search-emacs.rb 1181 2006-02-05 03:14:03Z rubikitch $
+
+#  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 'kconv'
+$KCODE='e'
+
+class GonzuiSearchEmacs
+
+  GONZUI_SEARCH = ENV['GONZUI_EMACS_SEARCH'] || 'gonzui-search -C3 -n --color'
+  TAB = "\t"
+
+  private
+  def link(path, line)
+    %Q!(lh-gonzui #{line} #{path.inspect})\n!
+  end
+
+  def pkglink(pkg)
+    %Q!(lh-gonzui-pkg #{pkg.inspect})\n!
+  end
+
+  def pathlink(path)
+    %Q!(lh-to #{path.inspect})\n!
+  end
+
+  attr :pathes
+  attr :pkgs
+
+  def output_lines(output, path, lines, at_the_end=false)
+    return unless path
+
+    prev_lineno = nil
+    lines.keys.sort.each do |lineno|
+      line = lines[lineno]
+      output.puts if prev_lineno and prev_lineno != lineno-1 
+      output.puts line
+      prev_lineno = lineno
+    end
+    lines.clear
+    output.puts unless at_the_end
+  end
+
+  public
+
+  def output_body(input, output)
+    path = nil
+    @pathes = []
+    @pkgs = []
+    lines = {}
+    
+    while line=input.gets
+      line.chomp!
+      line.replace line.toeuc
+      case line
+      when /^== (.+)$/
+
+        if $1 != path 
+          # output for previous file
+          output_lines(output, path, lines)
+
+          # update info for new file
+          path = $1
+          @pathes << path
+          @pkgs << path.scan(%r!^[^/]+!).to_s
+
+          output.puts line + " ==" + TAB + link(path, "nil")
+        end
+                    
+      when /^(\d+)(.)/
+        lineno, flag = $1, $2   # flag: ':' => matched / '-' => context
+        lineno = lineno.to_i
+
+        if flag == ':' or !lines[lineno]
+          lines[lineno] = line + TAB + link(path, lineno)
+        end
+      else
+#        output.puts  line
+      end
+    end
+    output_lines(output, path, lines, :at_the_end)
+  end
+
+  def run(argv)
+    pipe = IO.popen("#{GONZUI_SEARCH} #{ARGV.join ' '}")
+    output = $>
+
+    output_body(pipe, output)
+
+    pkg_index = pkgs.uniq.map {|pkg|
+      pkg + TAB + pkglink(pkg)
+    }
+
+    path_index = pathes.map {|path|
+      path + TAB + pathlink(path)
+    }
+
+    puts "== Package Index =="
+    puts pkg_index
+    puts
+    puts "== Path Index =="
+    puts path_index
+  end
+
+end
+
+if __FILE__==$0
+  GonzuiSearchEmacs.new.run ARGV
+end

data/files

@@ -0,0 +1,17 @@
+baz-display.jpg
+baz.jpg
+bin/gonzui-db-emacs.rb
+bin/gonzui-search-emacs.rb
+files
+gonzui-emacs.en.html
+gonzui-emacs.en.rd
+gonzui-emacs.ja.html
+gonzui-emacs.ja.rd
+lib/el4r/emacsruby/autoload/55gonzui-emacs.rb
+lib/el4r/emacsruby/gonzui-emacs.rb
+setup.rb
+test/gonzui-emacs-sub.rb
+test/gonzui-emacs.e
+test/input
+test/output.compressed
+test/test.rb

data/gonzui-emacs.en.html

@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="iso-2022-jp" ?>
+<!DOCTYPE html 
+  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
+<head>
+<title>Gonzui for Emacs</title>
+<meta http-equiv="Content-type" content="text/html; charset=iso-2022-jp" />
+<!-- head-element:nil -->
+</head>
+<body>
+<h2>Index</h2>
+
+<ul>
+<li><p><a href="#label:1">What's new</a></p>
+<ul>
+<li><a href="#label:2">[2006/02/05] 0.3 released</a></li>
+<li><a href="#label:3">[2005/12/25] 0.2 released</a></li>
+<li><a href="#label:4">[2005/12/23] 0.1 released</a></li>
+</ul></li>
+<li><a href="#label:5">Abstract</a></li>
+<li><a href="#label:6">Screenshots</a></li>
+<li><a href="#label:7">Environment</a></li>
+<li><a href="#label:8">Install</a></li>
+<li><a href="#label:9">Usage</a></li>
+<li><a href="#label:10">License</a></li>
+</ul>
+<hr />
+
+<h1><a name="Title:" href="#Title:">Title:</a> <a name="label:0">Gonzui for Emacs</a></h1><!-- RDLabel: "Gonzui for Emacs" -->
+
+<h2><a name="1" href="#1">1</a> <a name="label:1">What's new</a></h2><!-- RDLabel: "What's new" -->
+
+<h3><a name="1.1" href="#1.1">1.1</a> <a name="label:2">[2006/02/05] 0.3 released</a></h3><!-- RDLabel: "[2006/02/05] 0.3 released" -->
+
+<ul>
+<li>Compact output.</li>
+</ul>
+<h3><a name="1.2" href="#1.2">1.2</a> <a name="label:3">[2005/12/25] 0.2 released</a></h3><!-- RDLabel: "[2005/12/25] 0.2 released" -->
+
+<ul>
+<li>Asynchronous. You do not have to wait until search process exits.</li>
+<li>Use color.</li>
+</ul>
+<h3><a name="1.3" href="#1.3">1.3</a> <a name="label:4">[2005/12/23] 0.1 released</a></h3><!-- RDLabel: "[2005/12/23] 0.1 released" -->
+
+<p>Initial release</p>
+<h2><a name="2" href="#2">2</a> <a name="label:5">Abstract</a></h2><!-- RDLabel: "Abstract" -->
+
+<p>gonzui-emacs is an Emacs interface of <a href="http://gonzui.sourceforge.net/">gonzui</a>, a source code search engine.
+It is written in EmacsRuby.
+It uses <a href="http://www.rubyist.net/~rubikitch/computer/langhelp/">langhelp</a> interface, so you can jump to a source code and bookmark a position.</p>
+<h2><a name="3" href="#3">3</a> <a name="label:6">Screenshots</a></h2><!-- RDLabel: "Screenshots" -->
+
+<ul>
+<li><a href="baz.jpg">M-x gonzui baz</a></li>
+<li><a href="baz-display.jpg">Displaying a source code</a></li>
+</ul>
+<h2><a name="4" href="#4">4</a> <a name="label:7">Environment</a></h2><!-- RDLabel: "Environment" -->
+
+<ul>
+<li>Ruby 1.8.2 or upper</li>
+<li>emacs21 / xemacs21</li>
+<li>langhelp 0.9.4 or upper</li>
+<li>gonzui</li>
+<li><a href="http://savannah.nongnu.org/cgi-bin/viewcvs/*checkout*/bm/bm/bm.el?rev=HEAD&amp;content-type=text/plain">bm.el</a> (if you want to use bookmark feature)</li>
+</ul>
+<h2><a name="5" href="#5">5</a> <a name="label:8">Install</a></h2><!-- RDLabel: "Install" -->
+
+<p>Before installing gonzui-emacs, install <a href="http://www.rubyist.net/~rubikitch/computer/langhelp/">langhelp (&gt;=0.9.4)</a>.
+If you want only to use gonzui, you do not have to edit `~/.langhelp/config'.</p>
+<p>Please execute the following commands.</p>
+<pre>ruby -ropen-uri -e 'URI("http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz").read.display' &gt; gonzui-emacs-0.3.tar.gz
+tar xzvf gonzui-emacs-0.3.tar.gz</pre>
+<p>When you failed, please download it from the next link.</p>
+<ul>
+<li><a href="http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz">gonzui-emacs-0.3.tar.gz</a></li>
+</ul>
+<p>Then, install it.</p>
+<pre>ruby setup.rb</pre>
+<p>Victor Borja created <a href="http://darcs.thehatcher.com/vic/erebor-ebuilds/app-emacs/">Gentoo ebuild</a>. Thanks.</p>
+<h2><a name="6" href="#6">6</a> <a name="label:9">Usage</a></h2><!-- RDLabel: "Usage" -->
+
+<p>If you use gonzui-emacs for the first time, reboot el4r.</p>
+<pre>M-x el4r-boot</pre>
+<p>To use gonzui, type</p>
+<pre>M-x gonzui</pre>
+<p>and input a query.
+A few seconds later, the gonzui-result buffer appears.
+The usage of gonzui-result buffer is the same as langhelp.</p>
+<ul>
+<li>k, j: Move up/down</li>
+<li>m, u: Bookmark</li>
+<li>p, n: Move previous/next bookmark</li>
+<li>l, RET: Follow the link</li>
+<li>SPC, b: Scroll the gonzui-result buffer</li>
+<li>c, v: Scroll the source code buffer</li>
+</ul>
+<p>To back to Index, type</p>
+<pre>M-x winconf-pop</pre>
+<h2><a name="7" href="#7">7</a> <a name="label:10">License</a></h2><!-- RDLabel: "License" -->
+
+<p>GPL</p>
+
+</body>
+</html>

data/gonzui-emacs.en.rd

@@ -0,0 +1,93 @@
+=begin
+
+= Gonzui for Emacs
+
+##### [whats new]
+== What's new
+
+=== [2006/02/05] 0.3 released
+* Compact output.
+
+=== [2005/12/25] 0.2 released
+
+* Asynchronous. You do not have to wait until search process exits.
+* Use color.
+
+=== [2005/12/23] 0.1 released
+Initial release
+
+##### [/whats new]
+
+##### [abstract]
+== Abstract
+
+gonzui-emacs is an Emacs interface of ((<gonzui|URL:http://gonzui.sourceforge.net/>)), a source code search engine.
+It is written in EmacsRuby.
+It uses ((<langhelp|URL:http://www.rubyist.net/~rubikitch/computer/langhelp/>)) interface, so you can jump to a source code and bookmark a position.
+
+##### [/abstract]
+
+== Screenshots
+
+* ((<M-x gonzui baz|URL:baz.jpg>))
+* ((<Displaying a source code|URL:baz-display.jpg>))
+
+== Environment
+
+* Ruby 1.8.2 or upper
+* emacs21 / xemacs21
+* langhelp 0.9.4 or upper
+* gonzui
+* ((<bm.el|URL:http://savannah.nongnu.org/cgi-bin/viewcvs/*checkout*/bm/bm/bm.el?rev=HEAD&content-type=text/plain>)) (if you want to use bookmark feature)
+
+##### [install]
+== Install
+
+Before installing gonzui-emacs, install ((<langhelp (>=0.9.4)|URL:http://www.rubyist.net/~rubikitch/computer/langhelp/>)).
+If you want only to use gonzui, you do not have to edit `~/.langhelp/config'.
+
+Please execute the following commands.
+
+  ruby -ropen-uri -e 'URI("http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz").read.display' > gonzui-emacs-0.3.tar.gz
+  tar xzvf gonzui-emacs-0.3.tar.gz
+
+
+When you failed, please download it from the next link.
+
+* ((<gonzui-emacs-0.3.tar.gz|URL:http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz>))
+
+Then, install it.
+
+  ruby setup.rb
+
+Victor Borja created ((<Gentoo ebuild|URL:http://darcs.thehatcher.com/vic/erebor-ebuilds/app-emacs/>)). Thanks.
+
+
+##### [/install]
+
+== Usage
+
+If you use gonzui-emacs for the first time, reboot el4r.
+  M-x el4r-boot
+
+To use gonzui, type
+  M-x gonzui
+and input a query.
+A few seconds later, the gonzui-result buffer appears.
+The usage of gonzui-result buffer is the same as langhelp.
+
+* k, j: Move up/down
+* m, u: Bookmark
+* p, n: Move previous/next bookmark
+* l, RET: Follow the link
+* SPC, b: Scroll the gonzui-result buffer
+* c, v: Scroll the source code buffer
+
+To back to Index, type
+  M-x winconf-pop
+
+
+== License
+GPL
+
+=end

data/gonzui-emacs.ja.html

@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="iso-2022-jp" ?>
+<!DOCTYPE html 
+  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" lang="ja" xml:lang="ja">
+<head>
+<title>Gonzui for Emacs</title>
+<meta http-equiv="Content-type" content="text/html; charset=iso-2022-jp" />
+<!-- head-element:nil -->
+</head>
+<body>
+<h2>Index</h2>
+
+<ul>
+<li><p><a href="#label:1">What's new</a></p>
+<ul>
+<li><a href="#label:2">[2006/02/05] 0.3 released</a></li>
+<li><a href="#label:3">[2005/12/25] 0.2 released</a></li>
+<li><a href="#label:4">[2005/12/23] 0.1 released</a></li>
+</ul></li>
+<li><a href="#label:5">$B35MW(B</a></li>
+<li><a href="#label:6">$B%9%/%j!<%s%7%g%C%H(B</a></li>
+<li><a href="#label:7">$BF0:n4D6-(B</a></li>
+<li><a href="#label:8">$B%$%s%9%H!<%k(B</a></li>
+<li><a href="#label:9">$B;H$$J}(B</a></li>
+<li><a href="#label:10">TODO</a></li>
+<li><a href="#label:11">$B%i%$%;%s%9(B</a></li>
+</ul>
+<hr />
+
+<h1><a name="Title:" href="#Title:">Title:</a> <a name="label:0">Gonzui for Emacs</a></h1><!-- RDLabel: "Gonzui for Emacs" -->
+
+<h2><a name="1" href="#1">1</a> <a name="label:1">What's new</a></h2><!-- RDLabel: "What's new" -->
+
+<h3><a name="1.1" href="#1.1">1.1</a> <a name="label:2">[2006/02/05] 0.3 released</a></h3><!-- RDLabel: "[2006/02/05] 0.3 released" -->
+
+<ul>
+<li>$B=PNO$,%3%s%Q%/%H$K$J$j$^$7$?!#(B</li>
+</ul>
+<h3><a name="1.2" href="#1.2">1.2</a> <a name="label:3">[2005/12/25] 0.2 released</a></h3><!-- RDLabel: "[2005/12/25] 0.2 released" -->
+
+<ul>
+<li>$BHsF14|$KF0:n$9$k$h$&$K$J$j$^$7$?!#A48!:w$,40N;$7$J$/$F$b8!:w7k2L$N3NG'$,$G$-$^$9!#(B</li>
+<li>$B%^%C%A$7$?ItJ,$K?'$,$D$/$h$&$K$J$j$^$7$?!#(B</li>
+</ul>
+<h3><a name="1.3" href="#1.3">1.3</a> <a name="label:4">[2005/12/23] 0.1 released</a></h3><!-- RDLabel: "[2005/12/23] 0.1 released" -->
+
+<p>Initial release</p>
+<h2><a name="2" href="#2">2</a> <a name="label:5">$B35MW(B</a></h2><!-- RDLabel: "$B35MW(B" -->
+
+<p>$B%=!<%9%3!<%I8!:w%(%s%8%s(B<a href="http://gonzui.sourceforge.net/">gonzui</a>$B$N(BEmacs$B%$%s%?!<%U%'!<%9$G$9!#(B
+EmacsRuby$B$G=q$+$l$F$$$^$9!#(B
+<a href="http://www.rubyist.net/~rubikitch/computer/langhelp/">langhelp</a>$B$N%$%s%?!<%U%'!<%9$r$=$N$^$^;H$C$F$$$k$?$a!"(B
+$B%=!<%9%3!<%I$KHt$s$@$j%V%C%/%^!<%/$r$D$1$?$j$G$-$^$9!#(B</p>
+<h2><a name="3" href="#3">3</a> <a name="label:6">$B%9%/%j!<%s%7%g%C%H(B</a></h2><!-- RDLabel: "$B%9%/%j!<%s%7%g%C%H(B" -->
+
+<ul>
+<li><a href="baz.jpg">M-x gonzui$B$G(Bbaz$B$r8!:w$7$?$H$3$m(B</a></li>
+<li><a href="baz-display.jpg">$B%j%s%/$r$?$I$j!"%=!<%9%3!<%I$rI=<($7$F$$$k$H$3$m(B</a></li>
+</ul>
+<h2><a name="4" href="#4">4</a> <a name="label:7">$BF0:n4D6-(B</a></h2><!-- RDLabel: "$BF0:n4D6-(B" -->
+
+<ul>
+<li>Ruby 1.8.2$B0J>e(B</li>
+<li>emacs21 / xemacs21</li>
+<li>langhelp 0.9.4$B0J>e(B</li>
+<li>gonzui</li>
+<li><a href="http://savannah.nongnu.org/cgi-bin/viewcvs/*checkout*/bm/bm/bm.el?rev=HEAD&amp;content-type=text/plain">bm.el</a> ($B%V%C%/%^!<%/5!G=$r;H$$$?$$$J$i(B)</li>
+</ul>
+<h2><a name="5" href="#5">5</a> <a name="label:8">$B%$%s%9%H!<%k(B</a></h2><!-- RDLabel: "$B%$%s%9%H!<%k(B" -->
+
+<p>$B$^$:!"(B<a href="http://www.rubyist.net/~rubikitch/computer/langhelp/">langhelp (&gt;=0.9.4)</a>$B$r%$%s%9%H!<%k$7$F$/$@$5$$!#(B
+gonzui$B$N$_$,L\E*$N?M$O(Blanghelp$B$N(Bconfig$B%U%!%$%k$rJT=8$9$kI,MW$O$"$j$^$;$s!#(B</p>
+<p>langhelp$B$N%$%s%9%H!<%k$,=*$o$C$?$i0J2<$N%3%^%s%I$r<B9T$7$F$/$@$5$$!#(B</p>
+<pre>ruby -ropen-uri -e 'URI("http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz").read.display' &gt; gonzui-emacs-0.3.tar.gz
+tar xzvf gonzui-emacs-0.3.tar.gz</pre>
+<p>$B<:GT$9$k>l9g$O<!$N%j%s%/$+$i%@%&%s%m!<%I$7$F$/$@$5$$!#(B</p>
+<ul>
+<li><a href="http://www.rubyist.net/~rubikitch/archive/gonzui-emacs-0.3.tar.gz">gonzui-emacs-0.3.tar.gz</a></li>
+</ul>
+<p>$B$=$l$+$i<!$N%3%^%s%I$G%$%s%9%H!<%k!#(B</p>
+<pre>ruby setup.rb</pre>
+<p>Victor Borja$B$5$s$,(B<a href="http://darcs.thehatcher.com/vic/erebor-ebuilds/app-emacs/">Gentoo ebuild</a>$B$r:n@.$7$F$/$l$^$7$?!#(B
+$B$"$j$,$H$&$4$6$$$^$9!#(B</p>
+<h2><a name="6" href="#6">6</a> <a name="label:9">$B;H$$J}(B</a></h2><!-- RDLabel: "$B;H$$J}(B" -->
+
+<p>$B=i$a$F;H$&$H$-$O(B</p>
+<pre>M-x el4r-boot</pre>
+<p>$B$G(Bel4r$B$r:F5/F0$7$F$/$@$5$$!#(B</p>
+<p>gonzui$B8!:w$r$9$k$K$O(B</p>
+<pre>M-x gonzui</pre>
+<p>$B$G5/F0$7!"%/%(%j$rF~NO$7$^$9!#(B
+$B?tICBT$D$H8!:w7k2L$,I=<($5$l$^$9!#(B
+$B;H$$J}$O(Blanghelp$B$HF1$8$G$9!#(B</p>
+<ul>
+<li>k, j: $B>e2<0\F0(B</li>
+<li>m, u: $B%V%C%/%^!<%/(B</li>
+<li>p, n: $B%V%C%/%^!<%/>e2<0\F0(B</li>
+<li>l, RET: $B%j%s%/$rC)$k(B</li>
+<li>SPC, b: $B8!:w7k2L$N%9%/%m!<%k(B</li>
+<li>c, v: $B%=!<%9%3!<%I$N%9%/%m!<%k(B</li>
+</ul>
+<p>Index$B$+$i%8%c%s%W$7$?$i(B</p>
+<pre>M-x winconf-pop</pre>
+<p>$B$GLa$l$^$9!#(B
+$B$3$N%3%^%s%I$O(Bel4r$B$GDj5A$5$l$F$$$^$9$,JXMx$J$N$G(Bglobal-map$B$NE,Ev$J%-!<$K3d$jEv$F$F$/$@$5$$!#(B</p>
+<h2><a name="7" href="#7">7</a> <a name="label:10">TODO</a></h2><!-- RDLabel: "TODO" -->
+
+<p>$B$^$@$G$-$?$F$[$d$[$d$J$N$G2~NI$NM>CO$O$?$/$5$s$"$j$^$9!#(B</p>
+<ul>
+<li>$B%+%9%?%^%$%:@-$r9b$a$k(B</li>
+<li>gonzui-db -r$B$G$O$J$/$FK\J*$N%=!<%9%3!<%I$rI=<($7$?$$(B</li>
+</ul>
+<h2><a name="8" href="#8">8</a> <a name="label:11">$B%i%$%;%s%9(B</a></h2><!-- RDLabel: "$B%i%$%;%s%9(B" -->
+
+<p>GPL$B$H$7$^$9!#(B</p>
+
+</body>
+</html>