1 ////////////////////////////////////////////////////////////////////////////////
2 // MillScript: an Open Spice interpreter and batch website creation tool
3 // Copyright (C) 2001-2004 Open World Ltd
4 //
5 // This file is part of MillScript.
6 //
7 // MillScript is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU General Public License as published by the Free
9 // Software Foundation; either version 2 of the License, or (at your option)
10 // any later version.
11 //
12 // MillScript is distributed in the hope that it will be useful, but WITHOUT
13 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
15 // more details.
16 //
17 // You should have received a copy of the GNU General Public License along with
18 // MillScript; if not, write to the Free Software Foundation, Inc., 59 Temple
19 // Place, Suite 330, Boston, MA 02111-1307 USA
20 ////////////////////////////////////////////////////////////////////////////////
21 package org.millscript.millscript.functions;
22
23 import org.millscript.millscript.vm.Machine;
24
25 /**
26 * This class implements a function which recognizes an instance of a specific
27 * Java class.
28 */
29 public class JRecognizer extends Function {
30
31 /**
32 * The class to recognize.
33 */
34 private final Class clss;
35
36 /**
37 * Constructs a new <code>JRecognizer</code> function to recognize an
38 * instance of the specified Java class.
39 *
40 * @param c the Java class to recognize
41 */
42 public JRecognizer( final Class c ) {
43 this.clss = c;
44 }
45
46 /**
47 * @see org.millscript.millscript.functions.Function#apply(org.millscript.millscript.vm.Machine, int)
48 */
49 @Override
50 public void apply( final Machine mc, final int nargs ) {
51 checkNargs( mc, 1, nargs );
52 mc.pushBoolean( clss.isInstance( mc.popObject() ) );
53 }
54
55 }