isglobal.java

package jmathlib.toolbox.general;

import jmathlib.core.tokens.numbertokens.DoubleNumberToken;
import jmathlib.core.tokens.*;
import jmathlib.core.functions.ExternalFunction;
import jmathlib.core.interpreter.GlobalValues;

/**An external function which checks if the argument is numeric*/
public class isglobal extends ExternalFunction
{
	public OperandToken evaluate(Token[] operands, GlobalValues globals)
	{

        if (getNArgIn(operands) != 1)
			throwMathLibException("isglobal: number of arguments != 1");
            
		if (!(operands[0] instanceof VariableToken))
            throwMathLibException("isglobal: only works on variables");
            
        VariableToken var = (VariableToken)operands[0];    
		String name = var.getName();
        
        if (globals.getVariable(name).isGlobal())
            return new DoubleNumberToken(1.0);
        else
            return new DoubleNumberToken(0.0);

    }
}

/*
@GROUP
general
@SYNTAX
answer = iscell(value)
@DOC
Returns 1 if the first operand is a cell array, else it returns 0.
@EXAMPLES
<programlisting>
a={4,5,'barfoo'}
iscell(a)=1 
iscell('hello')=0 
iscell([5,6,7])=0
</programlisting>
@NOTES
@SEE
ismatrix, isnumeric
*/