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

(FILECREATED "18-Jan-88 16:26:04" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH078.;1
 2147   

      changes to%:  (VARS PMIPATCH078COMS))


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

(PRETTYCOMPRINT PMIPATCH078COMS)

(RPAQQ PMIPATCH078COMS
 ((DECLARE%: DONTCOPY (PROPS (PMIPATCH078 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH078 FILETYPE)))
                        
          
          (* ;; "pmi 1/15/88: A few programmer's interface functions that I needed for History card hacking, and thought would be of general interest:")


                        
          
          (* ;; "New for NCPROGINT")


                        (FNS NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp)))
(DECLARE%: DONTCOPY 

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

(PUTPROPS PMIPATCH078 FILETYPE
 :TCOMPL)
)



(* ;; 
"pmi 1/15/88: A few programmer's interface functions that I needed for History card hacking, and thought would be of general interest:"
)





(* ;; "New for NCPROGINT")


(DEFINEQ

(NCP.CoerceToInterestedWindow

  [LAMBDA (WinOrCardOrNoteFile)
                              (* pmi%: "21-Oct-87 15:56")

          
          (* * pmi 10/21/87%: Created to give prog int users the ability to get a 

          reasonable window from various inputs.)


    (NC.CoerceToInterestedWindow WinOrCardOrNoteFile])

(NCP.NewCardP

  [LAMBDA (Card)
                                             (* pmi%: "21-Oct-87 15:54")

          
          (* * pmi 10/21/87%: First created. Allows prog int users to tell if a card has 

          been saved yet.)


    (NC.FetchNewCardFlg Card])

(NCP.NoteFileAddProp

  [LAMBDA (NoteFile PROP NEWVALUE)
                           (* pmi%: "23-Oct-87 15:02")

          
          (* * Prog. int. way into NC.NoteFileAddProp.)


    (NC.NoteFileAddProp NoteFile PROP NEWVALUE])
)
(PUTPROPS PMIPATCH078 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1186 2064 (NCP.CoerceToInterestedWindow 1196 . 1534) (NCP.NewCardP 1536 . 1818) (
NCP.NoteFileAddProp 1820 . 2062)))))
STOP