*** empty log message ***

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

diff --git a/utils/mkman.rb b/utils/mkman.rb
index 43003af..64d539d 100644 (file)
--- a/utils/mkman.rb
+++ b/utils/mkman.rb
@@ -3,12 +3,16 @@
 #¤â¤È¤Îdirectory¤Ë¤«¤­¤Ê¤ª¤¹¡£
 # see also ¤ÎÃæ¿È¤ò woman ¸þ¤±¤Ë½ñ¤­´¹¤¨¤ë¡£
 
-usr_dev_ja=$1
-
-currentdir = Dir.pwd
-doxywork = currentdir+"doxywork"+usr_dev_ja+"man3"
-doxyman3 = currentdir+usr_dev_ja+"man/man3"
-doxyman3m = currentdir+usr_dev_ja+"man/man3m"
+usr_or_ja=$*[0]
+
+currentdir = Dir.pwd+"/"
+$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
 
 headertexts = open("doxyhead.txt","r").readlines
  $fdheader = headertexts[0]
@@ -45,7 +49,7 @@ def  writedocumentation(buf, text, index)
 
 def datastructure(struct)
 
-   text = open(struct.concat(".3"),"r").readlines
+   text = open(struct.concat(".3m"),"r").readlines
 
    buf = []
 
@@ -90,12 +94,12 @@ def datastructure(struct)
    end
 
 # data fields
-    if dfline = text.index($fieldlheader)
-       buf.push("\\fBData Fields:\\fP\n")
-       nl = dfline + 1 
-       writeuntilsectionheader(buf, text, nl)
-       buf.push(".PP\n")
-   end
+#    if dfline = text.index($fieldlheader)
+#       buf.push("\\fBData Fields:\\fP\n")
+#       nl = dfline + 1 
+#       writeuntilsectionheader(buf, text, nl)
+#       buf.push(".PP\n")
+#   end
 
 # field documentation
    if fdline = text.index($fielddheader)
@@ -119,19 +123,22 @@ end
 
 def documentfunc2 (dstart, title, func_text, short_text)
  #func_text¤ÎºÇ½é¤Î¹ÔÃæ¤Î´Ø¿ô̾
+
    dstart =~ /\s([a-z_]+)\s\(/
    return if $1 == nil
    fname = $1
+
    ffname = "\\fB".concat($1.concat("\\fP"))
  #short_text¤Î´Ø¿ô̾¤Î£²¹Ô¸å¤¬brief¡£
    brief =  short_text[short_text.index(short_text.find{|i| i.index(ffname)}) + 2]
  #´Ø¿ô¤´¤È¤Î¥Õ¥¡¥¤¥ë¤òºî¤ë¡£
-   file = open(doxywork+fname+".3", "w")
+   file = open($doxywork+fname+".3m", "w")
    file.puts("@function")
  #¥Ø¥Ã¥À
    /^\.TH \"([^"]*)\"\s/ =~ title
    oname = $1
-   newtitle = title.gsub(oname, fname.chop.chop)
+##?????   newtitle = title.gsub(oname, fname.chop.chop)
+   newtitle = title.gsub(oname, fname)
    file.puts(newtitle)
  #@brief
    file.print("@brief ") 
@@ -334,11 +341,9 @@ end
 
 #############################dividing files
 
-Dir.mkdir "doxywork/man3" unless FileTest.directory? "doxywork/man3"
-Dir.mkdir "man" unless FileTest.directory? "man"
-Dir.mkdir "man/man3m" unless FileTest.directory? "man/man3m"
+Dir.mkdir $doxywork unless FileTest.directory? $doxywork
 
-Dir.chdir("usr/man/man3")
+Dir.chdir($srcman3)
 
 Dir.open(".").each{|filename|
      if FileTest.directory? filename 
@@ -382,16 +387,18 @@ Dir.open(".").each{|filename|
   
   end
    
-  filetowrite = open("../../../doxywork/man3/".concat(filename),"w")
-  print "filetowrite=", filetowrite
+  filetowrite = open($doxywork+filename,"w")
   filetowrite.puts(group_text)
   filetowrite.flush
 }
 
-Dir.chdir(currentdir)
 #############################rewriting files
 
-Dir.chdir("doxywork/man3")
+Dir.chdir($dstman3m)
+
+Dir.open(".").each{|f|  File.delete(f) if FileTest.file?(f)}
+
+Dir.chdir($doxywork)
 
 Dir.open(".").each{|filename|
 unless FileTest.directory? filename
@@ -406,14 +413,13 @@ unless FileTest.directory? filename
     else buf = orewrite(text)
  end
 
-  filetowrite = open("../../man/man3m/".concat(filename).concat("m"),"w")
+  filetowrite = open($dstman3m+filename,"w")
   filetowrite.puts(buf)
   filetowrite.flush
 
 end
 }
 
+Dir.chdir($doxywork)
 
-# Dir.chdir("/tmp/doxyman")
-
-# Dir.open(".").each{|f|  File.delete(f) if FileTest.file?(f)}
+Dir.open(".").each{|f|  File.delete(f) if FileTest.file?(f)}