X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=10e9c2c3d04fcf00f98b4f34e101a920cbf29985;hp=586397978394039c45dc3a1d512405e6b529015f;hb=d995d9ce113b413821e9187fcf4d2966d669c088;hpb=99fe23adc82fdd0ff139272ce23386e6989287db diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index 5863979..10e9c2c 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -410,7 +410,18 @@ public class mjc2wsl{ break; } - //TODO neg, shl, shr, inc + case neg :{ + prl(getTop()); + prl(cmdToEStack("-tempa")); + break; + } + //TODO shl, shr + + case inc : { + int b1 = get(), b2 = get(); + prl(loc(b1)+" := " +loc(b1)+" + "+b2+";"); + break; + } //TODO new_ newarray case new_ : get();//needs a short, but a byte will be taken bellow as well @@ -475,24 +486,24 @@ public class mjc2wsl{ } // read, print - case read:{ + case bread:{ //TODO make it a char for read message("char is read like a number", M_WAR); prl(createComment("char is read like a number",C_SPEC)); } - case bread: { + case read: { prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));"); prl(cmdToEStack("tempa")); break; } // the prints - case print:{ + case bprint:{ // TODO need to make it a char on print message("chars will be printed as number codes", M_WAR); prl(createComment("char will be printed as a number code",C_SPEC)); } - case bprint: { + case print: { // TODO printing numbers needs different lengths of spacing prl(getTopTwo()); pr(createComment("print spacing",C_SPEC));