Save the type name if an InterfacePort object.

vhdlpp/entity.cc

@@ -56,7 +56,8 @@ static void dump_design_entity(ostream&out, Entity*obj)
 		       ; cur != obj->ports.end() ; ++cur) {
 		  InterfacePort*item = *cur;
 		  out << setw(6) << "" << item->name
-		      << " : " << item->mode << endl;
+		      << " : " << item->mode
+		      << ", type=" << item->type_name << endl;
 	    }
       }
 }

vhdlpp/entity.h

@@ -27,8 +27,12 @@ typedef enum { PORT_NONE=0, PORT_IN, PORT_OUT } port_mode_t;
 
 class InterfacePort {
     public:
+	// Port direction from the source code.
       port_mode_t mode;
+	// Name of the port from the source code
       perm_string name;
+	// Name of interface type as given in the source code.
+      perm_string type_name;
 };
 
 class Entity {

vhdlpp/entity_elaborate.cc

@@ -54,6 +54,16 @@ int Entity::elaborate()
 		       ; cur != ports.end() ; ++cur) {
 		  InterfacePort*port = *cur;
 
+		    // FIXME: this is a stub. This port handling code
+		    // currently only supports std_logic signal tyes,
+		    // so just assert that the user asked for std_logic.
+		  if (port->type_name != "std_logic") {
+			cerr << "sorry: VHDL only supports std_logic ports."
+			     << " Expecting std_logic, but got \""
+			     << port->type_name << "\"" << endl;
+			errors += 1;
+		  }
+
 		  if (sep) cout << sep;
 		  else sep = ", ";
 

vhdlpp/parse.y

@@ -172,6 +172,7 @@ interface_element
       { InterfacePort*tmp = new InterfacePort;
 	tmp->mode = $3;
 	tmp->name = lex_strings.make($1);
+	tmp->type_name = lex_strings.make($4);
 	delete[]$1;
 	delete[]$4;
 	$$ = tmp;
@@ -180,7 +181,7 @@ interface_element
 
 interface_list
   : interface_list ';' interface_element
-      { std:list<InterfacePort*>*tmp = $1;
+      { std::list<InterfacePort*>*tmp = $1;
 	tmp->push_back($3);
 	$$ = tmp;
       }