[270] | 1 | // Porting from
|
---|
| 2 | // https://github.com/jeanlazarou/blockly2ruby
|
---|
| 3 | // Copyright (c) 2014 Jean Lazarou
|
---|
| 4 | // MIT Lisence
|
---|
| 5 | using System;
|
---|
| 6 | using Bridge;
|
---|
| 7 | using System.Collections.Generic;
|
---|
| 8 |
|
---|
| 9 | namespace WebMrbc
|
---|
| 10 | {
|
---|
| 11 | partial class Ruby
|
---|
| 12 | {
|
---|
| 13 | public node procedures_defreturn(ProceduresDefBlock block)
|
---|
| 14 | {
|
---|
| 15 | var lv = local_switch();
|
---|
| 16 |
|
---|
| 17 | var args = new arg_node[0];
|
---|
| 18 | for (var x = 0; x < block.arguments_.Length; x++) {
|
---|
| 19 | args.Push(new arg_node(this, local_add_f(block.arguments_[x])));
|
---|
| 20 | }
|
---|
| 21 | var funcName = intern(block.getFieldValue("NAME"));
|
---|
| 22 | var branch = statementToCode(block, "STACK");
|
---|
| 23 | var returnValue = valueToCode(block, "RETURN");
|
---|
| 24 | if (returnValue == null) {
|
---|
| 25 | returnValue = new return_node(this, returnValue);
|
---|
| 26 | }
|
---|
| 27 | ((begin_node)branch).progs.Push(returnValue);
|
---|
| 28 | var code = new def_node(this, funcName, args, branch);
|
---|
| 29 |
|
---|
| 30 | local_resume(lv);
|
---|
| 31 |
|
---|
| 32 | return code;
|
---|
| 33 | }
|
---|
| 34 |
|
---|
| 35 | // Defining a procedure without a return value uses the same generator as
|
---|
| 36 | // a procedure with a return value.
|
---|
| 37 | public node procedures_defnoreturn(ProceduresDefnoreturnBlock block)
|
---|
| 38 | {
|
---|
| 39 | return procedures_defreturn(block);
|
---|
| 40 | }
|
---|
| 41 |
|
---|
| 42 | public node procedures_callreturn(ProceduresCallreturnBlock block)
|
---|
| 43 | {
|
---|
| 44 | // Call a procedure with a return value.
|
---|
| 45 | var funcName = intern(block.getFieldValue("NAME"));
|
---|
| 46 | var args = new node[0];
|
---|
| 47 | for (var x = 0; x < block.arguments_.Length; x++) {
|
---|
| 48 | args.Push(valueToCode(block, "ARG" + x));
|
---|
| 49 | if (args[x] == null)
|
---|
| 50 | args[x] = new nil_node(this);
|
---|
| 51 | }
|
---|
| 52 | return new fcall_node(this, funcName, args, null);
|
---|
| 53 | }
|
---|
| 54 |
|
---|
| 55 | public node procedures_callnoreturn(ProceduresCallnoreturnBlock block)
|
---|
| 56 | {
|
---|
| 57 | // Call a procedure with no return value.
|
---|
| 58 | var funcName = intern(block.getFieldValue("NAME"));
|
---|
| 59 | var args = new node[0];
|
---|
| 60 | for (var x = 0; x < block.arguments_.Length; x++) {
|
---|
| 61 | args.Push(valueToCode(block, "ARG" + x));
|
---|
| 62 | if (args[x] == null)
|
---|
| 63 | args[x] = new nil_node(this);
|
---|
| 64 | }
|
---|
| 65 | return new fcall_node(this, funcName, args, null);
|
---|
| 66 | }
|
---|
| 67 |
|
---|
| 68 | public node procedures_ifreturn(ProceduresIfreturnBlock block)
|
---|
| 69 | {
|
---|
| 70 | // Conditionally return value from a procedure.
|
---|
| 71 | var condition = valueToCode(block, "CONDITION");
|
---|
| 72 | if (condition == null) condition = new false_node(this);
|
---|
| 73 | node code = null;
|
---|
| 74 | if (block.hasReturnValue_) {
|
---|
| 75 | var value = valueToCode(block, "VALUE");
|
---|
| 76 | if (value == null) value = new nil_node(this);
|
---|
| 77 | code = new return_node(this, value);
|
---|
| 78 | }
|
---|
| 79 | else {
|
---|
| 80 | code = new return_node(this, null);
|
---|
| 81 | }
|
---|
| 82 | return new if_node(this, condition, code, null, false);
|
---|
| 83 | }
|
---|
| 84 | }
|
---|
| 85 | }
|
---|