From 5298af3dffcd0985922a2a8317fa6a67e192a9c0 Mon Sep 17 00:00:00 2001
From: jackbackrack
Date: Sat, 18 Apr 2015 13:23:16 -0700
Subject: change to have flo file go to a file

---
 src/main/stanza/firrtl-main.stanza | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/main/stanza/firrtl-main.stanza')

diff --git a/src/main/stanza/firrtl-main.stanza b/src/main/stanza/firrtl-main.stanza
index 92bb066f..fe9b49fa 100644
--- a/src/main/stanza/firrtl-main.stanza
+++ b/src/main/stanza/firrtl-main.stanza
@@ -21,10 +21,16 @@ defpackage firrtl-main :
 defn main () :
    val arg = commandline-arguments()
    val args = split(arg,' ')
-   val lexed = lex-file(args[1])
+   val pathname = args[1]
+   val lexed = lex-file(pathname)
    val c = parse-firrtl(lexed)
    ;println(c)
-   run-passes(c,to-list(args[2]))
+   val dir = "." ;; could have dir arg
+   val name = last(split(pathname,'/'))
+   val basename = split(name,'.')[0]
+   val outname = string-join([dir "/" basename ".flo"])
+   val c* = run-passes(c, to-list(args[2]), outname)
+   ;; run-passes(c,to-list(args[2]))
 
 main()
 
-- 
cgit v1.2.3