ocaml里面的fork

let fork_parent()=
  Printf.printf("Hi,this the parent\n");
  try  Unix.wait();(); with
    Unix.Unix_error(errno,function_name,function_parameter)->
      print_string (Unix.error_message errno ) ;
      print_newline();
  | _ -> Printf.printf "Unknown Error";
  ();;

let fork_child()=
  Printf.printf "Hi,this the child\n";;

let myfork = function
    0 -> fork_child()
  | _ -> fork_parent();;

let _ =
  myfork(Unix.fork());
  exit 0

此博客中的热门博文

少写代码,多读别人写的代码

在windows下使用llvm+clang

tensorflow distributed runtime初窥