(FILECREATED " 5-Sep-86 21:23:51" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH104.;1
 2540   

      changes to:  (VARS RHTPATCH104COMS)
		   (FNS NC.MakeLinkIndex))


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

(PRETTYCOMPRINT RHTPATCH104COMS)

(RPAQQ RHTPATCH104COMS
 ((* * Change to NCLINKINDEXCARD)
			  (FNS NC.MakeLinkIndex)))
(* * Change to NCLINKINDEXCARD)


(DEFINEQ

(NC.MakeLinkIndex

  (LAMBDA (Card Title NoDisplayFlg SpecialArgsList)          (* rht: " 5-Sep-86 21:22")


          (* * Gather all instances of a given set of linktypes, printing the titles of cards at the from and to ends of the 

	  link.)




          (* * rht 10/24/84: Now callable from Programmer's interface. If NoDisplayFlg it non-nil, then will build LinkIndex 

	  invisibly. If SpecialArgsList is non-nil, then should be list of (<linklabels> <backpointersP>))




          (* * rht 9/21/85: Now uses stylesheet for LinkIndexSpecs. Broke out workhorse code into the function 

	  NC.ComputeLinkIndex)




          (* * fgh 11/17/85 Updated to handle Card objects.)




          (* * rht 4/11/86: Took out call to NCP.AddTitleBarMenuItems. Now done in NC.AddLinkIndexCard.

	  Also changed to call NC.ApplySuper.)




          (* * rht 9/5/86: Now bails out properly if user aborts in stylesheet.)



    (
PROG
 (IndexCard Window WindowOrCard (LinkLabels (
CAR
 SpecialArgsList))
		       (BackLinksFlg (
CADR
 SpecialArgsList))
		       LinkIndexSpecs)
	    (
SPAWN.MOUSE
)
	    (
SETQ
 WindowOrCard (NC.ApplySupersFn MakeFn Card (
CONCAT
 "Link Index: " (
DATE
))
						   NoDisplayFlg))
	    (if
 NoDisplayFlg
		then
 (
SETQ
 Window NIL)
		       (
SETQ
 IndexCard WindowOrCard)
	      else
 (
SETQ
 Window WindowOrCard)
		     (
SETQ
 IndexCard (
NC.CoerceToCard
 WindowOrCard)))
	    (if
 (
NOT
 NoDisplayFlg)
		then
 (
SETQ
 LinkIndexSpecs (
NC.AskLinkIndexSpecs
 Window LinkLabels BackLinksFlg 
								      T))
		       (if
 (
NULL
 LinkIndexSpecs)
			   then
 (
NC.DeleteNoteCards
 IndexCard T NIL NIL T T)
				  (
RETURN
 NIL))
		       (
SETQ
 LinkLabels (
CAR
 LinkIndexSpecs))
		       (
SETQ
 BackLinksFlg (
CADR
 LinkIndexSpecs)))
	    (
NC.ComputeLinkIndex
 IndexCard LinkLabels BackLinksFlg)
	    (
RETURN
 (if
 NoDisplayFlg
			  then
 IndexCard
			else
 (
NC.ClearMsg
 Window T)
			       Window)))))
)
(PUTPROPS RHTPATCH104 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (391 2458 (NC.MakeLinkIndex 401 . 2456)))))
STOP