Import Upstream version 20180207

[hcoop/debian/mlton.git] / lib / mlton / basic / pid.sml

(* Copyright (C) 2009 Matthew Fluet.
 * Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

structure Pid: PID =
   struct
      local open Posix.Process
      in
         type t = pid
         val toString = SysWord.fmt StringCvt.DEC o pidToWord
         fun fromString s =
            Option.map(Pervasive.Int.fromString s, wordToPid o SysWord.fromInt)
      end

      val layout = Layout.str o toString

      local open Posix.ProcEnv
      in
         val current = getpid
         val parent = getppid
      end

      val equals = op =
   end