bool output_syntax(char *argv[], evl_module &module, evl_wires &wires, evl_components &components, evl_endmodule &endmodule)
{
std::string output_file_name = std::string(argv[1]) + ".syntax";
std::ofstream output_file(output_file_name.c_str());
if (!output_file)
{
std::cerr << "I can't write " << argv[1] << ".tokens ." << std::endl;
return false;
}
if (!module.type.empty())//if .evl has a module, output its name
{
output_file << "module " << module.type << std::endl;
}
if (!wires.empty())//if .evl has wires, output names
{
output_file << "wires " << wires.size() << std::endl;
for (evl_wires::iterator i = wires.begin(); i != wires.end(); ++i)
{
evl_wire wire = *i;
output_file << " wire " << wire.name << " " << wire.width << std::endl;
}
}
if (!components.empty())//if .evl has components, output pins, types and names
{
output_file << "components " << components.size() << std::endl;
for (evl_components::iterator i = components.begin(); i != components.end(); ++i)
{
evl_component component = *i;
output_file << " component " << component.type << " ";
if (component.name != "")// component name is optional
output_file << component.name << " ";
output_file << component.pins.size() << std::endl;
for (evl_pins::iterator j = component.pins.begin(); j != component.pins.end(); ++j)
{
evl_pin pin = *j;
output_file << " pin " << pin.name;
if (pin.bus_msb >= 0)
{
output_file << " " << pin.bus_msb;
}
if (pin.bus_lsb >= 0)
{
output_file << " " << pin.bus_lsb;
}
output_file << std::endl;
}
}
}
if (!endmodule.name.empty())//if .evl has endmodule, output it
{
output_file << "endmodule" << std::endl;
}
return true;
}
bool netlist::create_gates(const evl_components &comps,
const evl_wires_table &wires_table) {
for (evl_components::const_iterator iter = comps.begin(); iter != comps.end();
++iter) {
create_gate((*iter), wires_table);
}
return true;
}
bool netlist::create_gates(const evl_components &comps,
const evl_wires_table &wires_table)
{
for (evl_components::const_iterator ci = comps.begin(); ci !=comps.end(); ++ci)
{
evl_component c = (*ci);
create_gate(c, wires_table); // gate semantic vilation only output an error, does not stop the program
}
return true;
}
void display_components(ostream &out, const evl_components &components)
{
for (evl_components::const_iterator iter = components.begin(); iter != components.end(); ++iter)
{
out << "component " << iter->type << " " << iter->name << " " << iter->pins.size() << endl;
for (evl_pins::const_iterator it = iter->pins.begin(); it != iter->pins.end(); ++it)
{
out << "pin "<< it->name << " " << it->msb << " " << it->lsb << endl;
}
}
}
bool process_component_statement(evl_components &components, evl_statement &s)
{
enum state_type { INIT, TYPE, NAME, PINS, PIN_NAME, BUS, BUS_MSB, BUS_LSB, BUS_COLON, BUS_DONE, PINS_DONE, DONE };
state_type state = INIT;
evl_component comp;
evl_pin pin;
for (; !s.tokens.empty() && state != DONE; s.tokens.pop_front())
{
evl_token t = s.tokens.front();
//Enter state machine
if (state == INIT)
{
if (t.type == evl_token::NAME)
{
comp.type = t.str;
comp.name = "";
state = TYPE;
}
else
{
std::cerr << "Need component type but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == TYPE)
{
if (t.type == evl_token::NAME)
{
comp.name = t.str;
state = NAME;
}
else if (t.str == "(")
{
state = PINS;
}
else
{
std::cerr << "Need a name or '(' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == NAME)
{
if (t.str == "(")
{
state = PINS;
}
else
{
std::cerr << "Need '(' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == PINS)
{
if (t.type == evl_token::NAME)
{
pin.name = t.str;
pin.bus_msb = -1;
pin.bus_lsb = -1;
state = PIN_NAME;
}
else
{
std::cerr << "Need a name but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == PIN_NAME)
{
if (t.str == "[")
{
state = BUS;
}
else if (t.str == ")")
{
comp.pins.push_back(pin);
state = PINS_DONE;
}
else if (t.str == ",")
{
comp.pins.push_back(pin);
state = PINS;
}
else
{
std::cerr << "Need '[', ')' or ',' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == PINS_DONE)
{
if (t.str == ";")
{
state = DONE;
}
else
{
std::cerr << "Need ';' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == BUS)
{
if (t.type == evl_token::NUMBER)
{
pin.bus_msb = atoi(t.str.c_str());
state = BUS_MSB;
}
else
{
std::cerr << "Need bus_msb but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == BUS_MSB)
{
if (t.str == ":")
{
state = BUS_COLON;
}
else if (t.str == "]")
{
state = BUS_DONE;
}
else
{
std::cerr << "Need ':' or ']' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == BUS_COLON)
{
if (t.type == evl_token::NUMBER)
{
pin.bus_lsb = atoi(t.str.c_str());
state = BUS_LSB;
}
else
{
std::cerr << "Need bus_lsb but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == BUS_LSB)
{
if (t.str == "]")
{
state = BUS_DONE;
}
else
{
std::cerr << "Need ']' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else if (state == BUS_DONE)
{
if (t.str == ")")
{
comp.pins.push_back(pin);
state = PINS_DONE;
}
else if (t.str == ",")
{
comp.pins.push_back(pin);
state = PINS;
}
else
{
std::cerr << "Need ')' or ',' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
}
components.push_back(comp);
return true;
}
bool process_components_statement(evl_components &cp, evl_statement &s, const evl_wires &wires)
{
assert(s.type == evl_statement::COMPONENT);
enum state_type {INIT, TYPE, NAME, PIN_NAME, PINS, PINS_DONE, DONE, BUS, BUS_MSB, BUS_COLON, BUS_LSB, BUS_DONE};
state_type STATE = INIT;
evl_component component;
evl_pin pin;
for (evl_tokens::const_iterator iter = s.tokens.begin(); (iter != s.tokens.end()) && (STATE != DONE); ++iter,s.tokens.pop_front())
{
evl_token t = s.tokens.front();
if (STATE == INIT) {
if (t.type == evl_token::NAME)
{
component.type = t.name;
component.name = "NONE";
STATE = TYPE;
}
else
{
cerr << "Need a name but found "<< t.name <<" on line "<< t.lineNumber<< "STATE == INIT" << endl;
return false;
}
}
else if (STATE == TYPE) {
if (t.type == evl_token::NAME)
{
component.name = t.name;
STATE = NAME;
}
else if ((t.type == evl_token::SINGLE) && (t.name == "("))
{
STATE = PINS;
}
else
{
cerr << "Need NAME or '(' but found "<< t.name << " on line "<<t.lineNumber << "STATE == TYPE" << endl;
return false;
}
}
else if (STATE == NAME)
{
if ((t.type == evl_token::SINGLE) && (t.name == "("))
{
STATE = PINS;
}
else {
cerr << "Need '(' but found "<< t.name << " on line "<<t.lineNumber << "STATE == NAME" << endl;
return false;
}
}
else if (STATE == PINS)
{
if (t.type == evl_token::NAME)
{
evl_wires::const_iterator it = wires.find(t.name);
if (it == wires.end()) {
cerr << "Wire '" << t.name << "' is not defined" << endl;
return false;
}
pin.name = t.name;
pin.msb = -1;
pin.lsb = -1;
if (wire_is_BUS(it->second))
{
pin.msb = (it->second)-1;
pin.lsb = 0;
}
STATE = PIN_NAME;
}
else {
cerr << "Need NAME but found "<< t.name << "on line "<<t.lineNumber << "STATE == PINS" << endl;
return false;
}
}
else if (STATE == PIN_NAME)
{
if (t.type == evl_token::SINGLE && t.name == ",")
{
component.pins.push_back(pin);
STATE = PINS;
}
else if (t.type == evl_token::SINGLE && t.name == ")")
{
component.pins.push_back(pin);
STATE = PINS_DONE;
}
else if (t.type == evl_token::SINGLE && t.name == "[")
{
STATE = BUS;
}
else {
cerr << "Need ’,’ or ’)’ or '[' but found ’" << t.name << "’ on line " << t.lineNumber << "STATE == PIN_NAME" << std::endl;
return false;
}
}
else if(STATE == BUS)
{
if (t.type == evl_token::NUMBER)
{
int msb = atoi(t.name.c_str());
if (!(pin.msb >= msb && msb >= 0))
{
cerr << "Pin is not within wire range!"<<endl;
return false;
}
pin.msb = msb;
STATE = BUS_MSB;
}
else
{
cerr << "Need a NUMBER but found ’" << t.name << "’ on line " << t.lineNumber << "STATE == BUS" << std::endl;
return false;
}
}
else if (STATE == BUS_MSB)
{
if (t.type == evl_token::SINGLE && t.name == ":")
{
STATE = BUS_COLON;
}
else if(t.type == evl_token::SINGLE && t.name == "]")
{
pin.lsb = pin.msb;
STATE = BUS_DONE;
}
else
{
cerr << "Need ’:’ or ']' but found ’" << t.name << "’ on line " << t.lineNumber << std::endl;
return false;
}
}
else if (STATE == BUS_COLON )
{
if (t.type == evl_token::NUMBER)
{
int lsb = atoi(t.name.c_str());
if (!(pin.msb >= lsb && lsb >= 0))
{
cerr << "Pin is not within wire range!"<<endl;
return false;
}
pin.lsb = lsb;
STATE = BUS_LSB;
}
else
{
cerr << "Need a NUMBER but found ’" << t.name << "’ on line " << t.lineNumber << std::endl;
return false;
}
}
else if (STATE == BUS_LSB)
{
if (t.type == evl_token::SINGLE && t.name == "]")
{
STATE = BUS_DONE;
}
else
{
cerr << "Need ’]’ but found ’" << t.name << "’ on line " << t.lineNumber << std::endl;
return false;
}
}
else if (STATE == BUS_DONE)
{
if (t.type == evl_token::SINGLE && t.name == ")")
{
component.pins.push_back(pin);
STATE = PINS_DONE;
}
else if(t.type == evl_token::SINGLE && t.name == ",")
{
component.pins.push_back(pin);
STATE = PINS;
}
else
{
cerr << "Need ')' or ',' but found "<< t.name << "on line "<<t.lineNumber << endl;
return false;
}
}
else if(STATE == PINS_DONE)
{
if (t.type == evl_token::SINGLE && t.name == ";")
{
cp.push_back(component);
STATE = DONE;
}
}
else
{
assert(false);
}
}
if (!s.tokens.empty() || (STATE != DONE))
{
cerr << "There is something wrong with the statement" << endl;
return false;
}
return true;
}
bool process_component_statements(evl_components &components, evl_statement &s, evl_wires &wires, evl_checkpoints &check) {
//assert(s.type == evl_statement::COMPONENT);
enum state_type {INIT, TYPE, NAME, PINS, PIN_NAME, PINS_DONE, BUS, BUS_MSB, BUS_COLON, BUS_LSB, BUS_DONE, DONE};
std::string comp_type = "";
std::string comp_name = "NONE";
std::string pin_name = "";
int bus_msb = -1;
int bus_lsb = -1;
int count = 0;
int count_2;
state_type state = INIT;
for(; !s.tokens.empty() && (state != DONE); s.tokens.pop_front()){
evl_token t = s.tokens.front();
if (state == INIT) {
if(t.type == evl_token::NAME) {
comp_type = t.str;
state = TYPE;
}
else {
state = TYPE;
}
}
else if (state == TYPE){
if (t.type == evl_token::SINGLE && t.str == "(") {
state = PINS;
}
else {
std::cerr << "Need a NAME or a '(' but found '" << t.str << "' at line " << t.line_no << std::endl;
return false;
}
evl_component component;
component.type = comp_type;
component.name = comp_name;
components.push_back(component);
count_2 = 0;
}
else if (state == PINS) {
//int count = 0;
if (t.type == evl_token::NAME) {
evl_wires::iterator it = wires.find(t.str);
if (it == wires.end()) {
std::cerr << "Wire '" << t.str << "' on line " << t.line_no << " is not defined" << std::endl;
return false;
}
count = it->second + count_2;
it->second = ++count;
pin_name = t.str;
}
state = PIN_NAME;
}
else if (state == PIN_NAME) {
bus_msb = -1;
bus_lsb = -1;
//int count = 0;
if (t.str == ")"){
evl_wires::iterator it = wires.find(pin_name);
count = it->second + count_2;
it->second = ++count;
//if (it->second >= 2) {
// bus_msb = it->second-1;
// bus_lsb = 0;
//}
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = DONE;
}
else if (t.str == ","){
evl_wires::iterator it = wires.find(pin_name);
//if (it->second >= 2) {
// bus_msb = it->second-1;
// bus_lsb = 0;
//}
count = it->second + count_2;
it->second = ++count;
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = PINS;
}
else {
std::cerr << "Need ',' or ')' or '[' but found '" << t.str << "' on line " << t.line_no <<std::endl;
return false;
}
}
else {
assert(false); //never should get here
}
}
if (!s.tokens.empty() || (state != DONE)) {
std::cerr << "something wrong with the statement in Comp" << std::endl;
return false;
}
return true;
}
bool process_component_statements(evl_components &components, evl_statement &s, const evl_wires &wires) {
assert(s.type == evl_statement::COMPONENT);
enum state_type {INIT, TYPE, NAME, PINS, PIN_NAME, PINS_DONE, BUS, BUS_MSB, BUS_COLON, BUS_LSB, BUS_DONE, DONE};
std::string comp_type = "";
std::string comp_name = "NONE";
std::string pin_name = "";
int bus_msb = -1;
int bus_lsb = -1;
state_type state = INIT;
for(; !s.tokens.empty() && (state != DONE); s.tokens.pop_front()){
evl_token t = s.tokens.front();
if (state == INIT) {
if(t.type == evl_token::NAME) {
comp_type = t.str;
state = TYPE;
}
else {
state = TYPE;
}
}
else if (state == TYPE){
if (t.type == evl_token::NAME) {
comp_name = t.str;
state = NAME;
}
else if (t.type == evl_token::SINGLE && t.str == "(") {
state = PINS;
}
else {
std::cerr << "Need a NAME or a '(' but found '" << t.str << "' at line " << t.line_no << std::endl;
return false;
}
evl_component component;
component.type = comp_type;
component.name = comp_name;
components.push_back(component);
}
else if (state == NAME) {
if (t.type == evl_token::SINGLE && t.str == "("){
state = PINS;
}
else {
std::cerr << "Need '(' but found '" << t.str << "' at line " << t.line_no << std::endl;
return false;
}
}
else if (state == PINS) {
if (t.type == evl_token::NAME) {
evl_wires::const_iterator it = wires.find(t.str);
if (it == wires.end()) {
std::cerr << "Wire '" << t.str << "' on line " << t.line_no << " is not defined" << std::endl;
return false;
}
pin_name = t.str;
}
state = PIN_NAME;
}
else if (state == PIN_NAME) {
bus_msb = -1;
bus_lsb = -1;
if (t.str == ")"){
evl_wires::const_iterator it = wires.find(pin_name);
if (it->second >= 2) {
bus_msb = it->second-1;
bus_lsb = 0;
}
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = PINS_DONE;
}
else if (t.str == ","){
evl_wires::const_iterator it = wires.find(pin_name);
if (it->second >= 2) {
bus_msb = it->second-1;
bus_lsb = 0;
}
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = PINS;
}
else if (t.str == "[") {
state = BUS;
}
else {
std::cerr << "Need ',' or ')' or '[' but found '" << t.str << "' on line " << t.line_no <<std::endl;
return false;
}
}
else if (state == BUS) {
if(t.type == evl_token::NUMBER) {
bus_msb = atoi(t.str.c_str());
}
else {
std::cerr << "Need 'number' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
state = BUS_MSB;
}
else if (state == BUS_MSB) {
if (t.str == "]") {
evl_wires::const_iterator it = wires.find(pin_name);
int found_wire_msb = it->second-1;
if (bus_msb > found_wire_msb){
std::cerr << "Bus MSB of value: " << bus_msb << " must be greater than or equal to the wire bus msb of value: " << found_wire_msb << std::endl;
return false;
}
if (bus_msb < 0) {
std::cerr << "Bus MSB of value: " << bus_msb << " must be greater than 0." << std::cout;
}
bus_lsb = bus_msb;
state = BUS_DONE;
}
else if (t.str == ":") {
state = BUS_COLON;
}
else {
std::cerr << "Need ']' or ':' but found '" << t.str << "' on line " << t.line_no <<std::endl;
return false;
}
}
else if (state == BUS_COLON) {
evl_wires::const_iterator it = wires.find(pin_name);
int found_wire_msb = it->second-1;
if (t.type == evl_token::NUMBER) {
bus_lsb = atoi(t.str.c_str());
}
else {
std::cerr << "Need 'number' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
if (bus_msb < bus_lsb) {
std::cerr << "Bus msb: " << bus_msb << " can not be less than Bus lsb " << bus_lsb << std::endl;
return false;
}
if (bus_msb > found_wire_msb) {
std::cerr << "Bus msb is: " << bus_msb << ". Needs to less than or equal to wire bus msb: " << found_wire_msb << std::endl;
return false;
}
if (bus_lsb < 0) {
std::cerr << "Bus lsb is: " << bus_lsb << ". Needs to be greater than 0" << std::endl;
return false;
}
state = BUS_LSB;
}
else if (state == BUS_LSB) {
if (!(t.str == "]")) {
std::cerr << "Need ']' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
state = BUS_DONE;
}
else if (state == BUS_DONE) {
if (t.str == ")") {
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = PINS_DONE;
}
else if (t.str == ",") {
evl_pin pins;
pins.lsb = bus_lsb;
pins.msb = bus_msb;
pins.pin_name = pin_name;
components.back().comp_pins.push_back(pins);
state = PINS;
}
}
else if (state == PINS_DONE) {
if (t.str == ";") {
state = DONE;
}
else {
std::cerr << "Need ';' but found '" << t.str << "' on line " << t.line_no << std::endl;
return false;
}
}
else {
assert(false); //never should get here
}
}
if (!s.tokens.empty() || (state != DONE)) {
std::cerr << "something wrong with the statement in Comp" << std::endl;
return false;
}
return true;
}