diff options
| author | ZoRo <dos21h@gmail.com> | 2020-06-27 18:02:17 +0100 |
|---|---|---|
| committer | ZoRo <dos21h@gmail.com> | 2020-06-27 18:02:17 +0100 |
| commit | 81cece0dc62e1ba9d162ab12ae361b870d74568a (patch) | |
| tree | aeb1c75ec74c1d27d616656eb3d27452105edb2f /omkfile/omkfile.ml | |
| download | osystem-81cece0dc62e1ba9d162ab12ae361b870d74568a.tar.gz osystem-81cece0dc62e1ba9d162ab12ae361b870d74568a.zip | |
oecho,omkdir,ormdir,omkfile
Diffstat (limited to 'omkfile/omkfile.ml')
| -rw-r--r-- | omkfile/omkfile.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/omkfile/omkfile.ml b/omkfile/omkfile.ml new file mode 100644 index 0000000..fbc7a6d --- /dev/null +++ b/omkfile/omkfile.ml @@ -0,0 +1,13 @@ +open Arg +open Scanf +open Printf +open Unix + +let argnum = Array.length Sys.argv + +let _ = + if argnum >= 2 then + let fd = openfile Sys.argv.(1) [Unix.O_RDWR;Unix.O_CREAT] 0o666 + in close fd + else + Printf.printf "ERR only one argument\n"
\ No newline at end of file |