src/headers.c

   1 /*
   2  * Copyright 1993, 2000 Christopher Seiwald.
   3  *
   4  * This file is part of Jam - see jam.c for Copyright information.
   5  */
   6
   7 /*
   8  * headers.c - handle #includes in source files
   9  *
  10  * Using regular expressions provided as the variable $(HDRSCAN),
  11  * headers() searches a file for #include files and phonies up a
  12  * rule invocation:
  13  *
  14  *  $(HDRRULE) <target> : <include files> ;
  15  *
  16  * External routines:
  17  *    headers() - scan a target for include files and call HDRRULE
  18  *
  19  * Internal routines:
  20  *    headers1() - using regexp, scan a file and build include LIST
  21  *
  22  * 04/13/94 (seiwald) - added shorthand L0 for null list pointer
  23  * 09/10/00 (seiwald) - replaced call to compile_rule with evaluate_rule,
  24  *    so that headers() doesn't have to mock up a parse structure
  25  *    just to invoke a rule.
  26  * 03/02/02 (seiwald) - rules can be invoked via variable names
  27  * 10/22/02 (seiwald) - list_new() now does its own newstr()/copystr()
  28  * 11/04/02 (seiwald) - const-ing for string literals
  29  * 12/09/02 (seiwald) - push regexp creation down to headers1().
  30  */
  31 #include "jam.h"
  32 #include "lists.h"
  33 #include "parse.h"
  34 #include "compile.h"
  35 #include "rules.h"
  36 #include "variable.h"
  37 #include "hsregexp.h"
  38 #include "headers.h"
  39 #include "newstr.h"
  40 #include "hdrmacro.h"
  41 #include "hcache.h"
  42
  43
  44 /*
  45 #ifndef OPT_HEADER_CACHE_EXT
  46 static LIST *headers1 (const char *file, LIST *hdrscan);
  47 #endif
  48 */
  49
  50
  51 /*
  52  * headers() - scan a target for include files and call HDRRULE
  53  */
  54 #define MAXINC  (10)
  55
  56 void headers (TARGET *t) {
  57   LIST *hdrscan;
  58   LIST *hdrrule;
  59   LOL lol;
  60   //
  61   if (!(hdrscan = var_get("HDRSCAN")) || !(hdrrule = var_get("HDRRULE"))) return;
  62   /* doctor up call to HDRRULE rule */
  63   /* call headers1() to get LIST of included files */
  64   if (DEBUG_HEADER) printf("header scan %s\n", t->name);
  65   lol_init(&lol);
  66   lol_add(&lol, list_new(L0, t->name, 1));
  67 /*
  68 #ifdef OPT_HEADER_CACHE_EXT
  69   lol_add(&lol, hcache(t, hdrscan));
  70 #else
  71   lol_add(&lol, headers1(t->boundname, hdrscan));
  72 #endif
  73 */
  74   lol_add(&lol, hcache(t, hdrscan));
  75   if (lol_get(&lol, 1)) list_free(evaluate_rule(hdrrule->string, &lol, L0));
  76   /* clean up */
  77   lol_free(&lol);
  78 }
  79
  80
  81 /*
  82  * headers1() - using regexp, scan a file and build include LIST
  83  */
  84 /*
  85 #ifndef OPT_HEADER_CACHE_EXT
  86 static
  87 #endif
  88 */
  89 LIST *headers1 (const char *file, LIST *hdrscan) {
  90   FILE  *f;
  91   int i;
  92   int rec = 0;
  93   LIST *result = 0;
  94   HSRegExp *re[MAXINC];
  95   HSRegExp *re_macros;
  96   char buf[1024];
  97   //
  98   if (!(f = fopen(file, "r"))) return result;
  99   while (rec < MAXINC && hdrscan) {
 100     re[rec++] = hsRxCompile(hdrscan->string);
 101     hdrscan = list_next(hdrscan);
 102   }
 103   /* the following regexp is used to detect cases where a  */
 104   /* file is included through a line line "#include MACRO" */
 105   re_macros = hsRxCompile("^[ \t]*#[ \t]*include[ \t]*([A-Za-z][A-Za-z0-9_]*).*$");
 106   while (fgets(buf, sizeof(buf), f)) {
 107     for (i = 0; i < rec; ++i) {
 108       if (hsRxExec(re[i], buf) && re[i]->startp[1]) {
 109         /* copy and terminate extracted string */
 110         char buf2[MAXSYM];
 111         int l = re[i]->endp[1]-re[i]->startp[1];
 112         //
 113         memcpy(buf2, re[i]->startp[1], l);
 114         buf2[l] = 0;
 115         result = list_new(result, buf2, 0);
 116         if (DEBUG_HEADER) printf("header found: %s\n", buf2);
 117       }
 118     }
 119     /* special treatment for #include MACRO */
 120     if (hsRxExec(re_macros, buf) && re_macros->startp[1]) {
 121       const char *header_filename;
 122       char buf2[MAXSYM];
 123       int l = re_macros->endp[1]-re_macros->startp[1];
 124       //
 125       memcpy(buf2, re_macros->startp[1], l);
 126       buf2[l] = 0;
 127       if (DEBUG_HEADER) printf("macro header found: %s", buf2);
 128       header_filename = macro_header_get(buf2);
 129       if (header_filename) {
 130         if (DEBUG_HEADER) printf(" resolved to '%s'\n", header_filename);
 131         result = list_new(result, header_filename, 0);
 132       } else {
 133         if (DEBUG_HEADER) printf(" ignored !!\n");
 134       }
 135     }
 136   }
 137   hsRxFree(re_macros);
 138   while (rec) hsRxFree(re[--rec]);
 139   fclose(f);
 140   //
 141   return result;
 142 }