+ (ez-run))
+
+(defvar ez-machine-state nil
+ "Identifies the current executation state of the Z-machine.")
+
+(defun ez-run ()
+ (setq ez-machine-state 'run)
+ (while (eq ez-machine-state 'run)
+ (setq ez-machine-state (ez-execute-instr))))
+
+;;; Buffer and I/O
+;;
+
+(defvar ez-input-marker nil
+ "Marker for input position in buffer.")
+
+(defun ez-setup-buffer ()
+ (with-current-buffer (get-buffer-create "*ez*")
+ (let ((inhibit-read-only t))
+ (delete-region (point-min) (point-max)))
+ (setq-local scroll-conservatively 1)
+ (if (markerp ez-input-marker)
+ (set-marker ez-input-marker (point-max))
+ (setq ez-input-marker (point-max-marker)))
+ (goto-char (point-max))))
+
+
+(defun ez-print (string)
+ (with-current-buffer "*ez*"
+ (save-excursion
+ (goto-char ez-input-marker)
+ (insert-before-markers string))))
+
+(defun ez-enter ()
+ (interactive)
+ (with-current-buffer "*ez*"
+ (buffer-substring ez-input-marker (point-max))))
+
+;; Mode
+
+(defvar ez-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "RET") 'ez-enter)
+ map))
+
+(define-derived-mode ez-mode text-mode "ez"
+ "Major mode for EZ.")
+
+(when (fboundp 'evil-set-initial-state)
+ (evil-set-initial-state 'ez-mode 'insert))
+
+(defun ez (zfile)
+ (interactive "fEnter name of z3 story file: ")
+ (if (get-buffer "*ez*")
+ (switch-to-buffer "*ez*")
+ (switch-to-buffer "*ez*")
+ (ez-mode)
+ (ez-setup-buffer)
+ (ez-load-and-run zfile))
+ "Started EZ.")
+
+(defun ez-debug ()
+ (interactive)
+ (switch-to-buffer "*ez*")
+ (ez-mode)
+ (ez-setup-buffer)
+ (ez-load-and-run "zork1.z3"))