1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!/usr/bin/ruby
def yield_or_not(primary)
text = primary.sub(/\{\s*\|([^|]+)\|[^}]*\}/, '')
if text != primary
"def #{text}yield #$1\nend"
else
"def #{text}end"
end
end
def normalize(text)
norm = text.gsub(/\(\(\|([^|]+)\|\)\)/, '<em>\\1</em>')
norm.gsub!(/\(\(\{/, '<tt>')
norm.gsub!(/\}\)\)/, '</tt>')
norm.gsub!(/\(\(<([^|>]+)[^>]*>\)\)/, '<em>\\1</em>')
norm.gsub!(/^\s*:\s/, ' * ')
norm
end
def intern_def(text, names, fout)
fout.puts "##{normalize(text.join('#'))}"
fout.puts yield_or_not(names[0])
if names.size > 1
n = names[0].chomp.sub(/\(.*/, '')
names[1 .. -1].each do |na|
nd = na.chomp.sub(/\(.*/, '')
if nd != n
fout.puts "#same than <em>#{n}</em>"
fout.puts yield_or_not(na)
end
end
end
end
def output_def(text, names, keywords, fout)
if ! names.empty?
keywords.each do |k|
fout.puts k
intern_def(text, names, fout)
fout.puts "end" if k != ""
end
end
end
def loop_file(file, fout)
text, keywords, names = [], [""], []
comment = false
rep, indent, vide = '', -1, nil
IO.foreach(file) do |line|
if /^#\^/ =~ line
comment = ! comment
next
end
if comment
fout.puts "# #{normalize(line)}"
next
end
case line
when /^\s*$/
vide = true
text.push line
when /^#\^/
comment = ! comment
when /^##/
line[0] = ?\s
fout.puts line
when /^#\s*(.+?)\s*$/
keyword = $1
output_def(text, names, keywords, fout)
text, names = [], []
keywords = keyword.split(/\s*##\s*/)
if keywords.size == 1
fout.puts keywords[0]
keywords = [""]
end
when /^#/
when /^---/
name = $'
if vide
output_def(text, names, keywords, fout)
text, names = [], []
rep, indent, vide = '', -1, false
end
names.push name
else
vide = false
if line.sub!(/^(\s*): /, '* ')
indent += ($1 <=> rep)
rep = $1
else
line.sub!(/^#{rep}/, '')
end
if indent >= 0
line = (' ' * indent) + line
else
line.sub!(/\A\s*/, '')
end
text.push line
end
end
end
File.open("#{ARGV[0]}.rb", "w") do |fout|
loop_file("../#{ARGV[0]}.rd", fout)
Dir['*.rd'].each do |file|
loop_file(file, fout)
end
end
|
