ccanlint: Add -k option to keep results.
[ccan] / tools / ccanlint / compulsory_tests / 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         /* Objects from all the C files. */
30         list_for_each(&m->c_files, i, list)
31                 list = talloc_asprintf_append(list, "%s ", i->compiled);
32
33         return list;
34 }
35
36 static void *do_build(struct manifest *m,
37                       bool keep,
38                       unsigned int *timeleft)
39 {
40         char *filename, *err;
41
42         if (list_empty(&m->c_files)) {
43                 /* No files?  No score, but we "pass". */
44                 build.total_score = 0;
45                 return NULL;
46         }
47         filename = link_objects(m, obj_list(m), &err);
48         if (filename && keep) {
49                 char *realname = talloc_asprintf(m, "%s.o", m->dir);
50                 /* We leave this object file around, all built. */
51                 if (!move_file(filename, realname))
52                         return talloc_asprintf(m, "Failed to rename %s to %s",
53                                                filename, realname);
54                 return NULL;
55         }
56         return err;
57 }
58
59 static const char *describe_build(struct manifest *m, void *check_result)
60 {
61         return talloc_asprintf(check_result, 
62                                "The object file for the module didn't build:\n"
63                                "%s", (char *)check_result);
64 }
65
66 struct ccanlint build = {
67         .key = "build",
68         .name = "Module can be built from object files",
69         .total_score = 1,
70         .check = do_build,
71         .describe = describe_build,
72         .can_run = can_build,
73 };
74
75 REGISTER_TEST(build, &depends_built, NULL);