+/* License compatibilty chart (simplified: we don't test that licenses between
+ * files are compatible). */
+#define O true
+#define X false
+bool license_compatible[LICENSE_UNKNOWN+1][LICENSE_UNKNOWN] = {
+/* LGPL2+ LGPL3 GPL2+ GPL3 BSD CC0
+ LGPL2 LGPL GPL2 GPL MIT PD */
+/* _info says: LGPL2+ */
+ { O, X, X, O, X, X, X, X, O, O, O, O },
+/* _info says: LGPL2 only */
+ { O, O, X, O, X, X, X, X, O, O, O, O },
+/* _info says: LGPL3 (or any later version) */
+ { O, X, O, O, X, X, X, X, O, O, O, O },
+/* _info says: LGPL (no version specified) */
+ { O, O, O, O, X, X, X, X, O, O, O, O },
+/* _info says: GPL2+ */
+ { O, O, O, O, O, X, X, O, O, O, O, O },
+/* _info says: GPL2 only */
+ { O, O, O, O, O, O, X, O, O, O, O, O },
+/* _info says: GPL3 (or any later version) */
+ { O, O, O, O, O, X, O, O, O, O, O, O },
+/* _info says: GPL (unknown version) */
+ { O, O, O, O, O, O, O, O, O, O, O, O },
+/* _info says: BSD (3-clause) */
+ { X, X, X, X, X, X, X, X, O, O, O, O },
+/* _info says: MIT */
+ { X, X, X, X, X, X, X, X, X, O, O, O },
+/* _info says: CC0 */
+ { X, X, X, X, X, X, X, X, X, X, O, O },
+/* _info says: Public domain */
+ { X, X, X, X, X, X, X, X, X, X, O, O },
+/* _info says something we don't understand */
+ { X, X, X, X, X, X, X, X, X, X, O, O }
+};
+#undef X
+#undef O
+
+/* 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 (streq(d->lines[0], "CC0"))
+ return LICENSE_CC0;
+ if (tal_strreg(NULL, d->lines[0], "CC0 \\([Pp]ublic [Dd]omain\\)",
+ NULL))
+ return LICENSE_CC0;
+ if (tal_strreg(NULL, d->lines[0], "[Pp]ublic [Dd]omain"))
+ return LICENSE_PUBLIC_DOMAIN;
+
+ return LICENSE_UNKNOWN;
+}
+