diff options
| author | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
|---|---|---|
| committer | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
| commit | e82104a755463d481667650ba4f00de535048f39 (patch) | |
| tree | 054c7de9b2992be063de2dd22b56ee5993d5a374 /otherlibs/labltk/builtin/builtin_FilePattern.ml | |
| parent | 83ca86dd2309914aa458bc25fd265f0bcadaa337 (diff) | |
Remove labltk from the distribution (will be available as a third-party library).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14077 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/builtin/builtin_FilePattern.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/builtin_FilePattern.ml | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/otherlibs/labltk/builtin/builtin_FilePattern.ml b/otherlibs/labltk/builtin/builtin_FilePattern.ml deleted file mode 100644 index ea77ff98d..000000000 --- a/otherlibs/labltk/builtin/builtin_FilePattern.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* 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)) |