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 /MLRISC/trunk/makeall-new.sml
ViewVC logotype

View of /MLRISC/trunk/makeall-new.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 775 - (download) (annotate)
Fri Jan 12 01:17:51 2001 UTC (18 years, 7 months ago) by leunga
Original Path: sml/trunk/src/MLRISC/makeall-new.sml
File size: 767 byte(s)

    Merging the types labexp and mltree.
    tag leunga-20010111-labexp=mltree
(*
 * 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