diff options
Diffstat (limited to 'ormdir')
| -rw-r--r-- | ormdir/Makefile | 8 | ||||
| -rw-r--r-- | ormdir/ormdir.ml | 12 |
2 files changed, 20 insertions, 0 deletions
diff --git a/ormdir/Makefile b/ormdir/Makefile new file mode 100644 index 0000000..4ae0c5d --- /dev/null +++ b/ormdir/Makefile @@ -0,0 +1,8 @@ +make: + ocamlc unix.cma str.cma ormdir.ml -o ormdir + +static: + ocamlopt unix.cmxa -ccopt -static ormdir.ml -o ormdir + +clean: + rm -f *.cmi *.cmx *.o *.cmo
\ No newline at end of file diff --git a/ormdir/ormdir.ml b/ormdir/ormdir.ml new file mode 100644 index 0000000..db3edc2 --- /dev/null +++ b/ormdir/ormdir.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 _ = rmdir Sys.argv.(1) in () + else + Printf.printf "ERR only one argument\n"
\ No newline at end of file |