[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