Mercurial > urweb
changeset 1961:0652f295e0fa
New compiler option: -stop
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 19 Jan 2014 13:08:01 -0500 |
| parents | 93f3e35a7967 |
| children | 16c219c74426 |
| files | doc/manual.tex src/compiler.sig src/compiler.sml src/main.mlton.sml |
| diffstat | 4 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/manual.tex Sat Jan 18 08:34:19 2014 -0500 +++ b/doc/manual.tex Sun Jan 19 13:08:01 2014 -0500 @@ -341,6 +341,8 @@ \item \texttt{-sql FILENAME}: Set where a database set-up SQL script is written. \item \texttt{-static}: Link the runtime system statically. The default is to link against dynamic libraries. + +\item \texttt{-stop PHASE}: Stop compilation after the named phase, printing the intermediate program to stderr. This flag is mainly useful for debugging the Ur/Web compiler itself. \end{itemize} There is an additional convenience method for invoking \texttt{urweb}. If the main argument is \texttt{FOO}, and \texttt{FOO.ur} exists but \texttt{FOO.urp} doesn't, then the invocation is interpreted as if called on a \texttt{.urp} file containing \texttt{FOO} as its only main entry, with an additional \texttt{rewrite all FOO/*} directive.
--- a/src/compiler.sig Sat Jan 18 08:34:19 2014 -0500 +++ b/src/compiler.sig Sun Jan 19 13:08:01 2014 -0500 @@ -202,4 +202,7 @@ val moduleOf : string -> string + val setStop : string -> unit + (* Stop compilation after this phase. *) + end
--- a/src/compiler.sml Sat Jan 18 08:34:19 2014 -0500 +++ b/src/compiler.sml Sun Jan 19 13:08:01 2014 -0500 @@ -86,6 +86,9 @@ val doDumpSource = ref (fn () => ()) +val stop = ref (NONE : string option) +fun setStop s = stop := SOME s + fun transform (ph : ('src, 'dst) phase) name = { func = fn input => let val () = if !debug then @@ -102,6 +105,10 @@ (!doDumpSource (); doDumpSource := (fn () => ()); NONE) + else if !stop = SOME name then + (Print.eprint (#print ph v); + ErrorMsg.error ("Stopped compilation after phase " ^ name); + NONE) else (if !dumpSource then doDumpSource := (fn () => Print.eprint (#print ph v))
--- a/src/main.mlton.sml Sat Jan 18 08:34:19 2014 -0500 +++ b/src/main.mlton.sml Sun Jan 19 13:08:01 2014 -0500 @@ -133,6 +133,9 @@ | "-static" :: rest => (Settings.setStaticLinking true; doArgs rest) + | "-stop" :: phase :: rest => + (Compiler.setStop phase; + doArgs rest) | "-path" :: name :: path :: rest => (Compiler.addPath (name, path); doArgs rest)