# HG changeset patch
# User Space Falcon <falcon@ivan.Harhan.ORG>
# Date 1438475978 0
# Node ID c59f52e4bacf99a68fe84bff660144742aecf2ea
# Parent  068ea2458c5d3aa20928f6e95d89961879905f53
unet-bind option -c reports MCL components with no binding

diff -r 068ea2458c5d -r c59f52e4bacf ueda/sverp-bind/main.c
--- 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;
diff -r 068ea2458c5d -r c59f52e4bacf ueda/sverp-bind/outcomp.c
--- 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()