samples/sample0.wsl

   1 C:" This file automatically converted from microjava bytecode";
   2 C:" with mjc2wsl v 0.1";
   3 VAR < tempa := 0, tempb := 0, tempres :=0,
   4 loc0 := 0, loc1 := 0, loc2 := 0, loc3 := 0,
   5         estack := < >, t_e_m_p := 0 > :
   6 SKIP;
   7  ACTIONS A_S_start:
   8  A_S_start == CALL a14 END
   9 a15 ==
  10 C:" enter not fully procesed yet";
  11 CALL a18 END
  12 a18 ==
  13 estack := <0 > ++ estack;
  14 CALL a19 END
  15 a19 ==
  16 loc0 := HEAD(estack); estack := TAIL(estack);
  17 CALL a20 END
  18 a20 ==
  19 estack := <loc0 > ++ estack;
  20 CALL a21 END
  21 a21 ==
  22 estack := <5 > ++ estack;
  23 CALL a22 END
  24 a22 ==
  25 tempa := HEAD(estack); estack := TAIL(estack);
  26 tempb := HEAD(estack); estack := TAIL(estack);
  27 IF tempb >= tempa THEN CALL a35 FI;
  28 CALL a25 END
  29 a25 ==
  30 estack := <loc0 > ++ estack;
  31 CALL a26 END
  32 a26 ==
  33 estack := <0 > ++ estack;
  34 CALL a27 END
  35 a27 ==
  36 tempa := HEAD(estack); estack := TAIL(estack);
  37 tempb := HEAD(estack); estack := TAIL(estack);
  38 PRINT(tempb);
  39 CALL a28 END
  40 a28 ==
  41 estack := <loc0 > ++ estack;
  42 CALL a29 END
  43 a29 ==
  44 estack := <1 > ++ estack;
  45 CALL a30 END
  46 a30 ==
  47 tempa := HEAD(estack); estack := TAIL(estack);
  48 tempb := HEAD(estack); estack := TAIL(estack);
  49 tempres := tempb + tempa;
  50 estack := <tempres > ++ estack;
  51 CALL a31 END
  52 a31 ==
  53 loc0 := HEAD(estack); estack := TAIL(estack);
  54 CALL a32 END
  55 a32 ==
  56 CALL a20;
  57 CALL a35 END
  58 a35 ==
  59 C:" exit not fully procesed yet";
  60 CALL a36 END
  61 a36 ==
  62 C:" return not fully procesed yet";
  63 CALL Z;
  64 SKIP END
  65 ENDACTIONS;
  66
  67 SKIP
  68 ENDVAR