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");
 196
 197                 ret.append("\nBEGIN");
 198                 ret.append("\nVAR <\n\t");
 199                 ret.append("mjvm_locals := ARRAY(1,0),");
 200                 ret.append("\n\tmjvm_statics := ARRAY("+numWords+",0),");
 201                 ret.append("\n\tmjvm_arrays := < >,");
 202                 ret.append("\n\tmjvm_flag_jump := 0,");
 203                 ret.append("\n\tmjvm_objects := < >,");
 204                 ret.append("\n\tmjvm_estack := < >, mjvm_mstack := < > > :");
 205
 206                 return ret.toString();
 207         }
 208
 209         public String createAsciiString(){
 210                 StringBuilder ret = new StringBuilder("C:\"char array for ascii code conversions\";");
 211                 ret.append("\nascii := \"????????????????????????????????\"++\n");
 212                 ret.append("\" !\"++Quote++\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\";\n");
 213
 214                 return ret.toString();
 215         }
 216
 217         public String createStandardEnd(){
 218                 StringBuilder ret = new StringBuilder("SKIP\nENDVAR\n");
 219                 ret.append("\nWHERE\n");
 220
 221                 ret.append("\nFUNCT CHR(num) ==:\n");
 222                 ret.append("\t@List_To_String(< num >)\n");
 223                 ret.append("END\n");
 224
 225                 ret.append("\nPROC Print_MJ(val, format VAR)==\n");
 226                 ret.append(createComment("print spacing", C_SPEC));
 227                 ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=2 TO ");
 228                 ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n");
 229                 ret.append("\tFI;\n\tPRINFLUSH(val)\nEND\n");
 230
 231                 ret.append("\nPROC Print_MJ_CHAR(val, format VAR)==\n");
 232                 ret.append(createComment("print spacing", C_SPEC));
 233                 ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=2 TO ");
 234                 ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n");
 235                 ret.append("\tFI;\n\tPRINFLUSH(CHR(val))\n");
 236                 ret.append("END\n");
 237
 238                 ret.append("\nEND");
 239                 return ret.toString();
 240         }
 241
 242         private String createStartVar(String... vars){
 243                 StringBuilder ret = new StringBuilder("VAR < ");
 244                 ret.append(vars[0] + " := 0");
 245                 for (int i=1; i<vars.length; i++)
 246                                 ret.append(", "+ vars[i] +" := 0");
 247                 ret.append(" > : ");
 248
 249                 return ret.toString();
 250         }
 251
 252         private String createEndVar(){
 253                 return "ENDVAR;";
 254         }
 255
 256         private String createLocal(int i) {
 257                 // arrays start at 1 in WSL, so we need an offset
 258                 return "mjvm_locals[" + (i + 1) + "]";
 259         }
 260
 261         private String createStatic(int i) {
 262                 return "mjvm_statics[" + (i + 1) + "]";
 263         }
 264
 265         private String createArray(int i) {
 266                 return "mjvm_arrays[" + i + "]";
 267         }
 268
 269         private String createArray(String i) {
 270                 return "mjvm_arrays[" + i + "]";
 271         }
 272
 273         private String createObject(String i) {
 274                 return "mjvm_objects[" + i + "]";
 275         }
 276
 277         /**
 278          * Creates a WSL comment with care to quote chars.
 279          */
 280         public static String createComment(String str){
 281                 return createComment(str, C_REG);
 282         }
 283
 284         /**
 285          * Creates a WSL comment with care to quote chars, of the
 286          * given type.  Types are given as char constants. They can be
 287          * default comments, comments that contain the original code
 288          * in them, or additional comments regarding the translation
 289          * process.
 290          */
 291         public static String createComment(String str, char type) {
 292                 return "C:\"" + type + str.replace("\"", "''") + "\";";
 293         }
 294
 295         // generalised stack operations
 296
 297         private String createToStack(String stack, String var){
 298                 if (genPopPush)
 299                                 return  "PUSH("+stack+"," + var + ");";
 300                 else
 301                                 return stack + " := <" + var + " > ++ " + stack +";";
 302         }
 303
 304         private String createFromStack(String stack, String var){
 305                 if (genPopPush)
 306                         return "POP("+ var + ", "+stack+");";
 307                 else
 308                         return var + ":= HEAD("+stack+"); "+stack+" := TAIL("+stack+");";
 309         }
 310 //Expression stack
 311
 312         private String createToEStack(int i) {
 313                 return createToEStack(i+"");
 314         }
 315
 316         private String createToEStack(String i) {
 317                 String res = createToStack("mjvm_estack", i);
 318                 if (genPrintEStackOnChange)
 319                         res += "PRINT(\"eStack\",mjvm_estack);";
 320                 return res;
 321         }
 322
 323         private String createFromEStack(String st) {
 324                 String res = createFromStack("mjvm_estack",st);
 325                 if (genPrintEStackOnChange)
 326                         res += "PRINT(\"eStack\",mjvm_estack);";
 327                 return res;
 328         }
 329
 330         private String createPopEStack() {
 331                 String res = "mjvm_estack := TAIL(mjvm_estack);";
 332                 if (genPrintEStackOnChange)
 333                         res += "PRINT(\"eStack\",mjvm_estack);";
 334                 return res;
 335         }
 336
 337         private String createTopTwoEStack() {
 338                 return createFromEStack("tempa") + "\n" + createFromEStack("tempb");
 339         }
 340
 341         private String createTopEStack() {
 342                 return createFromEStack("tempa");
 343         }
 344
 345         //Method stack
 346
 347         private String createToMStack(int i) {
 348                 return createToMStack(i+"");
 349         }
 350
 351         private String createToMStack(String i) {
 352                 return createToStack("mjvm_mstack", i);
 353         }
 354
 355         private String createFromMStack(String st) {
 356                 return createFromStack("mjvm_mstack", st);
 357         }
 358
 359         private String getRelationFor(int opcode) throws Exception {
 360                 switch (opcode) {
 361                                 case jeq: return "=";
 362                                 case jne: return "<>";
 363                                 case jlt: return "<";
 364                                 case jle: return "<=";
 365                                 case jgt: return ">";
 366                                 case jge: return ">=";
 367                 }
 368                 throw new Exception("Wrong opcode for a relation");
 369         }
 370
 371         private boolean isJumpCode(int opcode) {
 372                 return (opcode >= jmp) && (opcode <= jge);
 373         }
 374
 375         public void convertStream(InputStream ins) throws Exception{
 376                 mainIn = ins;
 377                 //process start
 378                 byte m = (byte) get();
 379                 byte j = (byte) get();
 380                 if (m!='M' || j !='J')
 381                                 throw new Exception("Wrong start of bytecode file");
 382                 int codesize = get4();
 383                 int numberOfWords = get4();
 384                 int mainAdr = get4();
 385
 386                 prl(createStandardStart(numberOfWords));
 387                 prl("SKIP;\n ACTIONS a" + (14 + mainAdr) + " :");
 388                 int op = get();
 389                 while (op >= 0) {
 390                         prl(" a" + counter + " ==");
 391                         if (originalInComments)
 392                                 prl(createComment(describeOpCode(op), C_OC));
 393                         if (genPrintForEachAddress) {
 394                                 prl("PRINT(\"a" + counter + "\");");
 395                                 if (genPauseAfterEachAddress)
 396                                         prl("debug_disposable_string := @Read_Line(Standard_Input_Port);");
 397                         }
 398                         switch (op) {
 399                         case load: {
 400                                 prl(createToEStack(createLocal(get())));
 401                                 break;
 402                         }
 403                         case load_0:
 404                         case load_1:
 405                         case load_2:
 406                         case load_3: {
 407                                 prl(createStartVar("tempa"));
 408                                 prl("tempa :="+createLocal(op - load_0)+";");
 409                                 prl(createToEStack("tempa"));
 410                                 prl(createEndVar());
 411                                 break;
 412                         }
 413                         case store: {
 414                                 prl(createFromEStack(createLocal(get())));
 415                                 break;
 416                         }
 417                         case store_0:
 418                         case store_1:
 419                         case store_2:
 420                         case store_3: {
 421                                 prl(createStartVar("tempa"));
 422                                 prl(createFromEStack("tempa"));
 423                                 prl(createLocal(op - store_0)+" := tempa;");
 424                                 prl(createEndVar());
 425                                 break;
 426                         }
 427
 428                         case getstatic: {
 429                                 prl(createToEStack(createStatic(get2())));
 430                                 break;
 431                         }
 432                         case putstatic: {
 433                                 prl(createFromEStack(createStatic(get2())));
 434                                 break;
 435                         }
 436
 437                         case getfield: {
 438                                 int f = get2();
 439                                 prl(createTopEStack());
 440                                 prl(createToEStack(createObject("tempa") + "[" + (f + 1) + "]"));
 441                                 break;
 442                         }
 443                         case putfield: {
 444                                 int f = get2();
 445                                 // we need to use a temparray as a pointer, WSL
 446                                 // otherwise tries to access it as a list of lists and fails
 447                                 prl(createTopTwoEStack());
 448                                 prl("VAR < tempArray := " + createObject("tempb") + " > :");
 449                                 prl("tempArray[" + (f + 1) + "]:=tempa ENDVAR;");
 450                                 break;
 451                         }
 452
 453                         case const_: {
 454                                 prl(createToEStack(get4()));
 455                                 break;
 456                         }
 457
 458                         case const_m1: {
 459                                 prl(createToEStack(-1));
 460                                 break;
 461                         }
 462
 463                         case const_0:
 464                         case const_1:
 465                         case const_2:
 466                         case const_3:
 467                         case const_4:
 468                         case const_5: {
 469                                 prl(createToEStack(op - const_0));
 470                                 break;
 471                         }
 472
 473                         case add: {
 474                                 prl(createStartVar("tempa", "tempb", "tempres"));
 475                                 prl(createTopTwoEStack());
 476                                 prl("tempres := tempb + tempa;");
 477                                 prl(createToEStack("tempres"));
 478                                 prl(createEndVar());
 479                                 break;
 480                         }
 481                         case sub: {
 482                                 prl(createStartVar("tempa", "tempb", "tempres"));
 483                                 prl(createTopTwoEStack());
 484                                 prl("tempres := tempb - tempa;");
 485                                 prl(createToEStack("tempres"));
 486                                 prl(createEndVar());
 487                                 break;
 488                         }
 489                         case mul: {
 490                                 prl(createStartVar("tempa", "tempb", "tempres"));
 491                                 prl(createTopTwoEStack());
 492                                 prl("tempres := tempb * tempa;");
 493                                 prl(createToEStack("tempres"));
 494                                 prl(createEndVar());
 495                                 break;
 496                         }
 497                         case div: {
 498                                 prl(createStartVar("tempa", "tempb", "tempres"));
 499                                 prl(createTopTwoEStack());
 500                                 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
 501                                 prl("tempres := tempb DIV tempa;");
 502                                 prl(createToEStack("tempres"));
 503                                 prl(createEndVar());
 504                                 break;
 505                         }
 506                         case rem: {
 507                                 prl(createStartVar("tempa", "tempb", "tempres"));
 508                                 prl(createTopTwoEStack());
 509                                 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
 510                                 prl("tempres := tempb MOD tempa;");
 511                                 prl(createToEStack("tempres"));
 512                                 prl(createEndVar());
 513                                 break;
 514                         }
 515
 516                         case neg: {
 517                                 prl(createStartVar("tempa"));
 518                                 prl(createTopEStack());
 519                                 prl(createToEStack("-tempa"));
 520                                 prl(createEndVar());
 521                                 break;
 522                         }
 523
 524                         case shl: {
 525                                 prl(createStartVar("tempa", "tempb"));
 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                                 prl(createEndVar());
 532                                 break;
 533                         }
 534                         case shr: {
 535                                 prl(createStartVar("tempa", "tempb"));
 536                                 prl(createTopTwoEStack());
 537                                 prl("VAR <tempres :=tempb, i:=1 >:");
 538                                 prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres DIV 2 OD;");
 539                                 prl(createToEStack("tempres"));
 540                                 prl("ENDVAR;");
 541                                 prl(createEndVar());
 542                                 break;
 543                         }
 544
 545                         case inc: {
 546                                 int b1 = get(), b2 = get();
 547                                 prl(createLocal(b1) + " := " + createLocal(b1) + " + " + b2 + ";");
 548                                 break;
 549                         }
 550
 551                         case new_: {
 552                                 int size = get2();
 553                                 // TODO maybe objects and arrays should be in the same list?
 554                                 prl("mjvm_objects := mjvm_objects ++ < ARRAY(" + size
 555                                                 + ",0) >;");
 556                                 prl(createToEStack("LENGTH(mjvm_objects)"));
 557                                 break;
 558                         }
 559                         case newarray: {
 560                                 get();// 0 - bytes, 1 - words; ignore for now
 561                                 // TODO take into consideration 0/1
 562                                 prl(createStartVar("tempa"));
 563                                 prl(createTopEStack());
 564                                 prl("mjvm_arrays := mjvm_arrays ++ < ARRAY(tempa,0) >;");
 565                                 prl(createToEStack("LENGTH(mjvm_arrays)"));
 566                                 prl(createEndVar());
 567                                 break;
 568                         }
 569
 570                         case aload:
 571                         case baload: {
 572                                 prl(createStartVar("tempa", "tempb"));
 573                                 prl(createTopTwoEStack());
 574                                 prl(createToEStack(createArray("tempb") + "[tempa+1]"));
 575                                 prl(createEndVar());
 576                                 break;
 577                         }
 578                         case astore:
 579                         case bastore: {
 580                                 prl(createStartVar("tempa", "tempb", "tempres"));
 581                                 prl(createFromEStack("tempres"));
 582                                 prl(createTopTwoEStack());
 583                                 prl("mjvm_arrays[tempb][tempa+1]:=tempres;");
 584                                 prl(createEndVar());
 585                                 break;
 586                         }
 587                         case arraylength: {
 588                                 prl(createStartVar("tempa", "tempb"));
 589                                 prl(createTopEStack());
 590                                 prl("tempb := LENGTH("+ createArray("tempa") + ");");
 591                                 prl(createToEStack("tempb"));
 592                                 prl(createEndVar());
 593                                 break;
 594                         }
 595
 596                         case dup: {
 597                                 prl(createStartVar("tempa", "tempb"));
 598                                 prl(createTopEStack());
 599                                 prl(createToEStack("tempa"));
 600                                 prl(createToEStack("tempa"));
 601                                 prl(createEndVar());
 602                                 break;
 603                         }
 604                         case dup2: {
 605                                 prl(createStartVar("tempa", "tempb"));
 606                                 prl(createTopTwoEStack());
 607                                 prl(createToEStack("tempb"));
 608                                 prl(createToEStack("tempa"));
 609                                 prl(createToEStack("tempb"));
 610                                 prl(createToEStack("tempa"));
 611                                 prl(createEndVar());
 612                                 break;
 613                         }
 614
 615                         case pop: {
 616                                 prl(createPopEStack());
 617                                 break;
 618                         }
 619
 620                         case jmp: {
 621                                 prl("CALL a" + (counter + get2()) + ";");
 622                                 break;
 623                         }
 624
 625                         case jeq:
 626                         case jne:
 627                         case jlt:
 628                         case jle:
 629                         case jgt:
 630                         case jge: {
 631                                 prl(createStartVar("tempa", "tempb"));
 632                                 prl(createTopTwoEStack());
 633                                 prl("IF tempb " + getRelationFor(op)
 634                                                 + " tempa THEN mjvm_flag_jump := 1"
 635                                                 + " ELSE mjvm_flag_jump := 0"
 636                                                 + " FI;");
 637                                 prl(createEndVar());
 638                                 prl("IF mjvm_flag_jump = 1 THEN CALL a"
 639                                                 + (counter + get2())
 640                                                 + " ELSE CALL a" + (counter + 1)
 641                                                 + " FI;");
 642
 643                                 break;
 644                         }
 645
 646                         case call: {
 647                                 prl("CALL a" + (counter + get2()) + ";");
 648                                 break;
 649                         }
 650
 651                         case return_: {
 652                                 // we let the actions return
 653                                 // there is nothing to clean up
 654                                 prl("SKIP\n END\n b" + counter + " ==");
 655                                 break;
 656                         }
 657                         case enter: {
 658                                 int parameters = get();
 659
 660                                 int locals = get();
 661                                 prl(createToMStack("mjvm_locals"));
 662                                 prl("mjvm_locals := ARRAY(" + locals + ",0);");
 663                                 for (int i = parameters - 1; i >= 0; i--)
 664                                         prl(createFromEStack(createLocal(i)));
 665                                 break;
 666                         }
 667                         case exit: {
 668                                 prl(createFromMStack("mjvm_locals"));
 669                                 break;
 670                         }
 671
 672                         // read, print
 673                         case bread: {
 674                                 // TODO make it a char for read
 675                                 messages.message("char is read like a number", TransMessages.M_WAR);
 676                                 prl(createComment("char is read like a number", C_SPEC));
 677                         }
 678                         case read: {
 679                                 prl(createStartVar("tempa"));
 680                                 prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));");
 681                                 prl(createToEStack("tempa"));
 682                                 prl(createEndVar());
 683                                 break;
 684                         }
 685
 686                         // the prints
 687                         case bprint: {
 688                                 prl(createStartVar("tempa", "tempb"));
 689                                 prl(createTopTwoEStack());
 690                                 prl("Print_MJ_CHAR(tempb,tempa);");
 691                                 prl(createEndVar());
 692                                 break;
 693                         }
 694                         case print: {
 695                                 // TODO printing numbers needs different lengths of spacing
 696                                 prl(createStartVar("tempa", "tempb"));
 697
 698                                 prl(createTopTwoEStack());
 699                                 prl("Print_MJ(tempb,tempa);");
 700                                 prl(createEndVar());
 701                                 break;
 702                         }
 703
 704                         case trap: {
 705                                 prl("ERROR(\"Runtime error: trap(" + get() + ")\");");
 706                                 break;
 707                         }
 708
 709                         default:
 710                                 prl(createComment("unknown op error: " + op, C_ERR));
 711                                 messages.message("unknown op error: " + op, TransMessages.M_ERR);
 712                                 break;
 713                         }
 714
 715                         boolean wasJump = isJumpCode(op);
 716                         op = get();
 717                         if (op >= 0)
 718                                 if (wasJump)
 719                                         prl("SKIP\n END");
 720                                 else
 721                                         prl("CALL a" + counter + "\n END");
 722                 }
 723                 prl("SKIP\n END\nENDACTIONS;\n");
 724                 pr(createStandardEnd());
 725         }
 726
 727         public void convertFile(File f) {
 728                 try {
 729                         convertStream(new FileInputStream(f));
 730                 } catch (Exception ex) {
 731                         ex.printStackTrace();
 732                 }
 733         }
 734
 735         public void printHelp() {
 736                 printVersion();
 737                 printUsage();
 738                 printHelpOutput();
 739                 printHelpHelp();
 740         }
 741
 742         public void printLongHelp() {
 743                 printVersion();
 744                 printUsage();
 745                 System.out.println();
 746                 printHelpOutput();
 747                 System.out.println();
 748                 printHelpDirectives();
 749                 System.out.println();
 750                 printHelpGenerating();
 751                 System.out.println();
 752                 printHelpHelp();
 753         }
 754
 755         public void printHelpOutput() {
 756                 System.out.println("Output options:");
 757                 System.out.println("  --screen print output to screen");
 758                 System.out.println("  -o --oc[+-] include original code in comments");
 759                 System.out.println("  -v verbose, print warning messages");
 760                 System.out.println("  -q quiet; don't print even the error messages");
 761                 System.out.println("  -d print detailed debug messages");
 762         }
 763
 764         public void printHelpGenerating() {
 765                 System.out.println("Options for generating extra code for tracking code execution");
 766                 System.out.println("  --genEStackPrint generate print for all EStack changes");
 767                 System.out.println("  --genAddrPrint  generate prints after every address of the original code ");
 768                 System.out.println("  --genAddrPause  generate a pause after every address of the original code ");
 769                 System.out.println("  --genAddr  short for --genAddrPrint and --genAddrPause");
 770                 System.out.println("  --genAll   short for applying all code generation");
 771         }
 772
 773         public void printHelpDirectives(){
 774                 System.out.println("Alternatives for code generation:");
 775                 System.out.println("  --genPopPush generate POP/PUSH instead of TAIL/HEAD");
 776         }
 777
 778         public void printHelpHelp() {
 779                 System.out.println("Help and info options");
 780                 System.out.println("  -h basic help");
 781                 System.out.println("  --help print more detailed help");
 782                 System.out.println("  --version or -version print version and exit");
 783         }
 784
 785         public void printUsage(){
 786                 System.out.println("usage:\n\t mjc2wsl {options} filename [outfile]");
 787         }
 788
 789         public void printVersion() {
 790                 System.out.println("MicroJava bytecode to WSL converter. v " + versionN
 791                                 + ", by Doni Pracner");
 792         }
 793
 794         public String makeDefaultOutName(String inname){
 795                 String rez = inname;
 796                 if (inname.endsWith(".obj"))
 797                         rez = rez.substring(0, rez.length() - 4);
 798                 return rez + ".wsl";
 799         }
 800
 801         public void run(String[] args) {
 802                 if (args.length == 0) {
 803                         printHelp();
 804                 } else {
 805                         int i = 0;
 806                         while (i < args.length && args[i].charAt(0) == '-') {
 807                                 if (args[i].compareTo("-h") == 0) {
 808                                         printHelp();
 809                                         return;
 810                                 } else if (args[i].compareTo("--help") == 0) {
 811                                         printLongHelp();
 812                                         return;
 813                                 } else if (args[i].compareTo("--version") == 0
 814                                                 || args[i].compareTo("-version") == 0) {
 815                                         printVersion();
 816                                         return;
 817                                 } else if (args[i].compareTo("-o") == 0
 818                                                 || args[i].startsWith("--oc")) {
 819                                         if (args[i].length() == 2)
 820                                                 originalInComments = true;
 821                                         else if (args[i].length() == 5)
 822                                                 originalInComments = args[i].charAt(4) == '+';
 823                                         else
 824                                                 originalInComments = true;
 825                                 } else if (args[i].compareTo("--screen") == 0) {
 826                                         out = new PrintWriter(System.out);
 827                                 } else if (args[i].compareTo("-d") == 0) {
 828                                         messages.setPrintLevel(TransMessages.M_DEB);// print debug info
 829                                 } else if (args[i].compareTo("-v") == 0) {
 830                                         messages.setPrintLevel(TransMessages.M_WAR);// print warnings
 831                                 } else if (args[i].compareTo("-q") == 0) {
 832                                         messages.setPrintLevel(TransMessages.M_QUIET);// no printing
 833                                 } else if (args[i].compareToIgnoreCase("--genEStackPrint") == 0) {
 834                                         genPrintEStackOnChange = true;
 835                                 } else if (args[i].compareToIgnoreCase("--genAddrPause") == 0) {
 836                                         genPauseAfterEachAddress = true;
 837                                 } else if (args[i].compareToIgnoreCase("--genAddrPrint") == 0) {
 838                                         genPrintForEachAddress = true;
 839                                 } else if (args[i].compareToIgnoreCase("--genAddr") == 0) {
 840                                         genPrintForEachAddress = true;
 841                                         genPauseAfterEachAddress = true;
 842                                 } else if (args[i].compareToIgnoreCase("--genAll") == 0) {
 843                                         genPrintEStackOnChange = true;
 844                                         genPrintForEachAddress = true;
 845                                         genPauseAfterEachAddress = true;
 846                                 } else if (args[i].compareToIgnoreCase("--genPopPush") == 0) {
 847                                         genPopPush = true;
 848                                 }
 849                                 i++;
 850                         }
 851
 852                         if (i >= args.length) {
 853                                 System.out.println("no filename supplied");
 854                                 System.exit(2);
 855                         }
 856                         File f = new File(args[i]);
 857
 858                         if (i + 1 < args.length) {
 859                                 try {
 860                                         out = new PrintWriter(args[i + 1]);
 861                                 } catch (Exception e) {
 862                                         System.err.println("error in opening out file:");
 863                                         e.printStackTrace();
 864                                 }
 865                         }
 866                         if (out == null) {
 867                                 // if not set to screen, or a file, make a default filename
 868                                 try {
 869                                         out = new PrintWriter(makeDefaultOutName(args[i]));
 870                                 } catch (Exception e) {
 871                                         System.err.println("error in opening out file:");
 872                                         e.printStackTrace();
 873                                 }
 874                         }
 875                         if (f.exists()) {
 876                                 Calendar now = Calendar.getInstance();
 877                                 convertFile(f);
 878                                 long mili = Calendar.getInstance().getTimeInMillis()
 879                                                 - now.getTimeInMillis();
 880                                 System.out.println("conversion time:" + mili + " ms");
 881                                 messages.printMessageCounters();
 882                                 out.close();
 883                         } else
 884                                 System.out.println("file does not exist");
 885                 }
 886         }
 887
 888         public static void main(String[] args) {
 889                 new mjc2wsl().run(args);
 890         }
 891 }