| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 1 | /* test.c - GNU test program (ksb and mjb) */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 2 | |
| 3 | /* Modified to run with the GNU shell Apr 25, 1988 by bfox. */ |
| 4 | |
| Chet Ramey | 495aee4 | 2011-11-22 19:11:26 -0500 | [diff] [blame] | 5 | /* Copyright (C) 1987-2010 Free Software Foundation, Inc. |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 6 | |
| 7 | This file is part of GNU Bash, the Bourne Again SHell. |
| 8 | |
| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 9 | Bash is free software: you can redistribute it and/or modify |
| 10 | it under the terms of the GNU General Public License as published by |
| 11 | the Free Software Foundation, either version 3 of the License, or |
| 12 | (at your option) any later version. |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 13 | |
| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 14 | Bash is distributed in the hope that it will be useful, |
| 15 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 17 | GNU General Public License for more details. |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 18 | |
| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 19 | You should have received a copy of the GNU General Public License |
| 20 | along with Bash. If not, see <http://www.gnu.org/licenses/>. |
| 21 | */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 22 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 23 | /* Define PATTERN_MATCHING to get the csh-like =~ and !~ pattern-matching |
| 24 | binary operators. */ |
| 25 | /* #define PATTERN_MATCHING */ |
| 26 | |
| 27 | #if defined (HAVE_CONFIG_H) |
| 28 | # include <config.h> |
| 29 | #endif |
| 30 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 31 | #include <stdio.h> |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 32 | |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 33 | #include "bashtypes.h" |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 34 | |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 35 | #if !defined (HAVE_LIMITS_H) && defined (HAVE_SYS_PARAM_H) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 36 | # include <sys/param.h> |
| 37 | #endif |
| 38 | |
| 39 | #if defined (HAVE_UNISTD_H) |
| 40 | # include <unistd.h> |
| 41 | #endif |
| 42 | |
| Jari Aalto | e8ce775 | 1997-09-22 20:22:27 +0000 | [diff] [blame] | 43 | #include <errno.h> |
| 44 | #if !defined (errno) |
| 45 | extern int errno; |
| 46 | #endif /* !errno */ |
| 47 | |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 48 | #if !defined (_POSIX_VERSION) && defined (HAVE_SYS_FILE_H) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 49 | # include <sys/file.h> |
| 50 | #endif /* !_POSIX_VERSION */ |
| 51 | #include "posixstat.h" |
| 52 | #include "filecntl.h" |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 53 | #include "stat-time.h" |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 54 | |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 55 | #include "bashintl.h" |
| 56 | |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 57 | #include "shell.h" |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 58 | #include "pathexp.h" |
| 59 | #include "test.h" |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 60 | #include "builtins/common.h" |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 61 | |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 62 | #include <glob/strmatch.h> |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 63 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 64 | #if !defined (STRLEN) |
| 65 | # define STRLEN(s) ((s)[0] ? ((s)[1] ? ((s)[2] ? strlen(s) : 2) : 1) : 0) |
| 66 | #endif |
| 67 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 68 | #if !defined (STREQ) |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 69 | # define STREQ(a, b) ((a)[0] == (b)[0] && strcmp ((a), (b)) == 0) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 70 | #endif /* !STREQ */ |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 71 | #define STRCOLLEQ(a, b) ((a)[0] == (b)[0] && strcoll ((a), (b)) == 0) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 72 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 73 | #if !defined (R_OK) |
| 74 | #define R_OK 4 |
| 75 | #define W_OK 2 |
| 76 | #define X_OK 1 |
| 77 | #define F_OK 0 |
| 78 | #endif /* R_OK */ |
| 79 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 80 | #define EQ 0 |
| 81 | #define NE 1 |
| 82 | #define LT 2 |
| 83 | #define GT 3 |
| 84 | #define LE 4 |
| 85 | #define GE 5 |
| 86 | |
| 87 | #define NT 0 |
| 88 | #define OT 1 |
| 89 | #define EF 2 |
| 90 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 91 | /* The following few defines control the truth and false output of each stage. |
| 92 | TRUE and FALSE are what we use to compute the final output value. |
| 93 | SHELL_BOOLEAN is the form which returns truth or falseness in shell terms. |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 94 | Default is TRUE = 1, FALSE = 0, SHELL_BOOLEAN = (!value). */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 95 | #define TRUE 1 |
| 96 | #define FALSE 0 |
| 97 | #define SHELL_BOOLEAN(value) (!(value)) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 98 | |
| Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 99 | #define TEST_ERREXIT_STATUS 2 |
| 100 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 101 | static procenv_t test_exit_buf; |
| 102 | static int test_error_return; |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 103 | #define test_exit(val) \ |
| Chet Ramey | a0c0a00 | 2016-09-15 16:59:08 -0400 | [diff] [blame^] | 104 | do { test_error_return = val; sh_longjmp (test_exit_buf, 1); } while (0) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 105 | |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 106 | extern int sh_stat __P((const char *, struct stat *)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 107 | |
| 108 | static int pos; /* The offset of the current argument in ARGV. */ |
| 109 | static int argc; /* The number of arguments present in ARGV. */ |
| 110 | static char **argv; /* The argument list. */ |
| 111 | static int noeval; |
| 112 | |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 113 | static void test_syntax_error __P((char *, char *)) __attribute__((__noreturn__)); |
| 114 | static void beyond __P((void)) __attribute__((__noreturn__)); |
| 115 | static void integer_expected_error __P((char *)) __attribute__((__noreturn__)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 116 | |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 117 | static int unary_operator __P((void)); |
| 118 | static int binary_operator __P((void)); |
| 119 | static int two_arguments __P((void)); |
| 120 | static int three_arguments __P((void)); |
| 121 | static int posixtest __P((void)); |
| 122 | |
| 123 | static int expr __P((void)); |
| 124 | static int term __P((void)); |
| 125 | static int and __P((void)); |
| 126 | static int or __P((void)); |
| 127 | |
| 128 | static int filecomp __P((char *, char *, int)); |
| 129 | static int arithcomp __P((char *, char *, int, int)); |
| 130 | static int patcomp __P((char *, char *, int)); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 131 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 132 | static void |
| 133 | test_syntax_error (format, arg) |
| 134 | char *format, *arg; |
| 135 | { |
| Jari Aalto | 7117c2d | 2002-07-17 14:10:11 +0000 | [diff] [blame] | 136 | builtin_error (format, arg); |
| Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 137 | test_exit (TEST_ERREXIT_STATUS); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 138 | } |
| 139 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 140 | /* |
| 141 | * beyond - call when we're beyond the end of the argument list (an |
| 142 | * error condition) |
| 143 | */ |
| 144 | static void |
| 145 | beyond () |
| 146 | { |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 147 | test_syntax_error (_("argument expected"), (char *)NULL); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 148 | } |
| 149 | |
| 150 | /* Syntax error for when an integer argument was expected, but |
| 151 | something else was found. */ |
| 152 | static void |
| 153 | integer_expected_error (pch) |
| 154 | char *pch; |
| 155 | { |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 156 | test_syntax_error (_("%s: integer expression expected"), pch); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 157 | } |
| 158 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 159 | /* Increment our position in the argument list. Check that we're not |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 160 | past the end of the argument list. This check is suppressed if the |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 161 | argument is FALSE. Made a macro for efficiency. */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 162 | #define advance(f) do { ++pos; if (f && pos >= argc) beyond (); } while (0) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 163 | #define unary_advance() do { advance (1); ++pos; } while (0) |
| 164 | |
| 165 | /* |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 166 | * expr: |
| 167 | * or |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 168 | */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 169 | static int |
| 170 | expr () |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 171 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 172 | if (pos >= argc) |
| 173 | beyond (); |
| 174 | |
| 175 | return (FALSE ^ or ()); /* Same with this. */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 176 | } |
| 177 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 178 | /* |
| 179 | * or: |
| 180 | * and |
| 181 | * and '-o' or |
| 182 | */ |
| 183 | static int |
| 184 | or () |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 185 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 186 | int value, v2; |
| 187 | |
| 188 | value = and (); |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 189 | if (pos < argc && argv[pos][0] == '-' && argv[pos][1] == 'o' && !argv[pos][2]) |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 190 | { |
| 191 | advance (0); |
| 192 | v2 = or (); |
| 193 | return (value || v2); |
| 194 | } |
| 195 | |
| 196 | return (value); |
| 197 | } |
| 198 | |
| 199 | /* |
| 200 | * and: |
| 201 | * term |
| 202 | * term '-a' and |
| 203 | */ |
| 204 | static int |
| 205 | and () |
| 206 | { |
| 207 | int value, v2; |
| 208 | |
| 209 | value = term (); |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 210 | if (pos < argc && argv[pos][0] == '-' && argv[pos][1] == 'a' && !argv[pos][2]) |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 211 | { |
| 212 | advance (0); |
| 213 | v2 = and (); |
| 214 | return (value && v2); |
| 215 | } |
| 216 | return (value); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 217 | } |
| 218 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 219 | /* |
| 220 | * term - parse a term and return 1 or 0 depending on whether the term |
| 221 | * evaluates to true or false, respectively. |
| 222 | * |
| 223 | * term ::= |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 224 | * '-'('a'|'b'|'c'|'d'|'e'|'f'|'g'|'h'|'k'|'p'|'r'|'s'|'u'|'w'|'x') filename |
| 225 | * '-'('G'|'L'|'O'|'S'|'N') filename |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 226 | * '-t' [int] |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 227 | * '-'('z'|'n') string |
| Chet Ramey | a0c0a00 | 2016-09-15 16:59:08 -0400 | [diff] [blame^] | 228 | * '-'('v'|'R') varname |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 229 | * '-o' option |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 230 | * string |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 231 | * string ('!='|'='|'==') string |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 232 | * <int> '-'(eq|ne|le|lt|ge|gt) <int> |
| 233 | * file '-'(nt|ot|ef) file |
| 234 | * '(' <expr> ')' |
| 235 | * int ::= |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 236 | * positive and negative integers |
| 237 | */ |
| 238 | static int |
| 239 | term () |
| 240 | { |
| 241 | int value; |
| 242 | |
| 243 | if (pos >= argc) |
| 244 | beyond (); |
| 245 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 246 | /* Deal with leading `not's. */ |
| 247 | if (argv[pos][0] == '!' && argv[pos][1] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 248 | { |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 249 | value = 0; |
| 250 | while (pos < argc && argv[pos][0] == '!' && argv[pos][1] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 251 | { |
| 252 | advance (1); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 253 | value = 1 - value; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 254 | } |
| 255 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 256 | return (value ? !term() : term()); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 257 | } |
| 258 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 259 | /* A paren-bracketed argument. */ |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 260 | if (argv[pos][0] == '(' && argv[pos][1] == '\0') /* ) */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 261 | { |
| 262 | advance (1); |
| 263 | value = expr (); |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 264 | if (argv[pos] == 0) /* ( */ |
| 265 | test_syntax_error (_("`)' expected"), (char *)NULL); |
| 266 | else if (argv[pos][0] != ')' || argv[pos][1]) /* ( */ |
| 267 | test_syntax_error (_("`)' expected, found %s"), argv[pos]); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 268 | advance (0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 269 | return (value); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 270 | } |
| 271 | |
| 272 | /* are there enough arguments left that this could be dyadic? */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 273 | if ((pos + 3 <= argc) && test_binop (argv[pos + 1])) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 274 | value = binary_operator (); |
| 275 | |
| 276 | /* Might be a switch type argument */ |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 277 | else if (argv[pos][0] == '-' && argv[pos][2] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 278 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 279 | if (test_unop (argv[pos])) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 280 | value = unary_operator (); |
| 281 | else |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 282 | test_syntax_error (_("%s: unary operator expected"), argv[pos]); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 283 | } |
| 284 | else |
| 285 | { |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 286 | value = argv[pos][0] != '\0'; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 287 | advance (0); |
| 288 | } |
| 289 | |
| 290 | return (value); |
| 291 | } |
| 292 | |
| 293 | static int |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 294 | stat_mtime (fn, st, ts) |
| 295 | char *fn; |
| 296 | struct stat *st; |
| 297 | struct timespec *ts; |
| 298 | { |
| 299 | int r; |
| 300 | |
| 301 | r = sh_stat (fn, st); |
| 302 | if (r < 0) |
| 303 | return r; |
| 304 | *ts = get_stat_mtime (st); |
| 305 | return 0; |
| 306 | } |
| 307 | |
| 308 | static int |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 309 | filecomp (s, t, op) |
| 310 | char *s, *t; |
| 311 | int op; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 312 | { |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 313 | struct stat st1, st2; |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 314 | struct timespec ts1, ts2; |
| Jari Aalto | 7117c2d | 2002-07-17 14:10:11 +0000 | [diff] [blame] | 315 | int r1, r2; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 316 | |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 317 | if ((r1 = stat_mtime (s, &st1, &ts1)) < 0) |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 318 | { |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 319 | if (op == EF) |
| 320 | return (FALSE); |
| 321 | } |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 322 | if ((r2 = stat_mtime (t, &st2, &ts2)) < 0) |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 323 | { |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 324 | if (op == EF) |
| 325 | return (FALSE); |
| 326 | } |
| 327 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 328 | switch (op) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 329 | { |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 330 | case OT: return (r1 < r2 || (r2 == 0 && timespec_cmp (ts1, ts2) < 0)); |
| 331 | case NT: return (r1 > r2 || (r1 == 0 && timespec_cmp (ts1, ts2) > 0)); |
| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 332 | case EF: return (same_file (s, t, &st1, &st2)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 333 | } |
| 334 | return (FALSE); |
| 335 | } |
| 336 | |
| 337 | static int |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 338 | arithcomp (s, t, op, flags) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 339 | char *s, *t; |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 340 | int op, flags; |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 341 | { |
| Jari Aalto | 7117c2d | 2002-07-17 14:10:11 +0000 | [diff] [blame] | 342 | intmax_t l, r; |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 343 | int expok; |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 344 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 345 | if (flags & TEST_ARITHEXP) |
| 346 | { |
| 347 | l = evalexp (s, &expok); |
| 348 | if (expok == 0) |
| 349 | return (FALSE); /* should probably longjmp here */ |
| 350 | r = evalexp (t, &expok); |
| 351 | if (expok == 0) |
| 352 | return (FALSE); /* ditto */ |
| 353 | } |
| 354 | else |
| 355 | { |
| 356 | if (legal_number (s, &l) == 0) |
| 357 | integer_expected_error (s); |
| 358 | if (legal_number (t, &r) == 0) |
| 359 | integer_expected_error (t); |
| 360 | } |
| 361 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 362 | switch (op) |
| 363 | { |
| 364 | case EQ: return (l == r); |
| 365 | case NE: return (l != r); |
| 366 | case LT: return (l < r); |
| 367 | case GT: return (l > r); |
| 368 | case LE: return (l <= r); |
| 369 | case GE: return (l >= r); |
| 370 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 371 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 372 | return (FALSE); |
| 373 | } |
| 374 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 375 | static int |
| 376 | patcomp (string, pat, op) |
| 377 | char *string, *pat; |
| 378 | int op; |
| 379 | { |
| 380 | int m; |
| 381 | |
| Jari Aalto | 95732b4 | 2005-12-07 14:08:12 +0000 | [diff] [blame] | 382 | m = strmatch (pat, string, FNMATCH_EXTFLAG|FNMATCH_IGNCASE); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 383 | return ((op == EQ) ? (m == 0) : (m != 0)); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 384 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 385 | |
| 386 | int |
| 387 | binary_test (op, arg1, arg2, flags) |
| 388 | char *op, *arg1, *arg2; |
| 389 | int flags; |
| 390 | { |
| 391 | int patmatch; |
| 392 | |
| 393 | patmatch = (flags & TEST_PATMATCH); |
| 394 | |
| 395 | if (op[0] == '=' && (op[1] == '\0' || (op[1] == '=' && op[2] == '\0'))) |
| 396 | return (patmatch ? patcomp (arg1, arg2, EQ) : STREQ (arg1, arg2)); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 397 | else if ((op[0] == '>' || op[0] == '<') && op[1] == '\0') |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 398 | { |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 399 | #if defined (HAVE_STRCOLL) |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 400 | if (shell_compatibility_level > 40 && flags & TEST_LOCALE) |
| 401 | return ((op[0] == '>') ? (strcoll (arg1, arg2) > 0) : (strcoll (arg1, arg2) < 0)); |
| 402 | else |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 403 | #endif |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 404 | return ((op[0] == '>') ? (strcmp (arg1, arg2) > 0) : (strcmp (arg1, arg2) < 0)); |
| 405 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 406 | else if (op[0] == '!' && op[1] == '=' && op[2] == '\0') |
| 407 | return (patmatch ? patcomp (arg1, arg2, NE) : (STREQ (arg1, arg2) == 0)); |
| Chet Ramey | 0001803 | 2011-11-21 20:51:19 -0500 | [diff] [blame] | 408 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 409 | |
| 410 | else if (op[2] == 't') |
| 411 | { |
| 412 | switch (op[1]) |
| 413 | { |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 414 | case 'n': return (filecomp (arg1, arg2, NT)); /* -nt */ |
| 415 | case 'o': return (filecomp (arg1, arg2, OT)); /* -ot */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 416 | case 'l': return (arithcomp (arg1, arg2, LT, flags)); /* -lt */ |
| 417 | case 'g': return (arithcomp (arg1, arg2, GT, flags)); /* -gt */ |
| 418 | } |
| 419 | } |
| 420 | else if (op[1] == 'e') |
| 421 | { |
| 422 | switch (op[2]) |
| 423 | { |
| 424 | case 'f': return (filecomp (arg1, arg2, EF)); /* -ef */ |
| 425 | case 'q': return (arithcomp (arg1, arg2, EQ, flags)); /* -eq */ |
| 426 | } |
| 427 | } |
| 428 | else if (op[2] == 'e') |
| 429 | { |
| 430 | switch (op[1]) |
| 431 | { |
| 432 | case 'n': return (arithcomp (arg1, arg2, NE, flags)); /* -ne */ |
| 433 | case 'g': return (arithcomp (arg1, arg2, GE, flags)); /* -ge */ |
| 434 | case 'l': return (arithcomp (arg1, arg2, LE, flags)); /* -le */ |
| 435 | } |
| 436 | } |
| 437 | |
| 438 | return (FALSE); /* should never get here */ |
| 439 | } |
| 440 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 441 | |
| 442 | static int |
| 443 | binary_operator () |
| 444 | { |
| 445 | int value; |
| 446 | char *w; |
| 447 | |
| 448 | w = argv[pos + 1]; |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 449 | if ((w[0] == '=' && (w[1] == '\0' || (w[1] == '=' && w[2] == '\0'))) || /* =, == */ |
| 450 | ((w[0] == '>' || w[0] == '<') && w[1] == '\0') || /* <, > */ |
| 451 | (w[0] == '!' && w[1] == '=' && w[2] == '\0')) /* != */ |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 452 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 453 | value = binary_test (w, argv[pos], argv[pos + 2], 0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 454 | pos += 3; |
| 455 | return (value); |
| 456 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 457 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 458 | #if defined (PATTERN_MATCHING) |
| 459 | if ((w[0] == '=' || w[0] == '!') && w[1] == '~' && w[2] == '\0') |
| 460 | { |
| 461 | value = patcomp (argv[pos], argv[pos + 2], w[0] == '=' ? EQ : NE); |
| 462 | pos += 3; |
| 463 | return (value); |
| 464 | } |
| 465 | #endif |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 466 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 467 | if ((w[0] != '-' || w[3] != '\0') || test_binop (w) == 0) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 468 | { |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 469 | test_syntax_error (_("%s: binary operator expected"), w); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 470 | /* NOTREACHED */ |
| 471 | return (FALSE); |
| 472 | } |
| 473 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 474 | value = binary_test (w, argv[pos], argv[pos + 2], 0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 475 | pos += 3; |
| 476 | return value; |
| 477 | } |
| 478 | |
| 479 | static int |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 480 | unary_operator () |
| 481 | { |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 482 | char *op; |
| Jari Aalto | 7117c2d | 2002-07-17 14:10:11 +0000 | [diff] [blame] | 483 | intmax_t r; |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 484 | |
| 485 | op = argv[pos]; |
| 486 | if (test_unop (op) == 0) |
| 487 | return (FALSE); |
| 488 | |
| 489 | /* the only tricky case is `-t', which may or may not take an argument. */ |
| 490 | if (op[1] == 't') |
| 491 | { |
| 492 | advance (0); |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 493 | if (pos < argc) |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 494 | { |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 495 | if (legal_number (argv[pos], &r)) |
| 496 | { |
| 497 | advance (0); |
| 498 | return (unary_test (op, argv[pos - 1])); |
| 499 | } |
| 500 | else |
| 501 | return (FALSE); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 502 | } |
| 503 | else |
| 504 | return (unary_test (op, "1")); |
| 505 | } |
| 506 | |
| 507 | /* All of the unary operators take an argument, so we first call |
| 508 | unary_advance (), which checks to make sure that there is an |
| 509 | argument, and then advances pos right past it. This means that |
| 510 | pos - 1 is the location of the argument. */ |
| 511 | unary_advance (); |
| 512 | return (unary_test (op, argv[pos - 1])); |
| 513 | } |
| 514 | |
| 515 | int |
| 516 | unary_test (op, arg) |
| 517 | char *op, *arg; |
| 518 | { |
| Jari Aalto | 7117c2d | 2002-07-17 14:10:11 +0000 | [diff] [blame] | 519 | intmax_t r; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 520 | struct stat stat_buf; |
| Chet Ramey | 495aee4 | 2011-11-22 19:11:26 -0500 | [diff] [blame] | 521 | SHELL_VAR *v; |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 522 | |
| 523 | switch (op[1]) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 524 | { |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 525 | case 'a': /* file exists in the file system? */ |
| 526 | case 'e': |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 527 | return (sh_stat (arg, &stat_buf) == 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 528 | |
| 529 | case 'r': /* file is readable? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 530 | return (sh_eaccess (arg, R_OK) == 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 531 | |
| 532 | case 'w': /* File is writeable? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 533 | return (sh_eaccess (arg, W_OK) == 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 534 | |
| 535 | case 'x': /* File is executable? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 536 | return (sh_eaccess (arg, X_OK) == 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 537 | |
| 538 | case 'O': /* File is owned by you? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 539 | return (sh_stat (arg, &stat_buf) == 0 && |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 540 | (uid_t) current_user.euid == (uid_t) stat_buf.st_uid); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 541 | |
| 542 | case 'G': /* File is owned by your group? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 543 | return (sh_stat (arg, &stat_buf) == 0 && |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 544 | (gid_t) current_user.egid == (gid_t) stat_buf.st_gid); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 545 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 546 | case 'N': |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 547 | return (sh_stat (arg, &stat_buf) == 0 && |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 548 | stat_buf.st_atime <= stat_buf.st_mtime); |
| 549 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 550 | case 'f': /* File is a file? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 551 | if (sh_stat (arg, &stat_buf) < 0) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 552 | return (FALSE); |
| 553 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 554 | /* -f is true if the given file exists and is a regular file. */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 555 | #if defined (S_IFMT) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 556 | return (S_ISREG (stat_buf.st_mode) || (stat_buf.st_mode & S_IFMT) == 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 557 | #else |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 558 | return (S_ISREG (stat_buf.st_mode)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 559 | #endif /* !S_IFMT */ |
| 560 | |
| 561 | case 'd': /* File is a directory? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 562 | return (sh_stat (arg, &stat_buf) == 0 && (S_ISDIR (stat_buf.st_mode))); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 563 | |
| 564 | case 's': /* File has something in it? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 565 | return (sh_stat (arg, &stat_buf) == 0 && stat_buf.st_size > (off_t) 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 566 | |
| 567 | case 'S': /* File is a socket? */ |
| 568 | #if !defined (S_ISSOCK) |
| 569 | return (FALSE); |
| 570 | #else |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 571 | return (sh_stat (arg, &stat_buf) == 0 && S_ISSOCK (stat_buf.st_mode)); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 572 | #endif /* S_ISSOCK */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 573 | |
| 574 | case 'c': /* File is character special? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 575 | return (sh_stat (arg, &stat_buf) == 0 && S_ISCHR (stat_buf.st_mode)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 576 | |
| 577 | case 'b': /* File is block special? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 578 | return (sh_stat (arg, &stat_buf) == 0 && S_ISBLK (stat_buf.st_mode)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 579 | |
| 580 | case 'p': /* File is a named pipe? */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 581 | #ifndef S_ISFIFO |
| 582 | return (FALSE); |
| 583 | #else |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 584 | return (sh_stat (arg, &stat_buf) == 0 && S_ISFIFO (stat_buf.st_mode)); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 585 | #endif /* S_ISFIFO */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 586 | |
| 587 | case 'L': /* Same as -h */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 588 | case 'h': /* File is a symbolic link? */ |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 589 | #if !defined (S_ISLNK) || !defined (HAVE_LSTAT) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 590 | return (FALSE); |
| 591 | #else |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 592 | return ((arg[0] != '\0') && |
| 593 | (lstat (arg, &stat_buf) == 0) && S_ISLNK (stat_buf.st_mode)); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 594 | #endif /* S_IFLNK && HAVE_LSTAT */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 595 | |
| 596 | case 'u': /* File is setuid? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 597 | return (sh_stat (arg, &stat_buf) == 0 && (stat_buf.st_mode & S_ISUID) != 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 598 | |
| 599 | case 'g': /* File is setgid? */ |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 600 | return (sh_stat (arg, &stat_buf) == 0 && (stat_buf.st_mode & S_ISGID) != 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 601 | |
| 602 | case 'k': /* File has sticky bit set? */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 603 | #if !defined (S_ISVTX) |
| 604 | /* This is not Posix, and is not defined on some Posix systems. */ |
| 605 | return (FALSE); |
| 606 | #else |
| Jari Aalto | 0628567 | 2006-10-10 14:15:34 +0000 | [diff] [blame] | 607 | return (sh_stat (arg, &stat_buf) == 0 && (stat_buf.st_mode & S_ISVTX) != 0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 608 | #endif |
| 609 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 610 | case 't': /* File fd is a terminal? */ |
| 611 | if (legal_number (arg, &r) == 0) |
| 612 | return (FALSE); |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 613 | return ((r == (int)r) && isatty ((int)r)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 614 | |
| 615 | case 'n': /* True if arg has some length. */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 616 | return (arg[0] != '\0'); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 617 | |
| 618 | case 'z': /* True if arg has no length. */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 619 | return (arg[0] == '\0'); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 620 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 621 | case 'o': /* True if option `arg' is set. */ |
| 622 | return (minus_o_option_value (arg) == 1); |
| Chet Ramey | 495aee4 | 2011-11-22 19:11:26 -0500 | [diff] [blame] | 623 | |
| 624 | case 'v': |
| 625 | v = find_variable (arg); |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 626 | #if defined (ARRAY_VARS) |
| Chet Ramey | a0c0a00 | 2016-09-15 16:59:08 -0400 | [diff] [blame^] | 627 | if (v == 0 && valid_array_reference (arg, 0)) |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 628 | { |
| 629 | char *t; |
| 630 | t = array_value (arg, 0, 0, (int *)0, (arrayind_t *)0); |
| 631 | return (t ? TRUE : FALSE); |
| 632 | } |
| 633 | else if (v && invisible_p (v) == 0 && array_p (v)) |
| 634 | { |
| 635 | char *t; |
| 636 | /* [[ -v foo ]] == [[ -v foo[0] ]] */ |
| 637 | t = array_reference (array_cell (v), 0); |
| 638 | return (t ? TRUE : FALSE); |
| 639 | } |
| 640 | else if (v && invisible_p (v) == 0 && assoc_p (v)) |
| 641 | { |
| 642 | char *t; |
| 643 | t = assoc_reference (assoc_cell (v), "0"); |
| 644 | return (t ? TRUE : FALSE); |
| 645 | } |
| 646 | #endif |
| 647 | return (v && invisible_p (v) == 0 && var_isset (v) ? TRUE : FALSE); |
| 648 | |
| 649 | case 'R': |
| Chet Ramey | f5c8237 | 2014-03-28 11:52:47 -0400 | [diff] [blame] | 650 | v = find_variable_noref (arg); |
| 651 | return ((v && invisible_p (v) == 0 && var_isset (v) && nameref_p (v)) ? TRUE : FALSE); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 652 | } |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 653 | |
| 654 | /* We can't actually get here, but this shuts up gcc. */ |
| 655 | return (FALSE); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 656 | } |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 657 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 658 | /* Return TRUE if OP is one of the test command's binary operators. */ |
| 659 | int |
| 660 | test_binop (op) |
| 661 | char *op; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 662 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 663 | if (op[0] == '=' && op[1] == '\0') |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 664 | return (1); /* '=' */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 665 | else if ((op[0] == '<' || op[0] == '>') && op[1] == '\0') /* string <, > */ |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 666 | return (1); |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 667 | else if ((op[0] == '=' || op[0] == '!') && op[1] == '=' && op[2] == '\0') |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 668 | return (1); /* `==' and `!=' */ |
| 669 | #if defined (PATTERN_MATCHING) |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 670 | else if (op[2] == '\0' && op[1] == '~' && (op[0] == '=' || op[0] == '!')) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 671 | return (1); |
| 672 | #endif |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 673 | else if (op[0] != '-' || op[2] == '\0' || op[3] != '\0') |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 674 | return (0); |
| 675 | else |
| 676 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 677 | if (op[2] == 't') |
| 678 | switch (op[1]) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 679 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 680 | case 'n': /* -nt */ |
| 681 | case 'o': /* -ot */ |
| 682 | case 'l': /* -lt */ |
| 683 | case 'g': /* -gt */ |
| 684 | return (1); |
| 685 | default: |
| 686 | return (0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 687 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 688 | else if (op[1] == 'e') |
| 689 | switch (op[2]) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 690 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 691 | case 'q': /* -eq */ |
| 692 | case 'f': /* -ef */ |
| 693 | return (1); |
| 694 | default: |
| 695 | return (0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 696 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 697 | else if (op[2] == 'e') |
| 698 | switch (op[1]) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 699 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 700 | case 'n': /* -ne */ |
| 701 | case 'g': /* -ge */ |
| 702 | case 'l': /* -le */ |
| 703 | return (1); |
| 704 | default: |
| 705 | return (0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 706 | } |
| 707 | else |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 708 | return (0); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 709 | } |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 710 | } |
| 711 | |
| 712 | /* Return non-zero if OP is one of the test command's unary operators. */ |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 713 | int |
| 714 | test_unop (op) |
| 715 | char *op; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 716 | { |
| Jari Aalto | 3185942 | 2009-01-12 13:36:28 +0000 | [diff] [blame] | 717 | if (op[0] != '-' || op[2] != 0) |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 718 | return (0); |
| 719 | |
| 720 | switch (op[1]) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 721 | { |
| 722 | case 'a': case 'b': case 'c': case 'd': case 'e': |
| 723 | case 'f': case 'g': case 'h': case 'k': case 'n': |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 724 | case 'o': case 'p': case 'r': case 's': case 't': |
| Chet Ramey | 495aee4 | 2011-11-22 19:11:26 -0500 | [diff] [blame] | 725 | case 'u': case 'v': case 'w': case 'x': case 'z': |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 726 | case 'G': case 'L': case 'O': case 'S': case 'N': |
| Chet Ramey | f5c8237 | 2014-03-28 11:52:47 -0400 | [diff] [blame] | 727 | case 'R': |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 728 | return (1); |
| 729 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 730 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 731 | return (0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 732 | } |
| 733 | |
| 734 | static int |
| 735 | two_arguments () |
| 736 | { |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 737 | if (argv[pos][0] == '!' && argv[pos][1] == '\0') |
| 738 | return (argv[pos + 1][0] == '\0'); |
| 739 | else if (argv[pos][0] == '-' && argv[pos][2] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 740 | { |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 741 | if (test_unop (argv[pos])) |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 742 | return (unary_operator ()); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 743 | else |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 744 | test_syntax_error (_("%s: unary operator expected"), argv[pos]); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 745 | } |
| 746 | else |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 747 | test_syntax_error (_("%s: unary operator expected"), argv[pos]); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 748 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 749 | return (0); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 750 | } |
| 751 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 752 | #define ANDOR(s) (s[0] == '-' && !s[2] && (s[1] == 'a' || s[1] == 'o')) |
| 753 | |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 754 | /* This could be augmented to handle `-t' as equivalent to `-t 1', but |
| 755 | POSIX requires that `-t' be given an argument. */ |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 756 | #define ONE_ARG_TEST(s) ((s)[0] != '\0') |
| 757 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 758 | static int |
| 759 | three_arguments () |
| 760 | { |
| 761 | int value; |
| 762 | |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 763 | if (test_binop (argv[pos+1])) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 764 | { |
| 765 | value = binary_operator (); |
| 766 | pos = argc; |
| 767 | } |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 768 | else if (ANDOR (argv[pos+1])) |
| 769 | { |
| 770 | if (argv[pos+1][1] == 'a') |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 771 | value = ONE_ARG_TEST(argv[pos]) && ONE_ARG_TEST(argv[pos+2]); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 772 | else |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 773 | value = ONE_ARG_TEST(argv[pos]) || ONE_ARG_TEST(argv[pos+2]); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 774 | pos = argc; |
| 775 | } |
| Jari Aalto | cce855b | 1998-04-17 19:52:44 +0000 | [diff] [blame] | 776 | else if (argv[pos][0] == '!' && argv[pos][1] == '\0') |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 777 | { |
| 778 | advance (1); |
| 779 | value = !two_arguments (); |
| 780 | } |
| 781 | else if (argv[pos][0] == '(' && argv[pos+2][0] == ')') |
| 782 | { |
| 783 | value = ONE_ARG_TEST(argv[pos+1]); |
| 784 | pos = argc; |
| 785 | } |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 786 | else |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 787 | test_syntax_error (_("%s: binary operator expected"), argv[pos+1]); |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 788 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 789 | return (value); |
| 790 | } |
| 791 | |
| 792 | /* This is an implementation of a Posix.2 proposal by David Korn. */ |
| 793 | static int |
| 794 | posixtest () |
| 795 | { |
| 796 | int value; |
| 797 | |
| 798 | switch (argc - 1) /* one extra passed in */ |
| 799 | { |
| 800 | case 0: |
| 801 | value = FALSE; |
| 802 | pos = argc; |
| 803 | break; |
| 804 | |
| 805 | case 1: |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 806 | value = ONE_ARG_TEST(argv[1]); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 807 | pos = argc; |
| 808 | break; |
| 809 | |
| 810 | case 2: |
| 811 | value = two_arguments (); |
| 812 | pos = argc; |
| 813 | break; |
| 814 | |
| 815 | case 3: |
| 816 | value = three_arguments (); |
| 817 | break; |
| 818 | |
| 819 | case 4: |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 820 | if (argv[pos][0] == '!' && argv[pos][1] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 821 | { |
| 822 | advance (1); |
| 823 | value = !three_arguments (); |
| 824 | break; |
| 825 | } |
| Chet Ramey | a0c0a00 | 2016-09-15 16:59:08 -0400 | [diff] [blame^] | 826 | else if (argv[pos][0] == '(' && argv[pos][1] == '\0' && argv[argc-1][0] == ')' && argv[argc-1][1] == '\0') |
| 827 | { |
| 828 | advance (1); |
| 829 | value = two_arguments (); |
| 830 | pos = argc; |
| 831 | break; |
| 832 | } |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 833 | /* FALLTHROUGH */ |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 834 | default: |
| 835 | value = expr (); |
| 836 | } |
| 837 | |
| 838 | return (value); |
| 839 | } |
| 840 | |
| 841 | /* |
| 842 | * [: |
| 843 | * '[' expr ']' |
| 844 | * test: |
| 845 | * test expr |
| 846 | */ |
| 847 | int |
| Jari Aalto | d166f04 | 1997-06-05 14:59:13 +0000 | [diff] [blame] | 848 | test_command (margc, margv) |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 849 | int margc; |
| 850 | char **margv; |
| 851 | { |
| 852 | int value; |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 853 | int code; |
| 854 | |
| Jari Aalto | f73dda0 | 2001-11-13 17:56:06 +0000 | [diff] [blame] | 855 | USE_VAR(margc); |
| 856 | |
| Chet Ramey | ac50fba | 2014-02-26 09:36:43 -0500 | [diff] [blame] | 857 | code = setjmp_nosigs (test_exit_buf); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 858 | |
| 859 | if (code) |
| 860 | return (test_error_return); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 861 | |
| 862 | argv = margv; |
| 863 | |
| Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 864 | if (margv[0] && margv[0][0] == '[' && margv[0][1] == '\0') |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 865 | { |
| 866 | --margc; |
| 867 | |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 868 | if (margv[margc] && (margv[margc][0] != ']' || margv[margc][1])) |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 869 | test_syntax_error (_("missing `]'"), (char *)NULL); |
| Jari Aalto | 28ef6c3 | 2001-04-06 19:14:31 +0000 | [diff] [blame] | 870 | |
| 871 | if (margc < 2) |
| 872 | test_exit (SHELL_BOOLEAN (FALSE)); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 873 | } |
| 874 | |
| 875 | argc = margc; |
| 876 | pos = 1; |
| 877 | |
| 878 | if (pos >= argc) |
| 879 | test_exit (SHELL_BOOLEAN (FALSE)); |
| 880 | |
| 881 | noeval = 0; |
| 882 | value = posixtest (); |
| 883 | |
| 884 | if (pos != argc) |
| Jari Aalto | b80f644 | 2004-07-27 13:29:18 +0000 | [diff] [blame] | 885 | test_syntax_error (_("too many arguments"), (char *)NULL); |
| Jari Aalto | 726f638 | 1996-08-26 18:22:31 +0000 | [diff] [blame] | 886 | |
| 887 | test_exit (SHELL_BOOLEAN (value)); |
| 888 | } |