summaryrefslogtreecommitdiff
path: root/omkdir
diff options
context:
space:
mode:
authorZoRo <dos21h@gmail.com>2020-06-27 18:02:17 +0100
committerZoRo <dos21h@gmail.com>2020-06-27 18:02:17 +0100
commit81cece0dc62e1ba9d162ab12ae361b870d74568a (patch)
treeaeb1c75ec74c1d27d616656eb3d27452105edb2f /omkdir
downloadosystem-81cece0dc62e1ba9d162ab12ae361b870d74568a.tar.gz
osystem-81cece0dc62e1ba9d162ab12ae361b870d74568a.zip
oecho,omkdir,ormdir,omkfile
Diffstat (limited to 'omkdir')
-rw-r--r--omkdir/Makefile8
-rw-r--r--omkdir/omkdir.ml12
2 files changed, 20 insertions, 0 deletions
diff --git a/omkdir/Makefile b/omkdir/Makefile
new file mode 100644
index 0000000..3ea1d08
--- /dev/null
+++ b/omkdir/Makefile
@@ -0,0 +1,8 @@
+make:
+ ocamlc unix.cma str.cma omkdir.ml -o omkdir
+
+static:
+ ocamlopt unix.cmxa -ccopt -static omkdir.ml -o omkdir
+
+clean:
+ rm -f *.cmi *.cmx *.o *.cmo \ No newline at end of file
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