2 * Copyright 1993, 2000 Christopher Seiwald.
4 * This file is part of Jam - see jam.c for Copyright information.
8 * headers.c - handle #includes in source files
10 * Using regular expressions provided as the variable $(HDRSCAN),
11 * headers() searches a file for #include files and phonies up a
14 * $(HDRRULE) <target> : <include files> ;
17 * headers() - scan a target for include files and call HDRRULE
20 * headers1() - using regexp, scan a file and build include LIST
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().
45 #ifndef OPT_HEADER_CACHE_EXT
46 static LIST *headers1 (const char *file, LIST *hdrscan);
52 * headers() - scan a target for include files and call HDRRULE
56 void headers (TARGET
*t
) {
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
);
66 lol_add(&lol
, list_new(L0
, t
->name
, 1));
68 #ifdef OPT_HEADER_CACHE_EXT
69 lol_add(&lol, hcache(t, hdrscan));
71 lol_add(&lol, headers1(t->boundname, hdrscan));
74 lol_add(&lol
, hcache(t
, hdrscan
));
75 if (lol_get(&lol
, 1)) list_free(evaluate_rule(hdrrule
->string
, &lol
, L0
));
82 * headers1() - using regexp, scan a file and build include LIST
85 #ifndef OPT_HEADER_CACHE_EXT
89 LIST
*headers1 (const char *file
, LIST
*hdrscan
) {
98 if (!(f
= fopen(file
, "r"))) return result
;
99 while (rec
< MAXINC
&& hdrscan
) {
100 re
[rec
++] = hsRxCompile(hdrscan
->string
);
101 hdrscan
= list_next(hdrscan
);
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 */
111 int l
= re
[i
]->endp
[1]-re
[i
]->startp
[1];
113 memcpy(buf2
, re
[i
]->startp
[1], l
);
115 result
= list_new(result
, buf2
, 0);
116 if (DEBUG_HEADER
) printf("header found: %s\n", buf2
);
119 /* special treatment for #include MACRO */
120 if (hsRxExec(re_macros
, buf
) && re_macros
->startp
[1]) {
121 const char *header_filename
;
123 int l
= re_macros
->endp
[1]-re_macros
->startp
[1];
125 memcpy(buf2
, re_macros
->startp
[1], l
);
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);
133 if (DEBUG_HEADER
) printf(" ignored !!\n");
138 while (rec
) hsRxFree(re
[--rec
]);