;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8.; Patch-File:T -*-
;;; Patch file for Unix-Interface version 3.2
;;; Reason: unix-menu, reboot-unix, halt-unix
;;; Written 12/17/84 18:28:04 by pace,
;;; while running on Lambda Two from band 2
;;; with Experimental System 99.9, Experimental LMI-System 99.107, Experimental Local-File 51.2, Experimental FILE-Server 9.3, Experimental ZMail 54.4, Experimental Unix-Interface 3.1, Experimental MagTape 34.5, microcode 680, almost microcompiler base band GC.



; From file SDU-UTILS.LISP#> QL.UNIX; LAM3:
#8R UNIX#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "UNIX")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: UNIX; SDU-UTILS  "

(defun find-unix-op (&optional no-error)
  (dolist (op si:*other-processors*
	      (if no-error nil (ferror nil "can't find unix processor")))
    (cond ((= (si:%processor-conf-processor-type (si:op-proc-conf op)) 2)
	   (return op)))))

(defun unix-menu ()
  (setf (si:%processor-conf-boot-command (si:op-proc-conf (find-unix-op)))
	si:%proc-conf-boot-command-menu))

(defun reboot-unix ()
  (setf (si:%processor-conf-boot-command (si:op-proc-conf (find-unix-op)))
	si:%proc-conf-boot-command-boot))

(defun halt-unix ()
  (setf (si:%processor-conf-boot-command (si:op-proc-conf (find-unix-op)))
	si:%proc-conf-boot-command-halt))
))