2013-01-05 04:13:26 -06:00
|
|
|
/*
|
|
|
|
* yosys -- Yosys Open SYnthesis Suite
|
|
|
|
*
|
|
|
|
* Copyright (C) 2012 Clifford Wolf <clifford@clifford.at>
|
|
|
|
*
|
|
|
|
* Permission to use, copy, modify, and/or distribute this software for any
|
|
|
|
* purpose with or without fee is hereby granted, provided that the above
|
|
|
|
* copyright notice and this permission notice appear in all copies.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
|
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
|
|
*
|
|
|
|
* ---
|
|
|
|
*
|
|
|
|
* The Verilog frontend.
|
|
|
|
*
|
|
|
|
* This frontend is using the AST frontend library (see frontends/ast/).
|
|
|
|
* Thus this frontend does not generate RTLIL code directly but creates an
|
|
|
|
* AST directly from the Verilog parse tree and then passes this AST to
|
|
|
|
* the AST frontend library.
|
|
|
|
*
|
|
|
|
* ---
|
|
|
|
*
|
|
|
|
* Ad-hoc implementation of a Verilog preprocessor. The directives `define,
|
|
|
|
* `include, `ifdef, `ifndef, `else and `endif are handled here. All other
|
|
|
|
* directives are handled by the lexer (see lexer.l).
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "verilog_frontend.h"
|
|
|
|
#include "kernel/log.h"
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
|
|
|
|
static std::list<std::string> output_code;
|
|
|
|
static std::list<std::string> input_buffer;
|
|
|
|
static size_t input_buffer_charp;
|
|
|
|
|
|
|
|
static void return_char(char ch)
|
|
|
|
{
|
|
|
|
if (input_buffer_charp == 0)
|
|
|
|
input_buffer.push_front(std::string() + ch);
|
|
|
|
else
|
|
|
|
input_buffer.front()[--input_buffer_charp] = ch;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void insert_input(std::string str)
|
|
|
|
{
|
|
|
|
if (input_buffer_charp != 0) {
|
|
|
|
input_buffer.front() = input_buffer.front().substr(input_buffer_charp);
|
|
|
|
input_buffer_charp = 0;
|
|
|
|
}
|
|
|
|
input_buffer.push_front(str);
|
|
|
|
}
|
|
|
|
|
|
|
|
static char next_char()
|
|
|
|
{
|
2013-11-22 07:08:43 -06:00
|
|
|
if (input_buffer.empty())
|
2013-01-05 04:13:26 -06:00
|
|
|
return 0;
|
|
|
|
|
2014-07-28 04:08:55 -05:00
|
|
|
log_assert(input_buffer_charp <= input_buffer.front().size());
|
2013-01-05 04:13:26 -06:00
|
|
|
if (input_buffer_charp == input_buffer.front().size()) {
|
|
|
|
input_buffer_charp = 0;
|
|
|
|
input_buffer.pop_front();
|
|
|
|
return next_char();
|
|
|
|
}
|
|
|
|
|
|
|
|
char ch = input_buffer.front()[input_buffer_charp++];
|
|
|
|
return ch == '\r' ? next_char() : ch;
|
|
|
|
}
|
|
|
|
|
2013-12-18 06:21:02 -06:00
|
|
|
static std::string skip_spaces()
|
2013-01-05 04:13:26 -06:00
|
|
|
{
|
2013-12-18 06:21:02 -06:00
|
|
|
std::string spaces;
|
2013-01-05 04:13:26 -06:00
|
|
|
while (1) {
|
|
|
|
char ch = next_char();
|
|
|
|
if (ch == 0)
|
|
|
|
break;
|
|
|
|
if (ch != ' ' && ch != '\t') {
|
|
|
|
return_char(ch);
|
|
|
|
break;
|
|
|
|
}
|
2013-12-18 06:21:02 -06:00
|
|
|
spaces += ch;
|
2013-01-05 04:13:26 -06:00
|
|
|
}
|
2013-12-18 06:21:02 -06:00
|
|
|
return spaces;
|
2013-01-05 04:13:26 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
static std::string next_token(bool pass_newline = false)
|
|
|
|
{
|
|
|
|
std::string token;
|
|
|
|
|
|
|
|
char ch = next_char();
|
|
|
|
if (ch == 0)
|
|
|
|
return token;
|
|
|
|
|
|
|
|
token += ch;
|
|
|
|
if (ch == '\n') {
|
|
|
|
if (pass_newline) {
|
|
|
|
output_code.push_back(token);
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
return token;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (ch == ' ' || ch == '\t')
|
|
|
|
{
|
|
|
|
while ((ch = next_char()) != 0) {
|
|
|
|
if (ch != ' ' && ch != '\t') {
|
|
|
|
return_char(ch);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
token += ch;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (ch == '"')
|
|
|
|
{
|
|
|
|
while ((ch = next_char()) != 0) {
|
|
|
|
token += ch;
|
|
|
|
if (ch == '"')
|
|
|
|
break;
|
|
|
|
if (ch == '\\') {
|
|
|
|
if ((ch = next_char()) != 0)
|
|
|
|
token += ch;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else if (ch == '/')
|
|
|
|
{
|
|
|
|
if ((ch = next_char()) != 0) {
|
|
|
|
if (ch == '/') {
|
|
|
|
token += '*';
|
|
|
|
char last_ch = 0;
|
|
|
|
while ((ch = next_char()) != 0) {
|
|
|
|
if (ch == '\n') {
|
|
|
|
return_char(ch);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (last_ch != '*' || ch != '/') {
|
|
|
|
token += ch;
|
|
|
|
last_ch = ch;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
token += " */";
|
|
|
|
}
|
|
|
|
else if (ch == '*') {
|
|
|
|
token += '*';
|
|
|
|
int newline_count = 0;
|
|
|
|
char last_ch = 0;
|
|
|
|
while ((ch = next_char()) != 0) {
|
|
|
|
if (ch == '\n') {
|
|
|
|
newline_count++;
|
|
|
|
token += ' ';
|
|
|
|
} else
|
|
|
|
token += ch;
|
|
|
|
if (last_ch == '*' && ch == '/')
|
|
|
|
break;
|
|
|
|
last_ch = ch;
|
|
|
|
}
|
|
|
|
while (newline_count-- > 0)
|
|
|
|
return_char('\n');
|
|
|
|
}
|
|
|
|
else
|
|
|
|
return_char(ch);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
const char *ok = "abcdefghijklmnopqrstuvwxyz_ABCDEFGHIJKLMNOPQRSTUVWXYZ$0123456789";
|
2013-12-18 06:21:02 -06:00
|
|
|
if (ch == '`' || strchr(ok, ch) != NULL)
|
|
|
|
while ((ch = next_char()) != 0) {
|
|
|
|
if (strchr(ok, ch) == NULL) {
|
|
|
|
return_char(ch);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
token += ch;
|
2013-01-05 04:13:26 -06:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return token;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void input_file(FILE *f, std::string filename)
|
|
|
|
{
|
|
|
|
char buffer[513];
|
|
|
|
int rc;
|
|
|
|
|
|
|
|
insert_input("");
|
|
|
|
auto it = input_buffer.begin();
|
|
|
|
|
|
|
|
input_buffer.insert(it, "`file_push " + filename + "\n");
|
|
|
|
while ((rc = fread(buffer, 1, sizeof(buffer)-1, f)) > 0) {
|
|
|
|
buffer[rc] = 0;
|
|
|
|
input_buffer.insert(it, buffer);
|
|
|
|
}
|
|
|
|
input_buffer.insert(it, "`file_pop\n");
|
|
|
|
}
|
|
|
|
|
2013-08-20 08:48:16 -05:00
|
|
|
std::string frontend_verilog_preproc(FILE *f, std::string filename, const std::map<std::string, std::string> pre_defines_map, const std::list<std::string> include_dirs)
|
2013-01-05 04:13:26 -06:00
|
|
|
{
|
2013-12-27 09:25:27 -06:00
|
|
|
std::set<std::string> defines_with_args;
|
2013-05-19 10:07:52 -05:00
|
|
|
std::map<std::string, std::string> defines_map(pre_defines_map);
|
2013-01-05 04:13:26 -06:00
|
|
|
int ifdef_fail_level = 0;
|
2013-12-18 06:41:36 -06:00
|
|
|
bool in_elseif = false;
|
2013-01-05 04:13:26 -06:00
|
|
|
|
|
|
|
output_code.clear();
|
|
|
|
input_buffer.clear();
|
|
|
|
input_buffer_charp = 0;
|
|
|
|
|
|
|
|
input_file(f, filename);
|
|
|
|
defines_map["__YOSYS__"] = "1";
|
|
|
|
|
|
|
|
while (!input_buffer.empty())
|
|
|
|
{
|
|
|
|
std::string tok = next_token();
|
|
|
|
// printf("token: >>%s<<\n", tok != "\n" ? tok.c_str() : "NEWLINE");
|
|
|
|
|
|
|
|
if (tok == "`endif") {
|
|
|
|
if (ifdef_fail_level > 0)
|
|
|
|
ifdef_fail_level--;
|
2013-12-18 06:41:36 -06:00
|
|
|
if (ifdef_fail_level == 0)
|
|
|
|
in_elseif = false;
|
2013-01-05 04:13:26 -06:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`else") {
|
|
|
|
if (ifdef_fail_level == 0)
|
|
|
|
ifdef_fail_level = 1;
|
2013-12-18 06:41:36 -06:00
|
|
|
else if (ifdef_fail_level == 1 && !in_elseif)
|
2013-01-05 04:13:26 -06:00
|
|
|
ifdef_fail_level = 0;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
2013-12-18 06:41:36 -06:00
|
|
|
if (tok == "`elsif") {
|
|
|
|
skip_spaces();
|
|
|
|
std::string name = next_token(true);
|
|
|
|
if (ifdef_fail_level == 0)
|
|
|
|
ifdef_fail_level = 1, in_elseif = true;
|
|
|
|
else if (ifdef_fail_level == 1 && defines_map.count(name) != 0)
|
|
|
|
ifdef_fail_level = 0, in_elseif = true;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
2013-01-05 04:13:26 -06:00
|
|
|
if (tok == "`ifdef") {
|
|
|
|
skip_spaces();
|
|
|
|
std::string name = next_token(true);
|
|
|
|
if (ifdef_fail_level > 0 || defines_map.count(name) == 0)
|
|
|
|
ifdef_fail_level++;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`ifndef") {
|
|
|
|
skip_spaces();
|
|
|
|
std::string name = next_token(true);
|
|
|
|
if (ifdef_fail_level > 0 || defines_map.count(name) != 0)
|
|
|
|
ifdef_fail_level++;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (ifdef_fail_level > 0) {
|
|
|
|
if (tok == "\n")
|
|
|
|
output_code.push_back(tok);
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`include") {
|
|
|
|
skip_spaces();
|
|
|
|
std::string fn = next_token(true);
|
|
|
|
while (1) {
|
|
|
|
size_t pos = fn.find('"');
|
|
|
|
if (pos == std::string::npos)
|
|
|
|
break;
|
|
|
|
if (pos == 0)
|
|
|
|
fn = fn.substr(1);
|
|
|
|
else
|
|
|
|
fn = fn.substr(0, pos) + fn.substr(pos+1);
|
|
|
|
}
|
|
|
|
FILE *fp = fopen(fn.c_str(), "r");
|
|
|
|
if (fp == NULL && fn.size() > 0 && fn[0] != '/' && filename.find('/') != std::string::npos) {
|
2013-08-20 08:48:16 -05:00
|
|
|
// if the include file was not found, it is not given with an absolute path, and the
|
|
|
|
// currently read file is given with a path, then try again relative to its directory
|
2013-01-05 04:13:26 -06:00
|
|
|
std::string fn2 = filename.substr(0, filename.rfind('/')+1) + fn;
|
|
|
|
fp = fopen(fn2.c_str(), "r");
|
|
|
|
}
|
2013-08-20 08:48:16 -05:00
|
|
|
if (fp == NULL && fn.size() > 0 && fn[0] != '/') {
|
|
|
|
// if the include file was not found and it is not given with an absolute path, then
|
|
|
|
// search it in the include path
|
|
|
|
for (auto incdir : include_dirs) {
|
|
|
|
std::string fn2 = incdir + '/' + fn;
|
|
|
|
fp = fopen(fn2.c_str(), "r");
|
|
|
|
if (fp != NULL) break;
|
|
|
|
}
|
|
|
|
}
|
2013-01-05 04:13:26 -06:00
|
|
|
if (fp != NULL) {
|
|
|
|
input_file(fp, fn);
|
|
|
|
fclose(fp);
|
|
|
|
} else
|
|
|
|
output_code.push_back("`file_notfound " + fn + "\n");
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`define") {
|
|
|
|
std::string name, value;
|
2013-12-18 06:21:02 -06:00
|
|
|
std::map<std::string, int> args;
|
2013-01-05 04:13:26 -06:00
|
|
|
skip_spaces();
|
|
|
|
name = next_token(true);
|
|
|
|
int newline_count = 0;
|
2013-12-18 06:21:02 -06:00
|
|
|
int state = 0;
|
2013-12-27 08:05:52 -06:00
|
|
|
if (skip_spaces() != "")
|
|
|
|
state = 3;
|
2013-01-05 04:13:26 -06:00
|
|
|
while (!tok.empty()) {
|
|
|
|
tok = next_token();
|
2013-12-18 06:21:02 -06:00
|
|
|
if (state == 0 && tok == "(") {
|
|
|
|
state = 1;
|
|
|
|
skip_spaces();
|
2013-01-05 04:13:26 -06:00
|
|
|
} else
|
2013-12-18 06:21:02 -06:00
|
|
|
if (state == 1) {
|
|
|
|
if (tok == ")")
|
|
|
|
state = 2;
|
|
|
|
else if (tok != ",") {
|
|
|
|
int arg_idx = args.size()+1;
|
|
|
|
args[tok] = arg_idx;
|
|
|
|
}
|
|
|
|
skip_spaces();
|
|
|
|
} else {
|
|
|
|
if (state != 2)
|
|
|
|
state = 3;
|
|
|
|
if (tok == "\n") {
|
|
|
|
return_char('\n');
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (tok == "\\") {
|
|
|
|
char ch = next_char();
|
|
|
|
if (ch == '\n') {
|
|
|
|
value += " ";
|
|
|
|
newline_count++;
|
|
|
|
} else {
|
|
|
|
value += std::string("\\");
|
|
|
|
return_char(ch);
|
|
|
|
}
|
|
|
|
} else
|
|
|
|
if (args.count(tok) > 0)
|
|
|
|
value += stringf("`macro_%s_arg%d", name.c_str(), args.at(tok));
|
|
|
|
else
|
|
|
|
value += tok;
|
|
|
|
}
|
2013-01-05 04:13:26 -06:00
|
|
|
}
|
|
|
|
while (newline_count-- > 0)
|
|
|
|
return_char('\n');
|
|
|
|
// printf("define: >>%s<< -> >>%s<<\n", name.c_str(), value.c_str());
|
|
|
|
defines_map[name] = value;
|
2013-12-27 09:25:27 -06:00
|
|
|
if (state == 2)
|
|
|
|
defines_with_args.insert(name);
|
|
|
|
else
|
|
|
|
defines_with_args.erase(name);
|
2013-01-05 04:13:26 -06:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`undef") {
|
|
|
|
std::string name;
|
|
|
|
skip_spaces();
|
|
|
|
name = next_token(true);
|
|
|
|
// printf("undef: >>%s<<\n", name.c_str());
|
|
|
|
defines_map.erase(name);
|
2013-12-27 09:25:27 -06:00
|
|
|
defines_with_args.erase(name);
|
2013-01-05 04:13:26 -06:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok == "`timescale") {
|
|
|
|
skip_spaces();
|
|
|
|
while (!tok.empty() && tok != "\n")
|
|
|
|
tok = next_token(true);
|
|
|
|
if (tok == "\n")
|
|
|
|
return_char('\n');
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (tok.size() > 1 && tok[0] == '`' && defines_map.count(tok.substr(1)) > 0) {
|
2013-12-18 06:21:02 -06:00
|
|
|
std::string name = tok.substr(1);
|
|
|
|
// printf("expand: >>%s<< -> >>%s<<\n", name.c_str(), defines_map[name].c_str());
|
|
|
|
std::string skipped_spaces = skip_spaces();
|
2014-01-18 12:22:20 -06:00
|
|
|
tok = next_token(false);
|
2013-12-27 09:25:27 -06:00
|
|
|
if (tok == "(" && defines_with_args.count(name) > 0) {
|
2013-12-18 06:21:02 -06:00
|
|
|
int level = 1;
|
|
|
|
std::vector<std::string> args;
|
|
|
|
args.push_back(std::string());
|
|
|
|
while (1)
|
|
|
|
{
|
|
|
|
tok = next_token(true);
|
|
|
|
if (tok == ")" || tok == "}" || tok == "]")
|
|
|
|
level--;
|
|
|
|
if (level == 0)
|
|
|
|
break;
|
|
|
|
if (level == 1 && tok == ",")
|
|
|
|
args.push_back(std::string());
|
|
|
|
else
|
|
|
|
args.back() += tok;
|
|
|
|
if (tok == "(" || tok == "{" || tok == "[")
|
|
|
|
level++;
|
|
|
|
}
|
|
|
|
for (size_t i = 0; i < args.size(); i++)
|
|
|
|
defines_map[stringf("macro_%s_arg%d", name.c_str(), i+1)] = args[i];
|
|
|
|
} else {
|
|
|
|
insert_input(tok);
|
|
|
|
insert_input(skipped_spaces);
|
|
|
|
}
|
|
|
|
insert_input(defines_map[name]);
|
2013-01-05 04:13:26 -06:00
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
output_code.push_back(tok);
|
|
|
|
}
|
|
|
|
|
|
|
|
std::string output;
|
|
|
|
for (auto &str : output_code)
|
|
|
|
output += str;
|
|
|
|
|
|
|
|
output_code.clear();
|
|
|
|
input_buffer.clear();
|
|
|
|
input_buffer_charp = 0;
|
|
|
|
|
|
|
|
return output;
|
|
|
|
}
|
|
|
|
|