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

评论

此博客中的热门博文

想换个新路由器

这几天玩快手玩的入迷

用java生tensorflow的tfrecord文件