summaryrefslogtreecommitdiffstats
path: root/omkdir/omkdir.ml
diff options
context:
space:
mode:
Diffstat (limited to 'omkdir/omkdir.ml')
-rw-r--r--omkdir/omkdir.ml12
1 files changed, 12 insertions, 0 deletions
diff --git a/omkdir/omkdir.ml b/omkdir/omkdir.ml
new file mode 100644
index 0000000..4e4b053
--- /dev/null
+++ b/omkdir/omkdir.ml
@@ -0,0 +1,12 @@
+open Arg
+open Scanf
+open Printf
+open Unix
+
+let argnum = Array.length Sys.argv
+
+let _ =
+ if argnum >= 2 then
+ let _ = mkdir Sys.argv.(1) 0o755 in ()
+ else
+ Printf.printf "ERR only one argument\n" \ No newline at end of file