change to have flo file go to a file

1 files changed, 8 insertions, 3 deletions

diff --git a/src/main/stanza/firrtl-test-main.stanza b/src/main/stanza/firrtl-test-main.stanza
index 991f7cf6..ca521ec2 100644
--- a/src/main/stanza/firrtl-test-main.stanza
+++ b/src/main/stanza/firrtl-test-main.stanza
@@ -28,14 +28,19 @@ defn set-printvars! (p:List<Char>) :
 
 defn main () :
    val args = commandline-arguments()
-   val lexed = lex-file(args[1])
+   val pathname = args[1]
+   val lexed = lex-file(pathname)
    val c = parse-firrtl(lexed)
+   val dir = "." ;; could have dir arg
+   val name = last(split(pathname,'/'))
+   val basename = split(name,'.')[0]
+   val outname = string-join([dir "/" basename ".flo"])
    if length(args) >= 4 :
       set-printvars!(to-list(args[3]))
    if length(args) >= 3 :
-      run-passes(c,to-list(args[2]))
+      run-passes(c,to-list(args[2]), outname)
    else :
-      run-passes(c,to-list("qabcefghipjklmno"))
+      run-passes(c,to-list("qabcefghipjklmno"), outname)
 
 main()