···

       
196
       
196
       
 
       
        | Some uid -> uid

     

       
197
       
197
       
 
       
        | None -> (Unix.getpwnam user).pw_uid)

     

       
198
       
198
       
 
       
  in

     

       
199
       
199
       
-
       
  assert (uid <> 0);

     

       
200
       
199
       
 
       
  let start_process = Condition.create () in

     

       
201
       
200
       
 
       
  let mutex = Mutex.create () in

     

       
202
       
201
       
 
       
  let pid = Atomic.make None in