X-Git-Url: http://git.ozlabs.org/?p=ccan;a=blobdiff_plain;f=tools%2Fdepends.c;h=f1ff30904c897d92fef28ba54cd7c41608af76c5;hp=871a3e8712368a649dc3d2d478e696087496bd57;hb=a240178097376329b4567a6728952daa89362771;hpb=9e207bca5bf5e0a1e3653a91649414fab793c801

diff --git a/tools/depends.c b/tools/depends.c
index 871a3e87..f1ff3090 100644
--- a/tools/depends.c
+++ b/tools/depends.c
@@ -227,7 +227,7 @@ get_all_deps(const void *ctx, const char *dir, const char *style,
 	return deps;
 }
 
-/* Can return NULL: _info may not support 'libs'. */
+/* Can return NULL: _info may not support prop. */
 static char **get_one_prop(const void *ctx, const char *dir, const char *prop,
 			   char *(*get_info)(const void *ctx, const char *dir))
 {
@@ -282,6 +282,51 @@ char **get_cflags(const void *ctx, const char *dir,
 	return flags;
 }
 
+static char *get_one_ported(const void *ctx, const char *dir,
+			    char *(*get_info)(const void *ctx, const char *dir))
+{
+	char **ported = get_one_prop(ctx, dir, "ported", get_info);
+
+	/* No news is good news. */
+	if (!ported || tal_count(ported) == 0)
+		return NULL;
+
+	if (tal_count(ported) != 1)
+		errx(1, "%s/_info ported gave %zu lines, not one",
+		     dir, tal_count(ported));
+
+	if (streq(ported[0], ""))
+		return NULL;
+	else
+		return ported[0];
+}
+
+char *get_ported(const void *ctx, const char *dir, bool recurse,
+		char *(*get_info)(const void *ctx, const char *dir))
+{
+	char *msg;
+
+	msg = get_one_ported(ctx, dir, get_info);
+	if (msg)
+		return msg;
+
+	if (recurse) {
+		size_t i;
+		char **deps = get_deps(ctx, dir, "depends", true, get_info);
+		for (i = 0; deps[i]; i++) {
+			char *subdir;
+			if (!strstarts(deps[i], "ccan/"))
+				continue;
+
+			subdir = path_join(ctx, find_ccan_dir(dir), deps[i]);
+			msg = get_one_ported(ctx, subdir, get_info);
+			if (msg)
+				return msg;
+		}
+	}
+	return NULL;
+}
+
 char **get_libs(const void *ctx, const char *dir, const char *style,
 		char *(*get_info)(const void *ctx, const char *dir))
 {