merge the branch mltk

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4745 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 20 insertions, 0 deletions

diff --git a/otherlibs/labltk/builtin/builtin_FilePattern.ml b/otherlibs/labltk/builtin/builtin_FilePattern.ml
new file mode 100644
index 000000000..f7dd1d60e
--- /dev/null
+++ b/otherlibs/labltk/builtin/builtin_FilePattern.ml
@@ -0,0 +1,20 @@
+(* File patterns *)
+(* type *)
+type filePattern = {
+    typename : string;
+    extensions : string list;
+    mactypes : string list
+  } 
+(* /type *)
+
+let cCAMLtoTKfilePattern fp =
+  let typename = TkQuote (TkToken fp.typename) in
+  let extensions =
+    TkQuote (TkTokenList (List.map (fun x -> TkToken x) fp.extensions)) in
+  let mactypes =
+    match fp.mactypes with
+    | [] -> []
+    | [s] -> [TkToken s]
+    | _ -> [TkQuote (TkTokenList (List.map (fun x -> TkToken x) fp.mactypes))]
+  in
+  TkQuote (TkTokenList (typename :: extensions :: mactypes))