#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <itsme@xs4all.nl>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#

use strict;

# prints result of expression as decimal and hexadecimal numbers

if (@ARGV) {
    for my $expr (@ARGV) {
        my $value= eval($expr);
        printf("0x%08lx = %10d = %s\n", $value, $value, $expr);
    }
}
else {
    while (<>) {
        s/\s+$//;
        my $expr= $_;
        my $value= eval($expr);
        printf("0x%08lx = %10d = %s\n", $value, $value, $expr);
    }
}