1 #include <tools/ccanlint/ccanlint.h>
11 #include <ccan/talloc/talloc.h>
12 #include <ccan/str/str.h>
14 static const char *expected_link(enum license license)
17 case LICENSE_LGPLv2_PLUS:
19 return "../../licenses/LGPL-2.1";
22 return "../../licenses/LGPL-3";
24 case LICENSE_GPLv2_PLUS:
26 return "../../licenses/GPL-2";
30 return "../../licenses/GPL-3";
33 return "../../licenses/BSD-3CLAUSE";
36 return "../../licenses/BSD-MIT";
39 return "../../licenses/CC0";
46 static void handle_license_link(struct manifest *m, struct score *score)
48 struct doc_section *d = find_license_tag(m);
49 const char *link = talloc_asprintf(m, "%s/LICENSE", m->dir);
50 const char *ldest = expected_link(m->license);
54 "Most modules want a copy of their license, so usually we create a\n"
55 "LICENSE symlink into ../../licenses to avoid too many copies.\n");
57 /* FIXME: make ask printf-like */
58 q = talloc_asprintf(m, "Set up link to %s (license is %s)?",
61 if (symlink(ldest, link) != 0)
62 err(1, "Creating symlink %s -> %s", link, ldest);
66 extern struct ccanlint license_exists;
68 static void check_has_license(struct manifest *m,
69 unsigned int *timeleft, struct score *score)
73 char *license = talloc_asprintf(m, "%s/LICENSE", m->dir);
75 struct doc_section *d;
77 d = find_license_tag(m);
79 score->error = talloc_strdup(score, "No License: tag in _info");
83 m->license = which_license(d);
84 if (m->license == LICENSE_UNKNOWN) {
85 score_file_error(score, m->info_file, d->srcline,
86 "WARNING: unknown License: in _info: %s",
88 /* FIXME: For historical reasons, don't fail here. */
93 /* If they have a license tag at all, we pass. */
96 expected = expected_link(m->license);
98 len = readlink(license, buf, sizeof(buf));
100 /* Could be a real file... OK if not a standard license. */
101 if (errno == EINVAL) {
103 score->score = score->total;
107 = talloc_asprintf(score,
108 "License in _info is '%s',"
109 " expect LICENSE symlink '%s'",
110 d->lines[0], expected);
113 if (errno == ENOENT) {
114 /* Public domain doesn't really need a file. */
115 if (m->license == LICENSE_PUBLIC_DOMAIN) {
116 score->score = score->total;
119 score->error = talloc_strdup(score,
120 "LICENSE does not exist");
122 license_exists.handle = handle_license_link;
125 err(1, "readlink on %s", license);
127 if (len >= sizeof(buf))
128 errx(1, "Reading symlink %s gave huge result", license);
132 if (!strstarts(buf, "../../licenses/")) {
133 score->error = talloc_asprintf(score,
134 "Expected symlink to"
135 " ../../licenses/..."
141 score->error = talloc_asprintf(score,
142 "License in _info is unknown '%s',"
143 " but LICENSE symlink is '%s'",
148 if (!streq(buf, expected)) {
149 score->error = talloc_asprintf(score,
150 "Expected symlink to %s not %s",
155 score->score = score->total;
158 struct ccanlint license_exists = {
159 .key = "license_exists",
160 .name = "Module has License: entry in _info, and LICENSE symlink/file",
161 .check = check_has_license,
162 .needs = "info_exists"
164 REGISTER_TEST(license_exists);