(FILECREATED "18-Mar-86 10:11:15" {DSK}<LISPFILES>NEW>NCPATHUSE.;7
 5171   

      changes to:  (VARS NCPATHUSECOMS)
		   (FILEVARS NCPATHUSECOMS)
		   (FNS NCPath.GetTerminalsFromPathCollection 
			NCPath.GetUniqueTerminalsFromPathCollection 
			NCPath.GetCardPathListsFromPathCollection NCPath.ReverseAndSeparatePaths 
			PathStepPrint PrintFSM PrintFSMNode)

      previous date: "14-Mar-86 11:13:28" {DSK}<LISPFILES>NEW>NCPATHUSE.;1)


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

(PRETTYCOMPRINT NCPATHUSECOMS)

(RPAQQ NCPATHUSECOMS
 [(FILES NCPATH NCPATHPARSE)
			(FNS NCPath.GetCardPathListsFromPathCollection 
			     NCPath.GetTerminalsFromPathCollection 
			     NCPath.GetUniqueTerminalsFromPathCollection 
			     NCPath.ReverseAndSeparatePaths PathStepPrint PrintFSM PrintFSMNode)
			(* (P (DEFPRINT (QUOTE NCPathFSM)
					(QUOTE PrintFSM))
			      (DEFPRINT (QUOTE NCPathFSMNode)
					(QUOTE PrintFSMNode))
			      (DEFPRINT (QUOTE NCPathPathStep)
					(QUOTE PathStepPrint])
(FILESLOAD NCPATH NCPATHPARSE)
(DEFINEQ

(NCPath.GetCardPathListsFromPathCollection

  [LAMBDA (PathCollection)                                   (* Newman "18-Mar-86 08:43")


          (* * This function collects a list of cards traversed by each path in PathCollection. Thus, it returns a list of 

	  lists. Each sublist is a list of all the cards traversed in a particular path.)



    (for
 Path in
 PathCollection collect
 (
CONS
 (
CAR
 (
LAST
 Path))
						      (for
 Step in
 (
CDR
 (
REVERSE
 Path))
							 collect
 (
NCPath.PathStep.End
 Step])

(NCPath.GetTerminalsFromPathCollection

  [LAMBDA (PathCollection)                                   (* Newman "18-Mar-86 08:39")


          (* * This function collects the terminal cards in a collection of paths. It is intended to assist the user in 

	  getting the results desired from what NCPath.FSM.PathCollect returns.)



    (for
 Path in
 PathCollection collect
 (
NCPath.Path.End
 Path])

(NCPath.GetUniqueTerminalsFromPathCollection

  [LAMBDA (PathCollection)                                   (* Newman "18-Mar-86 08:41")


          (* * This function is very similar to NCPath.GetTerminalsFromPathCollection, but it collects only unique terminal 

	  nodes, where the other function can collect multiple copies of the same terminal card.)



    (bind
 TempCollection for
 Path in
 PathCollection unless
 (
MEMBER
 (
NCPath.Path.End

									       Path)
									     TempCollection)
       do
 (push
 TempCollection (
NCPath.Path.End
 Path)) finally
 (
RETURN
 TempCollection])

(NCPath.ReverseAndSeparatePaths

  [LAMBDA (PathCollection)                                   (* Newman "18-Mar-86 08:47")


          (* * The results of NCPath.FSM.PathCollect is typically a list of lists, each sublist being a path in the 

	  collection. These paths share cons cells for efficiency, and are stored with the steps in the paths in reverse 

	  order. This function accepts the result of NCPath.FSM.PathCollect, and returns a list of paths with their steps in 

	  the correct order such that no cons cells are shared between paths.)



    (for
 Path in
 PathCollection collect
 (
REVERSE
 (
COPY
 Path])

(PathStepPrint

  [LAMBDA (Instance Stream)                                  (* Newman "18-Mar-86 08:47")


          (* * This function is intended to be a print definition for the NCPathPathStep datatype.)



    (
CONS
 (if
 (fetch
 (NCPathPathStep Direction) of
 Instance)
		then
 (fetch
 (NCPathPathStep Link) of
 Instance)
	      else
 (
CONCAT
 "←" (fetch
 (NCPathPathStep Link) of
 Instance)))
	    NIL])

(PrintFSM

  [LAMBDA (Instance Stream)                                  (* Newman "18-Mar-86 08:48")


          (* * This function is intended for use as a print definition for the NCPathFSM datatype.)



    (
CONS
 (
CONCAT
 "[FSM; CurrentState=" (fetch
 (NCPathFSM CurrentState) of
 Instance)
		      " InitialState="
		      (fetch
 (NCPathFSM InitialState) of
 Instance)
		      "]"])

(PrintFSMNode

  [LAMBDA (Instance Stream)                                  (* Newman " 4-Mar-86 12:43")


          (* * This function is to be the DEFPRINT function for FSMNodes)



    (
CONS
 (
CONCAT
 "[FSMNode; Predicate=" (fetch
 (NCPathFSMNode Predicate) of
 Instance)
		      " Card/Link="
		      (if
 (fetch
 (NCPathFSMNode Card/Link) of
 Instance)
			  then
 (
QUOTE
 LINK)
			else
 (
QUOTE
 CARD))
		      " Direction="
		      (if
 (fetch
 (NCPathFSMNode Direction) of
 Instance)
			  then
 (
QUOTE
 FORWARD)
			else
 (
QUOTE
 BACK))
		      " NextNodes="
		      (fetch
 (NCPathFSMNode NextNodes) of
 Instance)
		      "]"])
)



(* (P (DEFPRINT (QUOTE NCPathFSM) (QUOTE PrintFSM)) (DEFPRINT (QUOTE NCPathFSMNode) (QUOTE 
PrintFSMNode)) (DEFPRINT (QUOTE NCPathPathStep) (QUOTE PathStepPrint))))


(PUTPROPS NCPATHUSE COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1053 4918 (NCPath.GetCardPathListsFromPathCollection 1063 . 1623) (
NCPath.GetTerminalsFromPathCollection 1625 . 2047) (NCPath.GetUniqueTerminalsFromPathCollection 2049
 . 2686) (NCPath.ReverseAndSeparatePaths 2688 . 3341) (PathStepPrint 3343 . 3795) (PrintFSM 3797 . 
4212) (PrintFSMNode 4214 . 4916)))))
STOP