changeset 15:c59f52e4bacf

unet-bind option -c reports MCL components with no binding
author Space Falcon <falcon@ivan.Harhan.ORG>
date Sun, 02 Aug 2015 00:39:38 +0000
parents 068ea2458c5d
children 65a515c20db8
files ueda/sverp-bind/main.c ueda/sverp-bind/outcomp.c
diffstat 2 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/ueda/sverp-bind/main.c	Sun Aug 02 00:34:30 2015 +0000
+++ b/ueda/sverp-bind/main.c	Sun Aug 02 00:39:38 2015 +0000
@@ -7,6 +7,7 @@
 extern char *MCLfile;
 
 char *input_filename, *output_filename;
+int check_completeness;
 
 static void
 usage()
@@ -22,8 +23,11 @@
 	extern char *optarg;
 	register int c;
 
-	while ((c = getopt(argc, argv, "I:M:")) != EOF) {
+	while ((c = getopt(argc, argv, "cI:M:")) != EOF) {
 		switch (c) {
+		case 'c':
+			check_completeness++;
+			break;
 		case 'I':
 			add_symfile_dir(optarg);
 			continue;
--- a/ueda/sverp-bind/outcomp.c	Sun Aug 02 00:34:30 2015 +0000
+++ b/ueda/sverp-bind/outcomp.c	Sun Aug 02 00:39:38 2015 +0000
@@ -12,6 +12,8 @@
 extern char *get_comp_attr();
 extern struct grid_pkg_desc *read_grid_pkg_file();
 
+extern int check_completeness;
+
 struct outcomp *netlist_comps;
 
 static int
@@ -79,6 +81,8 @@
 		process_hier_attr(oc, attr);
 	else if (attr = get_comp_attr(oc->mclcomp, "slotmap"))
 		process_slotmap_attr(oc, attr);
+	else if (check_completeness)
+		fprintf(stderr, "MCL component %s has no binding\n", oc->name);
 }
 
 init_outcomp_from_MCL()