tdiary 3.2.2.20130507

data/vendor/rdtool-0.6.38/TODO

@@ -0,0 +1,22 @@
+# -*- mode: rd; coding: utf-8; indent-tabs-mode: nil -*-
+= TODO
+
+* HTML5 出力できるように
+  * 後方互換性を維持するならば, rd2html5-lib.rb でも作るのかな?
+* rd2html-ext-lib, Hash#index -> Hash#key
+
+== Moonwolf さんから指摘された事
+
+* Ruby1,9での動作確認(全機能)+encoding周り
+* gem化した際に、通常のsetup.rbによるインストール方法も残すか
+* 原作者のToshさんの認識していたバグが直っているかの確認(できるの?)
+  ((<URL:http://pub.cozmixng.org/~the-rwiki/rw-cgi.rb?cmd=view;name=RDtool+Bug+List>))
+
+== 佐々木が気になっている事/やりたいこと
+
+* Windows での, テストしておくべき Ruby 環境ってドレなの?
+
+== Done
+
+* COPYRIGHT の表記. きちんとまとめておきたい|おくべき.
+* makerdtool.rb などを Rake のタスクに落としこむ

data/vendor/rdtool-0.6.38/bin/rd2

@@ -0,0 +1,283 @@
+#! /usr/bin/ruby1.9.1 -Kn
+# -*- coding: ASCII-8BIT -*-
+=begin
+= NAME
+rd2 - converter from RD to other mark-up language.
+= SYNOPSIS
+  rd2 [-r <visitor>] [options] <file>
+
+= DESCRIPTION
+rd2 inputs from ((|<file>|)) and outputs into (({STDOUT})). you can
+choose ((|<visitor>|)) to select output format. For example, use
+"rd/rd2html-lib.rb" to translate it into HTML, and "rd/rd2man-lib.rb"
+to tranlate it into roff with man macros.
+
+= OPTIONS
+please read output of 
+  % rd2 --help
+and
+  % rd2 -r rd/rd2html-lib.rb --help
+
+= FILES
+  * ~/.rd2rc - User configration file.
+
+= SEE ALSO
+ruby(1)
+=end
+
+require "kconv"
+require "optparse"
+require "rd/rdfmt"
+require "rd/visitor"
+require "rd/version"
+
+module Kconv
+  NAME2CONST = {
+    "iso-2022-jp" => Kconv::JIS,
+    "euc-jp" => Kconv::EUC,
+    "shift_jis" => Kconv::SJIS,
+  }
+  NAME_ALIAS = {
+    'jis' => 'iso-2022-jp',
+    'euc' => 'euc-jp',
+    'sjis' => 'shift_jis',
+    'shift-jis' => 'shift_jis',
+  }
+  if defined?(Kconv::UTF8)
+    NAME2CONST['utf-8'] = Kconv::UTF8
+    NAME_ALIAS['utf8'] = 'utf-8'
+  end
+end
+
+include RD
+
+SYSTEM_NAME = "RDtool -- rd2"
+SYSTEM_VERSION = "$Version: "+RD::VERSION + "$" #"
+RD2_VERSION = Version.new_from_version_string(SYSTEM_NAME, SYSTEM_VERSION)
+
+# global vars
+$Visitor_Class = nil
+$Visitor = nil
+$RD2_Sub_OptionParser = nil
+
+# local vars
+include_path = []
+with_part = []
+output_file = nil
+output_index = nil
+out_code = nil
+from_rdo = nil
+
+# user option
+$DEFAULT_FORMAT_LIB = "rd/rd2html-lib"
+$RC = {}
+$RC["filter"] = Hash.new(RD::INCLUDE_FILTER)
+begin
+  if test(?r, File.expand_path("~/.rd2rc"))
+    load "~/.rd2rc"
+    #  STDERR << "#{$0}: loading ~/.rd2rc\n"
+  else
+    load "rd/dot.rd2rc"
+    #  STDERR << "#{$0}: loading rd/dot.rd2rc\n"
+  end
+rescue
+  load "rd/dot.rd2rc"
+end
+
+# initialize OptionParser
+ARGV.options do |q|
+  q.banner = "Usage: #{$0} [options] rd-file > output\n"
+  q.on_head("global options:")
+  
+  q.on("-rLIB", "--require=LIB",
+       String,
+       "choose format library.") do |i|
+    # require LIB
+    require i
+    if $Visitor_Class && !$Visitor
+      $Visitor = $Visitor_Class.new()
+      if $RD2_Sub_OptionParser    
+	require $RD2_Sub_OptionParser
+	$RD2_Sub_OptionParser = nil
+      end
+    end
+  end
+
+  q.on("-oNAME",
+       String,
+       "indicate base name of output file") do |i|
+    output_file = i
+  end
+
+  q.on("--out-code=KCODE",
+       Kconv::NAME2CONST.keys, Kconv::NAME_ALIAS,
+       "character encoding of output.(jis|euc|sjis|utf8)") do |i|
+    out_code = i
+  end
+      
+  q.on("--output-index",
+       "output method index file (*.rmi)") do |i|
+    output_index = true
+  end
+
+  q.on("-IPATH", "--include-path=PATH",
+       String,
+       "add PATH to list of include path") do |i|
+    # add to include path
+    include_path.unshift(i)
+  end
+
+  # accept "PART:FILTER" and "PART"
+  class PART ; end
+  q.accept(PART, /(\w+)(?:\s*:\s*(\w+))?/) {|s, p, f| [s, p, f] }
+  q.on("--with-part=PART",
+       PART,
+       "include PART with Filter") do |src, part, filter|
+    with_part.push([part, filter || part])
+    unless include_path.index(RD::RDTree.tmp_dir)
+      include_path.push(RD::RDTree.tmp_dir)
+    end
+  end
+
+  q.on("--from-rdo",
+       "load from *.rdo instead of *.rd") do
+    from_rdo = true
+  end
+
+  q.on("--version",
+       "print versions.") do
+    STDERR.puts RD2_VERSION
+    STDERR.puts Tree::version
+    STDERR.puts Visitor::version
+    STDERR.puts $Visitor_Class.version if $Visitor_Class
+    exit(0)
+  end
+
+  q.on_tail("--help",
+	    "print this message") do
+    STDERR.print(q.to_s)
+    exit(0)
+  end
+end # OptionParser.new
+
+# require format lib implicitly
+if /rd2.+/ =~ File.basename($0, ".*").downcase
+  visitor_lib = "rd/" + $& + "-lib.rb"
+  require visitor_lib
+  require $RD2_Sub_OptionParser  if $RD2_Sub_OptionParser
+  # make visitor
+  $Visitor = $Visitor_Class.new()
+end
+
+begin
+  ARGV.parse!
+rescue
+  STDERR.print("Error: " + $!.inspect + "\n")
+  STDERR.print(ARGV.options.to_s)
+  exit(1)
+end
+
+unless $Visitor_Class
+  require $DEFAULT_FORMAT_LIB
+  $Visitor = $Visitor_Class.new
+end
+
+$Visitor.input_filename = ARGF.filename
+
+# make tree (but not parsed yet)
+if from_rdo
+  rdos = []
+  ARGV.each do |path|
+    rdos.push(File.open(path))
+    dirname = File.dirname(path)
+    include_path.push(dirname, dirname + "/include")
+  end
+  tree = RDTree.new_from_rdo(*rdos)
+  tree.include_path = include_path
+else 
+  # set Include_Path
+  if ARGF.filename
+    dir = File.dirname(ARGF.filename)
+  else
+    dir = "."
+  end
+  include_path.push(dir)
+  include_path.push(dir + "/include")
+
+  # input from ARGF
+  src = readlines
+  if src.find{|i| /\S/ === i } and !src.find{|i| /^=begin\b/ === i }
+    src.unshift("=begin\n").push("=end\n")
+  end
+
+  tree = RDTree.new(src, include_path, nil)
+  
+  # filter set tree.filter
+  with_part.each do |i|
+    tree.filter[i[0]] = $RC["filter"][i[1]]
+  end
+  
+  # parse
+  begin
+    tree.parse
+  rescue Racc::ParseError
+    STDERR.puts($!.message)
+    exit(10)
+  end
+end
+
+# filter: set visitor.include_suffix
+with_part.each do |i|
+  $Visitor.include_suffix.push(i[0])
+end
+
+# file base name setup
+$Visitor.filename = output_file if output_file
+
+# character encoding
+if out_code
+  begin
+    $Visitor.charcode = out_code
+    $Visitor.lang = "ja"
+  rescue NameError
+  end
+end
+
+# output  
+out = $Visitor.visit(tree)
+
+# character encoding convert
+out = Kconv.kconv(out, Kconv::NAME2CONST[out_code], Kconv::AUTO) if out_code
+
+if output_file
+  filename = output_file + "." + $Visitor.class::OUTPUT_SUFFIX
+  file = open(filename, "w")
+  file.print(out)
+  file.close
+  STDERR.print("#{$0}: output to #{filename}...\n")
+else
+  print(out)
+end
+
+# RMI
+if output_index
+  if output_file
+    require "rd/rd2rmi-lib"
+    rmivisitor = RD2RMIVisitor.new
+    rmivisitor.filename = output_file
+    rmi = rmivisitor.visit(tree)
+    filename = output_file + ".rmi"
+    file = open(filename, "w")
+    file.print(rmi)
+    file.close
+    STDERR.print("#{$0}: output to #{filename}...\n")
+  else
+    raise %Q[Error: option "--output-index" must be used with option "-oNAME"]
+  end
+end
+
+
+# filter: remove tmp file
+Dir.glob("#{RD::RDTree.tmp_dir}/rdtmp.#{$$}.*.*").each do |i|
+  File.delete(i)
+end

data/vendor/rdtool-0.6.38/bin/rdswap.rb

@@ -0,0 +1,207 @@
+#! /usr/bin/ruby1.9.1 -s
+#######
+# rdswap.rb (c) C.Hintze <c.hintze@gmx.net> 30.08.1999
+#######
+
+
+require "ostruct";
+
+if ARGV.size < 2 and not ($h or $help)
+    print "Wrong # of paramter! Use `-h' for help.\n";
+    exit 1;
+elsif $h or $help
+    print eval('"'+DATA.read+'"');
+    exit 0;
+end   
+
+srcfile = ARGV.select{|fn| fn =~ /\.rb$/o};
+case srcfile.size
+when 0
+    $stderr.print "Warning: No `.rb' file given! Take first file as source.\n";
+    srcfile = ARGV[0];
+when 1
+    srcfile = srcfile[0];
+else
+    print "Sorry! Only one source file (`.rb') allowed!\n";
+    exit(1);
+end
+
+docs = {};
+srcs = {};
+
+rddoc, rddocs = nil, [];
+source, sources = [], [[]];
+
+while gets
+    lang = $1 if File::basename(String($<)) =~ /^.*?([^.]+)$/o;
+    if /^=begin/o .. /^=end/o
+        title = $2 if /^=begin(\s+(.*))?$/o;
+        unless rddoc.nil?
+            unless /^=end/o
+                rddoc.lines << $_;
+            else
+                rddocs << rddoc;
+            	sources << [];
+                rddoc = nil;
+            	title = nil;
+            end
+        else               # New RD block found! Instantiate data container.
+            rddoc = OpenStruct.new
+            rddoc.kind, rddoc.lines = title, [];
+        end
+    else                   # It is not a RD block means, it is a source line!
+        sources[-1] << $_;
+    end
+    if $<.eof?             # One file finished. Remember data and proceed.
+        docs[lang] = rddocs;
+        srcs[lang] = sources;
+        rddoc, rddocs = nil, [];
+        source, sources = [], [[]];
+    end
+end
+
+langs = docs.keys;
+langs.delete("rb");        # `rb' is not a language but the script!
+source = srcs["rb"];       # Assign it for preventing later look-ups
+srcdoc = docs["rb"];
+sourcesize = source.size;  # Do not recalculate size again and again.
+srcdocsize = srcdoc.size;
+
+for lang in langs
+    docblk = docs[lang];
+	max = [sourcesize, srcdocsize, docblk.size].max;
+    filename = File.join(srcfile+"."+lang);
+    open(filename, "w+") do |fd|
+        j = 0;
+        for i in 0...max   # Goto every block; be it source or RD.
+            fd.print source[i].join unless source[i].nil? || source[i].empty?;
+            sblk, dblk = srcdoc[i], docblk[j];
+            blk = (dblk and (dblk.kind == sblk.kind)) ? dblk : sblk;
+			next unless blk;
+            j += 1 if blk == dblk;
+            fd.print "=begin #{blk && blk.kind}\n", blk.lines.join, "=end\n";
+        end
+    end
+    print "File `#{filename}' created.\n" if $v;
+end
+
+exit(0);
+
+__END__
+
+Purpose:
+   This tool is written to support you to write multi-language documents
+   using the Ruby-Document-Format (RD).
+
+   The idea for such a tool was originated by
+   
+   		Minero Aoki <aamine@dp.u-netsurf.ne.jp>,
+		
+   how has thought about, how to make life easier for developers who have to
+   write and maintain scripts in more than one language.
+
+   You have to specify at least two filenames on the command line. One
+   containing the Ruby script, the second containing a translated RD. If the
+   script does *not* end with `.rb', it has to be the first filename mentioned
+   on the command line! In opposition, all files containing translations *must
+   not* ending with `.rb'! They should use a extension that describes the
+   language. So that would give us the following picture:
+
+      - sample.rb : Script contains the original documentation.
+      - sample.jp : Documentation written in Japanese.
+      - sample.de : Translation to German.
+
+   The tool doesn't care about the language extensions. You can name them as
+   you like! So the file containing the Japanese translation above, could also
+   be names e.g. `sample.japan' or even `japantranslation.japan'.
+
+   For every translation file, a new file will be created. The name is build
+   from the script filename plus the language extension. So regarding the
+   example above, following files would be created:
+
+      - sample.rb.jp
+      - sample.rb.de
+
+   or, given the alternative translation filename as mentioned above...
+
+      - sample.rb.japan
+
+How does it work?
+   The contents of all files will be split into source and RD blocks. The
+   source of the translation files, will be discarded! Every RD block may
+   be of a certain type. The type will be taken from the contents directly
+   following the `=begin' on the same line. If there is only a lonely `=begin'
+   on a line by itself, the type of the block is `nil'. That means in
+
+        :
+        =begin
+         bla bla
+        =end
+        :
+        =begin whatever or not
+         blub blub
+        =end
+        :
+   
+   the first block would be of type `nil' and the second one of type `whatever
+   or not'.
+   
+   Block types are important for the translation. If a source will be
+   generated from a script and a translation file, only these blocks are taken
+   from the translation files, that comes in the right sequence *and* contains
+   the same type as the block in the script! For example:
+
+        # File sample.rb
+        :
+        =begin gnark
+         Some comment
+        =end
+        :
+        =begin
+         block 2
+        =end
+        :
+        =begin
+         block 3
+        =end
+        :
+
+        # File sample.de
+        :
+        =begin
+         Block zwei
+        =end
+        :
+        =begin
+         Block drei
+        =end
+        :
+
+   Here, the first block of `sample.rb' will *not* be translated, as there is
+   no translation block with that type in sample.de! So the first block would
+   be inserted as-it-is into the translated script. The blocks afterwards,
+   however, are translated as the block type does match (it is `nil' there).
+
+   Attention: In a translation file, a second block will only be used, if
+              a first one was already used (matched). A third block will
+              only be used, if a second one was used already!
+
+   That means, if the first block of `sample.de' would be of type e.g. `Never
+   match', then no block would ever be taken to replace anyone of `sample.rb'.
+   
+Syntax:
+   #{File::basename $0} [-h|-v] <filename>...
+
+Whereby:
+   -h  shows this help text.
+   -v  shows some more text during processing.
+   <filename>  Means a file, that contains RD and/or Ruby code.
+
+Examples:
+   #{File::basename $0} -v sample.rb sample.ja sample.de
+   #{File::basename $0} -v sample.ja sample.rb sample.de
+   #{File::basename $0} -v sample.ja sample.de sample.rb
+   #{File::basename $0} -v sample.??
+
+Author:
+   Clemens Hintze <c.hintze@gmx.net>.