Package tcl.lang

Examples of tcl.lang.TclObject

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
  public Object eval (String source, int lineNo, int columnNo,
          Object oscript) throws BSFException {
  String script = oscript.toString ();
  try {
    interp.eval (script);
    TclObject result = interp.getResult();
    Object internalRep = result.getInternalRep();

    // if the object has a corresponding Java type, unwrap it
    if (internalRep instanceof ReflectObject)
    return ReflectObject.get(interp,result);
    if (internalRep instanceof TclString)
    return result.toString();
    if (internalRep instanceof TclDouble)
    return new Double(TclDouble.get(interp,result));
    if (internalRep instanceof TclInteger)
    return new Integer(TclInteger.get(interp,result));
View Full Code Here
187
188
189
190
191
192
193
194
195
196
197
      try {
    interp.eval("package require java");
    interp.eval("set prefix " + hr.prefix);
    interp.eval("set SessionId " + session);

    TclObject server = ReflectObject.newInstance(interp,
      Server.class, hr.server);

    TclUtil.setVar(interp, "server", server, 0);

    if (script != null) {
View Full Code Here
316
317
318
319
320
321
322
323
324
325
326
      } else {
    hr.append("\n<!-- server-side Tcl: error code " +
      e.getCompletionCode() + ": " +
      interp.getResult() + " -->\n");
    if (debug) {
        TclObject errorInfo;
        try {
      errorInfo = interp.getVar("errorInfo", null,
        TCL.GLOBAL_ONLY);
        } catch (Exception e2) {
      errorInfo = null;
View Full Code Here
145
146
147
148
149
150
151
152
153
154
155
156
    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) {
View Full Code Here
123
124
125
126
127
128
129
130
131
132
133
      }
      interp.eval("process " +
    ReflectObject.newInstance(interp, Properties.class, props));
  } catch (TclException e) {
      if (e.getCompletionCode() == TCL.ERROR) {
    TclObject errorInfo;
    try {
        errorInfo = interp.getVar("errorInfo", null,
          TCL.GLOBAL_ONLY);
    } catch (Exception e2) {
        errorInfo = null;
View Full Code Here
TOP

Related Classes of tcl.lang.TclObject

  • org.apache.bsf.engines.jacl.JaclEngine
  • sunlabs.brazil.tcl.TclFilter
  • 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.