[openib-general] [PATCH] osm: ibmgtsim changes
Eitan Zahavi
eitan at mellanox.co.il
Wed Mar 1 23:40:10 PST 2006
Hi Ofer,
I have committed the changes in with the following change sets:
------------------------------------------------------------------------
r5566 | eitan | 2006-03-02 09:42:44 +0200 (Thu, 02 Mar 2006) | 2 lines
Changed paths:
M /gen2/utils/src/linux-user/ibmgtsim/src/ibmssh_wrap.cpp
Auto update after additional API and typo fix from prev checkins
------------------------------------------------------------------------
r5565 | eitan | 2006-03-02 09:42:01 +0200 (Thu, 02 Mar 2006) | 2 lines
Changed paths:
M /gen2/utils/src/linux-user/ibmgtsim/src/inttypes.i
Somehow an extra space added after %0x16
------------------------------------------------------------------------
r5564 | eitan | 2006-03-02 09:22:05 +0200 (Thu, 02 Mar 2006) | 4 lines
Changed paths:
M /gen2/utils/src/linux-user/ibmgtsim/src/mads.i
Add several new MADs interface for the simulator:
SubnMgt : Notice 128, Notie 129, Notice 144.
SubnAdmin: ServieRecord, PathRecord
------------------------------------------------------------------------
r5563 | eitan | 2006-03-02 09:19:30 +0200 (Thu, 02 Mar 2006) | 4 lines
Changed paths:
M /gen2/utils/src/linux-user/ibmgtsim/src/sim.i
Expose port status change function (on node object)
This emulates bringing the port down and sending traps as well as
incrementing the port counters.
------------------------------------------------------------------------
r5562 | eitan | 2006-03-02 09:18:06 +0200 (Thu, 02 Mar 2006) | 2 lines
Changed paths:
M /gen2/utils/src/linux-user/ibmgtsim/src/Makefile.am
Missing dependency on some swig i files (for maintainer mode only)
Eitan Zahavi
Design Technology Director
Mellanox Technologies LTD
Tel:+972-4-9097208
Fax:+972-4-9593245
P.O. Box 586 Yokneam 20692 ISRAEL
> -----Original Message-----
> From: openib-general-bounces at openib.org [mailto:openib-general-
> bounces at openib.org] On Behalf Of Ofer Gigi
> Sent: Wednesday, March 01, 2006 5:47 PM
> To: OPENIB
> Subject: [openib-general] [PATCH] osm: ibmgtsim changes
>
> Hi Hal,
>
> Please add the following changes to ibmgtsim:
> 1. sim.i - Exposing setLinkStatus function
> 2. mads.i - Adding traps 128,129,144 and adding madPathRec and
madServiceRec
> 3. Makefile.am - small change in SWIG_IFC_FILES
> 4. ibmssh_wrap.cpp - was changed because of the changes
>
> Thanks
>
> Ofer G.
>
> Signed-off-by: Ofer Gigi <oferg at mellanox.co.il>
>
> Index: sim.i
> ===================================================================
> --- sim.i (revision 5446)
> +++ sim.i (working copy)
> @@ -440,6 +440,9 @@ class IBMSNode {
> ib_port_info_t * getPortInfo(uint8_t portNum);
> /* get a specific port info */
>
> + int setLinkStatus(uint8_t portNum, uint8_t newState);
> + /* set the Link status including sending trap128 */
> +
> ib_node_info_t * getNodeInfo();
> /* get the node info */
>
> Index: mads.i
> ===================================================================
> --- mads.i (revision 5446)
> +++ mads.i (working copy)
> @@ -203,3 +203,310 @@ struct madMcMemberRec
> );
> }
> }
> +
> +
> +%{
> +#define madPathRec ib_path_rec_t
> +%}
> +
> +struct madPathRec
> +{
> + madPathRec();
> + ~madPathRec();
> +
> + uint8_array_t resv0[8];
> + ib_gid_t dgid;
> + ib_gid_t sgid;
> + ib_net16_t dlid;
> + ib_net16_t slid;
> + ib_net32_t hop_flow_raw;
> + uint8_t tclass;
> + uint8_t num_path;
> + ib_net16_t pkey;
> + ib_net16_t sl;
> + uint8_t mtu;
> + uint8_t rate;
> + uint8_t pkt_life;
> + uint8_t preference;
> + uint8_array_t resv2[6];
> +}
> +
> +%addmethods madPathRec {
> + int send_get(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid,
> + uint64_t comp_mask)
> + {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_GET,
> + cl_ntoh16(IB_MAD_ATTR_PATH_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madPathRec)
> + )
> + );
> + }
> +}
> +
> +%{
> +#define madServiceRec ib_service_record_t
> +%}
> +
> +struct madServiceRec
> +{
> + madServiceRec();
> + ~madServiceRec();
> +
> + ib_net64_t service_id;
> + ib_gid_t service_gid;
> + ib_net16_t service_pkey;
> + ib_net16_t resv;
> + ib_net32_t service_lease;
> + uint8_array_t service_key[16];
> + uint8_array_t service_name[64];
> + uint8_array_t service_data8[16];
> + uint16_array_t service_data16[8];
> + uint32_array_t service_data32[4];
> + uint64_array_t service_data64[2];
> +}
> +
> +%addmethods madServiceRec {
> + int send_set(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid,
> + uint64_t comp_mask)
> + {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +
> + int send_get(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid,
> + uint64_t comp_mask)
> + {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_GET,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +
> + int send_del(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid,
> + uint64_t comp_mask)
> + {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_DELETE,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +}
> +
> +
> +%{
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr128
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t sw_lid; // the sw lid of which link state
changed - for 128 only
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr128_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice128 ib_mad_notice_attr128_t
> +%}
> +
> +struct madNotice128
> +{
> + madNotice128();
> + ~madNotice128();
> +
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t sw_lid; // the sw lid of which link state
changed - for 128 only
> + ib_gid_t issuer_gid;
> +}
> +
> +%addmethods madNotice128 {
> + int send_set(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid)
> + {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice128)
> + )
> + );
> + }
> +}
> +
> +%{
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr129
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad; //129
> + ib_net16_t lid; // 129 lid and port number of the
violation
> + uint8_t port_num; //129
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr129_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice129 ib_mad_notice_attr129_t
> +%}
> +
> +struct madNotice129
> +{
> + madNotice129();
> + ~madNotice129();
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad; //129
> + ib_net16_t lid; // 129 lid and port number of the
violation
> + uint8_t port_num; //129
> + ib_gid_t issuer_gid;
> +}
> +
> +%addmethods madNotice129 {
> + int send_set(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid)
> + {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice129)
> + )
> + );
> + }
> +}
> +
> +%{
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr144
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad1; // 144
> + ib_net16_t lid; // 144 lid where capability mask
changed
> + ib_net16_t pad2; // 144
> + ib_net32_t new_cap_mask; // 144 new capability mask
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr144_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice144 ib_mad_notice_attr144_t
> +%}
> +
> +struct madNotice144
> +{
> + madNotice144();
> + ~madNotice144();
> +
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad1; // 144
> + ib_net16_t lid; // 144 lid where capability mask
changed
> + ib_net16_t pad2; // 144
> + ib_net32_t new_cap_mask; // 144 new capability mask
> + ib_gid_t issuer_gid;
> +}
> +
> +%addmethods madNotice144 {
> + int send_set(
> + IBMSNode *pFromNode,
> + uint8_t fromPort,
> + uint16_t destLid)
> + {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice144)
> + )
> + );
> + }
> +}
> +
> +
> Index: ibmssh_wrap.cpp
> ===================================================================
> --- ibmssh_wrap.cpp (revision 5446)
> +++ ibmssh_wrap.cpp (working copy)
> @@ -862,6 +862,63 @@ static string MsgAllModules("");
>
> #define madMcMemberRec ib_member_rec_t
>
> +#define madPathRec ib_path_rec_t
> +
> +#define madServiceRec ib_service_record_t
> +
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr128
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t sw_lid; // the sw lid of which link state
changed - for 128 only
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr128_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice128 ib_mad_notice_attr128_t
> +
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr129
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad; //129
> + ib_net16_t lid; // 129 lid and port number of the
violation
> + uint8_t port_num; //129
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr129_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice129 ib_mad_notice_attr129_t
> +
> +#include <complib/cl_packon.h>
> +typedef struct _ib_mad_notice_attr144
> +{
> + uint8_t generic_type;
> + uint8_t prod_type_msb;
> + ib_net16_t prod_type_lsb;
> + ib_net16_t trap_num;
> + ib_net16_t issuer_lid;
> + ib_net16_t toggle_count;
> + ib_net16_t pad1; // 144
> + ib_net16_t lid; // 144 lid where capability mask
changed
> + ib_net16_t pad2; // 144
> + ib_net32_t new_cap_mask; // 144 new capability mask
> + ib_gid_t issuer_gid;
> +} PACK_SUFFIX ib_mad_notice_attr144_t;
> +#include <complib/cl_packoff.h>
> +
> +#define madNotice144 ib_mad_notice_attr144_t
> +
> /* we need to explicitly exit complib if we explictly started it if
static linked */
> void ibmssh_exit(ClientData clientData ) {
> complib_exit();
> @@ -24619,6 +24676,84 @@ static int _wrap_IBMSNode_getPortInfo(Cl
> SWIG_SetPointerObj(tcl_result,(void *)
_result,"_ib_port_info_t_p");
> return TCL_OK;
> }
> +#define IBMSNode_setLinkStatus(_swigobj,_swigarg0,_swigarg1)
(_swigobj-
> >setLinkStatus(_swigarg0,_swigarg1))
> +static int _wrap_IBMSNode_setLinkStatus(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + IBMSNode * _arg0;
> + uint8_t * _arg1;
> + uint8_t * _arg2;
> + Tcl_Obj * tcl_result;
> + uint8_t temp;
> + uint8_t temp0;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 4) || (objc > 4)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
IBMSNode_setLinkStatus {
> IBMSNode * } portNum newState ",-1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[1], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[1]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg0 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[1],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp0;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int )IBMSNode_setLinkStatus(_arg0,*_arg1,*_arg2);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> #define IBMSNode_getNodeInfo(_swigobj) (_swigobj->getNodeInfo())
> static int _wrap_IBMSNode_getNodeInfo(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
>
> @@ -25326,7 +25461,7 @@ static int TclIBMSNodeMethodCmd(ClientDa
> tcl_result = Tcl_GetObjResult(interp);
> objv = (Tcl_Obj **) _objv;
> if (objc < 2) {
> - Tcl_SetStringObj(tcl_result,"IBMSNode methods : { dump cget
configure
> getIBNode getLinkStatus setPhyPortErrProfile getPhyPortErrProfile
> setPhyPortPMCounter getPhyPortPMCounter getPortInfo getNodeInfo
getSwitchInfo
> getPKeyTblBlock setPKeyTblBlock setCrSpace getCrSpace getMFTBlock
setMFTBlock
> }",-1);
> + Tcl_SetStringObj(tcl_result,"IBMSNode methods : { dump cget
configure
> getIBNode getLinkStatus setPhyPortErrProfile getPhyPortErrProfile
> setPhyPortPMCounter getPhyPortPMCounter getPortInfo setLinkStatus
getNodeInfo
> getSwitchInfo getPKeyTblBlock setPKeyTblBlock setCrSpace getCrSpace
> getMFTBlock setMFTBlock }",-1);
> return TCL_ERROR;
> }
> obj = Tcl_NewObj();
> @@ -25348,6 +25483,8 @@ static int TclIBMSNodeMethodCmd(ClientDa
> cmd = _wrap_IBMSNode_getPhyPortPMCounter;
> } else if (strcmp(_str,"getPortInfo") == 0) {
> cmd = _wrap_IBMSNode_getPortInfo;
> + } else if (strcmp(_str,"setLinkStatus") == 0) {
> + cmd = _wrap_IBMSNode_setLinkStatus;
> } else if (strcmp(_str,"getNodeInfo") == 0) {
> cmd = _wrap_IBMSNode_getNodeInfo;
> } else if (strcmp(_str,"getSwitchInfo") == 0) {
> @@ -25426,7 +25563,7 @@ static int TclIBMSNodeMethodCmd(ClientDa
> }
> }
> if (!cmd) {
> - Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> getIBNode getLinkStatus setPhyPortErrProfile getPhyPortErrProfile
> setPhyPortPMCounter getPhyPortPMCounter getPortInfo getNodeInfo
getSwitchInfo
> getPKeyTblBlock setPKeyTblBlock setCrSpace getCrSpace getMFTBlock
setMFTBlock
> }",-1);
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> getIBNode getLinkStatus setPhyPortErrProfile getPhyPortErrProfile
> setPhyPortPMCounter getPhyPortPMCounter getPortInfo setLinkStatus
getNodeInfo
> getSwitchInfo getPKeyTblBlock setPKeyTblBlock setCrSpace getCrSpace
> getMFTBlock setMFTBlock }",-1);
> return TCL_ERROR;
> }
> oldarg = objv[1];
> @@ -27068,6 +27205,7103 @@ static int TclmadMcMemberRecCmd(ClientDa
> }
>
>
> +#define new_madPathRec() (new madPathRec())
> +static int _wrap_new_madPathRec(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> +
> + madPathRec * _result;
> + Tcl_Obj * tcl_result;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 1) || (objc > 1)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. new_madPathRec
",-1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (madPathRec *)new_madPathRec();
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + SWIG_SetPointerObj(tcl_result,(void *) _result,"_madPathRec_p");
> + return TCL_OK;
> +}
> +#define delete_madPathRec(_swigobj) (delete _swigobj)
> +static int _wrap_delete_madPathRec(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. delete_madPathRec
{ madPathRec * }
> ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
delete_madPathRec.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + delete_madPathRec(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + return TCL_OK;
> +}
> +static uint8_array_t * madPathRec_resv0_set(madPathRec *obj,
uint8_array_t val[8]) {
> +{
> + int i;
> + for (i=0; i <8 ; i++) {
> + obj->resv0[i] = *(val+i);
> + }
> +}
> + return (uint8_array_t *) val;
> +}
> +static int _wrap_madPathRec_resv0_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madPathRec * _arg0;
> + uint8_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t entrys[8];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_resv0_set { madPathRec
> * } { uint8_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_resv0_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 8))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint8_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 8; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t *)madPathRec_resv0_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <8 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_resv0_get(_swigobj) ((uint8_array_t *)
_swigobj->resv0)
> +static int _wrap_madPathRec_resv0_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_resv0_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_resv0_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t *)madPathRec_resv0_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <8 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_dgid_set(_swigobj,_swigval) (_swigobj->dgid =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_dgid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madPathRec * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_dgid_set { madPathRec
> * } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_dgid_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madPathRec_dgid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_dgid_get(_swigobj) (&_swigobj->dgid)
> +static int _wrap_madPathRec_dgid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_dgid_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_dgid_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madPathRec_dgid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_sgid_set(_swigobj,_swigval) (_swigobj->sgid =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_sgid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madPathRec * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_sgid_set { madPathRec *
> } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_sgid_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madPathRec_sgid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_sgid_get(_swigobj) (&_swigobj->sgid)
> +static int _wrap_madPathRec_sgid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_sgid_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_sgid_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madPathRec_sgid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_dlid_set(_swigobj,_swigval) (_swigobj->dlid =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_dlid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_dlid_set { madPathRec *
> } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_dlid_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_dlid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_dlid_get(_swigobj) (&_swigobj->dlid)
> +static int _wrap_madPathRec_dlid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_dlid_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_dlid_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_dlid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_slid_set(_swigobj,_swigval) (_swigobj->slid =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_slid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_slid_set { madPathRec *
> } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_slid_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_slid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_slid_get(_swigobj) (&_swigobj->slid)
> +static int _wrap_madPathRec_slid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_slid_get { madPathRec *
> } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_slid_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_slid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_hop_flow_raw_set(_swigobj,_swigval) (_swigobj-
> >hop_flow_raw = *(_swigval),_swigval)
> +static int _wrap_madPathRec_hop_flow_raw_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madPathRec * _arg0;
> + ib_net32_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net32_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_hop_flow_raw_set {
> madPathRec * } { ib_net32_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_hop_flow_raw_set. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL,
0));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t
*)madPathRec_hop_flow_raw_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_hop_flow_raw_get(_swigobj)
(&_swigobj->hop_flow_raw)
> +static int _wrap_madPathRec_hop_flow_raw_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_hop_flow_raw_get {
> madPathRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_hop_flow_raw_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t *)madPathRec_hop_flow_raw_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_tclass_set(_swigobj,_swigval) (_swigobj->tclass =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_tclass_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_tclass_set { madPathRec
> * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_tclass_set. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_tclass_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_tclass_get(_swigobj) (&_swigobj->tclass)
> +static int _wrap_madPathRec_tclass_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_tclass_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_tclass_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_tclass_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_num_path_set(_swigobj,_swigval)
(_swigobj->num_path =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_num_path_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_num_path_set {
> madPathRec * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_num_path_set. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_num_path_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_num_path_get(_swigobj) (&_swigobj->num_path)
> +static int _wrap_madPathRec_num_path_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_num_path_get {
> madPathRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_num_path_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_num_path_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_pkey_set(_swigobj,_swigval) (_swigobj->pkey =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_pkey_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_pkey_set { madPathRec
> * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_pkey_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_pkey_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_pkey_get(_swigobj) (&_swigobj->pkey)
> +static int _wrap_madPathRec_pkey_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_pkey_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_pkey_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_pkey_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_sl_set(_swigobj,_swigval) (_swigobj->sl =
*(_swigval),_swigval)
> +static int _wrap_madPathRec_sl_set(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. madPathRec_sl_set
{ madPathRec * } {
> ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_sl_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_sl_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_sl_get(_swigobj) (&_swigobj->sl)
> +static int _wrap_madPathRec_sl_get(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. madPathRec_sl_get
{ madPathRec * }
> ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_sl_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madPathRec_sl_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_mtu_set(_swigobj,_swigval) (_swigobj->mtu =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_mtu_set(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. madPathRec_mtu_set
{ madPathRec *
> } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_mtu_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_mtu_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_mtu_get(_swigobj) (&_swigobj->mtu)
> +static int _wrap_madPathRec_mtu_get(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. madPathRec_mtu_get
{ madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_mtu_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_mtu_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_rate_set(_swigobj,_swigval) (_swigobj->rate =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_rate_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_rate_set { madPathRec *
> } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_rate_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_rate_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_rate_get(_swigobj) (&_swigobj->rate)
> +static int _wrap_madPathRec_rate_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_rate_get { madPathRec *
> } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_rate_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_rate_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_pkt_life_set(_swigobj,_swigval)
(_swigobj->pkt_life =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_pkt_life_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_pkt_life_set {
> madPathRec * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_pkt_life_set. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_pkt_life_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_pkt_life_get(_swigobj) (&_swigobj->pkt_life)
> +static int _wrap_madPathRec_pkt_life_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_pkt_life_get {
> madPathRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_pkt_life_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_pkt_life_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_preference_set(_swigobj,_swigval)
(_swigobj->preference =
> *(_swigval),_swigval)
> +static int _wrap_madPathRec_preference_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_preference_set {
> madPathRec * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_preference_set. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_preference_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_preference_get(_swigobj) (&_swigobj->preference)
> +static int _wrap_madPathRec_preference_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_preference_get {
> madPathRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_preference_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madPathRec_preference_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +static uint8_array_t * madPathRec_resv2_set(madPathRec *obj,
uint8_array_t val[6]) {
> +{
> + int i;
> + for (i=0; i <6 ; i++) {
> + obj->resv2[i] = *(val+i);
> + }
> +}
> + return (uint8_array_t *) val;
> +}
> +static int _wrap_madPathRec_resv2_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madPathRec * _arg0;
> + uint8_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t entrys[6];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_resv2_set { madPathRec
> * } { uint8_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_resv2_set.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 6))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint8_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 6; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t *)madPathRec_resv2_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <6 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madPathRec_resv2_get(_swigobj) ((uint8_array_t *)
_swigobj->resv2)
> +static int _wrap_madPathRec_resv2_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madPathRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_resv2_get { madPathRec
> * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madPathRec_resv2_get. Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t *)madPathRec_resv2_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <6 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static int madPathRec_send_get(madPathRec *self,IBMSNode *
pFromNode,uint8_t
> fromPort,uint16_t destLid,uint64_t comp_mask) {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_GET,
> + cl_ntoh16(IB_MAD_ATTR_PATH_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madPathRec)
> + )
> + );
> + }
> +static int _wrap_madPathRec_send_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madPathRec * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + uint64_t * _arg4;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> + uint64_t temp1;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 6) || (objc > 6)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madPathRec_send_get { madPathRec
> * } pFromNode fromPort destLid comp_mask ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madPathRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madPathRec_send_get.
> Expected _madPathRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + temp1 = strtoull(Tcl_GetStringFromObj(objv[5],NULL), NULL,16);
> + _arg4 = &temp1;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madPathRec_send_get(_arg0,_arg1,*_arg2,*_arg3,*_arg4);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +/* delcmd.swg : Tcl object deletion method */
> +
> +static void TclDeletemadPathRec(ClientData clientData) {
> + delete_madPathRec((madPathRec *) clientData);
> +}
> +
> +/* methodcmd8.swg : Tcl8.x method invocation */
> +
> +static int TclmadPathRecMethodCmd(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST _objv[]) {
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + char *_str;
> + int rcode;
> + Tcl_Obj **objv;
> + Tcl_Obj *oldarg,*tcl_result,*obj;
> + int length;
> + char c;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + objv = (Tcl_Obj **) _objv;
> + if (objc < 2) {
> + Tcl_SetStringObj(tcl_result,"madPathRec methods : { dump cget
configure
> send_get }",-1);
> + return TCL_ERROR;
> + }
> + obj = Tcl_NewObj();
> + SWIG_SetPointerObj(obj,(void *) clientData,"_madPathRec_p");
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + c = *_str;
> + if (0);
> + if (strcmp(_str,"send_get") == 0) {
> + cmd = _wrap_madPathRec_send_get;
> + }
> + else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) &&
(length >= 2)) {
> + int i = 2;
> + cmd = 0;
> + while (i+1 < objc) {
> + _str = Tcl_GetStringFromObj(objv[i],&length);
> + if (strcmp(_str,"-resv0") == 0) {
> + cmd = _wrap_madPathRec_resv0_set;
> + } else if (strcmp(_str,"-dgid") == 0) {
> + cmd = _wrap_madPathRec_dgid_set;
> + } else if (strcmp(_str,"-sgid") == 0) {
> + cmd = _wrap_madPathRec_sgid_set;
> + } else if (strcmp(_str,"-dlid") == 0) {
> + cmd = _wrap_madPathRec_dlid_set;
> + } else if (strcmp(_str,"-slid") == 0) {
> + cmd = _wrap_madPathRec_slid_set;
> + } else if (strcmp(_str,"-hop_flow_raw") == 0) {
> + cmd = _wrap_madPathRec_hop_flow_raw_set;
> + } else if (strcmp(_str,"-tclass") == 0) {
> + cmd = _wrap_madPathRec_tclass_set;
> + } else if (strcmp(_str,"-num_path") == 0) {
> + cmd = _wrap_madPathRec_num_path_set;
> + } else if (strcmp(_str,"-pkey") == 0) {
> + cmd = _wrap_madPathRec_pkey_set;
> + } else if (strcmp(_str,"-sl") == 0) {
> + cmd = _wrap_madPathRec_sl_set;
> + } else if (strcmp(_str,"-mtu") == 0) {
> + cmd = _wrap_madPathRec_mtu_set;
> + } else if (strcmp(_str,"-rate") == 0) {
> + cmd = _wrap_madPathRec_rate_set;
> + } else if (strcmp(_str,"-pkt_life") == 0) {
> + cmd = _wrap_madPathRec_pkt_life_set;
> + } else if (strcmp(_str,"-preference") == 0) {
> + cmd = _wrap_madPathRec_preference_set;
> + } else if (strcmp(_str,"-resv2") == 0) {
> + cmd = _wrap_madPathRec_resv2_set;
> + }
> + if (cmd) {
> + oldarg = objv[i];
> + objv[i] = obj;
> + rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
> + objv[i] = oldarg;
> + if (rcode == TCL_ERROR) return rcode;
> + cmd = 0;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid configure option.
Must be { -resv0 -dgid -
> sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -sl -mtu -rate
-pkt_life -
> preference -resv2 }",-1);
> + return TCL_ERROR;
> + }
> + i+=2;
> + }
> + if ((i < objc) || (i == 2)) {
> + Tcl_SetStringObj(tcl_result,"{ -resv0 -dgid -sgid -dlid -slid
-hop_flow_raw -tclass
> -num_path -pkey -sl -mtu -rate -pkt_life -preference -resv2 }",-1);
> + return TCL_ERROR;
> + }
> + return TCL_OK;
> + } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) &&
(length >= 2)) {
> + if (objc == 3) {
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (0) {}
> + if (strcmp(_str,"-resv0") == 0) {
> + cmd = _wrap_madPathRec_resv0_get;
> + } else if (strcmp(_str,"-dgid") == 0) {
> + cmd = _wrap_madPathRec_dgid_get;
> + } else if (strcmp(_str,"-sgid") == 0) {
> + cmd = _wrap_madPathRec_sgid_get;
> + } else if (strcmp(_str,"-dlid") == 0) {
> + cmd = _wrap_madPathRec_dlid_get;
> + } else if (strcmp(_str,"-slid") == 0) {
> + cmd = _wrap_madPathRec_slid_get;
> + } else if (strcmp(_str,"-hop_flow_raw") == 0) {
> + cmd = _wrap_madPathRec_hop_flow_raw_get;
> + } else if (strcmp(_str,"-tclass") == 0) {
> + cmd = _wrap_madPathRec_tclass_get;
> + } else if (strcmp(_str,"-num_path") == 0) {
> + cmd = _wrap_madPathRec_num_path_get;
> + } else if (strcmp(_str,"-pkey") == 0) {
> + cmd = _wrap_madPathRec_pkey_get;
> + } else if (strcmp(_str,"-sl") == 0) {
> + cmd = _wrap_madPathRec_sl_get;
> + } else if (strcmp(_str,"-mtu") == 0) {
> + cmd = _wrap_madPathRec_mtu_get;
> + } else if (strcmp(_str,"-rate") == 0) {
> + cmd = _wrap_madPathRec_rate_get;
> + } else if (strcmp(_str,"-pkt_life") == 0) {
> + cmd = _wrap_madPathRec_pkt_life_get;
> + } else if (strcmp(_str,"-preference") == 0) {
> + cmd = _wrap_madPathRec_preference_get;
> + } else if (strcmp(_str,"-resv2") == 0) {
> + cmd = _wrap_madPathRec_resv2_get;
> + }
> + else if (strcmp(_str,"-this") == 0) {
> + SWIG_SetPointerObj(tcl_result,(void *) clientData,
"_madPathRec_p");
> + return TCL_OK;
> + }
> + if (cmd) {
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
> + objv[2] = oldarg;
> + return rcode;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be {
-this -resv0 -dgid -
> sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -sl -mtu -rate
-pkt_life -
> preference -resv2 }",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"{ -this -resv0 -dgid -sgid -dlid
-slid -hop_flow_raw -
> tclass -num_path -pkey -sl -mtu -rate -pkt_life -preference -resv2
}", -1);
> + return TCL_ERROR;
> + }
> + } else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) &&
(length >= 2)) {
> + if (objc == 2) {
> + Tcl_Obj *pDumpObj;
> + pDumpObj = Tcl_NewStringObj("",-1);
> + Tcl_IncrRefCount(pDumpObj);
> + cmd = _wrap_madPathRec_resv0_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-resv0 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_dgid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-dgid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_sgid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-sgid ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_dlid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-dlid ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_slid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-slid ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_hop_flow_raw_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-hop_flow_raw ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_tclass_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-tclass ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_num_path_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-num_path ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_pkey_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-pkey ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_sl_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-sl ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_mtu_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-mtu ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_rate_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-rate ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_pkt_life_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-pkt_life ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_preference_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-preference ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madPathRec_resv2_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-resv2 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> +
> + Tcl_DecrRefCount(pDumpObj);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"no parameters are allowed for
dump", -1);
> + return TCL_ERROR;
> + }
> + }
> + if (!cmd) {
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> send_get }",-1);
> + return TCL_ERROR;
> + }
> + oldarg = objv[1];
> + objv[1] = obj;
> + rcode = (*cmd)(clientData,interp,objc,objv);
> + objv[1] = oldarg;
> + return rcode;
> +}
> +
> +
> +
> +/* objcmd8.swg : Tcl 8.x object creation */
> +
> +static int TclmadPathRecCmd(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> + void (*del)(ClientData) = 0;
> + char *name = 0;
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + madPathRec * newObj = 0;
> + int firstarg = 0;
> + int thisarg = 0;
> + int length;
> + char *_str;
> + Tcl_Obj *tcl_result;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + if (objc == 1) {
> + cmd = _wrap_new_madPathRec;
> + } else {
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 2;
> + else if (strcmp(_str,"-args") == 0) {
> + firstarg = 1;
> + cmd = _wrap_new_madPathRec;
> + } else if (objc == 2) {
> + firstarg = 1;
> + name = _str;
> + cmd = _wrap_new_madPathRec;
> + } else if (objc >= 3) {
> + name = _str;
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 3;
> + else {
> + firstarg = 1;
> + cmd = _wrap_new_madPathRec;
> + }
> + }
> + }
> + if (cmd) {
> + int result;
> + result =
(*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);
> + if (result == TCL_OK) {
> + SWIG_GetPointerObj(interp,tcl_result,(void **)
&newObj,"_madPathRec_p");
> + } else { return result; }
> + if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);
> + del = TclDeletemadPathRec;
> + } else if (thisarg > 0) {
> + if (thisarg < objc) {
> + char *r;
> + r = SWIG_GetPointerObj(interp,objv[thisarg],(void **)
> &newObj,"_madPathRec_p");
> + if (r) {
> + Tcl_SetStringObj(tcl_result,"Type error. not a madPathRec
object.",-1);
> + return TCL_ERROR;
> + }
> + if (!name) name =
Tcl_GetStringFromObj(objv[thisarg],&length);
> + Tcl_SetStringObj(tcl_result,name,-1);
> + } else {
> + Tcl_SetStringObj(tcl_result,"wrong # args.",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"No constructor available.",-1);
> + return TCL_ERROR;
> + }
> + {
> + Tcl_CmdInfo dummy;
> + if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
> + Tcl_CreateObjCommand(interp,name, TclmadPathRecMethodCmd,
> (ClientData) newObj, del);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);
> + return TCL_ERROR;
> + }
> + }
> +}
> +
> +
> +#define new_madServiceRec() (new madServiceRec())
> +static int _wrap_new_madServiceRec(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madServiceRec * _result;
> + Tcl_Obj * tcl_result;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 1) || (objc > 1)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. new_madServiceRec
",-1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (madServiceRec *)new_madServiceRec();
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + SWIG_SetPointerObj(tcl_result,(void *)
_result,"_madServiceRec_p");
> + return TCL_OK;
> +}
> +#define delete_madServiceRec(_swigobj) (delete _swigobj)
> +static int _wrap_delete_madServiceRec(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
delete_madServiceRec {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
delete_madServiceRec.
> Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + delete_madServiceRec(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + return TCL_OK;
> +}
> +#define madServiceRec_service_id_set(_swigobj,_swigval)
(_swigobj->service_id =
> *(_swigval),_swigval)
> +static int _wrap_madServiceRec_service_id_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net64_t * _result;
> + madServiceRec * _arg0;
> + ib_net64_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint64_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_id_set {
> madServiceRec * } { ib_net64_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_id_set. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,
16));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net64_t
*)madServiceRec_service_id_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_id_get(_swigobj)
(&_swigobj->service_id)
> +static int _wrap_madServiceRec_service_id_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net64_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_id_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_id_get. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net64_t *)madServiceRec_service_id_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_gid_set(_swigobj,_swigval)
(_swigobj->service_gid =
> *(_swigval),_swigval)
> +static int _wrap_madServiceRec_service_gid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madServiceRec * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_gid_set {
> madServiceRec * } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_gid_set. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t
*)madServiceRec_service_gid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_gid_get(_swigobj)
(&_swigobj->service_gid)
> +static int _wrap_madServiceRec_service_gid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_gid_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_gid_get. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madServiceRec_service_gid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_pkey_set(_swigobj,_swigval) (_swigobj-
> >service_pkey = *(_swigval),_swigval)
> +static int _wrap_madServiceRec_service_pkey_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madServiceRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_pkey_set {
> madServiceRec * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_pkey_set. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madServiceRec_service_pkey_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_pkey_get(_swigobj)
(&_swigobj->service_pkey)
> +static int _wrap_madServiceRec_service_pkey_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_pkey_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_pkey_get. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madServiceRec_service_pkey_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_resv_set(_swigobj,_swigval) (_swigobj->resv =
> *(_swigval),_swigval)
> +static int _wrap_madServiceRec_resv_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madServiceRec * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_resv_set {
> madServiceRec * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_resv_set. Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madServiceRec_resv_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_resv_get(_swigobj) (&_swigobj->resv)
> +static int _wrap_madServiceRec_resv_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_resv_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_resv_get. Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madServiceRec_resv_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_lease_set(_swigobj,_swigval) (_swigobj-
> >service_lease = *(_swigval),_swigval)
> +static int _wrap_madServiceRec_service_lease_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madServiceRec * _arg0;
> + ib_net32_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net32_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_lease_set {
> madServiceRec * } { ib_net32_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_lease_set. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL,
0));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t
*)madServiceRec_service_lease_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_lease_get(_swigobj)
(&_swigobj->service_lease)
> +static int _wrap_madServiceRec_service_lease_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_lease_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_lease_get. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t *)madServiceRec_service_lease_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +static uint8_array_t * madServiceRec_service_key_set(madServiceRec
*obj,
> uint8_array_t val[16]) {
> +{
> + int i;
> + for (i=0; i <16 ; i++) {
> + obj->service_key[i] = *(val+i);
> + }
> +}
> + return (uint8_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_key_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + uint8_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t entrys[16];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_key_set {
> madServiceRec * } { uint8_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_key_set. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 16))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint8_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 16; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_key_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <16 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_key_get(_swigobj) ((uint8_array_t *)
_swigobj-
> >service_key)
> +static int _wrap_madServiceRec_service_key_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_key_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_key_get. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_key_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <16 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static uint8_array_t * madServiceRec_service_name_set(madServiceRec
*obj,
> uint8_array_t val[64]) {
> +{
> + int i;
> + for (i=0; i <64 ; i++) {
> + obj->service_name[i] = *(val+i);
> + }
> +}
> + return (uint8_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_name_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + uint8_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t entrys[64];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_name_set {
> madServiceRec * } { uint8_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_name_set. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 64))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint8_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 64; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_name_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <64 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_name_get(_swigobj) ((uint8_array_t *)
_swigobj-
> >service_name)
> +static int _wrap_madServiceRec_service_name_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_name_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_name_get. Expected _madServiceRec_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_name_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <64 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static uint8_array_t * madServiceRec_service_data8_set(madServiceRec
*obj,
> uint8_array_t val[16]) {
> +{
> + int i;
> + for (i=0; i <16 ; i++) {
> + obj->service_data8[i] = *(val+i);
> + }
> +}
> + return (uint8_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_data8_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + uint8_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t entrys[16];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data8_set {
> madServiceRec * } { uint8_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data8_set. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 16))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint8_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 16; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_data8_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <16 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_data8_get(_swigobj) ((uint8_array_t *)
_swigobj-
> >service_data8)
> +static int _wrap_madServiceRec_service_data8_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data8_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data8_get. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_array_t
*)madServiceRec_service_data8_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <16 ; i++) {
> + sprintf(buff, "0x%02x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static uint16_array_t *
madServiceRec_service_data16_set(madServiceRec *obj,
> uint16_array_t val[8]) {
> +{
> + int i;
> + for (i=0; i <8 ; i++) {
> + obj->service_data16[i] = *(val+i);
> + }
> +}
> + return (uint16_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_data16_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint16_array_t * _result;
> + madServiceRec * _arg0;
> + uint16_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint16_t entrys[8];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data16_set {
> madServiceRec * } { uint16_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data16_set. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 8))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xffff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint16_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 8; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint16_array_t
*)madServiceRec_service_data16_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <8 ; i++) {
> + sprintf(buff, "0x%04x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_data16_get(_swigobj) ((uint16_array_t
*) _swigobj-
> >service_data16)
> +static int _wrap_madServiceRec_service_data16_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint16_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data16_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data16_get. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint16_array_t
*)madServiceRec_service_data16_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[8];
> + for (i=0; i <8 ; i++) {
> + sprintf(buff, "0x%04x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static uint32_array_t *
madServiceRec_service_data32_set(madServiceRec *obj,
> uint32_array_t val[4]) {
> +{
> + int i;
> + for (i=0; i <4 ; i++) {
> + obj->service_data32[i] = *(val+i);
> + }
> +}
> + return (uint32_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_data32_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint32_array_t * _result;
> + madServiceRec * _arg0;
> + uint32_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint32_t entrys[4];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data32_set {
> madServiceRec * } { uint32_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data32_set. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + long int entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 4))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > (long int)0xffffffff)
> + {
> + printf("Error: wrong format or out of range value for expected
uint32_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 4; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint32_array_t
*)madServiceRec_service_data32_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[12];
> + for (i=0; i <4 ; i++) {
> + sprintf(buff, "0x%08x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_data32_get(_swigobj) ((uint32_array_t
*) _swigobj-
> >service_data32)
> +static int _wrap_madServiceRec_service_data32_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint32_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data32_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data32_get. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint32_array_t
*)madServiceRec_service_data32_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[12];
> + for (i=0; i <4 ; i++) {
> + sprintf(buff, "0x%08x ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static uint64_array_t *
madServiceRec_service_data64_set(madServiceRec *obj,
> uint64_array_t val[2]) {
> +{
> + int i;
> + for (i=0; i <2 ; i++) {
> + obj->service_data64[i] = *(val+i);
> + }
> +}
> + return (uint64_array_t *) val;
> +}
> +static int _wrap_madServiceRec_service_data64_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint64_array_t * _result;
> + madServiceRec * _arg0;
> + uint64_array_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint64_t entrys[2];
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data64_set {
> madServiceRec * } { uint64_array_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data64_set. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char *buff;
> + char *p_ch;
> + char *last;
> + uint64_t entry;
> +
> + int i = 0;
> + buff = (char
*)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));
> + strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));
> + p_ch = strtok_r(buff, " \t",&last);
> + while (p_ch && (i < 2))
> + {
> + entry = strtol(p_ch, NULL, 0);
> + if (entry > 0xffffffffffffffffULL )
> + {
> + printf("Error: wrong format or out of range value for expected
uint64_t entry:
> %s\n", p_ch);
> + return TCL_ERROR;
> + }
> + entrys[i++] = entry;
> + p_ch = strtok_r(NULL, " \t", &last);
> + }
> + for (; i < 2; i++) entrys[i] = 0;
> +
> + free(buff);
> + _arg1 = entrys;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint64_array_t
*)madServiceRec_service_data64_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[20];
> + for (i=0; i <2 ; i++) {
> + sprintf(buff, "0x%016" PRIx64 " ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +#define madServiceRec_service_data64_get(_swigobj) ((uint64_array_t
*) _swigobj-
> >service_data64)
> +static int _wrap_madServiceRec_service_data64_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint64_array_t * _result;
> + madServiceRec * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_service_data64_get {
> madServiceRec * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_service_data64_get. Expected _madServiceRec_p, received
", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint64_array_t
*)madServiceRec_service_data64_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + int i;
> + char buff[20];
> + for (i=0; i <2 ; i++) {
> + sprintf(buff, "0x%016" PRIx64 " ", *(_result+i));
> + Tcl_AppendResult(interp, buff, NULL);
> + }
> +}
> + return TCL_OK;
> +}
> +static int madServiceRec_send_set(madServiceRec *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid,uint64_t comp_mask) {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +static int _wrap_madServiceRec_send_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madServiceRec * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + uint64_t * _arg4;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> + uint64_t temp1;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 6) || (objc > 6)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_send_set {
> madServiceRec * } pFromNode fromPort destLid comp_mask ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_send_set. Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + temp1 = strtoull(Tcl_GetStringFromObj(objv[5],NULL), NULL,16);
> + _arg4 = &temp1;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madServiceRec_send_set(_arg0,_arg1,*_arg2,*_arg3,*_arg4);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +static int madServiceRec_send_get(madServiceRec *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid,uint64_t comp_mask) {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_GET,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +static int _wrap_madServiceRec_send_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madServiceRec * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + uint64_t * _arg4;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> + uint64_t temp1;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 6) || (objc > 6)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_send_get {
> madServiceRec * } pFromNode fromPort destLid comp_mask ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_send_get. Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + temp1 = strtoull(Tcl_GetStringFromObj(objv[5],NULL), NULL,16);
> + _arg4 = &temp1;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madServiceRec_send_get(_arg0,_arg1,*_arg2,*_arg3,*_arg4);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +static int madServiceRec_send_del(madServiceRec *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid,uint64_t comp_mask) {
> + return( send_sa_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_ADM,
> + IB_MAD_METHOD_DELETE,
> + cl_ntoh16(IB_MAD_ATTR_SERVICE_RECORD),
> + comp_mask,
> + (uint8_t*)self,
> + sizeof(madServiceRec)
> + )
> + );
> + }
> +static int _wrap_madServiceRec_send_del(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madServiceRec * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + uint64_t * _arg4;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> + uint64_t temp1;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 6) || (objc > 6)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madServiceRec_send_del {
> madServiceRec * } pFromNode fromPort destLid comp_mask ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madServiceRec_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madServiceRec_send_del. Expected _madServiceRec_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + temp1 = strtoull(Tcl_GetStringFromObj(objv[5],NULL), NULL,16);
> + _arg4 = &temp1;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madServiceRec_send_del(_arg0,_arg1,*_arg2,*_arg3,*_arg4);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +/* delcmd.swg : Tcl object deletion method */
> +
> +static void TclDeletemadServiceRec(ClientData clientData) {
> + delete_madServiceRec((madServiceRec *) clientData);
> +}
> +
> +/* methodcmd8.swg : Tcl8.x method invocation */
> +
> +static int TclmadServiceRecMethodCmd(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST _objv[]) {
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + char *_str;
> + int rcode;
> + Tcl_Obj **objv;
> + Tcl_Obj *oldarg,*tcl_result,*obj;
> + int length;
> + char c;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + objv = (Tcl_Obj **) _objv;
> + if (objc < 2) {
> + Tcl_SetStringObj(tcl_result,"madServiceRec methods : { dump cget
configure
> send_set send_get send_del }",-1);
> + return TCL_ERROR;
> + }
> + obj = Tcl_NewObj();
> + SWIG_SetPointerObj(obj,(void *) clientData,"_madServiceRec_p");
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + c = *_str;
> + if (0);
> + if (strcmp(_str,"send_set") == 0) {
> + cmd = _wrap_madServiceRec_send_set;
> + } else if (strcmp(_str,"send_get") == 0) {
> + cmd = _wrap_madServiceRec_send_get;
> + } else if (strcmp(_str,"send_del") == 0) {
> + cmd = _wrap_madServiceRec_send_del;
> + }
> + else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) &&
(length >= 2)) {
> + int i = 2;
> + cmd = 0;
> + while (i+1 < objc) {
> + _str = Tcl_GetStringFromObj(objv[i],&length);
> + if (strcmp(_str,"-service_id") == 0) {
> + cmd = _wrap_madServiceRec_service_id_set;
> + } else if (strcmp(_str,"-service_gid") == 0) {
> + cmd = _wrap_madServiceRec_service_gid_set;
> + } else if (strcmp(_str,"-service_pkey") == 0) {
> + cmd = _wrap_madServiceRec_service_pkey_set;
> + } else if (strcmp(_str,"-resv") == 0) {
> + cmd = _wrap_madServiceRec_resv_set;
> + } else if (strcmp(_str,"-service_lease") == 0) {
> + cmd = _wrap_madServiceRec_service_lease_set;
> + } else if (strcmp(_str,"-service_key") == 0) {
> + cmd = _wrap_madServiceRec_service_key_set;
> + } else if (strcmp(_str,"-service_name") == 0) {
> + cmd = _wrap_madServiceRec_service_name_set;
> + } else if (strcmp(_str,"-service_data8") == 0) {
> + cmd = _wrap_madServiceRec_service_data8_set;
> + } else if (strcmp(_str,"-service_data16") == 0) {
> + cmd = _wrap_madServiceRec_service_data16_set;
> + } else if (strcmp(_str,"-service_data32") == 0) {
> + cmd = _wrap_madServiceRec_service_data32_set;
> + } else if (strcmp(_str,"-service_data64") == 0) {
> + cmd = _wrap_madServiceRec_service_data64_set;
> + }
> + if (cmd) {
> + oldarg = objv[i];
> + objv[i] = obj;
> + rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
> + objv[i] = oldarg;
> + if (rcode == TCL_ERROR) return rcode;
> + cmd = 0;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid configure option.
Must be { -service_id -
> service_gid -service_pkey -resv -service_lease -service_key
-service_name -
> service_data8 -service_data16 -service_data32 -service_data64 }",-1);
> + return TCL_ERROR;
> + }
> + i+=2;
> + }
> + if ((i < objc) || (i == 2)) {
> + Tcl_SetStringObj(tcl_result,"{ -service_id -service_gid
-service_pkey -resv -
> service_lease -service_key -service_name -service_data8
-service_data16 -
> service_data32 -service_data64 }",-1);
> + return TCL_ERROR;
> + }
> + return TCL_OK;
> + } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) &&
(length >= 2)) {
> + if (objc == 3) {
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (0) {}
> + if (strcmp(_str,"-service_id") == 0) {
> + cmd = _wrap_madServiceRec_service_id_get;
> + } else if (strcmp(_str,"-service_gid") == 0) {
> + cmd = _wrap_madServiceRec_service_gid_get;
> + } else if (strcmp(_str,"-service_pkey") == 0) {
> + cmd = _wrap_madServiceRec_service_pkey_get;
> + } else if (strcmp(_str,"-resv") == 0) {
> + cmd = _wrap_madServiceRec_resv_get;
> + } else if (strcmp(_str,"-service_lease") == 0) {
> + cmd = _wrap_madServiceRec_service_lease_get;
> + } else if (strcmp(_str,"-service_key") == 0) {
> + cmd = _wrap_madServiceRec_service_key_get;
> + } else if (strcmp(_str,"-service_name") == 0) {
> + cmd = _wrap_madServiceRec_service_name_get;
> + } else if (strcmp(_str,"-service_data8") == 0) {
> + cmd = _wrap_madServiceRec_service_data8_get;
> + } else if (strcmp(_str,"-service_data16") == 0) {
> + cmd = _wrap_madServiceRec_service_data16_get;
> + } else if (strcmp(_str,"-service_data32") == 0) {
> + cmd = _wrap_madServiceRec_service_data32_get;
> + } else if (strcmp(_str,"-service_data64") == 0) {
> + cmd = _wrap_madServiceRec_service_data64_get;
> + }
> + else if (strcmp(_str,"-this") == 0) {
> + SWIG_SetPointerObj(tcl_result,(void *) clientData,
"_madServiceRec_p");
> + return TCL_OK;
> + }
> + if (cmd) {
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
> + objv[2] = oldarg;
> + return rcode;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be {
-this -service_id -
> service_gid -service_pkey -resv -service_lease -service_key
-service_name -
> service_data8 -service_data16 -service_data32 -service_data64 }",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"{ -this -service_id -service_gid
-service_pkey -resv -
> service_lease -service_key -service_name -service_data8
-service_data16 -
> service_data32 -service_data64 }", -1);
> + return TCL_ERROR;
> + }
> + } else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) &&
(length >= 2)) {
> + if (objc == 2) {
> + Tcl_Obj *pDumpObj;
> + pDumpObj = Tcl_NewStringObj("",-1);
> + Tcl_IncrRefCount(pDumpObj);
> + cmd = _wrap_madServiceRec_service_id_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_id ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_gid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_gid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_pkey_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_pkey ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_resv_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-resv ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_lease_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_lease ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_key_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_key ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_name_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_name ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_data8_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_data8 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_data16_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_data16 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_data32_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_data32 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madServiceRec_service_data64_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-service_data64 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> +
> + Tcl_DecrRefCount(pDumpObj);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"no parameters are allowed for
dump", -1);
> + return TCL_ERROR;
> + }
> + }
> + if (!cmd) {
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> send_set send_get send_del }",-1);
> + return TCL_ERROR;
> + }
> + oldarg = objv[1];
> + objv[1] = obj;
> + rcode = (*cmd)(clientData,interp,objc,objv);
> + objv[1] = oldarg;
> + return rcode;
> +}
> +
> +
> +
> +/* objcmd8.swg : Tcl 8.x object creation */
> +
> +static int TclmadServiceRecCmd(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> + void (*del)(ClientData) = 0;
> + char *name = 0;
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + madServiceRec * newObj = 0;
> + int firstarg = 0;
> + int thisarg = 0;
> + int length;
> + char *_str;
> + Tcl_Obj *tcl_result;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + if (objc == 1) {
> + cmd = _wrap_new_madServiceRec;
> + } else {
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 2;
> + else if (strcmp(_str,"-args") == 0) {
> + firstarg = 1;
> + cmd = _wrap_new_madServiceRec;
> + } else if (objc == 2) {
> + firstarg = 1;
> + name = _str;
> + cmd = _wrap_new_madServiceRec;
> + } else if (objc >= 3) {
> + name = _str;
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 3;
> + else {
> + firstarg = 1;
> + cmd = _wrap_new_madServiceRec;
> + }
> + }
> + }
> + if (cmd) {
> + int result;
> + result =
(*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);
> + if (result == TCL_OK) {
> + SWIG_GetPointerObj(interp,tcl_result,(void **)
> &newObj,"_madServiceRec_p");
> + } else { return result; }
> + if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);
> + del = TclDeletemadServiceRec;
> + } else if (thisarg > 0) {
> + if (thisarg < objc) {
> + char *r;
> + r = SWIG_GetPointerObj(interp,objv[thisarg],(void **)
> &newObj,"_madServiceRec_p");
> + if (r) {
> + Tcl_SetStringObj(tcl_result,"Type error. not a
madServiceRec object.",-1);
> + return TCL_ERROR;
> + }
> + if (!name) name =
Tcl_GetStringFromObj(objv[thisarg],&length);
> + Tcl_SetStringObj(tcl_result,name,-1);
> + } else {
> + Tcl_SetStringObj(tcl_result,"wrong # args.",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"No constructor available.",-1);
> + return TCL_ERROR;
> + }
> + {
> + Tcl_CmdInfo dummy;
> + if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
> + Tcl_CreateObjCommand(interp,name, TclmadServiceRecMethodCmd,
> (ClientData) newObj, del);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);
> + return TCL_ERROR;
> + }
> + }
> +}
> +
> +
> +#define new_madNotice128() (new madNotice128())
> +static int _wrap_new_madNotice128(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice128 * _result;
> + Tcl_Obj * tcl_result;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 1) || (objc > 1)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. new_madNotice128
",-1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (madNotice128 *)new_madNotice128();
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + SWIG_SetPointerObj(tcl_result,(void *)
_result,"_madNotice128_p");
> + return TCL_OK;
> +}
> +#define delete_madNotice128(_swigobj) (delete _swigobj)
> +static int _wrap_delete_madNotice128(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
delete_madNotice128 {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
delete_madNotice128.
> Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + delete_madNotice128(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + return TCL_OK;
> +}
> +#define madNotice128_generic_type_set(_swigobj,_swigval)
(_swigobj->generic_type
> = *(_swigval),_swigval)
> +static int _wrap_madNotice128_generic_type_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice128 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_generic_type_set {
> madNotice128 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_generic_type_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice128_generic_type_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_generic_type_get(_swigobj)
(&_swigobj->generic_type)
> +static int _wrap_madNotice128_generic_type_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_generic_type_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_generic_type_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice128_generic_type_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_prod_type_msb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_msb = *(_swigval),_swigval)
> +static int _wrap_madNotice128_prod_type_msb_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice128 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_prod_type_msb_set {
> madNotice128 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_prod_type_msb_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice128_prod_type_msb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_prod_type_msb_get(_swigobj)
(&_swigobj->prod_type_msb)
> +static int _wrap_madNotice128_prod_type_msb_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_prod_type_msb_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_prod_type_msb_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice128_prod_type_msb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_prod_type_lsb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_lsb = *(_swigval),_swigval)
> +static int _wrap_madNotice128_prod_type_lsb_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_prod_type_lsb_set {
> madNotice128 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_prod_type_lsb_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice128_prod_type_lsb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_prod_type_lsb_get(_swigobj)
(&_swigobj->prod_type_lsb)
> +static int _wrap_madNotice128_prod_type_lsb_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_prod_type_lsb_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_prod_type_lsb_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_prod_type_lsb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_trap_num_set(_swigobj,_swigval)
(_swigobj->trap_num =
> *(_swigval),_swigval)
> +static int _wrap_madNotice128_trap_num_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_trap_num_set {
> madNotice128 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_trap_num_set. Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_trap_num_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_trap_num_get(_swigobj) (&_swigobj->trap_num)
> +static int _wrap_madNotice128_trap_num_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_trap_num_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_trap_num_get. Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_trap_num_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_issuer_lid_set(_swigobj,_swigval)
(_swigobj->issuer_lid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice128_issuer_lid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_issuer_lid_set {
> madNotice128 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_issuer_lid_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice128_issuer_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_issuer_lid_get(_swigobj) (&_swigobj->issuer_lid)
> +static int _wrap_madNotice128_issuer_lid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_issuer_lid_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_issuer_lid_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_issuer_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_toggle_count_set(_swigobj,_swigval) (_swigobj-
> >toggle_count = *(_swigval),_swigval)
> +static int _wrap_madNotice128_toggle_count_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_toggle_count_set {
> madNotice128 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_toggle_count_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice128_toggle_count_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_toggle_count_get(_swigobj)
(&_swigobj->toggle_count)
> +static int _wrap_madNotice128_toggle_count_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_toggle_count_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_toggle_count_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_toggle_count_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_sw_lid_set(_swigobj,_swigval) (_swigobj->sw_lid
=
> *(_swigval),_swigval)
> +static int _wrap_madNotice128_sw_lid_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_sw_lid_set {
> madNotice128 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_sw_lid_set. Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_sw_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_sw_lid_get(_swigobj) (&_swigobj->sw_lid)
> +static int _wrap_madNotice128_sw_lid_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_sw_lid_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_sw_lid_get. Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice128_sw_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_issuer_gid_set(_swigobj,_swigval)
(_swigobj->issuer_gid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice128_issuer_gid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice128 * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_issuer_gid_set {
> madNotice128 * } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_issuer_gid_set. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice128_issuer_gid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice128_issuer_gid_get(_swigobj) (&_swigobj->issuer_gid)
> +static int _wrap_madNotice128_issuer_gid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice128 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_issuer_gid_get {
> madNotice128 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_issuer_gid_get. Expected _madNotice128_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice128_issuer_gid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +static int madNotice128_send_set(madNotice128 *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid) {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice128)
> + )
> + );
> + }
> +static int _wrap_madNotice128_send_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madNotice128 * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 5) || (objc > 5)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice128_send_set {
> madNotice128 * } pFromNode fromPort destLid ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice128_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice128_send_set. Expected _madNotice128_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madNotice128_send_set(_arg0,_arg1,*_arg2,*_arg3);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +/* delcmd.swg : Tcl object deletion method */
> +
> +static void TclDeletemadNotice128(ClientData clientData) {
> + delete_madNotice128((madNotice128 *) clientData);
> +}
> +
> +/* methodcmd8.swg : Tcl8.x method invocation */
> +
> +static int TclmadNotice128MethodCmd(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST _objv[]) {
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + char *_str;
> + int rcode;
> + Tcl_Obj **objv;
> + Tcl_Obj *oldarg,*tcl_result,*obj;
> + int length;
> + char c;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + objv = (Tcl_Obj **) _objv;
> + if (objc < 2) {
> + Tcl_SetStringObj(tcl_result,"madNotice128 methods : { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + obj = Tcl_NewObj();
> + SWIG_SetPointerObj(obj,(void *) clientData,"_madNotice128_p");
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + c = *_str;
> + if (0);
> + if (strcmp(_str,"send_set") == 0) {
> + cmd = _wrap_madNotice128_send_set;
> + }
> + else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) &&
(length >= 2)) {
> + int i = 2;
> + cmd = 0;
> + while (i+1 < objc) {
> + _str = Tcl_GetStringFromObj(objv[i],&length);
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice128_generic_type_set;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice128_prod_type_msb_set;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice128_prod_type_lsb_set;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice128_trap_num_set;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice128_issuer_lid_set;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice128_toggle_count_set;
> + } else if (strcmp(_str,"-sw_lid") == 0) {
> + cmd = _wrap_madNotice128_sw_lid_set;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice128_issuer_gid_set;
> + }
> + if (cmd) {
> + oldarg = objv[i];
> + objv[i] = obj;
> + rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
> + objv[i] = oldarg;
> + if (rcode == TCL_ERROR) return rcode;
> + cmd = 0;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid configure option.
Must be { -generic_type
> -prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count
-sw_lid -
> issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + i+=2;
> + }
> + if ((i < objc) || (i == 2)) {
> + Tcl_SetStringObj(tcl_result,"{ -generic_type -prod_type_msb
-prod_type_lsb -
> trap_num -issuer_lid -toggle_count -sw_lid -issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + return TCL_OK;
> + } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) &&
(length >= 2)) {
> + if (objc == 3) {
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (0) {}
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice128_generic_type_get;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice128_prod_type_msb_get;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice128_prod_type_lsb_get;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice128_trap_num_get;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice128_issuer_lid_get;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice128_toggle_count_get;
> + } else if (strcmp(_str,"-sw_lid") == 0) {
> + cmd = _wrap_madNotice128_sw_lid_get;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice128_issuer_gid_get;
> + }
> + else if (strcmp(_str,"-this") == 0) {
> + SWIG_SetPointerObj(tcl_result,(void *) clientData,
"_madNotice128_p");
> + return TCL_OK;
> + }
> + if (cmd) {
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
> + objv[2] = oldarg;
> + return rcode;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be {
-this -generic_type -
> prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count
-sw_lid -
> issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"{ -this -generic_type
-prod_type_msb -
> prod_type_lsb -trap_num -issuer_lid -toggle_count -sw_lid -issuer_gid
}", -1);
> + return TCL_ERROR;
> + }
> + } else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) &&
(length >= 2)) {
> + if (objc == 2) {
> + Tcl_Obj *pDumpObj;
> + pDumpObj = Tcl_NewStringObj("",-1);
> + Tcl_IncrRefCount(pDumpObj);
> + cmd = _wrap_madNotice128_generic_type_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-generic_type ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_prod_type_msb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_msb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_prod_type_lsb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_lsb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_trap_num_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-trap_num ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_issuer_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_lid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_toggle_count_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-toggle_count ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_sw_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-sw_lid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice128_issuer_gid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_gid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> +
> + Tcl_DecrRefCount(pDumpObj);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"no parameters are allowed for
dump", -1);
> + return TCL_ERROR;
> + }
> + }
> + if (!cmd) {
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + oldarg = objv[1];
> + objv[1] = obj;
> + rcode = (*cmd)(clientData,interp,objc,objv);
> + objv[1] = oldarg;
> + return rcode;
> +}
> +
> +
> +
> +/* objcmd8.swg : Tcl 8.x object creation */
> +
> +static int TclmadNotice128Cmd(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> + void (*del)(ClientData) = 0;
> + char *name = 0;
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + madNotice128 * newObj = 0;
> + int firstarg = 0;
> + int thisarg = 0;
> + int length;
> + char *_str;
> + Tcl_Obj *tcl_result;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + if (objc == 1) {
> + cmd = _wrap_new_madNotice128;
> + } else {
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 2;
> + else if (strcmp(_str,"-args") == 0) {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice128;
> + } else if (objc == 2) {
> + firstarg = 1;
> + name = _str;
> + cmd = _wrap_new_madNotice128;
> + } else if (objc >= 3) {
> + name = _str;
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 3;
> + else {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice128;
> + }
> + }
> + }
> + if (cmd) {
> + int result;
> + result =
(*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);
> + if (result == TCL_OK) {
> + SWIG_GetPointerObj(interp,tcl_result,(void **)
> &newObj,"_madNotice128_p");
> + } else { return result; }
> + if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);
> + del = TclDeletemadNotice128;
> + } else if (thisarg > 0) {
> + if (thisarg < objc) {
> + char *r;
> + r = SWIG_GetPointerObj(interp,objv[thisarg],(void **)
> &newObj,"_madNotice128_p");
> + if (r) {
> + Tcl_SetStringObj(tcl_result,"Type error. not a
madNotice128 object.",-1);
> + return TCL_ERROR;
> + }
> + if (!name) name =
Tcl_GetStringFromObj(objv[thisarg],&length);
> + Tcl_SetStringObj(tcl_result,name,-1);
> + } else {
> + Tcl_SetStringObj(tcl_result,"wrong # args.",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"No constructor available.",-1);
> + return TCL_ERROR;
> + }
> + {
> + Tcl_CmdInfo dummy;
> + if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
> + Tcl_CreateObjCommand(interp,name, TclmadNotice128MethodCmd,
> (ClientData) newObj, del);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);
> + return TCL_ERROR;
> + }
> + }
> +}
> +
> +
> +#define new_madNotice129() (new madNotice129())
> +static int _wrap_new_madNotice129(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice129 * _result;
> + Tcl_Obj * tcl_result;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 1) || (objc > 1)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. new_madNotice129
",-1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (madNotice129 *)new_madNotice129();
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + SWIG_SetPointerObj(tcl_result,(void *)
_result,"_madNotice129_p");
> + return TCL_OK;
> +}
> +#define delete_madNotice129(_swigobj) (delete _swigobj)
> +static int _wrap_delete_madNotice129(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
delete_madNotice129 {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
delete_madNotice129.
> Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + delete_madNotice129(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + return TCL_OK;
> +}
> +#define madNotice129_generic_type_set(_swigobj,_swigval)
(_swigobj->generic_type
> = *(_swigval),_swigval)
> +static int _wrap_madNotice129_generic_type_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_generic_type_set {
> madNotice129 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_generic_type_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice129_generic_type_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_generic_type_get(_swigobj)
(&_swigobj->generic_type)
> +static int _wrap_madNotice129_generic_type_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_generic_type_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_generic_type_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice129_generic_type_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_prod_type_msb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_msb = *(_swigval),_swigval)
> +static int _wrap_madNotice129_prod_type_msb_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_prod_type_msb_set {
> madNotice129 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_prod_type_msb_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice129_prod_type_msb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_prod_type_msb_get(_swigobj)
(&_swigobj->prod_type_msb)
> +static int _wrap_madNotice129_prod_type_msb_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_prod_type_msb_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_prod_type_msb_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice129_prod_type_msb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_prod_type_lsb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_lsb = *(_swigval),_swigval)
> +static int _wrap_madNotice129_prod_type_lsb_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_prod_type_lsb_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_prod_type_lsb_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice129_prod_type_lsb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_prod_type_lsb_get(_swigobj)
(&_swigobj->prod_type_lsb)
> +static int _wrap_madNotice129_prod_type_lsb_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_prod_type_lsb_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_prod_type_lsb_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_prod_type_lsb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_trap_num_set(_swigobj,_swigval)
(_swigobj->trap_num =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_trap_num_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_trap_num_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_trap_num_set. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_trap_num_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_trap_num_get(_swigobj) (&_swigobj->trap_num)
> +static int _wrap_madNotice129_trap_num_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_trap_num_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_trap_num_get. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_trap_num_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_issuer_lid_set(_swigobj,_swigval)
(_swigobj->issuer_lid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_issuer_lid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_issuer_lid_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_issuer_lid_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice129_issuer_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_issuer_lid_get(_swigobj) (&_swigobj->issuer_lid)
> +static int _wrap_madNotice129_issuer_lid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_issuer_lid_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_issuer_lid_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_issuer_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_toggle_count_set(_swigobj,_swigval) (_swigobj-
> >toggle_count = *(_swigval),_swigval)
> +static int _wrap_madNotice129_toggle_count_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_toggle_count_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_toggle_count_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice129_toggle_count_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_toggle_count_get(_swigobj)
(&_swigobj->toggle_count)
> +static int _wrap_madNotice129_toggle_count_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_toggle_count_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_toggle_count_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_toggle_count_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_pad_set(_swigobj,_swigval) (_swigobj->pad =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_pad_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_pad_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_pad_set. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_pad_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_pad_get(_swigobj) (&_swigobj->pad)
> +static int _wrap_madNotice129_pad_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_pad_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_pad_get. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_pad_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_lid_set(_swigobj,_swigval) (_swigobj->lid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_lid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_lid_set {
> madNotice129 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madNotice129_lid_set.
> Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_lid_get(_swigobj) (&_swigobj->lid)
> +static int _wrap_madNotice129_lid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_lid_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madNotice129_lid_get.
> Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice129_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_port_num_set(_swigobj,_swigval)
(_swigobj->port_num =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_port_num_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_port_num_set {
> madNotice129 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_port_num_set. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice129_port_num_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_port_num_get(_swigobj) (&_swigobj->port_num)
> +static int _wrap_madNotice129_port_num_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_port_num_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_port_num_get. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice129_port_num_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_issuer_gid_set(_swigobj,_swigval)
(_swigobj->issuer_gid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice129_issuer_gid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice129 * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_issuer_gid_set {
> madNotice129 * } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_issuer_gid_set. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice129_issuer_gid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice129_issuer_gid_get(_swigobj) (&_swigobj->issuer_gid)
> +static int _wrap_madNotice129_issuer_gid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice129 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_issuer_gid_get {
> madNotice129 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_issuer_gid_get. Expected _madNotice129_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice129_issuer_gid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +static int madNotice129_send_set(madNotice129 *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid) {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice129)
> + )
> + );
> + }
> +static int _wrap_madNotice129_send_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madNotice129 * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 5) || (objc > 5)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice129_send_set {
> madNotice129 * } pFromNode fromPort destLid ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice129_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice129_send_set. Expected _madNotice129_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madNotice129_send_set(_arg0,_arg1,*_arg2,*_arg3);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +/* delcmd.swg : Tcl object deletion method */
> +
> +static void TclDeletemadNotice129(ClientData clientData) {
> + delete_madNotice129((madNotice129 *) clientData);
> +}
> +
> +/* methodcmd8.swg : Tcl8.x method invocation */
> +
> +static int TclmadNotice129MethodCmd(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST _objv[]) {
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + char *_str;
> + int rcode;
> + Tcl_Obj **objv;
> + Tcl_Obj *oldarg,*tcl_result,*obj;
> + int length;
> + char c;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + objv = (Tcl_Obj **) _objv;
> + if (objc < 2) {
> + Tcl_SetStringObj(tcl_result,"madNotice129 methods : { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + obj = Tcl_NewObj();
> + SWIG_SetPointerObj(obj,(void *) clientData,"_madNotice129_p");
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + c = *_str;
> + if (0);
> + if (strcmp(_str,"send_set") == 0) {
> + cmd = _wrap_madNotice129_send_set;
> + }
> + else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) &&
(length >= 2)) {
> + int i = 2;
> + cmd = 0;
> + while (i+1 < objc) {
> + _str = Tcl_GetStringFromObj(objv[i],&length);
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice129_generic_type_set;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice129_prod_type_msb_set;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice129_prod_type_lsb_set;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice129_trap_num_set;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice129_issuer_lid_set;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice129_toggle_count_set;
> + } else if (strcmp(_str,"-pad") == 0) {
> + cmd = _wrap_madNotice129_pad_set;
> + } else if (strcmp(_str,"-lid") == 0) {
> + cmd = _wrap_madNotice129_lid_set;
> + } else if (strcmp(_str,"-port_num") == 0) {
> + cmd = _wrap_madNotice129_port_num_set;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice129_issuer_gid_set;
> + }
> + if (cmd) {
> + oldarg = objv[i];
> + objv[i] = obj;
> + rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
> + objv[i] = oldarg;
> + if (rcode == TCL_ERROR) return rcode;
> + cmd = 0;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid configure option.
Must be { -generic_type
> -prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count -pad
-lid -
> port_num -issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + i+=2;
> + }
> + if ((i < objc) || (i == 2)) {
> + Tcl_SetStringObj(tcl_result,"{ -generic_type -prod_type_msb
-prod_type_lsb -
> trap_num -issuer_lid -toggle_count -pad -lid -port_num -issuer_gid
}",-1);
> + return TCL_ERROR;
> + }
> + return TCL_OK;
> + } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) &&
(length >= 2)) {
> + if (objc == 3) {
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (0) {}
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice129_generic_type_get;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice129_prod_type_msb_get;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice129_prod_type_lsb_get;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice129_trap_num_get;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice129_issuer_lid_get;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice129_toggle_count_get;
> + } else if (strcmp(_str,"-pad") == 0) {
> + cmd = _wrap_madNotice129_pad_get;
> + } else if (strcmp(_str,"-lid") == 0) {
> + cmd = _wrap_madNotice129_lid_get;
> + } else if (strcmp(_str,"-port_num") == 0) {
> + cmd = _wrap_madNotice129_port_num_get;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice129_issuer_gid_get;
> + }
> + else if (strcmp(_str,"-this") == 0) {
> + SWIG_SetPointerObj(tcl_result,(void *) clientData,
"_madNotice129_p");
> + return TCL_OK;
> + }
> + if (cmd) {
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
> + objv[2] = oldarg;
> + return rcode;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be {
-this -generic_type -
> prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count -pad
-lid -
> port_num -issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"{ -this -generic_type
-prod_type_msb -
> prod_type_lsb -trap_num -issuer_lid -toggle_count -pad -lid -port_num
-issuer_gid
> }", -1);
> + return TCL_ERROR;
> + }
> + } else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) &&
(length >= 2)) {
> + if (objc == 2) {
> + Tcl_Obj *pDumpObj;
> + pDumpObj = Tcl_NewStringObj("",-1);
> + Tcl_IncrRefCount(pDumpObj);
> + cmd = _wrap_madNotice129_generic_type_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-generic_type ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_prod_type_msb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_msb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_prod_type_lsb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_lsb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_trap_num_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-trap_num ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_issuer_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_lid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_toggle_count_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-toggle_count ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_pad_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-pad ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-lid ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_port_num_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-port_num ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice129_issuer_gid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_gid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> +
> + Tcl_DecrRefCount(pDumpObj);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"no parameters are allowed for
dump", -1);
> + return TCL_ERROR;
> + }
> + }
> + if (!cmd) {
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + oldarg = objv[1];
> + objv[1] = obj;
> + rcode = (*cmd)(clientData,interp,objc,objv);
> + objv[1] = oldarg;
> + return rcode;
> +}
> +
> +
> +
> +/* objcmd8.swg : Tcl 8.x object creation */
> +
> +static int TclmadNotice129Cmd(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> + void (*del)(ClientData) = 0;
> + char *name = 0;
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + madNotice129 * newObj = 0;
> + int firstarg = 0;
> + int thisarg = 0;
> + int length;
> + char *_str;
> + Tcl_Obj *tcl_result;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + if (objc == 1) {
> + cmd = _wrap_new_madNotice129;
> + } else {
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 2;
> + else if (strcmp(_str,"-args") == 0) {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice129;
> + } else if (objc == 2) {
> + firstarg = 1;
> + name = _str;
> + cmd = _wrap_new_madNotice129;
> + } else if (objc >= 3) {
> + name = _str;
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 3;
> + else {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice129;
> + }
> + }
> + }
> + if (cmd) {
> + int result;
> + result =
(*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);
> + if (result == TCL_OK) {
> + SWIG_GetPointerObj(interp,tcl_result,(void **)
> &newObj,"_madNotice129_p");
> + } else { return result; }
> + if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);
> + del = TclDeletemadNotice129;
> + } else if (thisarg > 0) {
> + if (thisarg < objc) {
> + char *r;
> + r = SWIG_GetPointerObj(interp,objv[thisarg],(void **)
> &newObj,"_madNotice129_p");
> + if (r) {
> + Tcl_SetStringObj(tcl_result,"Type error. not a
madNotice129 object.",-1);
> + return TCL_ERROR;
> + }
> + if (!name) name =
Tcl_GetStringFromObj(objv[thisarg],&length);
> + Tcl_SetStringObj(tcl_result,name,-1);
> + } else {
> + Tcl_SetStringObj(tcl_result,"wrong # args.",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"No constructor available.",-1);
> + return TCL_ERROR;
> + }
> + {
> + Tcl_CmdInfo dummy;
> + if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
> + Tcl_CreateObjCommand(interp,name, TclmadNotice129MethodCmd,
> (ClientData) newObj, del);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);
> + return TCL_ERROR;
> + }
> + }
> +}
> +
> +
> +#define new_madNotice144() (new madNotice144())
> +static int _wrap_new_madNotice144(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice144 * _result;
> + Tcl_Obj * tcl_result;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 1) || (objc > 1)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args. new_madNotice144
",-1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (madNotice144 *)new_madNotice144();
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + SWIG_SetPointerObj(tcl_result,(void *)
_result,"_madNotice144_p");
> + return TCL_OK;
> +}
> +#define delete_madNotice144(_swigobj) (delete _swigobj)
> +static int _wrap_delete_madNotice144(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
delete_madNotice144 {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
delete_madNotice144.
> Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + delete_madNotice144(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + return TCL_OK;
> +}
> +#define madNotice144_generic_type_set(_swigobj,_swigval)
(_swigobj->generic_type
> = *(_swigval),_swigval)
> +static int _wrap_madNotice144_generic_type_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice144 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_generic_type_set {
> madNotice144 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_generic_type_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice144_generic_type_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_generic_type_get(_swigobj)
(&_swigobj->generic_type)
> +static int _wrap_madNotice144_generic_type_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_generic_type_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_generic_type_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice144_generic_type_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_prod_type_msb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_msb = *(_swigval),_swigval)
> +static int _wrap_madNotice144_prod_type_msb_set(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice144 * _arg0;
> + uint8_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_prod_type_msb_set {
> madNotice144 * } { uint8_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_prod_type_msb_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t
*)madNotice144_prod_type_msb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_prod_type_msb_get(_swigobj)
(&_swigobj->prod_type_msb)
> +static int _wrap_madNotice144_prod_type_msb_get(ClientData
clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + uint8_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_prod_type_msb_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_prod_type_msb_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (uint8_t *)madNotice144_prod_type_msb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", *_result);
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_prod_type_lsb_set(_swigobj,_swigval) (_swigobj-
> >prod_type_lsb = *(_swigval),_swigval)
> +static int _wrap_madNotice144_prod_type_lsb_set(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_prod_type_lsb_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_prod_type_lsb_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice144_prod_type_lsb_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_prod_type_lsb_get(_swigobj)
(&_swigobj->prod_type_lsb)
> +static int _wrap_madNotice144_prod_type_lsb_get(ClientData
clientData, Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_prod_type_lsb_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_prod_type_lsb_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_prod_type_lsb_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_trap_num_set(_swigobj,_swigval)
(_swigobj->trap_num =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_trap_num_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_trap_num_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_trap_num_set. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_trap_num_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_trap_num_get(_swigobj) (&_swigobj->trap_num)
> +static int _wrap_madNotice144_trap_num_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_trap_num_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_trap_num_get. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_trap_num_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_issuer_lid_set(_swigobj,_swigval)
(_swigobj->issuer_lid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_issuer_lid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_issuer_lid_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_issuer_lid_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice144_issuer_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_issuer_lid_get(_swigobj) (&_swigobj->issuer_lid)
> +static int _wrap_madNotice144_issuer_lid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_issuer_lid_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_issuer_lid_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_issuer_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_toggle_count_set(_swigobj,_swigval) (_swigobj-
> >toggle_count = *(_swigval),_swigval)
> +static int _wrap_madNotice144_toggle_count_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_toggle_count_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_toggle_count_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t
*)madNotice144_toggle_count_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_toggle_count_get(_swigobj)
(&_swigobj->toggle_count)
> +static int _wrap_madNotice144_toggle_count_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_toggle_count_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_toggle_count_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_toggle_count_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_pad1_set(_swigobj,_swigval) (_swigobj->pad1 =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_pad1_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_pad1_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_pad1_set. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_pad1_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_pad1_get(_swigobj) (&_swigobj->pad1)
> +static int _wrap_madNotice144_pad1_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_pad1_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_pad1_get. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_pad1_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_lid_set(_swigobj,_swigval) (_swigobj->lid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_lid_set(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_lid_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madNotice144_lid_set.
> Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_lid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_lid_get(_swigobj) (&_swigobj->lid)
> +static int _wrap_madNotice144_lid_get(ClientData clientData,
Tcl_Interp *interp, int
> objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_lid_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
madNotice144_lid_get.
> Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_lid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_pad2_set(_swigobj,_swigval) (_swigobj->pad2 =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_pad2_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + ib_net16_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net16_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_pad2_set {
> madNotice144 * } { ib_net16_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_pad2_set. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton16(atoi(Tcl_GetStringFromObj(objv[2],NULL)));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_pad2_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_pad2_get(_swigobj) (&_swigobj->pad2)
> +static int _wrap_madNotice144_pad2_get(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net16_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_pad2_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_pad2_get. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net16_t *)madNotice144_pad2_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_hton16(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_new_cap_mask_set(_swigobj,_swigval) (_swigobj-
> >new_cap_mask = *(_swigval),_swigval)
> +static int _wrap_madNotice144_new_cap_mask_set(ClientData clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madNotice144 * _arg0;
> + ib_net32_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_net32_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_new_cap_mask_set {
> madNotice144 * } { ib_net32_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_new_cap_mask_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL,
0));
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t
*)madNotice144_new_cap_mask_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_new_cap_mask_get(_swigobj)
(&_swigobj->new_cap_mask)
> +static int _wrap_madNotice144_new_cap_mask_get(ClientData clientData,
> Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_net32_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_new_cap_mask_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_new_cap_mask_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_net32_t *)madNotice144_new_cap_mask_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[20];
> + sprintf(buff, "%u", cl_ntoh32(*_result));
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_issuer_gid_set(_swigobj,_swigval)
(_swigobj->issuer_gid =
> *(_swigval),_swigval)
> +static int _wrap_madNotice144_issuer_gid_set(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice144 * _arg0;
> + ib_gid_t * _arg1;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + ib_gid_t temp;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 3) || (objc > 3)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_issuer_gid_set {
> madNotice144 * } { ib_gid_t * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_issuer_gid_set. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + char buf[36];
> + char *p_prefix, *p_guid;
> + char *str_token;
> +
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));
> + p_prefix = strtok_r(buf,":", &str_token);
> + p_guid = strtok_r(NULL, " ", &str_token);
> + errno = 0;
> + temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid prefix:%s\n", p_prefix);
> + return TCL_ERROR;
> + }
> +
> + temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));
> + if (errno) {
> + printf("Wrong format for gid guid:%s\n", p_guid);
> + return TCL_ERROR;
> + }
> +
> + _arg1 = &temp;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice144_issuer_gid_set(_arg0,_arg1);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +#define madNotice144_issuer_gid_get(_swigobj) (&_swigobj->issuer_gid)
> +static int _wrap_madNotice144_issuer_gid_get(ClientData clientData,
Tcl_Interp
> *interp, int objc, Tcl_Obj *CONST objv[]) {
> +
> + ib_gid_t * _result;
> + madNotice144 * _arg0;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 2) || (objc > 2)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_issuer_gid_get {
> madNotice144 * } ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_issuer_gid_get. Expected _madNotice144_p, received ",
-1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> + ibms_tcl_error = 0;
> + _result = (ib_gid_t *)madNotice144_issuer_gid_get(_arg0);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> +{
> + char buff[36];
> + sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,
> + cl_ntoh64(_result->unicast.prefix),
> + cl_ntoh64(_result->unicast.interface_id)
> + );
> + Tcl_SetStringObj(tcl_result,buff,strlen(buff));
> +}
> + return TCL_OK;
> +}
> +static int madNotice144_send_set(madNotice144 *self,IBMSNode *
> pFromNode,uint8_t fromPort,uint16_t destLid) {
> + return( send_mad(
> + pFromNode,
> + fromPort,
> + destLid,
> + IB_MCLASS_SUBN_LID,
> + IB_MAD_METHOD_SET,
> + cl_ntoh16(IB_MAD_ATTR_NOTICE),
> + 0,
> + (uint8_t*)self,
> + sizeof(madNotice144)
> + )
> + );
> + }
> +static int _wrap_madNotice144_send_set(ClientData clientData,
Tcl_Interp *interp,
> int objc, Tcl_Obj *CONST objv[]) {
> +
> + int _result;
> + madNotice144 * _arg0;
> + IBMSNode * _arg1;
> + uint8_t * _arg2;
> + uint16_t * _arg3;
> + Tcl_Obj * tcl_result;
> + char * rettype;
> + uint8_t temp;
> + uint16_t temp0;
> +
> + clientData = clientData; objv = objv;
> + tcl_result = Tcl_GetObjResult(interp);
> + if ((objc < 5) || (objc > 5)) {
> + Tcl_SetStringObj(tcl_result,"Wrong # args.
madNotice144_send_set {
> madNotice144 * } pFromNode fromPort destLid ",-1);
> + return TCL_ERROR;
> + }
> + if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **)
> &_arg0,"_madNotice144_p"))) {
> + Tcl_SetStringObj(tcl_result, "Type error in argument 1 of
> madNotice144_send_set. Expected _madNotice144_p, received ", -1);
> + Tcl_AppendToObj(tcl_result, rettype, -1);
> + return TCL_ERROR;
> + }
> +{
> +
> + void *ptr;
> + if (ibmsGetSimNodePtrByTclName(objv[2], &ptr) != TCL_OK) {
> + char err[128];
> + sprintf(err, "-E- fail to find ibdm obj by
id:%s",Tcl_GetString(objv[2]) );
> + // Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +
> + _arg1 = (IBMSNode *)ptr;
> +}
> +{
> + /* the format is always: <type>:<idx>[:<name>] */
> +
> + // get the type from the given source
> + char buf[128];
> + strcpy(buf, Tcl_GetStringFromObj(objv[2],0));
> + char *colonIdx = index(buf,':');
> + if (!colonIdx) {
> + char err[128];
> + sprintf(err, "-E- Bad formatted ibdm object:%s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + *colonIdx = '\0';
> +
> + if (!strcmp("IBMSNode ", "IBMSNode ")) {
> + if (strcmp(buf, "simnode")) {
> + char err[256];
> + sprintf(err, "-E- basetype is IBMSNode but received obj of
type %s", buf);
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> + } else {
> + char err[256];
> + sprintf(err, "-E- basetype 'IBMSNode ' is unknown");
> + Tcl_SetStringObj(tcl_result, err, strlen(err));
> + return TCL_ERROR;
> + }
> +}
> +{
> + temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);
> + _arg2 = &temp;
> +}
> +{
> + temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);
> + _arg3 = &temp0;
> +}
> +{
> + ibms_tcl_error = 0;
> + _result = (int
)madNotice144_send_set(_arg0,_arg1,*_arg2,*_arg3);
> +;
> + if (ibms_tcl_error) {
> + Tcl_SetStringObj(Tcl_GetObjResult(interp), ibms_tcl_error_msg,
-1);
> + return TCL_ERROR;
> + }
> +} tcl_result = Tcl_GetObjResult(interp);
> + Tcl_SetIntObj(tcl_result,(long) _result);
> + return TCL_OK;
> +}
> +/* delcmd.swg : Tcl object deletion method */
> +
> +static void TclDeletemadNotice144(ClientData clientData) {
> + delete_madNotice144((madNotice144 *) clientData);
> +}
> +
> +/* methodcmd8.swg : Tcl8.x method invocation */
> +
> +static int TclmadNotice144MethodCmd(ClientData clientData, Tcl_Interp
*interp, int
> objc, Tcl_Obj *CONST _objv[]) {
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + char *_str;
> + int rcode;
> + Tcl_Obj **objv;
> + Tcl_Obj *oldarg,*tcl_result,*obj;
> + int length;
> + char c;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + objv = (Tcl_Obj **) _objv;
> + if (objc < 2) {
> + Tcl_SetStringObj(tcl_result,"madNotice144 methods : { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + obj = Tcl_NewObj();
> + SWIG_SetPointerObj(obj,(void *) clientData,"_madNotice144_p");
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + c = *_str;
> + if (0);
> + if (strcmp(_str,"send_set") == 0) {
> + cmd = _wrap_madNotice144_send_set;
> + }
> + else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) &&
(length >= 2)) {
> + int i = 2;
> + cmd = 0;
> + while (i+1 < objc) {
> + _str = Tcl_GetStringFromObj(objv[i],&length);
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice144_generic_type_set;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice144_prod_type_msb_set;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice144_prod_type_lsb_set;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice144_trap_num_set;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice144_issuer_lid_set;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice144_toggle_count_set;
> + } else if (strcmp(_str,"-pad1") == 0) {
> + cmd = _wrap_madNotice144_pad1_set;
> + } else if (strcmp(_str,"-lid") == 0) {
> + cmd = _wrap_madNotice144_lid_set;
> + } else if (strcmp(_str,"-pad2") == 0) {
> + cmd = _wrap_madNotice144_pad2_set;
> + } else if (strcmp(_str,"-new_cap_mask") == 0) {
> + cmd = _wrap_madNotice144_new_cap_mask_set;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice144_issuer_gid_set;
> + }
> + if (cmd) {
> + oldarg = objv[i];
> + objv[i] = obj;
> + rcode = (*cmd)(clientData,interp,3,&objv[i-1]);
> + objv[i] = oldarg;
> + if (rcode == TCL_ERROR) return rcode;
> + cmd = 0;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid configure option.
Must be { -generic_type
> -prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count
-pad1 -lid -pad2
> -new_cap_mask -issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + i+=2;
> + }
> + if ((i < objc) || (i == 2)) {
> + Tcl_SetStringObj(tcl_result,"{ -generic_type -prod_type_msb
-prod_type_lsb -
> trap_num -issuer_lid -toggle_count -pad1 -lid -pad2 -new_cap_mask
-issuer_gid }",-
> 1);
> + return TCL_ERROR;
> + }
> + return TCL_OK;
> + } else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) &&
(length >= 2)) {
> + if (objc == 3) {
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (0) {}
> + if (strcmp(_str,"-generic_type") == 0) {
> + cmd = _wrap_madNotice144_generic_type_get;
> + } else if (strcmp(_str,"-prod_type_msb") == 0) {
> + cmd = _wrap_madNotice144_prod_type_msb_get;
> + } else if (strcmp(_str,"-prod_type_lsb") == 0) {
> + cmd = _wrap_madNotice144_prod_type_lsb_get;
> + } else if (strcmp(_str,"-trap_num") == 0) {
> + cmd = _wrap_madNotice144_trap_num_get;
> + } else if (strcmp(_str,"-issuer_lid") == 0) {
> + cmd = _wrap_madNotice144_issuer_lid_get;
> + } else if (strcmp(_str,"-toggle_count") == 0) {
> + cmd = _wrap_madNotice144_toggle_count_get;
> + } else if (strcmp(_str,"-pad1") == 0) {
> + cmd = _wrap_madNotice144_pad1_get;
> + } else if (strcmp(_str,"-lid") == 0) {
> + cmd = _wrap_madNotice144_lid_get;
> + } else if (strcmp(_str,"-pad2") == 0) {
> + cmd = _wrap_madNotice144_pad2_get;
> + } else if (strcmp(_str,"-new_cap_mask") == 0) {
> + cmd = _wrap_madNotice144_new_cap_mask_get;
> + } else if (strcmp(_str,"-issuer_gid") == 0) {
> + cmd = _wrap_madNotice144_issuer_gid_get;
> + }
> + else if (strcmp(_str,"-this") == 0) {
> + SWIG_SetPointerObj(tcl_result,(void *) clientData,
"_madNotice144_p");
> + return TCL_OK;
> + }
> + if (cmd) {
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);
> + objv[2] = oldarg;
> + return rcode;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be {
-this -generic_type -
> prod_type_msb -prod_type_lsb -trap_num -issuer_lid -toggle_count -pad1
-lid -pad2 -
> new_cap_mask -issuer_gid }",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"{ -this -generic_type
-prod_type_msb -
> prod_type_lsb -trap_num -issuer_lid -toggle_count -pad1 -lid -pad2
-new_cap_mask -
> issuer_gid }", -1);
> + return TCL_ERROR;
> + }
> + } else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) &&
(length >= 2)) {
> + if (objc == 2) {
> + Tcl_Obj *pDumpObj;
> + pDumpObj = Tcl_NewStringObj("",-1);
> + Tcl_IncrRefCount(pDumpObj);
> + cmd = _wrap_madNotice144_generic_type_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-generic_type ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_prod_type_msb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_msb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_prod_type_lsb_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-prod_type_lsb ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_trap_num_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-trap_num ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_issuer_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_lid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_toggle_count_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-toggle_count ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_pad1_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-pad1 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_lid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-lid ",
Tcl_GetStringFromObj(tcl_result,
> NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_pad2_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-pad2 ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_new_cap_mask_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-new_cap_mask ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> + cmd = _wrap_madNotice144_issuer_gid_get;
> + oldarg = objv[2];
> + objv[2] = obj;
> + rcode = (*cmd)(clientData,interp,objc,&objv[1]);
> + objv[2] = oldarg;
> + Tcl_AppendStringsToObj(pDumpObj, "-issuer_gid ",
> Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);
> + Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj,
NULL), -1);
> +
> + Tcl_DecrRefCount(pDumpObj);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"no parameters are allowed for
dump", -1);
> + return TCL_ERROR;
> + }
> + }
> + if (!cmd) {
> + Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget
configure
> send_set }",-1);
> + return TCL_ERROR;
> + }
> + oldarg = objv[1];
> + objv[1] = obj;
> + rcode = (*cmd)(clientData,interp,objc,objv);
> + objv[1] = oldarg;
> + return rcode;
> +}
> +
> +
> +
> +/* objcmd8.swg : Tcl 8.x object creation */
> +
> +static int TclmadNotice144Cmd(ClientData clientData, Tcl_Interp
*interp, int objc,
> Tcl_Obj *CONST objv[]) {
> + void (*del)(ClientData) = 0;
> + char *name = 0;
> + int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;
> + madNotice144 * newObj = 0;
> + int firstarg = 0;
> + int thisarg = 0;
> + int length;
> + char *_str;
> + Tcl_Obj *tcl_result;
> +
> + tcl_result = Tcl_GetObjResult(interp);
> + if (objc == 1) {
> + cmd = _wrap_new_madNotice144;
> + } else {
> + _str = Tcl_GetStringFromObj(objv[1],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 2;
> + else if (strcmp(_str,"-args") == 0) {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice144;
> + } else if (objc == 2) {
> + firstarg = 1;
> + name = _str;
> + cmd = _wrap_new_madNotice144;
> + } else if (objc >= 3) {
> + name = _str;
> + _str = Tcl_GetStringFromObj(objv[2],&length);
> + if (strcmp(_str,"-this") == 0) thisarg = 3;
> + else {
> + firstarg = 1;
> + cmd = _wrap_new_madNotice144;
> + }
> + }
> + }
> + if (cmd) {
> + int result;
> + result =
(*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);
> + if (result == TCL_OK) {
> + SWIG_GetPointerObj(interp,tcl_result,(void **)
> &newObj,"_madNotice144_p");
> + } else { return result; }
> + if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);
> + del = TclDeletemadNotice144;
> + } else if (thisarg > 0) {
> + if (thisarg < objc) {
> + char *r;
> + r = SWIG_GetPointerObj(interp,objv[thisarg],(void **)
> &newObj,"_madNotice144_p");
> + if (r) {
> + Tcl_SetStringObj(tcl_result,"Type error. not a
madNotice144 object.",-1);
> + return TCL_ERROR;
> + }
> + if (!name) name =
Tcl_GetStringFromObj(objv[thisarg],&length);
> + Tcl_SetStringObj(tcl_result,name,-1);
> + } else {
> + Tcl_SetStringObj(tcl_result,"wrong # args.",-1);
> + return TCL_ERROR;
> + }
> + } else {
> + Tcl_SetStringObj(tcl_result,"No constructor available.",-1);
> + return TCL_ERROR;
> + }
> + {
> + Tcl_CmdInfo dummy;
> + if (!Tcl_GetCommandInfo(interp,name,&dummy)) {
> + Tcl_CreateObjCommand(interp,name, TclmadNotice144MethodCmd,
> (ClientData) newObj, del);
> + return TCL_OK;
> + } else {
> + Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);
> + return TCL_ERROR;
> + }
> + }
> +}
> +
> +
> SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *interp) {
> if (interp == 0)
> return TCL_ERROR;
> @@ -27473,6 +34707,7 @@ SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *in
> Tcl_CreateObjCommand(interp, SWIG_prefix
> "IBMSNode_setPhyPortPMCounter", _wrap_IBMSNode_setPhyPortPMCounter,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
> "IBMSNode_getPhyPortPMCounter", _wrap_IBMSNode_getPhyPortPMCounter,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
"IBMSNode_getPortInfo",
> _wrap_IBMSNode_getPortInfo, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"IBMSNode_setLinkStatus",
> _wrap_IBMSNode_setLinkStatus, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
"IBMSNode_getNodeInfo",
> _wrap_IBMSNode_getNodeInfo, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
"IBMSNode_getSwitchInfo",
> _wrap_IBMSNode_getSwitchInfo, (ClientData) NULL, (Tcl_CmdDeleteProc *)
> NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
"IBMSNode_getPKeyTblBlock",
> _wrap_IBMSNode_getPKeyTblBlock, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> @@ -27510,6 +34745,138 @@ SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *in
> Tcl_CreateObjCommand(interp, SWIG_prefix
"madMcMemberRec_send_get",
> _wrap_madMcMemberRec_send_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> Tcl_CreateObjCommand(interp, SWIG_prefix
"madMcMemberRec_send_del",
> _wrap_madMcMemberRec_send_del, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> Tcl_CreateObjCommand(interp,SWIG_prefix
> "madMcMemberRec",TclmadMcMemberRecCmd, (ClientData) NULL, NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "new_madPathRec",
> _wrap_new_madPathRec, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "delete_madPathRec",
> _wrap_delete_madPathRec, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_resv0_set",
> _wrap_madPathRec_resv0_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_resv0_get",
> _wrap_madPathRec_resv0_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_dgid_set",
> _wrap_madPathRec_dgid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_dgid_get",
> _wrap_madPathRec_dgid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_sgid_set",
> _wrap_madPathRec_sgid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_sgid_get",
> _wrap_madPathRec_sgid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_dlid_set",
> _wrap_madPathRec_dlid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_dlid_get",
> _wrap_madPathRec_dlid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_slid_set",
> _wrap_madPathRec_slid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_slid_get",
> _wrap_madPathRec_slid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madPathRec_hop_flow_raw_set", _wrap_madPathRec_hop_flow_raw_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madPathRec_hop_flow_raw_get", _wrap_madPathRec_hop_flow_raw_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_tclass_set",
> _wrap_madPathRec_tclass_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_tclass_get",
> _wrap_madPathRec_tclass_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_num_path_set",
> _wrap_madPathRec_num_path_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_num_path_get",
> _wrap_madPathRec_num_path_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_pkey_set",
> _wrap_madPathRec_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_pkey_get",
> _wrap_madPathRec_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_sl_set",
> _wrap_madPathRec_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_sl_get",
> _wrap_madPathRec_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_mtu_set",
> _wrap_madPathRec_mtu_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_mtu_get",
> _wrap_madPathRec_mtu_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_rate_set",
> _wrap_madPathRec_rate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_rate_get",
> _wrap_madPathRec_rate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_pkt_life_set",
> _wrap_madPathRec_pkt_life_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_pkt_life_get",
> _wrap_madPathRec_pkt_life_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_preference_set",
> _wrap_madPathRec_preference_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_preference_get",
> _wrap_madPathRec_preference_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_resv2_set",
> _wrap_madPathRec_resv2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madPathRec_resv2_get",
> _wrap_madPathRec_resv2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "madPathRec_send_get",
> _wrap_madPathRec_send_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp,SWIG_prefix
> "madPathRec",TclmadPathRecCmd, (ClientData) NULL, NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "new_madServiceRec",
> _wrap_new_madServiceRec, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"delete_madServiceRec",
> _wrap_delete_madServiceRec, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_id_set", _wrap_madServiceRec_service_id_set,
(ClientData)
> NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_id_get", _wrap_madServiceRec_service_id_get,
(ClientData)
> NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_gid_set", _wrap_madServiceRec_service_gid_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_gid_get", _wrap_madServiceRec_service_gid_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_pkey_set",
_wrap_madServiceRec_service_pkey_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_pkey_get",
_wrap_madServiceRec_service_pkey_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madServiceRec_resv_set",
> _wrap_madServiceRec_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madServiceRec_resv_get",
> _wrap_madServiceRec_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_lease_set",
_wrap_madServiceRec_service_lease_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_lease_get",
_wrap_madServiceRec_service_lease_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_key_set", _wrap_madServiceRec_service_key_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_key_get", _wrap_madServiceRec_service_key_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_name_set",
_wrap_madServiceRec_service_name_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_name_get",
_wrap_madServiceRec_service_name_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data8_set",
_wrap_madServiceRec_service_data8_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data8_get",
_wrap_madServiceRec_service_data8_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data16_set",
_wrap_madServiceRec_service_data16_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data16_get",
_wrap_madServiceRec_service_data16_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data32_set",
_wrap_madServiceRec_service_data32_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data32_get",
_wrap_madServiceRec_service_data32_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data64_set",
_wrap_madServiceRec_service_data64_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madServiceRec_service_data64_get",
_wrap_madServiceRec_service_data64_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madServiceRec_send_set",
> _wrap_madServiceRec_send_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madServiceRec_send_get",
> _wrap_madServiceRec_send_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madServiceRec_send_del",
> _wrap_madServiceRec_send_del, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp,SWIG_prefix
> "madServiceRec",TclmadServiceRecCmd, (ClientData) NULL, NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "new_madNotice128",
> _wrap_new_madNotice128, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "delete_madNotice128",
> _wrap_delete_madNotice128, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_generic_type_set", _wrap_madNotice128_generic_type_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_generic_type_get", _wrap_madNotice128_generic_type_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_prod_type_msb_set",
_wrap_madNotice128_prod_type_msb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_prod_type_msb_get",
_wrap_madNotice128_prod_type_msb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_prod_type_lsb_set",
_wrap_madNotice128_prod_type_lsb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_prod_type_lsb_get",
_wrap_madNotice128_prod_type_lsb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_trap_num_set",
> _wrap_madNotice128_trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_trap_num_get",
> _wrap_madNotice128_trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_issuer_lid_set",
> _wrap_madNotice128_issuer_lid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_issuer_lid_get",
> _wrap_madNotice128_issuer_lid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_toggle_count_set", _wrap_madNotice128_toggle_count_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice128_toggle_count_get", _wrap_madNotice128_toggle_count_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_sw_lid_set",
> _wrap_madNotice128_sw_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_sw_lid_get",
> _wrap_madNotice128_sw_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_issuer_gid_set",
> _wrap_madNotice128_issuer_gid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_issuer_gid_get",
> _wrap_madNotice128_issuer_gid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice128_send_set",
> _wrap_madNotice128_send_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp,SWIG_prefix
> "madNotice128",TclmadNotice128Cmd, (ClientData) NULL, NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "new_madNotice129",
> _wrap_new_madNotice129, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "delete_madNotice129",
> _wrap_delete_madNotice129, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_generic_type_set", _wrap_madNotice129_generic_type_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_generic_type_get", _wrap_madNotice129_generic_type_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_prod_type_msb_set",
_wrap_madNotice129_prod_type_msb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_prod_type_msb_get",
_wrap_madNotice129_prod_type_msb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_prod_type_lsb_set",
_wrap_madNotice129_prod_type_lsb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_prod_type_lsb_get",
_wrap_madNotice129_prod_type_lsb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_trap_num_set",
> _wrap_madNotice129_trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_trap_num_get",
> _wrap_madNotice129_trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_issuer_lid_set",
> _wrap_madNotice129_issuer_lid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_issuer_lid_get",
> _wrap_madNotice129_issuer_lid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_toggle_count_set", _wrap_madNotice129_toggle_count_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice129_toggle_count_get", _wrap_madNotice129_toggle_count_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_pad_set",
> _wrap_madNotice129_pad_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_pad_get",
> _wrap_madNotice129_pad_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_lid_set",
> _wrap_madNotice129_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_lid_get",
> _wrap_madNotice129_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_port_num_set",
> _wrap_madNotice129_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_port_num_get",
> _wrap_madNotice129_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_issuer_gid_set",
> _wrap_madNotice129_issuer_gid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_issuer_gid_get",
> _wrap_madNotice129_issuer_gid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice129_send_set",
> _wrap_madNotice129_send_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp,SWIG_prefix
> "madNotice129",TclmadNotice129Cmd, (ClientData) NULL, NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "new_madNotice144",
> _wrap_new_madNotice144, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix "delete_madNotice144",
> _wrap_delete_madNotice144, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_generic_type_set", _wrap_madNotice144_generic_type_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_generic_type_get", _wrap_madNotice144_generic_type_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_prod_type_msb_set",
_wrap_madNotice144_prod_type_msb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_prod_type_msb_get",
_wrap_madNotice144_prod_type_msb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_prod_type_lsb_set",
_wrap_madNotice144_prod_type_lsb_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_prod_type_lsb_get",
_wrap_madNotice144_prod_type_lsb_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_trap_num_set",
> _wrap_madNotice144_trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_trap_num_get",
> _wrap_madNotice144_trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc
*)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_issuer_lid_set",
> _wrap_madNotice144_issuer_lid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_issuer_lid_get",
> _wrap_madNotice144_issuer_lid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_toggle_count_set", _wrap_madNotice144_toggle_count_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_toggle_count_get", _wrap_madNotice144_toggle_count_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_pad1_set",
> _wrap_madNotice144_pad1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_pad1_get",
> _wrap_madNotice144_pad1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_lid_set",
> _wrap_madNotice144_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_lid_get",
> _wrap_madNotice144_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_pad2_set",
> _wrap_madNotice144_pad2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_pad2_get",
> _wrap_madNotice144_pad2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_new_cap_mask_set", _wrap_madNotice144_new_cap_mask_set,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
> "madNotice144_new_cap_mask_get", _wrap_madNotice144_new_cap_mask_get,
> (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_issuer_gid_set",
> _wrap_madNotice144_issuer_gid_set, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_issuer_gid_get",
> _wrap_madNotice144_issuer_gid_get, (ClientData) NULL,
(Tcl_CmdDeleteProc *)
> NULL);
> + Tcl_CreateObjCommand(interp, SWIG_prefix
"madNotice144_send_set",
> _wrap_madNotice144_send_set, (ClientData) NULL, (Tcl_CmdDeleteProc *)
NULL);
> + Tcl_CreateObjCommand(interp,SWIG_prefix
> "madNotice144",TclmadNotice144Cmd, (ClientData) NULL, NULL);
> /*
> * These are the pointer type-equivalency mappings.
> * (Used by the SWIG pointer type-checker).
> @@ -27517,6 +34884,7 @@ SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *in
> SWIG_RegisterMapping("_signed_long","_long",0);
>
SWIG_RegisterMapping("_ib_lft_record_t","_struct__ib_lft_record",0);
> SWIG_RegisterMapping("_ib_lft_record_t","__ib_lft_record",0);
> +
SWIG_RegisterMapping("_madServiceRec","_struct_madServiceRec",0);
>
> SWIG_RegisterMapping("_struct_madMcMemberRec","_madMcMemberRec",0);
> SWIG_RegisterMapping("_IBPort","_class_IBPort",0);
>
SWIG_RegisterMapping("_struct__ib_port_info","_ib_port_info_t",0);
> @@ -27535,17 +34903,24 @@ SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *in
> SWIG_RegisterMapping("_class_IBPort","_IBPort",0);
>
SWIG_RegisterMapping("_struct__ib_node_desc","_ib_node_desc_t",0);
>
SWIG_RegisterMapping("_struct__ib_node_desc","__ib_node_desc",0);
> + SWIG_RegisterMapping("_madPathRec","_struct_madPathRec",0);
> SWIG_RegisterMapping("_IBMgtSim","_class_IBMgtSim",0);
> +
SWIG_RegisterMapping("_struct_madServiceRec","_madServiceRec",0);
> SWIG_RegisterMapping("_class_IBFabric","_IBFabric",0);
>
SWIG_RegisterMapping("_ib_switch_info_t","_struct__ib_switch_info",0);
> SWIG_RegisterMapping("_ib_switch_info_t","__ib_switch_info",0);
> SWIG_RegisterMapping("_class_msgManager","_msgManager",0);
> SWIG_RegisterMapping("_unsigned_long","_long",0);
> + SWIG_RegisterMapping("_struct_madNotice128","_madNotice128",0);
> + SWIG_RegisterMapping("_struct_madNotice129","_madNotice129",0);
>
SWIG_RegisterMapping("_struct__ib_lft_record","_ib_lft_record_t",0);
>
SWIG_RegisterMapping("_struct__ib_lft_record","__ib_lft_record",0);
>
> SWIG_RegisterMapping("_madMcMemberRec","_struct_madMcMemberRec",0);
> + SWIG_RegisterMapping("_struct_madPathRec","_madPathRec",0);
> SWIG_RegisterMapping("_signed_int","_int",0);
> + SWIG_RegisterMapping("_madNotice128","_struct_madNotice128",0);
> SWIG_RegisterMapping("_IBMSNode","_class_IBMSNode",0);
> + SWIG_RegisterMapping("_madNotice129","_struct_madNotice129",0);
> SWIG_RegisterMapping("_IBSysPort","_class_IBSysPort",0);
>
SWIG_RegisterMapping("_ib_pm_counters_t","_struct__ib_pm_counters",0);
> SWIG_RegisterMapping("_ib_pm_counters_t","__ib_pm_counters",0);
> @@ -27554,10 +34929,12 @@ SWIGEXPORT(int,Ibdm_Init)(Tcl_Interp *in
> SWIG_RegisterMapping("_ib_port_info_t","__ib_port_info",0);
>
SWIG_RegisterMapping("_struct__ib_pm_counters","_ib_pm_counters_t",0);
>
SWIG_RegisterMapping("_struct__ib_pm_counters","__ib_pm_counters",0);
> + SWIG_RegisterMapping("_struct_madNotice144","_madNotice144",0);
> SWIG_RegisterMapping("__ib_pm_counters","_ib_pm_counters_t",0);
>
SWIG_RegisterMapping("__ib_pm_counters","_struct__ib_pm_counters",0);
> SWIG_RegisterMapping("_signed_short","_short",0);
> SWIG_RegisterMapping("_IBNode","_class_IBNode",0);
> + SWIG_RegisterMapping("_madNotice144","_struct_madNotice144",0);
> SWIG_RegisterMapping("_unsigned_int","_int",0);
> SWIG_RegisterMapping("_class_IBSysPort","_IBSysPort",0);
> SWIG_RegisterMapping("_class_IBSystem","_IBSystem",0);
> Index: Makefile.am
> ===================================================================
> --- Makefile.am (revision 5446)
> +++ Makefile.am (working copy)
> @@ -87,7 +87,8 @@ endif
> ibmssh_LDADD = -libmscli $(IBDM_LIB) $(OSM_LDFLAGS) $(TCL_LIBS)
>
> # SWIG FILES:
> -SWIG_IFC_FILES= $(srcdir)/sim.i $(srcdir)/ib_types.i $(srcdir)/ibdm.i
> +SWIG_IFC_FILES= $(srcdir)/sim.i $(srcdir)/ib_types.i $(srcdir)/ibdm.i
\
> + $(srcdir)/inttypes.i $(srcdir)/mads.i
>
> # only generate the swig wrappers if they do not exist...
> # so we avoid un-needed swig dependency
>
>
> _______________________________________________
> openib-general mailing list
> openib-general at openib.org
> http://openib.org/mailman/listinfo/openib-general
>
> To unsubscribe, please visit
http://openib.org/mailman/listinfo/openib-general
More information about the general
mailing list