Function: dun-cat

dun-cat is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-cat ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
(defun dun-cat (args)
  (cond
   ((null (setq args (car args)))
    (dun-mprincl "Usage: cat <ascii-file-name>"))
   ((string-search "/" args)
    (dun-mprincl "cat: only files in current directory allowed."))
   ((and (> dun-cdroom 0) (string= args "description"))
    (dun-mprincl (car (nth dun-cdroom dun-rooms))))
   ((string-match "\\.o" args)
    (let ((doto (match-beginning 0)) checklist)
      (if (= dun-cdroom -10)
          (setq checklist dun-inventory)
        (setq checklist (nth dun-cdroom dun-room-objects)))
      (if (member (cdr (assq (intern (substring args 0 doto)) dun-objnames))
                  checklist)
          (dun-mprincl "Ascii files only.")
        (dun-mprincl "File not found."))))
   ((assq (intern args) dun-unix-verbs)
    (dun-mprincl "Ascii files only."))
   (t (dun-mprincl "File not found."))))