intl/uconv/tools/adobe.pl
author Jacob Bramley <Jacob.Bramley@arm.com>
Tue, 17 Aug 2010 15:19:31 +0100
changeset 53443 88150a1222bc9d922967a5b37ec19d214e10e702
parent 1 9b2a99adc05e53cd4010de512f50118594756650
child 98529 f4157e8c410708d76703f19e4dfb61859bfe32d8
permissions -rw-r--r--
[JAEGER] Fix ARM's long-range loads. [No bug] [r=me]

#!/usr/local/bin/perl -w
while(<STDIN>)
{
  if(/^#/)
  {
      print $_;
  }
  else 
  {
     ($a, $b, $c,$d) = /^(....)(.)(..)(.*)$/;
     print "0x" . $c . $b . "0x" . $a .  $d . "\n";
  }
}