]>
Commit | Line | Data |
---|---|---|
1 | -- The getopt-functionality is loaded from pm3/getopt.lua | |
2 | -- Have a look there for further details | |
3 | getopt = require('getopt') | |
4 | bin = require('bin') | |
5 | ||
6 | example = "script run 14araw -x 6000F57b" | |
7 | author = "Martin Holst Swende" | |
8 | usage = "script run htmldump [-f <file>]" | |
9 | desc =[[ | |
10 | This script takes a dumpfile and produces a html based dump, which is a | |
11 | bit more easily analyzed. | |
12 | ||
13 | Arguments: | |
14 | -h This help | |
15 | -i <file> Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used | |
16 | -o <filename> Speciies the output file. If omitted, <curtime>.html is used. | |
17 | ||
18 | ]] | |
19 | ||
20 | ------------------------------- | |
21 | -- Some utilities | |
22 | ------------------------------- | |
23 | ||
24 | --- | |
25 | -- A debug printout-function | |
26 | function dbg(args) | |
27 | if DEBUG then | |
28 | print("###", args) | |
29 | end | |
30 | end | |
31 | --- | |
32 | -- This is only meant to be used when errors occur | |
33 | function oops(err) | |
34 | print("ERROR: ",err) | |
35 | end | |
36 | ||
37 | ||
38 | --- | |
39 | -- Usage help | |
40 | function help() | |
41 | print(desc) | |
42 | print("Example usage") | |
43 | print(example) | |
44 | end | |
45 | ||
46 | local function readdump(infile) | |
47 | t = infile:read("*all") | |
48 | --print(string.len(t)) | |
49 | len = string.len(t) | |
50 | local len,hex = bin.unpack(("H%d"):format(len),t) | |
51 | --print(len,hex) | |
52 | return hex | |
53 | end | |
54 | local function convert_to_js(hexdata) | |
55 | if string.len(hexdata) % 32 ~= 0 then | |
56 | return oops(("Bad data, length should be a multiple of 32 (was %d)"):format(string.len(hexdata))) | |
57 | end | |
58 | local js,i = "["; | |
59 | for i = 1, string.len(hexdata),32 do | |
60 | js = js .."'" ..string.sub(hexdata,i,i+31).."',\n" | |
61 | end | |
62 | js = js .. "]" | |
63 | return js | |
64 | end | |
65 | ||
66 | local function main(args) | |
67 | ||
68 | local input = "dumpdata.bin" | |
69 | local output = os.date("%Y-%m-%d_%H%M%S.html"); | |
70 | for o, a in getopt.getopt(args, 'i:o:h') do | |
71 | if o == "h" then return help() end | |
72 | if o == "i" then input = a end | |
73 | if o == "o" then output = a end | |
74 | end | |
75 | -- Validate the parameters | |
76 | ||
77 | local infile = io.open(input, "r") | |
78 | if infile == nil then | |
79 | return oops("Could not read file ", input) | |
80 | end | |
81 | --lokal skel = require("skel") | |
82 | local dumpdata = readdump(infile) | |
83 | io.close(infile) | |
84 | ||
85 | local js_code = convert_to_js(dumpdata) | |
86 | --print(js_code) | |
87 | local skel = require("htmlskel") | |
88 | html = skel.getHTML(js_code); | |
89 | ||
90 | local outfile = io.open(output, "w") | |
91 | if outfile == nil then | |
92 | return oops("Could not write to file ", output) | |
93 | end | |
94 | outfile:write(html) | |
95 | io.close(outfile) | |
96 | print(("Wrote a HTML dump to the file %s"):format(output)) | |
97 | end | |
98 | ||
99 | ||
100 | --[[ | |
101 | In the future, we may implement so that scripts are invoked directly | |
102 | into a 'main' function, instead of being executed blindly. For future | |
103 | compatibility, I have done so, but I invoke my main from here. | |
104 | --]] | |
105 | main(args) |