Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /branches/vis15/src/compiler/cxx-util/gen-exec-util.sml
ViewVC logotype

Annotation of /branches/vis15/src/compiler/cxx-util/gen-exec-util.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3916 - (view) (download)

1 : jhr 3912 (* gen-exec-util.sml
2 :     *
3 :     * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     *
5 :     * COPYRIGHT (c) 2016 The University of Chicago
6 :     * All rights reserved.
7 :     *)
8 :    
9 :     structure GenExecUtil : sig
10 :    
11 :     (* generate the header part of the C++ source file for standalone executables *)
12 :     val execHead : CodeOutput.t * (string * string) list -> unit
13 :    
14 :     (* generate the footer part of the C++ source file for standalone executables *)
15 : jhr 3916 val execFoot : CodeOutput.t * (string * string) list -> unit
16 : jhr 3912
17 :     end = struct
18 :    
19 :     structure Out = CodeOutput
20 :     structure CL = CLang
21 :    
22 :     fun execHead (outS, substitutions) = (
23 :     Out.decl outS (CL.verbatimDcl [Fragments.execHead] substitutions);
24 :     Out.decl outS (CL.verbatimDcl [Fragments.nrrdSaveHelper] substitutions))
25 :    
26 : jhr 3916 fun execFoot (outS, substitutions) =
27 :     Out.decl outS (CL.verbatimDcl [Fragments.execFoot] substitutions)
28 : jhr 3912
29 :     end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0