Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/link.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/link.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 286 - (view) (download)

1 : blume 274 (* dummy implementation of functor LinkCM *)
2 :    
3 :     functor LinkCM () = struct
4 :    
5 : blume 276 local
6 :     structure YaccTool = YaccTool
7 :     structure LexTool = LexTool
8 :     structure BurgTool = BurgTool
9 :     val _ = EnvConfig.init ()
10 :     in
11 : blume 274 structure CM = struct
12 : blume 276
13 : blume 286 fun parse cfg s = let
14 : blume 274 val c = AbsPath.cwdContext ()
15 :     val p = AbsPath.native { context = AbsPath.cwdContext (),
16 :     spec = s }
17 :     in
18 : blume 286 CMParse.parse cfg p
19 : blume 274 end
20 : blume 286
21 :     val configuration = Primitive.configuration
22 : blume 274 end
23 :    
24 :     structure CMB = struct
25 :     fun setRetargetPervStatEnv x = ()
26 :     fun wipeOut () = ()
27 :     fun make' _ = ()
28 :     end
29 : blume 276 end
30 : blume 274 end
31 :    
32 :     signature CMTOOLS = sig end
33 :     signature COMPILATION_MANAGER = sig end

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