X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=0adf8f9abfa5468e852ee6c709b60ac1216f81b5;hp=ee36c5188cf5d9f791352cd67249c4083c0dc43b;hb=c8eb38906df3f92412fcbe2e093a1546083c2859;hpb=80adcf724041ab52a9dcea93f395440332901634 diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index ee36c51..0adf8f9 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -408,6 +408,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 +426,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");