/*****************************************************************************
*                                                                            *
*   ISWINEMPTY.SPL Copyright (C) 2015 DSP Development Corporation            *
*                               All Rights Reserved                          *
*                                                                            *
*   Author:      Randy Race                                                  *
*                                                                            *
*   Synopsis:    Returns 1 if Window does not contain a series               *
*                                                                            *
*   Revisions:   23 Nov 2015  RRR  Creation                                  *
*                                                                            *
*****************************************************************************/


#if @HELP_ISWINEMPTY

    ISWINEMPTY

    Purpose: Returns 1 if a Window does not contain a series.

    Syntax:  ISWINEMPTY(win)

              win - Optional Window, defaults to current Window

    Returns: An integer, 1 if the Window does not contain a series (including
             an empty series), else 0.

    Example:
             W1: gnorm(100, 1)
             W2: {}

             iswinempty(W1) returns 0
             iswinempty(W2) returns 0

             clear W1

             iswinempty(w1) returns 1

    Remarks:
             ISWINEMPTY returns 1 if the Window does not contain a series
             including an empty series.

             The syntax a = {} creates an empty series.

    See Also:
             Isempty
             Iswindow
             Winstatus
#endif


/* does window contain a series? */
iswinempty(w)
{
        local status = 0;

        if (argc < 1)
        {
                w = refwindow(w0);
        }

        if (iswindow(w))
        {
                status = (winstatus(w, 4) == 0);

        }

        return(status == 1);
}