*** empty log message ***

[m17n/m17n-docs.git] / utils / mkman.rb

diff --git a/utils/mkman.rb b/utils/mkman.rb
index 303fc78..b136889 100644 (file)
--- a/utils/mkman.rb
+++ b/utils/mkman.rb
@@ -1,25 +1,23 @@
 #! /usr/local/bin/ruby
+# Usage: mkman.rb SRCDIR DSTDIR
+
 #¼Â¹Ô¤¹¤ë¤È/tmp/doxyman¤ò¤Ä¤«¤Ã¤Æ¥Õ¥¡¥¤¥ë¤òʬ¤±¡¢
 #¤â¤È¤Îdirectory¤Ë¤«¤­¤Ê¤ª¤¹¡£
 # see also ¤ÎÃæ¿È¤ò woman ¸þ¤±¤Ë½ñ¤­´¹¤¨¤ë¡£
 
-usr_or_ja=$*[0]
+$manext="."+$*[0]
 
 #
 # Setting up directory names.
 #
 
 $currentdir = Dir.pwd+"/"
+$srcdir=$currentdir+$*[1]+"/"
+$dstdir=$currentdir+$*[2]+"/"
 $doxywork = $currentdir+"doxywork/"
-$srcman3 = $currentdir+usr_or_ja+"/man/man3/"
-if usr_or_ja == "usr"
-  $dstman3m = $currentdir+"/man/man3m/"
-else
-  $dstman3m = $currentdir+"/man/ja/man3m/"
-end
 $sampledir="sample/man3/"
-
 $headfile = $currentdir+"manhead"
+
 headbuf = open($headfile, "r").readlines
 
 #
@@ -87,7 +85,7 @@ def  writedocumentation(buf, text, index)
 
 def datastructure(struct)
 
-   text = open(struct.concat(".3m"),"r").readlines
+   text = open(struct.concat($manext),"r").readlines
 
    buf = []
 
@@ -172,7 +170,7 @@ def documentfunc2 (dstart, title, func_text, short_text)
  #short_text¤Î´Ø¿ô̾¤Î£²¹Ô¸å¤¬brief¡£
    brief =  short_text[short_text.index(short_text.find{|i| i.index(ffname)}) + 2]
  #´Ø¿ô¤´¤È¤Î¥Õ¥¡¥¤¥ë¤òºî¤ë¡£
-   file = open($doxywork+fname+".3m", "w")
+   file = open($doxywork+fname+$manext, "w")
    file.puts("@function")
  #¥Ø¥Ã¥À
    /^\.TH \"([^"]*)\"\s/ =~ title
@@ -200,7 +198,7 @@ def documentfunc2 (dstart, title, func_text, short_text)
 
 def frewrite(text)
 # let the library name appear in the header 
-  buf = [text[0].gsub!("\" \"", "\" \"\" \"")]
+  buf = [text[0].gsub!(/\" \"/, "\" \"\" \"")]
 
   title =  text[0].split(" ")[1].chop!.reverse.chop!.reverse
 
@@ -249,17 +247,32 @@ def desrewrite(text)
                      ind = text.index(line)
                      text.delete_at(ind+1)  if text[ind+1] == (".in +1c\n")}
 
+### letting verbatim end in place Part1
+  verbatim = false
 
   text.each_with_index{|line,i|
 
 ### TEST 6/24
-  line.gsub!(".RS 4","")
+  line.gsub!(/^\.RS 4/,"")
+
+### letting verbatim end in place Part2
+  if line =~ /^\.nf/
+     verbatim = true
+     end
+
+  if verbatim == true
+       if line =~ /^\.PP/
+          line.gsub!(/^\.PP/,".fi")
+          verbatim = false
+        end
+  end
 
 #removing "More..."  hyperlink
   line.gsub!(/More.../,"")
 # ? ad hoc 
   line.gsub!(/^\.TP/,"")
 
+
 #headers
   if line =~ /Return\svalue:/
      returndescribed = true
@@ -342,10 +355,24 @@ def orewrite(text)
 
   text.each_with_index{|line,i|
              line.gsub!(/More.../,"")
+     
+     ### let verbatim end in place
+        line.gsub!(/^.nf/,".NF")
+
+     ### test1/16/2004   changes the type of list, and indentation
+        if line =~ /^.IP/
+           line = ".TP"
+          text[i+2] = ""
+          end
+
+        if line =~ /^.TP/
+          text[i+2] = ""
+          end
+     ### end of test1/20/2004
 
      # let the library name appear in the header 
               if line =~ /^.TH/
-                 line = line.gsub!("\" \"", "\" \"\" \"")
+                 line = line.gsub!(/\" \"/, "\" \"\" \"")
              end
 
      # finding structure documentations and merging into "structures"
@@ -371,7 +398,7 @@ def orewrite(text)
 
      #removing author section
              line.gsub!(/^\.SH\s\"AUTHOR\"/,"")
-             line.gsub!("Generated automatically by Doxygen for m17n_test from the source code.","")
+             line.gsub!(/Generated automatically by Doxygen for m17n_test from the source code\./,"")
 
              line.gsub!(/\\fP\s+,/,"\\fP,")
              line.gsub!(/\\fP\s+\./,"\\fP.")
@@ -396,7 +423,7 @@ end
 
 Dir.mkdir $doxywork unless FileTest.directory? $doxywork
 
-Dir.chdir($srcman3)
+Dir.chdir($srcdir)
 
 Dir.open(".").each{|filename|
 
@@ -404,9 +431,13 @@ Dir.open(".").each{|filename|
        next
      end   
 
-     #if filename =~ /\.c\./
-     #   next
-     #end   
+     if filename =~ /\.[ch]\./
+        next
+     end   
+
+     if filename =~ /\.txt\./
+        next
+     end   
 
      file = open(filename,"r") 
      text = file.readlines
@@ -448,7 +479,7 @@ Dir.open(".").each{|filename|
 
 #############################rewriting files
 
-Dir.chdir($dstman3m)
+Dir.chdir($dstdir)
 
 Dir.open(".").each{|f|  File.delete(f) if FileTest.file?(f)}
 
@@ -471,7 +502,7 @@ unless FileTest.directory? filename
         else buf = orewrite(text)
       end
 
-     filetowrite = open($dstman3m+filename,"w")
+     filetowrite = open($dstdir+filename,"w")
      filetowrite.puts(headbuf)
      filetowrite.puts(buf)
      filetowrite.flush