diff options
author | Pierre Schmitz <pierre@archlinux.de> | 2011-12-03 13:29:22 +0100 |
---|---|---|
committer | Pierre Schmitz <pierre@archlinux.de> | 2011-12-03 13:29:22 +0100 |
commit | ca32f08966f1b51fcb19460f0996bb0c4048e6fe (patch) | |
tree | ec04cc15b867bc21eedca904cea9af0254531a11 /math/util.ml | |
parent | a22fbfc60f36f5f7ee10d5ae6fe347340c2ee67c (diff) |
Update to MediaWiki 1.18.0
* also update ArchLinux skin to chagnes in MonoBook
* Use only css to hide our menu bar when printing
Diffstat (limited to 'math/util.ml')
-rw-r--r-- | math/util.ml | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/math/util.ml b/math/util.ml deleted file mode 100644 index ece01605..00000000 --- a/math/util.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* vim: set sw=8 ts=8 et: *) - -(* TODO document *) -let mapjoin f l = (List.fold_left (fun a b -> a ^ (f b)) "" l) - -(* TODO document *) -let mapjoine e f = function - [] -> "" - | h::t -> (List.fold_left (fun a b -> a ^ e ^ (f b)) (f h) t) - -(* Exception used by open_out_unless_exists below *) -exception FileAlreadyExists - -(* Wrapper which raise an exception when output path already exist *) -let open_out_unless_exists path = - if Sys.file_exists path - then raise FileAlreadyExists - else open_out path - -(* *) -let run_in_other_directory tmppath cmd = - let prevdir = Sys.getcwd () in( - Sys.chdir tmppath; - let retval = Sys.command cmd in - (Sys.chdir prevdir; retval) - ) |