Package tcl.lang

Examples of tcl.lang.Interp

36
37
38
39
40
41
42
43
44
45
46
*/
public class JaclInterpreter implements org.apache.batik.script.Interpreter {
    private Interp interpreter = null;

    public JaclInterpreter() {
        interpreter = new Interp();
        try {
            interpreter.eval("package require java", 0);
        } catch (TclException e) {
        }
    }
View Full Code Here
104
105
106
107
108
109
110
111
112
113
114
  public void initialize (BSFManager mgr, String lang,
        Vector declaredBeans) throws BSFException {
  super.initialize (mgr, lang, declaredBeans);

  // create interpreter
  interp = new Interp();

  // register the extension that user's can use to get at objects
  // registered by the app
  interp.createCommand ("bsf", new BSFCommand (mgr, this));
View Full Code Here
36
37
38
39
40
41
42
43
44
45
46
*/
public class JaclInterpreter implements org.apache.flex.forks.batik.script.Interpreter {
    private Interp interpreter = null;

    public JaclInterpreter() {
        interpreter = new Interp();
        try {
            interpreter.eval("package require java", 0);
        } catch (TclException e) {
        }
    }
View Full Code Here
37
38
39
40
41
42
43
44
45
46
47
*/
public class JaclInterpreter implements org.apache.batik.script.Interpreter {
    private Interp interpreter = null;

    public JaclInterpreter() {
        interpreter = new Interp();
        try {
            interpreter.eval("package require java", 0);
        } catch (TclException e) {
        }
    }
View Full Code Here
178
179
180
181
182
183
184
185
186
187
188
    public boolean
    setup(RewriteContext hr) {
  Properties props = hr.request.props;

  if (interp == null) {
      interp = new Interp();

      String script = props.getProperty(hr.prefix + SCRIPT);
      String session = (hr.sessionId == null) ? "none" : hr.sessionId;
      try {
    interp.eval("package require java");
View Full Code Here
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
   */

  // request.props.list(System.out);
  String sessionId = request.props.getProperty("SessionID","common");
  request.log(Server.LOG_DIAGNOSTIC, "  Using session: " + sessionId);
  Interp interp = (Interp) SessionManager.getSession(sessionId, "TCL",
    Interp.class);
  setupInterp(interp, sessionId);

      int code = 0;
  String result = interp.getResult().toString();
      synchronized (interp) {
      try {
    interp.eval(callback + " " +
      ReflectObject.newInstance(interp, Request.class, request));
      } catch (TclException e) {
    code = e.getCompletionCode();
    String trace = e.toString();
    System.out.println("Tcl Oops: "  + code + " " + e);
    if (code == 1) {
        try {
      trace = interp.getVar("errorInfo", TCL.GLOBAL_ONLY).toString();
        } catch (Exception e1) {}
    }
    request.log(Server.LOG_WARNING, propsPrefix + trace);
      }
      result = interp.getResult().toString();
  }  // end sync block
  if ((code==0 || code==2) && (result.equalsIgnoreCase("true") ||
    result.equals("1"))) {
      return true;
  } else {
View Full Code Here
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
   * (or if no SessionID variable was found) - initialize the interp
   */

  String sessionId = request.props.getProperty("SessionID","common");
  request.log(Server.LOG_DIAGNOSTIC, "  Using session: " + sessionId);
  Interp interp = (Interp) SessionManager.getSession(sessionId,
    propsPrefix + "TCL", Interp.class);

      int code = 0;
      synchronized (interp) {
      setupInterp(interp, sessionId);
      try {
    // System.out.println("running eval");
    TclUtil.setVar(interp, "content", new String(content),
      TCL.GLOBAL_ONLY);
    interp.eval("filter" + " " +
        ReflectObject.newInstance(interp, Request.class, request) +
        " " + ReflectObject.newInstance(interp, MimeHeaders.class,
      headers)
        );
    TclObject res = interp.getVar("content", TCL.GLOBAL_ONLY);
    content =  res.toString().getBytes();
      } catch (TclException e) {
    code = e.getCompletionCode();
    String trace = e.toString();
    // System.out.println("Tcl Oops: "  + code + " " + e);
    if (code == 1) {
        try {
      trace = interp.getVar("errorInfo", TCL.GLOBAL_ONLY).toString();
        } catch (Exception e1) {}
    }
    request.log(Server.LOG_WARNING, propsPrefix + trace);
      }
  }  // end sync block
View Full Code Here
82
83
84
85
86
87
88
89
90
91
92
          FileHandler.ROOT,"."), scriptName);
  }
  scriptName = scriptFile.getAbsolutePath();
  server.log(Server.LOG_DIAGNOSTIC, prefix, "Using: " + scriptName);
  try {
      interp = new Interp();
      TclUtil.setVar(interp, "tcl_interactive", "0", TCL.GLOBAL_ONLY);
      TclUtil.setVar(interp, "argv0", scriptName, TCL.GLOBAL_ONLY);
      TclUtil.setVar(interp, "prefix", prefix, TCL.GLOBAL_ONLY);
      TclUtil.setVar(interp, "logLevel", "" + server.logLevel,
        TCL.GLOBAL_ONLY);
View Full Code Here
37
38
39
40
41
42
43
44
45
46
47
*/
public class JaclInterpreter implements org.apache.flex.forks.batik.script.Interpreter {
    private Interp interpreter = null;

    public JaclInterpreter() {
        interpreter = new Interp();
        try {
            interpreter.eval("package require java", 0);
        } catch (TclException e) {
        }
    }
View Full Code Here
27
28
29
30
31
32
33
34
35
36
37
*/
public class JaclInterpreter implements org.apache.batik.script.Interpreter {
    private Interp interpreter = null;

    public JaclInterpreter() {
        interpreter = new Interp();
        try {
            interpreter.eval("package require java", 0);
        } catch (TclException e) {
        }
    }
View Full Code Here
TOP

Related Classes of tcl.lang.Interp

  • org.apache.batik.script.jacl.JaclInterpreter
  • org.apache.bsf.engines.jacl.JaclEngine
  • org.apache.flex.forks.batik.script.jacl.JaclInterpreter
  • sunlabs.brazil.tcl.TclFilter
  • sunlabs.brazil.tcl.TclHandler
  • sunlabs.brazil.tcl.TclRePollHandler
  • sunlabs.brazil.tcl.TclServerTemplate
    • Copyright © 2018 www.massapicom. All rights reserved.
    All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.