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 274 - (view) (download)

1 : blume 274 (* dummy implementation of functor LinkCM *)
2 :    
3 :     functor LinkCM () = struct
4 :    
5 :     structure CM = struct
6 :     fun parse s = let
7 :     val c = AbsPath.cwdContext ()
8 :     val p = AbsPath.native { context = AbsPath.cwdContext (),
9 :     spec = s }
10 :     in
11 :     CMParse.parse p
12 :     end
13 :     end
14 :    
15 :     structure CMB = struct
16 :     fun setRetargetPervStatEnv x = ()
17 :     fun wipeOut () = ()
18 :     fun make' _ = ()
19 :     end
20 :     end
21 :    
22 :     signature CMTOOLS = sig end
23 :     signature COMPILATION_MANAGER = sig end

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