Changeset 555

Timestamp:

02/14/09 17:12:10 (3 years ago)

Author:

mooneer

Message:

Output return value after each execution in ikt. (ticket #87)

File:

• interpreter/trunk/apps/ikt.c (modified) (3 diffs)

interpreter/trunk/apps/ikt.c

@@ -126 +126 @@
  ****************************************************************************/
 int main(int argc, char **argv) {
-    int ch, num_braces = 0, cur_line = 1, tmp_line = 0;
+    int ch, num_braces = 0, cur_line = 1, tmp_line = 0, oldstack;
     kite_vm_t *vm;
     kite_object_t *obj;
@@ -254 +254 @@
             
             thd->start = obj;
+            oldstack = thd->running_stack->length - 1;
             kite_vm_call_object(thd, thd->start, thd->start, kite_new_null(thd));
             if (thd->exception)
@@ -274 +275 @@
                 } while (fc);
             }
+            else
+            {
+                if (oldstack != (thd->running_stack->length - 1))
+                {
+                    kite_object_t *ret = kite_vm_pop(thd);
+                    kite_object_t *retstr = kite_string_object(thd, ret);
+                    printf("%s\n", KITE_GET_STRING_VALUE(retstr));
+                    kite_dereference_object(retstr);
+                    kite_dereference_object(ret);
+                }
+            }
             kite_dereference_object(obj);
         }