diff options
Diffstat (limited to 'posix/wordexp.c')
| -rw-r--r-- | posix/wordexp.c | 243 |
1 files changed, 172 insertions, 71 deletions
diff --git a/posix/wordexp.c b/posix/wordexp.c index 651c67d552..54a550bf91 100644 --- a/posix/wordexp.c +++ b/posix/wordexp.c @@ -36,7 +36,10 @@ #include <errno.h> #include <sys/param.h> #include <stdio.h> +#include <fnmatch.h> +/* Undefine the following line for the production version. */ +/* #define NDEBUG 1 */ #include <assert.h> /* @@ -874,6 +877,14 @@ parse_param (char **word, size_t *word_length, size_t *max_length, const char *words, size_t *offset, int flags, wordexp_t *pwordexp) { /* We are poised just after "$" */ + enum remove_pattern_enum + { + RP_NONE = 0, + RP_SHORT_LEFT, + RP_LONG_LEFT, + RP_SHORT_RIGHT, + RP_LONG_RIGHT + }; size_t start = *offset; size_t env_length = 0; size_t env_maxlen = 0; @@ -882,9 +893,8 @@ parse_param (char **word, size_t *word_length, size_t *max_length, char *env = NULL; char *pattern = NULL; char *value; - char action = 0; - int prefix = 0; - int suffix = 0; + char action = '\0'; + enum remove_pattern_enum remove = RP_NONE; int colon_seen = 0; int depth = 0; int error; @@ -894,9 +904,10 @@ parse_param (char **word, size_t *word_length, size_t *max_length, switch (words[*offset]) { case '{': - if (action || prefix || suffix) + ++depth; + + if (action != '\0' || remove != RP_NONE) { - ++depth; pattern = w_addchar (pattern, &pat_length, &pat_maxlen, words[*offset]); if (pattern == NULL) @@ -907,6 +918,7 @@ parse_param (char **word, size_t *word_length, size_t *max_length, if (*offset == start) break; + /* Otherwise evaluate */ /* (and re-parse this character) */ --(*offset); @@ -914,11 +926,9 @@ parse_param (char **word, size_t *word_length, size_t *max_length, case '}': if (words[start] != '{') - { --(*offset); - } - if (action || prefix || suffix) + if (action != '\0' || remove != RP_NONE) { if (--depth) { @@ -935,53 +945,69 @@ parse_param (char **word, size_t *word_length, size_t *max_length, goto envsubst; case '#': - case '%': - if (words[start] == '{') - { - /* At the start? (ie. 'string length') */ - if (*offset == start + 1) - break; + /* At the start? (ie. 'string length') */ + if (*offset == start + 1) + /* FIXME: This isn't written yet! */ + break; - /* Separating variable name from prefix pattern? */ - if (words[*offset] == '#') - { - if (prefix < 2 && !suffix) - { - ++prefix; - break; - } - } - else - { - if (suffix < 2 && !prefix) - { - ++suffix; - break; - } - } + if (words[start] != '{') + { + /* Evaluate */ + /* (and re-parse this character) */ + --(*offset); + goto envsubst; + } - /* Must be part of prefix/suffix pattern. */ - pattern = w_addchar (pattern, &pat_length, &pat_maxlen, - words[*offset]); - if (pattern == NULL) - goto no_space; + /* Separating variable name from prefix pattern? */ + if (remove == RP_NONE) + { + remove = RP_SHORT_LEFT; + break; + } + else if (remove == RP_SHORT_LEFT) + { + remove = RP_LONG_LEFT; break; } - /* Otherwise evaluate */ - /* (and re-parse this character) */ - --(*offset); - goto envsubst; - case ':': + /* Must be part of prefix/suffix pattern. */ + pattern = w_addchar (pattern, &pat_length, &pat_maxlen, + words[*offset]); + if (pattern == NULL) + goto no_space; + + break; + + case '%': if (!*env) + goto syntax; + + /* Separating variable name from suffix pattern? */ + if (remove == RP_NONE) { - free (env); - free (pattern); - return WRDE_SYNTAX; + remove = RP_SHORT_RIGHT; + break; } + else if (remove == RP_SHORT_RIGHT) + { + remove = RP_LONG_RIGHT; + break; + } + + /* Must be part of prefix/suffix pattern. */ + pattern = w_addchar (pattern, &pat_length, &pat_maxlen, + words[*offset]); + if (pattern == NULL) + goto no_space; - if (action || prefix || suffix) + break; + + case ':': + if (!*env) + goto syntax; + + if (action != '\0' || remove != RP_NONE) { pattern = w_addchar (pattern, &pat_length, &pat_maxlen, words[*offset]); @@ -998,30 +1024,21 @@ parse_param (char **word, size_t *word_length, size_t *max_length, break; } - free (env); - free (pattern); - return WRDE_SYNTAX; + goto syntax; case '-': case '=': case '?': case '+': if (!*env) - { - free (env); - free (pattern); - return WRDE_SYNTAX; - } + goto syntax; - if (action || prefix || suffix) + if (action != '\0' || remove != RP_NONE) { pattern = w_addchar (pattern, &pat_length, &pat_maxlen, words[*offset]); if (pattern == NULL) - { - free (env); - return WRDE_NOSPACE; - } + goto no_space; break; } @@ -1030,8 +1047,9 @@ parse_param (char **word, size_t *word_length, size_t *max_length, break; case '\\': - if (action || prefix || suffix) + if (action != '\0' || remove != RP_NONE) { + /* Um. Is this right? */ error = parse_qtd_backslash (word, word_length, max_length, words, offset); if (error == 0) @@ -1042,12 +1060,16 @@ parse_param (char **word, size_t *word_length, size_t *max_length, error = WRDE_SYNTAX; } - free (env); - free (pattern); + if (env) + free (env); + + if (pattern != NULL) + free (pattern); + return error; default: - if (action || prefix || suffix) + if (action != '\0' || remove != RP_NONE) { pattern = w_addchar (pattern, &pat_length, &pat_maxlen, words[*offset]); @@ -1076,11 +1098,7 @@ parse_param (char **word, size_t *word_length, size_t *max_length, envsubst: if (words[start] == '{' && words[*offset] != '}') - { - free (env); - free (pattern); - return WRDE_SYNTAX; - } + goto syntax; if (!env || !*env) { @@ -1093,14 +1111,88 @@ envsubst: value = getenv (env); - if (action || prefix || suffix) + if (action != '\0' || remove != RP_NONE) { switch (action) { case 0: - /* For the time being, pattern is ignored */ - printf ("Pattern: %s\nPrefix: %d\nSuffix: %d\n", pattern, prefix, suffix); - break; + { + char *p; + char c; + char *end; + + if (!pattern || !*pattern) + break; + + end = value + strlen (value); + + if (value == NULL) + break; + + switch (remove) + { + case RP_SHORT_LEFT: + for (p = value; p <= end; p++) + { + c = *p; + *p = '\0'; + if (fnmatch (pattern, value, 0) != FNM_NOMATCH) + { + *p = c; + value = p; + break; + } + *p = c; + } + + break; + + case RP_LONG_LEFT: + for (p = end; p >= value; p--) + { + c = *p; + *p = '\0'; + if (fnmatch (pattern, value, 0) != FNM_NOMATCH) + { + *p = c; + value = p; + break; + } + *p = c; + } + + break; + + case RP_SHORT_RIGHT: + for (p = end; p >= value; p--) + { + if (fnmatch (pattern, p, 0) != FNM_NOMATCH) + { + *p = '\0'; + break; + } + } + + break; + + case RP_LONG_RIGHT: + for (p = value; p <= end; p++) + { + if (fnmatch (pattern, p, 0) != FNM_NOMATCH) + { + *p = '\0'; + break; + } + } + + break; + + default: + assert (! "Unexpected `remove' value\n"); + } + + break; + } case '?': if (value && *value) @@ -1182,6 +1274,15 @@ no_space: free (pattern); return WRDE_NOSPACE; + +syntax: + if (env) + free (env); + + if (pattern) + free (pattern); + + return WRDE_SYNTAX; } static int |