X-Git-Url: http://git.megacz.com/?p=org.ibex.classgen.git;a=blobdiff_plain;f=src%2Forg%2Fibex%2Fclassgen%2FCGConst.java;h=e67218c9a9422e003f40c3bf337ea6145a5582de;hp=ca59d671a595e7e93d431c6d431650b8a6758cf2;hb=50a344886756b00af0e30d548a7a86822ef7e962;hpb=424a26b0bce440b239eb4977304dd7ed89e37ec8

diff --git a/src/org/ibex/classgen/CGConst.java b/src/org/ibex/classgen/CGConst.java
index ca59d67..e67218c 100644
--- a/src/org/ibex/classgen/CGConst.java
+++ b/src/org/ibex/classgen/CGConst.java
@@ -235,15 +235,15 @@ public interface CGConst {
 
 /*
 #!/usr/bin/perl -w
-@ARGV || push @ARGV,$0;
+@ARGV || push @ARGV, $0;
 my @a = ();
 while(<>) {
         chomp;
         next unless(m|byte ([A-Z0-9_]+) = .*?([0-9xA-F]+);\s+//\s*(.*)$|i);
-        my ($name,$num) = ($1,hex($2));
+        my ($name, $num) = ($1, hex($2));
         $_ = $3;
         my $n = 1<<5;
-        $n |= s/^(\d+)// ? $1 : (s/^V//||die,7);
+        $n |= s/^(\d+)// ? $1 : (s/^V//||die, 7);
         $n |= (1<<4) if(s/^C//);
         $n |= (1<<3) if(s/^B//);
         die if(/./);
@@ -251,7 +251,7 @@ while(<>) {
 }
 print "private static final byte[] OP_DATA = {\n\t";
 for(my $i=0;$i<256;$i++) {
-        printf "0x%02x%s", $a[$i]||1, $i==255?"\n};\n":($i%16)==15?",\n\t":", ";
+        printf "0x%02x%s", $a[$i]||1, $i==255?"\n};\n":($i%16)==15?", \n\t":", ";
 }
 __END__
 */