Imported Upstream version 93u+upstream

1 files changed, 174 insertions, 0 deletions

diff --git a/src/cmd/ksh93/data/testops.c b/src/cmd/ksh93/data/testops.c
new file mode 100644
index 0000000..fa07d59
--- /dev/null
+++ b/src/cmd/ksh93/data/testops.c
@@ -0,0 +1,174 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1982-2012 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                  David Korn <dgk@research.att.com>                   *
+*                                                                      *
+***********************************************************************/
+#pragma prototyped
+
+/*
+ * tables for the test builin [[...]] and [...]
+ */
+
+#include	<ast.h>
+
+#include	"defs.h"
+#include	"test.h"
+
+/*
+ * This is the list of binary test and [[...]] operators
+ */
+
+const Shtable_t shtab_testops[] =
+{
+		"!=",		TEST_SNE,
+		"-a",		TEST_AND,
+		"-ef",		TEST_EF,
+		"-eq",		TEST_EQ,
+		"-ge",		TEST_GE,
+		"-gt",		TEST_GT,
+		"-le",		TEST_LE,
+		"-lt",		TEST_LT,
+		"-ne",		TEST_NE,
+		"-nt",		TEST_NT,
+		"-o",		TEST_OR,
+		"-ot",		TEST_OT,
+		"=",		TEST_SEQ,
+		"==",		TEST_SEQ,
+		"=~",           TEST_REP,
+		"<",		TEST_SLT,
+		">",		TEST_SGT,
+		"]]",		TEST_END,
+		"",		0
+};
+
+const char sh_opttest[] =
+"[-1c?\n@(#)$Id: test (AT&T Research) 2003-03-18 $\n]"
+USAGE_LICENSE
+"[+NAME?test - evaluate expression]"
+"[+DESCRIPTION?\btest\b evaluates expressions and indicates its "
+	"results based on the exit status.  Option parsing is not "
+	"performed so that all arguments, including \b--\b are processed "
+	" as operands.  The evaluation of the "
+	"expression depends on the number of operands as follows:]{"
+	"[+0?Evaluates to false.]"
+	"[+1?True if argument is not an empty string.]"
+	"[+2?If first operand is \b!\b, the result is True if the second "
+		"operand an empty string.  Otherwise, it is evaluated "
+		"as one of the unary expressions defined below.  If the "
+		"unary operator is invalid and the second argument is \b--\b,"
+		"then the first argument is processed as an option argument.]"
+	"[+3?If first operand is \b!\b, the result is True if the second "
+		"and third operand evaluated as a unary expression is False.  "
+		"Otherwise, the three operands are evaluaged as one of the  "
+		"binary expressions listed below.]"
+	"[+4?If first operand is \b!\b, the result is True if the next "
+		"three operands are a valid binary expression that is False.]"
+"}"
+"[If any \afile\a is of the form \b/dev/fd/\b\an\a, then file descriptor "
+	"\an\a is checked.]"
+"[+?Unary expressions can be one of the following:]{"
+	"[+-a \afile\a?True if \afile\a exists, obsolete.]"
+	"[+-b \afile\a?True if \afile\a exists and is a block special file.]"
+	"[+-c \afile\a?True if \afile\a exists and is a character special "
+		"file.]"
+	"[+-d \afile\a?True if \afile\a exists and is a directory.]"
+	"[+-e \afile\a?True if \afile\a exists.]"
+	"[+-f \afile\a?True if \afile\a exists and is a regular file.]"
+	"[+-g \afile\a?True if \afile\a exists and has its set-group-id bit "
+		"set.]"
+	"[+-h \afile\a?True if \afile\a exists and is a symbolic link.]"
+	"[+-k \afile\a?True if \afile\a exists and has its sticky bit on.]"
+#if SHOPT_TEST_L
+	"[+-l \afile\a?True if \afile\a exists and is a symbolic link.]"
+#endif
+	"[+-n \astring\a?True if length of \astring\a is non-zero.]"
+	"[+-o \aoption\a?True if the shell option \aoption\a is enabled.]"
+	"[+-p \afile\a?True if \afile\a exists and is a pipe or fifo.]"
+	"[+-r \afile\a?True if \afile\a exists and is readable.]"
+	"[+-s \afile\a?True if \afile\a exists and has size > 0.]"
+	"[+-t \afildes\a?True if file descriptor number \afildes\a is "
+		"open and is associated with a terminal device.]"
+	"[+-u \afile\a?True if \afile\a exists and has its set-user-id bit "
+		"set.]"
+	"[+-v \avarname\a?True if \avarname\a is a valid variable name that is set.]"
+	"[+-w \afile\a?True if \afile\a exists and is writable.]"
+	"[+-x \afile\a?True if \afile\a exists and is executable.  For a "
+		"directory it means that it can be searched.]"
+	"[+-z \astring\a?True if \astring\a is a zero length string.]"
+	"[+-G \afile\a?True if \afile\a exists and group is the effective "
+		"group id of the current process.]"
+	"[+-L \afile\a?True if \afile\a exists and is a symbolic link.]"
+	"[+-N \afile\a?True if \afile\a exists and has been modified since "
+		"it was last read.]"
+	"[+-O \afile\a?True if \afile\a exists and owner is the effective "
+		"user id of the current process.]"
+	"[+-R \avarname\a?True if \avarname\a is a name reference.]"
+	"[+-S \afile\a?True if \afile\a exists and is a socket.]"
+#if SHOPT_FS_3D
+	"[+-V \afile\a?True if \afile\a exists and is a version "
+		"directory.]"
+#endif /* SHOPT_FS_3D */
+"}"
+"[+?Binary expressions can be one of the following:]{"
+	"[+\astring1\a = \astring2\a?True if \astring1\a is equal to "
+		"\astring2\a.]"
+	"[+\astring1\a == \astring2\a?True if \astring1\a is equal to "
+		"\astring2\a.]"
+	"[+\astring1\a != \astring2\a?True if \astring1\a is not equal to "
+		"\astring2\a.]"
+	"[+\anum1\a -eq \anum2\a?True if numerical value of \anum1\a is "
+		"equal to \anum2\a.]"
+	"[+\anum1\a -ne \anum2\a?True if numerical value of \anum1\a is not "
+		"equal to \anum2\a.]"
+	"[+\anum1\a -lt \anum2\a?True if numerical value of \anum1\a is less "
+		"than \anum2\a.]"
+	"[+\anum1\a -le \anum2\a?True if numerical value of \anum1\a is less "
+		"than or equal to \anum2\a.]"
+	"[+\anum1\a -gt \anum2\a?True if numerical value of \anum1\a is "
+		"greater than \anum2\a.]"
+	"[+\anum1\a -ge \anum2\a?True if numerical value of \anum1\a is "
+		"greater than or equal to \anum2\a.]"
+	"[+\afile1\a -nt \afile2\a?True if \afile1\a is newer than \afile2\a "
+		"or \afile2\a does not exist.]"
+	"[+\afile1\a -ot \afile2\a?True if \afile1\a is older than \afile2\a "
+		"or \afile2\a does not exist.]"
+	"[+\afile1\a -ef \afile2\a?True if \afile1\a is another name for "
+		"\afile2\a.  This will be true if \afile1\a is a hard link "
+		"or a symbolic link to \afile2\a.]"
+"}"
+"\n"
+"\n[expression]\n"
+"\n"
+"[+EXIT STATUS?]{"
+	"[+0?Indicates that the specified expression is True.]"
+	"[+1?Indicates that the specified expression is False.]"
+	"[+>1?An error occurred.]"
+"}"
+
+"[+SEE ALSO?\blet\b(1), \bexpr\b(1)]"
+;
+
+const char test_opchars[]	= "HLNRSVOGCaeohrwxdcbfugkv"
+#if SHOPT_TEST_L
+	"l"
+#endif
+				"psnzt";
+const char e_argument[]		= "argument expected";
+const char e_missing[]		= "%s missing";
+const char e_badop[]		= "%s: unknown operator";
+const char e_tstbegin[]		= "[[ ! ";
+const char e_tstend[]		= " ]]\n";