[dennou-ruby:000559] Re: array dimension proto type

[gotoken@xxxxxx (GOTO Kentaro)]

ごとけんです

分割の件

In message "[dennou-ruby:000557] Re: array dimension proto type"
    on 00/11/12, Takeshi Horinouchi <horinout@xxxxxx> writes:

>OKです。そしたらラップしないパッケージはどうしましょう。
>ファイルを作らない or 名前をちょっと変える(接頭/尾辞をつけるとか)？

とりあえず作らないということで。

注文があったので *.f77proto を分解するものを作りました。

-- gotoken

#!/usr/bin/env ruby
#
# prsplit.rb -
#  creates files on current directory
# usage: 
# prsplit.rb proto/*.f77proto
#

suffix = ".fp"

ARGV.each do |f|
  text = open(f).read
  array = text.split(/\/\*\*/)
  STDERR.print array.shift
  array.each{|item|
    data = "/**" + item
    if /^ \* (\S+\/\S+)\s*$/ =~ data
      basename = $1.split("/")[0..1].join("_")
      filename = basename + suffix
      open(filename, "w"){|f|
	f.print data
      }
      STDERR.print "created #{filename}\n"
    else
      raise "unknown format"
    end
  }
end