1 (* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
2 * Jagannathan, and Stephen Weeks.
3 * Copyright (C) 1997-2000 NEC Research Institute.
5 * MLton is released under a BSD-style license.
6 * See the file MLton-LICENSE for details.
9 signature C_CODEGEN_STRUCTS =
12 structure Machine: MACHINE
13 sharing Ffi.CFunction = Machine.CFunction
18 include C_CODEGEN_STRUCTS
20 val declareFFI: Machine.Chunk.t * {print: string -> unit} -> unit
21 val implementsPrim: 'a Machine.Prim.t -> bool
22 val output: {program: Machine.Program.t,
23 outputC: unit -> {file: File.t,
24 print: string -> unit,
27 val outputDeclarations: {additionalMainArgs: string list,
28 includes: string list,
29 print: string -> unit,
30 program: Machine.Program.t,