Ticket #13280: transform.pl

File transform.pl, 311 bytes (added by nickm, 5 years ago)
Line 
1#!/usr/bin/perl -p -w
2
3BEGIN { %vartypes = (); }
4
5if (/^[{}]/) {
6    %vartypes = ();
7}
8
9if (/^ *crypto_int(\d+) +([a-zA-Z_][_a-zA-Z0-9]*)/) {
10    $vartypes{$2} = $1;
11}
12
13if (/([a-zA-Z_][a-zA-Z_0-9]*) *<< *(\d+)/) {
14    $v = $1;
15    if (exists $vartypes{$v}) {
16        s/$v *<< *(\d+)/SHL$vartypes{$v}($v, $1)/;
17    }
18}