ccanlint: use familiar names for temporary files, show them with -vv.
[ccan] / tools / ccanlint / compulsory_tests / check_build.c
1 #include <tools/ccanlint/ccanlint.h>
2 #include <tools/tools.h>
3 #include <ccan/talloc/talloc.h>
4 #include <ccan/str/str.h>
5 #include <sys/types.h>
6 #include <sys/stat.h>
7 #include <fcntl.h>
8 #include <unistd.h>
9 #include <limits.h>
10 #include <errno.h>
11 #include <stdlib.h>
12 #include <stdio.h>
13 #include <err.h>
14 #include <string.h>
15 #include <ctype.h>
16
17 static const char *can_build(struct manifest *m)
18 {
19         if (safe_mode)
20                 return "Safe mode enabled";
21         return NULL;
22 }
23
24 static char *obj_list(const struct manifest *m)
25 {
26         char *list = talloc_strdup(m, "");
27         struct ccan_file *i;
28
29         /* Other CCAN deps. */
30         list_for_each(&m->dep_dirs, i, list) {
31                 if (i->compiled)
32                         list = talloc_asprintf_append(list, "%s ", i->compiled);
33         }
34         return list;
35 }
36
37 static char *lib_list(const struct manifest *m)
38 {
39         unsigned int i, num;
40         char **libs = get_libs(m, ".", &num, &m->info_file->compiled);
41         char *ret = talloc_strdup(m, "");
42
43         for (i = 0; i < num; i++)
44                 ret = talloc_asprintf_append(ret, "-l%s ", libs[i]);
45         return ret;
46 }
47
48 static void *check_use_build(struct manifest *m,
49                              bool keep,
50                              unsigned int *timeleft)
51 {
52         char *contents;
53         char *tmpfile;
54         char *basename = talloc_asprintf(m, "%s/example.c", m->dir);
55         int fd;
56
57         tmpfile = maybe_temp_file(m, ".c", keep, basename);
58
59         fd = open(tmpfile, O_WRONLY | O_CREAT | O_EXCL, 0600);
60         if (fd < 0)
61                 return talloc_asprintf(m, "Creating temporary file: %s",
62                                        strerror(errno));
63
64         contents = talloc_asprintf(tmpfile,
65                                    "#include <ccan/%s/%s.h>\n"
66                                    "int main(void)\n"
67                                    "{\n"
68                                    "    return 0;\n"
69                                    "}\n",
70                                    m->basename, m->basename);
71         if (write(fd, contents, strlen(contents)) != strlen(contents)) {
72                 close(fd);
73                 return "Failure writing to temporary file";
74         }
75         close(fd);
76
77         return compile_and_link(m, tmpfile, ccan_dir, obj_list(m), "",
78                                 lib_list(m),
79                                 maybe_temp_file(m, "", keep, tmpfile));
80 }
81
82 static const char *describe_use_build(struct manifest *m, void *check_result)
83 {
84         return talloc_asprintf(check_result, 
85                                "Linking against module:\n"
86                                "%s", (char *)check_result);
87 }
88
89 struct ccanlint check_build = {
90         .key = "check-link",
91         .name = "Module can be linked against trivial program",
92         .total_score = 1,
93         .check = check_use_build,
94         .describe = describe_use_build,
95         .can_run = can_build,
96 };
97
98 REGISTER_TEST(check_build, &build, NULL);