Pastable version of Nintendo DS roms renamer

<div style="overflow:auto;border:solid 1px #ccc;background:#000;color:#F8F8F8">
 <div class="section">
 endsrename.erl
 <pre style="float:left;margin:0 10px;border-right:0;color:#666;">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</pre>
 <pre class="sunburst">
-module(endsrename).
-author('Eduard Bondarenko &lt;edbond@gmail.com&gt;').

-compile(export_all).

cleanup_title(C,A) when (C&gt;64) and (C&lt;123) -&gt; A++[C];
cleanup_title(C,A) when (C&gt;47) and (C&lt;58) -&gt; A++[C];
cleanup_title(_C, A) -&gt;
 %% squeeze
 L=lists:last(A),
 case L of
 $_ -&gt; A;
 _ -&gt; A++[$_]
 end.

matches(Romname, Save) -&gt;
 Regexp = &quot;.*&quot;++string:to_lower(Romname)++&quot;.*&quot;,
 case regexp:first_match(Save, Regexp) of
 {match, _Start, _Length} -&gt; true;
 _ -&gt; false
 end.

rename_save(Romname, CleanRomname) -&gt;
 Saves = lists:map(fun(F) -&gt; string:to_lower(filename:basename(F)) end, filelib:wildcard(&quot;../SAVE/*.*&quot;)),
 %% find savename that matches original romname
 Savename = lists:filter(fun(S) -&gt; matches(Romname, S) end, Saves),
 case length(Savename) of
 0 -&gt; Cmd = void;
 _ -&gt; Cmd = &quot;mv '../SAVE/&quot;++hd(Savename)++&quot;' '../SAVE/&quot;++CleanRomname++&quot;.sav'&quot;
 end,
 Cmd.

rename_rom(Filename) -&gt;
 Romname = filename:rootname(Filename),
 {ok, FH}=file:open(Filename, [read,binary]),

{ok, &lt;&lt;Offset:32/little&gt;&gt;}=file:pread(FH, 16#68, 4),
 {ok, &lt;&lt;UCSTitle/binary&gt;&gt;}=file:pread(FH, Offset+4+28+512+32+256, 256),
 Title = lists:filter(fun(X) -&gt; X /= 0 end, binary_to_list(UCSTitle)),
 CleanRomname = lists:foldl(fun(X, A) -&gt; cleanup_title(X,A) end, [], Title),

if Romname /= CleanRomname -&gt;
 Cmd = &quot;mv '&quot;++Romname++&quot;.nds' '&quot;++CleanRomname++&quot;.nds'&quot;,
 SaveCmd = rename_save(Romname,CleanRomname);
 true -&gt;
 Cmd = void,
 SaveCmd = void
 end,
 [Cmd, SaveCmd].

output(void) -&gt; true;
output(Cmd) -&gt; io:format(&quot;~s~n&quot;, [Cmd]).

init() -&gt;
 Roms = filelib:wildcard(&quot;*.nds&quot;),

%% TODO: spawn process for each file?
 Cmds = lists:flatmap(fun(X) -&gt; rename_rom(X) end, Roms),
 %% output
 lists:map(fun(C) -&gt; output(C) end, Cmds),
 halt().
</pre>
 </div>
 </div>

Refactor :my => 'code'

Recent

Popular

Pastable version of Nintendo DS roms renamer