RAPL

Artifact [7d16086aa8]
Login

Artifact [7d16086aa8]

Artifact 7d16086aa879c5eb9b6e70992fe8bae1f5d45344:


/*====================================================
 * rapl_itcl_component.js "A Tcl like language implementation in Javascript named WebRAPL 
 * (Web Rapid Application Programming Language)"
 *
 * RAPL itcl component container
 *
 * Released under BSD license.
 * (BSD license found at <http://www.tcl.tk/software/tcltk/license.html>)
 *
 * Arnulf Wiedemann    2011
 */

RP.add("rapl-itcl-component", function(R, name) {

function ItclComponent(interp, protection, type, component_name, class_info) {
  R.log('constructor called', '2.life', 'ItclComponent', true);
  // kweight
  var i_component = this;

  var constructor = i_component.constructor;
  ItclComponent.superclass.constructor.apply(i_component, arguments);

  R.Base.itcl_component_oid++;
  i_component.oid = R.Base.itcl_component_oid;

  i_component.interp = interp;
  i_component.protection = protection;
  i_component.type = type;
  i_component.component_name = component_name;
  i_component.class_info = class_info

  R.log('constructor end', '2.life', 'ItclComponent', true);
}

R.extend(ItclComponent, R.RaplObject, {
  my_name: "ItclComponent",

  /* ==================== toString ================================== */
  toString: function() {
    var i_component = this;

    return i_component.component_name;
  },

  /* ==================== toDebugString ================================== */
  toDebugString: function() {
    var i_component = this;
    var str;

    str = i_component.mySelf()+"\n";
    str += "  name: "+i_component.component_name+"\n";
    str += "  protection: "+i_component.getProtectionString(i_component.protection)+"\n";
    str += "  type: "+i_component.getItclOtherTypeString(i_component.type)+"\n";
    return str;
  },

  /* ==================== itcl_componentTokenListInit ================================== */
  itcl_componentTokenListInit: function() {
    var i_component = this;
  },


});

ItclComponent.prototype.constructor = ItclComponent;

R.ItclComponent = ItclComponent;

}, "0.0.1", {});