X-Git-Url: https://git.ozlabs.org/?p=ccan;a=blobdiff_plain;f=tools%2Fccanlint%2Flicenses.c;h=962412ccd8ef09f00f71c9e6a775e68b58595dd4;hp=9bfa1d2b8d57b3bb005fccc653ba4d209cebf5c8;hb=1c92b49f17c58ebad46ba8a4f628ddd3a09d46e7;hpb=e67de75f0d64096956ad40ecb09462dac6fc5f03

diff --git a/tools/ccanlint/licenses.c b/tools/ccanlint/licenses.c
index 9bfa1d2b..962412cc 100644
--- a/tools/ccanlint/licenses.c
+++ b/tools/ccanlint/licenses.c
@@ -2,6 +2,7 @@
 #include "ccanlint.h"
 #include <ccan/talloc/talloc.h>
 #include <ccan/str/str.h>
+#include <ccan/str_talloc/str_talloc.h>
 
 const struct license_info licenses[] = {
 	{ "LGPLv2+", "LGPL",
@@ -72,6 +73,79 @@ const struct license_info licenses[] = {
 	},
 };
 
+/* License compatibilty chart (simplified: we don't test that licenses between
+ * files are compatible). */
+bool license_compatible[LICENSE_UNKNOWN+1][LICENSE_UNKNOWN] = {
+/*       LGPL2+ LGPL2 LGPL3 LGPL  GPL2+ GPL2  GPL3  GPL   BSD   MIT   PD   */
+/* _info says: LGPL2+ */
+	{ true, false,false,true, false,false,false,false,true, true, true },
+/* _info says: LGPL2 only */
+	{ true, true, false,true, false,false,false,false,true, true, true },
+/* _info says: LGPL3 (or any later version) */
+	{ true, false,true, true, false,false,false,false,true, true, true },
+/* _info says: LGPL (no version specified) */
+	{ true, true, true, true, false,false,false,false,true, true, true },
+/* _info says: GPL2+ */
+	{ true, true, true, true, true, false,false,true, true, true, true },
+/* _info says: GPL2 only */
+	{ true, true, true, true, true, true, false,true, true, true, true },
+/* _info says: GPL3 (or any later version) */
+	{ true, true, true, true, true, false,true, true, true, true, true },
+/* _info says: GPL (unknown version) */
+	{ true, true, true, true, true, true, true, true, true, true, true },
+/* _info says: BSD (3-clause) */
+	{ false,false,false,false,false,false,false,false,true, true, true },
+/* _info says: MIT */
+	{ false,false,false,false,false,false,false,false,false,true, true },
+/* _info says: Public domain */
+	{ false,false,false,false,false,false,false,false,false,false,true },
+/* _info says something we don't understand */
+	{ false,false,false,false,false,false,false,false,false,false,true }
+};
+
+/* See GPLv2 and v2 (basically same wording) for interpreting versions:
+ * the "any later version" means the recepient can choose. */
+enum license which_license(struct doc_section *d)
+{
+	if (!d)
+		return LICENSE_UNKNOWN;
+
+	/* This means "user chooses what version", including GPLv1! */
+	if (streq(d->lines[0], "GPL"))
+		return LICENSE_GPL;
+	/* This means "v2 only". */
+	if (streq(d->lines[0], "GPLv2"))
+		return LICENSE_GPLv2;
+	/* This means "v2 or above" at user's choice. */
+	if (streq(d->lines[0], "GPL (v2 or any later version)"))
+		return LICENSE_GPLv2_PLUS;
+	/* This means "v3 or above" at user's choice. */
+	if (streq(d->lines[0], "GPL (v3 or any later version)"))
+		return LICENSE_GPLv3;
+
+	/* This means "user chooses what version" */
+	if (streq(d->lines[0], "LGPL"))
+		return LICENSE_LGPL;
+	/* This means "v2.1 only". */
+	if (streq(d->lines[0], "LGPLv2.1"))
+		return LICENSE_LGPLv2;
+	/* This means "v2.1 or above" at user's choice. */
+	if (streq(d->lines[0], "LGPL (v2.1 or any later version)"))
+		return LICENSE_LGPLv2_PLUS;
+	/* This means "v3 or above" at user's choice. */
+	if (streq(d->lines[0], "LGPL (v3 or any later version)"))
+		return LICENSE_LGPLv3;
+
+	if (streq(d->lines[0], "BSD-MIT") || streq(d->lines[0], "MIT"))
+		return LICENSE_MIT;
+	if (streq(d->lines[0], "BSD (3 clause)"))
+		return LICENSE_BSD;
+	if (strreg(NULL, d->lines[0], "[Pp]ublic [Dd]omain"))
+		return LICENSE_PUBLIC_DOMAIN;
+
+	return LICENSE_UNKNOWN;
+}
+
 const char *get_ccan_simplified(struct ccan_file *f)
 {
 	if (!f->simplified) {
@@ -111,3 +185,16 @@ bool find_boilerplate(struct ccan_file *f, enum license license)
 	}
 	return true;
 }
+
+struct doc_section *find_license_tag(const struct manifest *m)
+{
+	struct doc_section *d;
+
+	list_for_each(get_ccan_file_docs(m->info_file), d, list) {
+		if (!streq(d->function, m->basename))
+			continue;
+		if (streq(d->type, "license"))
+			return d;
+	}
+	return NULL;
+}