gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/src/mjc2wsl.java b/src/mjc2wsl.java
--- a/src/mjc2wsl.java
+++ b/src/mjc2wsl.java
}
//TODO read, print
+ case read: {
+ prl("tempa := @String_To_Num(@Read_Line(Standard_Input_Port));");
+ prl(cmdToEStack("tempa"));
+ break;
+ }
// the prints
case bprint: {
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");