X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Frun.mli;h=3413cd95c0f16ab86cda09307fd91a180d173136;hp=c7c34c9da4e1880aa0669565dbb55a1b28d4e013;hb=83c90cb5eeebfffa05d0383430eb80e7905b46a0;hpb=c1b43e1dcdb3d0960dbc50db9f226d68ad30c16e

diff --git a/src/run.mli b/src/run.mli
index c7c34c9..3413cd9 100644
--- a/src/run.mli
+++ b/src/run.mli
@@ -21,5 +21,9 @@ type t
 val compute : Tree.t -> Asta.t -> t
 (** Gives the maximal run of an ASTA on a tree *)
 
+val selected_nodes : Tree.t -> Asta.t -> int list
+(** Gives a list of the positions (preorder) of selected nodes of a tree by
+    an ASTA *)
+
 val print : Format.formatter -> t -> unit
 (** Pretty printer *)