/*****************************************************************************
*                                                                            *
*   ISSTRING.SPL Copyright (C) 2002 DSP Development Corporation              *
*                               All Rights Reserved                          *
*                                                                            *
*   Author:      Randy Race                                                  *
*                                                                            *
*   Synopsis:    Returns 1 if input a string                                 *
*                                                                            *
*   Revisions:    9 Aug 2002  RRR  Creation                                  *
*                                                                            *
*****************************************************************************/

#include 


#if @HELP_ISSTRING

    ISSTRING

    Purpose: Returns 1 if input is a string

    Syntax:  ISSTRING(a)

              a - Any input

    Returns: An integer, 1 if the input is a string, else 0.

    Example:
             a = {1};
             b = {};
             c = "yes";

             isstring(a) returns 0
             isstring(b) returns 0
             isstring(c) returns 1

    Remarks:

             ISSTRING always returns an integer.

    See Also:
             Finite
             Isempty
             Isinf
             Isnan
#endif


/* is input a string? */
isstring(a)
{
        if (argc < 1) return(0);

        return(IS_STRING(a));
}