1 -- The getopt-functionality is loaded from pm3/getopt.lua
2 -- Have a look there for further details
3 getopt = require('getopt')
6 example = "script run dumptoemul -i dumpdata-foobar.bin"
7 author = "Martin Holst Swende"
8 usage = "script run dumptoemul [-i <file>] [-o <file>]"
10 This script takes a dumpfile from 'hf mf dump' and converts it to a format that can be used
15 -i <file> Specifies the dump-file (input). If omitted, 'dumpdata.bin' is used
16 -o <filename> Specifies the output file. If omitted, <uid>.eml is used.
20 -------------------------------
22 -------------------------------
25 -- A debug printout-function
32 -- This is only meant to be used when errors occur
42 print("Example usage")
46 local function convert_to_ascii(hexdata)
47 if string.len(hexdata) % 32 ~= 0 then
48 return oops(("Bad data, length should be a multiple of 32 (was %d)"):format(string.len(hexdata)))
52 for i = 1, string.len(hexdata),32 do
53 js = js .."'" ..string.sub(hexdata,i,i+31).."',\n"
59 local function readdump(infile)
60 t = infile:read("*all")
61 --print(string.len(t))
63 local len,hex = bin.unpack(("H%d"):format(len),t)
68 local function convert_to_emulform(hexdata)
69 if string.len(hexdata) % 32 ~= 0 then
70 return oops(("Bad data, length should be a multiple of 32 (was %d)"):format(string.len(hexdata)))
73 for i = 1, string.len(hexdata),32 do
74 ascii = ascii ..string.sub(hexdata,i,i+31).."\n"
79 local function main(args)
81 local input = "dumpdata.bin"
84 for o, a in getopt.getopt(args, 'i:o:h') do
85 if o == "h" then return help() end
86 if o == "i" then input = a end
87 if o == "o" then output = a end
89 -- Validate the parameters
91 local infile = io.open(input, "rb")
93 return oops("Could not read file ", input)
95 local dumpdata = readdump(infile)
96 -- The hex-data is now in ascii-format,
98 -- But first, check the uid
99 local uid = string.sub(dumpdata,1,8)
100 output = output or (uid .. ".eml")
102 -- Format some linebreaks
103 dumpdata = convert_to_emulform(dumpdata)
105 local outfile = io.open(output, "w")
106 if outfile == nil then
107 return oops("Could not write to file ", output)
110 outfile:write(dumpdata:lower())
112 print(("Wrote an emulator-dump to the file %s"):format(output))
117 In the future, we may implement so that scripts are invoked directly
118 into a 'main' function, instead of being executed blindly. For future
119 compatibility, I have done so, but I invoke my main from here.