APWTCL Arnulf's Preferred Web Tcl

Check-in [2c65d2f052]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:commented out debug stuff
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2c65d2f052f48150c59d8013120b7eb66baf7599
User & Date: arnulf 2014-02-08 15:41:19
Context
2014-02-08
20:01
fixes and removed debugging stuff. check-in: cd21760ebb user: arnulf tags: trunk
15:41
commented out debug stuff check-in: 2c65d2f052 user: arnulf tags: trunk
2014-02-07
20:56
fixes for making first steps with gles20 package commands. check-in: 168f592e8c user: arnulf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/org/apwtcl/lang/Namespace.java.

391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  public Command findCommand(String cmd_name, Namespace context_ns_ptr, int flags) {
print("FINDCOMMAND!"+cmd_name+"!"+(context_ns_ptr  != null ? context_ns_ptr.toDebugString() : "null")+"!");
    Namespace cxt_ns_ptr = null;
    Namespace path_ns;
    Namespace real_ns;
    ArrayList<Object> cmd_ptr = new ArrayList<Object>();
    ArrayList<Object> macro_ptr = new ArrayList<Object>();
    Command cmd = null;
    HashMap<String, Command> commands;







|







391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  public Command findCommand(String cmd_name, Namespace context_ns_ptr, int flags) {
//print("FINDCOMMAND!"+cmd_name+"!"+(context_ns_ptr  != null ? context_ns_ptr.toDebugString() : "null")+"!");
    Namespace cxt_ns_ptr = null;
    Namespace path_ns;
    Namespace real_ns;
    ArrayList<Object> cmd_ptr = new ArrayList<Object>();
    ArrayList<Object> macro_ptr = new ArrayList<Object>();
    Command cmd = null;
    HashMap<String, Command> commands;

Changes to src/org/apwtcl/lang/objtype/CommandObjType.java.

862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
    
    for (i = 0; i < PackageCommandInfo.package_names.size(); i++) {
    	String pkg_name = PackageCommandInfo.package_names.get(i);
    	Namespace pkg_ns_ptr = PackageCommandInfo.package_namespaces.get(pkg_name);
        PackageCommandInfo pci = PackageCommandInfo.package_infos.get(pkg_name);
        my_name.delete(0, my_name.length());
        my_name.append(cmd_name);
System.out.println("pkg_name: "+pkg_name+"!"+my_name.toString()+"!");
        if (pci.hasCommand(pkg_name, my_name.toString())) {
          /* avoid reloading the command otherwise there are problems !! */
          if (interp.global_ns_ptr.cmd_procs.get(escapeKey(cmd_name)) == null) {
 System.out.println("found pkg_name: "+pkg_name+"!"+my_name.toString()+"!");
            return true;
          }
        }
     }
    return false;
  }
  







<



<







862
863
864
865
866
867
868

869
870
871

872
873
874
875
876
877
878
    
    for (i = 0; i < PackageCommandInfo.package_names.size(); i++) {
    	String pkg_name = PackageCommandInfo.package_names.get(i);
    	Namespace pkg_ns_ptr = PackageCommandInfo.package_namespaces.get(pkg_name);
        PackageCommandInfo pci = PackageCommandInfo.package_infos.get(pkg_name);
        my_name.delete(0, my_name.length());
        my_name.append(cmd_name);

        if (pci.hasCommand(pkg_name, my_name.toString())) {
          /* avoid reloading the command otherwise there are problems !! */
          if (interp.global_ns_ptr.cmd_procs.get(escapeKey(cmd_name)) == null) {

            return true;
          }
        }
     }
    return false;
  }