git.ozlabs.org Git - ccan/blob - tools/ccanlint/compulsory_tests/objects_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 void check_objs_build(struct manifest *m,
  25                              bool keep,
  26                              unsigned int *timeleft, struct score *score)
  27 {
  28         struct ccan_file *i;
  29         bool errors = false, warnings = false;
  30
  31         if (list_empty(&m->c_files))
  32                 score->total = 0;
  33         else
  34                 score->total = 2;
  35
  36         list_for_each(&m->c_files, i, list) {
  37                 char *output;
  38                 char *fullfile = talloc_asprintf(m, "%s/%s", m->dir, i->name);
  39
  40                 i->compiled = maybe_temp_file(m, "", keep, fullfile);
  41                 if (!compile_object(score, fullfile, ccan_dir, "", i->compiled,
  42                                     &output)) {
  43                         talloc_free(i->compiled);
  44                         score_file_error(score, i, 0,
  45                                          "Compiling object files:\n%s",
  46                                          output);
  47                         errors = true;
  48                 } else if (!streq(output, "")) {
  49                         score_file_error(score, i, 0,
  50                                          "Compiling object files gave"
  51                                          " warnings:\n%s",
  52                                          output);
  53                         warnings = true;
  54                 }
  55         }
  56
  57         if (!errors) {
  58                 score->pass = true;
  59                 score->score = score->total - warnings;
  60         }
  61 }
  62
  63 struct ccanlint objects_build = {
  64         .key = "objects_build",
  65         .name = "Module object files can be built",
  66         .check = check_objs_build,
  67         .can_run = can_build,
  68         .needs = "depends_exist"
  69 };
  70
  71 REGISTER_TEST(objects_build);