ccanlint: fix missing file.
[ccan] / tools / ccanlint / tests / info_compiles.c
1 #include <tools/ccanlint/ccanlint.h>
2 #include <tools/tools.h>
3 #include <ccan/tal/grab_file/grab_file.h>
4 #include <ccan/read_write_all/read_write_all.h>
5 #include <ccan/str/str.h>
6 #include <sys/types.h>
7 #include <sys/stat.h>
8 #include <fcntl.h>
9 #include <unistd.h>
10 #include <limits.h>
11 #include <errno.h>
12 #include <stdlib.h>
13 #include <stdio.h>
14 #include <err.h>
15 #include <string.h>
16 #include <ctype.h>
17
18 static void check_info_compiles(struct manifest *m,
19                                 unsigned int *timeleft, struct score *score)
20 {
21         char *info_c_file, *info, *output;
22         int fd;
23
24         /* We don't really fail if we're in safe mode: our dependencies
25          * still run. */
26         if (safe_mode) {
27                 score->pass = true;
28                 score->score = 0;
29                 return;
30         }
31
32         /* Copy it to a file with proper .c suffix. */
33         info = grab_file(score, m->info_file->fullname);
34         if (!info) {
35                 score_file_error(score, m->info_file, 0,
36                                  "could not be read: %s", strerror(errno));
37                 return;
38         }
39
40         info_c_file = temp_file(info, ".c", "_info");
41         fd = open(info_c_file, O_WRONLY|O_CREAT|O_EXCL, 0600);
42         if (fd < 0 || !write_all(fd, info, tal_count(info)-1))
43                 err(1, "Copying _info file");
44
45         if (close(fd) != 0)
46                 err(1, "Closing _info file");
47
48         m->info_file->compiled[COMPILE_NORMAL] = temp_file(m, "", "info");
49         if (!compile_and_link(score, info_c_file, find_ccan_dir(m->dir), "",
50                               compiler, cflags, "",
51                               m->info_file->compiled[COMPILE_NORMAL],
52                               &output)) {
53                 score_file_error(score, m->info_file, 0,
54                                  "Errors compiling _info:\n%s", output);
55                 return;
56         }
57
58         score->pass = true;
59         score->score = 1;
60 }
61
62 struct ccanlint info_compiles = {
63         .key = "info_compiles",
64         .name = "_info compiles",
65         .check = check_info_compiles,
66         .needs = "info_exists",
67         .compulsory = true
68 };
69
70 REGISTER_TEST(info_compiles);