(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "31-Dec-87 11:49:25" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH300.;2
 2249   

      changes to%:  (FNS NC.DeviceVectorForHost)
                    (VARS RHTPATCH300COMS)
                    (PROPS (RHTPATCH300 MAKEFILE-ENVIRONMENT))

      previous date%: "31-Dec-87 11:48:15" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH300.;1)


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

(PRETTYCOMPRINT RHTPATCH300COMS)

(RPAQQ RHTPATCH300COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH300 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH300 FILETYPE)))
                        
          
          (* ;; "Allows notefiles to be created and opened on ns file servers.")


                        
          
          (* ;; "Change to NCDATABASE")


                        (FNS NC.DeviceVectorForHost)))
(DECLARE%: DONTCOPY 

(PUTPROPS RHTPATCH300 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS RHTPATCH300 FILETYPE
 :TCOMPL)
)



(* ;; "Allows notefiles to be created and opened on ns file servers.")





(* ;; "Change to NCDATABASE")


(DEFINEQ

(NC.DeviceVectorForHost

  [LAMBDA (Host PublicOrPrivate)
                             (* ; "Edited 31-Dec-87 11:49 by Trigg")

          
          (* ;; "Find the appropriate device vector for Host.")

          
          (* ;; "fgh 9/1/86 First created.")

          
          (* ;; "rht 12/31/87: Ripped out check for ns host in PRIVATE case.  Opening notefiles on ns hosts is okay these days.")


    (DECLARE
 (GLOBALVARS NC.DeviceVectorsHashArray NC.OpenLocalNoteFilesPublicOrPrivate))
    (if
 (NC.RemoteHostP NIL Host)
        then
 (GETHASH 'REMOTEMULTIUSER NC.DeviceVectorsHashArray)
      elseif
 [OR (AND PublicOrPrivate (EQ PublicOrPrivate 'PRIVATE))
                 (AND (NULL PublicOrPrivate)
                      (EQ NC.OpenLocalNoteFilesPublicOrPrivate 'PRIVATE]
        then
 (GETHASH 'LOCALSINGLEUSER NC.DeviceVectorsHashArray)
      else
 (GETHASH 'LOCALMULTIUSER NC.DeviceVectorsHashArray])
)
(PUTPROPS RHTPATCH300 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1202 2166 (NC.DeviceVectorForHost 1212 . 2164)))))
STOP