From a2032ba51f253d4340b8de9d5f751925c70fe53b Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sun, 3 May 1992 22:03:26 +0000 Subject: [PATCH] Formerly read.c.~29~ --- read.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/read.c b/read.c index 0e1cb4ec..0b60f77a 100644 --- a/read.c +++ b/read.c @@ -413,6 +413,40 @@ read_makefile (filename, type) "Empty `override' directive"); continue; } + else if (word1eq ("export", 6)) + { + struct variable *v; + p2 = next_token (p + 6); + v = try_variable_definition (p2, o_file); + if (v != 0) + v->export = 1; + else + { + unsigned int len; + for (p = find_next_token (&p2, &len); p != 0; + p = find_next_token (&p2, &len)) + { + v = lookup_variable (p, len); + if (v == 0) + v = define_variable (p, len, "", o_file, 0); + v->export = v_export; + } + } + } + else if (word1eq ("unexport", 8)) + { + unsigned int len; + struct variable *v; + p2 = next_token (p + 8); + for (p = find_next_token (&p2, &len); p != 0; + p = find_next_token (&p2, &len)) + { + v = lookup_variable (p, len); + if (v == 0) + v = define_variable (p, len, "", o_file, 0); + v->export = v_noexport; + } + } else if (word1eq ("include", 7)) { /* We have found an `include' line specifying a nested