omkdir/omkdir.ml


1
2
3
4
5
6
7
8
9
10
11
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"