mirror of
https://github.com/apache/nuttx-apps.git
synced 2025-10-19 11:23:07 +08:00
Move NSH to apps/ as library
git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@3393 42af7a65-404d-4744-a932-0658087f49c3
This commit is contained in:
patacongo
437
nshlib/nsh_test.c
Normal file
437
nshlib/nsh_test.c
Normal file
@@ -0,0 +1,437 @@
|
||||
/****************************************************************************
|
||||
* apps/nshlib/nsh_test.c
|
||||
*
|
||||
* Copyright (C) 2008, 2011 Gregory Nutt. All rights reserved.
|
||||
* Author: Gregory Nutt <spudmonkey@racsa.co.cr>
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
*
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in
|
||||
* the documentation and/or other materials provided with the
|
||||
* distribution.
|
||||
* 3. Neither the name NuttX nor the names of its contributors may be
|
||||
* used to endorse or promote products derived from this software
|
||||
* without specific prior written permission.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
||||
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
||||
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
||||
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||||
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
|
||||
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
|
||||
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
|
||||
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
|
||||
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
||||
* POSSIBILITY OF SUCH DAMAGE.
|
||||
*
|
||||
****************************************************************************/
|
||||
|
||||
/* Test syntax:
|
||||
*
|
||||
* expression = simple-expression | !expression |
|
||||
* expression -o expression | expression -a expression
|
||||
*
|
||||
* simple-expression = unary-expression | binary-expression
|
||||
*
|
||||
* unary-expression = string-unary | file-unary
|
||||
*
|
||||
* string-unary = -n string | -z string
|
||||
*
|
||||
* file-unary = -b file | -c file | -d file | -e file | -f file |
|
||||
* -r file | -s file | -w file
|
||||
*
|
||||
* binary-expression = string-binary | numeric-binary
|
||||
*
|
||||
* string-binary = string = string | string == string | string != string
|
||||
*
|
||||
* numeric-binary = integer -eq integer | integer -ge integer |
|
||||
* integer -gt integer | integer -le integer |
|
||||
* integer -lt integer | integer -ne integer
|
||||
*
|
||||
* Note that the smallest expression consists of two strings.
|
||||
*/
|
||||
|
||||
/****************************************************************************
|
||||
* Included Files
|
||||
****************************************************************************/
|
||||
|
||||
#include <nuttx/config.h>
|
||||
|
||||
#include <sys/stat.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
#include "nsh.h"
|
||||
|
||||
#if !defined(CONFIG_EXAMPLES_NSH_DISABLESCRIPT) && !defined(CONFIG_EXAMPLES_NSH_DISABLE_TEST)
|
||||
|
||||
/****************************************************************************
|
||||
* Definitions
|
||||
****************************************************************************/
|
||||
|
||||
#define TEST_TRUE OK
|
||||
#define TEST_FALSE ERROR
|
||||
#define TEST_ERROR 1
|
||||
|
||||
/****************************************************************************
|
||||
* Private Functions
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Name: binaryexpression
|
||||
****************************************************************************/
|
||||
|
||||
static inline int binaryexpression(FAR struct nsh_vtbl_s *vtbl, char **argv)
|
||||
{
|
||||
char *endptr;
|
||||
long integer1;
|
||||
long integer2;
|
||||
|
||||
/* STRING2 = STRING2 */
|
||||
|
||||
if (strcmp(argv[1], "=") == 0 || strcmp(argv[1], "==") == 0)
|
||||
{
|
||||
/* Return true if the strings are identical */
|
||||
|
||||
return strcmp(argv[0], argv[2]) == 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* STRING1 != STRING2 */
|
||||
|
||||
if (strcmp(argv[1], "!=") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return strcmp(argv[0], argv[2]) != 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* The remaining operators assuming that the two values are integers */
|
||||
|
||||
integer1 = strtol(argv[0], &endptr, 0);
|
||||
if (argv[0][0] == '\0' || *endptr != '\0')
|
||||
{
|
||||
return TEST_ERROR;
|
||||
}
|
||||
|
||||
integer2 = strtol(argv[2], &endptr, 0);
|
||||
if (argv[2][0] == '\0' || *endptr != '\0')
|
||||
{
|
||||
return TEST_ERROR;
|
||||
}
|
||||
|
||||
/* INTEGER1 -eq INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-eq") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 == integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* INTEGER1 -ge INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-ge") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 >= integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* INTEGER1 -gt INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-gt") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 > integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* INTEGER1 -le INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-le") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 <= integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* INTEGER1 -lt INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-lt") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 < integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* INTEGER1 -ne INTEGER2 */
|
||||
|
||||
if (strcmp(argv[1], "-ne") == 0)
|
||||
{
|
||||
/* Return true if the strings are different */
|
||||
|
||||
return integer1 != integer2 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
return TEST_ERROR;
|
||||
}
|
||||
|
||||
/****************************************************************************
|
||||
* Name: unaryexpression
|
||||
****************************************************************************/
|
||||
|
||||
static inline int unaryexpression(FAR struct nsh_vtbl_s *vtbl, char **argv)
|
||||
{
|
||||
struct stat buf;
|
||||
char *fullpath;
|
||||
int ret;
|
||||
|
||||
/* -n STRING */
|
||||
|
||||
if (strcmp(argv[0], "-n") == 0)
|
||||
{
|
||||
/* Return true if the length of the string is non-zero */
|
||||
|
||||
return strlen(argv[1]) != 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -z STRING */
|
||||
|
||||
if (strcmp(argv[0], "-z") == 0)
|
||||
{
|
||||
/* Return true if the length of the string is zero */
|
||||
|
||||
return strlen(argv[1]) == 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* All of the remaining assume that the following argument is the
|
||||
* path to a file.
|
||||
*/
|
||||
|
||||
fullpath = nsh_getfullpath(vtbl, argv[1]);
|
||||
if (!fullpath)
|
||||
{
|
||||
return TEST_FALSE;
|
||||
}
|
||||
|
||||
ret = stat(fullpath, &buf);
|
||||
nsh_freefullpath(fullpath);
|
||||
|
||||
if (ret != 0)
|
||||
{
|
||||
/* The file does not exist (or another error occurred) -- return FALSE */
|
||||
|
||||
return TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -b FILE */
|
||||
|
||||
if (strcmp(argv[0], "-b") == 0)
|
||||
{
|
||||
/* Return true if the path is a block device */
|
||||
|
||||
return S_ISBLK(buf.st_mode) ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -c FILE */
|
||||
|
||||
if (strcmp(argv[0], "-c") == 0)
|
||||
{
|
||||
/* Return true if the path is a character device */
|
||||
|
||||
return S_ISCHR(buf.st_mode) ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -d FILE */
|
||||
|
||||
if (strcmp(argv[0], "-d") == 0)
|
||||
{
|
||||
/* Return true if the path is a directory */
|
||||
|
||||
return S_ISDIR(buf.st_mode) ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -e FILE */
|
||||
|
||||
if (strcmp(argv[0], "-e") == 0)
|
||||
{
|
||||
/* Return true if the file exists */
|
||||
|
||||
return TEST_TRUE;
|
||||
}
|
||||
|
||||
/* -f FILE */
|
||||
|
||||
if (strcmp(argv[0], "-f") == 0)
|
||||
{
|
||||
/* Return true if the path refers to a regular file */
|
||||
|
||||
return S_ISREG(buf.st_mode) ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -r FILE */
|
||||
|
||||
if (strcmp(argv[0], "-r") == 0)
|
||||
{
|
||||
/* Return true if the file is readable */
|
||||
|
||||
return (buf.st_mode & (S_IRUSR|S_IRGRP|S_IROTH)) != 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -s FILE */
|
||||
|
||||
if (strcmp(argv[0], "-s") == 0)
|
||||
{
|
||||
/* Return true if the size of the file is greater than zero */
|
||||
|
||||
return buf.st_size > 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* -w FILE */
|
||||
|
||||
if (strcmp(argv[0], "-w") == 0)
|
||||
{
|
||||
/* Return true if the file is write-able */
|
||||
|
||||
return (buf.st_mode & (S_IWUSR|S_IWGRP|S_IWOTH)) != 0 ? TEST_TRUE : TEST_FALSE;
|
||||
}
|
||||
|
||||
/* Unrecognized operator */
|
||||
|
||||
return TEST_ERROR;
|
||||
}
|
||||
|
||||
/****************************************************************************
|
||||
* Name: expression
|
||||
****************************************************************************/
|
||||
|
||||
static int expression(FAR struct nsh_vtbl_s *vtbl, int argc, char **argv)
|
||||
{
|
||||
int value;
|
||||
int i = 0;
|
||||
|
||||
/* Check for unary operations on expressions */
|
||||
|
||||
if (strcmp(argv[0], "!") == 0)
|
||||
{
|
||||
if (argc < 2)
|
||||
{
|
||||
goto errout_syntax;
|
||||
}
|
||||
return expression(vtbl, argc-1, &argv[1]) == TEST_TRUE ? TEST_FALSE : TEST_TRUE;
|
||||
}
|
||||
|
||||
/* Check for unary operations on simple, typed arguments */
|
||||
|
||||
else if (argv[0][0] == '-')
|
||||
{
|
||||
if (argc < 2)
|
||||
{
|
||||
goto errout_syntax;
|
||||
}
|
||||
i += 2;
|
||||
value = unaryexpression(vtbl, argv);
|
||||
}
|
||||
|
||||
/* Check for binary operations on simple, typed arguments */
|
||||
|
||||
else
|
||||
{
|
||||
if (argc < 3)
|
||||
{
|
||||
goto errout_syntax;
|
||||
}
|
||||
i += 3;
|
||||
value = binaryexpression(vtbl, argv);
|
||||
}
|
||||
|
||||
/* Test if there any failure */
|
||||
|
||||
if (value == TEST_ERROR)
|
||||
{
|
||||
goto errout_syntax;
|
||||
}
|
||||
|
||||
/* Is there anything after the simple expression? */
|
||||
|
||||
if (i < argc)
|
||||
{
|
||||
/* EXPRESSION -a EXPRESSION */
|
||||
|
||||
if (strcmp(argv[i], "-a") == 0)
|
||||
{
|
||||
if (value != TEST_TRUE)
|
||||
{
|
||||
return TEST_FALSE;
|
||||
}
|
||||
else
|
||||
{
|
||||
i++;
|
||||
return expression(vtbl, argc-i, &argv[i]);
|
||||
}
|
||||
}
|
||||
|
||||
/* EXPRESSION -o EXPRESSION */
|
||||
|
||||
else if (strcmp(argv[i], "-o") == 0)
|
||||
{
|
||||
if (value == TEST_TRUE)
|
||||
{
|
||||
return TEST_TRUE;
|
||||
}
|
||||
else
|
||||
{
|
||||
i++;
|
||||
return expression(vtbl, argc-i, &argv[i]);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
goto errout_syntax;
|
||||
}
|
||||
}
|
||||
return value;
|
||||
|
||||
errout_syntax:
|
||||
nsh_output(vtbl, g_nshsyntax, "test");
|
||||
return TEST_FALSE;
|
||||
}
|
||||
|
||||
/****************************************************************************
|
||||
* Public Functions
|
||||
****************************************************************************/
|
||||
|
||||
/****************************************************************************
|
||||
* Name: cmd_test
|
||||
****************************************************************************/
|
||||
|
||||
int cmd_test(FAR struct nsh_vtbl_s *vtbl, int argc, char **argv)
|
||||
{
|
||||
return expression(vtbl, argc-1, &argv[1]);
|
||||
}
|
||||
|
||||
/****************************************************************************
|
||||
* Name: cmd_lbracket
|
||||
****************************************************************************/
|
||||
|
||||
int cmd_lbracket(FAR struct nsh_vtbl_s *vtbl, int argc, char **argv)
|
||||
{
|
||||
if (strcmp(argv[argc-1], "]") != 0)
|
||||
{
|
||||
nsh_output(vtbl, g_nshsyntax, argv[0]);
|
||||
return ERROR;
|
||||
}
|
||||
else
|
||||
{
|
||||
return expression(vtbl, argc-2, &argv[1]);
|
||||
}
|
||||
}
|
||||
|
||||
#endif /* !CONFIG_EXAMPLES_NSH_DISABLESCRIPT && !CONFIG_EXAMPLES_NSH_DISABLE_TEST */
|
||||
Reference in New Issue
Block a user