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

SCM Repository

[smlnj] View of /sml/branches/idlbasis-devel/src/MLRISC/makeall-new.sml
ViewVC logotype

View of /sml/branches/idlbasis-devel/src/MLRISC/makeall-new.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 848 - (download) (annotate)
Mon Jun 25 19:29:29 2001 UTC (18 years, 8 months ago)
File size: 767 byte(s)
This commit was manufactured by cvs2svn to create branch
'idlbasis-devel'.
(*
 * Recompile everything in this directory
 *)
(* CM.autoload "$/full-cm.cm"; *)

(* Register the nowhere tool *)
CM.make "$smlnj/cm/tools.cm";
val _ = Tools.registerStdShellCmdTool
        { tool = "Nowhere",
          class = "nowhere",
          suffixes = ["peep"],
          cmdStdPath = "nowhere",
          template = NONE,
          extensionStyle =
              Tools.REPLACE (["nowhere"], [("sml", SOME "sml", fn too => too)]),
          dflopts = [] };

val current = ref "";
fun make f = (print("[Compiling "^f^"]\n"); current := f; CM.recomp("cm/"^f));
fun again _ = make(!current);
fun makeall [] = true
  | makeall(f::fs) = make f andalso makeall fs
;

fun set f = #set(CM.Anchor.anchor f) (SOME "cm");
val _ = app set files;
val _ = makeall files;

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