(FILECREATED " 4-Feb-85 19:49:29" {PHYLUM}<NOTECARDS>RELEASE1.1>FGHPATCH.;1
 1341   

      changes to:  (VARS FGHPATCHCOMS)
		   (FNS NCP.DeactivateCards))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCHCOMS)

(RPAQQ FGHPATCHCOMS
 ((FNS NCP.DeactivateCards)))
(DEFINEQ

(NCP.DeactivateCards

  (LAMBDA (IDs)                                              (* fgh: " 4-Feb-85 19:47")


          (* * Uncache all the info for any active cards in IDs.)



    (for
 ID in
 (
MKLIST
 IDs) bind
 Win (OldProc ←(
TTY.PROCESS
)) unless
 (
COND

								       ((
NOT
 (
NCP.ValidID
 ID))
									 (
NCP.ReportError
 ID 
							      " not an existing card or filebox.")
									 T))
       do
 (
COND

	    ((
NCP.ActiveCardP
 ID)
	      (
SETQ
 Win (
NC.FetchWindow
 ID))
	      (
AND
 Win (
GIVE.TTY.PROCESS
 Win))
	      (
NC.QuitCard
 ID T)
	      (
COND

		(Win (bind
 (Process ←(
WINDOWPROP
 Win (
QUOTE
 PROCESS))) until
 (
OR
 (
NULL
 Process)
										 (
PROCESS.FINISHEDP

										   Process))
			do
 (
BLOCK
))))))
       finally
 (
AND
 (
PROCESSP
 OldProc)
		    (
TTY.PROCESS
 OldProc))
	       (
RETURN
 ID))))
)
(PUTPROPS FGHPATCH COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (315 1262 (NCP.DeactivateCards 325 . 1260)))))
STOP