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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/options/target-options.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/options/target-options.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

branches/vis15/src/compiler/options/target.sml revision 3811, Wed May 4 01:14:18 2016 UTC branches/vis15/src/compiler/options/target-options.sml revision 3812, Wed May 4 13:16:31 2016 UTC
# Line 1  Line 1 
1  (* target.sml  (* target-options.sml
2   *   *
3   * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)   * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4   *   *
# Line 8  Line 8 
8   * Utility support for target selection, etc.   * Utility support for target selection, etc.
9   *)   *)
10    
11  structure Target =  structure TargetOptions =
12    struct    struct
13    
14      datatype target      datatype platform
15        = SEQUENTIAL      (* sequential C code *)        = SEQUENTIAL      (* sequential code for the CPU *)
16        | PARALLEL        (* parallel C code *)        | PARALLEL        (* parallel code for the CPU *)
17        | OPENCL          (* OpenCL *)        | OPENCL          (* OpenCL *)
18        | CUDA            (* CUDA *)        | CUDA            (* CUDA *)
19    
20    (* the target descriptor collects together the information specified on the Diderot    (* the target descriptor collects together the information specified on the Diderot
21     * compiler's command-line.     * compiler's command-line.
22     *)     *)
23      type desc = {      type t = {
         version : string,               (* diderotc compiler version *)  
24          srcFile : string,               (* source filename *)          srcFile : string,               (* source filename *)
25          outDir : string,                (* directory to put output *)          outDir : string,                (* directory to put output *)
26          outBase : string,               (* basename for output or name of executable *)          outBase : string,               (* basename for output or name of executable *)
27          exec : bool,                    (* generate standalone executable? *)          exec : bool,                    (* generate standalone executable? *)
28          snapshot : bool,                (* generate functions to get snapshot *)          snapshot : bool,                (* generate functions to get snapshot *)
29          target : target,                (* target platform *)          platform : platform,            (* target platform *)
30          namespace : string,             (* optional namespace prefix *)          namespace : string,             (* optional namespace prefix *)
31          double : bool,                  (* true for double-precision candidates *)          double : bool,                  (* true for double-precision candidates *)
32          longint : bool,                 (* true for 64-bit integers (not currently used) *)          longint : bool,                 (* true for 64-bit integers (not currently used) *)
# Line 35  Line 34 
34          bsp : bool                      (* true if BSP style execution should always be used *)          bsp : bool                      (* true if BSP style execution should always be used *)
35        }        }
36    
37        fun platformToString SEQUENTIAL = "SEQUENTIAL"
38          | platformToString PARALLEL = "PARALLEL"
39          | platformToString OPENCL = "OPENCL"
40          | platformToString CUDA = "CUDA"
41    
42    end    end

Legend:
Removed from v.3811  
changed lines
  Added in v.3812

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