mlton/main/lookup-constant.sig

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  * Copyright (C) 1997-2000 NEC Research Institute.
   5  *
   6  * MLton is released under a BSD-style license.
   7  * See the file MLton-LICENSE for details.
   8  *)
   9
  10 signature LOOKUP_CONSTANT_STRUCTS =
  11    sig
  12       structure Const: CONST
  13       structure ConstType: CONST_TYPE
  14       structure Ffi: FFI
  15       sharing ConstType = Const.ConstType
  16    end
  17
  18 signature LOOKUP_CONSTANT =
  19    sig
  20       include LOOKUP_CONSTANT_STRUCTS
  21
  22       val build: (string * ConstType.t) list * Out.t -> unit
  23       val load:
  24          In.t * {name: string, value: string} list
  25          -> {default: string option, name: string} * ConstType.t -> Const.t
  26    end