Import Upstream version 20180207

[hcoop/debian/mlton.git] / basis-library / mlton / platform.sml

(* Copyright (C) 2003-2009 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 MLtonPlatform: MLTON_PLATFORM =
   struct
      open Primitive.MLton.Platform

      fun peek (l, f) = List.find f l
      fun omap (opt, f) = Option.map f opt

      structure Arch =
         struct
            open Arch

            val all = [
                (Alpha, "Alpha"),
                (AMD64, "AMD64"),
                (ARM, "ARM"),
                (ARM64, "ARM64"),
                (HPPA, "HPPA"),
                (IA64, "IA64"),
                (m68k, "m68k"),
                (MIPS, "MIPS"),
                (PowerPC, "PowerPC"),
                (PowerPC64, "PowerPC64"),
                (S390, "S390"),
                (Sparc, "Sparc"),
                (X86, "X86")]

            fun fromString s =
               let
                  val s = String.toLower s
               in
                  omap (peek (all, fn (_, s') => s = String.toLower s'), #1)
               end

            fun toString a = #2 (valOf (peek (all, fn (a', _) => a = a')))
         end

      structure Format =
         struct
            open Format

            val all = [
                (Archive, "Archive"),
                (Executable, "Executable"),
                (LibArchive, "LibArchive"),
                (Library, "Library")]

            fun fromString s =
               let
                  val s = String.toLower s
               in
                  omap (peek (all, fn (_, s') => s = String.toLower s'), #1)
               end

            fun toString a = #2 (valOf (peek (all, fn (a', _) => a = a')))
         end

      structure OS =
         struct
            open OS

            val all = [
                (AIX, "AIX"),
                (Cygwin, "Cygwin"),
                (Darwin, "Darwin"),
                (FreeBSD, "FreeBSD"),
                (Hurd, "Hurd"),
                (HPUX, "HPUX"),
                (Linux, "Linux"),
                (MinGW, "MinGW"),
                (NetBSD, "NetBSD"),
                (OpenBSD, "OpenBSD"),
                (Solaris, "Solaris")]

            fun fromString s =
               let
                  val s = String.toLower s
               in
                  omap (peek (all, fn (_, s') => s = String.toLower s'), #1)
               end

            fun toString a = #2 (valOf (peek (all, fn (a', _) => a = a')))
         end
   end