SCM Repository
Annotation of /sml/trunk/src/cm/link.sml
Parent Directory
| 
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 |
