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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#!/usr/local/bin/ruby -Ke
class Hash
def hash_map
new_hash = Hash.new
each{|k,v| new_hash[k] = yield k,v}
new_hash
end
end
def convert_link(str)
(?a..?z).include?(str[0]) ? "((<SDL.#{str}>))" : "((<SDL::#{str}>))"
end
def convert_dlink(desc, link)
(?a..?z).include?(link[0]) ? "((<#{desc}|SDL.#{link}>))" :
"((<#{desc}|SDL::#{link}>))"
end
def inline(str)
str.gsub(/\$\[(.*?)\]/,'((|\1|))').
gsub(/\@\[(.*?)\|(.*?)\]/){ convert_dlink($1,$2) }.
gsub(/\@\[(.*?)\]/){ convert_link($1) }
end
def format(lines,spaces)
if lines
lines.split(/^/).map{|line| " "*spaces + inline(line)}.join + "\n"
else
""
end
end
MethodDesc = Struct.new(:output, :purpose, :fullname, :module, :lock)
def rsd2rd(input)
part = Hash.new{""}
mode = nil
input.each do |line|
case line
when /^(MOD|DEP|NAME|PURPOSE|TYPE|RVAL)\s+/
part[$1] = $'.chomp
when "LOCK\n"
part["LOCK"] = ""
when /^(PROTO|DESC|NOTES|RET|EXCEPTION|EXAMPLE|BUG|SEEALSO|COMMENT)\s*$/
mode = $1
when "EXCEPTION *\n"
part["EXCEPTION"] = "ԤȤˤ㳰@[Error]ȯޤ\n"
else
part[mode] += line
end
end
%w(NAME PURPOSE TYPE PROTO DESC).each do |v|
raise "There isn't #{v} at #{part["NAME"]}" unless part.key?(v)
end
part = part.hash_map{|_, line| line.sub(/\n+\z/,"\n")}
output = ""
ns = if part.key?("MOD") then "SDL::#{part["MOD"]}" else "SDL" end
part["PROTO"].each{|proto| output << "--- #{ns}#{part["TYPE"]}#{proto}"}
output << "\n"
output << format(part["DESC"],4)
if part.key?("LOCK")
output << "\n"
output << format("ΥåɤȤˤϥե@[å|Surface#lock]ɬפޤ\n@[auto_lock?]ξϥƥबưŪ˥å/åޤ",4)
end
output << format(part["RET"],4)
output << format(part["EXCEPTION"],4)
if part.key?("DEP")
output << "\n ΥåɤȤˤ #{part["DEP"]} ɬפǤ\n"
end
if part.key?("EXAMPLE")
output << "\n EXAMPLE\n"
output << format(part["EXAMPLE"],6)
end
if part.key?("NOTES")
output << " * NOTES\n\n"
output << format(part["NOTES"],6)
end
if part.key?("BUG")
output << " * BUG\n\n"
output << format(part["NOTES"],6)
end
if part.key?("SEEALSO")
output << " * See Also\n \n "
output << part["SEEALSO"].
split(/\n/).
map{|line| line[0] == ?( ? line : convert_link(line) }.
join(", ")
output << "\n\n"
end
MethodDesc.new(output,
part["PURPOSE"],
"#{ns}#{part["TYPE"]}#{part["NAME"]}",
part["MOD"],
part.key?("LOCK"))
end
def toc(methods)
methods.map{|m| " * ((<#{m.fullname}>)) -- #{inline(m.purpose)}" }.join("\n")
end
def locklist(methods)
methods.find_all{|m| m.lock}.map{|m| "* ((<#{m.fullname}>))"}.join("\n ")
end
def methodlist(mod, methods)
methods.find_all{|m| m.module == mod}.
map{|m| "* ((<#{m.fullname}>)) -- #{inline(m.purpose)}"}.
join("\n")
end
synop, descs = ARGF.read.split(/^%%%$/)
methods = if descs then descs.split(/^%%$/).map{|m| rsd2rd(m)} else [] end
STDOUT << format(synop, 0).gsub(/^TOC$/){ toc(methods) }.
gsub(/^METHODS\((.*)\)$/){methodlist($1, methods)}
methods.each{|m| STDOUT << m.output.gsub("LOCKLIST"){ locklist(methods) }}
|
