Changeset 176 for ccr/trunk/p/GPLXPATH.m

Timestamp:

Oct 4, 2008, 1:03:02 PM (16 years ago)

Author:

George Lilly

Message:

changes for multiple directions

File:

• ccr/trunk/p/GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLXPATH.m

@@ -433 +433 @@
  F  S H2I=$O(@IHASH@(H2I)) Q:H2I=""  D  ; FOR EACH ELEMENT OF THE HASH
  . ; W H2I_"^"_@IHASH@(H2I),!
+ . I $QS(H2I,$QL(H2I))="M" D  Q  ; SPECIAL CASE FOR MULTIPLES
+ . . W "GPLZZ",!
+ . . W $NA(@IHASH@(H2I)),!
+ . . Q  ;
  . D PUSH(IARYRTN,H2I_"^"_@IHASH@(H2I))
  . ; W @IARYRTN@(0),!