summaryrefslogtreecommitdiff
path: root/Build/source/texk/kpathsea/variable.c
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-06-30 00:30:35 +0000
committerKarl Berry <karl@freefriends.org>2009-06-30 00:30:35 +0000
commit5fa926769060d32ca128bbd8f349d90d7fa228b9 (patch)
tree75bf727e0e109aaf98fe0da5fc1952fcea0b5247 /Build/source/texk/kpathsea/variable.c
parent020569e17eb68d02a19403a94113b88e8049fbc5 (diff)
keep unexpandable (non-)variables in output, so filenames containing dollar signs can be found
git-svn-id: svn://tug.org/texlive/trunk@14008 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/kpathsea/variable.c')
-rw-r--r--Build/source/texk/kpathsea/variable.c28
1 files changed, 20 insertions, 8 deletions
diff --git a/Build/source/texk/kpathsea/variable.c b/Build/source/texk/kpathsea/variable.c
index 3fb45d13bec..4495eaa908a 100644
--- a/Build/source/texk/kpathsea/variable.c
+++ b/Build/source/texk/kpathsea/variable.c
@@ -1,6 +1,6 @@
/* variable.c: variable expansion.
- Copyright 1993, 1994, 1995, 1996, 2008 Karl Berry.
+ Copyright 1993, 1994, 1995, 1996, 2008, 2009 Karl Berry.
Copyright 1997, 1999, 2001, 2002, 2005 Olaf Weber.
This library is free software; you can redistribute it and/or
@@ -94,7 +94,7 @@ kpse_var_value (const_string var)
before expanding. */
static void
-expanding (kpathsea kpse, const_string var, boolean xp)
+expanding (kpathsea kpse, const_string var, boolean xp)
{
unsigned e;
for (e = 0; e < kpse->expansion_len; e++) {
@@ -128,11 +128,14 @@ expanding_p (kpathsea kpse, const_string var)
/* Append the result of value of `var' to EXPANSION, where `var' begins
at START and ends at END. If `var' is not set, do not complain.
- This is a subroutine for the more complicated expansion function. */
+ Return 1 if `var' was defined, 0 if not. This is a subroutine for
+ the `kpathsea_var_expand' function. */
-static void
-expand (kpathsea kpse, fn_type *expansion, const_string start, const_string end)
+static boolean
+expand (kpathsea kpse, fn_type *expansion,
+ const_string start, const_string end)
{
+ boolean ret = false;
string value;
unsigned len = end - start + 1;
string var = (string)xmalloc (len + 1);
@@ -155,6 +158,7 @@ expand (kpathsea kpse, fn_type *expansion, const_string start, const_string en
value = kpathsea_cnf_get (kpse, var);
if (value) {
+ ret = true;
expanding (kpse, var, true);
value = kpathsea_var_expand (kpse, value);
expanding (kpse, var, false);
@@ -173,6 +177,7 @@ expand (kpathsea kpse, fn_type *expansion, const_string start, const_string en
free (var);
}
+ return ret;
}
/* Can't think of when it would be useful to change these (and the
@@ -217,7 +222,13 @@ kpathsea_var_expand (kpathsea kpse, const_string src)
} while (IS_VAR_CHAR (*var_end));
var_end--; /* had to go one past */
- expand (kpse, &expansion, s, var_end);
+ if (!expand (kpse, &expansion, s, var_end)) {
+ /* If no expansion, include the literal $x construct,
+ so filenames containing dollar signs can be read.
+ The first +1 is to get the full variable name,
+ the other +1 is to get the dollar sign; we've moved past it. */
+ fn_grow (&expansion, s - 1, var_end - s + 1 + 1);
+ }
s = var_end;
} else if (IS_VAR_BEGIN_DELIMITER (*s)) {
@@ -236,9 +247,10 @@ kpathsea_var_expand (kpathsea kpse, const_string src)
}
} else {
- /* $<something-else>: error. */
+ /* $<something-else>: warn, but preserve characters; again, so
+ filenames containing dollar signs can be read. */
WARNING2 ("%s: Unrecognized variable construct `$%c'", src, *s);
- /* Just ignore those chars and keep going. */
+ fn_grow (&expansion, s - 1, 2); /* moved past the $ */
}
} else
fn_1grow (&expansion, *s);