gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
bc6f4656427485f057a9bfe8e4b4676113b3d616
[mjc2wsl.git] / src / mjc2wsl.java
1 /*
2 Copyright (C) 2014 Doni Pracner
4 This file is part of mjc2wsl.
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.
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.
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.*;
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.5";
33 private TransMessages messages = new TransMessages();
35 private boolean genPauseAfterEachAddress=false,
36 genPrintForEachAddress = false,
37 genPrintEStackOnChange = false;
39 /** Constant used for marking a regular comment from the original file */
40 public static final char C_REG = ' ';
41 /**
42 * Constant used for marking when original code is inserted in the file,
43 * next to the translations
44 */
45 public static final char C_OC = '#';
46 /** Constant used for marking special messages from the translator */
47 public static final char C_SPEC = '&';
48 /** Constant used for marking error messages from the translator */
49 public static final char C_ERR = '!';
51 /** instruction code in MicroJava bytecode. */
52 public static final int
53 load = 1,
54 load_0 = 2,
55 load_1 = 3,
56 load_2 = 4,
57 load_3 = 5,
58 store = 6,
59 store_0 = 7,
60 store_1 = 8,
61 store_2 = 9,
62 store_3 = 10,
63 getstatic = 11,
64 putstatic = 12,
65 getfield = 13,
66 putfield = 14,
67 const_0 = 15,
68 const_1 = 16,
69 const_2 = 17,
70 const_3 = 18,
71 const_4 = 19,
72 const_5 = 20,
73 const_m1 = 21,
74 const_ = 22,
75 add = 23,
76 sub = 24,
77 mul = 25,
78 div = 26,
79 rem = 27,
80 neg = 28,
81 shl = 29,
82 shr = 30,
83 inc = 31,
84 new_ = 32,
85 newarray = 33,
86 aload = 34,
87 astore = 35,
88 baload = 36,
89 bastore = 37,
90 arraylength = 38,
91 pop = 39,
92 dup = 40,
93 dup2 = 41,
94 jmp = 42,
95 jeq = 43,
96 jne = 44,
97 jlt = 45,
98 jle = 46,
99 jgt = 47,
100 jge = 48,
101 call = 49,
102 return_ = 50,
103 enter = 51,
104 exit = 52,
105 read = 53,
106 print = 54,
107 bread = 55,
108 bprint = 56,
109 trap = 57;
111 private boolean originalInComments = false;
113 private HashMap<Integer,String> opMap = null;
115 private String opCodeFile = "mj-bytecodes.properties";
117 private HashMap<Integer, String> getOpMap() {
118 if (opMap == null) {
119 opMap = new HashMap<Integer, String>(60, 0.98f);
120 try {
121 BufferedReader in = new BufferedReader(new InputStreamReader(
122 getClass().getResourceAsStream(opCodeFile)));
123 String str = in.readLine();
124 while (str != null) {
125 String[] ss = str.split("=");
126 opMap.put(Integer.parseInt(ss[0]), ss[1]);
127 str = in.readLine();
129 in.close();
130 } catch (Exception ex) {
131 ex.printStackTrace();
134 return opMap;
137 public String getOpString(int op) {
138 return getOpMap().get(op);
141 public String describeOpCode(int op) {
142 return op + " (" + getOpString(op) + ")";
145 private InputStream mainIn;
146 private PrintWriter out = null;
147 private int counter = -1;
149 private void pr(int i){
150 out.print(i);
153 private void pr(char i){
154 out.print(i);
157 private void pr(String i){
158 out.print(i);
161 private void prl(String i){
162 out.println(i);
165 private int get() {
166 int res = -1;
167 try {
168 res = mainIn.read();
169 if (res >= 0)
170 res = res << 24 >>> 24;
171 } catch (IOException ex) {
172 ex.printStackTrace();
174 counter++;
175 return res;
178 private int get2() {
179 return (get() * 256 + get()) << 16 >> 16;
182 private int get4() {
183 return (get2() << 16) + (get2() << 16 >>> 16);
186 public String createStandardStart(){
187 return createStandardStart(10);
190 public String createStandardStart(int numWords){
191 StringBuilder ret = new StringBuilder(
192 "C:\" This file automatically converted from microjava bytecode\";\n"
193 +"C:\" with mjc2wsl v "+versionN+"\";\n");
195 ret.append("BEGIN ");
196 ret.append("VAR < tempa := 0, tempb := 0, tempres :=0,\n\t");
197 ret.append("mjvm_locals := ARRAY(1,0), ");
198 ret.append("\n\tmjvm_statics := ARRAY("+numWords+",0), ");
199 ret.append("\n\tmjvm_arrays := < >, ");
200 ret.append("\n\tmjvm_objects := < >, ");
201 ret.append("\n mjvm_estack := < >, mjvm_mstack := < > > : ");
203 return ret.toString();
206 public String createStandardEnd(){
207 StringBuilder ret = new StringBuilder("SKIP\nENDVAR");
208 ret.append("\nWHERE\n");
210 ret.append("\nPROC Print_MJ(val, format VAR)==\n");
211 ret.append(createComment("print spacing", C_SPEC));
213 ret.append("\n\tIF format>1 THEN\n\t\tFOR i:=2 TO ");
214 ret.append("format STEP 1 DO PRINFLUSH(\" \") OD\n");
215 ret.append("\tFI;\n\tPRINFLUSH(val)\nEND\n");
217 ret.append("\nEND\n");
219 return ret.toString();
222 private String createStartVar(String... vars){
223 StringBuilder ret = new StringBuilder("VAR < ");
224 ret.append(vars[0] + " := 0");
225 for (int i=1; i<vars.length; i++)
226 ret.append(", "+ vars[i] +" := 0");
227 ret.append(" > : ");
229 return ret.toString();
232 private String createEndVar(){
233 return "ENDVAR;";
236 private String createLocal(int i) {
237 // arrays start at 1 in WSL, so we need an offset
238 return "mjvm_locals[" + (i + 1) + "]";
241 private String createStatic(int i) {
242 return "mjvm_statics[" + (i + 1) + "]";
245 private String createArray(int i) {
246 return "mjvm_arrays[" + i + "]";
249 private String createArray(String i) {
250 return "mjvm_arrays[" + i + "]";
253 private String createObject(String i) {
254 return "mjvm_objects[" + i + "]";
257 /**
258 * Creates a WSL comment with care to quote chars.
259 */
260 public static String createComment(String str){
261 return createComment(str, C_REG);
264 /**
265 * Creates a WSL comment with care to quote chars, of the
266 * given type. Types are given as char constants. They can be
267 * default comments, comments that contain the original code
268 * in them, or additional comments regarding the translation
269 * process.
270 */
271 public static String createComment(String str, char type) {
272 return "C:\"" + type + str.replace("\"", "''") + "\";";
275 //Expression stack
277 private String createToEStack(int i) {
278 String res = "mjvm_estack := <" + i + " > ++ mjvm_estack;";
279 if (genPrintEStackOnChange)
280 res += "PRINT(\"eStack\",mjvm_estack);";
281 return res;
284 private String createToEStack(String i) {
285 String res = "mjvm_estack := <" + i + " > ++ mjvm_estack;";
286 if (genPrintEStackOnChange)
287 res += "PRINT(\"eStack\",mjvm_estack);";
288 return res;
291 private String createFromEStack(String st) {
292 String res = st
293 + " := HEAD(mjvm_estack); mjvm_estack := TAIL(mjvm_estack);";
294 if (genPrintEStackOnChange)
295 res += "PRINT(\"eStack\",mjvm_estack);";
296 return res;
299 private String createPopEStack() {
300 String res = "mjvm_estack := TAIL(mjvm_estack);";
301 if (genPrintEStackOnChange)
302 res += "PRINT(\"eStack\",mjvm_estack);";
303 return res;
306 private String createTopTwoEStack() {
307 return createFromEStack("tempa") + "\n" + createFromEStack("tempb");
310 private String createTopEStack() {
311 return createFromEStack("tempa");
314 //Method stack
316 private String createToMStack(int i) {
317 return "mjvm_mstack := <" + i + " > ++ mjvm_mstack;";
320 private String createToMStack(String i) {
321 return "mjvm_mstack := <" + i + " > ++ mjvm_mstack;";
324 private String createFromMStack(String st) {
325 return st + " := HEAD(mjvm_mstack); mjvm_mstack := TAIL(mjvm_mstack);";
328 private String getRelationFor(int opcode) throws Exception {
329 switch (opcode) {
330 case jeq: return "=";
331 case jne: return "<>";
332 case jlt: return "<";
333 case jle: return "<=";
334 case jgt: return ">";
335 case jge: return ">=";
337 throw new Exception("Wrong opcode for a relation");
340 private boolean isJumpCode(int opcode) {
341 return (opcode >= jmp) && (opcode <= jge);
344 public void convertStream(InputStream ins) throws Exception{
345 mainIn = ins;
346 //process start
347 byte m = (byte) get();
348 byte j = (byte) get();
349 if (m!='M' || j !='J')
350 throw new Exception("Wrong start of bytecode file");
351 int codesize = get4();
352 int numberOfWords = get4();
353 int mainAdr = get4();
355 prl(createStandardStart(numberOfWords));
356 prl("SKIP;\n ACTIONS a" + (14 + mainAdr) + " :");
357 int op = get();
358 while (op >= 0) {
359 if (originalInComments)
360 prl(createComment(describeOpCode(op), C_OC));
361 prl(" a" + counter + " == ");
362 if (genPrintForEachAddress) {
363 prl("PRINT(\"a" + counter + "\");");
364 if (genPauseAfterEachAddress)
365 prl("debug_disposable_string := @Read_Line(Standard_Input_Port);");
367 switch (op) {
368 case load: {
369 prl(createToEStack(createLocal(get())));
370 break;
372 case load_0:
373 case load_1:
374 case load_2:
375 case load_3: {
376 prl(createToEStack(createLocal(op - load_0)));
377 break;
379 case store: {
380 prl(createFromEStack(createLocal(get())));
381 break;
383 case store_0:
384 case store_1:
385 case store_2:
386 case store_3: {
387 prl(createFromEStack(createLocal(op - store_0)));
388 break;
391 case getstatic: {
392 prl(createToEStack(createStatic(get2())));
393 break;
395 case putstatic: {
396 prl(createFromEStack(createStatic(get2())));
397 break;
400 case getfield: {
401 int f = get2();
402 prl(createTopEStack());
403 prl(createToEStack(createObject("tempa") + "[" + (f + 1) + "]"));
404 break;
406 case putfield: {
407 int f = get2();
408 // we need to use a temparray as a pointer, WSL
409 // otherwise tries to access it as a list of lists and fails
410 prl(createTopTwoEStack());
411 prl("VAR < tempArray := " + createObject("tempb") + " > :");
412 prl("tempArray[" + (f + 1) + "]:=tempa ENDVAR;");
413 break;
416 case const_: {
417 prl(createToEStack(get4()));
418 break;
421 case const_0:
422 case const_1:
423 case const_2:
424 case const_3:
425 case const_4:
426 case const_5: {
427 prl(createToEStack(op - const_0));
428 break;
431 case add: {
432 prl(createTopTwoEStack());
433 prl("tempres := tempb + tempa;");
434 prl(createToEStack("tempres"));
435 break;
437 case sub: {
438 prl(createTopTwoEStack());
439 prl("tempres := tempb - tempa;");
440 prl(createToEStack("tempres"));
441 break;
443 case mul: {
444 prl(createTopTwoEStack());
445 prl("tempres := tempb * tempa;");
446 prl(createToEStack("tempres"));
447 break;
449 case div: {
450 prl(createStartVar("tempa", "tempb", "tempres"));
451 prl(createTopTwoEStack());
452 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
453 prl("tempres := tempb DIV tempa;");
454 prl(createToEStack("tempres"));
455 prl(createEndVar());
456 break;
458 case rem: {
459 prl(createStartVar("tempa", "tempb", "tempres"));
460 prl(createTopTwoEStack());
461 prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;");
462 prl("tempres := tempb MOD tempa;");
463 prl(createToEStack("tempres"));
464 prl(createEndVar());
465 break;
468 case neg: {
469 prl(createTopEStack());
470 prl(createToEStack("-tempa"));
471 break;
474 case shl: {
475 prl(createTopTwoEStack());
476 prl("VAR <tempres :=tempb, i:=1 >:");
477 prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres * 2 OD;");
478 prl(createToEStack("tempres"));
479 prl("ENDVAR;");
480 break;
482 case shr: {
483 prl(createTopTwoEStack());
484 prl("VAR <tempres :=tempb, i:=1 >:");
485 prl("\tFOR i:=1 TO tempa STEP 1 DO tempres := tempres DIV 2 OD;");
486 prl(createToEStack("tempres"));
487 prl("ENDVAR;");
488 break;
491 case inc: {
492 int b1 = get(), b2 = get();
493 prl(createLocal(b1) + " := " + createLocal(b1) + " + " + b2 + ";");
494 break;
497 case new_: {
498 int size = get2();
499 // TODO maybe objects and arrays should be in the same list?
500 prl("mjvm_objects := mjvm_objects ++ < ARRAY(" + size
501 + ",0) >;");
502 prl(createToEStack("LENGTH(mjvm_objects)"));
503 break;
505 case newarray: {
506 get();// 0 - bytes, 1 - words; ignore for now
507 // TODO take into consideration 0/1
508 prl(createTopEStack());
509 prl("mjvm_arrays := mjvm_arrays ++ < ARRAY(tempa,0) >;");
510 prl(createToEStack("LENGTH(mjvm_arrays)"));
511 break;
514 case aload:
515 case baload: {
516 prl(createTopTwoEStack());
517 prl(createToEStack(createArray("tempb") + "[tempa+1]"));
518 break;
520 case astore:
521 case bastore: {
522 prl(createFromEStack("tempres"));
523 prl(createTopTwoEStack());
524 // we need to use a temparray as a pointer, WSL
525 // otherwise tries to access it as a list of lists and fails
526 prl("VAR < tempArray := " + createArray("tempb") + " > :");
527 prl("tempArray[tempa+1]:=tempres ENDVAR;");
528 break;
530 case arraylength: {
531 prl(createTopEStack());
532 prl("tempb := LENGTH("+ createArray("tempa") + ");");
533 prl(createToEStack("tempb"));
534 break;
537 case dup: {
538 prl(createTopEStack());
539 prl(createToEStack("tempa"));
540 prl(createToEStack("tempa"));
541 break;
543 case dup2: {
544 prl(createTopTwoEStack());
545 prl(createToEStack("tempb"));
546 prl(createToEStack("tempa"));
547 prl(createToEStack("tempb"));
548 prl(createToEStack("tempa"));
549 break;
552 case pop: {
553 prl(createPopEStack());
554 break;
557 case jmp: {
558 prl("CALL a" + (counter + get2()) + ";");
559 break;
562 case jeq:
563 case jne:
564 case jlt:
565 case jle:
566 case jgt:
567 case jge: {
568 prl(createTopTwoEStack());
569 prl("IF tempb " + getRelationFor(op) + " tempa THEN CALL a"
570 + (counter + get2()) + " ELSE CALL a" + (counter + 1)
571 + " FI;");
572 break;
575 case call: {
576 prl("CALL a" + (counter + get2()) + ";");
577 break;
580 case return_: {
581 // we let the actions return
582 // there is nothing to clean up
583 prl("SKIP\n END\n b" + counter + " ==");
584 break;
586 case enter: {
587 int parameters = get();
589 int locals = get();
590 prl(createToMStack("mjvm_locals"));
591 prl("mjvm_locals := ARRAY(" + locals + ",0);");
592 for (int i = parameters - 1; i >= 0; i--)
593 prl(createFromEStack(createLocal(i)));
594 break;
596 case exit: {
597 prl(createFromMStack("mjvm_locals"));
598 break;
601 // read, print
602 case bread: {
603 // TODO make it a char for read
604 messages.message("char is read like a number", TransMessages.M_WAR);
605 prl(createComment("char is read like a number", C_SPEC));
607 case read: {
608 prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));");
609 prl(createToEStack("tempa"));
610 break;
613 // the prints
614 case bprint: {
615 // TODO need to make it a char on print
616 messages.message("chars will be printed as number codes", TransMessages.M_WAR);
617 prl(createComment("char will be printed as a number code",
618 C_SPEC));
620 case print: {
621 // TODO printing numbers needs different lengths of spacing
622 prl(createTopTwoEStack());
623 prl("Print_MJ(tempb,tempa);");
624 break;
627 case trap: {
628 prl("ERROR(\"Runtime error: trap(" + get() + ")\");");
629 break;
632 default:
633 prl(createComment("unknown op error: " + op, C_ERR));
634 messages.message("unknown op error: " + op, TransMessages.M_ERR);
635 break;
638 boolean wasJump = isJumpCode(op);
639 op = get();
640 if (op >= 0)
641 if (wasJump)
642 prl("SKIP\n END");
643 else
644 prl("CALL a" + counter + "\n END");
646 prl("SKIP\n END\nENDACTIONS;\n");
647 prl(createStandardEnd());
650 public void convertFile(File f) {
651 try {
652 convertStream(new FileInputStream(f));
653 } catch (Exception ex) {
654 ex.printStackTrace();
658 public void printHelp() {
659 printVersion();
660 printUsage();
661 printHelpOutput();
662 printHelpHelp();
665 public void printLongHelp() {
666 printVersion();
667 printUsage();
668 System.out.println();
669 printHelpOutput();
670 System.out.println();
671 printHelpGenerating();
672 System.out.println();
673 printHelpHelp();
676 public void printHelpOutput() {
677 System.out.println("Output options:");
678 System.out.println(" --screen print output to screen");
679 System.out.println(" -o --oc[+-] include original code in comments");
680 System.out.println(" -v verbose, print warning messages");
681 System.out.println(" -q quiet; don't print even the error messages");
682 System.out.println(" -d print detailed debug messages");
685 public void printHelpGenerating() {
686 System.out.println("Options for generating extra code for tracking code execution");
687 System.out.println(" --genEStackPrint generate print for all EStack changes");
688 System.out.println(" --genAddrPrint generate prints after every address of the original code ");
689 System.out.println(" --genAddrPause generate a pause after every address of the original code ");
690 System.out.println(" --genAddr short for --genAddrPrint and --genAddrPause");
691 System.out.println(" --genAll short for applying all code generation");
694 public void printHelpHelp() {
695 System.out.println("Help and info options");
696 System.out.println(" -h basic help");
697 System.out.println(" --help print more detailed help");
698 System.out.println(" --version or -version print version and exit");
701 public void printUsage(){
702 System.out.println("usage:\n\t mjc2wsl {options} filename [outfile]");
705 public void printVersion() {
706 System.out.println("MicroJava bytecode to WSL converter. v " + versionN
707 + ", by Doni Pracner");
710 public String makeDefaultOutName(String inname){
711 String rez = inname;
712 if (inname.endsWith(".obj"))
713 rez = rez.substring(0, rez.length() - 4);
714 return rez + ".wsl";
717 public void run(String[] args) {
718 if (args.length == 0) {
719 printHelp();
720 } else {
721 int i = 0;
722 while (i < args.length && args[i].charAt(0) == '-') {
723 if (args[i].compareTo("-h") == 0) {
724 printHelp();
725 return;
726 } else if (args[i].compareTo("--help") == 0) {
727 printLongHelp();
728 return;
729 } else if (args[i].compareTo("--version") == 0
730 || args[i].compareTo("-version") == 0) {
731 printVersion();
732 return;
733 } else if (args[i].compareTo("-o") == 0
734 || args[i].startsWith("--oc")) {
735 if (args[i].length() == 2)
736 originalInComments = true;
737 else if (args[i].length() == 5)
738 originalInComments = args[i].charAt(4) == '+';
739 else
740 originalInComments = true;
741 } else if (args[i].compareTo("--screen") == 0) {
742 out = new PrintWriter(System.out);
743 } else if (args[i].compareTo("-d") == 0) {
744 messages.setPrintLevel(TransMessages.M_DEB);// print debug info
745 } else if (args[i].compareTo("-v") == 0) {
746 messages.setPrintLevel(TransMessages.M_WAR);// print warnings
747 } else if (args[i].compareTo("-q") == 0) {
748 messages.setPrintLevel(TransMessages.M_QUIET);// no printing
749 } else if (args[i].compareToIgnoreCase("--genEStackPrint") == 0) {
750 genPrintEStackOnChange = true;
751 } else if (args[i].compareToIgnoreCase("--genAddrPause") == 0) {
752 genPauseAfterEachAddress = true;
753 } else if (args[i].compareToIgnoreCase("--genAddrPrint") == 0) {
754 genPrintForEachAddress = true;
755 } else if (args[i].compareToIgnoreCase("--genAddr") == 0) {
756 genPrintForEachAddress = true;
757 genPauseAfterEachAddress = true;
758 } else if (args[i].compareToIgnoreCase("--genAll") == 0) {
759 genPrintEStackOnChange = true;
760 genPrintForEachAddress = true;
761 genPauseAfterEachAddress = true;
763 i++;
766 if (i >= args.length) {
767 System.out.println("no filename supplied");
768 System.exit(2);
770 File f = new File(args[i]);
772 if (i + 1 < args.length) {
773 try {
774 out = new PrintWriter(args[i + 1]);
775 } catch (Exception e) {
776 System.err.println("error in opening out file:");
777 e.printStackTrace();
780 if (out == null) {
781 // if not set to screen, or a file, make a default filename
782 try {
783 out = new PrintWriter(makeDefaultOutName(args[i]));
784 } catch (Exception e) {
785 System.err.println("error in opening out file:");
786 e.printStackTrace();
789 if (f.exists()) {
790 Calendar now = Calendar.getInstance();
791 convertFile(f);
792 long mili = Calendar.getInstance().getTimeInMillis()
793 - now.getTimeInMillis();
794 System.out.println("conversion time:" + mili + " ms");
795 messages.printMessageCounters();
796 out.close();
797 } else
798 System.out.println("file does not exist");
802 public static void main(String[] args) {
803 new mjc2wsl().run(args);
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner