diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/bind-lex.l | 17 | ||||
-rw-r--r-- | src/grecs.h | 2 | ||||
-rw-r--r-- | src/preproc.c | 34 |
3 files changed, 34 insertions, 19 deletions
diff --git a/src/bind-lex.l b/src/bind-lex.l index 12dddf7..a5cf644 100644 --- a/src/bind-lex.l +++ b/src/bind-lex.l | |||
@@ -192,11 +192,24 @@ grecs_bind_new_source(const char *name) | |||
192 | grecs_locus_t *loc = grecs_current_locus.file ? | 192 | grecs_locus_t *loc = grecs_current_locus.file ? |
193 | &grecs_current_locus : NULL; | 193 | &grecs_current_locus : NULL; |
194 | struct stat st; | 194 | struct stat st; |
195 | FILE *fp = fopen(name, "r"); | 195 | FILE *fp; |
196 | |||
197 | if (access(name, F_OK)) { | ||
198 | int ec = errno; | ||
199 | char *tmp = grecs_find_include_file(name, 0); | ||
200 | if (!tmp) { | ||
201 | grecs_error(loc, ec, _("cannot open `%s'"), name); | ||
202 | return 1; | ||
203 | } | ||
204 | name = grecs_install_text(tmp); | ||
205 | free(tmp); | ||
206 | } | ||
207 | |||
208 | fp = fopen(name, "r"); | ||
196 | if (!fp) { | 209 | if (!fp) { |
197 | grecs_error(loc, errno, _("cannot open `%s'"), name); | 210 | grecs_error(loc, errno, _("cannot open `%s'"), name); |
198 | return 1; | 211 | return 1; |
199 | } | 212 | } |
200 | if (fstat(fileno(fp), &st)) { | 213 | if (fstat(fileno(fp), &st)) { |
201 | grecs_error(loc, errno, _("can't state %s"), name); | 214 | grecs_error(loc, errno, _("can't state %s"), name); |
202 | fclose(fp); | 215 | fclose(fp); |
diff --git a/src/grecs.h b/src/grecs.h index b839d71..5eef48d 100644 --- a/src/grecs.h +++ b/src/grecs.h | |||
@@ -263,6 +263,8 @@ int grecs_preproc_init(const char *name); | |||
263 | void grecs_preproc_done(void); | 263 | void grecs_preproc_done(void); |
264 | int grecs_preproc_run(const char *config_file, const char *extpp); | 264 | int grecs_preproc_run(const char *config_file, const char *extpp); |
265 | 265 | ||
266 | char *grecs_find_include_file(const char *name, int allow_cwd); | ||
267 | |||
266 | FILE *grecs_preproc_extrn_start(const char *file, pid_t *ppid); | 268 | FILE *grecs_preproc_extrn_start(const char *file, pid_t *ppid); |
267 | void grecs_preproc_extrn_shutdown(pid_t pid); | 269 | void grecs_preproc_extrn_shutdown(pid_t pid); |
268 | 270 | ||
diff --git a/src/preproc.c b/src/preproc.c index 8debdcf..4ab3066 100644 --- a/src/preproc.c +++ b/src/preproc.c | |||
@@ -472,8 +472,8 @@ pop_source() | |||
472 | return 0; | 472 | return 0; |
473 | } | 473 | } |
474 | 474 | ||
475 | static int | 475 | char * |
476 | try_file(const char *name, int allow_cwd, int err_not_found, char **newp) | 476 | grecs_find_include_file(const char *name, int allow_cwd) |
477 | { | 477 | { |
478 | static char *cwd = "."; | 478 | static char *cwd = "."; |
479 | struct file_data fd; | 479 | struct file_data fd; |
@@ -495,16 +495,10 @@ try_file(const char *name, int allow_cwd, int err_not_found, char **newp) | |||
495 | 495 | ||
496 | if (!fd.found) { | 496 | if (!fd.found) { |
497 | pp_list_find(std_include_path, &fd); | 497 | pp_list_find(std_include_path, &fd); |
498 | 498 | if (!fd.found) | |
499 | if (!fd.found && err_not_found) { | 499 | return NULL; |
500 | grecs_error(&LOCUS, 0, | ||
501 | _("%s: No such file or directory"), name); | ||
502 | *newp = NULL; | ||
503 | } | ||
504 | } | 500 | } |
505 | if (fd.found) | 501 | return fd.buf; |
506 | *newp = fd.buf; | ||
507 | return fd.found; | ||
508 | } | 502 | } |
509 | 503 | ||
510 | static int | 504 | static int |
@@ -535,8 +529,13 @@ parse_include(const char *text, int once) | |||
535 | else | 529 | else |
536 | allow_cwd = 1; | 530 | allow_cwd = 1; |
537 | 531 | ||
538 | if (p[0] != '/' && try_file(p, allow_cwd, 1, &tmp)) | 532 | if (p[0] != '/') { |
539 | p = tmp; | 533 | p = grecs_find_include_file(p, allow_cwd); |
534 | if (!p) | ||
535 | grecs_error(&LOCUS, 0, | ||
536 | _("%s: No such file or directory"), | ||
537 | p); | ||
538 | } | ||
540 | } | 539 | } |
541 | 540 | ||
542 | if (p) | 541 | if (p) |
@@ -573,18 +572,19 @@ grecs_preproc_run(const char *config_file, const char *extpp) | |||
573 | FILE *outfile; | 572 | FILE *outfile; |
574 | char *setup_file; | 573 | char *setup_file; |
575 | char *cmd = NULL; | 574 | char *cmd = NULL; |
576 | 575 | ||
577 | if (try_file("pp-setup", 1, 0, &setup_file)) { | 576 | setup_file = grecs_find_include_file("pp-setup", 1); |
577 | if (setup_file) { | ||
578 | size_t size = 0; | 578 | size_t size = 0; |
579 | if (grecs_asprintf(&cmd, &size, | 579 | if (grecs_asprintf(&cmd, &size, |
580 | "%s %s -", extpp, setup_file)) | 580 | "%s %s -", extpp, setup_file)) |
581 | grecs_alloc_die(); | 581 | grecs_alloc_die(); |
582 | grecs_free(setup_file); | 582 | grecs_free(setup_file); |
583 | } else | 583 | } else |
584 | cmd = grecs_strdup (extpp); | 584 | cmd = grecs_strdup(extpp); |
585 | /*FIXME_DEBUG_F1 (2, "Running preprocessor: `%s'", cmd);*/ | 585 | /*FIXME_DEBUG_F1 (2, "Running preprocessor: `%s'", cmd);*/ |
586 | outfile = popen(cmd, "w"); | 586 | outfile = popen(cmd, "w"); |
587 | if (!outfile){ | 587 | if (!outfile) { |
588 | grecs_error(NULL, errno, | 588 | grecs_error(NULL, errno, |
589 | _("Unable to start external preprocessor `%s'"), | 589 | _("Unable to start external preprocessor `%s'"), |
590 | cmd); | 590 | cmd); |