cvs commit: parrot assemble.pl

[thgibbs]

cvsuser     01/09/27 07:15:42

  Modified:    .        assemble.pl
  Log:
  Added case insensitive matches to hex and binary characters
  
  Courtesy of: Johnathan Scott Duff <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.49      +4 -4      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.48
  retrieving revision 1.49
  diff -u -w -r1.48 -r1.49
  --- assemble.pl       2001/09/27 03:46:05     1.48
  +++ assemble.pl       2001/09/27 14:15:41     1.49
  @@ -65,7 +65,7 @@
   # %equate maps assembler directives to their replacements.
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.48 $ "',
  +         '__VERSION__'=>'" $Revision: 1.49 $ "',
            '__LINE__' => sub { return $line },
            '__FILE__' => sub { return "\"$file\"" });
   
  @@ -126,7 +126,7 @@
     }
     
     if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.48 2001/09/27 03:46:05 thgibbs Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.49 2001/09/27 14:15:41 thgibbs Exp $ 
',"\n";
       exit;
     }
     
  @@ -616,10 +616,10 @@
         $args[$_] =~ s/[\[\]]//g;
       }
       else {
  -      if ($args[$_] =~ /^0b[01]+$/) {
  +      if ($args[$_] =~ /^0b[01]+$/i) {
           $args[$_] = from_binary( $args[$_] );
         }
  -      elsif ($args[$_] =~ /^0x?[0-9a-f]*$/) {
  +      elsif ($args[$_] =~ /^0x?[0-9a-f]*$/i) {
           $args[$_] = oct($args[$_]);
         }
       }