Function: dun-unix-parse

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

Signature

(dun-unix-parse ARGS)

Key Bindings

Source Code

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

(defun dun-unix-parse (_args)
  (interactive "*p" dun-mode)
  (beginning-of-line)
  (let (beg esign)
    (setq beg (+ (point) 2))
    (end-of-line)
    (if (and (not (= beg (point)))
	     (string= "$" (buffer-substring (- beg 2) (- beg 1))))
	(progn
	  (setq dun-line (downcase (buffer-substring beg (point))))
	  (princ dun-line)
	  (if (eq (dun-parse2 nil dun-unix-verbs dun-line) -1)
	      (progn
		(if (setq esign (string-search "=" dun-line))
		    (dun-doassign dun-line esign)
		  (dun-mprinc (car dun-line-list))
		  (dun-mprincl ": not found.")))))
      (goto-char (point-max))
      (dun-mprinc "\n"))
    (if (eq dungeon-mode 'unix)
	(progn
	  (dun-fix-screen)
	  (dun-mprinc "$ ")))))