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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
function get_next_utf8(str)
local ret = ""
local n
local b
n = str:sub(1, 1)
ret = ret .. n
str = str:sub(2)
b = n:byte()
if b <= 0x7f then return ret, str end
if b >= 0x80 and b <= 0xc1 then error("Wrong UTF-8 sequence.") end
n = str:sub(1, 1)
ret = ret .. n
str = str:sub(2)
if b <= 0xdf then return ret, str end
n = str:sub(1, 1)
ret = ret .. n
str = str:sub(2)
if b <= 0xef then return ret, str end
n = str:sub(1, 1)
ret = ret .. n
str = str:sub(2)
if b <= 0xf4 then return ret, str end
error("Wrong UTF-8 sequence.")
end
function dump_special(script, code)
if code == 0 then
return "\n", "\n"
elseif code == 1 then
return "\n<new/>\n", "\n"
elseif code == 3 then
local speed = script:readU8()
if speed == 255 then
return '<rspd/>', ""
else
return '<st spd="' .. speed .. '"/>', ""
end
elseif code == 5 then
return '<start/>', ""
elseif code == 7 then
local rep = script:readU8()
if rep == 1 then
return '<rrep/>', ""
else
return '<st rep="' .. rep ..'"/>', ""
end
elseif code == 8 then
local siz = script:readU8()
if siz == 1 then
return '<rsiz/>', ""
else
return '<st siz="' .. siz ..'"/>', ""
end
elseif code == 19 then
local arg1, arg2
arg1 = script:readU8()
arg2 = script:readU8()
if arg1 == 255 and arg2 == 255 then
return '<dport/>', ""
else
return '<port a1="' .. arg1 .. '" a2="' .. arg2 .. '"/>', ""
end
elseif code == 14 then
return '<var n="' .. script:readU8() .. '"/>', ""
elseif code == 4 then
return '<st clr="' .. script:readU8() .. '"/>', ""
else
local a1, a2
if code == 3 or code == 4 or code == 7 or code == 8 or code == 14 then
a1 = script:readU8()
return '<u1 c="' .. code .. '" a="' .. a1 .. '"/>', ""
elseif code == 6 or code == 12 or code == 17 or code == 19 then
a1 = script:readU8()
a2 = script:readU8()
return '<u2 c="' .. code .. '" a1="' .. a1 .. '" a2="' .. a2 .. '"/>', ""
else
return '<uk c="' .. code .. '"/>', ""
end
end
error "Should not end up there"
end
function extract_char(script, lookup)
local
c = script:readU8()
if c == 0 then return nil end
if c >= 0x80 then c = (c - 0x80) + (script:readU8() * 128) end
if c >= 0x4000 then
return dump_special(script, c - 0x4000)
else
local l = lookup[c]
if not l and not sloppy_extract then error("Lookup failed for character " .. c) end
if not l then
return '<failed value="' .. c .. '"/>', ""
else
return l, l
end
end
error "Should not end up there"
end
function get_txt_idx(txt)
local sha1 = SHA1(txt)
return all_sha1[sha1]
end
function add_txt_idx(txt)
local idx
idx = #all_txts + 1
local sha1 = SHA1(txt)
all_sha1[sha1] = idx
all_txts[idx] = {
sha1 = sha1,
txt = txt,
}
if all_origins[idx] then error("Something's inconsistant") end
all_origins[idx] = "" .. (current_file - 3610)
return idx
end
function process_ptrs(ptrs_contents, ptr_begin, ptr_end)
local r = {}
for i = ptr_begin, ptr_end do
local idx = get_txt_idx(ptrs_contents[i])
if not idx then
idx = add_txt_idx(ptrs_contents[i])
else
if not all_origins[idx] then error("Something's inconsistant") end
all_origins[idx] = all_origins[idx] .. "," .. (current_file - 3610)
end
r[i] = idx
end
return r
end
|
