RAPL

Check-in [3cc9889cac]
Login

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

Overview
Comment:code for new command ::itcl::delete and fixes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:3cc9889cacf076100ea0a9c23fb57d3921c1212f
User & Date: arnulf 2012-02-22 20:52:05
Context
2012-02-22
20:52
fixes check-in: ae8f36d6a3 user: arnulf tags: trunk
20:52
code for new command ::itcl::delete and fixes check-in: 3cc9889cac user: arnulf tags: trunk
20:50
fixes check-in: 81e5d79a04 user: arnulf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to rapl_pkg_itclcmd.js.

63
64
65
66
67
68
69
































70
71
72
73
74
75
76
      return interp.ERROR;
    }
    interp.class_type = interp.ITCL_CLASS;
    interp.itcl_obj_type.class_name = args[1];
    ret_code = interp.itcl_obj_type.setFromAny(args[2]);
    return ret_code;
  });

































  /* ==================== command itcl expandmacro ===================================== */
  interp.registerCommand("::itcl::expandmacro", function (interp, args) {
//print("::itcl::expandmacro!"+args+"!");
    var ret_code = interp.OK;
    var arglist = interp.curr_macro.arglist;
    var body = interp.curr_macro.body;







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
      return interp.ERROR;
    }
    interp.class_type = interp.ITCL_CLASS;
    interp.itcl_obj_type.class_name = args[1];
    ret_code = interp.itcl_obj_type.setFromAny(args[2]);
    return ret_code;
  });

  /* ==================== command itcl delete ===================================== */
  interp.registerCommand("::itcl::delete", function (interp, args) {
    var ret_code = interp.OK;
    var delete_class = false;
    var delete_object = false;
    var action;

print("itcl delete!"+args+"!");
    if (args.length < 3) {
      interp.wrongNumArgs(1, args, "class|object name ?name ...?");
      return interp.ERROR;
    }
    action = args[1];
    switch (action.getString()) {
    case "class":
      delete_class = true;
      break;
    case "object":
      delete_object = true;
      break;
    default:
      interp.wrongNumArgs(1, args, "class|object name ?name ...?");
      return interp.ERROR;
    }
    if (delete_object) {
      
    }
interp.setResultString("itcl delete not yet implemented!");
ret_code = interp.ERROR;
    return ret_code;
  });

  /* ==================== command itcl expandmacro ===================================== */
  interp.registerCommand("::itcl::expandmacro", function (interp, args) {
//print("::itcl::expandmacro!"+args+"!");
    var ret_code = interp.OK;
    var arglist = interp.curr_macro.arglist;
    var body = interp.curr_macro.body;