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 276 - (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 274 fun parse s = let
14 :     val c = AbsPath.cwdContext ()
15 :     val p = AbsPath.native { context = AbsPath.cwdContext (),
16 :     spec = s }
17 :     in
18 :     CMParse.parse p
19 :     end
20 :     end
21 :    
22 :     structure CMB = struct
23 :     fun setRetargetPervStatEnv x = ()
24 :     fun wipeOut () = ()
25 :     fun make' _ = ()
26 :     end
27 : blume 276 end
28 : blume 274 end
29 :    
30 :     signature CMTOOLS = sig end
31 :     signature COMPILATION_MANAGER = sig end

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