Changeset f924e4b

Timestamp:

03/10/14 16:20:00 (10 years ago)

Author:

Tomasz Obrebski <obrebski@…>

Branches:

master

Children:

519eaf5

Parents:

f600a02

git-author:

Tomasz Obrebski <obrebski@…> (03/10/14 16:20:00)

git-committer:

Tomasz Obrebski <obrebski@…> (03/10/14 16:20:00)

Message:

better p format

File:

• src/tre/tre (modified) (1 diff)

src/tre/tre

@@ -233 +233 @@
 end
 
+# old:
+# def printpar(root,arcs)
+#   print nodeinfo(root)
+#   deps = arcs.select{ |a| a[0]==root }.sort{|a,b| a[1]<=>b[1] }
+#   unless deps == []
+#     print '('
+#     cont=false
+#     for arc in deps
+#       if cont then print ',' else cont=true end
+#       print arc[2],':' if $INFO =~ /l/
+#       printpar(arc[1],arcs)
+#     end
+#     print ')'
+#   end
+# end
+
 def printpar(root,arcs)
-  print nodeinfo(root)
-  deps = arcs.select{ |a| a[0]==root }.sort{|a,b| a[1]<=>b[1] }
-  unless deps == []
-    print '('
-    cont=false
-    for arc in deps
-      if cont then print ',' else cont=true end
-      print arc[2],':' if $INFO =~ /l/
-      printpar(arc[1],arcs)
-    end
+  
+  ldeps = arcs.select{|a| a[0]==root and $gphid[a[1]] < $gphid[root]}.sort{|a,b| $gphid[a[1]]<=>$gphid[b[1]] }
+  rdeps = arcs.select{|a| a[0]==root and $gphid[a[1]] > $gphid[root]}.sort{|a,b| $gphid[a[1]]<=>$gphid[b[1]] }
+
+  for arc in ldeps
+    print ' ('
+    print arc[2].upcase if $INFO =~ /l/
+    printpar(arc[1],arcs)
+    print ')'
+  end
+
+  print ' ',nodeinfo(root)
+
+  for arc in rdeps
+    print ' ('
+    print arc[2].upcase if $INFO =~ /l/
+    printpar(arc[1],arcs)
     print ')'
   end