KickJava   Java API By Example, From Geeks To Geeks.

Java > Open Source Codes > org > apache > bsf > engines > jacl > BSFCommand


1 /*
2  * The Apache Software License, Version 1.1
3  *
4  * Copyright (c) 2002 The Apache Software Foundation. All rights
5  * reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  *
11  * 1. Redistributions of source code must retain the above copyright
12  * notice, this list of conditions and the following disclaimer.
13  *
14  * 2. Redistributions in binary form must reproduce the above copyright
15  * notice, this list of conditions and the following disclaimer in
16  * the documentation and/or other materials provided with the
17  * distribution.
18  *
19  * 3. The end-user documentation included with the redistribution, if
20  * any, must include the following acknowlegement:
21  * "This product includes software developed by the
22  * Apache Software Foundation (http://www.apache.org/)."
23  * Alternately, this acknowlegement may appear in the software itself,
24  * if and wherever such third-party acknowlegements normally appear.
25  *
26  * 4. The names "Apache BSF", "Apache", and "Apache Software Foundation"
27  * must not be used to endorse or promote products derived from
28  * this software without prior written permission. For written
29  * permission, please contact apache@apache.org.
30  *
31  * 5. Products derived from this software may not be called "Apache"
32  * nor may "Apache" appear in their names without prior written
33  * permission of the Apache Group.
34  *
35  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
36  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
37  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
38  * DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
39  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
40  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
41  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
42  * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
43  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
44  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
45  * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
46  * SUCH DAMAGE.
47  * ====================================================================
48  *
49  * This software consists of voluntary contributions made by many individuals
50  * on behalf of the Apache Software Foundation and was originally created by
51  * Sanjiva Weerawarana and others at International Business Machines
52  * Corporation. For more information on the Apache Software Foundation,
53  * please see <http://www.apache.org/>.
54  */
55
56 package org.apache.bsf.engines.jacl;
57
58 import java.util.*;
59 import java.io.*;
60
61 import tcl.lang.*;
62
63 import org.apache.bsf.*;
64 import org.apache.bsf.util.*;
65
66 // class used to add "bsf" command to the Jacl runtime
67 class BSFCommand implements Command {
68   BSFManager mgr;
69   BSFEngine jengine;
70
71   BSFCommand (BSFManager mgr, BSFEngine jengine) {
72     this.mgr = mgr;
73     this.jengine = jengine;
74   }
75   public void cmdProc (Interp interp,
76                TclObject argv[]) throws TclException {
77     if (argv.length < 2) {
78       interp.setResult ("invalid # of args; usage: bsf " +
79         "lookupBean|registerBean|unregisterBean|addEventListener args");
80       throw new TclException (TCL.ERROR);
81     }
82
83     String JavaDoc op = argv[1].toString ();
84
85     if (op.equals ("lookupBean")) {
86       if (argv.length != 3) {
87     interp.setResult ("invalid # of args; usage: bsf " +
88               "lookupBean name-of-bean");
89     throw new TclException (TCL.ERROR);
90       }
91
92       String JavaDoc beanName = argv[2].toString ();
93       Object JavaDoc bean = mgr.lookupBean (beanName);
94       if (bean == null) {
95     interp.setResult ("unknown object: " + beanName);
96     throw new TclException (TCL.ERROR);
97       }
98       interp.setResult (ReflectObject.newInstance (interp, bean.getClass (),
99                            bean));
100
101     } else if (op.equals ("registerBean")) {
102       if (argv.length != 4) {
103     interp.setResult ("invalid # of args; usage: bsf " +
104               "registerBean name-of-bean bean");
105     throw new TclException (TCL.ERROR);
106       }
107       mgr.registerBean (argv[2].toString (),
108             ReflectObject.get (interp, argv[3]));
109       interp.setResult ("");
110
111     } else if (op.equals ("unregisterBean")) {
112       if (argv.length != 3) {
113     interp.setResult ("invalid # of args; usage: bsf " +
114               "unregisterBean name-of-bean");
115     throw new TclException (TCL.ERROR);
116       }
117       mgr.unregisterBean (argv[2].toString ());
118       interp.setResult ("");
119
120     } else if (op.equals ("addEventListener")) {
121       if (argv.length != 6) {
122     interp.setResult ("invalid # of args; usage: bsf " +
123               "addEventListener object event-set-name filter " +
124               "script-to-run");
125     throw new TclException (TCL.ERROR);
126       }
127       try {
128     // usage: bsf addEventListener object event-set filter script
129 String JavaDoc filter = argv[4].toString ();
130     filter = filter.equals ("") ? null : filter;
131     EngineUtils.addEventListener (ReflectObject.get (interp, argv[2]),
132                       argv[3].toString (), filter,
133                       jengine, mgr, "<event-script>", 0, 0,
134                       argv[5].toString ());
135       } catch (BSFException e) {
136     e.printStackTrace ();
137     interp.setResult ("got BSF exception: " + e.getMessage ());
138     throw new TclException (TCL.ERROR);
139       }
140     }
141   }
142 }
143
Popular Tags