src/mjc2wsl.java

   1 /*
   2    Copyright (C) 2014  Doni Pracner
   3
   4     This file is part of mjc2wsl.
   5
   6     mjc2wsl is free software: you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation, either version 3 of the License, or
   9     (at your option) any later version.
  10
  11     mjc2wsl is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with mjc2wsl.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19 import java.io.*;
  20 import java.util.*;
  21
  22 /**
  23  * This program converts file from compiled MicroJava bytecode to WSL language
  24  * which is a part of the FermaT Transformation system. MicroJava is a subset
  25  * used in Compiler Construction courses by Hanspeter Moessenboeck, not
  26  * "Java ME".
  27  *
  28  * @author Doni Pracner, http://perun.dmi.rs/pracner http://quemaster.com
  29  */
  30 public class mjc2wsl{
  31         public static String versionN = "0.1.7";
  32
  33         private TransMessages messages = new TransMessages();
  34
  35         private boolean genPauseAfterEachAddress=false,
  36                 genPrintForEachAddress = false,
  37                 genPrintEStackOnChange = false;
  38
  39         private boolean genPopPush=false;
  40
  41         /** Constant used for marking a regular comment from the original file */
  42         public static final char C_REG = ' ';
  43         /**
  44          * Constant used for marking when original code is inserted in the file,
  45          * next to the translations
  46          */
  47         public static final char C_OC = '#';
  48         /** Constant used for marking special messages from the translator */
  49         public static final char C_SPEC = '&';
  50         /** Constant used for marking error messages from the translator */
  51         public static final char C_ERR = '!';
  52
  53         /** instruction code in MicroJava bytecode. */
  54         public static final int
  55                 load        =  1,
  56                 load_0      =  2,
  57                 load_1      =  3,
  58                 load_2      =  4,
  59                 load_3      =  5,
  60                 store       =  6,
  61                 store_0     =  7,
  62                 store_1     =  8,
  63                 store_2     =  9,
  64                 store_3     = 10,
  65                 getstatic   = 11,
  66                 putstatic   = 12,
  67                 getfield    = 13,
  68                 putfield    = 14,
  69                 const_0     = 15,
  70                 const_1     = 16,
  71                 const_2     = 17,
  72                 const_3     = 18,
  73                 const_4     = 19,
  74                 const_5     = 20,
  75                 const_m1    = 21,
  76                 const_      = 22,
  77                 add         = 23,
  78                 sub         = 24,
  79                 mul         = 25,
  80                 div         = 26,
  81                 rem         = 27,
  82                 neg         = 28,
  83                 shl         = 29,
  84                 shr         = 30,
  85                 inc         = 31,
  86                 new_        = 32,
  87                 newarray    = 33,
  88                 aload       = 34,
  89                 astore      = 35,
  90                 baload      = 36,
  91                 bastore     = 37,
  92                 arraylength = 38,
  93                 pop         = 39,
  94                 dup         = 40,
  95                 dup2        = 41,
  96                 jmp         = 42,
  97                 jeq         = 43,
  98                 jne         = 44,
  99                 jlt         = 45,
 100                 jle         = 46,
 101                 jgt         = 47,
 102                 jge         = 48,
 103                 call        = 49,
 104                 return_     = 50,
 105                 enter       = 51,
 106                 exit        = 52,
 107                 read        = 53,
 108                 print       = 54,
 109                 bread       = 55,
 110                 bprint      = 56,
 111                 trap            = 57;
 112
 113         private boolean originalInComments = false;
 114
 115         private HashMap<Integer,String> opMap = null;
 116
 117         private String opCodeFile = "mj-bytecodes.properties";
 118
 119         private HashMap<Integer, String> getOpMap() {
 120                 if (opMap == null) {
 121                         opMap = new HashMap<Integer, String>(60, 0.98f);
 122                         try {
 123                                 BufferedReader in = new BufferedReader(new InputStreamReader(
 124                                                 getClass().getResourceAsStream(opCodeFile)));
 125                                 String str = in.readLine();
 126                                 while (str != null) {
 127                                         String[] ss = str.split("=");
 128                                         opMap.put(Integer.parseInt(ss[0]), ss[1]);
 129                                         str = in.readLine();
 130                                 }
 131                                 in.close();
 132                         } catch (Exception ex) {
 133                                 ex.printStackTrace();
 134                         }
 135                 }
 136                 return opMap;
 137         }
 138
 139         public String getOpString(int op) {
 140                 return getOpMap().get(op);
 141         }
 142
 143         public String describeOpCode(int op) {
 144                 return op + " (" + getOpString(op) + ")";
 145         }
 146
 147         private InputStream mainIn;
 148         private PrintWriter out = null;
 149         private int counter = -1;
 150
 151         private void pr(int i){
 152                         out.print(i);
 153         }
 154
 155         private void pr(char i){
 156                         out.print(i);
 157         }
 158
 159         private void pr(String i){
 160                         out.print(i);
 161         }
 162
 163         private void prl(String i){
 164                         out.println(i);
 165         }
 166
 167         private int get() {
 168                 int res = -1;
 169                 try {
 170                         res = mainIn.read();
 171                         if (res >= 0)
 172                                 res = res << 24 >>> 24;
 173                 } catch (IOException ex) {
 174                         ex.printStackTrace();
 175                 }
 176                 counter++;
 177                 return res;
 178         }
 179
 180         private int get2() {
 181                 return (get() * 256 + get()) << 16 >> 16;
 182         }
 183
 184         private int get4() {
 185                 return (get2() << 16) + (get2() << 16 >>> 16);
 186         }
 187
 188         public String createStandardStart(){
 189                         return createStandardStart(10);
 190         }
 191
 192         public String createStandardStart(int numWords){
 193                 StringBuilder ret = new StringBuilder(
 194                         "C:\" This file automatically converted from microjava bytecode\";\n"
 195                         +"C:\" with mjc2wsl v "+versionN+"\";\n\n");
 196
 197                 ret.append(createAsciiString());
 198
 199                 ret.append("\nBEGIN");
 200                 ret.append("\nVAR <\n\t");
 201                 ret.append("mjvm_locals := ARRAY(1,0),");
 202                 ret.append("\n\tmjvm_statics := ARRAY("+numWords+",0),");
 203                 ret.append("\n\tmjvm_arrays := < >,");
 204                 ret.append("\n\tmjvm_flag_jump := 0,");
 205                 ret.append("\n\tmjvm_objects := < >,");
 206                 ret.append("\n\tmjvm_estack := < >, mjvm_mstack := < > > :");
 207
 208                 return ret.toString();
 209         }
 210
 211         public String createAsciiString(){
 212                 StringBuilder ret = new StringBuilder("C:\"char array for ascii code conversions\";");
 213                 ret.append("\nascii := \"????????????????????????????????\"++\n");
 214                 ret.append("\" !\"++Quote++\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\";\n");
 215
 216                 return ret.toString();
 217         }
 218
 219         public String createStandardEnd(){
 220                 StringBuilder ret = new StringBuilder("SKIP\nENDVAR\n");
 221                 ret.append("\nWHERE\n");
 222
 223                 ret.append("\nFUNCT CHR(num) ==:\n");
 224                 ret.append("\tSUBSTR(ascii,num,1)\n");
 225                 ret.append("END\n");
 226
 227                 ret.append("\nPROC Print_MJ(val, format VAR)==\n");
 228                 ret.append(createComment("print spacing", C_SPEC));
 229                 ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=2 TO ");
 230                 ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n");
 231                 ret.append("\tFI;\n\tPRINFLUSH(val)\nEND\n");
 232
 233                 ret.append("\nPROC Print_MJ_CHAR(val, format VAR)==\n");
 234                 ret.append(createComment("print spacing", C_SPEC));
 235                 ret.append("\n\tIF val=10 OR val=13 THEN\n");
 236                 ret.append("\t\tPRINT(\"\");\n");
 237                 ret.append("\tELSE\n");
 238                 ret.append("\t\tIF format>1 THEN\n\t\t\tFOR i:=2 TO ");
 239                 ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n");
 240                 ret.append("\t\tFI;\n\t\tPRINFLUSH(CHR(val))\n");
 241                 ret.append("\tFI\n");
 242                 ret.append("END\n");
 243
 244                 ret.append("\nEND");
 245                 return ret.toString();
 246         }
 247
 248         private String createStartVar(String... vars){
 249                 StringBuilder ret = new StringBuilder("VAR < ");
 250                 ret.append(vars[0] + " := 0");
 251                 for (int i=1; i<vars.length; i++)
 252                                 ret.append(", "+ vars[i] +" := 0");
 253                 ret.append(" > : ");
 254
 255                 return ret.toString();
 256         }
 257
 258         private String createEndVar(){
 259                 return "ENDVAR;";
 260         }
 261
 262         private String createLocal(int i) {
 263                 // arrays start at 1 in WSL, so we need an offset
 264                 return "mjvm_locals[" + (i + 1) + "]";
 265         }
 266
 267         private String createStatic(int i) {
 268                 return "mjvm_statics[" + (i + 1) + "]";
 269         }
 270
 271         private String createArray(int i) {
 272                 return "mjvm_arrays[" + i + "]";
 273         }
 274
 275         private String createArray(String i) {
 276                 return "mjvm_arrays[" + i + "]";
 277         }
 278
 279         private String createObject(String i) {
 280                 return "mjvm_objects[" + i + "]";
 281         }
 282
 283         /**
 284          * Creates a WSL comment with care to quote chars.
 285          */
 286         public static String createComment(String str){
 287                 return createComment(str, C_REG);
 288         }
 289
 290         /**
 291          * Creates a WSL comment with care to quote chars, of the
 292          * given type.  Types are given as char constants. They can be
 293          * default comments, comments that contain the original code
 294          * in them, or additional comments regarding the translation
 295          * process.
 296          */
 297         public static String createComment(String str, char type) {
 298                 return "C:\"" + type + str.replace("\"", "''") + "\";";
 299         }
 300
 301         // generalised stack operations
 302
 303         private String createToStack(String stack, String var){
 304                 if (genPopPush)
 305                                 return  "PUSH("+stack+"," + var + ");";
 306                 else
 307                                 return stack + " := <" + var + " > ++ " + stack +";";
 308         }
 309
 310         private String createFromStack(String stack, String var){
 311                 if (genPopPush)
 312                         return "POP("+ var + ", "+stack+");";
 313                 else
 314                         return var + ":= HEAD("+stack+"); "+stack+" := TAIL("+stack+");";
 315         }
 316 //Expression stack
 317
 318         private String createToEStack(int i) {
 319                 return createToEStack(i+"");
 320         }
 321
 322         private String createToEStack(String i) {
 323                 String res = createToStack("mjvm_estack", i);
 324                 if (genPrintEStackOnChange)
 325                         res += "PRINT(\"eStack\",mjvm_estack);";
 326                 return res;
 327         }
 328
 329         private String createFromEStack(String st) {
 330                 String res = createFromStack("mjvm_estack",st);
 331                 if (genPrintEStackOnChange)
 332                         res += "PRINT(\"eStack\",mjvm_estack);";
 333                 return res;
 334         }
 335
 336         private String createPopEStack() {
 337                 String res = "mjvm_estack := TAIL(mjvm_estack);";
 338                 if (genPrintEStackOnChange)
 339                         res += "PRINT(\"eStack\",mjvm_estack);";
 340                 return res;
 341         }
 342
 343         private String createTopTwoEStack() {
 344                 return createFromEStack("tempa") + "\n" + createFromEStack("tempb");
 345         }
 346
 347         private String createTopEStack() {
 348                 return createFromEStack("tempa");
 349         }
 350
 351         //Method stack
 352
 353         private String createToMStack(int i) {
 354                 return createToMStack(i+"");
 355         }
 356
 357         private String createToMStack(String i) {
 358                 return createToStack("mjvm_mstack", i);
 359         }
 360
 361         private String createFromMStack(String st) {
 362                 return createFromStack("mjvm_mstack", st);
 363         }
 364
 365         private String getRelationFor(int opcode) throws Exception {
 366                 switch (opcode) {
 367                                 case jeq: return "=";
 368                                 case jne: return "<>";
 369                                 case jlt: return "<";
 370                                 case jle: return "<=";
 371                                 case jgt: return ">";
 372                                 case jge: return ">=";
 373                 }
 374                 throw new Exception("Wrong opcode for a relation");
 375         }
 376
 377         private boolean isJumpCode(int opcode) {
 378                 return (opcode >= jmp) && (opcode <= jge);
 379         }
 380
 381         public void convertStream(InputStream ins) throws Exception{
 382                 mainIn = ins;
 383                 //process start
 384                 byte m = (byte) get();
 385                 byte j = (byte) get();
 386                 if (m!='M' || j !='J')
 387                                 throw new Exception("Wrong start of bytecode file");
 388                 int codesize = get4();
 389                 int numberOfWords = get4();
 390                 int mainAdr = get4();
 391
 392                 prl(createStandardStart(numberOfWords));
 393                 prl("SKIP;\n ACTIONS a" + (14 + mainAdr) + " :");
 394                 int op = get();
 395                 while (op >= 0) {
 396                         prl(" a" + counter + " ==");
 397                         if (originalInComments)
 398                                 prl(createComment(describeOpCode(op), C_OC));
 399                         if (genPrintForEachAddress) {
 400                                 prl("PRINT(\"a" + counter + "\");");
 401                                 if (genPauseAfterEachAddress)
 402                                         prl("debug_disposable_string := @Read_Line(Standard_Input_Port);");
 403                         }
 404                         switch (op) {
 405                         case load: {
 406                                 prl(createToEStack(createLocal(get())));
 407                                 break;
 408                         }
 409                         case load_0:
 410                         case load_1:
 411                         case load_2:
 412                         case load_3: {
 413                                 prl(createStartVar("tempa"));
 414                                 prl("tempa :="+createLocal(op - load_0)+";");
 415                                 prl(createToEStack("tempa"));
 416                                 prl(createEndVar());
 417                                 break;
 418                         }
 419                         case store: {
 420                                 prl(createFromEStack(createLocal(get())));
 421                                 break;
 422                         }
 423                         case store_0:
 424                         case store_1:
 425                         case store_2:
 426                         case store_3: {
 427                                 prl(createStartVar("tempa"));
 428                                 prl(createFromEStack("tempa"));
 429                                 prl(createLocal(op - store_0)+" := tempa;");
 430                                 prl(createEndVar());
 431                                 break;
 432                         }
 433
 434                         case getstatic: {
 435                                 prl(createToEStack(createStatic(get2())));
 436                                 break;
 437                         }
 438                         case putstatic: {
 439                                 prl(createFromEStack(createStatic(get2())));
 440                                 break;
 441                         }
 442
 443                         case getfield: {
 444                                 int f = get2();
 445                                 prl(createTopEStack());
 446                                 prl(createToEStack(createObject("tempa") + "[" + (f + 1) + "]"));
 447                                 break;
 448                         }
 449                         case putfield: {
 450                                 int f = get2();
 451                                 // we need to use a temparray as a pointer, WSL
 452                                 // otherwise tries to access it as a list of lists and fails
 453                                 prl(createTopTwoEStack());
 454                                 prl("VAR < tempArray := " + createObject("tempb") + " > :");
 455                                 prl("tempArray[" + (f + 1) + "]:=tempa ENDVAR;");
 456                                 break;
 457                         }
 458
 459                         case const_: {
 460                                 prl(createToEStack(get4()));
 461                                 break;
 462                         }
 463
 464                         case const_0:
 465                         case const_1:
 466                         case const_2:
 467                         case const_3:
 468                         case const_4:
 469                         case const_5: {
 470                                 prl(createToEStack(op - const_0));
 471                                 break;
 472                         }
 473
 474                         case add: {
 475                                 prl(createStartVar("tempa", "tempb", "tempres"));
 476                                 prl(createTopTwoEStack());
 477                                 prl("tempres := tempb + tempa;");
 478                                 prl(createToEStack("tempres"));
 479                                 prl(createEndVar());
 480                                 break;
 481                         }
 482                         case sub: {
 483                                 prl(createStartVar("tempa", "tempb", "tempres"));
 484                                 prl(createTopTwoEStack());
 485                                 prl("tempres := tempb - tempa;");
 486                                 prl(createToEStack("tempres"));
 487                                 prl(createEndVar());
 488                                 break;
 489                         }
 490                         case mul: {
 491                                 prl(createStartVar("tempa", "tempb", "tempres"));
 492                                 prl(createTopTwoEStack());
 493                                 prl("tempres := tempb * tempa;");
 494                                 prl(createToEStack("tempres"));
 495                                 prl(createEndVar());
 496                                 break;
 497                         }
 498                         case div: {
 499                                 prl(createStartVar("tempa", "tempb", "tempres"));
 500                                 prl(createTopTwoEStack());
 501                                 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
 502                                 prl("tempres := tempb DIV tempa;");
 503                                 prl(createToEStack("tempres"));
 504                                 prl(createEndVar());
 505                                 break;
 506                         }
 507                         case rem: {
 508                                 prl(createStartVar("tempa", "tempb", "tempres"));
 509                                 prl(createTopTwoEStack());
 510                                 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
 511                                 prl("tempres := tempb MOD tempa;");
 512                                 prl(createToEStack("tempres"));
 513                                 prl(createEndVar());
 514                                 break;
 515                         }
 516
 517                         case neg: {
 518                                 prl(createStartVar("tempa"));
 519                                 prl(createTopEStack());
 520                                 prl(createToEStack("-tempa"));
 521                                 prl(createEndVar());
 522                                 break;
 523                         }
 524
 525                         case shl: {
 526                                 prl(createTopTwoEStack());
 527                                 prl("VAR <tempres :=tempb, i:=1 >:");
 528                                 prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres * 2 OD;");
 529                                 prl(createToEStack("tempres"));
 530                                 prl("ENDVAR;");
 531                                 break;
 532                         }
 533                         case shr: {
 534                                 prl(createTopTwoEStack());
 535                                 prl("VAR <tempres :=tempb, i:=1 >:");
 536                                 prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres DIV 2 OD;");
 537                                 prl(createToEStack("tempres"));
 538                                 prl("ENDVAR;");
 539                                 break;
 540                         }
 541
 542                         case inc: {
 543                                 int b1 = get(), b2 = get();
 544                                 prl(createLocal(b1) + " := " + createLocal(b1) + " + " + b2 + ";");
 545                                 break;
 546                         }
 547
 548                         case new_: {
 549                                 int size = get2();
 550                                 // TODO maybe objects and arrays should be in the same list?
 551                                 prl("mjvm_objects := mjvm_objects ++ < ARRAY(" + size
 552                                                 + ",0) >;");
 553                                 prl(createToEStack("LENGTH(mjvm_objects)"));
 554                                 break;
 555                         }
 556                         case newarray: {
 557                                 get();// 0 - bytes, 1 - words; ignore for now
 558                                 // TODO take into consideration 0/1
 559                                 prl(createTopEStack());
 560                                 prl("mjvm_arrays := mjvm_arrays ++ < ARRAY(tempa,0) >;");
 561                                 prl(createToEStack("LENGTH(mjvm_arrays)"));
 562                                 break;
 563                         }
 564
 565                         case aload:
 566                         case baload: {
 567                                 prl(createTopTwoEStack());
 568                                 prl(createToEStack(createArray("tempb") + "[tempa+1]"));
 569                                 break;
 570                         }
 571                         case astore:
 572                         case bastore: {
 573                                 prl(createStartVar("tempa", "tempb", "tempres"));
 574                                 prl(createFromEStack("tempres"));
 575                                 prl(createTopTwoEStack());
 576                                 prl("mjvm_arrays[tempb][tempa+1]:=tempres;");
 577                                 prl(createEndVar());
 578                                 break;
 579                         }
 580                         case arraylength: {
 581                                 prl(createTopEStack());
 582                                 prl("tempb := LENGTH("+ createArray("tempa") + ");");
 583                                 prl(createToEStack("tempb"));
 584                                 break;
 585                         }
 586
 587                         case dup: {
 588                                 prl(createTopEStack());
 589                                 prl(createToEStack("tempa"));
 590                                 prl(createToEStack("tempa"));
 591                                 break;
 592                         }
 593                         case dup2: {
 594                                 prl(createTopTwoEStack());
 595                                 prl(createToEStack("tempb"));
 596                                 prl(createToEStack("tempa"));
 597                                 prl(createToEStack("tempb"));
 598                                 prl(createToEStack("tempa"));
 599                                 break;
 600                         }
 601
 602                         case pop: {
 603                                 prl(createPopEStack());
 604                                 break;
 605                         }
 606
 607                         case jmp: {
 608                                 prl("CALL a" + (counter + get2()) + ";");
 609                                 break;
 610                         }
 611
 612                         case jeq:
 613                         case jne:
 614                         case jlt:
 615                         case jle:
 616                         case jgt:
 617                         case jge: {
 618                                 prl(createStartVar("tempa", "tempb"));
 619                                 prl(createTopTwoEStack());
 620                                 prl("IF tempb " + getRelationFor(op)
 621                                                 + " tempa THEN mjvm_flag_jump := 1"
 622                                                 + " ELSE mjvm_flag_jump := 0"
 623                                                 + " FI;");
 624                                 prl(createEndVar());
 625                                 prl("IF mjvm_flag_jump = 1 THEN CALL a"
 626                                                 + (counter + get2())
 627                                                 + " ELSE CALL a" + (counter + 1)
 628                                                 + " FI;");
 629
 630                                 break;
 631                         }
 632
 633                         case call: {
 634                                 prl("CALL a" + (counter + get2()) + ";");
 635                                 break;
 636                         }
 637
 638                         case return_: {
 639                                 // we let the actions return
 640                                 // there is nothing to clean up
 641                                 prl("SKIP\n END\n b" + counter + " ==");
 642                                 break;
 643                         }
 644                         case enter: {
 645                                 int parameters = get();
 646
 647                                 int locals = get();
 648                                 prl(createToMStack("mjvm_locals"));
 649                                 prl("mjvm_locals := ARRAY(" + locals + ",0);");
 650                                 for (int i = parameters - 1; i >= 0; i--)
 651                                         prl(createFromEStack(createLocal(i)));
 652                                 break;
 653                         }
 654                         case exit: {
 655                                 prl(createFromMStack("mjvm_locals"));
 656                                 break;
 657                         }
 658
 659                         // read, print
 660                         case bread: {
 661                                 // TODO make it a char for read
 662                                 messages.message("char is read like a number", TransMessages.M_WAR);
 663                                 prl(createComment("char is read like a number", C_SPEC));
 664                         }
 665                         case read: {
 666                                 prl(createStartVar("tempa"));
 667                                 prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));");
 668                                 prl(createToEStack("tempa"));
 669                                 prl(createEndVar());
 670                                 break;
 671                         }
 672
 673                         // the prints
 674                         case bprint: {
 675                                 prl(createStartVar("tempa", "tempb"));
 676                                 prl(createTopTwoEStack());
 677                                 prl("Print_MJ_CHAR(tempb,tempa);");
 678                                 prl(createEndVar());
 679                                 break;
 680                         }
 681                         case print: {
 682                                 // TODO printing numbers needs different lengths of spacing
 683                                 prl(createStartVar("tempa", "tempb"));
 684
 685                                 prl(createTopTwoEStack());
 686                                 prl("Print_MJ(tempb,tempa);");
 687                                 prl(createEndVar());
 688                                 break;
 689                         }
 690
 691                         case trap: {
 692                                 prl("ERROR(\"Runtime error: trap(" + get() + ")\");");
 693                                 break;
 694                         }
 695
 696                         default:
 697                                 prl(createComment("unknown op error: " + op, C_ERR));
 698                                 messages.message("unknown op error: " + op, TransMessages.M_ERR);
 699                                 break;
 700                         }
 701
 702                         boolean wasJump = isJumpCode(op);
 703                         op = get();
 704                         if (op >= 0)
 705                                 if (wasJump)
 706                                         prl("SKIP\n END");
 707                                 else
 708                                         prl("CALL a" + counter + "\n END");
 709                 }
 710                 prl("SKIP\n END\nENDACTIONS;\n");
 711                 pr(createStandardEnd());
 712         }
 713
 714         public void convertFile(File f) {
 715                 try {
 716                         convertStream(new FileInputStream(f));
 717                 } catch (Exception ex) {
 718                         ex.printStackTrace();
 719                 }
 720         }
 721
 722         public void printHelp() {
 723                 printVersion();
 724                 printUsage();
 725                 printHelpOutput();
 726                 printHelpHelp();
 727         }
 728
 729         public void printLongHelp() {
 730                 printVersion();
 731                 printUsage();
 732                 System.out.println();
 733                 printHelpOutput();
 734                 System.out.println();
 735                 printHelpDirectives();
 736                 System.out.println();
 737                 printHelpGenerating();
 738                 System.out.println();
 739                 printHelpHelp();
 740         }
 741
 742         public void printHelpOutput() {
 743                 System.out.println("Output options:");
 744                 System.out.println("  --screen print output to screen");
 745                 System.out.println("  -o --oc[+-] include original code in comments");
 746                 System.out.println("  -v verbose, print warning messages");
 747                 System.out.println("  -q quiet; don't print even the error messages");
 748                 System.out.println("  -d print detailed debug messages");
 749         }
 750
 751         public void printHelpGenerating() {
 752                 System.out.println("Options for generating extra code for tracking code execution");
 753                 System.out.println("  --genEStackPrint generate print for all EStack changes");
 754                 System.out.println("  --genAddrPrint  generate prints after every address of the original code ");
 755                 System.out.println("  --genAddrPause  generate a pause after every address of the original code ");
 756                 System.out.println("  --genAddr  short for --genAddrPrint and --genAddrPause");
 757                 System.out.println("  --genAll   short for applying all code generation");
 758         }
 759
 760         public void printHelpDirectives(){
 761                 System.out.println("Alternatives for code generation:");
 762                 System.out.println("  --genPopPush generate POP/PUSH instead of TAIL/HEAD");
 763         }
 764
 765         public void printHelpHelp() {
 766                 System.out.println("Help and info options");
 767                 System.out.println("  -h basic help");
 768                 System.out.println("  --help print more detailed help");
 769                 System.out.println("  --version or -version print version and exit");
 770         }
 771
 772         public void printUsage(){
 773                 System.out.println("usage:\n\t mjc2wsl {options} filename [outfile]");
 774         }
 775
 776         public void printVersion() {
 777                 System.out.println("MicroJava bytecode to WSL converter. v " + versionN
 778                                 + ", by Doni Pracner");
 779         }
 780
 781         public String makeDefaultOutName(String inname){
 782                 String rez = inname;
 783                 if (inname.endsWith(".obj"))
 784                         rez = rez.substring(0, rez.length() - 4);
 785                 return rez + ".wsl";
 786         }
 787
 788         public void run(String[] args) {
 789                 if (args.length == 0) {
 790                         printHelp();
 791                 } else {
 792                         int i = 0;
 793                         while (i < args.length && args[i].charAt(0) == '-') {
 794                                 if (args[i].compareTo("-h") == 0) {
 795                                         printHelp();
 796                                         return;
 797                                 } else if (args[i].compareTo("--help") == 0) {
 798                                         printLongHelp();
 799                                         return;
 800                                 } else if (args[i].compareTo("--version") == 0
 801                                                 || args[i].compareTo("-version") == 0) {
 802                                         printVersion();
 803                                         return;
 804                                 } else if (args[i].compareTo("-o") == 0
 805                                                 || args[i].startsWith("--oc")) {
 806                                         if (args[i].length() == 2)
 807                                                 originalInComments = true;
 808                                         else if (args[i].length() == 5)
 809                                                 originalInComments = args[i].charAt(4) == '+';
 810                                         else
 811                                                 originalInComments = true;
 812                                 } else if (args[i].compareTo("--screen") == 0) {
 813                                         out = new PrintWriter(System.out);
 814                                 } else if (args[i].compareTo("-d") == 0) {
 815                                         messages.setPrintLevel(TransMessages.M_DEB);// print debug info
 816                                 } else if (args[i].compareTo("-v") == 0) {
 817                                         messages.setPrintLevel(TransMessages.M_WAR);// print warnings
 818                                 } else if (args[i].compareTo("-q") == 0) {
 819                                         messages.setPrintLevel(TransMessages.M_QUIET);// no printing
 820                                 } else if (args[i].compareToIgnoreCase("--genEStackPrint") == 0) {
 821                                         genPrintEStackOnChange = true;
 822                                 } else if (args[i].compareToIgnoreCase("--genAddrPause") == 0) {
 823                                         genPauseAfterEachAddress = true;
 824                                 } else if (args[i].compareToIgnoreCase("--genAddrPrint") == 0) {
 825                                         genPrintForEachAddress = true;
 826                                 } else if (args[i].compareToIgnoreCase("--genAddr") == 0) {
 827                                         genPrintForEachAddress = true;
 828                                         genPauseAfterEachAddress = true;
 829                                 } else if (args[i].compareToIgnoreCase("--genAll") == 0) {
 830                                         genPrintEStackOnChange = true;
 831                                         genPrintForEachAddress = true;
 832                                         genPauseAfterEachAddress = true;
 833                                 } else if (args[i].compareToIgnoreCase("--genPopPush") == 0) {
 834                                         genPopPush = true;
 835                                 }
 836                                 i++;
 837                         }
 838
 839                         if (i >= args.length) {
 840                                 System.out.println("no filename supplied");
 841                                 System.exit(2);
 842                         }
 843                         File f = new File(args[i]);
 844
 845                         if (i + 1 < args.length) {
 846                                 try {
 847                                         out = new PrintWriter(args[i + 1]);
 848                                 } catch (Exception e) {
 849                                         System.err.println("error in opening out file:");
 850                                         e.printStackTrace();
 851                                 }
 852                         }
 853                         if (out == null) {
 854                                 // if not set to screen, or a file, make a default filename
 855                                 try {
 856                                         out = new PrintWriter(makeDefaultOutName(args[i]));
 857                                 } catch (Exception e) {
 858                                         System.err.println("error in opening out file:");
 859                                         e.printStackTrace();
 860                                 }
 861                         }
 862                         if (f.exists()) {
 863                                 Calendar now = Calendar.getInstance();
 864                                 convertFile(f);
 865                                 long mili = Calendar.getInstance().getTimeInMillis()
 866                                                 - now.getTimeInMillis();
 867                                 System.out.println("conversion time:" + mili + " ms");
 868                                 messages.printMessageCounters();
 869                                 out.close();
 870                         } else
 871                                 System.out.println("file does not exist");
 872                 }
 873         }
 874
 875         public static void main(String[] args) {
 876                 new mjc2wsl().run(args);
 877         }
 878 }