0de8e387 |
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') |
f3cfe428 |
5 | example = "script run dumptoemul-mfu -i dumpdata-foobar.bin" |
6 | author = "Martin Holst Swende \n @Marshmellow" |
2b1f4228 |
7 | usage = "script run dumptoemul-mfu [-i <file>] [-o <file>]" |
0de8e387 |
8 | desc =[[ |
2b1f4228 |
9 | This script takes a dumpfile from 'hf mfu dump' and converts it to a format that can be used |
0de8e387 |
10 | by the emulator |
11 | |
12 | Arguments: |
13 | -h This help |
14 | -i <file> Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used |
15 | -o <filename> Specifies the output file. If omitted, <uid>.eml is used. |
16 | |
17 | ]] |
0de8e387 |
18 | --- |
19 | -- A debug printout-function |
20 | function dbg(args) |
21 | if DEBUG then |
22 | print("###", args) |
23 | end |
24 | end |
25 | --- |
26 | -- This is only meant to be used when errors occur |
27 | function oops(err) |
28 | print("ERROR: ",err) |
29 | end |
30 | |
0de8e387 |
31 | --- |
32 | -- Usage help |
33 | function help() |
34 | print(desc) |
f3cfe428 |
35 | print(author) |
0de8e387 |
36 | print("Example usage") |
37 | print(example) |
38 | end |
39 | |
40 | local function convert_to_ascii(hexdata) |
41 | if string.len(hexdata) % 8 ~= 0 then |
42 | return oops(("Bad data, length should be a multiple of 8 (was %d)"):format(string.len(hexdata))) |
43 | end |
44 | |
45 | local js,i = "["; |
46 | for i = 1, string.len(hexdata),8 do |
47 | js = js .."'" ..string.sub(hexdata,i,i+7).."',\n" |
48 | end |
49 | js = js .. "]" |
50 | return js |
51 | end |
52 | |
53 | local function readdump(infile) |
54 | t = infile:read("*all") |
0de8e387 |
55 | len = string.len(t) |
56 | local len,hex = bin.unpack(("H%d"):format(len),t) |
0de8e387 |
57 | return hex |
58 | end |
59 | |
60 | local function convert_to_emulform(hexdata) |
61 | if string.len(hexdata) % 8 ~= 0 then |
62 | return oops(("Bad data, length should be a multiple of 8 (was %d)"):format(string.len(hexdata))) |
63 | end |
64 | local ascii,i = ""; |
65 | for i = 1, string.len(hexdata),8 do |
66 | ascii = ascii ..string.sub(hexdata,i,i+7).."\n" |
67 | end |
68 | |
69 | return string.sub(ascii,1,-1) |
70 | end |
71 | |
72 | local function main(args) |
73 | |
74 | local input = "dumpdata.bin" |
75 | local output |
76 | |
77 | for o, a in getopt.getopt(args, 'i:o:h') do |
78 | if o == "h" then return help() end |
79 | if o == "i" then input = a end |
80 | if o == "o" then output = a end |
81 | end |
82 | -- Validate the parameters |
83 | |
84 | local infile = io.open(input, "rb") |
85 | if infile == nil then |
86 | return oops("Could not read file ", input) |
87 | end |
88 | local dumpdata = readdump(infile) |
89 | -- The hex-data is now in ascii-format, |
90 | |
91 | -- But first, check the uid |
2b1f4228 |
92 | local uid = string.sub(dumpdata,1+48,8) |
0de8e387 |
93 | output = output or (uid .. ".eml") |
94 | |
95 | -- Format some linebreaks |
96 | dumpdata = convert_to_emulform(dumpdata) |
97 | |
98 | local outfile = io.open(output, "w") |
99 | if outfile == nil then |
100 | return oops("Could not write to file ", output) |
101 | end |
102 | |
103 | outfile:write(dumpdata:lower()) |
104 | io.close(outfile) |
105 | print(("Wrote an emulator-dump to the file %s"):format(output)) |
106 | end |
107 | |
108 | |
109 | --[[ |
110 | In the future, we may implement so that scripts are invoked directly |
111 | into a 'main' function, instead of being executed blindly. For future |
112 | compatibility, I have done so, but I invoke my main from here. |
113 | --]] |
114 | main(args) |