diff options
Diffstat (limited to 'omkdir/omkdir.ml')
-rw-r--r-- | omkdir/omkdir.ml | 12 |
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 |