Changeset 480

Timestamp:

Feb 6, 2004, 11:36:45 AM (21 years ago)

Author:

Gary Byers

Message:

Tweaks to the :Y command, to handle new shared-resource scheme.
Marco Baringer's :SET breakloop command, from almost a year ago.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-readloop-lds.lisp

@@ -42 +42 @@
 
 (define-toplevel-command 
-    :global y (p) "Yield control of terminal-input to process whose name or ID is <p>"
-    (let* ((proc (find-process p)))
-        (if (null proc)
-          (format t "~&;; not found - ~s" p)
-          (if (not (member proc *terminal-input-requests*))
-            (format t "~&;; process not requesting control of terminal input")
-            (%%yield-terminal-to proc)))))
+    :global y (&optional p) "Yield control of terminal-input to process
+whose name or ID matches <p>, or to any process if <p> is null"
+    (if p
+      (let* ((proc (find-process p)))
+        (%%yield-terminal-to proc)      ;may be nil
+        (%%yield-terminal-to nil))))
 
 (define-toplevel-command
@@ -69 +68 @@
                (if (and suspend-count (not (eql 0 suspend-count)))
                  (format t " (Suspended)")))
-             (if (member proc *terminal-input-requests*)
-               (format t " (Requesting terminal input)"))
+             (let* ((terminal-input-shared-resource
+                     (if (typep *terminal-io* 'two-way-stream)
+                       (input-stream-shared-resource
+                        (two-way-stream-input-stream *terminal-io*)))))
+               (if (and terminal-input-shared-resource
+                        (%shared-resource-requestor-p
+                         terminal-input-shared-resource proc))
+                 (format t " (Requesting terminal input)")))
              (fresh-line)))
       (if p
@@ -87 +92 @@
     (dotimes (i (length r) (terpri))
       (format t "~&~d. ~a" i (svref r i)))))
+
+;;; From Marco Baringer 2003/03/18
+(define-toplevel-command :break set (n frame value) "Set <n>th item of frame <frame> to <value>"
+  (let* ((frame-sp (nth-raw-frame frame *break-frame* (%current-tcr))))
+    (if frame-sp
+        (toplevel-print (list (set-nth-value-in-frame frame-sp n (%current-tcr) value)))
+        (format *debug-io* "No frame with number ~D~%" frame))))
 
 (define-toplevel-command :global ? () "help"