From: Clifford Wolf <clifford@clifford.at>
Date: Tue, 28 Mar 2017 10:13:58 +0000 (+0200)
Subject: Add front-end detection for *.tcl files
X-Git-Tag: yosys-0.8~452
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b8d7f57f61fb45b4b227e399561bf8bcce3db550;p=yosys.git

Add front-end detection for *.tcl files
---

diff --git a/kernel/yosys.cc b/kernel/yosys.cc
index 3d0aca78e..fd5a3504a 100644
--- a/kernel/yosys.cc
+++ b/kernel/yosys.cc
@@ -796,6 +796,8 @@ void run_frontend(std::string filename, std::string command, std::string *backen
 			command = "ilang";
 		else if (filename.size() > 3 && filename.substr(filename.size()-3) == ".ys")
 			command = "script";
+		else if (filename.size() > 2 && filename.substr(filename.size()-4) == ".tcl")
+			command = "tcl";
 		else if (filename == "-")
 			command = "script";
 		else
@@ -875,7 +877,10 @@ void run_frontend(std::string filename, std::string command, std::string *backen
 		log("\n-- Parsing `%s' using frontend `%s' --\n", filename.c_str(), command.c_str());
 	}
 
-	Frontend::frontend_call(design, NULL, filename, command);
+	if (command == "tcl")
+		Pass::call(design, vector<string>({command, filename}));
+	else
+		Frontend::frontend_call(design, NULL, filename, command);
 }
 
 void run_frontend(std::string filename, std::string command, RTLIL::Design *design)