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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/common/paths_sml.in
ViewVC logotype

Diff of /branches/vis15/src/compiler/common/paths_sml.in

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

revision 4416, Tue Aug 16 21:59:50 2016 UTC revision 4417, Wed Aug 17 12:22:45 2016 UTC
# Line 10  Line 10 
10   * @configure_input@   * @configure_input@
11   *)   *)
12    
13  structure Paths =  structure Paths : sig
14    struct  
15      (* functions to get the paths to Diderot headers and libraries *)
16        val diderotInclude : unit -> string
17        val diderotLib : unit -> string
18    
19        val teemBin : unit -> string
20        val teemInclude : unit -> string
21        val teemLinkFlags : unit -> string list
22    
23      (* command to run the C++ compiler *)
24        val ccxx : string
25    
26      (* command-line flags for the C++ compiler *)
27        val cxxFlags : {
28                base : string,      (* for all targets *)
29                parallel : string,  (* for parallel target *)
30                cl : string,        (* for OpenCL target *)
31                cuda : string,      (* for CUDA target *)
32                debug : string,     (* when '--debug' flag is specified *)
33                ndebug : string     (* when '--debug' flag is _not_ specified *)
34              }
35    
36      (* command to link executables *)
37        val ld : string
38    
39      (* extra libraries to include in the linking command *)
40        val extraLibs : {
41                base : string,      (* for all targets *)
42                parallel : string,  (* for parallel target *)
43                cl : string,        (* for OpenCL target *)
44                cuda : string       (* for CUDA target *)
45              }
46    
47      (* true if the configuration supports the OpenCL target *)
48        val clEnabled : bool
49    
50      (* true if the configuration supports the CUDA target *)
51        val cudaEnabled : bool
52    
53      end = struct
54    
55      local      local
56        val // = OS.Path.concat        val // = OS.Path.concat
57        infixr 4 //        infixr 4 //
58      in      in
59    
60      (* installation directories for Diderot stuff *)
61        val installBin = "@prefix@" // "bin"
62        val installInclude = "@prefix@" // "include"
63        val installLib = "@prefix@" // "lib"
64    
65    (* directories for Diderot stuff *)    (* directories for Diderot stuff *)
66      local      local
67      (* dynamically determine the installation location based on the path to diderotc.  We assume      (* dynamically determine the installation location based on the path to diderotc.  We assume
# Line 83  Line 128 
128      in      in
129      fun teemBin () = resolveTeemDir "bin"      fun teemBin () = resolveTeemDir "bin"
130      fun teemInclude () = resolveTeemDir "include"      fun teemInclude () = resolveTeemDir "include"
131      fun teemLib () = resolveTeemDir "lib"      fun teemLinkFlags () = let
132      fun teemLinkFlags () = if @LD_NEEDS_RPATH@            val teemLib = resolveTeemDir "lib"
133            then ["-Wl,-rpath=" ^ teemLib(), "-L" ^ teemLib(), "-lteem"]            in
134            else ["-L" ^ teemLib(), "-lteem"]              if @LD_NEEDS_RPATH@
135                  then ["-Wl,-rpath=" ^ teemLib, "-L" ^ teemLib, "-lteem"]
136                  else ["-L" ^ teemLib, "-lteem"]
137              end
138      end (* local *)      end (* local *)
139    
   (* installation directories for Diderot stuff *)  
     val installBin = "@prefix@" // "bin"  
     val installInclude = "@prefix@" // "include"  
     val installLib = "@prefix@" // "lib"  
   
140    (* paths to some useful tools *)    (* paths to some useful tools *)
141      val ccxx = let      val ccxx = let
142            val (cmd::args) = String.tokens Char.isSpace "@CXX@"            val (cmd::args) = String.tokens Char.isSpace "@CXX@"
# Line 102  Line 145 
145            in            in
146              String.concatWith " " (cmd::args)              String.concatWith " " (cmd::args)
147            end            end
148      val cxxflags = {      val cxxFlags = {
149              base = "@CXXFLAGS_BASE@",              base = "@CXXFLAGS_BASE@",
150              pthread = "@PTHREAD_CFLAGS@",              parallel = "@PTHREAD_CFLAGS@",
151              cl = "@CPPFLAGS_CL@",              cl = "@CPPFLAGS_CL@",
152                cuda = "@CPPFLAGS_CUDA@",
153              debug = "-g -O0",              debug = "-g -O0",
154              ndebug = "-march=native -O3 -DNDEBUG"              ndebug = "-march=native -O3 -DNDEBUG"
155            }            }
# Line 117  Line 161 
161            end            end
162      val extraLibs = {      val extraLibs = {
163              base = "@LIBM@",              base = "@LIBM@",
164              pthread = "@PTHREAD_LIBS@",              parallel = "@PTHREAD_LIBS@",
165              cl = "@LIBS_CL@"              cl = "@LIBS_CL@",
166                cuda = "@LIBS_CUDA@"
167            }            }
168    
169    (* OpenCL configuration *)    (* OpenCL configuration *)

Legend:
Removed from v.4416  
changed lines
  Added in v.4417

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