ccanlint: Add -k option to keep results.
[ccan] / tools / ccanlint / compulsory_tests / check_depends_built.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 /* FIXME: recursive ccanlint if they ask for it. */
25 static bool expect_obj_file(const char *dir)
26 {
27         struct manifest *dep_man;
28         bool has_c_files;
29
30         dep_man = get_manifest(dir, dir);
31
32         /* If it has C files, we expect an object file built from them. */
33         has_c_files = !list_empty(&dep_man->c_files);
34         talloc_free(dep_man);
35         return has_c_files;
36 }
37
38 static void *check_depends_built(struct manifest *m,
39                                  bool keep,
40                                  unsigned int *timeleft)
41 {
42         struct ccan_file *i;
43         struct stat st;
44         char *report = NULL;
45
46         list_for_each(&m->dep_dirs, i, list) {
47                 if (!expect_obj_file(i->fullname))
48                         continue;
49
50                 i->compiled = talloc_asprintf(i, "%s.o", i->fullname);
51                 if (stat(i->compiled, &st) != 0) {
52                         report = talloc_asprintf_append(report,
53                                                         "object file %s\n",
54                                                         i->compiled);
55                         i->compiled = NULL;
56                 }                       
57         }
58
59         /* We may need libtap for testing, unless we're "tap" */
60         if (!streq(m->basename, "tap")
61             && (!list_empty(&m->run_tests) || !list_empty(&m->api_tests))) {
62                 char *tapobj = talloc_asprintf(m, "%s/ccan/tap.o", ccan_dir);
63                 if (stat(tapobj, &st) != 0) {
64                         report = talloc_asprintf_append(report,
65                                                         "object file %s"
66                                                         " (for tests)\n",
67                                                         tapobj);
68                 }
69         }
70
71         return talloc_steal(m, report);
72 }
73
74 static const char *describe_depends_built(struct manifest *m,
75                                           void *check_result)
76 {
77         return talloc_asprintf(check_result, 
78                                "The following dependencies are not built:\n"
79                                "%s", (char *)check_result);
80 }
81
82 struct ccanlint depends_built = {
83         .key = "depends-built",
84         .name = "Module's CCAN dependencies are already built",
85         .total_score = 1,
86         .check = check_depends_built,
87         .describe = describe_depends_built,
88         .can_run = can_build,
89 };
90
91 REGISTER_TEST(depends_built, &depends_exist, NULL);