new sample for ArrayTesting

[mjc2wsl.git] / src / mjc2wsl.java

diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java
index 5863979..10e9c2c 100644 (file)
--- 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));