Add translate-from-context get function

VictorNicollet · May 13, 2012 · e9b8e5e · e9b8e5e
1 parent a5b076e
commit e9b8e5e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/adLib.ml b/src/adLib.ml
@@ -7,6 +7,8 @@ class ['key] ctx (source : 'key source) = object
   method adlib = adlib
 end
 
+let get key = 
+  Run.map (fun ctx -> ctx # adlib key) Run.context 
 
 let (!!) fmt = Printf.sprintf fmt 
 let const x _ = x

diff --git a/src/adLib.mli b/src/adLib.mli
@@ -22,6 +22,9 @@ class ['key] ctx : 'key source -> object
   method adlib : 'key source
 end
 
+(** Extract a source from the context and grab a key out of it. *)
+val get : 'key -> ('key # ctx, string) Run.t
+
 (** {2 Utilities} *)
 
 (** Alias for [Printf.sprintf]. *)