X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=512d238b9d89a98176058d8253180290c9f6021b;hp=ee36c5188cf5d9f791352cd67249c4083c0dc43b;hb=7e5b8285bb929997901cad1d834f6cd8a94f3f31;hpb=80adcf724041ab52a9dcea93f395440332901634 diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index ee36c51..512d238 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -270,9 +270,14 @@ public class mjc2wsl{ public void convertStream(InputStream ins) throws Exception{ mainIn = ins; - //skip start TODO make better - for (int i = 0; i < 14; i++) - get(); + //process start + byte m = (byte) get(); + byte j = (byte) get(); + if (m!='M' || j !='J') + throw new Exception("Wrong start of bytecode file"); + int codesize = get4(); + int numberOfWords = get4(); + int mainAdr = get4(); prl(getStandardStart()); prl("SKIP;\n ACTIONS A_S_start:\n A_S_start == CALL a14 END"); @@ -408,6 +413,11 @@ public class mjc2wsl{ } //TODO read, print + case read: { + prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));"); + prl(cmdToEStack("tempa")); + break; + } // the prints case bprint: { @@ -421,15 +431,22 @@ public class mjc2wsl{ prl("PRINT(tempb);"); break; } + + case trap: { + // TODO finish trap + prl(createComment("trap not fully procesed yet")); + message("trap not fully procesed yet", M_WAR); + get(); + break; + } + + default: prl(createComment("unknown op error: " + op, C_ERR)); message("unknown op error: "+ op, M_ERR); break; } - //TODO trap - - op = get(); if (op >= 0) prl("CALL a" + counter + " END");