diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/escape_string.ml | 1 | ||||
| -rw-r--r-- | tools/mingwpath.ml | 15 |
2 files changed, 16 insertions, 0 deletions
diff --git a/tools/escape_string.ml b/tools/escape_string.ml new file mode 100644 index 0000000000..50e8faadaa --- /dev/null +++ b/tools/escape_string.ml @@ -0,0 +1 @@ +print_string (String.escaped Sys.argv.(1)) diff --git a/tools/mingwpath.ml b/tools/mingwpath.ml new file mode 100644 index 0000000000..f01b62ccef --- /dev/null +++ b/tools/mingwpath.ml @@ -0,0 +1,15 @@ +(** Mingwpath *) + +(** Converts mingw-encoded filenames such as: + + /c/Program Files/Ocaml/bin + + to a more windows-friendly form (but still with / instead of \) : + + c:/Program Files/Ocaml/bin + + This nice hack was suggested by Benjamin Monate (cf bug #2526) + to mimic the cygwin-specific tool cygpath +*) + +print_string Sys.argv.(1) |