Changeset 7383 for lang/elisp/escm/trunk/escm-vm.el

Timestamp:

03/03/08 03:20:00 (5 years ago)

Author:

lieutar

Message:

lang/elisp/escm/trunk: add some changes.

Files:

• lang/elisp/escm/trunk/escm-vm.el (modified) (4 diffs)

lang/elisp/escm/trunk/escm-vm.el

@@ -2 +2 @@
 (require 'escm-cbos)
 (require 'escm-proc)
-(require 'escm-wrapped-proc)
 
-(defconst 'escm-vm::init-hook ())
+(defconst 'escm-vm::init-hook    ())
+(defconst 'escm-vm::serial-number 0)
 (defun escm-vm-init (vm) (run-hook-with-args 'escm-vm::init-hook vm))
 
@@ -58 +58 @@
     (escm-vm::push-args vm ())))
 
+
 (defsubst escm-vm::t-call (vm)
   (let ((proc   (escm-vm::get-current-val))
@@ -69 +70 @@
     (escm-vm::set-current-pc    vm  0)
     (escm-vm::set-current-args  vm  ())))
+
 
 (defsubst escm-vm::ret (vm)
@@ -86 +88 @@
   (escm-vm::pop-args vm))
 
+
 (defsubst escm-vm::step (vm)
   (let ((pc  (escm-vm::get-current-pc vm)))
     (apply (aref (escm-vm::get-current-proc vm) pc) (list vm))
     (escm-vm::set-current-pc vm (1+ pc))))
+
+
+(defsubst escm-vm::apply (vm proc args)
+  (let ((procs  (escm-vm::get-proc-stack vm))
+        (retval (progn (escm-vm::set-proc-stack ())
+                       (escm-vm::set-current-args  vn args)
+                       (escm-vm::set-current-value vm proc)
+                       (escm-vm::call vm)
+                       (while (escm-vm::get-proc-stack vm)
+                         (escm-vm::step vm)))))
+    (escm-vm::set-proc-stack vm proc)
+    retval))