git.ozlabs.org Git - ccan/blob - 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, m->basename, false, 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);