Function: dun-dos-parse

dun-dos-parse is an interactive and byte-compiled function defined in dunnet.el.gz.

Signature

(dun-dos-parse ARGS)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
;;;;
;;;; This section defines the DOS emulation functions for dunnet
;;;;

(defun dun-dos-parse (_args)
  (interactive "*p" dun-mode)
  (beginning-of-line)
  (let (beg)
    (setq beg (+ (point) 3))
    (end-of-line)
    (if (not (= beg (point)))
	(let (line)
	  (setq line (downcase (buffer-substring beg (point))))
	  (princ line)
	  (if (eq (dun-parse2 nil dun-dos-verbs line) -1)
	      (progn
		(sleep-for 1)
		(dun-mprincl "Bad command or file name"))))
      (goto-char (point-max))
      (dun-mprinc "\n"))
    (if (eq dungeon-mode 'dos)
	(progn
	  (dun-fix-screen)
	  (dun-dos-prompt)))))