| 1 |
|
|---|
| 2 | sub change {
|
|---|
| 3 |
|
|---|
| 4 | my $name=shift ;
|
|---|
| 5 |
|
|---|
| 6 | print $name,"...";
|
|---|
| 7 | open(INFILE, "<.\\".$name) or die "Can't open $name: $!";
|
|---|
| 8 | my @txt=<INFILE>;
|
|---|
| 9 | close(INFILE);
|
|---|
| 10 |
|
|---|
| 11 | open(OUTFILE, ">.\\$name") or die "Can't open write file";
|
|---|
| 12 |
|
|---|
| 13 | #group default modifier ALT1 modifier ALT2 modifier
|
|---|
| 14 | #DIRECT SHIFT CTRL
|
|---|
| 15 | #DIRECT2 ALT ALT+SHIFT ALT+CTRL
|
|---|
| 16 | #DIRECT3 CTRL+SHIFT ALT+CTRL+SHIFT META+CTRL
|
|---|
| 17 | #HOTKEY CTRL CTRL+SHIFT CTRL+ALT
|
|---|
| 18 | #LAYER ALT ALT+SHIFT SHIFT
|
|---|
| 19 | #MNEMONIC ALT ALT ALT
|
|---|
| 20 | #NONE - - -
|
|---|
| 21 | #ALT ALT - -
|
|---|
| 22 | #ALT_CTRL ALT+CTRL - -
|
|---|
| 23 | #ALT_CTRL_SHIFT ALT+CTRL+SHIFT - -
|
|---|
| 24 | #ALT_SHIFT ALT+SHIFT - -
|
|---|
| 25 | #CTRL CTRL - -
|
|---|
| 26 | #CTRL_SHIFT CTRL+SHIFT - -
|
|---|
| 27 | #DIRECT - -
|
|---|
| 28 | #MNEMONIC ALT - -
|
|---|
| 29 | #NONE - - -
|
|---|
| 30 | #SHIFT SHIFT - -
|
|---|
| 31 |
|
|---|
| 32 |
|
|---|
| 33 | #EDIT ---- SHIFT ALT+SHIFT
|
|---|
| 34 | s/Shortcut\.GROUP_EDIT\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 35 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_EDIT/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 36 | s/Shortcut\.GROUP_EDIT\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 37 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_EDIT/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 38 | s/Shortcut\.GROUP_EDIT/Shortcut\.DIRECT/g foreach @txt;
|
|---|
| 39 |
|
|---|
| 40 | #MENU CTRL CTRL+SHIFT CTRL+ALT
|
|---|
| 41 | s/Shortcut\.GROUP_MENU\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.CTRL_SHIFT/g foreach @txt;
|
|---|
| 42 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_MENU/Shortcut\.CTRL_SHIFT/g foreach @txt;
|
|---|
| 43 | s/Shortcut\.GROUP_MENU\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 44 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_MENU/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 45 | s/Shortcut\.GROUP_MENU/Shortcut\.CTRL/g foreach @txt;
|
|---|
| 46 |
|
|---|
| 47 | #HOTKEY CTRL CTRL+SHIFT CTRL+ALT
|
|---|
| 48 | s/Shortcut\.GROUP_HOTKEY\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.CTRL_SHIFT/g foreach @txt;
|
|---|
| 49 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_HOTKEY/Shortcut\.CTRL_SHIFT/g foreach @txt;
|
|---|
| 50 | s/Shortcut\.GROUP_HOTKEY\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 51 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_HOTKEY/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 52 | s/Shortcut\.GROUP_HOTKEY/Shortcut\.CTRL/g foreach @txt;
|
|---|
| 53 |
|
|---|
| 54 | #LAYER ALT ALT+SHIFT SHIFT
|
|---|
| 55 | s/Shortcut\.GROUP_LAYER\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 56 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_LAYER/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 57 | s/Shortcut\.GROUP_LAYER\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 58 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_LAYER/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 59 | s/Shortcut\.GROUP_LAYER/Shortcut\.ALT/g foreach @txt;
|
|---|
| 60 |
|
|---|
| 61 |
|
|---|
| 62 | #DIRECT2 ALT ALT+SHIFT ALT+CTRL
|
|---|
| 63 | s/Shortcut\.GROUP_DIRECT2\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 64 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_DIRECT2/Shortcut\.ALT_SHIFT/g foreach @txt;
|
|---|
| 65 | s/Shortcut\.GROUP_DIRECT2\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 66 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_DIRECT2/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 67 | s/Shortcut\.GROUP_DIRECT2/Shortcut\.ALT/g foreach @txt;
|
|---|
| 68 |
|
|---|
| 69 | #DIRECT3 CTRL+SHIFT ALT+CTRL+SHIFT META+CTRL
|
|---|
| 70 |
|
|---|
| 71 | s/Shortcut\.GROUP_DIRECT3\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.ALT_CTRL_SHIFT/g foreach @txt;
|
|---|
| 72 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_DIRECT3/Shortcut\.ALT_CTRL_SHIFT/g foreach @txt;
|
|---|
| 73 | #????
|
|---|
| 74 | #s/Shortcut\.GROUP_DIRECT3\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 75 | #s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_DIRECT3/Shortcut\.ALT_CTRL/g foreach @txt;
|
|---|
| 76 | s/Shortcut\.GROUP_DIRECT3/Shortcut\.CTRL_SHIFT/g foreach @txt;
|
|---|
| 77 |
|
|---|
| 78 | #DIRECT SHIFT CTRL
|
|---|
| 79 | s/Shortcut\.GROUP_DIRECT\s*\+\s*Shortcut\.GROUPS_ALT1/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 80 | s/Shortcut\.GROUPS_ALT1\s*\+\s*Shortcut\.GROUP_DIRECT/Shortcut\.SHIFT/g foreach @txt;
|
|---|
| 81 | s/Shortcut\.GROUP_DIRECT\s*\+\s*Shortcut\.GROUPS_ALT2/Shortcut\.CTRL/g foreach @txt;
|
|---|
| 82 | s/Shortcut\.GROUPS_ALT2\s*\+\s*Shortcut\.GROUP_DIRECT/Shortcut\.CTRL/g foreach @txt;
|
|---|
| 83 | s/Shortcut\.GROUP_DIRECT/Shortcut\.DIRECT/g foreach @txt;
|
|---|
| 84 |
|
|---|
| 85 |
|
|---|
| 86 | print OUTFILE @txt;
|
|---|
| 87 | close(OUTFILE);
|
|---|
| 88 | print "OK\n"
|
|---|
| 89 | }
|
|---|
| 90 |
|
|---|
| 91 | #change $ARGV[0]
|
|---|
| 92 |
|
|---|
| 93 | use File::Find;
|
|---|
| 94 |
|
|---|
| 95 | find sub {
|
|---|
| 96 | /.*\.java\z/s && change $_
|
|---|
| 97 | }, "src";
|
|---|
| 98 |
|
|---|
| 99 |
|
|---|
| 100 | `svn diff -x --ignore-eol-style >big.patch`
|
|---|
