~ubuntu-branches/ubuntu/saucy/ibutils/saucy : revision 7

1

/*

2

* FILE : swig_wrap.c

3

*

4

* This file was automatically generated by :

5

* Simplified Wrapper and Interface Generator (SWIG)

6

* Version 1.1 (Patch 5)

7

*

8

9

* The University of Utah and The Regents of the University of California.

10

* Permission is granted to distribute this file in any manner provided

11

* this notice remains intact.

12

*

13

* Do not make changes to this file--changes will be lost!

14

*

15

*/

16

17

18

#define SWIGCODE

19

/* Implementation : TCL 8.0 */

20

21

#define INCLUDE_TCL <tcl.h>

22

#define INCLUDE_TK <tk.h>

23

#include INCLUDE_TCL

24

#include <string.h>

25

#include <stdlib.h>

26

#define SWIGTCL

27

#define SWIGTCL8

28

/*

29

* $Header: /b2/dmb/SWIG/SWIG1.0b3/swig_lib/tcl/RCS/swigtcl.cfg,v 1.1 1996/05/22 19:47:45 beazley Exp $

30

*

31

* swigtcl.cfg

32

*

33

* This file is modified from a platform independent file provided

34

* by Sun. With any luck this will allow SWIG generated wrapper

35

* files to work on Unix, Windows, and Macintosh.

36

*

37

* Revision History

38

* $Log: swigtcl.cfg,v $

39

* Revision 1.1 1996/05/22 19:47:45 beazley

40

* Initial revision

41

*

42

*

43

* -- Dave Beazley, May 2, 1996.

44

*

45

* This file is an example of a Tcl dynamically loadable extension.

46

*

47

48

*

49

* See the file "license.terms" for information on usage and redistribution

50

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

51

*

52

*/

53

54

#if defined(__WIN32__)

55

# define WIN32_LEAN_AND_MEAN

56

# include <windows.h>

57

# undef WIN32_LEAN_AND_MEAN

58

59

/*

60

* VC++ has an alternate entry point called DllMain, so we need to rename

61

* our entry point.

62

*/

63

64

# if defined(_MSC_VER)

65

# define SWIGEXPORT(a,b) __declspec(dllexport) a b

66

# define DllEntryPoint DllMain

67

# else

68

# if defined(__BORLANDC__)

69

# define SWIGEXPORT(a,b) a _export b

70

# else

71

# define SWIGEXPORT(a,b) a b

72

# endif

73

# endif

74

#else

75

# define SWIGEXPORT(a,b) a b

76

#endif

77

78

/*

79

*----------------------------------------------------------------------

80

*

81

* DllEntryPoint --

82

*

83

* This wrapper function is used by Windows to invoke the

84

* initialization code for the DLL. If we are compiling

85

* with Visual C++, this routine will be renamed to DllMain.

86

* routine.

87

*

88

* Results:

89

* Returns TRUE;

90

*

91

* Side effects:

92

* None.

93

*

94

*----------------------------------------------------------------------

95

*/

96

97

#ifdef __WIN32__

98

BOOL APIENTRY

99

DllEntryPoint(HINSTANCE hInst, DWORD reason, LPVOID reserved)

100

{

101

return TRUE;

102

}

103

#endif

104

105

/**************************************************************************

106

* $Header:$

107

*

108

* tcl8ptr.swg

109

*

110

* This file provides type-checked pointer support to Tcl 8.0.

111

* Pointers are installed as new kinds of Tcl 8.0 objects consisting

112

* of the following structure

113

*

114

* typedef struct {

115

* char *name; Name of the datatype

116

* void *value; Value of the pointer

117

* } Tcl_SwigPtr;

118

*

119

* While we still need to perform string comparisons on the

120

* type-name, this function no longer needs to convert pointer

121

* values to hex so it should be a little faster.

122

*

123

* New Tcl datatypes are defined by the following data structure.

124

*

125

* typedef struct Tcl_ObjType {

126

* char *name;

127

* Tcl_FreeInternalRepProc *freeIntRepProc;

128

* Tcl_DupInternalRepProc *dupIntRepProc;

129

* Tcl_UpdateStringProc *updateStringProc;

130

* Tcl_SetFromAnyProc *setFromAnyProc;

131

* } Tcl_ObjType;

132

*

133

* Functions for manipulating SWIG pointers in wrapper code are:

134

*

135

* void *SWIG_SetPointerObj(objPtr, ptr, type)

136

* char *SWIG_GetPointerFromObj(objPtr, *ptr, type)

137

*

138

**********************************************************************/

139

140

#ifdef SWIG_GLOBAL

141

#include <tcl.h>

142

#ifdef __cplusplus

143

#define SWIGSTATIC extern "C"

144

#else

145

#define SWIGSTATIC

146

#endif

147

#endif

148

149

#ifndef SWIGSTATIC

150

#define SWIGSTATIC static

151

#endif

152

153

/* These are internal variables. Should be static */

154

155

typedef struct SwigPtrType {

156

char *name;

157

int len;

158

void *(*cast)(void *);

159

struct SwigPtrType *next;

160

} SwigPtrType;

161

162

/* Pointer cache structure */

163

164

typedef struct {

165

int stat; /* Status (valid) bit */

166

SwigPtrType *tp; /* Pointer to type structure */

167

char name[256]; /* Given datatype name */

168

char mapped[256]; /* Equivalent name */

169

} SwigCacheType;

170

171

static int SwigPtrMax = 64; /* Max entries that can be currently held */

172

static int SwigPtrN = 0; /* Current number of entries */

173

static int SwigPtrSort = 0; /* Status flag indicating sort */

174

static int SwigStart[256]; /* Array containing start locations (for searching) */

175

static SwigPtrType *SwigPtrTable = 0; /* Table containing pointer equivalences */

176

177

/* Cached values */

178

179

#define SWIG_CACHESIZE 8

180

#define SWIG_CACHEMASK 0x7

181

static SwigCacheType SwigCache[SWIG_CACHESIZE];

182

static int SwigCacheIndex = 0;

183

static int SwigLastCache = 0;

184

185

/* Sort comparison function */

186

static int swigsort(const void *data1, const void *data2) {

187

SwigPtrType *d1 = (SwigPtrType *) data1;

188

SwigPtrType *d2 = (SwigPtrType *) data2;

189

return strcmp(d1->name,d2->name);

190

}

191

192

/* Binary Search function */

193

static int swigcmp(const void *key, const void *data) {

194

char *k = (char *) key;

195

SwigPtrType *d = (SwigPtrType *) data;

196

return strncmp(k,d->name,d->len);

197

}

198

199

200

/*---------------------------------------------------------------------

201

* SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *))

202

*

203

* Register a new type-mapping with the type-checking system.

204

*---------------------------------------------------------------------*/

205

206

SWIGSTATIC

207

void SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) {

208

209

int i;

210

SwigPtrType *t = 0, *t1;

211

212

if (!SwigPtrTable) {

213

SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType));

214

SwigPtrN = 0;

215

}

216

if (SwigPtrN >= SwigPtrMax) {

217

SwigPtrMax = 2*SwigPtrMax;

218

SwigPtrTable = (SwigPtrType *) realloc(SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType));

219

}

220

for (i = 0; i < SwigPtrN; i++)

221

if (strcmp(SwigPtrTable[i].name,origtype) == 0) {

222

t = &SwigPtrTable[i];

223

break;

224

}

225

if (!t) {

226

t = &SwigPtrTable[SwigPtrN];

227

t->name = origtype;

228

t->len = strlen(origtype);

229

t->cast = 0;

230

t->next = 0;

231

SwigPtrN++;

232

}

233

while (t->next) {

234

if (strcmp(t->name,newtype) == 0) {

235

if (cast) t->cast = cast;

236

return;

237

}

238

t = t->next;

239

}

240

t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType));

241

t1->name = newtype;

242

t1->len = strlen(newtype);

243

t1->cast = cast;

244

t1->next = 0;

245

t->next = t1;

246

SwigPtrSort = 0;

247

}

248

249

250

/*---------------------------------------------------------------------

251

* void SWIG_SetPointerObj(Tcl_Obj *objPtr, void *ptr, char *type)

252

*

253

* Sets a Tcl object to a pointer value.

254

* ptr = void pointer value

255

* type = string representing type

256

*

257

*---------------------------------------------------------------------*/

258

259

260

261

/* This is for backwards compatibility */

262

263

264

265

/*---------------------------------------------------------------------

266

* char *SWIG_GetPointerObj(Tcl_Interp *interp, Tcl_Obj *objPtr, void **ptr, char *type)

267

*

268

* Attempts to extract a pointer value from our pointer type.

269

* Upon failure, returns a string corresponding to the actual datatype.

270

* Upon success, returns NULL and sets the pointer value in ptr.

271

*---------------------------------------------------------------------*/

272

273

274

275

/*---------------------------------------------------------------------

276

* void SWIG_RegisterType()

277

*

278

* Registers our new datatype with an interpreter.

279

*---------------------------------------------------------------------*/

280

281

SWIGSTATIC

282

void SWIG_RegisterType( void ) {

283

/* Does nothing at the moment */

284

}

285

#define SWIG_init Ibis_Init

286

#define SWIG_name "ibis"

287

#define SWIG_prefix ""

288

#define SWIG_namespace ""

289

290

#ifdef __cplusplus

291

extern "C" {

292

#endif

293

#ifdef MAC_TCL

294

#pragma export on

295

#endif

296

SWIGEXPORT(int,Ibis_Init)(Tcl_Interp *);

297

#ifdef MAC_TCL

298

#pragma export off

299

#endif

300

#ifdef __cplusplus

301

}

302

#endif

303

304

#undef panic

305

306

#ifdef __cplusplus

307

# define BEGIN_C_DECLS extern "C" {

308

# define END_C_DECLS }

309

#else /* !__cplusplus */

310

# define BEGIN_C_DECLS

311

# define END_C_DECLS

312

#endif /* __cplusplus */

313

314

BEGIN_C_DECLS

315

316

#include <unistd.h>

317

#include <stdio.h>

318

#include <string.h>

319

#include <stdlib.h>

320

#include <getopt.h>

321

#include <opensm/osm_log.h>

322

#include <complib/cl_qmap.h>

323

#include <complib/cl_map.h>

324

#include <complib/cl_debug.h>

325

#include "ibis.h"

326

#include "ibcr.h"

327

#include "ibpm.h"

328

#include "ibvs.h"

329

#include "ibbbm.h"

330

#include "ibsac.h"

331

#include "ibsm.h"

332

#include "ibcc.h"

333

334

END_C_DECLS

335

336

#ifndef PRIx64

337

#if __WORDSIZE == 64

338

#define __PRI64_PREFIX "l"

339

#else

340

#define __PRI64_PREFIX "L"

341

#endif

342

343

#define PRId64 __PRI64_PREFIX"d"

344

#define PRIo64 __PRI64_PREFIX"o"

345

#define PRIu64 __PRI64_PREFIX"u"

346

#define PRIx64 __PRI64_PREFIX"x"

347

#endif

348

349

/**********************************************************************

350

**********************************************************************/

351

boolean_t

352

ibisp_is_debug(void)

353

{

354

#if defined( _DEBUG_ )

355

return TRUE;

356

#else

357

return FALSE;

358

#endif /* defined( _DEBUG_ ) */

359

}

360

361

362

#define new_uint64_t uint64_t

363

364

#define uint8_array_t uint8_t

365

366

#define uint16_array_t uint16_t

367

368

#define uint32_array_t uint32_t

369

370

#define uint64_array_t uint64_t

371

372

#define ib_net16_array_t ib_net16_t

373

374

#define ib_net32_array_t ib_net32_t

375

376

#define ib_net64_array_t ib_net64_t

377

378

379

static char ibis_tcl_error_msg[1024];

380

static int ibis_tcl_error;

381

382

void ibis_set_tcl_error(char *err) {

383

if (strlen(err) < 1024)

384

strcpy(ibis_tcl_error_msg, err);

385

else

386

strncpy(ibis_tcl_error_msg, err, 1024);

387

ibis_tcl_error = 1;

388

}

389

390

391

#include <complib/cl_qmap.h>

392

#include <complib/cl_passivelock.h>

393

#include <complib/cl_debug.h>

394

#include <iba/ib_types.h>

395

#include <opensm/osm_madw.h>

396

#include <opensm/osm_log.h>

397

#include <opensm/osm_mad_pool.h>

398

#include <opensm/osm_msgdef.h>

399

#include "ibcr.h"

400

401

402

static ibcr_t *p_ibcr_global;

403

404

/*

405

this function returns the string corresponding to the

406

read cpu data

407

*/

408

char *

409

ibcr_get_cr_str(

410

boolean_t is_multi,

411

uint8_t num,

412

ib_cr_space_t *p_cr_mads

413

)

414

{

415

char *p_res_str = 0;

416

char buff[512];

417

static int i, extra;

418

419

if (p_cr_mads) {

420

for (i=0;i<num;i++) {

421

if (p_cr_mads[i].mad_header.method != VENDOR_GET_RESP) {

422

if (is_multi) {

423

sprintf(buff,"TARGET_ERROR : Fail to obtain CR mad response");

424

} else {

425

sprintf(buff,"ERROR : Fail to obtain CR mad response");

426

}

427

} else if (ibis_get_mad_status((ib_mad_t*)&p_cr_mads[i]) != 0) {

428

if (is_multi) {

429

sprintf(buff,"TARGET_ERROR : Got remote error:0x%x",

430

ibis_get_mad_status((ib_mad_t*)&p_cr_mads[i]));

431

} else {

432

sprintf(buff,"ERROR : Got remote error:0x%x",

433

ibis_get_mad_status((ib_mad_t*)&p_cr_mads[i]));

434

}

435

} else {

436

sprintf(buff, "{vendor_key 0x%016" PRIx64 "} {data 0x%x}",

437

cl_ntoh64(p_cr_mads[i].vendor_key),

438

cl_ntoh32(p_cr_mads[i].data[0]));

439

}

440

441

if (is_multi) extra = 3; else extra = 0;

442

443

if (p_res_str) {

444

p_res_str =

445

(char *)realloc(p_res_str,strlen(p_res_str)+strlen(buff) + 1+ extra);

446

} else {

447

p_res_str = (char *)malloc(strlen(buff) + 1+ extra);

448

p_res_str[0] = '\0';

449

}

450

451

/* need an extra list wrap */

452

if (is_multi) {

453

strcat(p_res_str,"{");

454

strcat(p_res_str, buff);

455

strcat(p_res_str,"} ");

456

} else {

457

strcat(p_res_str, buff);

458

}

459

}

460

}

461

return(p_res_str);

462

}

463

464

int

465

ibcr_destroy_global(void)

466

{

467

ibcr_destroy(p_ibcr_global);

468

return (0);

469

}

470

471

int

472

ibcr_num_of_multi_max(void)

473

{

474

return (IBCR_MULTI_MAX);

475

}

476

477

int

478

ibcr_read_global(

479

uint16_t lid,

480

uint32_t address,

481

char **pp_new_cr_str)

482

{

483

ib_api_status_t status;

484

ib_cr_space_t cr_space_mads_arr[1];

485

486

status = ibcr_read(p_ibcr_global,lid,address,cr_space_mads_arr);

487

488

if (status) {

489

ibis_set_tcl_error("ERROR : Fail to read CR space");

490

} else {

491

*pp_new_cr_str = ibcr_get_cr_str(FALSE, 1, cr_space_mads_arr);

492

}

493

494

return(status);

495

}

496

497

int

498

ibcr_write_global(

499

uint16_t lid,

500

uint32_t data,

501

uint32_t address)

502

{

503

504

ib_api_status_t status;

505

506

status = ibcr_write(p_ibcr_global,lid,data,address);

507

508

if (status) {

509

ibis_set_tcl_error("ERROR : Fail to write CR space");

510

}

511

return(status);

512

}

513

514

int

515

ibcr_multi_read_global(

516

uint8_t num,

517

uint16_t lid_list[],

518

uint32_t address,

519

char **pp_new_cr_str)

520

{

521

ib_api_status_t status;

522

ib_cr_space_t cr_space_mads_arr[IBCR_MULTI_MAX];

523

524

status =

525

ibcr_multi_read(p_ibcr_global,num,lid_list,address,cr_space_mads_arr);

526

527

if (status) {

528

ibis_set_tcl_error("ERROR : Fail to read all targets CR space");

529

} else {

530

*pp_new_cr_str = ibcr_get_cr_str(TRUE, num, cr_space_mads_arr);

531

}

532

return(status);

533

}

534

535

int

536

ibcr_multi_write_global(

537

uint8_t num,

538

uint16_t lid_list[],

539

uint32_t data,

540

uint32_t address)

541

{

542

543

ib_api_status_t status;

544

545

status = ibcr_multi_write(p_ibcr_global,num,lid_list,data,address);

546

547

if (status) {

548

ibis_set_tcl_error("ERROR : Fail to write all targets CR space");

549

}

550

return(status);

551

}

552

553

554

#define uint16_cr_arr_t uint16_t

555

556

#include <complib/cl_qmap.h>

557

#include <complib/cl_passivelock.h>

558

#include <complib/cl_debug.h>

559

#include <iba/ib_types.h>

560

#include <opensm/osm_madw.h>

561

#include <opensm/osm_log.h>

562

#include <opensm/osm_mad_pool.h>

563

#include <opensm/osm_msgdef.h>

564

#include <inttypes.h>

565

#include "ibpm.h"

566

567

568

static ibpm_t *p_ibpm_global;

569

570

int

571

ibpm_num_of_multi_max(void)

572

{

573

return (IBPM_MULTI_MAX);

574

}

575

576

/*

577

this function returns the string corresponding to the

578

port counters.

579

*/

580

char *

581

ibpm_get_port_counters_str(

582

uint8_t num,

583

ib_pm_port_counter_t *p_counters)

584

{

585

char *p_res_str = 0;

586

char buff[1024];

587

static int i;

588

589

buff[0] = '\0';

590

for (i=0;i<num;i++) {

591

/* format the string */

592

if (p_counters[i].mad_header.method == VENDOR_GET_RESP) {

593

sprintf(buff,"{{port_select %u } {counter_select %u } {symbol_error_counter %u } {link_error_recovery_counter %u } {link_down_counter %u } {port_rcv_errors %u } {port_rcv_remote_physical_errors %u } {port_rcv_switch_relay_errors %u } {port_xmit_discard %u } {port_xmit_constraint_errors %u } {port_rcv_constraint_errors %u } {local_link_integrity_errors %u } {excesive_buffer_errors %u } {vl15_dropped %u } {port_xmit_data %u } {port_rcv_data %u } {port_xmit_pkts %u } {port_rcv_pkts %u }} ",

594

p_counters[i].port_select,

595

cl_ntoh16(p_counters[i].counter_select),

596

cl_ntoh16(p_counters[i].symbol_error_counter),

597

p_counters[i].link_error_recovery_counter,

598

p_counters[i].link_down_counter,

599

cl_ntoh16(p_counters[i].port_rcv_errors),

600

cl_ntoh16(p_counters[i].port_rcv_remote_physical_errors),

601

cl_ntoh16(p_counters[i].port_rcv_switch_relay_errors),

602

cl_ntoh16(p_counters[i].port_xmit_discard),

603

p_counters[i].port_xmit_constraint_errors,

604

p_counters[i].port_rcv_constraint_errors,

605

(p_counters[i].lli_errors_exc_buf_errors & 0xf0) >> 4,

606

(p_counters[i].lli_errors_exc_buf_errors & 0x0f),

607

cl_ntoh16(p_counters[i].vl15_dropped),

608

cl_ntoh32(p_counters[i].port_xmit_data),

609

cl_ntoh32(p_counters[i].port_rcv_data),

610

cl_ntoh32(p_counters[i].port_xmit_pkts),

611

cl_ntoh32(p_counters[i].port_rcv_pkts));

612

} else {

613

sprintf(buff,"{TARGET_ERROR : Fail to obtain port counters} ");

614

}

615

616

if (p_res_str) {

617

p_res_str = (char *)realloc(p_res_str,strlen(p_res_str)+strlen(buff) + 1);

618

} else {

619

p_res_str = (char *)malloc(strlen(buff) + 1);

620

p_res_str[0] = '\0';

621

}

622

strcat(p_res_str, buff);

623

}

624

return(p_res_str);

625

}

626

627

/*

628

this function returns the string corresponding to the

629

extended port counters.

630

*/

631

char *

632

ibpm_get_port_counters_extended_str(

633

uint8_t num,

634

ib_pm_port_counter_extended_t *p_counters)

635

{

636

char *p_res_str = 0;

637

char buff[1024];

638

static int i;

639

640

buff[0] = '\0';

641

for (i=0;i<num;i++) {

642

/* format the string */

643

if (p_counters[i].mad_header.method == VENDOR_GET_RESP) {

644

sprintf(buff,"{{port_select %u} {counter_select %u} {port_xmit_data %"PRIu64"} {port_rcv_data %"PRIu64"} {port_xmit_pkts %"PRIu64"} {port_rcv_pkts %"PRIu64"} {port_ucast_xmit_pkts %"PRIu64"} {port_ucast_rcv_pkts %"PRIu64"} {port_mcast_xmit_pkts %"PRIu64"} {port_mcast_rcv_pkts %"PRIu64"} } ",

645

p_counters[i].port_select,

646

cl_ntoh16(p_counters[i].counter_select),

647

cl_ntoh64(p_counters[i].port_xmit_data),

648

cl_ntoh64(p_counters[i].port_rcv_data),

649

cl_ntoh64(p_counters[i].port_xmit_pkts),

650

cl_ntoh64(p_counters[i].port_rcv_pkts),

651

cl_ntoh64(p_counters[i].port_ucast_xmit_pkts),

652

cl_ntoh64(p_counters[i].port_ucast_rcv_pkts),

653

cl_ntoh64(p_counters[i].port_mcast_xmit_pkts),

654

cl_ntoh64(p_counters[i].port_mcast_rcv_pkts)

655

);

656

} else {

657

sprintf(buff,"{TARGET_ERROR : Fail to obtain port counters} ");

658

}

659

660

if (p_res_str) {

661

p_res_str = (char *)realloc(p_res_str,strlen(p_res_str)+strlen(buff) + 1);

662

} else {

663

p_res_str = (char *)malloc(strlen(buff) + 1);

664

p_res_str[0] = '\0';

665

}

666

strcat(p_res_str, buff);

667

}

668

return(p_res_str);

669

}

670

671

int

672

ibpm_get_counters_global(

673

uint16_t lid,

674

uint8_t port_select,

675

char **pp_new_counters_str)

676

{

677

int status;

678

ib_pm_port_counter_t single_counters_set;

679

*pp_new_counters_str = NULL;

680

status = (int) ibpm_get_counters(p_ibpm_global,lid,port_select,&single_counters_set);

681

if (status) {

682

ibis_set_tcl_error("ERROR : Fail to obtain port counters");

683

} else {

684

*pp_new_counters_str = ibpm_get_port_counters_str(1, &single_counters_set);

685

}

686

return(status);

687

}

688

689

int

690

ibpm_get_multi_counters_global(

691

uint8_t num,

692

uint16_t lid_list[],

693

uint8_t port_select_list[],

694

char **pp_new_counters_str)

695

{

696

int status;

697

ib_pm_port_counter_t *p_multi_counters_set;

698

p_multi_counters_set = (ib_pm_port_counter_t *)malloc(sizeof(ib_pm_port_counter_t)*num);

699

*pp_new_counters_str = NULL;

700

701

status = (int) ibpm_get_multi_counters(

702

p_ibpm_global,num,lid_list,port_select_list,p_multi_counters_set);

703

if (status) {

704

ibis_set_tcl_error("ERROR : Fail to obtain multiple port counters");

705

} else {

706

*pp_new_counters_str = ibpm_get_port_counters_str(num, p_multi_counters_set);

707

}

708

free(p_multi_counters_set);

709

return(status);

710

}

711

712

int

713

ibpm_get_multi_counters_extended_global(

714

uint8_t num,

715

uint16_t lid_list[],

716

uint8_t port_select_list[],

717

char **pp_new_counters_str)

718

{

719

int status;

720

ib_pm_port_counter_extended_t *p_multi_counters_set;

721

p_multi_counters_set =

722

(ib_pm_port_counter_extended_t *)malloc(sizeof(ib_pm_port_counter_t)*num);

723

*pp_new_counters_str = NULL;

724

725

status = (int) ibpm_get_multi_counters_extended(

726

p_ibpm_global,num,lid_list,port_select_list,p_multi_counters_set);

727

if (status) {

728

ibis_set_tcl_error("ERROR : Fail to obtain multiple port counters");

729

} else {

730

*pp_new_counters_str = ibpm_get_port_counters_extended_str(num, p_multi_counters_set);

731

}

732

free(p_multi_counters_set);

733

return(status);

734

}

735

736

int

737

ibpm_clr_all_counters_global(

738

uint16_t lid,

739

uint8_t port_select)

740

{

741

int status;

742

status = (int) ibpm_clr_all_counters(p_ibpm_global,lid,port_select);

743

if (status) {

744

ibis_set_tcl_error("ERROR : Fail to clear port counters");

745

}

746

return(status);

747

}

748

749

int

750

ibpm_clr_all_multi_counters_global(

751

uint8_t num,

752

uint16_t lid_list[],

753

uint8_t port_select_list[])

754

{

755

int status;

756

status = (int) ibpm_clr_all_multi_counters(p_ibpm_global,num,lid_list,port_select_list);

757

758

if (status) {

759

ibis_set_tcl_error("ERROR : Fail to clear multiple port counters");

760

}

761

return(status);

762

}

763

764

765

#define uint16_pm_arr_t uint16_t

766

767

#define uint8_pm_arr_t uint8_t

768

769

#include <complib/cl_qmap.h>

770

#include <complib/cl_passivelock.h>

771

#include <complib/cl_debug.h>

772

#include <iba/ib_types.h>

773

#include <opensm/osm_madw.h>

774

#include <opensm/osm_log.h>

775

#include <opensm/osm_mad_pool.h>

776

#include <opensm/osm_msgdef.h>

777

#include "ibvs.h"

778

779

780

static ibvs_t *p_ibvs_global;

781

782

int

783

ibvs_num_of_multi_max(void)

784

{

785

return (IBVS_MULTI_MAX);

786

}

787

788

/*

789

this function returns the string corresponding to the

790

read cpu data

791

*/

792

char *

793

ibvs_get_vs_str(

794

boolean_t is_multi,

795

boolean_t is_read,

796

uint8_t num,

797

uint8_t size,

798

uint8_t first_data_idx,

799

ib_vs_t *p_vs_mads

800

)

801

{

802

char *p_res_str = 0;

803

char buff[1024];

804

int i,j, extra;

805

806

if (p_vs_mads) {

807

for (i=0;i<num;i++) {

808

boolean_t space_in_resp = TRUE;

809

810

if (p_vs_mads[i].mad_header.method != VENDOR_GET_RESP) {

811

sprintf(buff,"TARGET_ERROR : Failed to obtain VS mad response");

812

} else if (ibis_get_mad_status((ib_mad_t*)&p_vs_mads[i]) != 0) {

813

sprintf(buff,"TARGET_ERROR : Got remote error:0x%x",

814

ibis_get_mad_status((ib_mad_t*)&p_vs_mads[i]));

815

} else if (is_read) {

816

sprintf(buff, "{vendor_key 0x%016" PRIx64 "} ",

817

cl_ntoh64(p_vs_mads[i].vendor_key));

818

for (j=0; j < size; j++) {

819

sprintf(buff,"%s {data%u 0x%x} ",

820

buff, j, cl_ntoh32(p_vs_mads[i].data[j+first_data_idx]));

821

}

822

} else {

823

// Write response - no data

824

// Note: The trailing space here is important !

825

sprintf(buff, "ACK ");

826

space_in_resp = 0;

827

}

828

829

if (is_multi && space_in_resp)

830

extra = 3;

831

else

832

extra = 0;

833

834

if (p_res_str) {

835

p_res_str =

836

(char *)realloc(p_res_str,strlen(p_res_str)+strlen(buff) + 1+ extra);

837

} else {

838

p_res_str = (char *)malloc(strlen(buff) + 1+ extra);

839

p_res_str[0] = '\0';

840

}

841

842

/* need an extra list wrap */

843

if (is_multi && space_in_resp) {

844

strcat(p_res_str,"{");

845

strcat(p_res_str, buff);

846

strcat(p_res_str,"} ");

847

} else {

848

strcat(p_res_str, buff);

849

}

850

}

851

}

852

return(p_res_str);

853

}

854

855

int

856

ibvs_cpu_read_global(

857

uint16_t lid,

858

uint8_t size,

859

uint8_t cpu_traget_size,

860

uint32_t address,

861

char **pp_new_cpu_str)

862

{

863

ib_api_status_t status;

864

ib_vs_t vs_mads[1];

865

866

status =

867

ibvs_cpu_read(p_ibvs_global,lid,size,cpu_traget_size,address,vs_mads);

868

if (status) {

869

ibis_set_tcl_error("ERROR : Fail to obtain port counters");

870

} else {

871

*pp_new_cpu_str =

872

ibvs_get_vs_str(FALSE, TRUE, 1, IBVS_DATA_MAX, VS_CPU_DATA_OFFSET, vs_mads);

873

}

874

875

return(status);

876

}

877

878

int

879

ibvs_cpu_write_global(

880

uint16_t lid,

881

uint8_t size,

882

uint8_t cpu_traget_size,

883

uint32_t data[],

884

uint32_t address)

885

{

886

887

ib_api_status_t status;

888

889

status =

890

ibvs_cpu_write(p_ibvs_global,lid,size,cpu_traget_size,data,address);

891

if (status)

892

ibis_set_tcl_error("ERROR : Fail to clear port counters");

893

return(status);

894

}

895

896

int

897

ibvs_i2c_read_global(

898

uint16_t lid,

899

uint8_t port_num,

900

uint8_t device_id,

901

uint8_t size,

902

uint32_t address,

903

char **pp_new_i2c_str)

904

{

905

ib_api_status_t status;

906

ib_vs_t vs_mads[1];

907

908

status =

909

ibvs_i2c_read(

910

p_ibvs_global,lid,port_num,size,device_id,address,vs_mads);

911

if (status) {

912

ibis_set_tcl_error("ERROR : Fail to obtain port counters");

913

} else {

914

*pp_new_i2c_str =

915

ibvs_get_vs_str(FALSE, TRUE, 1, size / 4, VS_I2C_DATA_OFFSET, vs_mads);

916

}

917

918

return(status);

919

}

920

921

int

922

ibvs_multi_i2c_read_global(

923

uint8_t num,

924

uint16_t lid_list[],

925

uint8_t port_num,

926

uint8_t device_id,

927

uint8_t size,

928

uint32_t address,

929

char **pp_new_i2c_str)

930

{

931

ib_api_status_t status;

932

ib_vs_t vs_mads[IBVS_MULTI_MAX];

933

934

status =

935

ibvs_multi_i2c_read(p_ibvs_global,num,lid_list,port_num,size,device_id,address,vs_mads);

936

if (status) {

937

ibis_set_tcl_error("ERROR : Failed reading multiple i2c");

938

} else {

939

*pp_new_i2c_str =

940

ibvs_get_vs_str(TRUE, TRUE, num, size / 4, VS_I2C_DATA_OFFSET, vs_mads);

941

}

942

943

return(status);

944

}

945

946

int

947

ibvs_multi_i2c_write_global(

948

uint8_t num,

949

uint16_t lid_list[],

950

uint8_t port_num,

951

uint8_t device_id,

952

uint8_t size,

953

uint32_t address,

954

uint32_t data[],

955

char **pp_new_i2c_str)

956

{

957

958

ib_api_status_t status;

959

ib_vs_t vs_mads[IBVS_MULTI_MAX];

960

961

status =

962

ibvs_multi_i2c_write(p_ibvs_global,num,lid_list,port_num,size,device_id,data,address,vs_mads);

963

964

if (status) {

965

ibis_set_tcl_error("ERROR : Failed writing multiple i2c");

966

} else {

967

*pp_new_i2c_str =

968

ibvs_get_vs_str(TRUE, FALSE, num, size / 4, VS_I2C_DATA_OFFSET, vs_mads);

969

}

970

971

return(status);

972

}

973

974

int

975

ibvs_i2c_write_global(

976

uint16_t lid,

977

uint8_t port_num,

978

uint8_t device_id,

979

uint8_t size,

980

uint32_t address,

981

uint32_t data[])

982

{

983

984

ib_api_status_t status;

985

986

status = ibvs_i2c_write(p_ibvs_global,lid,port_num,size,device_id,data,address);

987

if (status)

988

ibis_set_tcl_error("ERROR : Fail to write i2c");

989

return(status);

990

}

991

992

int

993

ibvs_gpio_read_global(

994

IN uint16_t lid,

995

OUT char **pp_new_gpio_str)

996

{

997

ib_api_status_t status;

998

ib_vs_t vs_mads[1];

999

1000

status = ibvs_gpio_read(p_ibvs_global,lid,vs_mads);

1001

if (status) {

1002

ibis_set_tcl_error("ERROR : Fail to read gpio");

1003

} else {

1004

*pp_new_gpio_str =

1005

ibvs_get_vs_str(TRUE, TRUE, 1, IBVS_DATA_MAX, VS_GPIO_DATA_OFFSET, vs_mads);

1006

}

1007

return(status);

1008

}

1009

1010

int

1011

ibvs_gpio_write_global(

1012

IN uint16_t lid,

1013

IN uint64_t gpio_mask,

1014

IN uint64_t gpio_data)

1015

{

1016

ib_api_status_t status;

1017

1018

status = ibvs_gpio_write(p_ibvs_global,lid,gpio_mask,gpio_data );

1019

if (status)

1020

ibis_set_tcl_error("ERROR : Fail to write gpio");

1021

return(status);

1022

}

1023

1024

int

1025

ibvs_multi_sw_reset_global(

1026

uint8_t num,

1027

uint16_t lid_list[])

1028

{

1029

ib_api_status_t status;

1030

1031

status = ibvs_multi_sw_reset(p_ibvs_global,num,lid_list);

1032

if (status)

1033

ibis_set_tcl_error("ERROR : Fail to reset");

1034

1035

return(status);

1036

}

1037

1038

int

1039

ibvs_multi_flash_open_global(

1040

uint8_t num,

1041

uint16_t lid_list[],

1042

uint32_t last,

1043

uint8_t size,

1044

uint32_t address,

1045

uint32_t data[],

1046

char **pp_new_flash_str)

1047

{

1048

ib_api_status_t status;

1049

ib_vs_t vs_mads[IBVS_MULTI_MAX];

1050

1051

status =

1052

ibvs_multi_flash_open(

1053

p_ibvs_global,num,lid_list,last,size,data,address,vs_mads);

1054

if (status) {

1055

ibis_set_tcl_error("ERROR : Fail to open flash");

1056

} else {

1057

*pp_new_flash_str =

1058

ibvs_get_vs_str(TRUE, TRUE, num, 4, VS_FLASH_DATA_OFFSET, vs_mads);

1059

}

1060

1061

return(status);

1062

}

1063

1064

int

1065

ibvs_multi_flash_close_global(

1066

uint8_t num,

1067

uint16_t lid_list[],

1068

uint32_t force,

1069

char **pp_new_flash_str)

1070

{

1071

ib_api_status_t status;

1072

ib_vs_t vs_mads[IBVS_MULTI_MAX];

1073

1074

status =

1075

ibvs_multi_flash_close(

1076

p_ibvs_global,num,lid_list,force,vs_mads);

1077

1078

if (status) {

1079

ibis_set_tcl_error("ERROR : Fail to close flash");

1080

} else {

1081

*pp_new_flash_str =

1082

ibvs_get_vs_str(TRUE, TRUE, num, 4, VS_FLASH_DATA_OFFSET, vs_mads);

1083

}

1084

1085

return(status);

1086

}

1087

1088

int

1089

ibvs_multi_flash_set_bank_global(

1090

uint8_t num,

1091

uint16_t lid_list[],

1092

uint32_t address,

1093

char **pp_new_flash_str)

1094

{

1095

ib_api_status_t status;

1096

ib_vs_t vs_mads[IBVS_MULTI_MAX];

1097

1098

status =

1099

ibvs_multi_flash_set_bank(

1100

p_ibvs_global, num, lid_list, address, vs_mads);

1101

1102

if (status) {

1103

ibis_set_tcl_error("ERROR : Fail to set flash bank");

1104

} else {

1105

*pp_new_flash_str =

1106

ibvs_get_vs_str(TRUE, TRUE, num, 4, VS_FLASH_DATA_OFFSET, vs_mads);

1107

}

1108

1109

return(status);

1110

}

1111

1112

int

1113

ibvs_multi_flash_erase_global(

1114

uint8_t num,

1115

uint16_t lid_list[],

1116

uint32_t address,

1117

char **pp_new_flash_str)

1118

{

1119

ib_api_status_t status;

1120

ib_vs_t vs_mads[IBVS_MULTI_MAX];

1121

1122

status =

1123

ibvs_multi_flash_erase(

1124

p_ibvs_global, num, lid_list, address, vs_mads);

1125

if (status) {

1126

ibis_set_tcl_error("ERROR : Fail to erase flash sector");

1127

} else {

1128

*pp_new_flash_str =

1129

ibvs_get_vs_str(TRUE, TRUE, num, 4, VS_FLASH_DATA_OFFSET, vs_mads);

1130

}

1131

1132

return(status);

1133

}

1134

1135

int

1136

ibvs_multi_flash_read_global(

1137

uint8_t num,

1138

uint16_t lid_list[],

1139

uint8_t size,

1140

uint32_t address,

1141

char **pp_new_flash_str)

1142

{

1143

ib_api_status_t status;

1144

ib_vs_t vs_mads[IBVS_MULTI_MAX];

1145

1146

status =

1147

ibvs_multi_flash_read(

1148

p_ibvs_global, num, lid_list, size, address, vs_mads);

1149

1150

if (status) {

1151

ibis_set_tcl_error("ERROR : Fail to read flash");

1152

} else {

1153

*pp_new_flash_str =

1154

ibvs_get_vs_str(TRUE, TRUE, num, size / 4, VS_FLASH_DATA_OFFSET, vs_mads);

1155

}

1156

1157

return(status);

1158

}

1159

1160

int

1161

ibvs_multi_flash_write_global(

1162

uint8_t num,

1163

uint16_t lid_list[],

1164

uint8_t size,

1165

uint32_t address,

1166

uint32_t data[])

1167

{

1168

ib_api_status_t status;

1169

1170

status =

1171

ibvs_multi_flash_write(

1172

p_ibvs_global, num, lid_list, size, data, address);

1173

1174

if (status) {

1175

ibis_set_tcl_error("ERROR : Fail to write flash");

1176

}

1177

return(status);

1178

}

1179

1180

int

1181

ibvs_mirror_read_global(

1182

IN uint16_t lid,

1183

OUT char **pp_new_mirror_str)

1184

{

1185

ib_api_status_t status;

1186

ib_vs_t vs_mads[1];

1187

1188

status = ibvs_mirror_read(p_ibvs_global,lid,vs_mads);

1189

if (status) {

1190

ibis_set_tcl_error("ERROR : Fail to read mirror");

1191

} else {

1192

*pp_new_mirror_str =

1193

ibvs_get_vs_str(FALSE, TRUE, 1, IBVS_DATA_MAX, VS_MIRROR_DATA_OFFSET, vs_mads);

1194

}

1195

return(status);

1196

}

1197

1198

int

1199

ibvs_mirror_write_global(

1200

IN uint16_t lid,

1201

IN uint32_t rx_mirror,

1202

IN uint32_t tx_mirror)

1203

{

1204

ib_api_status_t status;

1205

1206

status = ibvs_mirror_write(p_ibvs_global,lid,rx_mirror,tx_mirror );

1207

if (status)

1208

ibis_set_tcl_error("ERROR : Fail to write mirror");

1209

return(status);

1210

}

1211

1212

int

1213

ibvs_plft_map_get_global(

1214

IN uint16_t lid,

1215

IN uint8_t upper_ports,

1216

OUT char **pp_new_plft_map_str)

1217

{

1218

ib_api_status_t status;

1219

ib_vs_t vs_mads[1];

1220

char * buff;

1221

ib_vs_plft_map_t *p_map = (ib_vs_plft_map_t *)&vs_mads[0];

1222

1223

status = ibvs_plft_map_get(p_ibvs_global,lid,upper_ports,vs_mads);

1224

if (status) {

1225

ibis_set_tcl_error("ERROR : Fail to get private LFT map");

1226

*pp_new_plft_map_str = NULL;

1227

} else {

1228

buff = (char *)malloc(1024);

1229

*pp_new_plft_map_str = buff;

1230

sprintf(buff,

1231

"{ib_port0 0x%x} "

1232

"{shared_plft_port0 0x%x} "

1233

"{size0 0x%x} "

1234

"{ib_port1 0x%x} "

1235

"{shared_plft_port1 0x%x} "

1236

"{size1 0x%x} "

1237

"{ib_port2 0x%x} "

1238

"{shared_plft_port2 0x%x} "

1239

"{size2 0x%x} "

1240

"{ib_port3 0x%x} "

1241

"{shared_plft_port3 0x%x} "

1242

"{size3 0x%x} "

1243

"{ib_port4 0x%x} "

1244

"{shared_plft_port4 0x%x} "

1245

"{size4 0x%x} "

1246

"{ib_port5 0x%x} "

1247

"{shared_plft_port5 0x%x} "

1248

"{size5 0x%x} "

1249

"{ib_port6 0x%x} "

1250

"{shared_plft_port6 0x%x} "

1251

"{size6 0x%x} "

1252

"{ib_port7 0x%x} "

1253

"{shared_plft_port7 0x%x} "

1254

"{reserved7 0x%x} "

1255

"{size7 0x%x} "

1256

"{ib_port8 0x%x} "

1257

"{shared_plft_port8 0x%x} "

1258

"{size8 0x%x} "

1259

"{ib_port9 0x%x} "

1260

"{shared_plft_port9 0x%x} "

1261

"{reserved9 0x%x} "

1262

"{size9 0x%x} "

1263

"{ib_port10 0x%x} "

1264

"{shared_plft_port10 0x%x} "

1265

"{size10 0x%x} "

1266

"{ib_port11 0x%x} "

1267

"{shared_plft_port11 0x%x} "

1268

"{size11 0x%x} "

1269

"{ib_port12 0x%x} "

1270

"{shared_plft_port12 0x%x} "

1271

"{size12 0x%x}",

1272

p_map->ib_port0,

1273

p_map->shared_plft_port0,

1274

p_map->size0,

1275

p_map->ib_port1,

1276

p_map->shared_plft_port1,

1277

p_map->size1,

1278

p_map->ib_port2,

1279

p_map->shared_plft_port2,

1280

p_map->size2,

1281

p_map->ib_port3,

1282

p_map->shared_plft_port3,

1283

p_map->size3,

1284

p_map->ib_port4,

1285

p_map->shared_plft_port4,

1286

p_map->size4,

1287

p_map->ib_port5,

1288

p_map->shared_plft_port5,

1289

p_map->size5,

1290

p_map->ib_port6,

1291

p_map->shared_plft_port6,

1292

p_map->size6,

1293

p_map->ib_port7,

1294

p_map->shared_plft_port7,

1295

p_map->reserved7,

1296

p_map->size7,

1297

p_map->ib_port8,

1298

p_map->shared_plft_port8,

1299

p_map->size8,

1300

p_map->ib_port9,

1301

p_map->shared_plft_port9,

1302

p_map->reserved9,

1303

p_map->size9,

1304

p_map->ib_port10,

1305

p_map->shared_plft_port10,

1306

p_map->size10,

1307

p_map->ib_port11,

1308

p_map->shared_plft_port11,

1309

p_map->size11,

1310

p_map->ib_port12,

1311

p_map->shared_plft_port12,

1312

p_map->size12

1313

);

1314

}

1315

return(status);

1316

}

1317

1318

int

1319

ibvs_general_info_get_global(

1320

IN uint16_t lid,

1321

OUT char **pp_gen_info_str)

1322

{

1323

ib_api_status_t status;

1324

ib_vs_t vs_mads[1];

1325

char * buff;

1326

char psid[17];

1327

ib_vs_gen_info_t *p_info = (ib_vs_gen_info_t *)&vs_mads[0];

1328

status = ibvs_general_info_get(p_ibvs_global,lid,vs_mads);

1329

if (status) {

1330

ibis_set_tcl_error("ERROR : Fail to get general info");

1331

*pp_gen_info_str = 0;

1332

} else {

1333

buff = (char *)malloc(1024);

1334

*pp_gen_info_str = buff;

1335

strncpy(psid, (char *)p_info->fw_psid, 16);

1336

psid[16] = '\0';

1337

sprintf(buff,

1338

"{hw_rev 0x%x} "

1339

"{hw_devid 0x%x} "

1340

"{hw_uptime 0x%x} "

1341

"{fw_major 0x%x} "

1342

"{fw_minor 0x%x} "

1343

"{fw_sub_minor 0x%x} "

1344

"{fw_build_id 0x%x} "

1345

"{fw_month 0x%x} "

1346

"{fw_day 0x%x} "

1347

"{fw_year 0x%x} "

1348

"{fw_hour 0x%x} "

1349

"{fw_psid \"%s\"} "

1350

"{fw_ini_ver 0x%x} "

1351

"{sw_major 0x%x} "

1352

"{sw_minor 0x%x} "

1353

"{sw_sub_minor 0x%x}",

1354

cl_ntoh16(p_info->hw_rev),

1355

cl_ntoh16(p_info->hw_devid),

1356

cl_ntoh32(p_info->hw_uptime),

1357

p_info->fw_major,

1358

p_info->fw_minor,

1359

p_info->fw_sub_minor,

1360

cl_ntoh32(p_info->fw_build_id),

1361

p_info->fw_month,

1362

p_info->fw_day,

1363

cl_ntoh16(p_info->fw_year),

1364

cl_ntoh16(p_info->fw_hour),

1365

psid,

1366

cl_ntoh32(p_info->fw_ini_ver),

1367

p_info->sw_major,

1368

p_info->sw_minor,

1369

p_info->sw_sub_minor);

1370

}

1371

return(status);

1372

}

1373

1374

1375

#define uint16_vs_arr_t uint16_t

1376

1377

#define uint32_vs_data_arr_t uint32_t

1378

1379

#include <complib/cl_qmap.h>

1380

#include <complib/cl_passivelock.h>

1381

#include <complib/cl_debug.h>

1382

#include <iba/ib_types.h>

1383

#include <opensm/osm_madw.h>

1384

#include <opensm/osm_log.h>

1385

#include <opensm/osm_mad_pool.h>

1386

#include <opensm/osm_msgdef.h>

1387

#include "ibbbm.h"

1388

1389

1390

static ibbbm_t *p_ibbbm_global;

1391

1392

int

1393

ibbbm_read_vpd_global(

1394

uint16_t lid,

1395

uint8_t vpd_device_selector,

1396

uint16_t bytes_num,

1397

uint16_t offset,

1398

ib_bbm_vpd_t *p_bbm_vpd_mad)

1399

{

1400

ib_api_status_t status;

1401

1402

status = ibbbm_read_vpd(p_ibbbm_global,lid,vpd_device_selector,bytes_num,offset,p_bbm_vpd_mad);

1403

;

1404

ibis_set_tcl_error("-E- Failed to read VPD");

1405

1406

return(status);

1407

}

1408

1409

int

1410

ibbbm_write_vpd_global(

1411

uint16_t lid,

1412

uint8_t vpd_device_selector,

1413

uint16_t bytes_num,

1414

uint16_t offset,

1415

uint8_t *p_data)

1416

{

1417

1418

ib_api_status_t status;

1419

1420

status = ibbbm_write_vpd(p_ibbbm_global,lid,vpd_device_selector,bytes_num,offset,p_data);

1421

;

1422

ibis_set_tcl_error("-E- Failed to write VPD");

1423

return(status);

1424

}

1425

1426

int

1427

ibbbm_read_vsd_vpd_global(

1428

uint16_t lid,

1429

ib_bbm_vsd_vpd_t *p_bbm_vsd_vpd_mad)

1430

{

1431

ib_api_status_t status;

1432

ib_bbm_vpd_t *p_bbm_vpd_mad;

1433

1434

p_bbm_vpd_mad = (ib_bbm_vpd_t *)p_bbm_vsd_vpd_mad;

1435

1436

status = ibbbm_read_vpd(p_ibbbm_global,lid,IBBBM_VSD_VPD_DEV_SEL,IBBBM_VSD_VPD_SIZE,IBBBM_VSD_VPD_OFFSET,p_bbm_vpd_mad);

1437

;

1438

ibis_set_tcl_error("-E- Failed to read VSD VPD");

1439

return(status);

1440

}

1441

1442

int

1443

ibbbm_read_bsn_vpd_global(

1444

uint16_t lid,

1445

ib_bbm_bsn_vpd_t *p_bbm_bsn_vpd_mad)

1446

{

1447

ib_api_status_t status;

1448

ib_bbm_vpd_t *p_bbm_vpd_mad;

1449

1450

p_bbm_vpd_mad = (ib_bbm_vpd_t *)p_bbm_bsn_vpd_mad;

1451

1452

status = ibbbm_read_vpd(p_ibbbm_global,lid,IBBBM_BSN_VPD_DEV_SEL,IBBBM_BSN_VPD_SIZE,IBBBM_BSN_VPD_OFFSET,p_bbm_vpd_mad);

1453

;

1454

ibis_set_tcl_error("-E- Failed to read BSN");

1455

1456

return(status);

1457

}

1458

1459

int

1460

ibbbm_read_mod_vpd_global(

1461

uint16_t lid,

1462

ib_bbm_mod_vpd_t *p_bbm_mod_vpd_mad)

1463

{

1464

ib_api_status_t status;

1465

ib_bbm_vpd_t *p_bbm_vpd_mad;

1466

1467

p_bbm_vpd_mad = (ib_bbm_vpd_t *)p_bbm_mod_vpd_mad;

1468

1469

status = ibbbm_read_vpd(p_ibbbm_global,lid,IBBBM_MOD_VPD_DEV_SEL,IBBBM_MOD_VPD_SIZE,IBBBM_MOD_VPD_OFFSET,p_bbm_vpd_mad);

1470

;

1471

ibis_set_tcl_error("-E- Failed to read Module VPD");

1472

1473

return(status);

1474

}

1475

1476

int

1477

ibbbm_read_cha_vpd_global(

1478

uint16_t lid,

1479

ib_bbm_cha_vpd_t *p_bbm_cha_vpd_mad)

1480

{

1481

ib_api_status_t status;

1482

ib_bbm_vpd_t *p_bbm_vpd_mad;

1483

1484

p_bbm_vpd_mad = (ib_bbm_vpd_t *)p_bbm_cha_vpd_mad;

1485

1486

status = ibbbm_read_vpd(p_ibbbm_global,lid,IBBBM_CHA_VPD_DEV_SEL,IBBBM_CHA_VPD_SIZE,IBBBM_CHA_VPD_OFFSET,p_bbm_vpd_mad);

1487

;

1488

ibis_set_tcl_error("-E- Failed to read Chassis VPD");

1489

return(status);

1490

}

1491

1492

1493

int

1494

ibbbm_read_fw_ver_vpd_global(

1495

uint16_t lid,

1496

ib_bbm_fw_ver_vpd_t *p_bbm_fw_ver_vpd_mad)

1497

{

1498

ib_api_status_t status;

1499

ib_bbm_vpd_t *p_bbm_vpd_mad;

1500

1501

p_bbm_vpd_mad = (ib_bbm_vpd_t *)p_bbm_fw_ver_vpd_mad;

1502

1503

status = ibbbm_read_vpd(p_ibbbm_global,lid,IBBBM_FW_VER_VPD_DEV_SEL,IBBBM_FW_VER_VPD_SIZE,IBBBM_FW_VER_VPD_OFFSET,p_bbm_vpd_mad);

1504

;

1505

1506

ibis_set_tcl_error("-E- Failed to read FW Version.");

1507

1508

return(status);

1509

}

1510

1511

1512

#include "stdio.h"

1513

#include <errno.h>

1514

#include <stdlib.h>

1515

#include <string.h>

1516

#include <getopt.h>

1517

#include <iba/ib_types.h>

1518

#include <complib/cl_types.h>

1519

#include <complib/cl_qmap.h>

1520

#include <complib/cl_map.h>

1521

#include <complib/cl_debug.h>

1522

#include "ibis_api.h"

1523

#ifdef OSM_BUILD_OPENIB

1524

#include <vendor/osm_vendor_sa_api.h>

1525

#else

1526

#include <opensm/osm_vendor_sa_api.h>

1527

#endif

1528

#include "ibsac.h"

1529

1530

/*

1531

TODO: Add the following queries

1532

ClassPortInfo

1533

InformInfo

1534

SLtoVLMappingTableRecord

1535

VLArbitrationTableRecord

1536

ServiceRecord

1537

P_KeyTableRecord

1538

1539

Not supported by OpenSM:

1540

Notice

1541

MulticastForwardingTableRecord

1542

InformInfoRecord

1543

1544

Later:

1545

MultiPathRecord

1546

*/

1547

1548

/* we probably want to use our own naming for classes */

1549

typedef ib_node_record_t sacNodeRec;

1550

typedef ib_node_info_t sacNodeInfo;

1551

typedef ib_portinfo_record_t sacPortRec;

1552

typedef ib_port_info_t sacPortInfo;

1553

typedef ib_sminfo_record_t sacSmRec;

1554

typedef ib_sm_info_t sacSmInfo;

1555

typedef ib_switch_info_record_t sacSwRec;

1556

typedef ib_switch_info_t sacSwInfo;

1557

typedef ib_link_record_t sacLinkRec;

1558

typedef ib_path_rec_t sacPathRec;

1559

typedef ib_lft_record_t sacLFTRec;

1560

typedef ib_member_rec_t sacMCMRec;

1561

typedef ib_class_port_info_t sacClassPortInfo;

1562

typedef ib_inform_info_t sacInformInfo;

1563

typedef ib_service_record_t sacServiceRec;

1564

typedef ib_slvl_table_t sacSlVlTbl;

1565

typedef ib_slvl_table_record_t sacSlVlRec;

1566

typedef ib_vl_arb_table_record_t sacVlArbRec;

1567

typedef ib_pkey_table_t sacPKeyTbl;

1568

typedef ib_pkey_table_record_t sacPKeyRec;

1569

typedef ib_guid_info_t sacGuidInfo;

1570

typedef ib_guidinfo_record_t sacGuidRec;

1571

typedef uint8_t ib_lft_t;

1572

1573

1574

#include "swig_extended_obj.c"

1575

1576

/* Pre allocated Query Objects */

1577

ib_node_record_t ibsac_node_rec; // ib_node_info_t

1578

ib_portinfo_record_t ibsac_portinfo_rec; // ib_port_info_t

1579

ib_sminfo_record_t ibsac_sminfo_rec; // ib_sm_info_t

1580

ib_switch_info_record_t ibsac_swinfo_rec; // ib_switch_info_t

1581

ib_link_record_t ibsac_link_rec; // no sub type

1582

ib_path_rec_t ibsac_path_rec; // no sub type

1583

ib_lft_record_t ibsac_lft_rec; // no sub type

1584

ib_member_rec_t ibsac_mcm_rec; // no sub type

1585

ib_class_port_info_t ibsac_class_port_info; // no sub type

1586

ib_inform_info_t ibsac_inform_info; // no sub type

1587

ib_service_record_t ibsac_svc_rec; // no sub type

1588

ib_slvl_table_record_t ibsac_slvl_rec; // ib_slvl_table_t

1589

ib_vl_arb_table_record_t ibsac_vlarb_rec; // ib_vl_arb_table_t

1590

ib_pkey_table_record_t ibsac_pkey_rec; // ib_pkey_table_t

1591

ib_guidinfo_record_t ibsac_guidinfo_rec; // ib_guid_info_t

1592

1593

/* Query Functions for each record */

1594

/* These are TCL specific thus are here */

1595

1596

char *ibsacNodeRecordQuery(

1597

ib_node_record_t *self,

1598

uint64_t comp_mask,

1599

uint8_t method) {

1600

ib_node_record_t *p_rec;

1601

uint32_t i;

1602

ib_api_status_t status;

1603

uint32_t num_recs = 0;

1604

osm_madw_t *p_result_madw;

1605

char *p_res_str = NULL, *tmp;

1606

Tcl_Obj *p_tclObj;

1607

int nameLength;

1608

1609

status = ibsac_query(

1610

&IbisObj, IB_MAD_ATTR_NODE_RECORD, self, comp_mask, method,

1611

&num_recs, &p_result_madw

1612

);

1613

1614

for( i = 0; i < num_recs; i++ )

1615

{

1616

/* we need to create a new node info and copy */

1617

p_rec = (ib_node_record_t *)malloc(sizeof(ib_node_record_t));

1618

1619

/* copy into it */

1620

*p_rec = *(osmv_get_query_node_rec( p_result_madw, i ));

1621

1622

/* register it as a new object */

1623

SWIG_AltMnglRegObj("nr",p_rec);

1624

SWIG_AltMnglRegObj("ni",&(p_rec->node_info));

1625

1626

p_tclObj = Tcl_NewObj();

1627

1628

/* get the assigned name */

1629

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "nr", p_rec)) {

1630

printf("-E- Fail to get name of object %p\n", p_rec);

1631

} else {

1632

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1633

1634

/* enlarge the result string length */

1635

if (p_res_str)

1636

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1637

else {

1638

p_res_str = (char *)malloc(nameLength + 2);

1639

p_res_str[0] = '\0';

1640

}

1641

1642

strcat(p_res_str, tmp);

1643

strcat(p_res_str, " ");

1644

}

1645

Tcl_DecrRefCount(p_tclObj);

1646

}

1647

1648

if( p_result_madw != NULL )

1649

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1650

1651

return(p_res_str);

1652

}

1653

1654

char *ibsacPortInfoRecordQuery(

1655

ib_portinfo_record_t *self,

1656

uint64_t comp_mask,

1657

uint8_t method) {

1658

ib_portinfo_record_t *p_rec;

1659

uint32_t i;

1660

ib_api_status_t status;

1661

uint32_t num_recs = 0;

1662

osm_madw_t *p_result_madw;

1663

char *p_res_str = NULL, *tmp;

1664

Tcl_Obj *p_tclObj;

1665

int nameLength;

1666

1667

status = ibsac_query(

1668

&IbisObj, IB_MAD_ATTR_PORTINFO_RECORD, self, comp_mask, method,

1669

&num_recs, &p_result_madw

1670

);

1671

1672

for( i = 0; i < num_recs; i++ )

1673

{

1674

/* we need to create a new node info and copy */

1675

p_rec = (ib_portinfo_record_t *)malloc(sizeof(ib_portinfo_record_t));

1676

1677

/* copy into it */

1678

*p_rec = *(osmv_get_query_portinfo_rec( p_result_madw, i ));

1679

1680

/* register it as a new object */

1681

SWIG_AltMnglRegObj("pir",p_rec);

1682

SWIG_AltMnglRegObj("pi",&(p_rec->port_info));

1683

1684

p_tclObj = Tcl_NewObj();

1685

1686

/* get the assigned name */

1687

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "pir", p_rec)) {

1688

printf("-E- Fail to get name of object %p\n", p_rec);

1689

} else {

1690

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1691

1692

/* enlarge the result string length */

1693

if (p_res_str)

1694

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1695

else {

1696

p_res_str = (char *)malloc(nameLength + 2);

1697

p_res_str[0] = '\0';

1698

}

1699

1700

strcat(p_res_str, tmp);

1701

strcat(p_res_str, " ");

1702

}

1703

Tcl_DecrRefCount(p_tclObj);

1704

}

1705

1706

if( p_result_madw != NULL )

1707

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1708

1709

return(p_res_str);

1710

}

1711

1712

char *ibsacSMInfoRecordQuery(

1713

ib_sminfo_record_t *self,

1714

uint64_t comp_mask,

1715

uint8_t method) {

1716

ib_sminfo_record_t *p_rec;

1717

uint32_t i;

1718

ib_api_status_t status;

1719

uint32_t num_recs = 0;

1720

osm_madw_t *p_result_madw;

1721

char *p_res_str = NULL, *tmp;

1722

Tcl_Obj *p_tclObj;

1723

int nameLength;

1724

1725

status = ibsac_query(

1726

&IbisObj, IB_MAD_ATTR_SMINFO_RECORD, self, comp_mask, method,

1727

&num_recs, &p_result_madw

1728

);

1729

1730

for( i = 0; i < num_recs; i++ )

1731

{

1732

/* we need to create a new node info and copy */

1733

p_rec = (ib_sminfo_record_t *)malloc(sizeof(ib_sminfo_record_t));

1734

1735

/* copy into it */

1736

*p_rec = *((ib_sminfo_record_t*)osmv_get_query_result( p_result_madw, i ));

1737

1738

/* register it as a new object */

1739

SWIG_AltMnglRegObj("smir",p_rec);

1740

SWIG_AltMnglRegObj("smi",&(p_rec->sm_info));

1741

1742

p_tclObj = Tcl_NewObj();

1743

1744

/* get the assigned name */

1745

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "smir", p_rec)) {

1746

printf("-E- Fail to get name of object %p\n", p_rec);

1747

} else {

1748

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1749

1750

/* enlarge the result string length */

1751

if (p_res_str)

1752

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1753

else {

1754

p_res_str = (char *)malloc(nameLength + 2);

1755

p_res_str[0] = '\0';

1756

}

1757

1758

strcat(p_res_str, tmp);

1759

strcat(p_res_str, " ");

1760

}

1761

Tcl_DecrRefCount(p_tclObj);

1762

}

1763

1764

if( p_result_madw != NULL )

1765

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1766

1767

return(p_res_str);

1768

}

1769

1770

char *ibsacSwitchInfoRecordQuery(

1771

ib_switch_info_record_t *self,

1772

uint64_t comp_mask,

1773

uint8_t method) {

1774

ib_switch_info_record_t *p_rec;

1775

uint32_t i;

1776

ib_api_status_t status;

1777

uint32_t num_recs = 0;

1778

osm_madw_t *p_result_madw;

1779

char *p_res_str = NULL, *tmp;

1780

Tcl_Obj *p_tclObj;

1781

int nameLength;

1782

1783

status = ibsac_query(

1784

&IbisObj, CL_NTOH16(0x0014), self, comp_mask, method,

1785

&num_recs, &p_result_madw

1786

);

1787

1788

for( i = 0; i < num_recs; i++ )

1789

{

1790

/* we need to create a new node info and copy */

1791

p_rec = (ib_switch_info_record_t *)malloc(sizeof(ib_switch_info_record_t));

1792

1793

/* copy into it */

1794

*p_rec = *((ib_switch_info_record_t*)osmv_get_query_result( p_result_madw, i ));

1795

1796

/* register it as a new object */

1797

SWIG_AltMnglRegObj("swir",p_rec);

1798

SWIG_AltMnglRegObj("swi",&(p_rec->switch_info));

1799

1800

p_tclObj = Tcl_NewObj();

1801

1802

/* get the assigned name */

1803

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "swir", p_rec)) {

1804

printf("-E- Fail to get name of object %p\n", p_rec);

1805

} else {

1806

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1807

1808

/* enlarge the result string length */

1809

if (p_res_str)

1810

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1811

else {

1812

p_res_str = (char *)malloc(nameLength + 2);

1813

p_res_str[0] = '\0';

1814

}

1815

1816

strcat(p_res_str, tmp);

1817

strcat(p_res_str, " ");

1818

}

1819

Tcl_DecrRefCount(p_tclObj);

1820

}

1821

1822

if( p_result_madw != NULL )

1823

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1824

1825

return(p_res_str);

1826

}

1827

1828

char *ibsacPathRecordQuery(

1829

ib_path_rec_t *self,

1830

uint64_t comp_mask,

1831

uint8_t method) {

1832

ib_path_rec_t *p_rec;

1833

uint32_t i;

1834

ib_api_status_t status;

1835

uint32_t num_recs = 0;

1836

osm_madw_t *p_result_madw;

1837

char *p_res_str = NULL, *tmp;

1838

Tcl_Obj *p_tclObj;

1839

int nameLength;

1840

1841

status = ibsac_query(

1842

&IbisObj, IB_MAD_ATTR_PATH_RECORD, self, comp_mask, method,

1843

&num_recs, &p_result_madw

1844

);

1845

1846

for( i = 0; i < num_recs; i++ )

1847

{

1848

/* we need to create a new node info and copy */

1849

p_rec = (ib_path_rec_t *)malloc(sizeof(ib_path_rec_t));

1850

1851

/* copy into it */

1852

*p_rec = *((ib_path_rec_t*)osmv_get_query_result( p_result_madw, i ));

1853

1854

/* register it as a new object */

1855

SWIG_AltMnglRegObj("path",p_rec);

1856

1857

p_tclObj = Tcl_NewObj();

1858

1859

/* get the assigned name */

1860

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "path", p_rec)) {

1861

printf("-E- Fail to get name of object %p\n", p_rec);

1862

} else {

1863

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1864

1865

/* enlarge the result string length */

1866

if (p_res_str)

1867

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1868

else {

1869

p_res_str = (char *)malloc(nameLength + 2);

1870

p_res_str[0] = '\0';

1871

}

1872

1873

strcat(p_res_str, tmp);

1874

strcat(p_res_str, " ");

1875

}

1876

Tcl_DecrRefCount(p_tclObj);

1877

}

1878

1879

if( p_result_madw != NULL )

1880

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1881

1882

return(p_res_str);

1883

}

1884

1885

char *ibsacLinkRecordQuery(

1886

ib_link_record_t *self,

1887

uint64_t comp_mask,

1888

uint8_t method) {

1889

ib_link_record_t *p_rec;

1890

uint32_t i;

1891

ib_api_status_t status;

1892

uint32_t num_recs = 0;

1893

osm_madw_t *p_result_madw;

1894

char *p_res_str = NULL, *tmp;

1895

Tcl_Obj *p_tclObj;

1896

int nameLength;

1897

1898

status = ibsac_query(

1899

&IbisObj, IB_MAD_ATTR_LINK_RECORD, self, comp_mask, method,

1900

&num_recs, &p_result_madw

1901

);

1902

1903

for( i = 0; i < num_recs; i++ )

1904

{

1905

/* we need to create a new node info and copy */

1906

p_rec = (ib_link_record_t *)malloc(sizeof(ib_link_record_t));

1907

1908

/* copy into it */

1909

*p_rec = *((ib_link_record_t*)osmv_get_query_result( p_result_madw, i ));

1910

1911

/* register it as a new object */

1912

SWIG_AltMnglRegObj("link",p_rec);

1913

1914

p_tclObj = Tcl_NewObj();

1915

1916

/* get the assigned name */

1917

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "link", p_rec)) {

1918

printf("-E- Fail to get name of object %p\n", p_rec);

1919

} else {

1920

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1921

1922

/* enlarge the result string length */

1923

if (p_res_str)

1924

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1925

else {

1926

p_res_str = (char *)malloc(nameLength + 2);

1927

p_res_str[0] = '\0';

1928

}

1929

1930

strcat(p_res_str, tmp);

1931

strcat(p_res_str, " ");

1932

}

1933

Tcl_DecrRefCount(p_tclObj);

1934

}

1935

1936

if( p_result_madw != NULL )

1937

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1938

1939

return(p_res_str);

1940

}

1941

1942

char *ibsacLFTRecordQuery(

1943

ib_lft_record_t *self,

1944

uint64_t comp_mask,

1945

uint8_t method) {

1946

ib_lft_record_t *p_rec;

1947

uint32_t i;

1948

ib_api_status_t status;

1949

uint32_t num_recs = 0;

1950

osm_madw_t *p_result_madw;

1951

char *p_res_str = NULL, *tmp;

1952

Tcl_Obj *p_tclObj;

1953

int nameLength;

1954

1955

status = ibsac_query(

1956

&IbisObj, IB_MAD_ATTR_LFT_RECORD, self, comp_mask, method,

1957

&num_recs, &p_result_madw

1958

);

1959

1960

for( i = 0; i < num_recs; i++ )

1961

{

1962

/* we need to create a new node info and copy */

1963

p_rec = (ib_lft_record_t *)malloc(sizeof(ib_lft_record_t));

1964

1965

/* copy into it */

1966

*p_rec = *((ib_lft_record_t*)osmv_get_query_result( p_result_madw, i ));

1967

1968

/* register it as a new object */

1969

SWIG_AltMnglRegObj("lft",p_rec);

1970

1971

p_tclObj = Tcl_NewObj();

1972

1973

/* get the assigned name */

1974

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "lft", p_rec)) {

1975

printf("-E- Fail to get name of object %p\n", p_rec);

1976

} else {

1977

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

1978

1979

/* enlarge the result string length */

1980

if (p_res_str)

1981

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

1982

else {

1983

p_res_str = (char *)malloc(nameLength + 2);

1984

p_res_str[0] = '\0';

1985

}

1986

1987

strcat(p_res_str, tmp);

1988

strcat(p_res_str, " ");

1989

}

1990

Tcl_DecrRefCount(p_tclObj);

1991

}

1992

1993

if( p_result_madw != NULL )

1994

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

1995

1996

return(p_res_str);

1997

}

1998

1999

char *ibsacMCMemberRecordQuery(

2000

ib_member_rec_t *self,

2001

uint64_t comp_mask,

2002

uint8_t method) {

2003

ib_member_rec_t *p_rec;

2004

uint32_t i;

2005

ib_api_status_t status;

2006

uint32_t num_recs = 0;

2007

osm_madw_t *p_result_madw;

2008

char *p_res_str = NULL, *tmp;

2009

Tcl_Obj *p_tclObj;

2010

int nameLength;

2011

2012

status = ibsac_query(

2013

&IbisObj, IB_MAD_ATTR_MCMEMBER_RECORD, self, comp_mask, method,

2014

&num_recs, &p_result_madw

2015

);

2016

2017

for( i = 0; i < num_recs; i++ )

2018

{

2019

/* we need to create a new node info and copy */

2020

p_rec = (ib_member_rec_t *)malloc(sizeof(ib_member_rec_t));

2021

2022

/* copy into it */

2023

*p_rec = *((ib_member_rec_t*)osmv_get_query_result( p_result_madw, i ));

2024

2025

/* register it as a new object */

2026

SWIG_AltMnglRegObj("mcm",p_rec);

2027

2028

p_tclObj = Tcl_NewObj();

2029

2030

/* get the assigned name */

2031

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "mcm", p_rec)) {

2032

printf("-E- Fail to get name of object %p\n", p_rec);

2033

} else {

2034

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2035

2036

/* enlarge the result string length */

2037

if (p_res_str)

2038

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2039

else {

2040

p_res_str = (char *)malloc(nameLength + 2);

2041

p_res_str[0] = '\0';

2042

}

2043

2044

strcat(p_res_str, tmp);

2045

strcat(p_res_str, " ");

2046

}

2047

Tcl_DecrRefCount(p_tclObj);

2048

}

2049

2050

if( p_result_madw != NULL )

2051

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2052

2053

return(p_res_str);

2054

}

2055

2056

char *ibsacClassPortInfoQuery(

2057

ib_class_port_info_t *self,

2058

uint64_t comp_mask,

2059

uint8_t method) {

2060

ib_class_port_info_t *p_rec;

2061

uint32_t i;

2062

ib_api_status_t status;

2063

uint32_t num_recs = 0;

2064

osm_madw_t *p_result_madw;

2065

char *p_res_str = NULL, *tmp;

2066

Tcl_Obj *p_tclObj;

2067

int nameLength;

2068

2069

status = ibsac_query(

2070

&IbisObj, IB_MAD_ATTR_CLASS_PORT_INFO, self, comp_mask, method,

2071

&num_recs, &p_result_madw

2072

);

2073

2074

for( i = 0; i < num_recs; i++ )

2075

{

2076

/* we need to create a new node info and copy */

2077

p_rec = (ib_class_port_info_t *)malloc(sizeof(ib_class_port_info_t));

2078

2079

/* copy into it */

2080

*p_rec = *((ib_class_port_info_t*)osmv_get_query_result( p_result_madw, i ));

2081

2082

/* register it as a new object */

2083

SWIG_AltMnglRegObj("cpi",p_rec);

2084

2085

p_tclObj = Tcl_NewObj();

2086

2087

/* get the assigned name */

2088

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "cpi", p_rec)) {

2089

printf("-E- Fail to get name of object %p\n", p_rec);

2090

} else {

2091

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2092

2093

/* enlarge the result string length */

2094

if (p_res_str)

2095

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2096

else {

2097

p_res_str = (char *)malloc(nameLength + 2);

2098

p_res_str[0] = '\0';

2099

}

2100

2101

strcat(p_res_str, tmp);

2102

strcat(p_res_str, " ");

2103

}

2104

Tcl_DecrRefCount(p_tclObj);

2105

}

2106

2107

if( p_result_madw != NULL )

2108

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2109

2110

return(p_res_str);

2111

}

2112

2113

char *ibsacInformInfoQuery(

2114

ib_inform_info_t *self,

2115

uint64_t comp_mask,

2116

uint8_t method) {

2117

ib_inform_info_t *p_rec;

2118

uint32_t i;

2119

ib_api_status_t status;

2120

uint32_t num_recs = 0;

2121

osm_madw_t *p_result_madw;

2122

char *p_res_str = NULL, *tmp;

2123

Tcl_Obj *p_tclObj;

2124

int nameLength;

2125

2126

status = ibsac_query(

2127

&IbisObj, IB_MAD_ATTR_INFORM_INFO, self, comp_mask, method,

2128

&num_recs, &p_result_madw

2129

);

2130

2131

for( i = 0; i < num_recs; i++ )

2132

{

2133

/* we need to create a new node info and copy */

2134

p_rec = (ib_inform_info_t *)malloc(sizeof(ib_inform_info_t));

2135

2136

/* copy into it */

2137

*p_rec = *((ib_inform_info_t*)osmv_get_query_result( p_result_madw, i ));

2138

2139

/* register it as a new object */

2140

SWIG_AltMnglRegObj("info",p_rec);

2141

2142

p_tclObj = Tcl_NewObj();

2143

2144

/* get the assigned name */

2145

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "info", p_rec)) {

2146

printf("-E- Fail to get name of object %p\n", p_rec);

2147

} else {

2148

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2149

2150

/* enlarge the result string length */

2151

if (p_res_str)

2152

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2153

else {

2154

p_res_str = (char *)malloc(nameLength + 2);

2155

p_res_str[0] = '\0';

2156

}

2157

2158

strcat(p_res_str, tmp);

2159

strcat(p_res_str, " ");

2160

}

2161

Tcl_DecrRefCount(p_tclObj);

2162

}

2163

2164

if( p_result_madw != NULL )

2165

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2166

2167

return(p_res_str);

2168

}

2169

2170

2171

char *ibsacServiceRecordQuery(

2172

ib_service_record_t *self,

2173

uint64_t comp_mask,

2174

uint8_t method) {

2175

ib_service_record_t *p_rec;

2176

uint32_t i;

2177

ib_api_status_t status;

2178

uint32_t num_recs = 0;

2179

osm_madw_t *p_result_madw;

2180

char *p_res_str = NULL, *tmp;

2181

Tcl_Obj *p_tclObj;

2182

int nameLength;

2183

2184

status = ibsac_query(

2185

&IbisObj, IB_MAD_ATTR_SERVICE_RECORD, self, comp_mask, method,

2186

&num_recs, &p_result_madw

2187

);

2188

2189

for( i = 0; i < num_recs; i++ )

2190

{

2191

/* we need to create a new node info and copy */

2192

p_rec = (ib_service_record_t *)malloc(sizeof(ib_service_record_t));

2193

2194

/* copy into it */

2195

*p_rec = *((ib_service_record_t*)osmv_get_query_result( p_result_madw, i ));

2196

2197

/* register it as a new object */

2198

SWIG_AltMnglRegObj("svc",p_rec);

2199

2200

p_tclObj = Tcl_NewObj();

2201

2202

/* get the assigned name */

2203

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "svc", p_rec)) {

2204

printf("-E- Fail to get name of object %p\n", p_rec);

2205

} else {

2206

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2207

2208

/* enlarge the result string length */

2209

if (p_res_str)

2210

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2211

else {

2212

p_res_str = (char *)malloc(nameLength + 2);

2213

p_res_str[0] = '\0';

2214

}

2215

2216

strcat(p_res_str, tmp);

2217

strcat(p_res_str, " ");

2218

}

2219

Tcl_DecrRefCount(p_tclObj);

2220

}

2221

2222

if( p_result_madw != NULL )

2223

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2224

2225

return(p_res_str);

2226

}

2227

2228

char *ibsacSl2VlRecordQuery(

2229

ib_slvl_table_record_t *self,

2230

uint64_t comp_mask,

2231

uint8_t method) {

2232

ib_slvl_table_record_t *p_rec;

2233

uint32_t i;

2234

ib_api_status_t status;

2235

uint32_t num_recs = 0;

2236

osm_madw_t *p_result_madw;

2237

char *p_res_str = NULL, *tmp;

2238

Tcl_Obj *p_tclObj;

2239

int nameLength;

2240

2241

status = ibsac_query(

2242

&IbisObj, IB_MAD_ATTR_SLVL_RECORD, self, comp_mask, method,

2243

&num_recs, &p_result_madw

2244

);

2245

2246

for( i = 0; i < num_recs; i++ )

2247

{

2248

/* we need to create a new node info and copy */

2249

p_rec = (ib_slvl_table_record_t *)malloc(sizeof(ib_slvl_table_record_t));

2250

2251

/* copy into it */

2252

*p_rec = *((ib_slvl_table_record_t*)osmv_get_query_result( p_result_madw, i ));

2253

2254

/* register it as a new object */

2255

SWIG_AltMnglRegObj("slvr",p_rec);

2256

SWIG_AltMnglRegObj("slvt",&(p_rec->slvl_tbl));

2257

2258

p_tclObj = Tcl_NewObj();

2259

2260

/* get the assigned name */

2261

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "slvr", p_rec)) {

2262

printf("-E- Fail to get name of object %p\n", p_rec);

2263

} else {

2264

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2265

2266

/* enlarge the result string length */

2267

if (p_res_str)

2268

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2269

else {

2270

p_res_str = (char *)malloc(nameLength + 2);

2271

p_res_str[0] = '\0';

2272

}

2273

2274

strcat(p_res_str, tmp);

2275

strcat(p_res_str, " ");

2276

}

2277

Tcl_DecrRefCount(p_tclObj);

2278

}

2279

2280

if( p_result_madw != NULL )

2281

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2282

2283

return(p_res_str);

2284

}

2285

2286

char *ibsacVlArbRecordQuery(

2287

ib_vl_arb_table_record_t *self,

2288

uint64_t comp_mask,

2289

uint8_t method) {

2290

ib_vl_arb_table_record_t *p_rec;

2291

uint32_t i;

2292

ib_api_status_t status;

2293

uint32_t num_recs = 0;

2294

osm_madw_t *p_result_madw;

2295

char *p_res_str = NULL, *tmp;

2296

Tcl_Obj *p_tclObj;

2297

int nameLength;

2298

2299

status = ibsac_query(

2300

&IbisObj, IB_MAD_ATTR_VLARB_RECORD, self, comp_mask, method,

2301

&num_recs, &p_result_madw

2302

);

2303

2304

for( i = 0; i < num_recs; i++ )

2305

{

2306

/* we need to create a new node info and copy */

2307

p_rec = (ib_vl_arb_table_record_t *)malloc(sizeof(ib_vl_arb_table_record_t));

2308

2309

/* copy into it */

2310

*p_rec = *((ib_vl_arb_table_record_t*)osmv_get_query_result( p_result_madw, i ));

2311

2312

/* register it as a new object */

2313

SWIG_AltMnglRegObj("vlarb",p_rec);

2314

2315

p_tclObj = Tcl_NewObj();

2316

2317

/* get the assigned name */

2318

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "vlarb", p_rec)) {

2319

printf("-E- Fail to get name of object %p\n", p_rec);

2320

} else {

2321

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2322

2323

/* enlarge the result string length */

2324

if (p_res_str)

2325

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2326

else {

2327

p_res_str = (char *)malloc(nameLength + 2);

2328

p_res_str[0] = '\0';

2329

}

2330

2331

strcat(p_res_str, tmp);

2332

strcat(p_res_str, " ");

2333

}

2334

Tcl_DecrRefCount(p_tclObj);

2335

}

2336

2337

if( p_result_madw != NULL )

2338

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2339

2340

return(p_res_str);

2341

}

2342

2343

char *ibsacPKeyRecordQuery(

2344

ib_pkey_table_record_t *self,

2345

uint64_t comp_mask,

2346

uint8_t method) {

2347

ib_pkey_table_record_t *p_rec;

2348

uint32_t i;

2349

ib_api_status_t status;

2350

uint32_t num_recs = 0;

2351

osm_madw_t *p_result_madw;

2352

char *p_res_str = NULL, *tmp;

2353

Tcl_Obj *p_tclObj;

2354

int nameLength;

2355

2356

status = ibsac_query(

2357

&IbisObj, IB_MAD_ATTR_PKEY_TBL_RECORD, self, comp_mask, method,

2358

&num_recs, &p_result_madw

2359

);

2360

2361

for( i = 0; i < num_recs; i++ )

2362

{

2363

/* we need to create a new node info and copy */

2364

p_rec = (ib_pkey_table_record_t *)malloc(sizeof(ib_pkey_table_record_t));

2365

2366

/* copy into it */

2367

*p_rec = *((ib_pkey_table_record_t*)osmv_get_query_result( p_result_madw, i ));

2368

2369

/* register it as a new object */

2370

SWIG_AltMnglRegObj("pkr",p_rec);

2371

SWIG_AltMnglRegObj("pkt",&(p_rec->pkey_tbl));

2372

2373

p_tclObj = Tcl_NewObj();

2374

2375

/* get the assigned name */

2376

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "pkr", p_rec)) {

2377

printf("-E- Fail to get name of object %p\n", p_rec);

2378

} else {

2379

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2380

2381

/* enlarge the result string length */

2382

if (p_res_str)

2383

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2384

else {

2385

p_res_str = (char *)malloc(nameLength + 2);

2386

p_res_str[0] = '\0';

2387

}

2388

2389

strcat(p_res_str, tmp);

2390

strcat(p_res_str, " ");

2391

}

2392

Tcl_DecrRefCount(p_tclObj);

2393

}

2394

2395

if( p_result_madw != NULL )

2396

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2397

2398

return(p_res_str);

2399

}

2400

2401

char *ibsacGuidRecordQuery(

2402

ib_guidinfo_record_t *self,

2403

uint64_t comp_mask,

2404

uint8_t method) {

2405

ib_guidinfo_record_t *p_rec;

2406

uint32_t i;

2407

ib_api_status_t status;

2408

uint32_t num_recs = 0;

2409

osm_madw_t *p_result_madw;

2410

char *p_res_str = NULL, *tmp;

2411

Tcl_Obj *p_tclObj;

2412

int nameLength;

2413

2414

status = ibsac_query(

2415

&IbisObj, IB_MAD_ATTR_GUIDINFO_RECORD, self, comp_mask, method,

2416

&num_recs, &p_result_madw

2417

);

2418

2419

for( i = 0; i < num_recs; i++ )

2420

{

2421

/* we need to create a new node info and copy */

2422

p_rec = (ib_guidinfo_record_t *)malloc(sizeof(ib_guidinfo_record_t));

2423

2424

/* copy into it */

2425

*p_rec = *((ib_guidinfo_record_t*)osmv_get_query_result( p_result_madw, i ));

2426

2427

/* register it as a new object */

2428

SWIG_AltMnglRegObj("gr",p_rec);

2429

SWIG_AltMnglRegObj("gi",&(p_rec->guid_info));

2430

2431

p_tclObj = Tcl_NewObj();

2432

2433

/* get the assigned name */

2434

if (SWIG_AltMnglGetObjNameByPtr(p_tclObj, "gr", p_rec)) {

2435

printf("-E- Fail to get name of object %p\n", p_rec);

2436

} else {

2437

tmp = Tcl_GetStringFromObj(p_tclObj, &nameLength);

2438

2439

/* enlarge the result string length */

2440

if (p_res_str)

2441

p_res_str = (char *)realloc(p_res_str, strlen(p_res_str) + nameLength + 2);

2442

else {

2443

p_res_str = (char *)malloc(nameLength + 2);

2444

p_res_str[0] = '\0';

2445

}

2446

2447

strcat(p_res_str, tmp);

2448

strcat(p_res_str, " ");

2449

}

2450

Tcl_DecrRefCount(p_tclObj);

2451

}

2452

2453

if( p_result_madw != NULL )

2454

osm_mad_pool_put( &IbisObj.mad_pool, p_result_madw );

2455

2456

return(p_res_str);

2457

}

2458

2459

2460

static int _wrap_const_IB_NR_COMPMASK_LID = 0x1;

2461

static int _wrap_const_IB_NR_COMPMASK_RESERVED1 = 0x2;

2462

static int _wrap_const_IB_NR_COMPMASK_BASEVERSION = 0x4;

2463

static int _wrap_const_IB_NR_COMPMASK_CLASSVERSION = 0x8;

2464

static int _wrap_const_IB_NR_COMPMASK_NODETYPE = 0x10;

2465

static int _wrap_const_IB_NR_COMPMASK_NUMPORTS = 0x20;

2466

static int _wrap_const_IB_NR_COMPMASK_SYSIMAGEGUID = 0x40;

2467

static int _wrap_const_IB_NR_COMPMASK_NODEGUID = 0x80;

2468

static int _wrap_const_IB_NR_COMPMASK_PORTGUID = 0x100;

2469

static int _wrap_const_IB_NR_COMPMASK_PARTCAP = 0x200;

2470

static int _wrap_const_IB_NR_COMPMASK_DEVID = 0x400;

2471

static int _wrap_const_IB_NR_COMPMASK_REV = 0x800;

2472

static int _wrap_const_IB_NR_COMPMASK_PORTNUM = 0x1000;

2473

static int _wrap_const_IB_NR_COMPMASK_VENDID = 0x2000;

2474

static int _wrap_const_IB_NR_COMPMASK_NODEDESC = 0x4000;

2475

static char * _wrap_const_IB_PIR_COMPMASK_LID = "0x1";

2476

static char * _wrap_const_IB_PIR_COMPMASK_PORTNUM = "0x2";

2477

static char * _wrap_const_IB_PIR_COMPMASK_RESV1 = "0x4";

2478

static char * _wrap_const_IB_PIR_COMPMASK_MKEY = "0x8";

2479

static int _wrap_const_IB_PIR_COMPMASK_GIDPRE = 0x10;

2480

static int _wrap_const_IB_PIR_COMPMASK_BASELID = 0x20;

2481

static int _wrap_const_IB_PIR_COMPMASK_SMLID = 0x40;

2482

static int _wrap_const_IB_PIR_COMPMASK_CAPMASK = 0x80;

2483

static int _wrap_const_IB_PIR_COMPMASK_DIAGCODE = 0x100;

2484

static int _wrap_const_IB_PIR_COMPMASK_MKEYLEASEPRD = 0x200;

2485

static int _wrap_const_IB_PIR_COMPMASK_LOCALPORTNUM = 0x400;

2486

static int _wrap_const_IB_PIR_COMPMASK_LNKWIDTHSUPPORT = 0x800;

2487

static int _wrap_const_IB_PIR_COMPMASK_LNKWIDTHACTIVE = 0x1000;

2488

static int _wrap_const_IB_PIR_COMPMASK_LINKWIDTHENABLED = 0x2000;

2489

static int _wrap_const_IB_PIR_COMPMASK_LNKSPEEDSUPPORT = 0x4000;

2490

static int _wrap_const_IB_PIR_COMPMASK_PORTSTATE = 0x10000;

2491

static int _wrap_const_IB_PIR_COMPMASK_PORTPHYSTATE = 0x20000;

2492

static int _wrap_const_IB_PIR_COMPMASK_LINKDWNDFLTSTATE = 0x40000;

2493

static int _wrap_const_IB_PIR_COMPMASK_MKEYPROTBITS = 0x80000;

2494

static int _wrap_const_IB_PIR_COMPMASK_LMC = 0x100000;

2495

static int _wrap_const_IB_PIR_COMPMASK_LINKSPEEDACTIVE = 0x200000;

2496

static int _wrap_const_IB_PIR_COMPMASK_LINKSPEEDENABLE = 0x400000;

2497

static int _wrap_const_IB_PIR_COMPMASK_NEIGHBORMTU = 0x800000;

2498

static int _wrap_const_IB_PIR_COMPMASK_MASTERSMSL = 0x1000000;

2499

static int _wrap_const_IB_PIR_COMPMASK_VLCAP = 0x2000000;

2500

static int _wrap_const_IB_PIR_COMPMASK_INITTYPE = 0x4000000;

2501

static int _wrap_const_IB_PIR_COMPMASK_VLHIGHLIMIT = 0x8000000;

2502

static int _wrap_const_IB_PIR_COMPMASK_VLARBHIGHCAP = 0x10000000;

2503

static int _wrap_const_IB_PIR_COMPMASK_VLARBLOWCAP = 0x20000000;

2504

static int _wrap_const_IB_PIR_COMPMASK_INITTYPEREPLY = 0x40000000;

2505

static int _wrap_const_IB_PIR_COMPMASK_MTUCAP = 0x80000000;

2506

static char * _wrap_const_IB_PIR_COMPMASK_VLSTALLCNT = "0x100000000";

2507

static char * _wrap_const_IB_PIR_COMPMASK_HOQLIFE = "0x200000000";

2508

static char * _wrap_const_IB_PIR_COMPMASK_OPVLS = "0x400000000";

2509

static char * _wrap_const_IB_PIR_COMPMASK_PARENFIN = "0x800000000";

2510

static char * _wrap_const_IB_PIR_COMPMASK_PARENFOUT = "0x1000000000";

2511

static char * _wrap_const_IB_PIR_COMPMASK_FILTERRAWIN = "0x2000000000";

2512

static char * _wrap_const_IB_PIR_COMPMASK_FILTERRAWOUT = "0x4000000000";

2513

static char * _wrap_const_IB_PIR_COMPMASK_MKEYVIO = "0x8000000000";

2514

static char * _wrap_const_IB_PIR_COMPMASK_PKEYVIO = "0x10000000000";

2515

static char * _wrap_const_IB_PIR_COMPMASK_QKEYVIO = "0x20000000000";

2516

static char * _wrap_const_IB_PIR_COMPMASK_GUIDCAP = "0x40000000000";

2517

static char * _wrap_const_IB_PIR_COMPMASK_RESV2 = "0x80000000000";

2518

static char * _wrap_const_IB_PIR_COMPMASK_SUBNTO = "0x100000000000";

2519

static char * _wrap_const_IB_PIR_COMPMASK_RESV3 = "0x200000000000";

2520

static char * _wrap_const_IB_PIR_COMPMASK_RESPTIME = "0x400000000000";

2521

static char * _wrap_const_IB_PIR_COMPMASK_LOCALPHYERR = "0x800000000000";

2522

static char * _wrap_const_IB_PIR_COMPMASK_OVERRUNERR = "0x1000000000000";

2523

static char * _wrap_const_IB_SMR_COMPMASK_LID = "0x1";

2524

static char * _wrap_const_IB_SMR_COMPMASK_GUID = "0x2";

2525

static char * _wrap_const_IB_SMR_COMPMASK_SM_KEY = "0x4";

2526

static char * _wrap_const_IB_SMR_COMPMASK_ACT_COUNT = "0x8";

2527

static int _wrap_const_IB_SMR_COMPMASK_STATE = 0x10;

2528

static int _wrap_const_IB_SMR_COMPMASK_PRI = 0x20;

2529

static char * _wrap_const_IB_SWR_COMPMASK_LID = "0x1";

2530

static char * _wrap_const_IB_SWR_COMPMASK_LIN_CAP = "0x2";

2531

static char * _wrap_const_IB_SWR_COMPMASK_RAND_CAP = "0x4";

2532

static char * _wrap_const_IB_SWR_COMPMASK_MCAST_CAP = "0x8";

2533

static char * _wrap_const_IB_SWR_COMPMASK_LIN_TOP = "0x10";

2534

static char * _wrap_const_IB_SWR_COMPMASK_DEF_PORT = "0x20";

2535

static char * _wrap_const_IB_SWR_COMPMASK_DEF_MCAST_PRI = "0x40";

2536

static char * _wrap_const_IB_SWR_COMPMASK_DEF_MCAST_NOT = "0x80";

2537

static char * _wrap_const_IB_SWR_COMPMASK_STATE = "0x100";

2538

static char * _wrap_const_IB_SWR_COMPMASK_LIFE = "0x200";

2539

static char * _wrap_const_IB_SWR_COMPMASK_LMC = "0x400";

2540

static char * _wrap_const_IB_SWR_COMPMASK_ENFORCE_CAP = "0x800";

2541

static char * _wrap_const_IB_SWR_COMPMASK_FLAGS = "0x1000";

2542

static int _wrap_const_IB_LR_COMPMASK_FROM_LID = 0x1;

2543

static int _wrap_const_IB_LR_COMPMASK_FROM_PORT = 0x2;

2544

static int _wrap_const_IB_LR_COMPMASK_TO_PORT = 0x4;

2545

static int _wrap_const_IB_LR_COMPMASK_TO_LID = 0x8;

2546

static int _wrap_const_IB_PR_COMPMASK_DGID = 0x4;

2547

static int _wrap_const_IB_PR_COMPMASK_SGID = 0x8;

2548

static int _wrap_const_IB_PR_COMPMASK_DLID = 0x10;

2549

static int _wrap_const_IB_PR_COMPMASK_SLID = 0x20;

2550

static int _wrap_const_IB_PR_COMPMASK_RAWTRAFIC = 0x40;

2551

static int _wrap_const_IB_PR_COMPMASK_RESV0 = 0x80;

2552

static int _wrap_const_IB_PR_COMPMASK_FLOWLABEL = 0x100;

2553

static int _wrap_const_IB_PR_COMPMASK_HOPLIMIT = 0x200;

2554

static int _wrap_const_IB_PR_COMPMASK_TCLASS = 0x400;

2555

static int _wrap_const_IB_PR_COMPMASK_REVERSIBLE = 0x800;

2556

static int _wrap_const_IB_PR_COMPMASK_NUMBPATH = 0x1000;

2557

static int _wrap_const_IB_PR_COMPMASK_PKEY = 0x2000;

2558

static int _wrap_const_IB_PR_COMPMASK_RESV1 = 0x4000;

2559

static int _wrap_const_IB_PR_COMPMASK_SL = 0x8000;

2560

static int _wrap_const_IB_PR_COMPMASK_MTUSELEC = 0x10000;

2561

static int _wrap_const_IB_PR_COMPMASK_MTU = 0x20000;

2562

static int _wrap_const_IB_PR_COMPMASK_RATESELEC = 0x40000;

2563

static int _wrap_const_IB_PR_COMPMASK_RATE = 0x80000;

2564

static int _wrap_const_IB_PR_COMPMASK_PKTLIFETIMESELEC = 0x100000;

2565

static int _wrap_const_IB_PR_COMPMASK_PFTLIFETIME = 0x200000;

2566

static char * _wrap_const_IB_LFT_COMPMASK_LID = "0x1";

2567

static char * _wrap_const_IB_LFT_COMPMASK_BLOCK = "0x2";

2568

static char * _wrap_const_IB_MCR_COMPMASK_GID = "0x1";

2569

static char * _wrap_const_IB_MCR_COMPMASK_MGID = "0x1";

2570

static char * _wrap_const_IB_MCR_COMPMASK_PORT_GID = "0x2";

2571

static char * _wrap_const_IB_MCR_COMPMASK_QKEY = "0x4";

2572

static char * _wrap_const_IB_MCR_COMPMASK_MLID = "0x8";

2573

static char * _wrap_const_IB_MCR_COMPMASK_MTU_SEL = "0x10";

2574

static char * _wrap_const_IB_MCR_COMPMASK_MTU = "0x20";

2575

static char * _wrap_const_IB_MCR_COMPMASK_TCLASS = "0x40";

2576

static char * _wrap_const_IB_MCR_COMPMASK_PKEY = "0x80";

2577

static char * _wrap_const_IB_MCR_COMPMASK_RATE_SEL = "0x100";

2578

static char * _wrap_const_IB_MCR_COMPMASK_RATE = "0x200";

2579

static char * _wrap_const_IB_MCR_COMPMASK_LIFE_SEL = "0x400";

2580

static char * _wrap_const_IB_MCR_COMPMASK_LIFE = "0x800";

2581

static char * _wrap_const_IB_MCR_COMPMASK_SL = "0x1000";

2582

static char * _wrap_const_IB_MCR_COMPMASK_FLOW = "0x2000";

2583

static char * _wrap_const_IB_MCR_COMPMASK_HOP = "0x4000";

2584

static char * _wrap_const_IB_MCR_COMPMASK_SCOPE = "0x8000";

2585

static char * _wrap_const_IB_MCR_COMPMASK_JOIN_STATE = "0x10000";

2586

static char * _wrap_const_IB_MCR_COMPMASK_PROXY = "0x20000";

2587

2588

typedef union {

2589

struct _sac_inform_generic

2590

{

2591

ib_net16_t trap_num;

2592

ib_net32_t qpn_resp_time_val;

2593

uint8_t reserved2;

2594

uint8_t node_type_msb;

2595

ib_net16_t node_type_lsb;

2596

} generic;

2597

2598

struct _sac_inform_vend

2599

{

2600

ib_net16_t dev_id;

2601

ib_net32_t qpn_resp_time_val;

2602

uint8_t reserved2;

2603

uint8_t vendor_id_msb;

2604

ib_net16_t vendor_id_lsb;

2605

} vend;

2606

2607

} sacInformInfo_g_or_v;

2608

2609

2610

typedef struct {

2611

ib_net16_t trap_num;

2612

ib_net32_t qpn_resp_time_val;

2613

uint8_t reserved2;

2614

uint8_t node_type_msb;

2615

ib_net16_t node_type_lsb;

2616

} sacInformInfo_g_or_v_generic;

2617

2618

2619

typedef struct {

2620

ib_net16_t dev_id;

2621

ib_net32_t qpn_resp_time_val;

2622

uint8_t reserved2;

2623

uint8_t vendor_id_msb;

2624

ib_net16_t vendor_id_lsb;

2625

} sacInformInfo_g_or_v_vend;

2626

2627

static char * _wrap_const_IB_SR_COMPMASK_SID = "0x1";

2628

static char * _wrap_const_IB_SR_COMPMASK_SGID = "0x1";

2629

static char * _wrap_const_IB_SR_COMPMASK_SPKEY = "0x2";

2630

static char * _wrap_const_IB_SR_COMPMASK_RES1 = "0x4";

2631

static char * _wrap_const_IB_SR_COMPMASK_SLEASE = "0x8";

2632

static char * _wrap_const_IB_SR_COMPMASK_SKEY = "0x10";

2633

static char * _wrap_const_IB_SR_COMPMASK_SNAME = "0x20";

2634

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_0 = "0x40";

2635

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_1 = "0x80";

2636

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_2 = "0x100";

2637

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_3 = "0x200";

2638

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_4 = "0x400";

2639

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_5 = "0x800";

2640

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_6 = "0x1000";

2641

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_7 = "0x2000";

2642

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_8 = "0x4000";

2643

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_9 = "0x8000";

2644

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_10 = "0x10000";

2645

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_11 = "0x20000";

2646

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_12 = "0x40000";

2647

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_13 = "0x80000";

2648

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_14 = "0x100000";

2649

static char * _wrap_const_IB_SR_COMPMASK_SDATA8_15 = "0x200000";

2650

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_0 = "0x400000";

2651

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_1 = "0x800000";

2652

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_2 = "0x1000000";

2653

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_3 = "0x2000000";

2654

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_4 = "0x4000000";

2655

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_5 = "0x8000000";

2656

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_6 = "0x10000000";

2657

static char * _wrap_const_IB_SR_COMPMASK_SDATA16_7 = "0x20000000";

2658

static char * _wrap_const_IB_SR_COMPMASK_SDATA32_0 = "0x40000000";

2659

static char * _wrap_const_IB_SR_COMPMASK_SDATA32_1 = "0x80000000";

2660

static char * _wrap_const_IB_SR_COMPMASK_SDATA32_2 = "0x100000000";

2661

static char * _wrap_const_IB_SR_COMPMASK_SDATA32_3 = "0x200000000";

2662

static char * _wrap_const_IB_SR_COMPMASK_SDATA64_0 = "0x400000000";

2663

static char * _wrap_const_IB_SR_COMPMASK_SDATA64_1 = "0x800000000";

2664

static char * _wrap_const_IB_SLVL_COMPMASK_LID = "0x1";

2665

static char * _wrap_const_IB_SLVL_COMPMASK_IN_PORT = "0x2";

2666

static char * _wrap_const_IB_SLVL_COMPMASK_OUT_PORT = "0x4";

2667

static char * _wrap_const_IB_VLA_COMPMASK_LID = "0x1";

2668

static char * _wrap_const_IB_VLA_COMPMASK_OUT_PORT = "0x2";

2669

static char * _wrap_const_IB_VLA_COMPMASK_BLOCK = "0x4";

2670

2671

#define sac_vl_arb_tbl_t ib_vl_arb_table_t

2672

static char * _wrap_const_IB_PKEY_COMPMASK_LID = "0x1";

2673

static char * _wrap_const_IB_PKEY_COMPMASK_BLOCK = "0x2";

2674

static char * _wrap_const_IB_PKEY_COMPMASK_PORT = "0x4";

2675

static char * _wrap_const_IB_GIR_COMPMASK_LID = "0x1";

2676

static char * _wrap_const_IB_GIR_COMPMASK_BLOCKNUM = "0x2";

2677

static char * _wrap_const_IB_GIR_COMPMASK_GID0 = "0x10";

2678

static char * _wrap_const_IB_GIR_COMPMASK_GID1 = "0x20";

2679

static char * _wrap_const_IB_GIR_COMPMASK_GID2 = "0x40";

2680

static char * _wrap_const_IB_GIR_COMPMASK_GID3 = "0x80";

2681

static char * _wrap_const_IB_GIR_COMPMASK_GID4 = "0x100";

2682

static char * _wrap_const_IB_GIR_COMPMASK_GID5 = "0x200";

2683

static char * _wrap_const_IB_GIR_COMPMASK_GID6 = "0x400";

2684

static char * _wrap_const_IB_GIR_COMPMASK_GID7 = "0x800";

2685

2686

#include "stdio.h"

2687

#include <errno.h>

2688

#include <stdlib.h>

2689

#include <getopt.h>

2690

#include <iba/ib_types.h>

2691

#include <complib/cl_types.h>

2692

#include <complib/cl_qmap.h>

2693

#include <complib/cl_map.h>

2694

#include <complib/cl_debug.h>

2695

#include "ibis_api.h"

2696

2697

/* the global pointer to this SM mads manager */

2698

static ibsm_t *gp_ibsm;

2699

2700

/* the data section within a LFT mad */

2701

typedef struct _ibsm_lft_block {

2702

uint8_t lft[64];

2703

} ibsm_lft_block_t;

2704

2705

/* the data section within a MFT mad */

2706

typedef struct _ibsm_mft_block {

2707

uint16_t mft[32];

2708

} ibsm_mft_block_t;

2709

2710

/* we probably want to use our own naming for classes */

2711

typedef ib_node_info_t smNodeInfo;

2712

typedef ib_port_info_t smPortInfo;

2713

typedef ib_switch_info_t smSwInfo;

2714

typedef ibsm_lft_block_t smLftBlock;

2715

typedef ibsm_mft_block_t smMftBlock;

2716

typedef ib_guid_info_t smGuidInfo;

2717

typedef ib_pkey_table_t smPkeyTable;

2718

typedef ib_slvl_table_t smSlVlTable;

2719

typedef ib_vl_arb_table_t smVlArbTable;

2720

typedef ib_node_desc_t smNodeDesc;

2721

typedef ib_sm_info_t smSMInfo;

2722

typedef ib_mad_notice_attr_t smNotice;

2723

2724

/* these are the globals to be used for set/get */

2725

ib_node_info_t ibsm_node_info_obj;

2726

ib_port_info_t ibsm_port_info_obj;

2727

ib_switch_info_t ibsm_switch_info_obj;

2728

ibsm_lft_block_t ibsm_lft_block_obj;

2729

ibsm_mft_block_t ibsm_mft_block_obj;

2730

ib_guid_info_t ibsm_guid_info_obj;

2731

ib_pkey_table_t ibsm_pkey_table_obj;

2732

ib_slvl_table_t ibsm_slvl_table_obj;

2733

ib_vl_arb_table_t ibsm_vl_arb_table_obj;

2734

ib_node_desc_t ibsm_node_desc_obj;

2735

ib_sm_info_t ibsm_sm_info_obj;

2736

ib_mad_notice_attr_t ibsm_notice_obj;

2737

2738

/* TODO - define a Vendor Specific CR Read/Write attributes to use VL15 */

2739

2740

2741

int smMftGetAttrMod( uint16_t startLid, uint8_t startPort, uint32_t *p_attrMod )

2742

{

2743

if (startLid % 32)

2744

{

2745

printf("Error: Given startLid must be a multiply of 32: %u\n", startLid);

2746

return TCL_ERROR;

2747

}

2748

if (startPort % 16)

2749

{

2750

printf("Error: Given startPort must be a multiply of 16: %u\n", startPort);

2751

return TCL_ERROR;

2752

}

2753

2754

/*

2755

always true due to the uint8_t

2756

if (startPort > 255)

2757

{

2758

printf("Error: Given startPort is out of range: %u > 255\n", startPort);

2759

return TCL_ERROR;

2760

}

2761

*/

2762

*p_attrMod = ((startLid - 0xc000) / 32) + ((startPort / 16) << 28);

2763

return TCL_OK;

2764

}

2765

2766

typedef uint8_t ibsm_node_desc_str_t;

2767

2768

typedef union {

2769

struct _sm_notice_generic

2770

{

2771

uint8_t prod_type_msb;

2772

ib_net16_t prod_type_lsb;

2773

ib_net16_t trap_num;

2774

} generic;

2775

2776

struct _sm_notice_vend

2777

{

2778

uint8_t vend_id_msb;

2779

ib_net16_t vend_id_lsb;

2780

ib_net16_t dev_id;

2781

} vend;

2782

} smNotice_g_or_v;

2783

2784

2785

typedef union {

2786

struct _sm_raw_data

2787

{

2788

uint8_array_t details[54];

2789

} raw_data;

2790

2791

struct _sm_ntc_64_67

2792

{

2793

uint8_array_t res[6];

2794

ib_gid_t gid; // the Node or Multicast Group that came in/out

2795

} ntc_64_67;

2796

2797

struct _sm_ntc_128 {

2798

ib_net16_t sw_lid; // the sw lid of which link state changed

2799

} ntc_128;

2800

2801

struct _sm_ntc_129_131 {

2802

ib_net16_t pad;

2803

ib_net16_t lid; // lid and port number of the violation

2804

uint8_t port_num;

2805

} ntc_129_131;

2806

2807

struct _sm_ntc_144 {

2808

ib_net16_t pad1;

2809

ib_net16_t lid; // lid where capability mask changed

2810

ib_net16_t pad2;

2811

ib_net32_t new_cap_mask; // new capability mask

2812

} ntc_144;

2813

2814

struct _sm_ntc_145 {

2815

ib_net16_t pad1;

2816

ib_net16_t lid; // lid where sys guid changed

2817

ib_net16_t pad2;

2818

ib_net64_t new_sys_guid; // new system image guid

2819

} ntc_145;

2820

2821

struct _sm_ntc_256 {

2822

ib_net16_t pad1;

2823

ib_net16_t lid;

2824

ib_net16_t pad2;

2825

uint8_t method;

2826

uint8_t pad3;

2827

ib_net16_t attr_id;

2828

ib_net32_t attr_mod;

2829

ib_net64_t mkey;

2830

uint8_t dr_slid;

2831

uint8_t dr_trunc_hop;

2832

uint8_array_t dr_rtn_path[30];

2833

} ntc_256;

2834

2835

struct _sm_ntc_257_258 // violation of p/q_key // 49

2836

{

2837

ib_net16_t pad1;

2838

ib_net16_t lid1;

2839

ib_net16_t lid2;

2840

ib_net32_t key;

2841

uint8_t sl;

2842

ib_net32_t qp1;

2843

ib_net32_t qp2;

2844

ib_gid_t gid1;

2845

ib_gid_t gid2;

2846

} ntc_257_258;

2847

2848

struct _sm_ntc_259 // p/q_key violation with sw info 53

2849

{

2850

ib_net16_t data_valid;

2851

ib_net16_t lid1;

2852

ib_net16_t lid2;

2853

ib_net32_t key;

2854

uint8_t sl;

2855

ib_net32_t qp1;

2856

uint8_t qp2_msb;

2857

ib_net16_t qp2_lsb;

2858

ib_gid_t gid1;

2859

ib_gid_t gid2;

2860

ib_net16_t sw_lid;

2861

uint8_t port_no;

2862

} ntc_259;

2863

2864

} smNotice_data_details;

2865

2866

2867

typedef struct {

2868

uint8_t prod_type_msb;

2869

ib_net16_t prod_type_lsb;

2870

ib_net16_t trap_num;

2871

} smNotice_g_or_v_generic;

2872

2873

2874

typedef struct {

2875

uint8_t vend_id_msb;

2876

ib_net16_t vend_id_lsb;

2877

ib_net16_t dev_id;

2878

} smNotice_g_or_v_vend;

2879

2880

2881

typedef struct {

2882

uint8_array_t details[54];

2883

} smNotice_data_details_raw_data;

2884

2885

2886

typedef struct {

2887

uint8_array_t res[6];

2888

ib_gid_t gid; // the Node or Multicast Group that came in/out

2889

} smNotice_data_details_ntc_64_67;

2890

2891

2892

typedef struct {

2893

ib_net16_t sw_lid; // the sw lid of which link state changed

2894

} smNotice_data_details_ntc_128;

2895

2896

2897

typedef struct {

2898

ib_net16_t pad;

2899

ib_net16_t lid; // lid and port number of the violation

2900

uint8_t port_num;

2901

} smNotice_data_details_ntc_129_131;

2902

2903

2904

typedef struct {

2905

ib_net16_t pad1;

2906

ib_net16_t lid; // lid where capability mask changed

2907

ib_net16_t pad2;

2908

ib_net32_t new_cap_mask; // new capability mask

2909

} smNotice_data_details_ntc_144;

2910

2911

2912

typedef struct {

2913

ib_net16_t pad1;

2914

ib_net16_t lid; // lid where sys guid changed

2915

ib_net16_t pad2;

2916

ib_net64_t new_sys_guid; // new system image guid

2917

} smNotice_data_details_ntc_145;

2918

2919

2920

typedef struct {

2921

ib_net16_t pad1;

2922

ib_net16_t lid;

2923

ib_net16_t pad2;

2924

uint8_t method;

2925

uint8_t pad3;

2926

ib_net16_t attr_id;

2927

ib_net32_t attr_mod;

2928

ib_net64_t mkey;

2929

uint8_t dr_slid;

2930

uint8_t dr_trunc_hop;

2931

uint8_array_t dr_rtn_path[30];

2932

} smNotice_data_details_ntc_256;

2933

2934

2935

typedef struct {

2936

ib_net16_t pad1;

2937

ib_net16_t lid1;

2938

ib_net16_t lid2;

2939

ib_net32_t key;

2940

uint8_t sl;

2941

ib_net32_t qp1;

2942

ib_net32_t qp2;

2943

ib_gid_t gid1;

2944

ib_gid_t gid2;

2945

} smNotice_data_details_ntc_257_258;

2946

2947

2948

typedef struct {

2949

ib_net16_t data_valid;

2950

ib_net16_t lid1;

2951

ib_net16_t lid2;

2952

ib_net32_t key;

2953

uint8_t sl;

2954

ib_net32_t qp1;

2955

uint8_t qp2_msb;

2956

ib_net16_t qp2_lsb;

2957

ib_gid_t gid1;

2958

ib_gid_t gid2;

2959

ib_net16_t sw_lid;

2960

uint8_t port_no;

2961

} smNotice_data_details_ntc_259;

2962

2963

2964

#include "stdio.h"

2965

#include <errno.h>

2966

#include <stdlib.h>

2967

#include <getopt.h>

2968

#include <iba/ib_types.h>

2969

#include <complib/cl_types.h>

2970

#include <complib/cl_qmap.h>

2971

#include <complib/cl_map.h>

2972

#include <complib/cl_debug.h>

2973

#include "ibis_api.h"

2974

2975

/* the global pointer to this CC mads manager */

2976

static ibcc_t *gp_ibcc;

2977

2978

/* we probably want to use our own naming for classes */

2979

typedef ib_class_port_info_t ccClassPortInfo;

2980

typedef ibcc_notice_attr_t ccNotice;

2981

typedef ib_cong_info_t ccCongestionInfo;

2982

typedef ib_cong_key_info_t ccCongestionKeyInfo;

2983

typedef ibcc_ca_cong_log_t ccCACongestionLog;

2984

typedef ibcc_sw_cong_log_t ccSWCongestionLog;

2985

typedef ib_sw_cong_setting_t ccSWCongestionSetting;

2986

typedef ib_sw_port_cong_setting_t ccSWPortCongestionSetting;

2987

typedef ib_ca_cong_setting_t ccCACongestionSetting;

2988

typedef ib_cc_tbl_t ccTable;

2989

typedef ib_time_stamp_t ccTimeStamp;

2990

2991

/* these are the global objects to be used

2992

for set/get (one for each attribute) */

2993

ib_class_port_info_t ibcc_class_port_info_obj;

2994

ibcc_notice_attr_t ibcc_notice_obj;

2995

ib_cong_info_t ibcc_cong_info_obj;

2996

ib_cong_key_info_t ibcc_cong_key_info_obj;

2997

ibcc_ca_cong_log_t ibcc_ca_cong_log_obj;

2998

ibcc_sw_cong_log_t ibcc_sw_cong_log_obj;

2999

ib_sw_cong_setting_t ibcc_sw_cong_setting_obj;

3000

ib_sw_port_cong_setting_t ibcc_sw_port_cong_setting_obj;

3001

ib_ca_cong_setting_t ibcc_ca_cong_setting_obj;

3002

ib_cc_tbl_t ibcc_table_obj;

3003

ib_time_stamp_t ibcc_time_stamp_obj;

3004

3005

3006

/* globals */

3007

ibis_t IbisObj;

3008

static ibis_opt_t *ibis_opt_p;

3009

ibis_opt_t IbisOpts;

3010

3011

/* initialize the ibis object - is not done during init so we

3012

can play with the options ... */

3013

int ibis_ui_init(void)

3014

{

3015

ib_api_status_t status;

3016

#ifdef OSM_BUILD_OPENIB

3017

complib_init();

3018

#endif

3019

3020

status = ibis_init( &IbisOpts, IbisOpts.log_flags );

3021

if( status != IB_SUCCESS ) {

3022

printf("-E- Error from ibis_init: %s.\n",

3023

ib_get_err_str( status ));

3024

ibis_destroy();

3025

exit(1);

3026

}

3027

3028

status = ibcr_init(p_ibcr_global);

3029

if( status != IB_SUCCESS )

3030

{

3031

printf("-E- fail to init ibcr_init.\n");

3032

ibcr_destroy( p_ibcr_global );

3033

exit(1);

3034

}

3035

3036

status = ibpm_init(p_ibpm_global);

3037

if( status != IB_SUCCESS )

3038

{

3039

printf("-E- fail to init ibpm_init.\n");

3040

ibpm_destroy( p_ibpm_global );

3041

exit(1);

3042

}

3043

3044

status = ibvs_init(p_ibvs_global);

3045

if( status != IB_SUCCESS )

3046

{

3047

printf("-E- Fail to init ibvs_init.\n");

3048

ibvs_destroy( p_ibvs_global );

3049

exit(1);

3050

}

3051

3052

status = ibbbm_init(p_ibbbm_global);

3053

if( status != IB_SUCCESS )

3054

{

3055

printf("-E- Fail to init ibbbm_init.\n");

3056

ibbbm_destroy( p_ibbbm_global );

3057

exit(1);

3058

}

3059

3060

status = ibsm_init(gp_ibsm);

3061

if( status != IB_SUCCESS )

3062

{

3063

printf("-E- Fail to init ibsm_init.\n");

3064

ibsm_destroy( gp_ibsm );

3065

exit(1);

3066

}

3067

3068

status = ibcc_init(gp_ibcc);

3069

if( status != IB_SUCCESS )

3070

{

3071

printf("-E- Fail to init ibcc_init.\n");

3072

ibcc_destroy( gp_ibcc );

3073

exit(1);

3074

}

3075

3076

return 0;

3077

}

3078

3079

/* destroy the osm object and close the complib.

3080

This function is called from by the Tcl_CreateExitHandler - meaning

3081

it will be called when calling 'exit' in the osm shell. */

3082

void

3083

ibis_exit( ClientData clientData ) {

3084

ibcr_destroy(p_ibcr_global);

3085

ibpm_destroy(p_ibpm_global);

3086

ibvs_destroy(p_ibvs_global);

3087

ibbbm_destroy(p_ibbbm_global);

3088

ibsm_destroy(gp_ibsm);

3089

ibcc_destroy(gp_ibcc);

3090

3091

ibis_destroy();

3092

usleep(100);

3093

complib_exit();

3094

}

3095

3096

int ibis_ui_destroy(void)

3097

{

3098

ibis_exit(NULL);

3099

return TCL_OK;

3100

}

3101

3102

3103

/* simply return the active port guid ibis is binded to */

3104

uint64_t ibis_get_port(void)

3105

{

3106

return (IbisObj.port_guid);

3107

}

3108

3109

/* set the port we bind to and initialize sub packages */

3110

int ibis_set_port(uint64_t port_guid)

3111

{

3112

ib_api_status_t status;

3113

3114

if (! IbisObj.initialized) {

3115

ibis_set_tcl_error("ibis was not initialized! Please use ibis_init before any call to ibis_*");

3116

ibis_tcl_error = 1;

3117

return 1;

3118

}

3119

3120

IbisObj.port_guid = port_guid;

3121

3122

status = ibcr_bind(p_ibcr_global);

3123

if( status != IB_SUCCESS )

3124

{

3125

printf("-E- Fail to ibcr_bind.\n");

3126

ibcr_destroy( p_ibcr_global );

3127

exit(1);

3128

}

3129

3130

status = ibpm_bind(p_ibpm_global);

3131

if( status != IB_SUCCESS )

3132

{

3133

printf("-E- Fail to ibpm_bind.\n");

3134

ibpm_destroy( p_ibpm_global );

3135

exit(1);

3136

}

3137

3138

status = ibvs_bind(p_ibvs_global);

3139

if( status != IB_SUCCESS )

3140

{

3141

printf("-E- Fail to ibvs_bind.\n");

3142

ibvs_destroy( p_ibvs_global );

3143

exit(1);

3144

}

3145

3146

status = ibbbm_bind(p_ibbbm_global);

3147

if( status != IB_SUCCESS )

3148

{

3149

printf("-E- Fail to ibbbm_bind.\n");

3150

ibbbm_destroy( p_ibbbm_global );

3151

exit(1);

3152

}

3153

3154

status = ibsm_bind(gp_ibsm);

3155

if( status != IB_SUCCESS )

3156

{

3157

printf("-E- Fail to ibsm_bind.\n");

3158

ibsm_destroy( gp_ibsm );

3159

exit(1);

3160

}

3161

3162

status = ibcc_bind(gp_ibcc);

3163

if( status != IB_SUCCESS )

3164

{

3165

printf("-E- Fail to ibcc_bind.\n");

3166

ibcc_destroy( gp_ibcc );

3167

exit(1);

3168

}

3169

3170

if (ibsac_bind(&IbisObj))

3171

{

3172

printf("-E- Fail to ibsac_bind.\n");

3173

exit(1);

3174

}

3175

3176

return 0;

3177

}

3178

3179

int ibis_set_verbosity(int level) {

3180

if (IbisObj.initialized)

3181

osm_log_set_level( &(IbisObj.log), level );

3182

else

3183

IbisOpts.log_flags = level;

3184

3185

return TCL_OK;

3186

}

3187

3188

int ibis_puts( osm_log_level_t verbosity, char *msg) {

3189

osm_log(&(IbisObj.log), verbosity, msg );

3190

return TCL_OK;

3191

}

3192

3193

int ibis_set_transaction_timeout( uint32_t timeout_ms ) {

3194

osm_log(&(IbisObj.log),

3195

OSM_LOG_VERBOSE,

3196

" Setting timeout to:%u[msec]\n", timeout_ms);

3197

IbisOpts.transaction_timeout = timeout_ms;

3198

return TCL_OK;

3199

}

3200

3201

/* return the list of port guids and their status etc */

3202

static int ibis_get_local_ports_info (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3203

Tcl_Obj * tcl_result;

3204

ibis_t *p_ibis = &IbisObj;

3205

uint32_t i;

3206

ib_api_status_t status;

3207

uint32_t num_ports = MAX_LOCAL_IBPORTS;

3208

ib_port_attr_t attr_array[MAX_LOCAL_IBPORTS];

3209

static char res[128];

3210

Tcl_Obj *p_obj;

3211

3212

if (!IbisObj.initialized)

3213

{

3214

Tcl_SetStringObj(

3215

Tcl_GetObjResult(interp),

3216

"ibis was not yet initialized. please use ibis_init before.", -1);

3217

return TCL_ERROR;

3218

}

3219

3220

/* command options */

3221

tcl_result = Tcl_GetObjResult(interp);

3222

3223

if ((objc < 1) || (objc > 1)) {

3224

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_get_local_ports_info ",-1);

3225

return TCL_ERROR;

3226

}

3227

3228

for (i = 0; i < num_ports; i++)

3229

{

3230

attr_array[i].num_pkeys = 0;

3231

attr_array[i].p_pkey_table = NULL;

3232

}

3233

/*

3234

Call the transport layer for a list of local port

3235

GUID values.

3236

*/

3237

status = osm_vendor_get_all_port_attr(

3238

p_ibis->p_vendor,

3239

attr_array,

3240

&num_ports );

3241

if( status != IB_SUCCESS )

3242

{

3243

sprintf(ibis_tcl_error_msg,"-E- fail status:%x\n", status);

3244

ibis_tcl_error = 1;

3245

return( TCL_ERROR );

3246

}

3247

3248

/*

3249

Go over all ports and build the return value

3250

*/

3251

for( i = 0; i < num_ports; i++ )

3252

{

3253

3254

// start with 1 on host channel adapters.

3255

sprintf(res, "0x%016" PRIx64 " 0x%04X %s %u",

3256

cl_ntoh64( attr_array[i].port_guid ),

3257

attr_array[i].lid,

3258

ib_get_port_state_str( attr_array[i].link_state ),

3259

attr_array[i].port_num

3260

);

3261

3262

p_obj = Tcl_NewStringObj(res, strlen(res));

3263

Tcl_ListObjAppendElement(interp, tcl_result, p_obj);

3264

}

3265

3266

return TCL_OK;

3267

}

3268

3269

static int _wrap_const_IBIS_LOG_NONE = 0x00;

3270

static int _wrap_const_IBIS_LOG_ERROR = 0x01;

3271

static int _wrap_const_IBIS_LOG_INFO = 0x02;

3272

static int _wrap_const_IBIS_LOG_VERBOSE = 0x04;

3273

static int _wrap_const_IBIS_LOG_DEBUG = 0x08;

3274

static int _wrap_const_IBIS_LOG_FUNCS = 0x10;

3275

static int _wrap_const_IBIS_LOG_FRAMES = 0x20;

3276

extern char * ibisSourceVersion;

3277

static int _wrap_crDestroy(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3278

3279

int _result;

3280

Tcl_Obj * tcl_result;

3281

3282

clientData = clientData; objv = objv;

3283

tcl_result = Tcl_GetObjResult(interp);

3284

if ((objc < 1) || (objc > 1)) {

3285

Tcl_SetStringObj(tcl_result,"Wrong # args. crDestroy ",-1);

3286

return TCL_ERROR;

3287

}

3288

{

3289

/* we can check if IBIS was initialized here */

3290

if (!IbisObj.initialized)

3291

{

3292

Tcl_SetStringObj(

3293

Tcl_GetObjResult(interp),

3294

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3295

return TCL_ERROR;

3296

}

3297

3298

if (! IbisObj.port_guid)

3299

{

3300

Tcl_SetStringObj(

3301

Tcl_GetObjResult(interp),

3302

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3303

return TCL_ERROR;

3304

}

3305

3306

ibis_tcl_error = 0;

3307

_result = (int )ibcr_destroy_global();

3308

;

3309

if (ibis_tcl_error) {

3310

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3311

return TCL_ERROR;

3312

}

3313

} tcl_result = Tcl_GetObjResult(interp);

3314

Tcl_SetIntObj(tcl_result,(long) _result);

3315

return TCL_OK;

3316

}

3317

static int _wrap_crMultiMaxGet(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3318

3319

int _result;

3320

Tcl_Obj * tcl_result;

3321

3322

clientData = clientData; objv = objv;

3323

tcl_result = Tcl_GetObjResult(interp);

3324

if ((objc < 1) || (objc > 1)) {

3325

Tcl_SetStringObj(tcl_result,"Wrong # args. crMultiMaxGet ",-1);

3326

return TCL_ERROR;

3327

}

3328

{

3329

/* we can check if IBIS was initialized here */

3330

if (!IbisObj.initialized)

3331

{

3332

Tcl_SetStringObj(

3333

Tcl_GetObjResult(interp),

3334

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3335

return TCL_ERROR;

3336

}

3337

3338

if (! IbisObj.port_guid)

3339

{

3340

Tcl_SetStringObj(

3341

Tcl_GetObjResult(interp),

3342

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3343

return TCL_ERROR;

3344

}

3345

3346

ibis_tcl_error = 0;

3347

_result = (int )ibcr_num_of_multi_max();

3348

;

3349

if (ibis_tcl_error) {

3350

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3351

return TCL_ERROR;

3352

}

3353

} tcl_result = Tcl_GetObjResult(interp);

3354

Tcl_SetIntObj(tcl_result,(long) _result);

3355

return TCL_OK;

3356

}

3357

static int _wrap_crRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3358

3359

int _result;

3360

uint16_t * _arg0;

3361

uint32_t * _arg1;

3362

char ** _arg2;

3363

char * p_c;

3364

Tcl_Obj * tcl_result;

3365

uint16_t temp;

3366

uint32_t temp0;

3367

3368

clientData = clientData; objv = objv;

3369

{

3370

_arg2 = &p_c;

3371

}

3372

tcl_result = Tcl_GetObjResult(interp);

3373

if ((objc < 3) || (objc > 3)) {

3374

Tcl_SetStringObj(tcl_result,"Wrong # args. crRead lid address ",-1);

3375

return TCL_ERROR;

3376

}

3377

{

3378

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3379

_arg0 = &temp;

3380

}

3381

{

3382

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

3383

_arg1 = &temp0;

3384

}

3385

{

3386

/* we can check if IBIS was initialized here */

3387

if (!IbisObj.initialized)

3388

{

3389

Tcl_SetStringObj(

3390

Tcl_GetObjResult(interp),

3391

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3392

return TCL_ERROR;

3393

}

3394

3395

if (! IbisObj.port_guid)

3396

{

3397

Tcl_SetStringObj(

3398

Tcl_GetObjResult(interp),

3399

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3400

return TCL_ERROR;

3401

}

3402

3403

ibis_tcl_error = 0;

3404

_result = (int )ibcr_read_global(*_arg0,*_arg1,_arg2);

3405

;

3406

if (ibis_tcl_error) {

3407

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3408

return TCL_ERROR;

3409

}

3410

} tcl_result = Tcl_GetObjResult(interp);

3411

Tcl_SetIntObj(tcl_result,(long) _result);

3412

{

3413

Tcl_SetStringObj(tcl_result,*_arg2,strlen(*_arg2));

3414

if (*_arg2) free(*_arg2);

3415

}

3416

return TCL_OK;

3417

}

3418

static int _wrap_crWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3419

3420

int _result;

3421

uint16_t * _arg0;

3422

uint32_t * _arg1;

3423

uint32_t * _arg2;

3424

Tcl_Obj * tcl_result;

3425

uint16_t temp;

3426

uint32_t temp0;

3427

uint32_t temp1;

3428

3429

clientData = clientData; objv = objv;

3430

tcl_result = Tcl_GetObjResult(interp);

3431

if ((objc < 4) || (objc > 4)) {

3432

Tcl_SetStringObj(tcl_result,"Wrong # args. crWrite lid data address ",-1);

3433

return TCL_ERROR;

3434

}

3435

{

3436

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3437

_arg0 = &temp;

3438

}

3439

{

3440

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

3441

_arg1 = &temp0;

3442

}

3443

{

3444

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

3445

_arg2 = &temp1;

3446

}

3447

{

3448

/* we can check if IBIS was initialized here */

3449

if (!IbisObj.initialized)

3450

{

3451

Tcl_SetStringObj(

3452

Tcl_GetObjResult(interp),

3453

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3454

return TCL_ERROR;

3455

}

3456

3457

if (! IbisObj.port_guid)

3458

{

3459

Tcl_SetStringObj(

3460

Tcl_GetObjResult(interp),

3461

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3462

return TCL_ERROR;

3463

}

3464

3465

ibis_tcl_error = 0;

3466

_result = (int )ibcr_write_global(*_arg0,*_arg1,*_arg2);

3467

;

3468

if (ibis_tcl_error) {

3469

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3470

return TCL_ERROR;

3471

}

3472

} tcl_result = Tcl_GetObjResult(interp);

3473

Tcl_SetIntObj(tcl_result,(long) _result);

3474

return TCL_OK;

3475

}

3476

static int _wrap_crReadMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3477

3478

int _result;

3479

uint8_t * _arg0;

3480

uint16_cr_arr_t * _arg1;

3481

uint32_t * _arg2;

3482

char ** _arg3;

3483

char * p_c;

3484

Tcl_Obj * tcl_result;

3485

uint8_t temp;

3486

uint16_t temp0[IBCR_MULTI_MAX];

3487

uint32_t temp1;

3488

3489

clientData = clientData; objv = objv;

3490

{

3491

_arg3 = &p_c;

3492

}

3493

tcl_result = Tcl_GetObjResult(interp);

3494

if ((objc < 4) || (objc > 4)) {

3495

Tcl_SetStringObj(tcl_result,"Wrong # args. crReadMulti num lid_list address ",-1);

3496

return TCL_ERROR;

3497

}

3498

{

3499

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3500

_arg0 = &temp;

3501

}

3502

{

3503

char *str;

3504

char *str_tcl;

3505

int i;

3506

char *loc_buf;

3507

char *str_token = NULL;

3508

3509

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

3510

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3511

strcpy(loc_buf,str_tcl);

3512

3513

3514

str = strtok_r(loc_buf," ", &str_token);

3515

for (i=0;i<IBCR_MULTI_MAX;i++) {

3516

if (str == NULL) {

3517

break;

3518

}

3519

temp0[i] = strtoul(str, NULL, 0);

3520

str = strtok_r(NULL," ",&str_token);

3521

}

3522

_arg1 = temp0;

3523

free(loc_buf);

3524

}

3525

{

3526

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

3527

_arg2 = &temp1;

3528

}

3529

{

3530

/* we can check if IBIS was initialized here */

3531

if (!IbisObj.initialized)

3532

{

3533

Tcl_SetStringObj(

3534

Tcl_GetObjResult(interp),

3535

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3536

return TCL_ERROR;

3537

}

3538

3539

if (! IbisObj.port_guid)

3540

{

3541

Tcl_SetStringObj(

3542

Tcl_GetObjResult(interp),

3543

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3544

return TCL_ERROR;

3545

}

3546

3547

ibis_tcl_error = 0;

3548

_result = (int )ibcr_multi_read_global(*_arg0,_arg1,*_arg2,_arg3);

3549

;

3550

if (ibis_tcl_error) {

3551

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3552

return TCL_ERROR;

3553

}

3554

} tcl_result = Tcl_GetObjResult(interp);

3555

Tcl_SetIntObj(tcl_result,(long) _result);

3556

{

3557

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

3558

if (*_arg3) free(*_arg3);

3559

}

3560

return TCL_OK;

3561

}

3562

static int _wrap_crWriteMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3563

3564

int _result;

3565

uint8_t * _arg0;

3566

uint16_cr_arr_t * _arg1;

3567

uint32_t * _arg2;

3568

uint32_t * _arg3;

3569

Tcl_Obj * tcl_result;

3570

uint8_t temp;

3571

uint16_t temp0[IBCR_MULTI_MAX];

3572

uint32_t temp1;

3573

uint32_t temp2;

3574

3575

clientData = clientData; objv = objv;

3576

tcl_result = Tcl_GetObjResult(interp);

3577

if ((objc < 5) || (objc > 5)) {

3578

Tcl_SetStringObj(tcl_result,"Wrong # args. crWriteMulti num lid_list data address ",-1);

3579

return TCL_ERROR;

3580

}

3581

{

3582

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3583

_arg0 = &temp;

3584

}

3585

{

3586

char *str;

3587

char *str_tcl;

3588

int i;

3589

char *loc_buf;

3590

char *str_token = NULL;

3591

3592

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

3593

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3594

strcpy(loc_buf,str_tcl);

3595

3596

3597

str = strtok_r(loc_buf," ", &str_token);

3598

for (i=0;i<IBCR_MULTI_MAX;i++) {

3599

if (str == NULL) {

3600

break;

3601

}

3602

temp0[i] = strtoul(str, NULL, 0);

3603

str = strtok_r(NULL," ",&str_token);

3604

}

3605

_arg1 = temp0;

3606

free(loc_buf);

3607

}

3608

{

3609

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

3610

_arg2 = &temp1;

3611

}

3612

{

3613

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

3614

_arg3 = &temp2;

3615

}

3616

{

3617

/* we can check if IBIS was initialized here */

3618

if (!IbisObj.initialized)

3619

{

3620

Tcl_SetStringObj(

3621

Tcl_GetObjResult(interp),

3622

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3623

return TCL_ERROR;

3624

}

3625

3626

if (! IbisObj.port_guid)

3627

{

3628

Tcl_SetStringObj(

3629

Tcl_GetObjResult(interp),

3630

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3631

return TCL_ERROR;

3632

}

3633

3634

ibis_tcl_error = 0;

3635

_result = (int )ibcr_multi_write_global(*_arg0,_arg1,*_arg2,*_arg3);

3636

;

3637

if (ibis_tcl_error) {

3638

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3639

return TCL_ERROR;

3640

}

3641

} tcl_result = Tcl_GetObjResult(interp);

3642

Tcl_SetIntObj(tcl_result,(long) _result);

3643

return TCL_OK;

3644

}

3645

static int _wrap_pmMultiMaxGet(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3646

3647

int _result;

3648

Tcl_Obj * tcl_result;

3649

3650

clientData = clientData; objv = objv;

3651

tcl_result = Tcl_GetObjResult(interp);

3652

if ((objc < 1) || (objc > 1)) {

3653

Tcl_SetStringObj(tcl_result,"Wrong # args. pmMultiMaxGet ",-1);

3654

return TCL_ERROR;

3655

}

3656

{

3657

/* we can check if IBIS was initialized here */

3658

if (!IbisObj.initialized)

3659

{

3660

Tcl_SetStringObj(

3661

Tcl_GetObjResult(interp),

3662

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3663

return TCL_ERROR;

3664

}

3665

3666

if (! IbisObj.port_guid)

3667

{

3668

Tcl_SetStringObj(

3669

Tcl_GetObjResult(interp),

3670

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3671

return TCL_ERROR;

3672

}

3673

3674

ibis_tcl_error = 0;

3675

_result = (int )ibpm_num_of_multi_max();

3676

;

3677

if (ibis_tcl_error) {

3678

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3679

return TCL_ERROR;

3680

}

3681

} tcl_result = Tcl_GetObjResult(interp);

3682

Tcl_SetIntObj(tcl_result,(long) _result);

3683

return TCL_OK;

3684

}

3685

static int _wrap_pmGetPortCounters(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3686

3687

int _result;

3688

uint16_t * _arg0;

3689

uint8_t * _arg1;

3690

char ** _arg2;

3691

char * p_c;

3692

Tcl_Obj * tcl_result;

3693

uint16_t temp;

3694

uint8_t temp0;

3695

3696

clientData = clientData; objv = objv;

3697

{

3698

_arg2 = &p_c;

3699

}

3700

tcl_result = Tcl_GetObjResult(interp);

3701

if ((objc < 3) || (objc > 3)) {

3702

Tcl_SetStringObj(tcl_result,"Wrong # args. pmGetPortCounters lid port_select ",-1);

3703

return TCL_ERROR;

3704

}

3705

{

3706

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3707

_arg0 = &temp;

3708

}

3709

{

3710

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

3711

_arg1 = &temp0;

3712

}

3713

{

3714

/* we can check if IBIS was initialized here */

3715

if (!IbisObj.initialized)

3716

{

3717

Tcl_SetStringObj(

3718

Tcl_GetObjResult(interp),

3719

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3720

return TCL_ERROR;

3721

}

3722

3723

if (! IbisObj.port_guid)

3724

{

3725

Tcl_SetStringObj(

3726

Tcl_GetObjResult(interp),

3727

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3728

return TCL_ERROR;

3729

}

3730

3731

ibis_tcl_error = 0;

3732

_result = (int )ibpm_get_counters_global(*_arg0,*_arg1,_arg2);

3733

;

3734

if (ibis_tcl_error) {

3735

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3736

return TCL_ERROR;

3737

}

3738

} tcl_result = Tcl_GetObjResult(interp);

3739

Tcl_SetIntObj(tcl_result,(long) _result);

3740

{

3741

Tcl_SetStringObj(tcl_result,*_arg2,strlen(*_arg2));

3742

if (*_arg2) free(*_arg2);

3743

}

3744

return TCL_OK;

3745

}

3746

static int _wrap_pmGetPortCountersMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3747

3748

int _result;

3749

uint8_t * _arg0;

3750

uint16_pm_arr_t * _arg1;

3751

uint8_pm_arr_t * _arg2;

3752

char ** _arg3;

3753

char * p_c;

3754

Tcl_Obj * tcl_result;

3755

uint8_t temp;

3756

uint16_t temp0[IBPM_MULTI_MAX];

3757

uint8_t temp1[IBPM_MULTI_MAX];

3758

3759

clientData = clientData; objv = objv;

3760

{

3761

_arg3 = &p_c;

3762

}

3763

tcl_result = Tcl_GetObjResult(interp);

3764

if ((objc < 4) || (objc > 4)) {

3765

Tcl_SetStringObj(tcl_result,"Wrong # args. pmGetPortCountersMulti num lid_list port_select_list ",-1);

3766

return TCL_ERROR;

3767

}

3768

{

3769

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3770

_arg0 = &temp;

3771

}

3772

{

3773

char *str;

3774

char *str_tcl;

3775

int i;

3776

char *loc_buf;

3777

char *str_token = NULL;

3778

3779

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

3780

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3781

strcpy(loc_buf,str_tcl);

3782

3783

str = strtok_r(loc_buf," ", &str_token);

3784

for (i=0;i<IBPM_MULTI_MAX;i++) {

3785

if (str == NULL) {

3786

break;

3787

}

3788

temp0[i] = atoi(str);

3789

str = strtok_r(NULL," ",&str_token);

3790

}

3791

_arg1 = temp0;

3792

free(loc_buf);

3793

}

3794

{

3795

char *str;

3796

char *str_tcl;

3797

int i;

3798

char *loc_buf;

3799

char *str_token = NULL;

3800

3801

str_tcl = Tcl_GetStringFromObj(objv[3],NULL);

3802

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3803

strcpy(loc_buf,str_tcl);

3804

3805

str = strtok_r(loc_buf," ", &str_token);

3806

for (i=0;i<IBPM_MULTI_MAX;i++) {

3807

if (str == NULL) {

3808

break;

3809

}

3810

temp1[i] = atoi(str);

3811

str = strtok_r(NULL," ",&str_token);

3812

}

3813

3814

_arg2 = temp1;

3815

free(loc_buf);

3816

3817

}

3818

{

3819

/* we can check if IBIS was initialized here */

3820

if (!IbisObj.initialized)

3821

{

3822

Tcl_SetStringObj(

3823

Tcl_GetObjResult(interp),

3824

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3825

return TCL_ERROR;

3826

}

3827

3828

if (! IbisObj.port_guid)

3829

{

3830

Tcl_SetStringObj(

3831

Tcl_GetObjResult(interp),

3832

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3833

return TCL_ERROR;

3834

}

3835

3836

ibis_tcl_error = 0;

3837

_result = (int )ibpm_get_multi_counters_global(*_arg0,_arg1,_arg2,_arg3);

3838

;

3839

if (ibis_tcl_error) {

3840

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3841

return TCL_ERROR;

3842

}

3843

} tcl_result = Tcl_GetObjResult(interp);

3844

Tcl_SetIntObj(tcl_result,(long) _result);

3845

{

3846

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

3847

if (*_arg3) free(*_arg3);

3848

}

3849

return TCL_OK;

3850

}

3851

static int _wrap_pmGetExtPortCountersMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3852

3853

int _result;

3854

uint8_t * _arg0;

3855

uint16_pm_arr_t * _arg1;

3856

uint8_pm_arr_t * _arg2;

3857

char ** _arg3;

3858

char * p_c;

3859

Tcl_Obj * tcl_result;

3860

uint8_t temp;

3861

uint16_t temp0[IBPM_MULTI_MAX];

3862

uint8_t temp1[IBPM_MULTI_MAX];

3863

3864

clientData = clientData; objv = objv;

3865

{

3866

_arg3 = &p_c;

3867

}

3868

tcl_result = Tcl_GetObjResult(interp);

3869

if ((objc < 4) || (objc > 4)) {

3870

Tcl_SetStringObj(tcl_result,"Wrong # args. pmGetExtPortCountersMulti num lid_list port_select_list ",-1);

3871

return TCL_ERROR;

3872

}

3873

{

3874

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3875

_arg0 = &temp;

3876

}

3877

{

3878

char *str;

3879

char *str_tcl;

3880

int i;

3881

char *loc_buf;

3882

char *str_token = NULL;

3883

3884

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

3885

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3886

strcpy(loc_buf,str_tcl);

3887

3888

str = strtok_r(loc_buf," ", &str_token);

3889

for (i=0;i<IBPM_MULTI_MAX;i++) {

3890

if (str == NULL) {

3891

break;

3892

}

3893

temp0[i] = atoi(str);

3894

str = strtok_r(NULL," ",&str_token);

3895

}

3896

_arg1 = temp0;

3897

free(loc_buf);

3898

}

3899

{

3900

char *str;

3901

char *str_tcl;

3902

int i;

3903

char *loc_buf;

3904

char *str_token = NULL;

3905

3906

str_tcl = Tcl_GetStringFromObj(objv[3],NULL);

3907

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

3908

strcpy(loc_buf,str_tcl);

3909

3910

str = strtok_r(loc_buf," ", &str_token);

3911

for (i=0;i<IBPM_MULTI_MAX;i++) {

3912

if (str == NULL) {

3913

break;

3914

}

3915

temp1[i] = atoi(str);

3916

str = strtok_r(NULL," ",&str_token);

3917

}

3918

3919

_arg2 = temp1;

3920

free(loc_buf);

3921

3922

}

3923

{

3924

/* we can check if IBIS was initialized here */

3925

if (!IbisObj.initialized)

3926

{

3927

Tcl_SetStringObj(

3928

Tcl_GetObjResult(interp),

3929

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3930

return TCL_ERROR;

3931

}

3932

3933

if (! IbisObj.port_guid)

3934

{

3935

Tcl_SetStringObj(

3936

Tcl_GetObjResult(interp),

3937

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3938

return TCL_ERROR;

3939

}

3940

3941

ibis_tcl_error = 0;

3942

_result = (int )ibpm_get_multi_counters_extended_global(*_arg0,_arg1,_arg2,_arg3);

3943

;

3944

if (ibis_tcl_error) {

3945

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

3946

return TCL_ERROR;

3947

}

3948

} tcl_result = Tcl_GetObjResult(interp);

3949

Tcl_SetIntObj(tcl_result,(long) _result);

3950

{

3951

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

3952

if (*_arg3) free(*_arg3);

3953

}

3954

return TCL_OK;

3955

}

3956

static int _wrap_pmClrAllCounters(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

3957

3958

int _result;

3959

uint16_t * _arg0;

3960

uint8_t * _arg1;

3961

Tcl_Obj * tcl_result;

3962

uint16_t temp;

3963

uint8_t temp0;

3964

3965

clientData = clientData; objv = objv;

3966

tcl_result = Tcl_GetObjResult(interp);

3967

if ((objc < 3) || (objc > 3)) {

3968

Tcl_SetStringObj(tcl_result,"Wrong # args. pmClrAllCounters lid port_select ",-1);

3969

return TCL_ERROR;

3970

}

3971

{

3972

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

3973

_arg0 = &temp;

3974

}

3975

{

3976

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

3977

_arg1 = &temp0;

3978

}

3979

{

3980

/* we can check if IBIS was initialized here */

3981

if (!IbisObj.initialized)

3982

{

3983

Tcl_SetStringObj(

3984

Tcl_GetObjResult(interp),

3985

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

3986

return TCL_ERROR;

3987

}

3988

3989

if (! IbisObj.port_guid)

3990

{

3991

Tcl_SetStringObj(

3992

Tcl_GetObjResult(interp),

3993

" ibis was not yet initialized. please use ibis_set_port before.", -1);

3994

return TCL_ERROR;

3995

}

3996

3997

ibis_tcl_error = 0;

3998

_result = (int )ibpm_clr_all_counters_global(*_arg0,*_arg1);

3999

;

4000

if (ibis_tcl_error) {

4001

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4002

return TCL_ERROR;

4003

}

4004

} tcl_result = Tcl_GetObjResult(interp);

4005

Tcl_SetIntObj(tcl_result,(long) _result);

4006

return TCL_OK;

4007

}

4008

static int _wrap_pmClrAllCountersMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4009

4010

int _result;

4011

uint8_t * _arg0;

4012

uint16_pm_arr_t * _arg1;

4013

uint8_pm_arr_t * _arg2;

4014

Tcl_Obj * tcl_result;

4015

uint8_t temp;

4016

uint16_t temp0[IBPM_MULTI_MAX];

4017

uint8_t temp1[IBPM_MULTI_MAX];

4018

4019

clientData = clientData; objv = objv;

4020

tcl_result = Tcl_GetObjResult(interp);

4021

if ((objc < 4) || (objc > 4)) {

4022

Tcl_SetStringObj(tcl_result,"Wrong # args. pmClrAllCountersMulti num lid_list port_select_list ",-1);

4023

return TCL_ERROR;

4024

}

4025

{

4026

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4027

_arg0 = &temp;

4028

}

4029

{

4030

char *str;

4031

char *str_tcl;

4032

int i;

4033

char *loc_buf;

4034

char *str_token = NULL;

4035

4036

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

4037

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4038

strcpy(loc_buf,str_tcl);

4039

4040

str = strtok_r(loc_buf," ", &str_token);

4041

for (i=0;i<IBPM_MULTI_MAX;i++) {

4042

if (str == NULL) {

4043

break;

4044

}

4045

temp0[i] = atoi(str);

4046

str = strtok_r(NULL," ",&str_token);

4047

}

4048

_arg1 = temp0;

4049

free(loc_buf);

4050

}

4051

{

4052

char *str;

4053

char *str_tcl;

4054

int i;

4055

char *loc_buf;

4056

char *str_token = NULL;

4057

4058

str_tcl = Tcl_GetStringFromObj(objv[3],NULL);

4059

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4060

strcpy(loc_buf,str_tcl);

4061

4062

str = strtok_r(loc_buf," ", &str_token);

4063

for (i=0;i<IBPM_MULTI_MAX;i++) {

4064

if (str == NULL) {

4065

break;

4066

}

4067

temp1[i] = atoi(str);

4068

str = strtok_r(NULL," ",&str_token);

4069

}

4070

4071

_arg2 = temp1;

4072

free(loc_buf);

4073

4074

}

4075

{

4076

/* we can check if IBIS was initialized here */

4077

if (!IbisObj.initialized)

4078

{

4079

Tcl_SetStringObj(

4080

Tcl_GetObjResult(interp),

4081

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4082

return TCL_ERROR;

4083

}

4084

4085

if (! IbisObj.port_guid)

4086

{

4087

Tcl_SetStringObj(

4088

Tcl_GetObjResult(interp),

4089

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4090

return TCL_ERROR;

4091

}

4092

4093

ibis_tcl_error = 0;

4094

_result = (int )ibpm_clr_all_multi_counters_global(*_arg0,_arg1,_arg2);

4095

;

4096

if (ibis_tcl_error) {

4097

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4098

return TCL_ERROR;

4099

}

4100

} tcl_result = Tcl_GetObjResult(interp);

4101

Tcl_SetIntObj(tcl_result,(long) _result);

4102

return TCL_OK;

4103

}

4104

static int _wrap_vsMultiMaxGet(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4105

4106

int _result;

4107

Tcl_Obj * tcl_result;

4108

4109

clientData = clientData; objv = objv;

4110

tcl_result = Tcl_GetObjResult(interp);

4111

if ((objc < 1) || (objc > 1)) {

4112

Tcl_SetStringObj(tcl_result,"Wrong # args. vsMultiMaxGet ",-1);

4113

return TCL_ERROR;

4114

}

4115

{

4116

/* we can check if IBIS was initialized here */

4117

if (!IbisObj.initialized)

4118

{

4119

Tcl_SetStringObj(

4120

Tcl_GetObjResult(interp),

4121

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4122

return TCL_ERROR;

4123

}

4124

4125

if (! IbisObj.port_guid)

4126

{

4127

Tcl_SetStringObj(

4128

Tcl_GetObjResult(interp),

4129

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4130

return TCL_ERROR;

4131

}

4132

4133

ibis_tcl_error = 0;

4134

_result = (int )ibvs_num_of_multi_max();

4135

;

4136

if (ibis_tcl_error) {

4137

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4138

return TCL_ERROR;

4139

}

4140

} tcl_result = Tcl_GetObjResult(interp);

4141

Tcl_SetIntObj(tcl_result,(long) _result);

4142

return TCL_OK;

4143

}

4144

static int _wrap_vsCpuRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4145

4146

int _result;

4147

uint16_t * _arg0;

4148

uint8_t * _arg1;

4149

uint8_t * _arg2;

4150

uint32_t * _arg3;

4151

char ** _arg4;

4152

char * p_c;

4153

Tcl_Obj * tcl_result;

4154

uint16_t temp;

4155

uint8_t temp0;

4156

uint8_t temp1;

4157

uint32_t temp2;

4158

4159

clientData = clientData; objv = objv;

4160

{

4161

_arg4 = &p_c;

4162

}

4163

tcl_result = Tcl_GetObjResult(interp);

4164

if ((objc < 5) || (objc > 5)) {

4165

Tcl_SetStringObj(tcl_result,"Wrong # args. vsCpuRead lid size cpu_traget_size address ",-1);

4166

return TCL_ERROR;

4167

}

4168

{

4169

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4170

_arg0 = &temp;

4171

}

4172

{

4173

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

4174

_arg1 = &temp0;

4175

}

4176

{

4177

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4178

_arg2 = &temp1;

4179

}

4180

{

4181

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4182

_arg3 = &temp2;

4183

}

4184

{

4185

/* we can check if IBIS was initialized here */

4186

if (!IbisObj.initialized)

4187

{

4188

Tcl_SetStringObj(

4189

Tcl_GetObjResult(interp),

4190

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4191

return TCL_ERROR;

4192

}

4193

4194

if (! IbisObj.port_guid)

4195

{

4196

Tcl_SetStringObj(

4197

Tcl_GetObjResult(interp),

4198

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4199

return TCL_ERROR;

4200

}

4201

4202

ibis_tcl_error = 0;

4203

_result = (int )ibvs_cpu_read_global(*_arg0,*_arg1,*_arg2,*_arg3,_arg4);

4204

;

4205

if (ibis_tcl_error) {

4206

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4207

return TCL_ERROR;

4208

}

4209

} tcl_result = Tcl_GetObjResult(interp);

4210

Tcl_SetIntObj(tcl_result,(long) _result);

4211

{

4212

Tcl_SetStringObj(tcl_result,*_arg4,strlen(*_arg4));

4213

if (*_arg4) free(*_arg4);

4214

}

4215

return TCL_OK;

4216

}

4217

static int _wrap_vsCpuWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4218

4219

int _result;

4220

uint16_t * _arg0;

4221

uint8_t * _arg1;

4222

uint8_t * _arg2;

4223

uint32_vs_data_arr_t * _arg3;

4224

uint32_t * _arg4;

4225

Tcl_Obj * tcl_result;

4226

uint16_t temp;

4227

uint8_t temp0;

4228

uint8_t temp1;

4229

uint32_t temp2[IBVS_DATA_MAX];

4230

uint32_t temp3;

4231

4232

clientData = clientData; objv = objv;

4233

tcl_result = Tcl_GetObjResult(interp);

4234

if ((objc < 6) || (objc > 6)) {

4235

Tcl_SetStringObj(tcl_result,"Wrong # args. vsCpuWrite lid size cpu_traget_size data address ",-1);

4236

return TCL_ERROR;

4237

}

4238

{

4239

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4240

_arg0 = &temp;

4241

}

4242

{

4243

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

4244

_arg1 = &temp0;

4245

}

4246

{

4247

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4248

_arg2 = &temp1;

4249

}

4250

{

4251

char *str;

4252

char *str_tcl;

4253

int i;

4254

char *loc_buf;

4255

char *str_token = NULL;

4256

4257

str_tcl = Tcl_GetStringFromObj(objv[4],NULL);

4258

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4259

strcpy(loc_buf,str_tcl);

4260

str = strtok_r(loc_buf," ", &str_token);

4261

for (i=0;i<IBVS_DATA_MAX;i++) {

4262

if (str == NULL) {

4263

break;

4264

}

4265

temp2[i] = (uint32_t)strtoll(str, (char **)NULL, 0);

4266

str = strtok_r(NULL," ",&str_token);

4267

}

4268

_arg3 = temp2;

4269

free(loc_buf);

4270

}

4271

{

4272

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4273

_arg4 = &temp3;

4274

}

4275

{

4276

/* we can check if IBIS was initialized here */

4277

if (!IbisObj.initialized)

4278

{

4279

Tcl_SetStringObj(

4280

Tcl_GetObjResult(interp),

4281

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4282

return TCL_ERROR;

4283

}

4284

4285

if (! IbisObj.port_guid)

4286

{

4287

Tcl_SetStringObj(

4288

Tcl_GetObjResult(interp),

4289

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4290

return TCL_ERROR;

4291

}

4292

4293

ibis_tcl_error = 0;

4294

_result = (int )ibvs_cpu_write_global(*_arg0,*_arg1,*_arg2,_arg3,*_arg4);

4295

;

4296

if (ibis_tcl_error) {

4297

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4298

return TCL_ERROR;

4299

}

4300

} tcl_result = Tcl_GetObjResult(interp);

4301

Tcl_SetIntObj(tcl_result,(long) _result);

4302

return TCL_OK;

4303

}

4304

static int _wrap_vsI2cRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4305

4306

int _result;

4307

uint16_t * _arg0;

4308

uint8_t * _arg1;

4309

uint8_t * _arg2;

4310

uint8_t * _arg3;

4311

uint32_t * _arg4;

4312

char ** _arg5;

4313

char * p_c;

4314

Tcl_Obj * tcl_result;

4315

uint16_t temp;

4316

uint8_t temp0;

4317

uint8_t temp1;

4318

uint8_t temp2;

4319

uint32_t temp3;

4320

4321

clientData = clientData; objv = objv;

4322

{

4323

_arg5 = &p_c;

4324

}

4325

tcl_result = Tcl_GetObjResult(interp);

4326

if ((objc < 6) || (objc > 6)) {

4327

Tcl_SetStringObj(tcl_result,"Wrong # args. vsI2cRead lid port_num device_id size address ",-1);

4328

return TCL_ERROR;

4329

}

4330

{

4331

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4332

_arg0 = &temp;

4333

}

4334

{

4335

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

4336

_arg1 = &temp0;

4337

}

4338

{

4339

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4340

_arg2 = &temp1;

4341

}

4342

{

4343

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4344

_arg3 = &temp2;

4345

}

4346

{

4347

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4348

_arg4 = &temp3;

4349

}

4350

{

4351

/* we can check if IBIS was initialized here */

4352

if (!IbisObj.initialized)

4353

{

4354

Tcl_SetStringObj(

4355

Tcl_GetObjResult(interp),

4356

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4357

return TCL_ERROR;

4358

}

4359

4360

if (! IbisObj.port_guid)

4361

{

4362

Tcl_SetStringObj(

4363

Tcl_GetObjResult(interp),

4364

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4365

return TCL_ERROR;

4366

}

4367

4368

ibis_tcl_error = 0;

4369

_result = (int )ibvs_i2c_read_global(*_arg0,*_arg1,*_arg2,*_arg3,*_arg4,_arg5);

4370

;

4371

if (ibis_tcl_error) {

4372

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4373

return TCL_ERROR;

4374

}

4375

} tcl_result = Tcl_GetObjResult(interp);

4376

Tcl_SetIntObj(tcl_result,(long) _result);

4377

{

4378

Tcl_SetStringObj(tcl_result,*_arg5,strlen(*_arg5));

4379

if (*_arg5) free(*_arg5);

4380

}

4381

return TCL_OK;

4382

}

4383

static int _wrap_vsI2cWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4384

4385

int _result;

4386

uint16_t * _arg0;

4387

uint8_t * _arg1;

4388

uint8_t * _arg2;

4389

uint8_t * _arg3;

4390

uint32_t * _arg4;

4391

uint32_vs_data_arr_t * _arg5;

4392

Tcl_Obj * tcl_result;

4393

uint16_t temp;

4394

uint8_t temp0;

4395

uint8_t temp1;

4396

uint8_t temp2;

4397

uint32_t temp3;

4398

uint32_t temp4[IBVS_DATA_MAX];

4399

4400

clientData = clientData; objv = objv;

4401

tcl_result = Tcl_GetObjResult(interp);

4402

if ((objc < 7) || (objc > 7)) {

4403

Tcl_SetStringObj(tcl_result,"Wrong # args. vsI2cWrite lid port_num device_id size address data ",-1);

4404

return TCL_ERROR;

4405

}

4406

{

4407

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4408

_arg0 = &temp;

4409

}

4410

{

4411

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

4412

_arg1 = &temp0;

4413

}

4414

{

4415

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4416

_arg2 = &temp1;

4417

}

4418

{

4419

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4420

_arg3 = &temp2;

4421

}

4422

{

4423

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4424

_arg4 = &temp3;

4425

}

4426

{

4427

char *str;

4428

char *str_tcl;

4429

int i;

4430

char *loc_buf;

4431

char *str_token = NULL;

4432

4433

str_tcl = Tcl_GetStringFromObj(objv[6],NULL);

4434

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4435

strcpy(loc_buf,str_tcl);

4436

str = strtok_r(loc_buf," ", &str_token);

4437

for (i=0;i<IBVS_DATA_MAX;i++) {

4438

if (str == NULL) {

4439

break;

4440

}

4441

temp4[i] = (uint32_t)strtoll(str, (char **)NULL, 0);

4442

str = strtok_r(NULL," ",&str_token);

4443

}

4444

_arg5 = temp4;

4445

free(loc_buf);

4446

}

4447

{

4448

/* we can check if IBIS was initialized here */

4449

if (!IbisObj.initialized)

4450

{

4451

Tcl_SetStringObj(

4452

Tcl_GetObjResult(interp),

4453

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4454

return TCL_ERROR;

4455

}

4456

4457

if (! IbisObj.port_guid)

4458

{

4459

Tcl_SetStringObj(

4460

Tcl_GetObjResult(interp),

4461

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4462

return TCL_ERROR;

4463

}

4464

4465

ibis_tcl_error = 0;

4466

_result = (int )ibvs_i2c_write_global(*_arg0,*_arg1,*_arg2,*_arg3,*_arg4,_arg5);

4467

;

4468

if (ibis_tcl_error) {

4469

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4470

return TCL_ERROR;

4471

}

4472

} tcl_result = Tcl_GetObjResult(interp);

4473

Tcl_SetIntObj(tcl_result,(long) _result);

4474

return TCL_OK;

4475

}

4476

static int _wrap_vsI2cReadMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4477

4478

int _result;

4479

uint8_t * _arg0;

4480

uint16_vs_arr_t * _arg1;

4481

uint8_t * _arg2;

4482

uint8_t * _arg3;

4483

uint8_t * _arg4;

4484

uint32_t * _arg5;

4485

char ** _arg6;

4486

char * p_c;

4487

Tcl_Obj * tcl_result;

4488

uint8_t temp;

4489

uint16_t temp0[IBVS_MULTI_MAX];

4490

uint8_t temp1;

4491

uint8_t temp2;

4492

uint8_t temp3;

4493

uint32_t temp4;

4494

4495

clientData = clientData; objv = objv;

4496

{

4497

_arg6 = &p_c;

4498

}

4499

tcl_result = Tcl_GetObjResult(interp);

4500

if ((objc < 7) || (objc > 7)) {

4501

Tcl_SetStringObj(tcl_result,"Wrong # args. vsI2cReadMulti num lid_list port_num device_id size address ",-1);

4502

return TCL_ERROR;

4503

}

4504

{

4505

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4506

_arg0 = &temp;

4507

}

4508

{

4509

char *str;

4510

char *str_tcl;

4511

int i;

4512

char *loc_buf;

4513

char *str_token = NULL;

4514

4515

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

4516

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4517

strcpy(loc_buf,str_tcl);

4518

4519

str = strtok_r(loc_buf," ", &str_token);

4520

for (i=0;i<IBVS_MULTI_MAX;i++) {

4521

if (str == NULL) {

4522

break;

4523

}

4524

temp0[i] = atoi(str);

4525

str = strtok_r(NULL," ",&str_token);

4526

}

4527

_arg1 = temp0;

4528

free(loc_buf);

4529

}

4530

{

4531

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4532

_arg2 = &temp1;

4533

}

4534

{

4535

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4536

_arg3 = &temp2;

4537

}

4538

{

4539

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4540

_arg4 = &temp3;

4541

}

4542

{

4543

temp4 = strtoul(Tcl_GetStringFromObj(objv[6],NULL), NULL, 0);

4544

_arg5 = &temp4;

4545

}

4546

{

4547

/* we can check if IBIS was initialized here */

4548

if (!IbisObj.initialized)

4549

{

4550

Tcl_SetStringObj(

4551

Tcl_GetObjResult(interp),

4552

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4553

return TCL_ERROR;

4554

}

4555

4556

if (! IbisObj.port_guid)

4557

{

4558

Tcl_SetStringObj(

4559

Tcl_GetObjResult(interp),

4560

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4561

return TCL_ERROR;

4562

}

4563

4564

ibis_tcl_error = 0;

4565

_result = (int )ibvs_multi_i2c_read_global(*_arg0,_arg1,*_arg2,*_arg3,*_arg4,*_arg5,_arg6);

4566

;

4567

if (ibis_tcl_error) {

4568

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4569

return TCL_ERROR;

4570

}

4571

} tcl_result = Tcl_GetObjResult(interp);

4572

Tcl_SetIntObj(tcl_result,(long) _result);

4573

{

4574

Tcl_SetStringObj(tcl_result,*_arg6,strlen(*_arg6));

4575

if (*_arg6) free(*_arg6);

4576

}

4577

return TCL_OK;

4578

}

4579

static int _wrap_vsI2cWriteMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4580

4581

int _result;

4582

uint8_t * _arg0;

4583

uint16_vs_arr_t * _arg1;

4584

uint8_t * _arg2;

4585

uint8_t * _arg3;

4586

uint8_t * _arg4;

4587

uint32_t * _arg5;

4588

uint32_vs_data_arr_t * _arg6;

4589

char ** _arg7;

4590

char * p_c;

4591

Tcl_Obj * tcl_result;

4592

uint8_t temp;

4593

uint16_t temp0[IBVS_MULTI_MAX];

4594

uint8_t temp1;

4595

uint8_t temp2;

4596

uint8_t temp3;

4597

uint32_t temp4;

4598

uint32_t temp5[IBVS_DATA_MAX];

4599

4600

clientData = clientData; objv = objv;

4601

{

4602

_arg7 = &p_c;

4603

}

4604

tcl_result = Tcl_GetObjResult(interp);

4605

if ((objc < 8) || (objc > 8)) {

4606

Tcl_SetStringObj(tcl_result,"Wrong # args. vsI2cWriteMulti num lid_list port_num device_id size address data ",-1);

4607

return TCL_ERROR;

4608

}

4609

{

4610

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4611

_arg0 = &temp;

4612

}

4613

{

4614

char *str;

4615

char *str_tcl;

4616

int i;

4617

char *loc_buf;

4618

char *str_token = NULL;

4619

4620

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

4621

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4622

strcpy(loc_buf,str_tcl);

4623

4624

str = strtok_r(loc_buf," ", &str_token);

4625

for (i=0;i<IBVS_MULTI_MAX;i++) {

4626

if (str == NULL) {

4627

break;

4628

}

4629

temp0[i] = atoi(str);

4630

str = strtok_r(NULL," ",&str_token);

4631

}

4632

_arg1 = temp0;

4633

free(loc_buf);

4634

}

4635

{

4636

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4637

_arg2 = &temp1;

4638

}

4639

{

4640

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4641

_arg3 = &temp2;

4642

}

4643

{

4644

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4645

_arg4 = &temp3;

4646

}

4647

{

4648

temp4 = strtoul(Tcl_GetStringFromObj(objv[6],NULL), NULL, 0);

4649

_arg5 = &temp4;

4650

}

4651

{

4652

char *str;

4653

char *str_tcl;

4654

int i;

4655

char *loc_buf;

4656

char *str_token = NULL;

4657

4658

str_tcl = Tcl_GetStringFromObj(objv[7],NULL);

4659

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4660

strcpy(loc_buf,str_tcl);

4661

str = strtok_r(loc_buf," ", &str_token);

4662

for (i=0;i<IBVS_DATA_MAX;i++) {

4663

if (str == NULL) {

4664

break;

4665

}

4666

temp5[i] = (uint32_t)strtoll(str, (char **)NULL, 0);

4667

str = strtok_r(NULL," ",&str_token);

4668

}

4669

_arg6 = temp5;

4670

free(loc_buf);

4671

}

4672

{

4673

/* we can check if IBIS was initialized here */

4674

if (!IbisObj.initialized)

4675

{

4676

Tcl_SetStringObj(

4677

Tcl_GetObjResult(interp),

4678

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4679

return TCL_ERROR;

4680

}

4681

4682

if (! IbisObj.port_guid)

4683

{

4684

Tcl_SetStringObj(

4685

Tcl_GetObjResult(interp),

4686

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4687

return TCL_ERROR;

4688

}

4689

4690

ibis_tcl_error = 0;

4691

_result = (int )ibvs_multi_i2c_write_global(*_arg0,_arg1,*_arg2,*_arg3,*_arg4,*_arg5,_arg6,_arg7);

4692

;

4693

if (ibis_tcl_error) {

4694

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4695

return TCL_ERROR;

4696

}

4697

} tcl_result = Tcl_GetObjResult(interp);

4698

Tcl_SetIntObj(tcl_result,(long) _result);

4699

{

4700

Tcl_SetStringObj(tcl_result,*_arg7,strlen(*_arg7));

4701

if (*_arg7) free(*_arg7);

4702

}

4703

return TCL_OK;

4704

}

4705

static int _wrap_vsGpioRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4706

4707

int _result;

4708

uint16_t * _arg0;

4709

char ** _arg1;

4710

char * p_c;

4711

Tcl_Obj * tcl_result;

4712

uint16_t temp;

4713

4714

clientData = clientData; objv = objv;

4715

{

4716

_arg1 = &p_c;

4717

}

4718

tcl_result = Tcl_GetObjResult(interp);

4719

if ((objc < 2) || (objc > 2)) {

4720

Tcl_SetStringObj(tcl_result,"Wrong # args. vsGpioRead lid ",-1);

4721

return TCL_ERROR;

4722

}

4723

{

4724

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4725

_arg0 = &temp;

4726

}

4727

{

4728

/* we can check if IBIS was initialized here */

4729

if (!IbisObj.initialized)

4730

{

4731

Tcl_SetStringObj(

4732

Tcl_GetObjResult(interp),

4733

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4734

return TCL_ERROR;

4735

}

4736

4737

if (! IbisObj.port_guid)

4738

{

4739

Tcl_SetStringObj(

4740

Tcl_GetObjResult(interp),

4741

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4742

return TCL_ERROR;

4743

}

4744

4745

ibis_tcl_error = 0;

4746

_result = (int )ibvs_gpio_read_global(*_arg0,_arg1);

4747

;

4748

if (ibis_tcl_error) {

4749

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4750

return TCL_ERROR;

4751

}

4752

} tcl_result = Tcl_GetObjResult(interp);

4753

Tcl_SetIntObj(tcl_result,(long) _result);

4754

{

4755

Tcl_SetStringObj(tcl_result,*_arg1,strlen(*_arg1));

4756

if (*_arg1) free(*_arg1);

4757

}

4758

return TCL_OK;

4759

}

4760

static int _wrap_vsGpioWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4761

4762

int _result;

4763

uint16_t * _arg0;

4764

uint64_t * _arg1;

4765

uint64_t * _arg2;

4766

Tcl_Obj * tcl_result;

4767

uint16_t temp;

4768

uint64_t temp0;

4769

uint64_t temp1;

4770

4771

clientData = clientData; objv = objv;

4772

tcl_result = Tcl_GetObjResult(interp);

4773

if ((objc < 4) || (objc > 4)) {

4774

Tcl_SetStringObj(tcl_result,"Wrong # args. vsGpioWrite lid gpio_mask gpio_data ",-1);

4775

return TCL_ERROR;

4776

}

4777

{

4778

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4779

_arg0 = &temp;

4780

}

4781

{

4782

temp0 = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

4783

_arg1 = &temp0;

4784

}

4785

{

4786

temp1 = strtoull(Tcl_GetStringFromObj(objv[3],NULL), NULL,16);

4787

_arg2 = &temp1;

4788

}

4789

{

4790

/* we can check if IBIS was initialized here */

4791

if (!IbisObj.initialized)

4792

{

4793

Tcl_SetStringObj(

4794

Tcl_GetObjResult(interp),

4795

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4796

return TCL_ERROR;

4797

}

4798

4799

if (! IbisObj.port_guid)

4800

{

4801

Tcl_SetStringObj(

4802

Tcl_GetObjResult(interp),

4803

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4804

return TCL_ERROR;

4805

}

4806

4807

ibis_tcl_error = 0;

4808

_result = (int )ibvs_gpio_write_global(*_arg0,*_arg1,*_arg2);

4809

;

4810

if (ibis_tcl_error) {

4811

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4812

return TCL_ERROR;

4813

}

4814

} tcl_result = Tcl_GetObjResult(interp);

4815

Tcl_SetIntObj(tcl_result,(long) _result);

4816

return TCL_OK;

4817

}

4818

static int _wrap_vsSWReset(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4819

4820

int _result;

4821

uint8_t * _arg0;

4822

uint16_vs_arr_t * _arg1;

4823

Tcl_Obj * tcl_result;

4824

uint8_t temp;

4825

uint16_t temp0[IBVS_MULTI_MAX];

4826

4827

clientData = clientData; objv = objv;

4828

tcl_result = Tcl_GetObjResult(interp);

4829

if ((objc < 3) || (objc > 3)) {

4830

Tcl_SetStringObj(tcl_result,"Wrong # args. vsSWReset num lid_list ",-1);

4831

return TCL_ERROR;

4832

}

4833

{

4834

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4835

_arg0 = &temp;

4836

}

4837

{

4838

char *str;

4839

char *str_tcl;

4840

int i;

4841

char *loc_buf;

4842

char *str_token = NULL;

4843

4844

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

4845

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4846

strcpy(loc_buf,str_tcl);

4847

4848

str = strtok_r(loc_buf," ", &str_token);

4849

for (i=0;i<IBVS_MULTI_MAX;i++) {

4850

if (str == NULL) {

4851

break;

4852

}

4853

temp0[i] = atoi(str);

4854

str = strtok_r(NULL," ",&str_token);

4855

}

4856

_arg1 = temp0;

4857

free(loc_buf);

4858

}

4859

{

4860

/* we can check if IBIS was initialized here */

4861

if (!IbisObj.initialized)

4862

{

4863

Tcl_SetStringObj(

4864

Tcl_GetObjResult(interp),

4865

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4866

return TCL_ERROR;

4867

}

4868

4869

if (! IbisObj.port_guid)

4870

{

4871

Tcl_SetStringObj(

4872

Tcl_GetObjResult(interp),

4873

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4874

return TCL_ERROR;

4875

}

4876

4877

ibis_tcl_error = 0;

4878

_result = (int )ibvs_multi_sw_reset_global(*_arg0,_arg1);

4879

;

4880

if (ibis_tcl_error) {

4881

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4882

return TCL_ERROR;

4883

}

4884

} tcl_result = Tcl_GetObjResult(interp);

4885

Tcl_SetIntObj(tcl_result,(long) _result);

4886

return TCL_OK;

4887

}

4888

static int _wrap_vsFlashStartMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

4889

4890

int _result;

4891

uint8_t * _arg0;

4892

uint16_vs_arr_t * _arg1;

4893

uint32_t * _arg2;

4894

uint8_t * _arg3;

4895

uint32_t * _arg4;

4896

uint32_vs_data_arr_t * _arg5;

4897

char ** _arg6;

4898

char * p_c;

4899

Tcl_Obj * tcl_result;

4900

uint8_t temp;

4901

uint16_t temp0[IBVS_MULTI_MAX];

4902

uint32_t temp1;

4903

uint8_t temp2;

4904

uint32_t temp3;

4905

uint32_t temp4[IBVS_DATA_MAX];

4906

4907

clientData = clientData; objv = objv;

4908

{

4909

_arg6 = &p_c;

4910

}

4911

tcl_result = Tcl_GetObjResult(interp);

4912

if ((objc < 7) || (objc > 7)) {

4913

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashStartMulti num lid_list last size address data ",-1);

4914

return TCL_ERROR;

4915

}

4916

{

4917

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

4918

_arg0 = &temp;

4919

}

4920

{

4921

char *str;

4922

char *str_tcl;

4923

int i;

4924

char *loc_buf;

4925

char *str_token = NULL;

4926

4927

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

4928

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4929

strcpy(loc_buf,str_tcl);

4930

4931

str = strtok_r(loc_buf," ", &str_token);

4932

for (i=0;i<IBVS_MULTI_MAX;i++) {

4933

if (str == NULL) {

4934

break;

4935

}

4936

temp0[i] = atoi(str);

4937

str = strtok_r(NULL," ",&str_token);

4938

}

4939

_arg1 = temp0;

4940

free(loc_buf);

4941

}

4942

{

4943

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

4944

_arg2 = &temp1;

4945

}

4946

{

4947

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

4948

_arg3 = &temp2;

4949

}

4950

{

4951

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

4952

_arg4 = &temp3;

4953

}

4954

{

4955

char *str;

4956

char *str_tcl;

4957

int i;

4958

char *loc_buf;

4959

char *str_token = NULL;

4960

4961

str_tcl = Tcl_GetStringFromObj(objv[6],NULL);

4962

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

4963

strcpy(loc_buf,str_tcl);

4964

str = strtok_r(loc_buf," ", &str_token);

4965

for (i=0;i<IBVS_DATA_MAX;i++) {

4966

if (str == NULL) {

4967

break;

4968

}

4969

temp4[i] = (uint32_t)strtoll(str, (char **)NULL, 0);

4970

str = strtok_r(NULL," ",&str_token);

4971

}

4972

_arg5 = temp4;

4973

free(loc_buf);

4974

}

4975

{

4976

/* we can check if IBIS was initialized here */

4977

if (!IbisObj.initialized)

4978

{

4979

Tcl_SetStringObj(

4980

Tcl_GetObjResult(interp),

4981

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

4982

return TCL_ERROR;

4983

}

4984

4985

if (! IbisObj.port_guid)

4986

{

4987

Tcl_SetStringObj(

4988

Tcl_GetObjResult(interp),

4989

" ibis was not yet initialized. please use ibis_set_port before.", -1);

4990

return TCL_ERROR;

4991

}

4992

4993

ibis_tcl_error = 0;

4994

_result = (int )ibvs_multi_flash_open_global(*_arg0,_arg1,*_arg2,*_arg3,*_arg4,_arg5,_arg6);

4995

;

4996

if (ibis_tcl_error) {

4997

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

4998

return TCL_ERROR;

4999

}

5000

} tcl_result = Tcl_GetObjResult(interp);

5001

Tcl_SetIntObj(tcl_result,(long) _result);

5002

{

5003

Tcl_SetStringObj(tcl_result,*_arg6,strlen(*_arg6));

5004

if (*_arg6) free(*_arg6);

5005

}

5006

return TCL_OK;

5007

}

5008

static int _wrap_vsFlashStopMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5009

5010

int _result;

5011

uint8_t * _arg0;

5012

uint16_vs_arr_t * _arg1;

5013

uint32_t * _arg2;

5014

char ** _arg3;

5015

char * p_c;

5016

Tcl_Obj * tcl_result;

5017

uint8_t temp;

5018

uint16_t temp0[IBVS_MULTI_MAX];

5019

uint32_t temp1;

5020

5021

clientData = clientData; objv = objv;

5022

{

5023

_arg3 = &p_c;

5024

}

5025

tcl_result = Tcl_GetObjResult(interp);

5026

if ((objc < 4) || (objc > 4)) {

5027

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashStopMulti num lid_list force ",-1);

5028

return TCL_ERROR;

5029

}

5030

{

5031

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5032

_arg0 = &temp;

5033

}

5034

{

5035

char *str;

5036

char *str_tcl;

5037

int i;

5038

char *loc_buf;

5039

char *str_token = NULL;

5040

5041

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

5042

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5043

strcpy(loc_buf,str_tcl);

5044

5045

str = strtok_r(loc_buf," ", &str_token);

5046

for (i=0;i<IBVS_MULTI_MAX;i++) {

5047

if (str == NULL) {

5048

break;

5049

}

5050

temp0[i] = atoi(str);

5051

str = strtok_r(NULL," ",&str_token);

5052

}

5053

_arg1 = temp0;

5054

free(loc_buf);

5055

}

5056

{

5057

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5058

_arg2 = &temp1;

5059

}

5060

{

5061

/* we can check if IBIS was initialized here */

5062

if (!IbisObj.initialized)

5063

{

5064

Tcl_SetStringObj(

5065

Tcl_GetObjResult(interp),

5066

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5067

return TCL_ERROR;

5068

}

5069

5070

if (! IbisObj.port_guid)

5071

{

5072

Tcl_SetStringObj(

5073

Tcl_GetObjResult(interp),

5074

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5075

return TCL_ERROR;

5076

}

5077

5078

ibis_tcl_error = 0;

5079

_result = (int )ibvs_multi_flash_close_global(*_arg0,_arg1,*_arg2,_arg3);

5080

;

5081

if (ibis_tcl_error) {

5082

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5083

return TCL_ERROR;

5084

}

5085

} tcl_result = Tcl_GetObjResult(interp);

5086

Tcl_SetIntObj(tcl_result,(long) _result);

5087

{

5088

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

5089

if (*_arg3) free(*_arg3);

5090

}

5091

return TCL_OK;

5092

}

5093

static int _wrap_vsFlashSetBankMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5094

5095

int _result;

5096

uint8_t * _arg0;

5097

uint16_vs_arr_t * _arg1;

5098

uint32_t * _arg2;

5099

char ** _arg3;

5100

char * p_c;

5101

Tcl_Obj * tcl_result;

5102

uint8_t temp;

5103

uint16_t temp0[IBVS_MULTI_MAX];

5104

uint32_t temp1;

5105

5106

clientData = clientData; objv = objv;

5107

{

5108

_arg3 = &p_c;

5109

}

5110

tcl_result = Tcl_GetObjResult(interp);

5111

if ((objc < 4) || (objc > 4)) {

5112

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashSetBankMulti num lid_list address ",-1);

5113

return TCL_ERROR;

5114

}

5115

{

5116

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5117

_arg0 = &temp;

5118

}

5119

{

5120

char *str;

5121

char *str_tcl;

5122

int i;

5123

char *loc_buf;

5124

char *str_token = NULL;

5125

5126

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

5127

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5128

strcpy(loc_buf,str_tcl);

5129

5130

str = strtok_r(loc_buf," ", &str_token);

5131

for (i=0;i<IBVS_MULTI_MAX;i++) {

5132

if (str == NULL) {

5133

break;

5134

}

5135

temp0[i] = atoi(str);

5136

str = strtok_r(NULL," ",&str_token);

5137

}

5138

_arg1 = temp0;

5139

free(loc_buf);

5140

}

5141

{

5142

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5143

_arg2 = &temp1;

5144

}

5145

{

5146

/* we can check if IBIS was initialized here */

5147

if (!IbisObj.initialized)

5148

{

5149

Tcl_SetStringObj(

5150

Tcl_GetObjResult(interp),

5151

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5152

return TCL_ERROR;

5153

}

5154

5155

if (! IbisObj.port_guid)

5156

{

5157

Tcl_SetStringObj(

5158

Tcl_GetObjResult(interp),

5159

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5160

return TCL_ERROR;

5161

}

5162

5163

ibis_tcl_error = 0;

5164

_result = (int )ibvs_multi_flash_set_bank_global(*_arg0,_arg1,*_arg2,_arg3);

5165

;

5166

if (ibis_tcl_error) {

5167

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5168

return TCL_ERROR;

5169

}

5170

} tcl_result = Tcl_GetObjResult(interp);

5171

Tcl_SetIntObj(tcl_result,(long) _result);

5172

{

5173

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

5174

if (*_arg3) free(*_arg3);

5175

}

5176

return TCL_OK;

5177

}

5178

static int _wrap_vsFlashEraseSectorMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5179

5180

int _result;

5181

uint8_t * _arg0;

5182

uint16_vs_arr_t * _arg1;

5183

uint32_t * _arg2;

5184

char ** _arg3;

5185

char * p_c;

5186

Tcl_Obj * tcl_result;

5187

uint8_t temp;

5188

uint16_t temp0[IBVS_MULTI_MAX];

5189

uint32_t temp1;

5190

5191

clientData = clientData; objv = objv;

5192

{

5193

_arg3 = &p_c;

5194

}

5195

tcl_result = Tcl_GetObjResult(interp);

5196

if ((objc < 4) || (objc > 4)) {

5197

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashEraseSectorMulti num lid_list address ",-1);

5198

return TCL_ERROR;

5199

}

5200

{

5201

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5202

_arg0 = &temp;

5203

}

5204

{

5205

char *str;

5206

char *str_tcl;

5207

int i;

5208

char *loc_buf;

5209

char *str_token = NULL;

5210

5211

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

5212

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5213

strcpy(loc_buf,str_tcl);

5214

5215

str = strtok_r(loc_buf," ", &str_token);

5216

for (i=0;i<IBVS_MULTI_MAX;i++) {

5217

if (str == NULL) {

5218

break;

5219

}

5220

temp0[i] = atoi(str);

5221

str = strtok_r(NULL," ",&str_token);

5222

}

5223

_arg1 = temp0;

5224

free(loc_buf);

5225

}

5226

{

5227

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5228

_arg2 = &temp1;

5229

}

5230

{

5231

/* we can check if IBIS was initialized here */

5232

if (!IbisObj.initialized)

5233

{

5234

Tcl_SetStringObj(

5235

Tcl_GetObjResult(interp),

5236

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5237

return TCL_ERROR;

5238

}

5239

5240

if (! IbisObj.port_guid)

5241

{

5242

Tcl_SetStringObj(

5243

Tcl_GetObjResult(interp),

5244

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5245

return TCL_ERROR;

5246

}

5247

5248

ibis_tcl_error = 0;

5249

_result = (int )ibvs_multi_flash_erase_global(*_arg0,_arg1,*_arg2,_arg3);

5250

;

5251

if (ibis_tcl_error) {

5252

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5253

return TCL_ERROR;

5254

}

5255

} tcl_result = Tcl_GetObjResult(interp);

5256

Tcl_SetIntObj(tcl_result,(long) _result);

5257

{

5258

Tcl_SetStringObj(tcl_result,*_arg3,strlen(*_arg3));

5259

if (*_arg3) free(*_arg3);

5260

}

5261

return TCL_OK;

5262

}

5263

static int _wrap_vsFlashReadSectorMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5264

5265

int _result;

5266

uint8_t * _arg0;

5267

uint16_vs_arr_t * _arg1;

5268

uint8_t * _arg2;

5269

uint32_t * _arg3;

5270

char ** _arg4;

5271

char * p_c;

5272

Tcl_Obj * tcl_result;

5273

uint8_t temp;

5274

uint16_t temp0[IBVS_MULTI_MAX];

5275

uint8_t temp1;

5276

uint32_t temp2;

5277

5278

clientData = clientData; objv = objv;

5279

{

5280

_arg4 = &p_c;

5281

}

5282

tcl_result = Tcl_GetObjResult(interp);

5283

if ((objc < 5) || (objc > 5)) {

5284

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashReadSectorMulti num lid_list size address ",-1);

5285

return TCL_ERROR;

5286

}

5287

{

5288

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5289

_arg0 = &temp;

5290

}

5291

{

5292

char *str;

5293

char *str_tcl;

5294

int i;

5295

char *loc_buf;

5296

char *str_token = NULL;

5297

5298

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

5299

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5300

strcpy(loc_buf,str_tcl);

5301

5302

str = strtok_r(loc_buf," ", &str_token);

5303

for (i=0;i<IBVS_MULTI_MAX;i++) {

5304

if (str == NULL) {

5305

break;

5306

}

5307

temp0[i] = atoi(str);

5308

str = strtok_r(NULL," ",&str_token);

5309

}

5310

_arg1 = temp0;

5311

free(loc_buf);

5312

}

5313

{

5314

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5315

_arg2 = &temp1;

5316

}

5317

{

5318

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

5319

_arg3 = &temp2;

5320

}

5321

{

5322

/* we can check if IBIS was initialized here */

5323

if (!IbisObj.initialized)

5324

{

5325

Tcl_SetStringObj(

5326

Tcl_GetObjResult(interp),

5327

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5328

return TCL_ERROR;

5329

}

5330

5331

if (! IbisObj.port_guid)

5332

{

5333

Tcl_SetStringObj(

5334

Tcl_GetObjResult(interp),

5335

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5336

return TCL_ERROR;

5337

}

5338

5339

ibis_tcl_error = 0;

5340

_result = (int )ibvs_multi_flash_read_global(*_arg0,_arg1,*_arg2,*_arg3,_arg4);

5341

;

5342

if (ibis_tcl_error) {

5343

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5344

return TCL_ERROR;

5345

}

5346

} tcl_result = Tcl_GetObjResult(interp);

5347

Tcl_SetIntObj(tcl_result,(long) _result);

5348

{

5349

Tcl_SetStringObj(tcl_result,*_arg4,strlen(*_arg4));

5350

if (*_arg4) free(*_arg4);

5351

}

5352

return TCL_OK;

5353

}

5354

static int _wrap_vsFlashWriteSectorMulti(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5355

5356

int _result;

5357

uint8_t * _arg0;

5358

uint16_vs_arr_t * _arg1;

5359

uint8_t * _arg2;

5360

uint32_t * _arg3;

5361

uint32_vs_data_arr_t * _arg4;

5362

Tcl_Obj * tcl_result;

5363

uint8_t temp;

5364

uint16_t temp0[IBVS_MULTI_MAX];

5365

uint8_t temp1;

5366

uint32_t temp2;

5367

uint32_t temp3[IBVS_DATA_MAX];

5368

5369

clientData = clientData; objv = objv;

5370

tcl_result = Tcl_GetObjResult(interp);

5371

if ((objc < 6) || (objc > 6)) {

5372

Tcl_SetStringObj(tcl_result,"Wrong # args. vsFlashWriteSectorMulti num lid_list size address data ",-1);

5373

return TCL_ERROR;

5374

}

5375

{

5376

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5377

_arg0 = &temp;

5378

}

5379

{

5380

char *str;

5381

char *str_tcl;

5382

int i;

5383

char *loc_buf;

5384

char *str_token = NULL;

5385

5386

str_tcl = Tcl_GetStringFromObj(objv[2],NULL);

5387

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5388

strcpy(loc_buf,str_tcl);

5389

5390

str = strtok_r(loc_buf," ", &str_token);

5391

for (i=0;i<IBVS_MULTI_MAX;i++) {

5392

if (str == NULL) {

5393

break;

5394

}

5395

temp0[i] = atoi(str);

5396

str = strtok_r(NULL," ",&str_token);

5397

}

5398

_arg1 = temp0;

5399

free(loc_buf);

5400

}

5401

{

5402

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5403

_arg2 = &temp1;

5404

}

5405

{

5406

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

5407

_arg3 = &temp2;

5408

}

5409

{

5410

char *str;

5411

char *str_tcl;

5412

int i;

5413

char *loc_buf;

5414

char *str_token = NULL;

5415

5416

str_tcl = Tcl_GetStringFromObj(objv[5],NULL);

5417

loc_buf = (char *)malloc((strlen(str_tcl)+1)*sizeof(char));

5418

strcpy(loc_buf,str_tcl);

5419

str = strtok_r(loc_buf," ", &str_token);

5420

for (i=0;i<IBVS_DATA_MAX;i++) {

5421

if (str == NULL) {

5422

break;

5423

}

5424

temp3[i] = (uint32_t)strtoll(str, (char **)NULL, 0);

5425

str = strtok_r(NULL," ",&str_token);

5426

}

5427

_arg4 = temp3;

5428

free(loc_buf);

5429

}

5430

{

5431

/* we can check if IBIS was initialized here */

5432

if (!IbisObj.initialized)

5433

{

5434

Tcl_SetStringObj(

5435

Tcl_GetObjResult(interp),

5436

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5437

return TCL_ERROR;

5438

}

5439

5440

if (! IbisObj.port_guid)

5441

{

5442

Tcl_SetStringObj(

5443

Tcl_GetObjResult(interp),

5444

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5445

return TCL_ERROR;

5446

}

5447

5448

ibis_tcl_error = 0;

5449

_result = (int )ibvs_multi_flash_write_global(*_arg0,_arg1,*_arg2,*_arg3,_arg4);

5450

;

5451

if (ibis_tcl_error) {

5452

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5453

return TCL_ERROR;

5454

}

5455

} tcl_result = Tcl_GetObjResult(interp);

5456

Tcl_SetIntObj(tcl_result,(long) _result);

5457

return TCL_OK;

5458

}

5459

static int _wrap_vsMirrorRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5460

5461

int _result;

5462

uint16_t * _arg0;

5463

char ** _arg1;

5464

char * p_c;

5465

Tcl_Obj * tcl_result;

5466

uint16_t temp;

5467

5468

clientData = clientData; objv = objv;

5469

{

5470

_arg1 = &p_c;

5471

}

5472

tcl_result = Tcl_GetObjResult(interp);

5473

if ((objc < 2) || (objc > 2)) {

5474

Tcl_SetStringObj(tcl_result,"Wrong # args. vsMirrorRead lid ",-1);

5475

return TCL_ERROR;

5476

}

5477

{

5478

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5479

_arg0 = &temp;

5480

}

5481

{

5482

/* we can check if IBIS was initialized here */

5483

if (!IbisObj.initialized)

5484

{

5485

Tcl_SetStringObj(

5486

Tcl_GetObjResult(interp),

5487

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5488

return TCL_ERROR;

5489

}

5490

5491

if (! IbisObj.port_guid)

5492

{

5493

Tcl_SetStringObj(

5494

Tcl_GetObjResult(interp),

5495

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5496

return TCL_ERROR;

5497

}

5498

5499

ibis_tcl_error = 0;

5500

_result = (int )ibvs_mirror_read_global(*_arg0,_arg1);

5501

;

5502

if (ibis_tcl_error) {

5503

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5504

return TCL_ERROR;

5505

}

5506

} tcl_result = Tcl_GetObjResult(interp);

5507

Tcl_SetIntObj(tcl_result,(long) _result);

5508

{

5509

Tcl_SetStringObj(tcl_result,*_arg1,strlen(*_arg1));

5510

if (*_arg1) free(*_arg1);

5511

}

5512

return TCL_OK;

5513

}

5514

static int _wrap_vsMirrorWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5515

5516

int _result;

5517

uint16_t * _arg0;

5518

uint32_t * _arg1;

5519

uint32_t * _arg2;

5520

Tcl_Obj * tcl_result;

5521

uint16_t temp;

5522

uint32_t temp0;

5523

uint32_t temp1;

5524

5525

clientData = clientData; objv = objv;

5526

tcl_result = Tcl_GetObjResult(interp);

5527

if ((objc < 4) || (objc > 4)) {

5528

Tcl_SetStringObj(tcl_result,"Wrong # args. vsMirrorWrite lid rx_mirror tx_mirror ",-1);

5529

return TCL_ERROR;

5530

}

5531

{

5532

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5533

_arg0 = &temp;

5534

}

5535

{

5536

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

5537

_arg1 = &temp0;

5538

}

5539

{

5540

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5541

_arg2 = &temp1;

5542

}

5543

{

5544

/* we can check if IBIS was initialized here */

5545

if (!IbisObj.initialized)

5546

{

5547

Tcl_SetStringObj(

5548

Tcl_GetObjResult(interp),

5549

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5550

return TCL_ERROR;

5551

}

5552

5553

if (! IbisObj.port_guid)

5554

{

5555

Tcl_SetStringObj(

5556

Tcl_GetObjResult(interp),

5557

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5558

return TCL_ERROR;

5559

}

5560

5561

ibis_tcl_error = 0;

5562

_result = (int )ibvs_mirror_write_global(*_arg0,*_arg1,*_arg2);

5563

;

5564

if (ibis_tcl_error) {

5565

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5566

return TCL_ERROR;

5567

}

5568

} tcl_result = Tcl_GetObjResult(interp);

5569

Tcl_SetIntObj(tcl_result,(long) _result);

5570

return TCL_OK;

5571

}

5572

static int _wrap_vsGetGeneralInfo(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5573

5574

int _result;

5575

uint16_t * _arg0;

5576

char ** _arg1;

5577

char * p_c;

5578

Tcl_Obj * tcl_result;

5579

uint16_t temp;

5580

5581

clientData = clientData; objv = objv;

5582

{

5583

_arg1 = &p_c;

5584

}

5585

tcl_result = Tcl_GetObjResult(interp);

5586

if ((objc < 2) || (objc > 2)) {

5587

Tcl_SetStringObj(tcl_result,"Wrong # args. vsGetGeneralInfo lid ",-1);

5588

return TCL_ERROR;

5589

}

5590

{

5591

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5592

_arg0 = &temp;

5593

}

5594

{

5595

/* we can check if IBIS was initialized here */

5596

if (!IbisObj.initialized)

5597

{

5598

Tcl_SetStringObj(

5599

Tcl_GetObjResult(interp),

5600

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5601

return TCL_ERROR;

5602

}

5603

5604

if (! IbisObj.port_guid)

5605

{

5606

Tcl_SetStringObj(

5607

Tcl_GetObjResult(interp),

5608

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5609

return TCL_ERROR;

5610

}

5611

5612

ibis_tcl_error = 0;

5613

_result = (int )ibvs_general_info_get_global(*_arg0,_arg1);

5614

;

5615

if (ibis_tcl_error) {

5616

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5617

return TCL_ERROR;

5618

}

5619

} tcl_result = Tcl_GetObjResult(interp);

5620

Tcl_SetIntObj(tcl_result,(long) _result);

5621

{

5622

Tcl_SetStringObj(tcl_result,*_arg1,strlen(*_arg1));

5623

if (*_arg1) free(*_arg1);

5624

}

5625

return TCL_OK;

5626

}

5627

static int _wrap_vsGetPrivateLFTMap(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5628

5629

int _result;

5630

uint16_t * _arg0;

5631

uint8_t * _arg1;

5632

char ** _arg2;

5633

char * p_c;

5634

Tcl_Obj * tcl_result;

5635

uint16_t temp;

5636

uint8_t temp0;

5637

5638

clientData = clientData; objv = objv;

5639

{

5640

_arg2 = &p_c;

5641

}

5642

tcl_result = Tcl_GetObjResult(interp);

5643

if ((objc < 3) || (objc > 3)) {

5644

Tcl_SetStringObj(tcl_result,"Wrong # args. vsGetPrivateLFTMap lid upper_ports ",-1);

5645

return TCL_ERROR;

5646

}

5647

{

5648

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5649

_arg0 = &temp;

5650

}

5651

{

5652

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

5653

_arg1 = &temp0;

5654

}

5655

{

5656

/* we can check if IBIS was initialized here */

5657

if (!IbisObj.initialized)

5658

{

5659

Tcl_SetStringObj(

5660

Tcl_GetObjResult(interp),

5661

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5662

return TCL_ERROR;

5663

}

5664

5665

if (! IbisObj.port_guid)

5666

{

5667

Tcl_SetStringObj(

5668

Tcl_GetObjResult(interp),

5669

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5670

return TCL_ERROR;

5671

}

5672

5673

ibis_tcl_error = 0;

5674

_result = (int )ibvs_plft_map_get_global(*_arg0,*_arg1,_arg2);

5675

;

5676

if (ibis_tcl_error) {

5677

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5678

return TCL_ERROR;

5679

}

5680

} tcl_result = Tcl_GetObjResult(interp);

5681

Tcl_SetIntObj(tcl_result,(long) _result);

5682

{

5683

Tcl_SetStringObj(tcl_result,*_arg2,strlen(*_arg2));

5684

if (*_arg2) free(*_arg2);

5685

}

5686

return TCL_OK;

5687

}

5688

static int _wrap_bbmVpdRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5689

5690

int _result;

5691

uint16_t * _arg0;

5692

uint8_t * _arg1;

5693

uint16_t * _arg2;

5694

uint16_t * _arg3;

5695

ib_bbm_vpd_t * _arg4;

5696

ib_bbm_vpd_t temp;

5697

Tcl_Obj * tcl_result;

5698

uint16_t temp0;

5699

uint8_t temp1;

5700

uint16_t temp2;

5701

uint16_t temp3;

5702

5703

clientData = clientData; objv = objv;

5704

{

5705

_arg4 = &temp;

5706

}

5707

tcl_result = Tcl_GetObjResult(interp);

5708

if ((objc < 5) || (objc > 5)) {

5709

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmVpdRead lid vpd_device_selector bytes_num offset ",-1);

5710

return TCL_ERROR;

5711

}

5712

{

5713

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5714

_arg0 = &temp0;

5715

}

5716

{

5717

temp1 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

5718

_arg1 = &temp1;

5719

}

5720

{

5721

temp2 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5722

_arg2 = &temp2;

5723

}

5724

{

5725

temp3 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

5726

_arg3 = &temp3;

5727

}

5728

{

5729

/* we can check if IBIS was initialized here */

5730

if (!IbisObj.initialized)

5731

{

5732

Tcl_SetStringObj(

5733

Tcl_GetObjResult(interp),

5734

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5735

return TCL_ERROR;

5736

}

5737

5738

if (! IbisObj.port_guid)

5739

{

5740

Tcl_SetStringObj(

5741

Tcl_GetObjResult(interp),

5742

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5743

return TCL_ERROR;

5744

}

5745

5746

ibis_tcl_error = 0;

5747

_result = (int )ibbbm_read_vpd_global(*_arg0,*_arg1,*_arg2,*_arg3,_arg4);

5748

;

5749

if (ibis_tcl_error) {

5750

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5751

return TCL_ERROR;

5752

}

5753

} tcl_result = Tcl_GetObjResult(interp);

5754

Tcl_SetIntObj(tcl_result,(long) _result);

5755

{

5756

if (_arg4) {

5757

static char buff[1624];

5758

static int i;

5759

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x } {device_sel 0x%x } {bytes_num 0x%x } {offset 0x%x }",

5760

cl_ntoh64(_arg4->b_key),

5761

cl_ntoh16(_arg4->bm_sequence),

5762

(_arg4->vpd_device_selector),

5763

cl_ntoh16(_arg4->bytes_num),

5764

cl_ntoh16(_arg4->offset));

5765

for (i=0;i<cl_ntoh16(_arg4->bytes_num);i++) {

5766

sprintf(buff,"%s {data%u 0x%x} ",buff,i,_arg4->data[i]);

5767

};

5768

5769

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

5770

} else {

5771

Tcl_SetStringObj(tcl_result, "", 0);

5772

}

5773

}

5774

return TCL_OK;

5775

}

5776

static int _wrap_bbmVpdWrite(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5777

5778

int _result;

5779

uint16_t * _arg0;

5780

uint8_t * _arg1;

5781

uint16_t * _arg2;

5782

uint16_t * _arg3;

5783

uint8_t * _arg4;

5784

Tcl_Obj * tcl_result;

5785

uint16_t temp;

5786

uint8_t temp0;

5787

uint16_t temp1;

5788

uint16_t temp2;

5789

uint8_t temp3;

5790

5791

clientData = clientData; objv = objv;

5792

tcl_result = Tcl_GetObjResult(interp);

5793

if ((objc < 6) || (objc > 6)) {

5794

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmVpdWrite lid vpd_device_selector bytes_num offset p_data ",-1);

5795

return TCL_ERROR;

5796

}

5797

{

5798

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5799

_arg0 = &temp;

5800

}

5801

{

5802

temp0 = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

5803

_arg1 = &temp0;

5804

}

5805

{

5806

temp1 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

5807

_arg2 = &temp1;

5808

}

5809

{

5810

temp2 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

5811

_arg3 = &temp2;

5812

}

5813

{

5814

temp3 = strtoul(Tcl_GetStringFromObj(objv[5],NULL), NULL, 0);

5815

_arg4 = &temp3;

5816

}

5817

{

5818

/* we can check if IBIS was initialized here */

5819

if (!IbisObj.initialized)

5820

{

5821

Tcl_SetStringObj(

5822

Tcl_GetObjResult(interp),

5823

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5824

return TCL_ERROR;

5825

}

5826

5827

if (! IbisObj.port_guid)

5828

{

5829

Tcl_SetStringObj(

5830

Tcl_GetObjResult(interp),

5831

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5832

return TCL_ERROR;

5833

}

5834

5835

ibis_tcl_error = 0;

5836

_result = (int )ibbbm_write_vpd_global(*_arg0,*_arg1,*_arg2,*_arg3,_arg4);

5837

;

5838

if (ibis_tcl_error) {

5839

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5840

return TCL_ERROR;

5841

}

5842

} tcl_result = Tcl_GetObjResult(interp);

5843

Tcl_SetIntObj(tcl_result,(long) _result);

5844

return TCL_OK;

5845

}

5846

static int _wrap_bbmVSDRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5847

5848

int _result;

5849

uint16_t * _arg0;

5850

ib_bbm_bsn_vpd_t * _arg1;

5851

ib_bbm_bsn_vpd_t temp;

5852

Tcl_Obj * tcl_result;

5853

uint16_t temp0;

5854

5855

clientData = clientData; objv = objv;

5856

{

5857

_arg1 = &temp;

5858

}

5859

tcl_result = Tcl_GetObjResult(interp);

5860

if ((objc < 2) || (objc > 2)) {

5861

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmVSDRead lid ",-1);

5862

return TCL_ERROR;

5863

}

5864

{

5865

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5866

_arg0 = &temp0;

5867

}

5868

{

5869

/* we can check if IBIS was initialized here */

5870

if (!IbisObj.initialized)

5871

{

5872

Tcl_SetStringObj(

5873

Tcl_GetObjResult(interp),

5874

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5875

return TCL_ERROR;

5876

}

5877

5878

if (! IbisObj.port_guid)

5879

{

5880

Tcl_SetStringObj(

5881

Tcl_GetObjResult(interp),

5882

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5883

return TCL_ERROR;

5884

}

5885

5886

ibis_tcl_error = 0;

5887

_result = (int )ibbbm_read_bsn_vpd_global(*_arg0,_arg1);

5888

;

5889

if (ibis_tcl_error) {

5890

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5891

return TCL_ERROR;

5892

}

5893

} tcl_result = Tcl_GetObjResult(interp);

5894

Tcl_SetIntObj(tcl_result,(long) _result);

5895

{

5896

if (_arg1) {

5897

static char buff[512];

5898

static int j;

5899

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x} {device_sel 0x%x} {bytes_num 0x%x} {offset 0x%x}",

5900

cl_ntoh64(_arg1->b_key),

5901

cl_ntoh16(_arg1->bm_sequence),

5902

(_arg1->vpd_device_selector),

5903

cl_ntoh16(_arg1->bytes_num),

5904

cl_ntoh16(_arg1->offset));

5905

for (j=0;j<IBBBM_BSN_VPD_SIZE;j++) {

5906

sprintf(buff,"%s {bsn%u 0x%x} ",buff,j,_arg1->bsn[j]);

5907

};

5908

5909

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

5910

} else {

5911

Tcl_SetStringObj(tcl_result, "", 0);

5912

}

5913

}

5914

return TCL_OK;

5915

}

5916

static int _wrap_bbmBSNRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5917

5918

int _result;

5919

uint16_t * _arg0;

5920

ib_bbm_bsn_vpd_t * _arg1;

5921

ib_bbm_bsn_vpd_t temp;

5922

Tcl_Obj * tcl_result;

5923

uint16_t temp0;

5924

5925

clientData = clientData; objv = objv;

5926

{

5927

_arg1 = &temp;

5928

}

5929

tcl_result = Tcl_GetObjResult(interp);

5930

if ((objc < 2) || (objc > 2)) {

5931

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmBSNRead lid ",-1);

5932

return TCL_ERROR;

5933

}

5934

{

5935

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

5936

_arg0 = &temp0;

5937

}

5938

{

5939

/* we can check if IBIS was initialized here */

5940

if (!IbisObj.initialized)

5941

{

5942

Tcl_SetStringObj(

5943

Tcl_GetObjResult(interp),

5944

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

5945

return TCL_ERROR;

5946

}

5947

5948

if (! IbisObj.port_guid)

5949

{

5950

Tcl_SetStringObj(

5951

Tcl_GetObjResult(interp),

5952

" ibis was not yet initialized. please use ibis_set_port before.", -1);

5953

return TCL_ERROR;

5954

}

5955

5956

ibis_tcl_error = 0;

5957

_result = (int )ibbbm_read_bsn_vpd_global(*_arg0,_arg1);

5958

;

5959

if (ibis_tcl_error) {

5960

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

5961

return TCL_ERROR;

5962

}

5963

} tcl_result = Tcl_GetObjResult(interp);

5964

Tcl_SetIntObj(tcl_result,(long) _result);

5965

{

5966

if (_arg1) {

5967

static char buff[512];

5968

static int j;

5969

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x} {device_sel 0x%x} {bytes_num 0x%x} {offset 0x%x}",

5970

cl_ntoh64(_arg1->b_key),

5971

cl_ntoh16(_arg1->bm_sequence),

5972

(_arg1->vpd_device_selector),

5973

cl_ntoh16(_arg1->bytes_num),

5974

cl_ntoh16(_arg1->offset));

5975

for (j=0;j<IBBBM_BSN_VPD_SIZE;j++) {

5976

sprintf(buff,"%s {bsn%u 0x%x} ",buff,j,_arg1->bsn[j]);

5977

};

5978

5979

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

5980

} else {

5981

Tcl_SetStringObj(tcl_result, "", 0);

5982

}

5983

}

5984

return TCL_OK;

5985

}

5986

static int _wrap_bbmModRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

5987

5988

int _result;

5989

uint16_t * _arg0;

5990

ib_bbm_mod_vpd_t * _arg1;

5991

ib_bbm_mod_vpd_t temp;

5992

Tcl_Obj * tcl_result;

5993

uint16_t temp0;

5994

5995

clientData = clientData; objv = objv;

5996

{

5997

_arg1 = &temp;

5998

}

5999

tcl_result = Tcl_GetObjResult(interp);

6000

if ((objc < 2) || (objc > 2)) {

6001

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmModRead lid ",-1);

6002

return TCL_ERROR;

6003

}

6004

{

6005

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

6006

_arg0 = &temp0;

6007

}

6008

{

6009

/* we can check if IBIS was initialized here */

6010

if (!IbisObj.initialized)

6011

{

6012

Tcl_SetStringObj(

6013

Tcl_GetObjResult(interp),

6014

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6015

return TCL_ERROR;

6016

}

6017

6018

if (! IbisObj.port_guid)

6019

{

6020

Tcl_SetStringObj(

6021

Tcl_GetObjResult(interp),

6022

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6023

return TCL_ERROR;

6024

}

6025

6026

ibis_tcl_error = 0;

6027

_result = (int )ibbbm_read_mod_vpd_global(*_arg0,_arg1);

6028

;

6029

if (ibis_tcl_error) {

6030

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6031

return TCL_ERROR;

6032

}

6033

} tcl_result = Tcl_GetObjResult(interp);

6034

Tcl_SetIntObj(tcl_result,(long) _result);

6035

{

6036

if (_arg1) {

6037

static char buff[1624];

6038

static int i;

6039

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x } {device_sel 0x%x } {bytes_num 0x%x } {offset 0x%x } {temp_sensor_count 0x%x }",

6040

cl_ntoh64(_arg1->b_key),

6041

cl_ntoh16(_arg1->bm_sequence),

6042

(_arg1->vpd_device_selector),

6043

cl_ntoh16(_arg1->bytes_num),

6044

cl_ntoh16(_arg1->offset),

6045

_arg1->temp_sensor_count);

6046

6047

for (i=0;i<IBBBM_MOD_VPD_TEMP_SIZE;i++) {

6048

sprintf(buff,"%s {temp%u 0x%x} ",buff,i+1,cl_ntoh16(_arg1->temp_sensor_record[i]));

6049

};

6050

6051

sprintf(buff,"%s {power_sup_count 0x%x} ",buff,_arg1->power_sup_count);

6052

6053

for (i=0;i<IBBBM_MOD_VPD_PWR_SIZE;i++) {

6054

sprintf(buff,"%s {power%u 0x%x} ",buff,i+1,cl_ntoh32(_arg1->power_sup_record[i]));

6055

};

6056

6057

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

6058

} else {

6059

Tcl_SetStringObj(tcl_result, "", 0);

6060

}

6061

}

6062

return TCL_OK;

6063

}

6064

static int _wrap_bbmChaRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6065

6066

int _result;

6067

uint16_t * _arg0;

6068

ib_bbm_cha_vpd_t * _arg1;

6069

ib_bbm_cha_vpd_t temp;

6070

Tcl_Obj * tcl_result;

6071

uint16_t temp0;

6072

6073

clientData = clientData; objv = objv;

6074

{

6075

_arg1 = &temp;

6076

}

6077

tcl_result = Tcl_GetObjResult(interp);

6078

if ((objc < 2) || (objc > 2)) {

6079

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmChaRead lid ",-1);

6080

return TCL_ERROR;

6081

}

6082

{

6083

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

6084

_arg0 = &temp0;

6085

}

6086

{

6087

/* we can check if IBIS was initialized here */

6088

if (!IbisObj.initialized)

6089

{

6090

Tcl_SetStringObj(

6091

Tcl_GetObjResult(interp),

6092

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6093

return TCL_ERROR;

6094

}

6095

6096

if (! IbisObj.port_guid)

6097

{

6098

Tcl_SetStringObj(

6099

Tcl_GetObjResult(interp),

6100

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6101

return TCL_ERROR;

6102

}

6103

6104

ibis_tcl_error = 0;

6105

_result = (int )ibbbm_read_cha_vpd_global(*_arg0,_arg1);

6106

;

6107

if (ibis_tcl_error) {

6108

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6109

return TCL_ERROR;

6110

}

6111

} tcl_result = Tcl_GetObjResult(interp);

6112

Tcl_SetIntObj(tcl_result,(long) _result);

6113

{

6114

if (_arg1) {

6115

static char buff[1624];

6116

static int i;

6117

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x } {device_sel 0x%x } {bytes_num 0x%x } {offset 0x%x } {temp_sensor_count 0x%x }",

6118

cl_ntoh64(_arg1->b_key),

6119

cl_ntoh16(_arg1->bm_sequence),

6120

(_arg1->vpd_device_selector),

6121

cl_ntoh16(_arg1->bytes_num),

6122

cl_ntoh16(_arg1->offset),

6123

_arg1->temp_sensor_count);

6124

6125

for (i=0;i<IBBBM_CHA_VPD_TEMP_SIZE;i++) {

6126

sprintf(buff,"%s {temp%u 0x%x} ",buff,i+1,cl_ntoh16(_arg1->temp_sensor_record[i]));

6127

};

6128

6129

sprintf(buff,"%s {power_sup_count 0x%x} ",buff,_arg1->power_sup_count);

6130

6131

for (i=0;i<IBBBM_CHA_VPD_PWR_SIZE;i++) {

6132

sprintf(buff,"%s {power%u 0x%x} ",buff,i+1,cl_ntoh32(_arg1->power_sup_record[i]));

6133

};

6134

6135

sprintf(buff,"%s {fan_count 0x%x} ",buff,_arg1->fan_count);

6136

6137

for (i=0;i<IBBBM_CHA_VPD_FAN_SIZE;i++) {

6138

sprintf(buff,"%s {fan%u 0x%x} ",buff,i+1,cl_ntoh16(_arg1->fan_record[i]));

6139

};

6140

6141

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

6142

} else {

6143

Tcl_SetStringObj(tcl_result, "", 0);

6144

}

6145

}

6146

return TCL_OK;

6147

}

6148

static int _wrap_bbmFWVerRead(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6149

6150

int _result;

6151

uint16_t * _arg0;

6152

ib_bbm_fw_ver_vpd_t * _arg1;

6153

ib_bbm_fw_ver_vpd_t temp;

6154

Tcl_Obj * tcl_result;

6155

uint16_t temp0;

6156

6157

clientData = clientData; objv = objv;

6158

{

6159

_arg1 = &temp;

6160

}

6161

tcl_result = Tcl_GetObjResult(interp);

6162

if ((objc < 2) || (objc > 2)) {

6163

Tcl_SetStringObj(tcl_result,"Wrong # args. bbmFWVerRead lid ",-1);

6164

return TCL_ERROR;

6165

}

6166

{

6167

temp0 = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

6168

_arg0 = &temp0;

6169

}

6170

{

6171

/* we can check if IBIS was initialized here */

6172

if (!IbisObj.initialized)

6173

{

6174

Tcl_SetStringObj(

6175

Tcl_GetObjResult(interp),

6176

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6177

return TCL_ERROR;

6178

}

6179

6180

if (! IbisObj.port_guid)

6181

{

6182

Tcl_SetStringObj(

6183

Tcl_GetObjResult(interp),

6184

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6185

return TCL_ERROR;

6186

}

6187

6188

ibis_tcl_error = 0;

6189

_result = (int )ibbbm_read_fw_ver_vpd_global(*_arg0,_arg1);

6190

;

6191

if (ibis_tcl_error) {

6192

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6193

return TCL_ERROR;

6194

}

6195

} tcl_result = Tcl_GetObjResult(interp);

6196

Tcl_SetIntObj(tcl_result,(long) _result);

6197

{

6198

if (_arg1) {

6199

static char buff[512];

6200

sprintf(buff, "{b_key 0x%016" PRIx64 "} {bm_sequence 0x%x} {device_sel 0x%x} {bytes_num 0x%x} {offset 0x%x} {maj_fw_ver 0x%x} {min_fw_ver 0x%x} {sub_min_fw_ver 0x%x}",

6201

cl_ntoh64(_arg1->b_key),

6202

cl_ntoh16(_arg1->bm_sequence),

6203

(_arg1->vpd_device_selector),

6204

cl_ntoh16(_arg1->bytes_num),

6205

cl_ntoh16(_arg1->offset),

6206

_arg1->maj_fw_ver,

6207

_arg1->min_fw_ver,

6208

_arg1->sub_min_fw_ver);

6209

6210

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

6211

} else {

6212

Tcl_SetStringObj(tcl_result, "", 0);

6213

}

6214

}

6215

return TCL_OK;

6216

}

6217

static int _wrap_ibis_puts(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6218

6219

int _result;

6220

uint8_t * _arg0;

6221

char * _arg1;

6222

Tcl_Obj * tcl_result;

6223

uint8_t temp;

6224

int templength;

6225

6226

clientData = clientData; objv = objv;

6227

tcl_result = Tcl_GetObjResult(interp);

6228

if ((objc < 3) || (objc > 3)) {

6229

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_puts verbosity msg ",-1);

6230

return TCL_ERROR;

6231

}

6232

{

6233

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

6234

_arg0 = &temp;

6235

}

6236

if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR;

6237

{

6238

/* we can check if IBIS was initialized here */

6239

if (!IbisObj.initialized)

6240

{

6241

Tcl_SetStringObj(

6242

Tcl_GetObjResult(interp),

6243

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6244

return TCL_ERROR;

6245

}

6246

6247

if (! IbisObj.port_guid)

6248

{

6249

Tcl_SetStringObj(

6250

Tcl_GetObjResult(interp),

6251

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6252

return TCL_ERROR;

6253

}

6254

6255

ibis_tcl_error = 0;

6256

_result = (int )ibis_puts(*_arg0,_arg1);

6257

;

6258

if (ibis_tcl_error) {

6259

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6260

return TCL_ERROR;

6261

}

6262

} tcl_result = Tcl_GetObjResult(interp);

6263

Tcl_SetIntObj(tcl_result,(long) _result);

6264

return TCL_OK;

6265

}

6266

static int _wrap_ibis_init(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6267

6268

int _result;

6269

Tcl_Obj * tcl_result;

6270

6271

clientData = clientData; objv = objv;

6272

tcl_result = Tcl_GetObjResult(interp);

6273

if ((objc < 1) || (objc > 1)) {

6274

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_init ",-1);

6275

return TCL_ERROR;

6276

}

6277

_result = (int )ibis_ui_init();

6278

tcl_result = Tcl_GetObjResult(interp);

6279

Tcl_SetIntObj(tcl_result,(long) _result);

6280

return TCL_OK;

6281

}

6282

static int _wrap_ibis_set_verbosity(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6283

6284

int _result;

6285

int _arg0;

6286

Tcl_Obj * tcl_result;

6287

int tempint;

6288

6289

clientData = clientData; objv = objv;

6290

tcl_result = Tcl_GetObjResult(interp);

6291

if ((objc < 2) || (objc > 2)) {

6292

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_set_verbosity level ",-1);

6293

return TCL_ERROR;

6294

}

6295

if (Tcl_GetIntFromObj(interp,objv[1],&tempint) == TCL_ERROR) return TCL_ERROR;

6296

_arg0 = (int ) tempint;

6297

_result = (int )ibis_set_verbosity(_arg0);

6298

tcl_result = Tcl_GetObjResult(interp);

6299

Tcl_SetIntObj(tcl_result,(long) _result);

6300

return TCL_OK;

6301

}

6302

static int _wrap_ibis_set_port(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6303

6304

int _result;

6305

uint64_t * _arg0;

6306

Tcl_Obj * tcl_result;

6307

uint64_t temp;

6308

6309

clientData = clientData; objv = objv;

6310

tcl_result = Tcl_GetObjResult(interp);

6311

if ((objc < 2) || (objc > 2)) {

6312

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_set_port guid ",-1);

6313

return TCL_ERROR;

6314

}

6315

{

6316

temp = strtoull(Tcl_GetStringFromObj(objv[1],NULL), NULL,16);

6317

_arg0 = &temp;

6318

}

6319

_result = (int )ibis_set_port(*_arg0);

6320

tcl_result = Tcl_GetObjResult(interp);

6321

Tcl_SetIntObj(tcl_result,(long) _result);

6322

return TCL_OK;

6323

}

6324

static int _wrap_ibis_get_port(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6325

6326

new_uint64_t * _result;

6327

Tcl_Obj * tcl_result;

6328

6329

clientData = clientData; objv = objv;

6330

tcl_result = Tcl_GetObjResult(interp);

6331

if ((objc < 1) || (objc > 1)) {

6332

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_get_port ",-1);

6333

return TCL_ERROR;

6334

}

6335

_result = (new_uint64_t *) malloc(sizeof(new_uint64_t ));

6336

*(_result) = ibis_get_port();

6337

tcl_result = Tcl_GetObjResult(interp);

6338

{

6339

char buff[20];

6340

sprintf(buff, "0x%016" PRIx64, *_result);

6341

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6342

free( _result );

6343

}

6344

return TCL_OK;

6345

}

6346

static int _wrap_ibis_set_transaction_timeout(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6347

6348

int _result;

6349

uint32_t * _arg0;

6350

Tcl_Obj * tcl_result;

6351

uint32_t temp;

6352

6353

clientData = clientData; objv = objv;

6354

tcl_result = Tcl_GetObjResult(interp);

6355

if ((objc < 2) || (objc > 2)) {

6356

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_set_transaction_timeout timeout_ms ",-1);

6357

return TCL_ERROR;

6358

}

6359

{

6360

temp = strtoul(Tcl_GetStringFromObj(objv[1],NULL), NULL, 0);

6361

_arg0 = &temp;

6362

}

6363

_result = (int )ibis_set_transaction_timeout(*_arg0);

6364

tcl_result = Tcl_GetObjResult(interp);

6365

Tcl_SetIntObj(tcl_result,(long) _result);

6366

return TCL_OK;

6367

}

6368

static int _wrap_ibis_exit(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6369

6370

int _result;

6371

Tcl_Obj * tcl_result;

6372

6373

clientData = clientData; objv = objv;

6374

tcl_result = Tcl_GetObjResult(interp);

6375

if ((objc < 1) || (objc > 1)) {

6376

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_exit ",-1);

6377

return TCL_ERROR;

6378

}

6379

_result = (int )ibis_ui_destroy();

6380

tcl_result = Tcl_GetObjResult(interp);

6381

Tcl_SetIntObj(tcl_result,(long) _result);

6382

return TCL_OK;

6383

}

6384

#define _ib_node_info_base_version_set(_swigobj,_swigval) (_swigobj->base_version = *(_swigval),_swigval)

6385

static int _wrap_sacNodeInfo_base_version_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6386

6387

uint8_t * _result;

6388

sacNodeInfo * _arg0;

6389

uint8_t * _arg1;

6390

Tcl_Obj * tcl_result;

6391

char * rettype;

6392

uint8_t temp;

6393

6394

clientData = clientData; objv = objv;

6395

tcl_result = Tcl_GetObjResult(interp);

6396

if ((objc < 3) || (objc > 3)) {

6397

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_base_version_set { sacNodeInfo * } { uint8_t * } ",-1);

6398

return TCL_ERROR;

6399

}

6400

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6401

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_base_version_set. Expected _sacNodeInfo_p, received ", -1);

6402

Tcl_AppendToObj(tcl_result, rettype, -1);

6403

return TCL_ERROR;

6404

}

6405

{

6406

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

6407

_arg1 = &temp;

6408

}

6409

{

6410

/* we can check if IBIS was initialized here */

6411

if (!IbisObj.initialized)

6412

{

6413

Tcl_SetStringObj(

6414

Tcl_GetObjResult(interp),

6415

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6416

return TCL_ERROR;

6417

}

6418

6419

if (! IbisObj.port_guid)

6420

{

6421

Tcl_SetStringObj(

6422

Tcl_GetObjResult(interp),

6423

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6424

return TCL_ERROR;

6425

}

6426

6427

ibis_tcl_error = 0;

6428

_result = (uint8_t *)_ib_node_info_base_version_set(_arg0,_arg1);

6429

;

6430

if (ibis_tcl_error) {

6431

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6432

return TCL_ERROR;

6433

}

6434

} tcl_result = Tcl_GetObjResult(interp);

6435

{

6436

char buff[20];

6437

sprintf(buff, "%u", *_result);

6438

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6439

}

6440

return TCL_OK;

6441

}

6442

#define _ib_node_info_base_version_get(_swigobj) (&_swigobj->base_version)

6443

static int _wrap_sacNodeInfo_base_version_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6444

6445

uint8_t * _result;

6446

sacNodeInfo * _arg0;

6447

Tcl_Obj * tcl_result;

6448

char * rettype;

6449

6450

clientData = clientData; objv = objv;

6451

tcl_result = Tcl_GetObjResult(interp);

6452

if ((objc < 2) || (objc > 2)) {

6453

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_base_version_get { sacNodeInfo * } ",-1);

6454

return TCL_ERROR;

6455

}

6456

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6457

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_base_version_get. Expected _sacNodeInfo_p, received ", -1);

6458

Tcl_AppendToObj(tcl_result, rettype, -1);

6459

return TCL_ERROR;

6460

}

6461

{

6462

/* we can check if IBIS was initialized here */

6463

if (!IbisObj.initialized)

6464

{

6465

Tcl_SetStringObj(

6466

Tcl_GetObjResult(interp),

6467

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6468

return TCL_ERROR;

6469

}

6470

6471

if (! IbisObj.port_guid)

6472

{

6473

Tcl_SetStringObj(

6474

Tcl_GetObjResult(interp),

6475

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6476

return TCL_ERROR;

6477

}

6478

6479

ibis_tcl_error = 0;

6480

_result = (uint8_t *)_ib_node_info_base_version_get(_arg0);

6481

;

6482

if (ibis_tcl_error) {

6483

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6484

return TCL_ERROR;

6485

}

6486

} tcl_result = Tcl_GetObjResult(interp);

6487

{

6488

char buff[20];

6489

sprintf(buff, "%u", *_result);

6490

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6491

}

6492

return TCL_OK;

6493

}

6494

#define _ib_node_info_class_version_set(_swigobj,_swigval) (_swigobj->class_version = *(_swigval),_swigval)

6495

static int _wrap_sacNodeInfo_class_version_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6496

6497

uint8_t * _result;

6498

sacNodeInfo * _arg0;

6499

uint8_t * _arg1;

6500

Tcl_Obj * tcl_result;

6501

char * rettype;

6502

uint8_t temp;

6503

6504

clientData = clientData; objv = objv;

6505

tcl_result = Tcl_GetObjResult(interp);

6506

if ((objc < 3) || (objc > 3)) {

6507

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_class_version_set { sacNodeInfo * } { uint8_t * } ",-1);

6508

return TCL_ERROR;

6509

}

6510

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6511

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_class_version_set. Expected _sacNodeInfo_p, received ", -1);

6512

Tcl_AppendToObj(tcl_result, rettype, -1);

6513

return TCL_ERROR;

6514

}

6515

{

6516

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

6517

_arg1 = &temp;

6518

}

6519

{

6520

/* we can check if IBIS was initialized here */

6521

if (!IbisObj.initialized)

6522

{

6523

Tcl_SetStringObj(

6524

Tcl_GetObjResult(interp),

6525

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6526

return TCL_ERROR;

6527

}

6528

6529

if (! IbisObj.port_guid)

6530

{

6531

Tcl_SetStringObj(

6532

Tcl_GetObjResult(interp),

6533

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6534

return TCL_ERROR;

6535

}

6536

6537

ibis_tcl_error = 0;

6538

_result = (uint8_t *)_ib_node_info_class_version_set(_arg0,_arg1);

6539

;

6540

if (ibis_tcl_error) {

6541

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6542

return TCL_ERROR;

6543

}

6544

} tcl_result = Tcl_GetObjResult(interp);

6545

{

6546

char buff[20];

6547

sprintf(buff, "%u", *_result);

6548

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6549

}

6550

return TCL_OK;

6551

}

6552

#define _ib_node_info_class_version_get(_swigobj) (&_swigobj->class_version)

6553

static int _wrap_sacNodeInfo_class_version_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6554

6555

uint8_t * _result;

6556

sacNodeInfo * _arg0;

6557

Tcl_Obj * tcl_result;

6558

char * rettype;

6559

6560

clientData = clientData; objv = objv;

6561

tcl_result = Tcl_GetObjResult(interp);

6562

if ((objc < 2) || (objc > 2)) {

6563

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_class_version_get { sacNodeInfo * } ",-1);

6564

return TCL_ERROR;

6565

}

6566

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6567

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_class_version_get. Expected _sacNodeInfo_p, received ", -1);

6568

Tcl_AppendToObj(tcl_result, rettype, -1);

6569

return TCL_ERROR;

6570

}

6571

{

6572

/* we can check if IBIS was initialized here */

6573

if (!IbisObj.initialized)

6574

{

6575

Tcl_SetStringObj(

6576

Tcl_GetObjResult(interp),

6577

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6578

return TCL_ERROR;

6579

}

6580

6581

if (! IbisObj.port_guid)

6582

{

6583

Tcl_SetStringObj(

6584

Tcl_GetObjResult(interp),

6585

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6586

return TCL_ERROR;

6587

}

6588

6589

ibis_tcl_error = 0;

6590

_result = (uint8_t *)_ib_node_info_class_version_get(_arg0);

6591

;

6592

if (ibis_tcl_error) {

6593

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6594

return TCL_ERROR;

6595

}

6596

} tcl_result = Tcl_GetObjResult(interp);

6597

{

6598

char buff[20];

6599

sprintf(buff, "%u", *_result);

6600

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6601

}

6602

return TCL_OK;

6603

}

6604

#define _ib_node_info_node_type_set(_swigobj,_swigval) (_swigobj->node_type = *(_swigval),_swigval)

6605

static int _wrap_sacNodeInfo_node_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6606

6607

uint8_t * _result;

6608

sacNodeInfo * _arg0;

6609

uint8_t * _arg1;

6610

Tcl_Obj * tcl_result;

6611

char * rettype;

6612

uint8_t temp;

6613

6614

clientData = clientData; objv = objv;

6615

tcl_result = Tcl_GetObjResult(interp);

6616

if ((objc < 3) || (objc > 3)) {

6617

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_node_type_set { sacNodeInfo * } { uint8_t * } ",-1);

6618

return TCL_ERROR;

6619

}

6620

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6621

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_node_type_set. Expected _sacNodeInfo_p, received ", -1);

6622

Tcl_AppendToObj(tcl_result, rettype, -1);

6623

return TCL_ERROR;

6624

}

6625

{

6626

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

6627

_arg1 = &temp;

6628

}

6629

{

6630

/* we can check if IBIS was initialized here */

6631

if (!IbisObj.initialized)

6632

{

6633

Tcl_SetStringObj(

6634

Tcl_GetObjResult(interp),

6635

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6636

return TCL_ERROR;

6637

}

6638

6639

if (! IbisObj.port_guid)

6640

{

6641

Tcl_SetStringObj(

6642

Tcl_GetObjResult(interp),

6643

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6644

return TCL_ERROR;

6645

}

6646

6647

ibis_tcl_error = 0;

6648

_result = (uint8_t *)_ib_node_info_node_type_set(_arg0,_arg1);

6649

;

6650

if (ibis_tcl_error) {

6651

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6652

return TCL_ERROR;

6653

}

6654

} tcl_result = Tcl_GetObjResult(interp);

6655

{

6656

char buff[20];

6657

sprintf(buff, "%u", *_result);

6658

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6659

}

6660

return TCL_OK;

6661

}

6662

#define _ib_node_info_node_type_get(_swigobj) (&_swigobj->node_type)

6663

static int _wrap_sacNodeInfo_node_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6664

6665

uint8_t * _result;

6666

sacNodeInfo * _arg0;

6667

Tcl_Obj * tcl_result;

6668

char * rettype;

6669

6670

clientData = clientData; objv = objv;

6671

tcl_result = Tcl_GetObjResult(interp);

6672

if ((objc < 2) || (objc > 2)) {

6673

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_node_type_get { sacNodeInfo * } ",-1);

6674

return TCL_ERROR;

6675

}

6676

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6677

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_node_type_get. Expected _sacNodeInfo_p, received ", -1);

6678

Tcl_AppendToObj(tcl_result, rettype, -1);

6679

return TCL_ERROR;

6680

}

6681

{

6682

/* we can check if IBIS was initialized here */

6683

if (!IbisObj.initialized)

6684

{

6685

Tcl_SetStringObj(

6686

Tcl_GetObjResult(interp),

6687

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6688

return TCL_ERROR;

6689

}

6690

6691

if (! IbisObj.port_guid)

6692

{

6693

Tcl_SetStringObj(

6694

Tcl_GetObjResult(interp),

6695

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6696

return TCL_ERROR;

6697

}

6698

6699

ibis_tcl_error = 0;

6700

_result = (uint8_t *)_ib_node_info_node_type_get(_arg0);

6701

;

6702

if (ibis_tcl_error) {

6703

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6704

return TCL_ERROR;

6705

}

6706

} tcl_result = Tcl_GetObjResult(interp);

6707

{

6708

char buff[20];

6709

sprintf(buff, "%u", *_result);

6710

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6711

}

6712

return TCL_OK;

6713

}

6714

#define _ib_node_info_num_ports_set(_swigobj,_swigval) (_swigobj->num_ports = *(_swigval),_swigval)

6715

static int _wrap_sacNodeInfo_num_ports_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6716

6717

uint8_t * _result;

6718

sacNodeInfo * _arg0;

6719

uint8_t * _arg1;

6720

Tcl_Obj * tcl_result;

6721

char * rettype;

6722

uint8_t temp;

6723

6724

clientData = clientData; objv = objv;

6725

tcl_result = Tcl_GetObjResult(interp);

6726

if ((objc < 3) || (objc > 3)) {

6727

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_num_ports_set { sacNodeInfo * } { uint8_t * } ",-1);

6728

return TCL_ERROR;

6729

}

6730

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6731

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_num_ports_set. Expected _sacNodeInfo_p, received ", -1);

6732

Tcl_AppendToObj(tcl_result, rettype, -1);

6733

return TCL_ERROR;

6734

}

6735

{

6736

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

6737

_arg1 = &temp;

6738

}

6739

{

6740

/* we can check if IBIS was initialized here */

6741

if (!IbisObj.initialized)

6742

{

6743

Tcl_SetStringObj(

6744

Tcl_GetObjResult(interp),

6745

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6746

return TCL_ERROR;

6747

}

6748

6749

if (! IbisObj.port_guid)

6750

{

6751

Tcl_SetStringObj(

6752

Tcl_GetObjResult(interp),

6753

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6754

return TCL_ERROR;

6755

}

6756

6757

ibis_tcl_error = 0;

6758

_result = (uint8_t *)_ib_node_info_num_ports_set(_arg0,_arg1);

6759

;

6760

if (ibis_tcl_error) {

6761

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6762

return TCL_ERROR;

6763

}

6764

} tcl_result = Tcl_GetObjResult(interp);

6765

{

6766

char buff[20];

6767

sprintf(buff, "%u", *_result);

6768

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6769

}

6770

return TCL_OK;

6771

}

6772

#define _ib_node_info_num_ports_get(_swigobj) (&_swigobj->num_ports)

6773

static int _wrap_sacNodeInfo_num_ports_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6774

6775

uint8_t * _result;

6776

sacNodeInfo * _arg0;

6777

Tcl_Obj * tcl_result;

6778

char * rettype;

6779

6780

clientData = clientData; objv = objv;

6781

tcl_result = Tcl_GetObjResult(interp);

6782

if ((objc < 2) || (objc > 2)) {

6783

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_num_ports_get { sacNodeInfo * } ",-1);

6784

return TCL_ERROR;

6785

}

6786

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6787

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_num_ports_get. Expected _sacNodeInfo_p, received ", -1);

6788

Tcl_AppendToObj(tcl_result, rettype, -1);

6789

return TCL_ERROR;

6790

}

6791

{

6792

/* we can check if IBIS was initialized here */

6793

if (!IbisObj.initialized)

6794

{

6795

Tcl_SetStringObj(

6796

Tcl_GetObjResult(interp),

6797

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6798

return TCL_ERROR;

6799

}

6800

6801

if (! IbisObj.port_guid)

6802

{

6803

Tcl_SetStringObj(

6804

Tcl_GetObjResult(interp),

6805

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6806

return TCL_ERROR;

6807

}

6808

6809

ibis_tcl_error = 0;

6810

_result = (uint8_t *)_ib_node_info_num_ports_get(_arg0);

6811

;

6812

if (ibis_tcl_error) {

6813

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6814

return TCL_ERROR;

6815

}

6816

} tcl_result = Tcl_GetObjResult(interp);

6817

{

6818

char buff[20];

6819

sprintf(buff, "%u", *_result);

6820

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6821

}

6822

return TCL_OK;

6823

}

6824

#define _ib_node_info_sys_guid_set(_swigobj,_swigval) (_swigobj->sys_guid = *(_swigval),_swigval)

6825

static int _wrap_sacNodeInfo_sys_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6826

6827

ib_net64_t * _result;

6828

sacNodeInfo * _arg0;

6829

ib_net64_t * _arg1;

6830

Tcl_Obj * tcl_result;

6831

char * rettype;

6832

uint64_t temp;

6833

6834

clientData = clientData; objv = objv;

6835

tcl_result = Tcl_GetObjResult(interp);

6836

if ((objc < 3) || (objc > 3)) {

6837

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_sys_guid_set { sacNodeInfo * } { ib_net64_t * } ",-1);

6838

return TCL_ERROR;

6839

}

6840

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6841

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_sys_guid_set. Expected _sacNodeInfo_p, received ", -1);

6842

Tcl_AppendToObj(tcl_result, rettype, -1);

6843

return TCL_ERROR;

6844

}

6845

{

6846

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

6847

_arg1 = &temp;

6848

}

6849

{

6850

/* we can check if IBIS was initialized here */

6851

if (!IbisObj.initialized)

6852

{

6853

Tcl_SetStringObj(

6854

Tcl_GetObjResult(interp),

6855

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6856

return TCL_ERROR;

6857

}

6858

6859

if (! IbisObj.port_guid)

6860

{

6861

Tcl_SetStringObj(

6862

Tcl_GetObjResult(interp),

6863

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6864

return TCL_ERROR;

6865

}

6866

6867

ibis_tcl_error = 0;

6868

_result = (ib_net64_t *)_ib_node_info_sys_guid_set(_arg0,_arg1);

6869

;

6870

if (ibis_tcl_error) {

6871

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6872

return TCL_ERROR;

6873

}

6874

} tcl_result = Tcl_GetObjResult(interp);

6875

{

6876

char buff[20];

6877

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

6878

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6879

}

6880

return TCL_OK;

6881

}

6882

#define _ib_node_info_sys_guid_get(_swigobj) (&_swigobj->sys_guid)

6883

static int _wrap_sacNodeInfo_sys_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6884

6885

ib_net64_t * _result;

6886

sacNodeInfo * _arg0;

6887

Tcl_Obj * tcl_result;

6888

char * rettype;

6889

6890

clientData = clientData; objv = objv;

6891

tcl_result = Tcl_GetObjResult(interp);

6892

if ((objc < 2) || (objc > 2)) {

6893

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_sys_guid_get { sacNodeInfo * } ",-1);

6894

return TCL_ERROR;

6895

}

6896

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6897

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_sys_guid_get. Expected _sacNodeInfo_p, received ", -1);

6898

Tcl_AppendToObj(tcl_result, rettype, -1);

6899

return TCL_ERROR;

6900

}

6901

{

6902

/* we can check if IBIS was initialized here */

6903

if (!IbisObj.initialized)

6904

{

6905

Tcl_SetStringObj(

6906

Tcl_GetObjResult(interp),

6907

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6908

return TCL_ERROR;

6909

}

6910

6911

if (! IbisObj.port_guid)

6912

{

6913

Tcl_SetStringObj(

6914

Tcl_GetObjResult(interp),

6915

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6916

return TCL_ERROR;

6917

}

6918

6919

ibis_tcl_error = 0;

6920

_result = (ib_net64_t *)_ib_node_info_sys_guid_get(_arg0);

6921

;

6922

if (ibis_tcl_error) {

6923

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6924

return TCL_ERROR;

6925

}

6926

} tcl_result = Tcl_GetObjResult(interp);

6927

{

6928

char buff[20];

6929

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

6930

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6931

}

6932

return TCL_OK;

6933

}

6934

#define _ib_node_info_node_guid_set(_swigobj,_swigval) (_swigobj->node_guid = *(_swigval),_swigval)

6935

static int _wrap_sacNodeInfo_node_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6936

6937

ib_net64_t * _result;

6938

sacNodeInfo * _arg0;

6939

ib_net64_t * _arg1;

6940

Tcl_Obj * tcl_result;

6941

char * rettype;

6942

uint64_t temp;

6943

6944

clientData = clientData; objv = objv;

6945

tcl_result = Tcl_GetObjResult(interp);

6946

if ((objc < 3) || (objc > 3)) {

6947

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_node_guid_set { sacNodeInfo * } { ib_net64_t * } ",-1);

6948

return TCL_ERROR;

6949

}

6950

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

6951

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_node_guid_set. Expected _sacNodeInfo_p, received ", -1);

6952

Tcl_AppendToObj(tcl_result, rettype, -1);

6953

return TCL_ERROR;

6954

}

6955

{

6956

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

6957

_arg1 = &temp;

6958

}

6959

{

6960

/* we can check if IBIS was initialized here */

6961

if (!IbisObj.initialized)

6962

{

6963

Tcl_SetStringObj(

6964

Tcl_GetObjResult(interp),

6965

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

6966

return TCL_ERROR;

6967

}

6968

6969

if (! IbisObj.port_guid)

6970

{

6971

Tcl_SetStringObj(

6972

Tcl_GetObjResult(interp),

6973

" ibis was not yet initialized. please use ibis_set_port before.", -1);

6974

return TCL_ERROR;

6975

}

6976

6977

ibis_tcl_error = 0;

6978

_result = (ib_net64_t *)_ib_node_info_node_guid_set(_arg0,_arg1);

6979

;

6980

if (ibis_tcl_error) {

6981

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

6982

return TCL_ERROR;

6983

}

6984

} tcl_result = Tcl_GetObjResult(interp);

6985

{

6986

char buff[20];

6987

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

6988

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

6989

}

6990

return TCL_OK;

6991

}

6992

#define _ib_node_info_node_guid_get(_swigobj) (&_swigobj->node_guid)

6993

static int _wrap_sacNodeInfo_node_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

6994

6995

ib_net64_t * _result;

6996

sacNodeInfo * _arg0;

6997

Tcl_Obj * tcl_result;

6998

char * rettype;

6999

7000

clientData = clientData; objv = objv;

7001

tcl_result = Tcl_GetObjResult(interp);

7002

if ((objc < 2) || (objc > 2)) {

7003

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_node_guid_get { sacNodeInfo * } ",-1);

7004

return TCL_ERROR;

7005

}

7006

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7007

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_node_guid_get. Expected _sacNodeInfo_p, received ", -1);

7008

Tcl_AppendToObj(tcl_result, rettype, -1);

7009

return TCL_ERROR;

7010

}

7011

{

7012

/* we can check if IBIS was initialized here */

7013

if (!IbisObj.initialized)

7014

{

7015

Tcl_SetStringObj(

7016

Tcl_GetObjResult(interp),

7017

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7018

return TCL_ERROR;

7019

}

7020

7021

if (! IbisObj.port_guid)

7022

{

7023

Tcl_SetStringObj(

7024

Tcl_GetObjResult(interp),

7025

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7026

return TCL_ERROR;

7027

}

7028

7029

ibis_tcl_error = 0;

7030

_result = (ib_net64_t *)_ib_node_info_node_guid_get(_arg0);

7031

;

7032

if (ibis_tcl_error) {

7033

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7034

return TCL_ERROR;

7035

}

7036

} tcl_result = Tcl_GetObjResult(interp);

7037

{

7038

char buff[20];

7039

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

7040

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7041

}

7042

return TCL_OK;

7043

}

7044

#define _ib_node_info_port_guid_set(_swigobj,_swigval) (_swigobj->port_guid = *(_swigval),_swigval)

7045

static int _wrap_sacNodeInfo_port_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7046

7047

ib_net64_t * _result;

7048

sacNodeInfo * _arg0;

7049

ib_net64_t * _arg1;

7050

Tcl_Obj * tcl_result;

7051

char * rettype;

7052

uint64_t temp;

7053

7054

clientData = clientData; objv = objv;

7055

tcl_result = Tcl_GetObjResult(interp);

7056

if ((objc < 3) || (objc > 3)) {

7057

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_port_guid_set { sacNodeInfo * } { ib_net64_t * } ",-1);

7058

return TCL_ERROR;

7059

}

7060

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7061

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_port_guid_set. Expected _sacNodeInfo_p, received ", -1);

7062

Tcl_AppendToObj(tcl_result, rettype, -1);

7063

return TCL_ERROR;

7064

}

7065

{

7066

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

7067

_arg1 = &temp;

7068

}

7069

{

7070

/* we can check if IBIS was initialized here */

7071

if (!IbisObj.initialized)

7072

{

7073

Tcl_SetStringObj(

7074

Tcl_GetObjResult(interp),

7075

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7076

return TCL_ERROR;

7077

}

7078

7079

if (! IbisObj.port_guid)

7080

{

7081

Tcl_SetStringObj(

7082

Tcl_GetObjResult(interp),

7083

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7084

return TCL_ERROR;

7085

}

7086

7087

ibis_tcl_error = 0;

7088

_result = (ib_net64_t *)_ib_node_info_port_guid_set(_arg0,_arg1);

7089

;

7090

if (ibis_tcl_error) {

7091

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7092

return TCL_ERROR;

7093

}

7094

} tcl_result = Tcl_GetObjResult(interp);

7095

{

7096

char buff[20];

7097

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

7098

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7099

}

7100

return TCL_OK;

7101

}

7102

#define _ib_node_info_port_guid_get(_swigobj) (&_swigobj->port_guid)

7103

static int _wrap_sacNodeInfo_port_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7104

7105

ib_net64_t * _result;

7106

sacNodeInfo * _arg0;

7107

Tcl_Obj * tcl_result;

7108

char * rettype;

7109

7110

clientData = clientData; objv = objv;

7111

tcl_result = Tcl_GetObjResult(interp);

7112

if ((objc < 2) || (objc > 2)) {

7113

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_port_guid_get { sacNodeInfo * } ",-1);

7114

return TCL_ERROR;

7115

}

7116

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7117

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_port_guid_get. Expected _sacNodeInfo_p, received ", -1);

7118

Tcl_AppendToObj(tcl_result, rettype, -1);

7119

return TCL_ERROR;

7120

}

7121

{

7122

/* we can check if IBIS was initialized here */

7123

if (!IbisObj.initialized)

7124

{

7125

Tcl_SetStringObj(

7126

Tcl_GetObjResult(interp),

7127

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7128

return TCL_ERROR;

7129

}

7130

7131

if (! IbisObj.port_guid)

7132

{

7133

Tcl_SetStringObj(

7134

Tcl_GetObjResult(interp),

7135

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7136

return TCL_ERROR;

7137

}

7138

7139

ibis_tcl_error = 0;

7140

_result = (ib_net64_t *)_ib_node_info_port_guid_get(_arg0);

7141

;

7142

if (ibis_tcl_error) {

7143

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7144

return TCL_ERROR;

7145

}

7146

} tcl_result = Tcl_GetObjResult(interp);

7147

{

7148

char buff[20];

7149

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

7150

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7151

}

7152

return TCL_OK;

7153

}

7154

#define _ib_node_info_partition_cap_set(_swigobj,_swigval) (_swigobj->partition_cap = *(_swigval),_swigval)

7155

static int _wrap_sacNodeInfo_partition_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7156

7157

ib_net16_t * _result;

7158

sacNodeInfo * _arg0;

7159

ib_net16_t * _arg1;

7160

Tcl_Obj * tcl_result;

7161

char * rettype;

7162

ib_net16_t temp;

7163

7164

clientData = clientData; objv = objv;

7165

tcl_result = Tcl_GetObjResult(interp);

7166

if ((objc < 3) || (objc > 3)) {

7167

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_partition_cap_set { sacNodeInfo * } { ib_net16_t * } ",-1);

7168

return TCL_ERROR;

7169

}

7170

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7171

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_partition_cap_set. Expected _sacNodeInfo_p, received ", -1);

7172

Tcl_AppendToObj(tcl_result, rettype, -1);

7173

return TCL_ERROR;

7174

}

7175

{

7176

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

7177

_arg1 = &temp;

7178

}

7179

{

7180

/* we can check if IBIS was initialized here */

7181

if (!IbisObj.initialized)

7182

{

7183

Tcl_SetStringObj(

7184

Tcl_GetObjResult(interp),

7185

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7186

return TCL_ERROR;

7187

}

7188

7189

if (! IbisObj.port_guid)

7190

{

7191

Tcl_SetStringObj(

7192

Tcl_GetObjResult(interp),

7193

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7194

return TCL_ERROR;

7195

}

7196

7197

ibis_tcl_error = 0;

7198

_result = (ib_net16_t *)_ib_node_info_partition_cap_set(_arg0,_arg1);

7199

;

7200

if (ibis_tcl_error) {

7201

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7202

return TCL_ERROR;

7203

}

7204

} tcl_result = Tcl_GetObjResult(interp);

7205

{

7206

char buff[20];

7207

sprintf(buff, "%u", cl_hton16(*_result));

7208

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7209

}

7210

return TCL_OK;

7211

}

7212

#define _ib_node_info_partition_cap_get(_swigobj) (&_swigobj->partition_cap)

7213

static int _wrap_sacNodeInfo_partition_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7214

7215

ib_net16_t * _result;

7216

sacNodeInfo * _arg0;

7217

Tcl_Obj * tcl_result;

7218

char * rettype;

7219

7220

clientData = clientData; objv = objv;

7221

tcl_result = Tcl_GetObjResult(interp);

7222

if ((objc < 2) || (objc > 2)) {

7223

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_partition_cap_get { sacNodeInfo * } ",-1);

7224

return TCL_ERROR;

7225

}

7226

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7227

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_partition_cap_get. Expected _sacNodeInfo_p, received ", -1);

7228

Tcl_AppendToObj(tcl_result, rettype, -1);

7229

return TCL_ERROR;

7230

}

7231

{

7232

/* we can check if IBIS was initialized here */

7233

if (!IbisObj.initialized)

7234

{

7235

Tcl_SetStringObj(

7236

Tcl_GetObjResult(interp),

7237

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7238

return TCL_ERROR;

7239

}

7240

7241

if (! IbisObj.port_guid)

7242

{

7243

Tcl_SetStringObj(

7244

Tcl_GetObjResult(interp),

7245

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7246

return TCL_ERROR;

7247

}

7248

7249

ibis_tcl_error = 0;

7250

_result = (ib_net16_t *)_ib_node_info_partition_cap_get(_arg0);

7251

;

7252

if (ibis_tcl_error) {

7253

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7254

return TCL_ERROR;

7255

}

7256

} tcl_result = Tcl_GetObjResult(interp);

7257

{

7258

char buff[20];

7259

sprintf(buff, "%u", cl_hton16(*_result));

7260

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7261

}

7262

return TCL_OK;

7263

}

7264

#define _ib_node_info_device_id_set(_swigobj,_swigval) (_swigobj->device_id = *(_swigval),_swigval)

7265

static int _wrap_sacNodeInfo_device_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7266

7267

ib_net16_t * _result;

7268

sacNodeInfo * _arg0;

7269

ib_net16_t * _arg1;

7270

Tcl_Obj * tcl_result;

7271

char * rettype;

7272

ib_net16_t temp;

7273

7274

clientData = clientData; objv = objv;

7275

tcl_result = Tcl_GetObjResult(interp);

7276

if ((objc < 3) || (objc > 3)) {

7277

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_device_id_set { sacNodeInfo * } { ib_net16_t * } ",-1);

7278

return TCL_ERROR;

7279

}

7280

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7281

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_device_id_set. Expected _sacNodeInfo_p, received ", -1);

7282

Tcl_AppendToObj(tcl_result, rettype, -1);

7283

return TCL_ERROR;

7284

}

7285

{

7286

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

7287

_arg1 = &temp;

7288

}

7289

{

7290

/* we can check if IBIS was initialized here */

7291

if (!IbisObj.initialized)

7292

{

7293

Tcl_SetStringObj(

7294

Tcl_GetObjResult(interp),

7295

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7296

return TCL_ERROR;

7297

}

7298

7299

if (! IbisObj.port_guid)

7300

{

7301

Tcl_SetStringObj(

7302

Tcl_GetObjResult(interp),

7303

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7304

return TCL_ERROR;

7305

}

7306

7307

ibis_tcl_error = 0;

7308

_result = (ib_net16_t *)_ib_node_info_device_id_set(_arg0,_arg1);

7309

;

7310

if (ibis_tcl_error) {

7311

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7312

return TCL_ERROR;

7313

}

7314

} tcl_result = Tcl_GetObjResult(interp);

7315

{

7316

char buff[20];

7317

sprintf(buff, "%u", cl_hton16(*_result));

7318

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7319

}

7320

return TCL_OK;

7321

}

7322

#define _ib_node_info_device_id_get(_swigobj) (&_swigobj->device_id)

7323

static int _wrap_sacNodeInfo_device_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7324

7325

ib_net16_t * _result;

7326

sacNodeInfo * _arg0;

7327

Tcl_Obj * tcl_result;

7328

char * rettype;

7329

7330

clientData = clientData; objv = objv;

7331

tcl_result = Tcl_GetObjResult(interp);

7332

if ((objc < 2) || (objc > 2)) {

7333

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_device_id_get { sacNodeInfo * } ",-1);

7334

return TCL_ERROR;

7335

}

7336

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7337

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_device_id_get. Expected _sacNodeInfo_p, received ", -1);

7338

Tcl_AppendToObj(tcl_result, rettype, -1);

7339

return TCL_ERROR;

7340

}

7341

{

7342

/* we can check if IBIS was initialized here */

7343

if (!IbisObj.initialized)

7344

{

7345

Tcl_SetStringObj(

7346

Tcl_GetObjResult(interp),

7347

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7348

return TCL_ERROR;

7349

}

7350

7351

if (! IbisObj.port_guid)

7352

{

7353

Tcl_SetStringObj(

7354

Tcl_GetObjResult(interp),

7355

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7356

return TCL_ERROR;

7357

}

7358

7359

ibis_tcl_error = 0;

7360

_result = (ib_net16_t *)_ib_node_info_device_id_get(_arg0);

7361

;

7362

if (ibis_tcl_error) {

7363

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7364

return TCL_ERROR;

7365

}

7366

} tcl_result = Tcl_GetObjResult(interp);

7367

{

7368

char buff[20];

7369

sprintf(buff, "%u", cl_hton16(*_result));

7370

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7371

}

7372

return TCL_OK;

7373

}

7374

#define _ib_node_info_revision_set(_swigobj,_swigval) (_swigobj->revision = *(_swigval),_swigval)

7375

static int _wrap_sacNodeInfo_revision_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7376

7377

ib_net32_t * _result;

7378

sacNodeInfo * _arg0;

7379

ib_net32_t * _arg1;

7380

Tcl_Obj * tcl_result;

7381

char * rettype;

7382

ib_net32_t temp;

7383

7384

clientData = clientData; objv = objv;

7385

tcl_result = Tcl_GetObjResult(interp);

7386

if ((objc < 3) || (objc > 3)) {

7387

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_revision_set { sacNodeInfo * } { ib_net32_t * } ",-1);

7388

return TCL_ERROR;

7389

}

7390

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7391

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_revision_set. Expected _sacNodeInfo_p, received ", -1);

7392

Tcl_AppendToObj(tcl_result, rettype, -1);

7393

return TCL_ERROR;

7394

}

7395

{

7396

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

7397

_arg1 = &temp;

7398

}

7399

{

7400

/* we can check if IBIS was initialized here */

7401

if (!IbisObj.initialized)

7402

{

7403

Tcl_SetStringObj(

7404

Tcl_GetObjResult(interp),

7405

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7406

return TCL_ERROR;

7407

}

7408

7409

if (! IbisObj.port_guid)

7410

{

7411

Tcl_SetStringObj(

7412

Tcl_GetObjResult(interp),

7413

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7414

return TCL_ERROR;

7415

}

7416

7417

ibis_tcl_error = 0;

7418

_result = (ib_net32_t *)_ib_node_info_revision_set(_arg0,_arg1);

7419

;

7420

if (ibis_tcl_error) {

7421

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7422

return TCL_ERROR;

7423

}

7424

} tcl_result = Tcl_GetObjResult(interp);

7425

{

7426

char buff[20];

7427

sprintf(buff, "%u", cl_ntoh32(*_result));

7428

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7429

}

7430

return TCL_OK;

7431

}

7432

#define _ib_node_info_revision_get(_swigobj) (&_swigobj->revision)

7433

static int _wrap_sacNodeInfo_revision_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7434

7435

ib_net32_t * _result;

7436

sacNodeInfo * _arg0;

7437

Tcl_Obj * tcl_result;

7438

char * rettype;

7439

7440

clientData = clientData; objv = objv;

7441

tcl_result = Tcl_GetObjResult(interp);

7442

if ((objc < 2) || (objc > 2)) {

7443

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_revision_get { sacNodeInfo * } ",-1);

7444

return TCL_ERROR;

7445

}

7446

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7447

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_revision_get. Expected _sacNodeInfo_p, received ", -1);

7448

Tcl_AppendToObj(tcl_result, rettype, -1);

7449

return TCL_ERROR;

7450

}

7451

{

7452

/* we can check if IBIS was initialized here */

7453

if (!IbisObj.initialized)

7454

{

7455

Tcl_SetStringObj(

7456

Tcl_GetObjResult(interp),

7457

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7458

return TCL_ERROR;

7459

}

7460

7461

if (! IbisObj.port_guid)

7462

{

7463

Tcl_SetStringObj(

7464

Tcl_GetObjResult(interp),

7465

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7466

return TCL_ERROR;

7467

}

7468

7469

ibis_tcl_error = 0;

7470

_result = (ib_net32_t *)_ib_node_info_revision_get(_arg0);

7471

;

7472

if (ibis_tcl_error) {

7473

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7474

return TCL_ERROR;

7475

}

7476

} tcl_result = Tcl_GetObjResult(interp);

7477

{

7478

char buff[20];

7479

sprintf(buff, "%u", cl_ntoh32(*_result));

7480

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7481

}

7482

return TCL_OK;

7483

}

7484

#define _ib_node_info_port_num_vendor_id_set(_swigobj,_swigval) (_swigobj->port_num_vendor_id = *(_swigval),_swigval)

7485

static int _wrap_sacNodeInfo_port_num_vendor_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7486

7487

ib_net32_t * _result;

7488

sacNodeInfo * _arg0;

7489

ib_net32_t * _arg1;

7490

Tcl_Obj * tcl_result;

7491

char * rettype;

7492

ib_net32_t temp;

7493

7494

clientData = clientData; objv = objv;

7495

tcl_result = Tcl_GetObjResult(interp);

7496

if ((objc < 3) || (objc > 3)) {

7497

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_port_num_vendor_id_set { sacNodeInfo * } { ib_net32_t * } ",-1);

7498

return TCL_ERROR;

7499

}

7500

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7501

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_port_num_vendor_id_set. Expected _sacNodeInfo_p, received ", -1);

7502

Tcl_AppendToObj(tcl_result, rettype, -1);

7503

return TCL_ERROR;

7504

}

7505

{

7506

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

7507

_arg1 = &temp;

7508

}

7509

{

7510

/* we can check if IBIS was initialized here */

7511

if (!IbisObj.initialized)

7512

{

7513

Tcl_SetStringObj(

7514

Tcl_GetObjResult(interp),

7515

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7516

return TCL_ERROR;

7517

}

7518

7519

if (! IbisObj.port_guid)

7520

{

7521

Tcl_SetStringObj(

7522

Tcl_GetObjResult(interp),

7523

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7524

return TCL_ERROR;

7525

}

7526

7527

ibis_tcl_error = 0;

7528

_result = (ib_net32_t *)_ib_node_info_port_num_vendor_id_set(_arg0,_arg1);

7529

;

7530

if (ibis_tcl_error) {

7531

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7532

return TCL_ERROR;

7533

}

7534

} tcl_result = Tcl_GetObjResult(interp);

7535

{

7536

char buff[20];

7537

sprintf(buff, "%u", cl_ntoh32(*_result));

7538

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7539

}

7540

return TCL_OK;

7541

}

7542

#define _ib_node_info_port_num_vendor_id_get(_swigobj) (&_swigobj->port_num_vendor_id)

7543

static int _wrap_sacNodeInfo_port_num_vendor_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7544

7545

ib_net32_t * _result;

7546

sacNodeInfo * _arg0;

7547

Tcl_Obj * tcl_result;

7548

char * rettype;

7549

7550

clientData = clientData; objv = objv;

7551

tcl_result = Tcl_GetObjResult(interp);

7552

if ((objc < 2) || (objc > 2)) {

7553

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_port_num_vendor_id_get { sacNodeInfo * } ",-1);

7554

return TCL_ERROR;

7555

}

7556

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7557

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_port_num_vendor_id_get. Expected _sacNodeInfo_p, received ", -1);

7558

Tcl_AppendToObj(tcl_result, rettype, -1);

7559

return TCL_ERROR;

7560

}

7561

{

7562

/* we can check if IBIS was initialized here */

7563

if (!IbisObj.initialized)

7564

{

7565

Tcl_SetStringObj(

7566

Tcl_GetObjResult(interp),

7567

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7568

return TCL_ERROR;

7569

}

7570

7571

if (! IbisObj.port_guid)

7572

{

7573

Tcl_SetStringObj(

7574

Tcl_GetObjResult(interp),

7575

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7576

return TCL_ERROR;

7577

}

7578

7579

ibis_tcl_error = 0;

7580

_result = (ib_net32_t *)_ib_node_info_port_num_vendor_id_get(_arg0);

7581

;

7582

if (ibis_tcl_error) {

7583

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7584

return TCL_ERROR;

7585

}

7586

} tcl_result = Tcl_GetObjResult(interp);

7587

{

7588

char buff[20];

7589

sprintf(buff, "%u", cl_ntoh32(*_result));

7590

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7591

}

7592

return TCL_OK;

7593

}

7594

static void sacNodeInfo_delete(sacNodeInfo *self) {

7595

SWIG_AltMnglUnregObj(self);

7596

free(self);

7597

}

7598

static int _wrap_sacNodeInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7599

7600

sacNodeInfo * _arg0;

7601

Tcl_Obj * tcl_result;

7602

char * rettype;

7603

7604

clientData = clientData; objv = objv;

7605

tcl_result = Tcl_GetObjResult(interp);

7606

if ((objc < 2) || (objc > 2)) {

7607

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeInfo_delete { sacNodeInfo * } ",-1);

7608

return TCL_ERROR;

7609

}

7610

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeInfo_p"))) {

7611

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeInfo_delete. Expected _sacNodeInfo_p, received ", -1);

7612

Tcl_AppendToObj(tcl_result, rettype, -1);

7613

return TCL_ERROR;

7614

}

7615

{

7616

/* we can check if IBIS was initialized here */

7617

if (!IbisObj.initialized)

7618

{

7619

Tcl_SetStringObj(

7620

Tcl_GetObjResult(interp),

7621

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7622

return TCL_ERROR;

7623

}

7624

7625

if (! IbisObj.port_guid)

7626

{

7627

Tcl_SetStringObj(

7628

Tcl_GetObjResult(interp),

7629

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7630

return TCL_ERROR;

7631

}

7632

7633

ibis_tcl_error = 0;

7634

sacNodeInfo_delete(_arg0);

7635

;

7636

if (ibis_tcl_error) {

7637

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7638

return TCL_ERROR;

7639

}

7640

} tcl_result = Tcl_GetObjResult(interp);

7641

return TCL_OK;

7642

}

7643

/* methodcmd8.swg : Tcl8.x method invocation */

7644

7645

static int TclsacNodeInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

7646

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

7647

char *_str;

7648

int rcode;

7649

Tcl_Obj **objv;

7650

Tcl_Obj *oldarg,*tcl_result,*obj;

7651

int length;

7652

char c;

7653

7654

tcl_result = Tcl_GetObjResult(interp);

7655

objv = (Tcl_Obj **) _objv;

7656

if (objc < 2) {

7657

Tcl_SetStringObj(tcl_result,"sacNodeInfo methods : { dump cget configure delete }",-1);

7658

return TCL_ERROR;

7659

}

7660

obj = Tcl_NewObj();

7661

SWIG_SetPointerObj(obj,(void *) clientData,"_sacNodeInfo_p");

7662

_str = Tcl_GetStringFromObj(objv[1],&length);

7663

c = *_str;

7664

if (0);

7665

if (strcmp(_str,"delete") == 0) {

7666

cmd = _wrap_sacNodeInfo_delete;

7667

}

7668

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

7669

int i = 2;

7670

cmd = 0;

7671

while (i+1 < objc) {

7672

_str = Tcl_GetStringFromObj(objv[i],&length);

7673

if (strcmp(_str,"-base_version") == 0) {

7674

cmd = _wrap_sacNodeInfo_base_version_set;

7675

} else if (strcmp(_str,"-class_version") == 0) {

7676

cmd = _wrap_sacNodeInfo_class_version_set;

7677

} else if (strcmp(_str,"-node_type") == 0) {

7678

cmd = _wrap_sacNodeInfo_node_type_set;

7679

} else if (strcmp(_str,"-num_ports") == 0) {

7680

cmd = _wrap_sacNodeInfo_num_ports_set;

7681

} else if (strcmp(_str,"-sys_guid") == 0) {

7682

cmd = _wrap_sacNodeInfo_sys_guid_set;

7683

} else if (strcmp(_str,"-node_guid") == 0) {

7684

cmd = _wrap_sacNodeInfo_node_guid_set;

7685

} else if (strcmp(_str,"-port_guid") == 0) {

7686

cmd = _wrap_sacNodeInfo_port_guid_set;

7687

} else if (strcmp(_str,"-partition_cap") == 0) {

7688

cmd = _wrap_sacNodeInfo_partition_cap_set;

7689

} else if (strcmp(_str,"-device_id") == 0) {

7690

cmd = _wrap_sacNodeInfo_device_id_set;

7691

} else if (strcmp(_str,"-revision") == 0) {

7692

cmd = _wrap_sacNodeInfo_revision_set;

7693

} else if (strcmp(_str,"-port_num_vendor_id") == 0) {

7694

cmd = _wrap_sacNodeInfo_port_num_vendor_id_set;

7695

}

7696

if (cmd) {

7697

oldarg = objv[i];

7698

objv[i] = obj;

7699

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

7700

objv[i] = oldarg;

7701

if (rcode == TCL_ERROR) return rcode;

7702

cmd = 0;

7703

} else {

7704

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

7705

return TCL_ERROR;

7706

}

7707

i+=2;

7708

}

7709

if ((i < objc) || (i == 2)) {

7710

Tcl_SetStringObj(tcl_result,"{ -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

7711

return TCL_ERROR;

7712

}

7713

return TCL_OK;

7714

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

7715

if (objc == 3) {

7716

_str = Tcl_GetStringFromObj(objv[2],&length);

7717

if (0) {}

7718

if (strcmp(_str,"-base_version") == 0) {

7719

cmd = _wrap_sacNodeInfo_base_version_get;

7720

} else if (strcmp(_str,"-class_version") == 0) {

7721

cmd = _wrap_sacNodeInfo_class_version_get;

7722

} else if (strcmp(_str,"-node_type") == 0) {

7723

cmd = _wrap_sacNodeInfo_node_type_get;

7724

} else if (strcmp(_str,"-num_ports") == 0) {

7725

cmd = _wrap_sacNodeInfo_num_ports_get;

7726

} else if (strcmp(_str,"-sys_guid") == 0) {

7727

cmd = _wrap_sacNodeInfo_sys_guid_get;

7728

} else if (strcmp(_str,"-node_guid") == 0) {

7729

cmd = _wrap_sacNodeInfo_node_guid_get;

7730

} else if (strcmp(_str,"-port_guid") == 0) {

7731

cmd = _wrap_sacNodeInfo_port_guid_get;

7732

} else if (strcmp(_str,"-partition_cap") == 0) {

7733

cmd = _wrap_sacNodeInfo_partition_cap_get;

7734

} else if (strcmp(_str,"-device_id") == 0) {

7735

cmd = _wrap_sacNodeInfo_device_id_get;

7736

} else if (strcmp(_str,"-revision") == 0) {

7737

cmd = _wrap_sacNodeInfo_revision_get;

7738

} else if (strcmp(_str,"-port_num_vendor_id") == 0) {

7739

cmd = _wrap_sacNodeInfo_port_num_vendor_id_get;

7740

}

7741

else if (strcmp(_str,"-this") == 0) {

7742

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacNodeInfo_p");

7743

return TCL_OK;

7744

}

7745

if (cmd) {

7746

oldarg = objv[2];

7747

objv[2] = obj;

7748

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

7749

objv[2] = oldarg;

7750

return rcode;

7751

} else {

7752

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

7753

return TCL_ERROR;

7754

}

7755

} else {

7756

Tcl_SetStringObj(tcl_result,"{ -this -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }", -1);

7757

return TCL_ERROR;

7758

}

7759

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

7760

if (objc == 2) {

7761

Tcl_Obj *pDumpObj;

7762

pDumpObj = Tcl_NewStringObj("",-1);

7763

Tcl_IncrRefCount(pDumpObj);

7764

cmd = _wrap_sacNodeInfo_base_version_get;

7765

oldarg = objv[2];

7766

objv[2] = obj;

7767

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7768

objv[2] = oldarg;

7769

Tcl_AppendStringsToObj(pDumpObj, "-base_version ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7770

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7771

cmd = _wrap_sacNodeInfo_class_version_get;

7772

oldarg = objv[2];

7773

objv[2] = obj;

7774

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7775

objv[2] = oldarg;

7776

Tcl_AppendStringsToObj(pDumpObj, "-class_version ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7777

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7778

cmd = _wrap_sacNodeInfo_node_type_get;

7779

oldarg = objv[2];

7780

objv[2] = obj;

7781

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7782

objv[2] = oldarg;

7783

Tcl_AppendStringsToObj(pDumpObj, "-node_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7784

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7785

cmd = _wrap_sacNodeInfo_num_ports_get;

7786

oldarg = objv[2];

7787

objv[2] = obj;

7788

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7789

objv[2] = oldarg;

7790

Tcl_AppendStringsToObj(pDumpObj, "-num_ports ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7791

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7792

cmd = _wrap_sacNodeInfo_sys_guid_get;

7793

oldarg = objv[2];

7794

objv[2] = obj;

7795

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7796

objv[2] = oldarg;

7797

Tcl_AppendStringsToObj(pDumpObj, "-sys_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7798

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7799

cmd = _wrap_sacNodeInfo_node_guid_get;

7800

oldarg = objv[2];

7801

objv[2] = obj;

7802

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7803

objv[2] = oldarg;

7804

Tcl_AppendStringsToObj(pDumpObj, "-node_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7805

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7806

cmd = _wrap_sacNodeInfo_port_guid_get;

7807

oldarg = objv[2];

7808

objv[2] = obj;

7809

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7810

objv[2] = oldarg;

7811

Tcl_AppendStringsToObj(pDumpObj, "-port_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7812

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7813

cmd = _wrap_sacNodeInfo_partition_cap_get;

7814

oldarg = objv[2];

7815

objv[2] = obj;

7816

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7817

objv[2] = oldarg;

7818

Tcl_AppendStringsToObj(pDumpObj, "-partition_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7819

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7820

cmd = _wrap_sacNodeInfo_device_id_get;

7821

oldarg = objv[2];

7822

objv[2] = obj;

7823

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7824

objv[2] = oldarg;

7825

Tcl_AppendStringsToObj(pDumpObj, "-device_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7826

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7827

cmd = _wrap_sacNodeInfo_revision_get;

7828

oldarg = objv[2];

7829

objv[2] = obj;

7830

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7831

objv[2] = oldarg;

7832

Tcl_AppendStringsToObj(pDumpObj, "-revision ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7833

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7834

cmd = _wrap_sacNodeInfo_port_num_vendor_id_get;

7835

oldarg = objv[2];

7836

objv[2] = obj;

7837

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

7838

objv[2] = oldarg;

7839

Tcl_AppendStringsToObj(pDumpObj, "-port_num_vendor_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

7840

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

7841

7842

Tcl_DecrRefCount(pDumpObj);

7843

return TCL_OK;

7844

} else {

7845

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

7846

return TCL_ERROR;

7847

}

7848

}

7849

if (!cmd) {

7850

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure delete }",-1);

7851

return TCL_ERROR;

7852

}

7853

oldarg = objv[1];

7854

objv[1] = obj;

7855

rcode = (*cmd)(clientData,interp,objc,objv);

7856

objv[1] = oldarg;

7857

return rcode;

7858

}

7859

7860

7861

7862

/* objcmd8.swg : Tcl 8.x object creation */

7863

7864

static int TclsacNodeInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7865

void (*del)(ClientData) = 0;

7866

char *name = 0;

7867

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

7868

sacNodeInfo * newObj = 0;

7869

int firstarg = 0;

7870

int thisarg = 0;

7871

int length;

7872

char *_str;

7873

Tcl_Obj *tcl_result;

7874

7875

tcl_result = Tcl_GetObjResult(interp);

7876

if (objc == 1) {

7877

cmd = 0;

7878

} else {

7879

_str = Tcl_GetStringFromObj(objv[1],&length);

7880

if (strcmp(_str,"-this") == 0) thisarg = 2;

7881

else if (strcmp(_str,"-args") == 0) {

7882

firstarg = 1;

7883

cmd = 0;

7884

} else if (objc == 2) {

7885

firstarg = 1;

7886

name = _str;

7887

cmd = 0;

7888

} else if (objc >= 3) {

7889

name = _str;

7890

_str = Tcl_GetStringFromObj(objv[2],&length);

7891

if (strcmp(_str,"-this") == 0) thisarg = 3;

7892

else {

7893

firstarg = 1;

7894

cmd = 0;

7895

}

7896

}

7897

}

7898

if (cmd) {

7899

int result;

7900

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

7901

if (result == TCL_OK) {

7902

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacNodeInfo_p");

7903

} else { return result; }

7904

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

7905

del = 0;

7906

} else if (thisarg > 0) {

7907

if (thisarg < objc) {

7908

char *r;

7909

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacNodeInfo_p");

7910

if (r) {

7911

Tcl_SetStringObj(tcl_result,"Type error. not a sacNodeInfo object.",-1);

7912

return TCL_ERROR;

7913

}

7914

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

7915

Tcl_SetStringObj(tcl_result,name,-1);

7916

} else {

7917

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

7918

return TCL_ERROR;

7919

}

7920

} else {

7921

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

7922

return TCL_ERROR;

7923

}

7924

{

7925

Tcl_CmdInfo dummy;

7926

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

7927

Tcl_CreateObjCommand(interp,name, TclsacNodeInfoMethodCmd, (ClientData) newObj, del);

7928

return TCL_OK;

7929

} else {

7930

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

7931

return TCL_ERROR;

7932

}

7933

}

7934

}

7935

7936

7937

#define _ib_node_record_t_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

7938

static int _wrap_sacNodeRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7939

7940

ib_net16_t * _result;

7941

sacNodeRec * _arg0;

7942

ib_net16_t * _arg1;

7943

Tcl_Obj * tcl_result;

7944

char * rettype;

7945

ib_net16_t temp;

7946

7947

clientData = clientData; objv = objv;

7948

tcl_result = Tcl_GetObjResult(interp);

7949

if ((objc < 3) || (objc > 3)) {

7950

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_lid_set { sacNodeRec * } { ib_net16_t * } ",-1);

7951

return TCL_ERROR;

7952

}

7953

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

7954

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_lid_set. Expected _sacNodeRec_p, received ", -1);

7955

Tcl_AppendToObj(tcl_result, rettype, -1);

7956

return TCL_ERROR;

7957

}

7958

{

7959

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

7960

_arg1 = &temp;

7961

}

7962

{

7963

/* we can check if IBIS was initialized here */

7964

if (!IbisObj.initialized)

7965

{

7966

Tcl_SetStringObj(

7967

Tcl_GetObjResult(interp),

7968

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

7969

return TCL_ERROR;

7970

}

7971

7972

if (! IbisObj.port_guid)

7973

{

7974

Tcl_SetStringObj(

7975

Tcl_GetObjResult(interp),

7976

" ibis was not yet initialized. please use ibis_set_port before.", -1);

7977

return TCL_ERROR;

7978

}

7979

7980

ibis_tcl_error = 0;

7981

_result = (ib_net16_t *)_ib_node_record_t_lid_set(_arg0,_arg1);

7982

;

7983

if (ibis_tcl_error) {

7984

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

7985

return TCL_ERROR;

7986

}

7987

} tcl_result = Tcl_GetObjResult(interp);

7988

{

7989

char buff[20];

7990

sprintf(buff, "%u", cl_hton16(*_result));

7991

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

7992

}

7993

return TCL_OK;

7994

}

7995

#define _ib_node_record_t_lid_get(_swigobj) (&_swigobj->lid)

7996

static int _wrap_sacNodeRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

7997

7998

ib_net16_t * _result;

7999

sacNodeRec * _arg0;

8000

Tcl_Obj * tcl_result;

8001

char * rettype;

8002

8003

clientData = clientData; objv = objv;

8004

tcl_result = Tcl_GetObjResult(interp);

8005

if ((objc < 2) || (objc > 2)) {

8006

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_lid_get { sacNodeRec * } ",-1);

8007

return TCL_ERROR;

8008

}

8009

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8010

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_lid_get. Expected _sacNodeRec_p, received ", -1);

8011

Tcl_AppendToObj(tcl_result, rettype, -1);

8012

return TCL_ERROR;

8013

}

8014

{

8015

/* we can check if IBIS was initialized here */

8016

if (!IbisObj.initialized)

8017

{

8018

Tcl_SetStringObj(

8019

Tcl_GetObjResult(interp),

8020

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8021

return TCL_ERROR;

8022

}

8023

8024

if (! IbisObj.port_guid)

8025

{

8026

Tcl_SetStringObj(

8027

Tcl_GetObjResult(interp),

8028

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8029

return TCL_ERROR;

8030

}

8031

8032

ibis_tcl_error = 0;

8033

_result = (ib_net16_t *)_ib_node_record_t_lid_get(_arg0);

8034

;

8035

if (ibis_tcl_error) {

8036

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8037

return TCL_ERROR;

8038

}

8039

} tcl_result = Tcl_GetObjResult(interp);

8040

{

8041

char buff[20];

8042

sprintf(buff, "%u", cl_hton16(*_result));

8043

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8044

}

8045

return TCL_OK;

8046

}

8047

#define _ib_node_record_t_node_info_set(_swigobj,_swigval) (_swigobj->node_info = *(_swigval),_swigval)

8048

static int _wrap_sacNodeRec_node_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8049

8050

sacNodeInfo * _result;

8051

sacNodeRec * _arg0;

8052

sacNodeInfo * _arg1;

8053

Tcl_Obj * tcl_result;

8054

char * rettype;

8055

8056

clientData = clientData; objv = objv;

8057

tcl_result = Tcl_GetObjResult(interp);

8058

if ((objc < 3) || (objc > 3)) {

8059

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_node_info_set { sacNodeRec * } { sacNodeInfo * } ",-1);

8060

return TCL_ERROR;

8061

}

8062

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8063

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_node_info_set. Expected _sacNodeRec_p, received ", -1);

8064

Tcl_AppendToObj(tcl_result, rettype, -1);

8065

return TCL_ERROR;

8066

}

8067

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacNodeInfo_p"))) {

8068

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacNodeRec_node_info_set. Expected _sacNodeInfo_p, received ", -1);

8069

Tcl_AppendToObj(tcl_result, rettype, -1);

8070

return TCL_ERROR;

8071

}

8072

{

8073

/* we can check if IBIS was initialized here */

8074

if (!IbisObj.initialized)

8075

{

8076

Tcl_SetStringObj(

8077

Tcl_GetObjResult(interp),

8078

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8079

return TCL_ERROR;

8080

}

8081

8082

if (! IbisObj.port_guid)

8083

{

8084

Tcl_SetStringObj(

8085

Tcl_GetObjResult(interp),

8086

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8087

return TCL_ERROR;

8088

}

8089

8090

ibis_tcl_error = 0;

8091

_result = (sacNodeInfo *)_ib_node_record_t_node_info_set(_arg0,_arg1);

8092

;

8093

if (ibis_tcl_error) {

8094

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8095

return TCL_ERROR;

8096

}

8097

} tcl_result = Tcl_GetObjResult(interp);

8098

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacNodeInfo_p");

8099

return TCL_OK;

8100

}

8101

#define _ib_node_record_t_node_info_get(_swigobj) (&_swigobj->node_info)

8102

static int _wrap_sacNodeRec_node_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8103

8104

sacNodeInfo * _result;

8105

sacNodeRec * _arg0;

8106

Tcl_Obj * tcl_result;

8107

char * rettype;

8108

8109

clientData = clientData; objv = objv;

8110

tcl_result = Tcl_GetObjResult(interp);

8111

if ((objc < 2) || (objc > 2)) {

8112

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_node_info_get { sacNodeRec * } ",-1);

8113

return TCL_ERROR;

8114

}

8115

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8116

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_node_info_get. Expected _sacNodeRec_p, received ", -1);

8117

Tcl_AppendToObj(tcl_result, rettype, -1);

8118

return TCL_ERROR;

8119

}

8120

{

8121

/* we can check if IBIS was initialized here */

8122

if (!IbisObj.initialized)

8123

{

8124

Tcl_SetStringObj(

8125

Tcl_GetObjResult(interp),

8126

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8127

return TCL_ERROR;

8128

}

8129

8130

if (! IbisObj.port_guid)

8131

{

8132

Tcl_SetStringObj(

8133

Tcl_GetObjResult(interp),

8134

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8135

return TCL_ERROR;

8136

}

8137

8138

ibis_tcl_error = 0;

8139

_result = (sacNodeInfo *)_ib_node_record_t_node_info_get(_arg0);

8140

;

8141

if (ibis_tcl_error) {

8142

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8143

return TCL_ERROR;

8144

}

8145

} tcl_result = Tcl_GetObjResult(interp);

8146

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacNodeInfo_p");

8147

return TCL_OK;

8148

}

8149

#define _ib_node_record_t_node_desc_set(_swigobj,_swigval) (_swigobj->node_desc = *(_swigval),_swigval)

8150

static int _wrap_sacNodeRec_node_desc_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8151

8152

ib_node_desc_t * _result;

8153

sacNodeRec * _arg0;

8154

ib_node_desc_t * _arg1;

8155

Tcl_Obj * tcl_result;

8156

char * rettype;

8157

ib_node_desc_t temp;

8158

8159

clientData = clientData; objv = objv;

8160

tcl_result = Tcl_GetObjResult(interp);

8161

if ((objc < 3) || (objc > 3)) {

8162

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_node_desc_set { sacNodeRec * } { ib_node_desc_t * } ",-1);

8163

return TCL_ERROR;

8164

}

8165

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8166

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_node_desc_set. Expected _sacNodeRec_p, received ", -1);

8167

Tcl_AppendToObj(tcl_result, rettype, -1);

8168

return TCL_ERROR;

8169

}

8170

{

8171

strcpy((char *)temp.description, Tcl_GetStringFromObj(objv[2],NULL));

8172

_arg1 = &temp;

8173

}

8174

{

8175

/* we can check if IBIS was initialized here */

8176

if (!IbisObj.initialized)

8177

{

8178

Tcl_SetStringObj(

8179

Tcl_GetObjResult(interp),

8180

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8181

return TCL_ERROR;

8182

}

8183

8184

if (! IbisObj.port_guid)

8185

{

8186

Tcl_SetStringObj(

8187

Tcl_GetObjResult(interp),

8188

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8189

return TCL_ERROR;

8190

}

8191

8192

ibis_tcl_error = 0;

8193

_result = (ib_node_desc_t *)_ib_node_record_t_node_desc_set(_arg0,_arg1);

8194

;

8195

if (ibis_tcl_error) {

8196

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8197

return TCL_ERROR;

8198

}

8199

} tcl_result = Tcl_GetObjResult(interp);

8200

{

8201

/* we must make sure we do not overflow the node desc length */

8202

char buff[IB_NODE_DESCRIPTION_SIZE];

8203

strncpy(buff,(char *)_result,IB_NODE_DESCRIPTION_SIZE - 1);

8204

buff[IB_NODE_DESCRIPTION_SIZE - 1] = '\0';

8205

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

8206

}

8207

return TCL_OK;

8208

}

8209

#define _ib_node_record_t_node_desc_get(_swigobj) (&_swigobj->node_desc)

8210

static int _wrap_sacNodeRec_node_desc_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8211

8212

ib_node_desc_t * _result;

8213

sacNodeRec * _arg0;

8214

Tcl_Obj * tcl_result;

8215

char * rettype;

8216

8217

clientData = clientData; objv = objv;

8218

tcl_result = Tcl_GetObjResult(interp);

8219

if ((objc < 2) || (objc > 2)) {

8220

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_node_desc_get { sacNodeRec * } ",-1);

8221

return TCL_ERROR;

8222

}

8223

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8224

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_node_desc_get. Expected _sacNodeRec_p, received ", -1);

8225

Tcl_AppendToObj(tcl_result, rettype, -1);

8226

return TCL_ERROR;

8227

}

8228

{

8229

/* we can check if IBIS was initialized here */

8230

if (!IbisObj.initialized)

8231

{

8232

Tcl_SetStringObj(

8233

Tcl_GetObjResult(interp),

8234

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8235

return TCL_ERROR;

8236

}

8237

8238

if (! IbisObj.port_guid)

8239

{

8240

Tcl_SetStringObj(

8241

Tcl_GetObjResult(interp),

8242

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8243

return TCL_ERROR;

8244

}

8245

8246

ibis_tcl_error = 0;

8247

_result = (ib_node_desc_t *)_ib_node_record_t_node_desc_get(_arg0);

8248

;

8249

if (ibis_tcl_error) {

8250

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8251

return TCL_ERROR;

8252

}

8253

} tcl_result = Tcl_GetObjResult(interp);

8254

{

8255

/* we must make sure we do not overflow the node desc length */

8256

char buff[IB_NODE_DESCRIPTION_SIZE];

8257

strncpy(buff,(char *)_result,IB_NODE_DESCRIPTION_SIZE - 1);

8258

buff[IB_NODE_DESCRIPTION_SIZE - 1] = '\0';

8259

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

8260

}

8261

return TCL_OK;

8262

}

8263

static char * sacNodeRec_get(sacNodeRec *self,uint64_t comp_mask) {

8264

return(ibsacNodeRecordQuery(self, cl_hton64(comp_mask),

8265

IB_MAD_METHOD_GET));

8266

}

8267

static int _wrap_sacNodeRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8268

8269

char * _result;

8270

sacNodeRec * _arg0;

8271

uint64_t * _arg1;

8272

Tcl_Obj * tcl_result;

8273

char * rettype;

8274

uint64_t temp;

8275

8276

clientData = clientData; objv = objv;

8277

tcl_result = Tcl_GetObjResult(interp);

8278

if ((objc < 3) || (objc > 3)) {

8279

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_get { sacNodeRec * } comp_mask ",-1);

8280

return TCL_ERROR;

8281

}

8282

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8283

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_get. Expected _sacNodeRec_p, received ", -1);

8284

Tcl_AppendToObj(tcl_result, rettype, -1);

8285

return TCL_ERROR;

8286

}

8287

{

8288

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

8289

_arg1 = &temp;

8290

}

8291

{

8292

/* we can check if IBIS was initialized here */

8293

if (!IbisObj.initialized)

8294

{

8295

Tcl_SetStringObj(

8296

Tcl_GetObjResult(interp),

8297

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8298

return TCL_ERROR;

8299

}

8300

8301

if (! IbisObj.port_guid)

8302

{

8303

Tcl_SetStringObj(

8304

Tcl_GetObjResult(interp),

8305

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8306

return TCL_ERROR;

8307

}

8308

8309

ibis_tcl_error = 0;

8310

_result = (char *)sacNodeRec_get(_arg0,*_arg1);

8311

;

8312

if (ibis_tcl_error) {

8313

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8314

return TCL_ERROR;

8315

}

8316

} tcl_result = Tcl_GetObjResult(interp);

8317

Tcl_SetStringObj(tcl_result,_result,-1);

8318

free(_result);

8319

8320

return TCL_OK;

8321

}

8322

static char * sacNodeRec_getTable(sacNodeRec *self,uint64_t comp_mask) {

8323

return(ibsacNodeRecordQuery(self, cl_hton64(comp_mask),

8324

IB_MAD_METHOD_GETTABLE));

8325

}

8326

static int _wrap_sacNodeRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8327

8328

char * _result;

8329

sacNodeRec * _arg0;

8330

uint64_t * _arg1;

8331

Tcl_Obj * tcl_result;

8332

char * rettype;

8333

uint64_t temp;

8334

8335

clientData = clientData; objv = objv;

8336

tcl_result = Tcl_GetObjResult(interp);

8337

if ((objc < 3) || (objc > 3)) {

8338

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_getTable { sacNodeRec * } comp_mask ",-1);

8339

return TCL_ERROR;

8340

}

8341

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8342

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_getTable. Expected _sacNodeRec_p, received ", -1);

8343

Tcl_AppendToObj(tcl_result, rettype, -1);

8344

return TCL_ERROR;

8345

}

8346

{

8347

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

8348

_arg1 = &temp;

8349

}

8350

{

8351

/* we can check if IBIS was initialized here */

8352

if (!IbisObj.initialized)

8353

{

8354

Tcl_SetStringObj(

8355

Tcl_GetObjResult(interp),

8356

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8357

return TCL_ERROR;

8358

}

8359

8360

if (! IbisObj.port_guid)

8361

{

8362

Tcl_SetStringObj(

8363

Tcl_GetObjResult(interp),

8364

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8365

return TCL_ERROR;

8366

}

8367

8368

ibis_tcl_error = 0;

8369

_result = (char *)sacNodeRec_getTable(_arg0,*_arg1);

8370

;

8371

if (ibis_tcl_error) {

8372

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8373

return TCL_ERROR;

8374

}

8375

} tcl_result = Tcl_GetObjResult(interp);

8376

Tcl_SetStringObj(tcl_result,_result,-1);

8377

free(_result);

8378

8379

return TCL_OK;

8380

}

8381

static void sacNodeRec_delete(sacNodeRec *self) {

8382

/* we need to de-register both the node info and node record */

8383

SWIG_AltMnglUnregObj(&(self->node_info));

8384

SWIG_AltMnglUnregObj(self);

8385

free(self);

8386

}

8387

static int _wrap_sacNodeRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8388

8389

sacNodeRec * _arg0;

8390

Tcl_Obj * tcl_result;

8391

char * rettype;

8392

8393

clientData = clientData; objv = objv;

8394

tcl_result = Tcl_GetObjResult(interp);

8395

if ((objc < 2) || (objc > 2)) {

8396

Tcl_SetStringObj(tcl_result,"Wrong # args. sacNodeRec_delete { sacNodeRec * } ",-1);

8397

return TCL_ERROR;

8398

}

8399

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacNodeRec_p"))) {

8400

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacNodeRec_delete. Expected _sacNodeRec_p, received ", -1);

8401

Tcl_AppendToObj(tcl_result, rettype, -1);

8402

return TCL_ERROR;

8403

}

8404

{

8405

/* we can check if IBIS was initialized here */

8406

if (!IbisObj.initialized)

8407

{

8408

Tcl_SetStringObj(

8409

Tcl_GetObjResult(interp),

8410

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8411

return TCL_ERROR;

8412

}

8413

8414

if (! IbisObj.port_guid)

8415

{

8416

Tcl_SetStringObj(

8417

Tcl_GetObjResult(interp),

8418

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8419

return TCL_ERROR;

8420

}

8421

8422

ibis_tcl_error = 0;

8423

sacNodeRec_delete(_arg0);

8424

;

8425

if (ibis_tcl_error) {

8426

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8427

return TCL_ERROR;

8428

}

8429

} tcl_result = Tcl_GetObjResult(interp);

8430

return TCL_OK;

8431

}

8432

/* methodcmd8.swg : Tcl8.x method invocation */

8433

8434

static int TclsacNodeRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

8435

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

8436

char *_str;

8437

int rcode;

8438

Tcl_Obj **objv;

8439

Tcl_Obj *oldarg,*tcl_result,*obj;

8440

int length;

8441

char c;

8442

8443

tcl_result = Tcl_GetObjResult(interp);

8444

objv = (Tcl_Obj **) _objv;

8445

if (objc < 2) {

8446

Tcl_SetStringObj(tcl_result,"sacNodeRec methods : { dump cget configure get getTable delete }",-1);

8447

return TCL_ERROR;

8448

}

8449

obj = Tcl_NewObj();

8450

SWIG_SetPointerObj(obj,(void *) clientData,"_sacNodeRec_p");

8451

_str = Tcl_GetStringFromObj(objv[1],&length);

8452

c = *_str;

8453

if (0);

8454

if (strcmp(_str,"get") == 0) {

8455

cmd = _wrap_sacNodeRec_get;

8456

} else if (strcmp(_str,"getTable") == 0) {

8457

cmd = _wrap_sacNodeRec_getTable;

8458

} else if (strcmp(_str,"delete") == 0) {

8459

cmd = _wrap_sacNodeRec_delete;

8460

}

8461

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

8462

int i = 2;

8463

cmd = 0;

8464

while (i+1 < objc) {

8465

_str = Tcl_GetStringFromObj(objv[i],&length);

8466

if (strcmp(_str,"-lid") == 0) {

8467

cmd = _wrap_sacNodeRec_lid_set;

8468

} else if (strcmp(_str,"-node_info") == 0) {

8469

cmd = _wrap_sacNodeRec_node_info_set;

8470

} else if (strcmp(_str,"-node_desc") == 0) {

8471

cmd = _wrap_sacNodeRec_node_desc_set;

8472

}

8473

if (cmd) {

8474

oldarg = objv[i];

8475

objv[i] = obj;

8476

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

8477

objv[i] = oldarg;

8478

if (rcode == TCL_ERROR) return rcode;

8479

cmd = 0;

8480

} else {

8481

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -node_info -node_desc }",-1);

8482

return TCL_ERROR;

8483

}

8484

i+=2;

8485

}

8486

if ((i < objc) || (i == 2)) {

8487

Tcl_SetStringObj(tcl_result,"{ -lid -node_info -node_desc }",-1);

8488

return TCL_ERROR;

8489

}

8490

return TCL_OK;

8491

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

8492

if (objc == 3) {

8493

_str = Tcl_GetStringFromObj(objv[2],&length);

8494

if (0) {}

8495

if (strcmp(_str,"-lid") == 0) {

8496

cmd = _wrap_sacNodeRec_lid_get;

8497

} else if (strcmp(_str,"-node_info") == 0) {

8498

cmd = _wrap_sacNodeRec_node_info_get;

8499

} else if (strcmp(_str,"-node_desc") == 0) {

8500

cmd = _wrap_sacNodeRec_node_desc_get;

8501

}

8502

else if (strcmp(_str,"-this") == 0) {

8503

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacNodeRec_p");

8504

return TCL_OK;

8505

}

8506

if (cmd) {

8507

oldarg = objv[2];

8508

objv[2] = obj;

8509

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

8510

objv[2] = oldarg;

8511

return rcode;

8512

} else {

8513

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -node_info -node_desc }",-1);

8514

return TCL_ERROR;

8515

}

8516

} else {

8517

Tcl_SetStringObj(tcl_result,"{ -this -lid -node_info -node_desc }", -1);

8518

return TCL_ERROR;

8519

}

8520

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

8521

if (objc == 2) {

8522

Tcl_Obj *pDumpObj;

8523

pDumpObj = Tcl_NewStringObj("",-1);

8524

Tcl_IncrRefCount(pDumpObj);

8525

cmd = _wrap_sacNodeRec_lid_get;

8526

oldarg = objv[2];

8527

objv[2] = obj;

8528

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

8529

objv[2] = oldarg;

8530

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

8531

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

8532

cmd = _wrap_sacNodeRec_node_info_get;

8533

oldarg = objv[2];

8534

objv[2] = obj;

8535

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

8536

objv[2] = oldarg;

8537

Tcl_AppendStringsToObj(pDumpObj, "-node_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

8538

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

8539

cmd = _wrap_sacNodeRec_node_desc_get;

8540

oldarg = objv[2];

8541

objv[2] = obj;

8542

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

8543

objv[2] = oldarg;

8544

Tcl_AppendStringsToObj(pDumpObj, "-node_desc ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

8545

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

8546

8547

Tcl_DecrRefCount(pDumpObj);

8548

return TCL_OK;

8549

} else {

8550

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

8551

return TCL_ERROR;

8552

}

8553

}

8554

if (!cmd) {

8555

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

8556

return TCL_ERROR;

8557

}

8558

oldarg = objv[1];

8559

objv[1] = obj;

8560

rcode = (*cmd)(clientData,interp,objc,objv);

8561

objv[1] = oldarg;

8562

return rcode;

8563

}

8564

8565

8566

8567

/* objcmd8.swg : Tcl 8.x object creation */

8568

8569

static int TclsacNodeRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8570

void (*del)(ClientData) = 0;

8571

char *name = 0;

8572

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

8573

sacNodeRec * newObj = 0;

8574

int firstarg = 0;

8575

int thisarg = 0;

8576

int length;

8577

char *_str;

8578

Tcl_Obj *tcl_result;

8579

8580

tcl_result = Tcl_GetObjResult(interp);

8581

if (objc == 1) {

8582

cmd = 0;

8583

} else {

8584

_str = Tcl_GetStringFromObj(objv[1],&length);

8585

if (strcmp(_str,"-this") == 0) thisarg = 2;

8586

else if (strcmp(_str,"-args") == 0) {

8587

firstarg = 1;

8588

cmd = 0;

8589

} else if (objc == 2) {

8590

firstarg = 1;

8591

name = _str;

8592

cmd = 0;

8593

} else if (objc >= 3) {

8594

name = _str;

8595

_str = Tcl_GetStringFromObj(objv[2],&length);

8596

if (strcmp(_str,"-this") == 0) thisarg = 3;

8597

else {

8598

firstarg = 1;

8599

cmd = 0;

8600

}

8601

}

8602

}

8603

if (cmd) {

8604

int result;

8605

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

8606

if (result == TCL_OK) {

8607

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacNodeRec_p");

8608

} else { return result; }

8609

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

8610

del = 0;

8611

} else if (thisarg > 0) {

8612

if (thisarg < objc) {

8613

char *r;

8614

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacNodeRec_p");

8615

if (r) {

8616

Tcl_SetStringObj(tcl_result,"Type error. not a sacNodeRec object.",-1);

8617

return TCL_ERROR;

8618

}

8619

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

8620

Tcl_SetStringObj(tcl_result,name,-1);

8621

} else {

8622

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

8623

return TCL_ERROR;

8624

}

8625

} else {

8626

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

8627

return TCL_ERROR;

8628

}

8629

{

8630

Tcl_CmdInfo dummy;

8631

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

8632

Tcl_CreateObjCommand(interp,name, TclsacNodeRecMethodCmd, (ClientData) newObj, del);

8633

return TCL_OK;

8634

} else {

8635

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

8636

return TCL_ERROR;

8637

}

8638

}

8639

}

8640

8641

8642

#define _ib_port_info_m_key_set(_swigobj,_swigval) (_swigobj->m_key = *(_swigval),_swigval)

8643

static int _wrap_sacPortInfo_m_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8644

8645

ib_net64_t * _result;

8646

sacPortInfo * _arg0;

8647

ib_net64_t * _arg1;

8648

Tcl_Obj * tcl_result;

8649

char * rettype;

8650

uint64_t temp;

8651

8652

clientData = clientData; objv = objv;

8653

tcl_result = Tcl_GetObjResult(interp);

8654

if ((objc < 3) || (objc > 3)) {

8655

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_set { sacPortInfo * } { ib_net64_t * } ",-1);

8656

return TCL_ERROR;

8657

}

8658

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8659

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_set. Expected _sacPortInfo_p, received ", -1);

8660

Tcl_AppendToObj(tcl_result, rettype, -1);

8661

return TCL_ERROR;

8662

}

8663

{

8664

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

8665

_arg1 = &temp;

8666

}

8667

{

8668

/* we can check if IBIS was initialized here */

8669

if (!IbisObj.initialized)

8670

{

8671

Tcl_SetStringObj(

8672

Tcl_GetObjResult(interp),

8673

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8674

return TCL_ERROR;

8675

}

8676

8677

if (! IbisObj.port_guid)

8678

{

8679

Tcl_SetStringObj(

8680

Tcl_GetObjResult(interp),

8681

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8682

return TCL_ERROR;

8683

}

8684

8685

ibis_tcl_error = 0;

8686

_result = (ib_net64_t *)_ib_port_info_m_key_set(_arg0,_arg1);

8687

;

8688

if (ibis_tcl_error) {

8689

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8690

return TCL_ERROR;

8691

}

8692

} tcl_result = Tcl_GetObjResult(interp);

8693

{

8694

char buff[20];

8695

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

8696

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8697

}

8698

return TCL_OK;

8699

}

8700

#define _ib_port_info_m_key_get(_swigobj) (&_swigobj->m_key)

8701

static int _wrap_sacPortInfo_m_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8702

8703

ib_net64_t * _result;

8704

sacPortInfo * _arg0;

8705

Tcl_Obj * tcl_result;

8706

char * rettype;

8707

8708

clientData = clientData; objv = objv;

8709

tcl_result = Tcl_GetObjResult(interp);

8710

if ((objc < 2) || (objc > 2)) {

8711

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_get { sacPortInfo * } ",-1);

8712

return TCL_ERROR;

8713

}

8714

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8715

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_get. Expected _sacPortInfo_p, received ", -1);

8716

Tcl_AppendToObj(tcl_result, rettype, -1);

8717

return TCL_ERROR;

8718

}

8719

{

8720

/* we can check if IBIS was initialized here */

8721

if (!IbisObj.initialized)

8722

{

8723

Tcl_SetStringObj(

8724

Tcl_GetObjResult(interp),

8725

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8726

return TCL_ERROR;

8727

}

8728

8729

if (! IbisObj.port_guid)

8730

{

8731

Tcl_SetStringObj(

8732

Tcl_GetObjResult(interp),

8733

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8734

return TCL_ERROR;

8735

}

8736

8737

ibis_tcl_error = 0;

8738

_result = (ib_net64_t *)_ib_port_info_m_key_get(_arg0);

8739

;

8740

if (ibis_tcl_error) {

8741

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8742

return TCL_ERROR;

8743

}

8744

} tcl_result = Tcl_GetObjResult(interp);

8745

{

8746

char buff[20];

8747

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

8748

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8749

}

8750

return TCL_OK;

8751

}

8752

#define _ib_port_info_subnet_prefix_set(_swigobj,_swigval) (_swigobj->subnet_prefix = *(_swigval),_swigval)

8753

static int _wrap_sacPortInfo_subnet_prefix_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8754

8755

ib_net64_t * _result;

8756

sacPortInfo * _arg0;

8757

ib_net64_t * _arg1;

8758

Tcl_Obj * tcl_result;

8759

char * rettype;

8760

uint64_t temp;

8761

8762

clientData = clientData; objv = objv;

8763

tcl_result = Tcl_GetObjResult(interp);

8764

if ((objc < 3) || (objc > 3)) {

8765

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_subnet_prefix_set { sacPortInfo * } { ib_net64_t * } ",-1);

8766

return TCL_ERROR;

8767

}

8768

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8769

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_subnet_prefix_set. Expected _sacPortInfo_p, received ", -1);

8770

Tcl_AppendToObj(tcl_result, rettype, -1);

8771

return TCL_ERROR;

8772

}

8773

{

8774

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

8775

_arg1 = &temp;

8776

}

8777

{

8778

/* we can check if IBIS was initialized here */

8779

if (!IbisObj.initialized)

8780

{

8781

Tcl_SetStringObj(

8782

Tcl_GetObjResult(interp),

8783

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8784

return TCL_ERROR;

8785

}

8786

8787

if (! IbisObj.port_guid)

8788

{

8789

Tcl_SetStringObj(

8790

Tcl_GetObjResult(interp),

8791

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8792

return TCL_ERROR;

8793

}

8794

8795

ibis_tcl_error = 0;

8796

_result = (ib_net64_t *)_ib_port_info_subnet_prefix_set(_arg0,_arg1);

8797

;

8798

if (ibis_tcl_error) {

8799

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8800

return TCL_ERROR;

8801

}

8802

} tcl_result = Tcl_GetObjResult(interp);

8803

{

8804

char buff[20];

8805

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

8806

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8807

}

8808

return TCL_OK;

8809

}

8810

#define _ib_port_info_subnet_prefix_get(_swigobj) (&_swigobj->subnet_prefix)

8811

static int _wrap_sacPortInfo_subnet_prefix_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8812

8813

ib_net64_t * _result;

8814

sacPortInfo * _arg0;

8815

Tcl_Obj * tcl_result;

8816

char * rettype;

8817

8818

clientData = clientData; objv = objv;

8819

tcl_result = Tcl_GetObjResult(interp);

8820

if ((objc < 2) || (objc > 2)) {

8821

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_subnet_prefix_get { sacPortInfo * } ",-1);

8822

return TCL_ERROR;

8823

}

8824

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8825

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_subnet_prefix_get. Expected _sacPortInfo_p, received ", -1);

8826

Tcl_AppendToObj(tcl_result, rettype, -1);

8827

return TCL_ERROR;

8828

}

8829

{

8830

/* we can check if IBIS was initialized here */

8831

if (!IbisObj.initialized)

8832

{

8833

Tcl_SetStringObj(

8834

Tcl_GetObjResult(interp),

8835

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8836

return TCL_ERROR;

8837

}

8838

8839

if (! IbisObj.port_guid)

8840

{

8841

Tcl_SetStringObj(

8842

Tcl_GetObjResult(interp),

8843

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8844

return TCL_ERROR;

8845

}

8846

8847

ibis_tcl_error = 0;

8848

_result = (ib_net64_t *)_ib_port_info_subnet_prefix_get(_arg0);

8849

;

8850

if (ibis_tcl_error) {

8851

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8852

return TCL_ERROR;

8853

}

8854

} tcl_result = Tcl_GetObjResult(interp);

8855

{

8856

char buff[20];

8857

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

8858

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8859

}

8860

return TCL_OK;

8861

}

8862

#define _ib_port_info_base_lid_set(_swigobj,_swigval) (_swigobj->base_lid = *(_swigval),_swigval)

8863

static int _wrap_sacPortInfo_base_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8864

8865

ib_net16_t * _result;

8866

sacPortInfo * _arg0;

8867

ib_net16_t * _arg1;

8868

Tcl_Obj * tcl_result;

8869

char * rettype;

8870

ib_net16_t temp;

8871

8872

clientData = clientData; objv = objv;

8873

tcl_result = Tcl_GetObjResult(interp);

8874

if ((objc < 3) || (objc > 3)) {

8875

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_base_lid_set { sacPortInfo * } { ib_net16_t * } ",-1);

8876

return TCL_ERROR;

8877

}

8878

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8879

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_base_lid_set. Expected _sacPortInfo_p, received ", -1);

8880

Tcl_AppendToObj(tcl_result, rettype, -1);

8881

return TCL_ERROR;

8882

}

8883

{

8884

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

8885

_arg1 = &temp;

8886

}

8887

{

8888

/* we can check if IBIS was initialized here */

8889

if (!IbisObj.initialized)

8890

{

8891

Tcl_SetStringObj(

8892

Tcl_GetObjResult(interp),

8893

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8894

return TCL_ERROR;

8895

}

8896

8897

if (! IbisObj.port_guid)

8898

{

8899

Tcl_SetStringObj(

8900

Tcl_GetObjResult(interp),

8901

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8902

return TCL_ERROR;

8903

}

8904

8905

ibis_tcl_error = 0;

8906

_result = (ib_net16_t *)_ib_port_info_base_lid_set(_arg0,_arg1);

8907

;

8908

if (ibis_tcl_error) {

8909

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8910

return TCL_ERROR;

8911

}

8912

} tcl_result = Tcl_GetObjResult(interp);

8913

{

8914

char buff[20];

8915

sprintf(buff, "%u", cl_hton16(*_result));

8916

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8917

}

8918

return TCL_OK;

8919

}

8920

#define _ib_port_info_base_lid_get(_swigobj) (&_swigobj->base_lid)

8921

static int _wrap_sacPortInfo_base_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8922

8923

ib_net16_t * _result;

8924

sacPortInfo * _arg0;

8925

Tcl_Obj * tcl_result;

8926

char * rettype;

8927

8928

clientData = clientData; objv = objv;

8929

tcl_result = Tcl_GetObjResult(interp);

8930

if ((objc < 2) || (objc > 2)) {

8931

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_base_lid_get { sacPortInfo * } ",-1);

8932

return TCL_ERROR;

8933

}

8934

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8935

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_base_lid_get. Expected _sacPortInfo_p, received ", -1);

8936

Tcl_AppendToObj(tcl_result, rettype, -1);

8937

return TCL_ERROR;

8938

}

8939

{

8940

/* we can check if IBIS was initialized here */

8941

if (!IbisObj.initialized)

8942

{

8943

Tcl_SetStringObj(

8944

Tcl_GetObjResult(interp),

8945

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

8946

return TCL_ERROR;

8947

}

8948

8949

if (! IbisObj.port_guid)

8950

{

8951

Tcl_SetStringObj(

8952

Tcl_GetObjResult(interp),

8953

" ibis was not yet initialized. please use ibis_set_port before.", -1);

8954

return TCL_ERROR;

8955

}

8956

8957

ibis_tcl_error = 0;

8958

_result = (ib_net16_t *)_ib_port_info_base_lid_get(_arg0);

8959

;

8960

if (ibis_tcl_error) {

8961

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

8962

return TCL_ERROR;

8963

}

8964

} tcl_result = Tcl_GetObjResult(interp);

8965

{

8966

char buff[20];

8967

sprintf(buff, "%u", cl_hton16(*_result));

8968

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

8969

}

8970

return TCL_OK;

8971

}

8972

#define _ib_port_info_master_sm_base_lid_set(_swigobj,_swigval) (_swigobj->master_sm_base_lid = *(_swigval),_swigval)

8973

static int _wrap_sacPortInfo_master_sm_base_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

8974

8975

ib_net16_t * _result;

8976

sacPortInfo * _arg0;

8977

ib_net16_t * _arg1;

8978

Tcl_Obj * tcl_result;

8979

char * rettype;

8980

ib_net16_t temp;

8981

8982

clientData = clientData; objv = objv;

8983

tcl_result = Tcl_GetObjResult(interp);

8984

if ((objc < 3) || (objc > 3)) {

8985

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_master_sm_base_lid_set { sacPortInfo * } { ib_net16_t * } ",-1);

8986

return TCL_ERROR;

8987

}

8988

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

8989

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_master_sm_base_lid_set. Expected _sacPortInfo_p, received ", -1);

8990

Tcl_AppendToObj(tcl_result, rettype, -1);

8991

return TCL_ERROR;

8992

}

8993

{

8994

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

8995

_arg1 = &temp;

8996

}

8997

{

8998

/* we can check if IBIS was initialized here */

8999

if (!IbisObj.initialized)

9000

{

9001

Tcl_SetStringObj(

9002

Tcl_GetObjResult(interp),

9003

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9004

return TCL_ERROR;

9005

}

9006

9007

if (! IbisObj.port_guid)

9008

{

9009

Tcl_SetStringObj(

9010

Tcl_GetObjResult(interp),

9011

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9012

return TCL_ERROR;

9013

}

9014

9015

ibis_tcl_error = 0;

9016

_result = (ib_net16_t *)_ib_port_info_master_sm_base_lid_set(_arg0,_arg1);

9017

;

9018

if (ibis_tcl_error) {

9019

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9020

return TCL_ERROR;

9021

}

9022

} tcl_result = Tcl_GetObjResult(interp);

9023

{

9024

char buff[20];

9025

sprintf(buff, "%u", cl_hton16(*_result));

9026

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9027

}

9028

return TCL_OK;

9029

}

9030

#define _ib_port_info_master_sm_base_lid_get(_swigobj) (&_swigobj->master_sm_base_lid)

9031

static int _wrap_sacPortInfo_master_sm_base_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9032

9033

ib_net16_t * _result;

9034

sacPortInfo * _arg0;

9035

Tcl_Obj * tcl_result;

9036

char * rettype;

9037

9038

clientData = clientData; objv = objv;

9039

tcl_result = Tcl_GetObjResult(interp);

9040

if ((objc < 2) || (objc > 2)) {

9041

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_master_sm_base_lid_get { sacPortInfo * } ",-1);

9042

return TCL_ERROR;

9043

}

9044

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9045

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_master_sm_base_lid_get. Expected _sacPortInfo_p, received ", -1);

9046

Tcl_AppendToObj(tcl_result, rettype, -1);

9047

return TCL_ERROR;

9048

}

9049

{

9050

/* we can check if IBIS was initialized here */

9051

if (!IbisObj.initialized)

9052

{

9053

Tcl_SetStringObj(

9054

Tcl_GetObjResult(interp),

9055

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9056

return TCL_ERROR;

9057

}

9058

9059

if (! IbisObj.port_guid)

9060

{

9061

Tcl_SetStringObj(

9062

Tcl_GetObjResult(interp),

9063

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9064

return TCL_ERROR;

9065

}

9066

9067

ibis_tcl_error = 0;

9068

_result = (ib_net16_t *)_ib_port_info_master_sm_base_lid_get(_arg0);

9069

;

9070

if (ibis_tcl_error) {

9071

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9072

return TCL_ERROR;

9073

}

9074

} tcl_result = Tcl_GetObjResult(interp);

9075

{

9076

char buff[20];

9077

sprintf(buff, "%u", cl_hton16(*_result));

9078

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9079

}

9080

return TCL_OK;

9081

}

9082

#define _ib_port_info_capability_mask_set(_swigobj,_swigval) (_swigobj->capability_mask = *(_swigval),_swigval)

9083

static int _wrap_sacPortInfo_capability_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9084

9085

ib_net32_t * _result;

9086

sacPortInfo * _arg0;

9087

ib_net32_t * _arg1;

9088

Tcl_Obj * tcl_result;

9089

char * rettype;

9090

ib_net32_t temp;

9091

9092

clientData = clientData; objv = objv;

9093

tcl_result = Tcl_GetObjResult(interp);

9094

if ((objc < 3) || (objc > 3)) {

9095

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_capability_mask_set { sacPortInfo * } { ib_net32_t * } ",-1);

9096

return TCL_ERROR;

9097

}

9098

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9099

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_capability_mask_set. Expected _sacPortInfo_p, received ", -1);

9100

Tcl_AppendToObj(tcl_result, rettype, -1);

9101

return TCL_ERROR;

9102

}

9103

{

9104

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

9105

_arg1 = &temp;

9106

}

9107

{

9108

/* we can check if IBIS was initialized here */

9109

if (!IbisObj.initialized)

9110

{

9111

Tcl_SetStringObj(

9112

Tcl_GetObjResult(interp),

9113

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9114

return TCL_ERROR;

9115

}

9116

9117

if (! IbisObj.port_guid)

9118

{

9119

Tcl_SetStringObj(

9120

Tcl_GetObjResult(interp),

9121

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9122

return TCL_ERROR;

9123

}

9124

9125

ibis_tcl_error = 0;

9126

_result = (ib_net32_t *)_ib_port_info_capability_mask_set(_arg0,_arg1);

9127

;

9128

if (ibis_tcl_error) {

9129

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9130

return TCL_ERROR;

9131

}

9132

} tcl_result = Tcl_GetObjResult(interp);

9133

{

9134

char buff[20];

9135

sprintf(buff, "%u", cl_ntoh32(*_result));

9136

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9137

}

9138

return TCL_OK;

9139

}

9140

#define _ib_port_info_capability_mask_get(_swigobj) (&_swigobj->capability_mask)

9141

static int _wrap_sacPortInfo_capability_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9142

9143

ib_net32_t * _result;

9144

sacPortInfo * _arg0;

9145

Tcl_Obj * tcl_result;

9146

char * rettype;

9147

9148

clientData = clientData; objv = objv;

9149

tcl_result = Tcl_GetObjResult(interp);

9150

if ((objc < 2) || (objc > 2)) {

9151

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_capability_mask_get { sacPortInfo * } ",-1);

9152

return TCL_ERROR;

9153

}

9154

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9155

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_capability_mask_get. Expected _sacPortInfo_p, received ", -1);

9156

Tcl_AppendToObj(tcl_result, rettype, -1);

9157

return TCL_ERROR;

9158

}

9159

{

9160

/* we can check if IBIS was initialized here */

9161

if (!IbisObj.initialized)

9162

{

9163

Tcl_SetStringObj(

9164

Tcl_GetObjResult(interp),

9165

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9166

return TCL_ERROR;

9167

}

9168

9169

if (! IbisObj.port_guid)

9170

{

9171

Tcl_SetStringObj(

9172

Tcl_GetObjResult(interp),

9173

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9174

return TCL_ERROR;

9175

}

9176

9177

ibis_tcl_error = 0;

9178

_result = (ib_net32_t *)_ib_port_info_capability_mask_get(_arg0);

9179

;

9180

if (ibis_tcl_error) {

9181

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9182

return TCL_ERROR;

9183

}

9184

} tcl_result = Tcl_GetObjResult(interp);

9185

{

9186

char buff[20];

9187

sprintf(buff, "%u", cl_ntoh32(*_result));

9188

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9189

}

9190

return TCL_OK;

9191

}

9192

#define _ib_port_info_diag_code_set(_swigobj,_swigval) (_swigobj->diag_code = *(_swigval),_swigval)

9193

static int _wrap_sacPortInfo_diag_code_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9194

9195

ib_net16_t * _result;

9196

sacPortInfo * _arg0;

9197

ib_net16_t * _arg1;

9198

Tcl_Obj * tcl_result;

9199

char * rettype;

9200

ib_net16_t temp;

9201

9202

clientData = clientData; objv = objv;

9203

tcl_result = Tcl_GetObjResult(interp);

9204

if ((objc < 3) || (objc > 3)) {

9205

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_diag_code_set { sacPortInfo * } { ib_net16_t * } ",-1);

9206

return TCL_ERROR;

9207

}

9208

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9209

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_diag_code_set. Expected _sacPortInfo_p, received ", -1);

9210

Tcl_AppendToObj(tcl_result, rettype, -1);

9211

return TCL_ERROR;

9212

}

9213

{

9214

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

9215

_arg1 = &temp;

9216

}

9217

{

9218

/* we can check if IBIS was initialized here */

9219

if (!IbisObj.initialized)

9220

{

9221

Tcl_SetStringObj(

9222

Tcl_GetObjResult(interp),

9223

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9224

return TCL_ERROR;

9225

}

9226

9227

if (! IbisObj.port_guid)

9228

{

9229

Tcl_SetStringObj(

9230

Tcl_GetObjResult(interp),

9231

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9232

return TCL_ERROR;

9233

}

9234

9235

ibis_tcl_error = 0;

9236

_result = (ib_net16_t *)_ib_port_info_diag_code_set(_arg0,_arg1);

9237

;

9238

if (ibis_tcl_error) {

9239

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9240

return TCL_ERROR;

9241

}

9242

} tcl_result = Tcl_GetObjResult(interp);

9243

{

9244

char buff[20];

9245

sprintf(buff, "%u", cl_hton16(*_result));

9246

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9247

}

9248

return TCL_OK;

9249

}

9250

#define _ib_port_info_diag_code_get(_swigobj) (&_swigobj->diag_code)

9251

static int _wrap_sacPortInfo_diag_code_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9252

9253

ib_net16_t * _result;

9254

sacPortInfo * _arg0;

9255

Tcl_Obj * tcl_result;

9256

char * rettype;

9257

9258

clientData = clientData; objv = objv;

9259

tcl_result = Tcl_GetObjResult(interp);

9260

if ((objc < 2) || (objc > 2)) {

9261

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_diag_code_get { sacPortInfo * } ",-1);

9262

return TCL_ERROR;

9263

}

9264

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9265

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_diag_code_get. Expected _sacPortInfo_p, received ", -1);

9266

Tcl_AppendToObj(tcl_result, rettype, -1);

9267

return TCL_ERROR;

9268

}

9269

{

9270

/* we can check if IBIS was initialized here */

9271

if (!IbisObj.initialized)

9272

{

9273

Tcl_SetStringObj(

9274

Tcl_GetObjResult(interp),

9275

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9276

return TCL_ERROR;

9277

}

9278

9279

if (! IbisObj.port_guid)

9280

{

9281

Tcl_SetStringObj(

9282

Tcl_GetObjResult(interp),

9283

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9284

return TCL_ERROR;

9285

}

9286

9287

ibis_tcl_error = 0;

9288

_result = (ib_net16_t *)_ib_port_info_diag_code_get(_arg0);

9289

;

9290

if (ibis_tcl_error) {

9291

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9292

return TCL_ERROR;

9293

}

9294

} tcl_result = Tcl_GetObjResult(interp);

9295

{

9296

char buff[20];

9297

sprintf(buff, "%u", cl_hton16(*_result));

9298

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9299

}

9300

return TCL_OK;

9301

}

9302

#define _ib_port_info_m_key_lease_period_set(_swigobj,_swigval) (_swigobj->m_key_lease_period = *(_swigval),_swigval)

9303

static int _wrap_sacPortInfo_m_key_lease_period_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9304

9305

ib_net16_t * _result;

9306

sacPortInfo * _arg0;

9307

ib_net16_t * _arg1;

9308

Tcl_Obj * tcl_result;

9309

char * rettype;

9310

ib_net16_t temp;

9311

9312

clientData = clientData; objv = objv;

9313

tcl_result = Tcl_GetObjResult(interp);

9314

if ((objc < 3) || (objc > 3)) {

9315

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_lease_period_set { sacPortInfo * } { ib_net16_t * } ",-1);

9316

return TCL_ERROR;

9317

}

9318

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9319

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_lease_period_set. Expected _sacPortInfo_p, received ", -1);

9320

Tcl_AppendToObj(tcl_result, rettype, -1);

9321

return TCL_ERROR;

9322

}

9323

{

9324

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

9325

_arg1 = &temp;

9326

}

9327

{

9328

/* we can check if IBIS was initialized here */

9329

if (!IbisObj.initialized)

9330

{

9331

Tcl_SetStringObj(

9332

Tcl_GetObjResult(interp),

9333

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9334

return TCL_ERROR;

9335

}

9336

9337

if (! IbisObj.port_guid)

9338

{

9339

Tcl_SetStringObj(

9340

Tcl_GetObjResult(interp),

9341

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9342

return TCL_ERROR;

9343

}

9344

9345

ibis_tcl_error = 0;

9346

_result = (ib_net16_t *)_ib_port_info_m_key_lease_period_set(_arg0,_arg1);

9347

;

9348

if (ibis_tcl_error) {

9349

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9350

return TCL_ERROR;

9351

}

9352

} tcl_result = Tcl_GetObjResult(interp);

9353

{

9354

char buff[20];

9355

sprintf(buff, "%u", cl_hton16(*_result));

9356

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9357

}

9358

return TCL_OK;

9359

}

9360

#define _ib_port_info_m_key_lease_period_get(_swigobj) (&_swigobj->m_key_lease_period)

9361

static int _wrap_sacPortInfo_m_key_lease_period_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9362

9363

ib_net16_t * _result;

9364

sacPortInfo * _arg0;

9365

Tcl_Obj * tcl_result;

9366

char * rettype;

9367

9368

clientData = clientData; objv = objv;

9369

tcl_result = Tcl_GetObjResult(interp);

9370

if ((objc < 2) || (objc > 2)) {

9371

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_lease_period_get { sacPortInfo * } ",-1);

9372

return TCL_ERROR;

9373

}

9374

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9375

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_lease_period_get. Expected _sacPortInfo_p, received ", -1);

9376

Tcl_AppendToObj(tcl_result, rettype, -1);

9377

return TCL_ERROR;

9378

}

9379

{

9380

/* we can check if IBIS was initialized here */

9381

if (!IbisObj.initialized)

9382

{

9383

Tcl_SetStringObj(

9384

Tcl_GetObjResult(interp),

9385

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9386

return TCL_ERROR;

9387

}

9388

9389

if (! IbisObj.port_guid)

9390

{

9391

Tcl_SetStringObj(

9392

Tcl_GetObjResult(interp),

9393

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9394

return TCL_ERROR;

9395

}

9396

9397

ibis_tcl_error = 0;

9398

_result = (ib_net16_t *)_ib_port_info_m_key_lease_period_get(_arg0);

9399

;

9400

if (ibis_tcl_error) {

9401

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9402

return TCL_ERROR;

9403

}

9404

} tcl_result = Tcl_GetObjResult(interp);

9405

{

9406

char buff[20];

9407

sprintf(buff, "%u", cl_hton16(*_result));

9408

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9409

}

9410

return TCL_OK;

9411

}

9412

#define _ib_port_info_local_port_num_set(_swigobj,_swigval) (_swigobj->local_port_num = *(_swigval),_swigval)

9413

static int _wrap_sacPortInfo_local_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9414

9415

uint8_t * _result;

9416

sacPortInfo * _arg0;

9417

uint8_t * _arg1;

9418

Tcl_Obj * tcl_result;

9419

char * rettype;

9420

uint8_t temp;

9421

9422

clientData = clientData; objv = objv;

9423

tcl_result = Tcl_GetObjResult(interp);

9424

if ((objc < 3) || (objc > 3)) {

9425

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_local_port_num_set { sacPortInfo * } { uint8_t * } ",-1);

9426

return TCL_ERROR;

9427

}

9428

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9429

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_local_port_num_set. Expected _sacPortInfo_p, received ", -1);

9430

Tcl_AppendToObj(tcl_result, rettype, -1);

9431

return TCL_ERROR;

9432

}

9433

{

9434

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9435

_arg1 = &temp;

9436

}

9437

{

9438

/* we can check if IBIS was initialized here */

9439

if (!IbisObj.initialized)

9440

{

9441

Tcl_SetStringObj(

9442

Tcl_GetObjResult(interp),

9443

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9444

return TCL_ERROR;

9445

}

9446

9447

if (! IbisObj.port_guid)

9448

{

9449

Tcl_SetStringObj(

9450

Tcl_GetObjResult(interp),

9451

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9452

return TCL_ERROR;

9453

}

9454

9455

ibis_tcl_error = 0;

9456

_result = (uint8_t *)_ib_port_info_local_port_num_set(_arg0,_arg1);

9457

;

9458

if (ibis_tcl_error) {

9459

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9460

return TCL_ERROR;

9461

}

9462

} tcl_result = Tcl_GetObjResult(interp);

9463

{

9464

char buff[20];

9465

sprintf(buff, "%u", *_result);

9466

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9467

}

9468

return TCL_OK;

9469

}

9470

#define _ib_port_info_local_port_num_get(_swigobj) (&_swigobj->local_port_num)

9471

static int _wrap_sacPortInfo_local_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9472

9473

uint8_t * _result;

9474

sacPortInfo * _arg0;

9475

Tcl_Obj * tcl_result;

9476

char * rettype;

9477

9478

clientData = clientData; objv = objv;

9479

tcl_result = Tcl_GetObjResult(interp);

9480

if ((objc < 2) || (objc > 2)) {

9481

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_local_port_num_get { sacPortInfo * } ",-1);

9482

return TCL_ERROR;

9483

}

9484

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9485

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_local_port_num_get. Expected _sacPortInfo_p, received ", -1);

9486

Tcl_AppendToObj(tcl_result, rettype, -1);

9487

return TCL_ERROR;

9488

}

9489

{

9490

/* we can check if IBIS was initialized here */

9491

if (!IbisObj.initialized)

9492

{

9493

Tcl_SetStringObj(

9494

Tcl_GetObjResult(interp),

9495

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9496

return TCL_ERROR;

9497

}

9498

9499

if (! IbisObj.port_guid)

9500

{

9501

Tcl_SetStringObj(

9502

Tcl_GetObjResult(interp),

9503

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9504

return TCL_ERROR;

9505

}

9506

9507

ibis_tcl_error = 0;

9508

_result = (uint8_t *)_ib_port_info_local_port_num_get(_arg0);

9509

;

9510

if (ibis_tcl_error) {

9511

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9512

return TCL_ERROR;

9513

}

9514

} tcl_result = Tcl_GetObjResult(interp);

9515

{

9516

char buff[20];

9517

sprintf(buff, "%u", *_result);

9518

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9519

}

9520

return TCL_OK;

9521

}

9522

#define _ib_port_info_link_width_enabled_set(_swigobj,_swigval) (_swigobj->link_width_enabled = *(_swigval),_swigval)

9523

static int _wrap_sacPortInfo_link_width_enabled_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9524

9525

uint8_t * _result;

9526

sacPortInfo * _arg0;

9527

uint8_t * _arg1;

9528

Tcl_Obj * tcl_result;

9529

char * rettype;

9530

uint8_t temp;

9531

9532

clientData = clientData; objv = objv;

9533

tcl_result = Tcl_GetObjResult(interp);

9534

if ((objc < 3) || (objc > 3)) {

9535

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_enabled_set { sacPortInfo * } { uint8_t * } ",-1);

9536

return TCL_ERROR;

9537

}

9538

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9539

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_enabled_set. Expected _sacPortInfo_p, received ", -1);

9540

Tcl_AppendToObj(tcl_result, rettype, -1);

9541

return TCL_ERROR;

9542

}

9543

{

9544

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9545

_arg1 = &temp;

9546

}

9547

{

9548

/* we can check if IBIS was initialized here */

9549

if (!IbisObj.initialized)

9550

{

9551

Tcl_SetStringObj(

9552

Tcl_GetObjResult(interp),

9553

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9554

return TCL_ERROR;

9555

}

9556

9557

if (! IbisObj.port_guid)

9558

{

9559

Tcl_SetStringObj(

9560

Tcl_GetObjResult(interp),

9561

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9562

return TCL_ERROR;

9563

}

9564

9565

ibis_tcl_error = 0;

9566

_result = (uint8_t *)_ib_port_info_link_width_enabled_set(_arg0,_arg1);

9567

;

9568

if (ibis_tcl_error) {

9569

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9570

return TCL_ERROR;

9571

}

9572

} tcl_result = Tcl_GetObjResult(interp);

9573

{

9574

char buff[20];

9575

sprintf(buff, "%u", *_result);

9576

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9577

}

9578

return TCL_OK;

9579

}

9580

#define _ib_port_info_link_width_enabled_get(_swigobj) (&_swigobj->link_width_enabled)

9581

static int _wrap_sacPortInfo_link_width_enabled_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9582

9583

uint8_t * _result;

9584

sacPortInfo * _arg0;

9585

Tcl_Obj * tcl_result;

9586

char * rettype;

9587

9588

clientData = clientData; objv = objv;

9589

tcl_result = Tcl_GetObjResult(interp);

9590

if ((objc < 2) || (objc > 2)) {

9591

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_enabled_get { sacPortInfo * } ",-1);

9592

return TCL_ERROR;

9593

}

9594

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9595

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_enabled_get. Expected _sacPortInfo_p, received ", -1);

9596

Tcl_AppendToObj(tcl_result, rettype, -1);

9597

return TCL_ERROR;

9598

}

9599

{

9600

/* we can check if IBIS was initialized here */

9601

if (!IbisObj.initialized)

9602

{

9603

Tcl_SetStringObj(

9604

Tcl_GetObjResult(interp),

9605

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9606

return TCL_ERROR;

9607

}

9608

9609

if (! IbisObj.port_guid)

9610

{

9611

Tcl_SetStringObj(

9612

Tcl_GetObjResult(interp),

9613

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9614

return TCL_ERROR;

9615

}

9616

9617

ibis_tcl_error = 0;

9618

_result = (uint8_t *)_ib_port_info_link_width_enabled_get(_arg0);

9619

;

9620

if (ibis_tcl_error) {

9621

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9622

return TCL_ERROR;

9623

}

9624

} tcl_result = Tcl_GetObjResult(interp);

9625

{

9626

char buff[20];

9627

sprintf(buff, "%u", *_result);

9628

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9629

}

9630

return TCL_OK;

9631

}

9632

#define _ib_port_info_link_width_supported_set(_swigobj,_swigval) (_swigobj->link_width_supported = *(_swigval),_swigval)

9633

static int _wrap_sacPortInfo_link_width_supported_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9634

9635

uint8_t * _result;

9636

sacPortInfo * _arg0;

9637

uint8_t * _arg1;

9638

Tcl_Obj * tcl_result;

9639

char * rettype;

9640

uint8_t temp;

9641

9642

clientData = clientData; objv = objv;

9643

tcl_result = Tcl_GetObjResult(interp);

9644

if ((objc < 3) || (objc > 3)) {

9645

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_supported_set { sacPortInfo * } { uint8_t * } ",-1);

9646

return TCL_ERROR;

9647

}

9648

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9649

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_supported_set. Expected _sacPortInfo_p, received ", -1);

9650

Tcl_AppendToObj(tcl_result, rettype, -1);

9651

return TCL_ERROR;

9652

}

9653

{

9654

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9655

_arg1 = &temp;

9656

}

9657

{

9658

/* we can check if IBIS was initialized here */

9659

if (!IbisObj.initialized)

9660

{

9661

Tcl_SetStringObj(

9662

Tcl_GetObjResult(interp),

9663

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9664

return TCL_ERROR;

9665

}

9666

9667

if (! IbisObj.port_guid)

9668

{

9669

Tcl_SetStringObj(

9670

Tcl_GetObjResult(interp),

9671

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9672

return TCL_ERROR;

9673

}

9674

9675

ibis_tcl_error = 0;

9676

_result = (uint8_t *)_ib_port_info_link_width_supported_set(_arg0,_arg1);

9677

;

9678

if (ibis_tcl_error) {

9679

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9680

return TCL_ERROR;

9681

}

9682

} tcl_result = Tcl_GetObjResult(interp);

9683

{

9684

char buff[20];

9685

sprintf(buff, "%u", *_result);

9686

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9687

}

9688

return TCL_OK;

9689

}

9690

#define _ib_port_info_link_width_supported_get(_swigobj) (&_swigobj->link_width_supported)

9691

static int _wrap_sacPortInfo_link_width_supported_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9692

9693

uint8_t * _result;

9694

sacPortInfo * _arg0;

9695

Tcl_Obj * tcl_result;

9696

char * rettype;

9697

9698

clientData = clientData; objv = objv;

9699

tcl_result = Tcl_GetObjResult(interp);

9700

if ((objc < 2) || (objc > 2)) {

9701

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_supported_get { sacPortInfo * } ",-1);

9702

return TCL_ERROR;

9703

}

9704

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9705

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_supported_get. Expected _sacPortInfo_p, received ", -1);

9706

Tcl_AppendToObj(tcl_result, rettype, -1);

9707

return TCL_ERROR;

9708

}

9709

{

9710

/* we can check if IBIS was initialized here */

9711

if (!IbisObj.initialized)

9712

{

9713

Tcl_SetStringObj(

9714

Tcl_GetObjResult(interp),

9715

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9716

return TCL_ERROR;

9717

}

9718

9719

if (! IbisObj.port_guid)

9720

{

9721

Tcl_SetStringObj(

9722

Tcl_GetObjResult(interp),

9723

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9724

return TCL_ERROR;

9725

}

9726

9727

ibis_tcl_error = 0;

9728

_result = (uint8_t *)_ib_port_info_link_width_supported_get(_arg0);

9729

;

9730

if (ibis_tcl_error) {

9731

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9732

return TCL_ERROR;

9733

}

9734

} tcl_result = Tcl_GetObjResult(interp);

9735

{

9736

char buff[20];

9737

sprintf(buff, "%u", *_result);

9738

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9739

}

9740

return TCL_OK;

9741

}

9742

#define _ib_port_info_link_width_active_set(_swigobj,_swigval) (_swigobj->link_width_active = *(_swigval),_swigval)

9743

static int _wrap_sacPortInfo_link_width_active_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9744

9745

uint8_t * _result;

9746

sacPortInfo * _arg0;

9747

uint8_t * _arg1;

9748

Tcl_Obj * tcl_result;

9749

char * rettype;

9750

uint8_t temp;

9751

9752

clientData = clientData; objv = objv;

9753

tcl_result = Tcl_GetObjResult(interp);

9754

if ((objc < 3) || (objc > 3)) {

9755

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_active_set { sacPortInfo * } { uint8_t * } ",-1);

9756

return TCL_ERROR;

9757

}

9758

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9759

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_active_set. Expected _sacPortInfo_p, received ", -1);

9760

Tcl_AppendToObj(tcl_result, rettype, -1);

9761

return TCL_ERROR;

9762

}

9763

{

9764

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9765

_arg1 = &temp;

9766

}

9767

{

9768

/* we can check if IBIS was initialized here */

9769

if (!IbisObj.initialized)

9770

{

9771

Tcl_SetStringObj(

9772

Tcl_GetObjResult(interp),

9773

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9774

return TCL_ERROR;

9775

}

9776

9777

if (! IbisObj.port_guid)

9778

{

9779

Tcl_SetStringObj(

9780

Tcl_GetObjResult(interp),

9781

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9782

return TCL_ERROR;

9783

}

9784

9785

ibis_tcl_error = 0;

9786

_result = (uint8_t *)_ib_port_info_link_width_active_set(_arg0,_arg1);

9787

;

9788

if (ibis_tcl_error) {

9789

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9790

return TCL_ERROR;

9791

}

9792

} tcl_result = Tcl_GetObjResult(interp);

9793

{

9794

char buff[20];

9795

sprintf(buff, "%u", *_result);

9796

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9797

}

9798

return TCL_OK;

9799

}

9800

#define _ib_port_info_link_width_active_get(_swigobj) (&_swigobj->link_width_active)

9801

static int _wrap_sacPortInfo_link_width_active_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9802

9803

uint8_t * _result;

9804

sacPortInfo * _arg0;

9805

Tcl_Obj * tcl_result;

9806

char * rettype;

9807

9808

clientData = clientData; objv = objv;

9809

tcl_result = Tcl_GetObjResult(interp);

9810

if ((objc < 2) || (objc > 2)) {

9811

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_width_active_get { sacPortInfo * } ",-1);

9812

return TCL_ERROR;

9813

}

9814

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9815

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_width_active_get. Expected _sacPortInfo_p, received ", -1);

9816

Tcl_AppendToObj(tcl_result, rettype, -1);

9817

return TCL_ERROR;

9818

}

9819

{

9820

/* we can check if IBIS was initialized here */

9821

if (!IbisObj.initialized)

9822

{

9823

Tcl_SetStringObj(

9824

Tcl_GetObjResult(interp),

9825

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9826

return TCL_ERROR;

9827

}

9828

9829

if (! IbisObj.port_guid)

9830

{

9831

Tcl_SetStringObj(

9832

Tcl_GetObjResult(interp),

9833

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9834

return TCL_ERROR;

9835

}

9836

9837

ibis_tcl_error = 0;

9838

_result = (uint8_t *)_ib_port_info_link_width_active_get(_arg0);

9839

;

9840

if (ibis_tcl_error) {

9841

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9842

return TCL_ERROR;

9843

}

9844

} tcl_result = Tcl_GetObjResult(interp);

9845

{

9846

char buff[20];

9847

sprintf(buff, "%u", *_result);

9848

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9849

}

9850

return TCL_OK;

9851

}

9852

#define _ib_port_info_state_info1_set(_swigobj,_swigval) (_swigobj->state_info1 = *(_swigval),_swigval)

9853

static int _wrap_sacPortInfo_state_info1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9854

9855

uint8_t * _result;

9856

sacPortInfo * _arg0;

9857

uint8_t * _arg1;

9858

Tcl_Obj * tcl_result;

9859

char * rettype;

9860

uint8_t temp;

9861

9862

clientData = clientData; objv = objv;

9863

tcl_result = Tcl_GetObjResult(interp);

9864

if ((objc < 3) || (objc > 3)) {

9865

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_state_info1_set { sacPortInfo * } { uint8_t * } ",-1);

9866

return TCL_ERROR;

9867

}

9868

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9869

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_state_info1_set. Expected _sacPortInfo_p, received ", -1);

9870

Tcl_AppendToObj(tcl_result, rettype, -1);

9871

return TCL_ERROR;

9872

}

9873

{

9874

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9875

_arg1 = &temp;

9876

}

9877

{

9878

/* we can check if IBIS was initialized here */

9879

if (!IbisObj.initialized)

9880

{

9881

Tcl_SetStringObj(

9882

Tcl_GetObjResult(interp),

9883

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9884

return TCL_ERROR;

9885

}

9886

9887

if (! IbisObj.port_guid)

9888

{

9889

Tcl_SetStringObj(

9890

Tcl_GetObjResult(interp),

9891

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9892

return TCL_ERROR;

9893

}

9894

9895

ibis_tcl_error = 0;

9896

_result = (uint8_t *)_ib_port_info_state_info1_set(_arg0,_arg1);

9897

;

9898

if (ibis_tcl_error) {

9899

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9900

return TCL_ERROR;

9901

}

9902

} tcl_result = Tcl_GetObjResult(interp);

9903

{

9904

char buff[20];

9905

sprintf(buff, "%u", *_result);

9906

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9907

}

9908

return TCL_OK;

9909

}

9910

#define _ib_port_info_state_info1_get(_swigobj) (&_swigobj->state_info1)

9911

static int _wrap_sacPortInfo_state_info1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9912

9913

uint8_t * _result;

9914

sacPortInfo * _arg0;

9915

Tcl_Obj * tcl_result;

9916

char * rettype;

9917

9918

clientData = clientData; objv = objv;

9919

tcl_result = Tcl_GetObjResult(interp);

9920

if ((objc < 2) || (objc > 2)) {

9921

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_state_info1_get { sacPortInfo * } ",-1);

9922

return TCL_ERROR;

9923

}

9924

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9925

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_state_info1_get. Expected _sacPortInfo_p, received ", -1);

9926

Tcl_AppendToObj(tcl_result, rettype, -1);

9927

return TCL_ERROR;

9928

}

9929

{

9930

/* we can check if IBIS was initialized here */

9931

if (!IbisObj.initialized)

9932

{

9933

Tcl_SetStringObj(

9934

Tcl_GetObjResult(interp),

9935

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9936

return TCL_ERROR;

9937

}

9938

9939

if (! IbisObj.port_guid)

9940

{

9941

Tcl_SetStringObj(

9942

Tcl_GetObjResult(interp),

9943

" ibis was not yet initialized. please use ibis_set_port before.", -1);

9944

return TCL_ERROR;

9945

}

9946

9947

ibis_tcl_error = 0;

9948

_result = (uint8_t *)_ib_port_info_state_info1_get(_arg0);

9949

;

9950

if (ibis_tcl_error) {

9951

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

9952

return TCL_ERROR;

9953

}

9954

} tcl_result = Tcl_GetObjResult(interp);

9955

{

9956

char buff[20];

9957

sprintf(buff, "%u", *_result);

9958

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

9959

}

9960

return TCL_OK;

9961

}

9962

#define _ib_port_info_state_info2_set(_swigobj,_swigval) (_swigobj->state_info2 = *(_swigval),_swigval)

9963

static int _wrap_sacPortInfo_state_info2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

9964

9965

uint8_t * _result;

9966

sacPortInfo * _arg0;

9967

uint8_t * _arg1;

9968

Tcl_Obj * tcl_result;

9969

char * rettype;

9970

uint8_t temp;

9971

9972

clientData = clientData; objv = objv;

9973

tcl_result = Tcl_GetObjResult(interp);

9974

if ((objc < 3) || (objc > 3)) {

9975

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_state_info2_set { sacPortInfo * } { uint8_t * } ",-1);

9976

return TCL_ERROR;

9977

}

9978

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

9979

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_state_info2_set. Expected _sacPortInfo_p, received ", -1);

9980

Tcl_AppendToObj(tcl_result, rettype, -1);

9981

return TCL_ERROR;

9982

}

9983

{

9984

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

9985

_arg1 = &temp;

9986

}

9987

{

9988

/* we can check if IBIS was initialized here */

9989

if (!IbisObj.initialized)

9990

{

9991

Tcl_SetStringObj(

9992

Tcl_GetObjResult(interp),

9993

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

9994

return TCL_ERROR;

9995

}

9996

9997

if (! IbisObj.port_guid)

9998

{

9999

Tcl_SetStringObj(

10000

Tcl_GetObjResult(interp),

10001

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10002

return TCL_ERROR;

10003

}

10004

10005

ibis_tcl_error = 0;

10006

_result = (uint8_t *)_ib_port_info_state_info2_set(_arg0,_arg1);

10007

;

10008

if (ibis_tcl_error) {

10009

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10010

return TCL_ERROR;

10011

}

10012

} tcl_result = Tcl_GetObjResult(interp);

10013

{

10014

char buff[20];

10015

sprintf(buff, "%u", *_result);

10016

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10017

}

10018

return TCL_OK;

10019

}

10020

#define _ib_port_info_state_info2_get(_swigobj) (&_swigobj->state_info2)

10021

static int _wrap_sacPortInfo_state_info2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10022

10023

uint8_t * _result;

10024

sacPortInfo * _arg0;

10025

Tcl_Obj * tcl_result;

10026

char * rettype;

10027

10028

clientData = clientData; objv = objv;

10029

tcl_result = Tcl_GetObjResult(interp);

10030

if ((objc < 2) || (objc > 2)) {

10031

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_state_info2_get { sacPortInfo * } ",-1);

10032

return TCL_ERROR;

10033

}

10034

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10035

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_state_info2_get. Expected _sacPortInfo_p, received ", -1);

10036

Tcl_AppendToObj(tcl_result, rettype, -1);

10037

return TCL_ERROR;

10038

}

10039

{

10040

/* we can check if IBIS was initialized here */

10041

if (!IbisObj.initialized)

10042

{

10043

Tcl_SetStringObj(

10044

Tcl_GetObjResult(interp),

10045

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10046

return TCL_ERROR;

10047

}

10048

10049

if (! IbisObj.port_guid)

10050

{

10051

Tcl_SetStringObj(

10052

Tcl_GetObjResult(interp),

10053

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10054

return TCL_ERROR;

10055

}

10056

10057

ibis_tcl_error = 0;

10058

_result = (uint8_t *)_ib_port_info_state_info2_get(_arg0);

10059

;

10060

if (ibis_tcl_error) {

10061

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10062

return TCL_ERROR;

10063

}

10064

} tcl_result = Tcl_GetObjResult(interp);

10065

{

10066

char buff[20];

10067

sprintf(buff, "%u", *_result);

10068

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10069

}

10070

return TCL_OK;

10071

}

10072

#define _ib_port_info_mkey_lmc_set(_swigobj,_swigval) (_swigobj->mkey_lmc = *(_swigval),_swigval)

10073

static int _wrap_sacPortInfo_mkey_lmc_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10074

10075

uint8_t * _result;

10076

sacPortInfo * _arg0;

10077

uint8_t * _arg1;

10078

Tcl_Obj * tcl_result;

10079

char * rettype;

10080

uint8_t temp;

10081

10082

clientData = clientData; objv = objv;

10083

tcl_result = Tcl_GetObjResult(interp);

10084

if ((objc < 3) || (objc > 3)) {

10085

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mkey_lmc_set { sacPortInfo * } { uint8_t * } ",-1);

10086

return TCL_ERROR;

10087

}

10088

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10089

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mkey_lmc_set. Expected _sacPortInfo_p, received ", -1);

10090

Tcl_AppendToObj(tcl_result, rettype, -1);

10091

return TCL_ERROR;

10092

}

10093

{

10094

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10095

_arg1 = &temp;

10096

}

10097

{

10098

/* we can check if IBIS was initialized here */

10099

if (!IbisObj.initialized)

10100

{

10101

Tcl_SetStringObj(

10102

Tcl_GetObjResult(interp),

10103

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10104

return TCL_ERROR;

10105

}

10106

10107

if (! IbisObj.port_guid)

10108

{

10109

Tcl_SetStringObj(

10110

Tcl_GetObjResult(interp),

10111

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10112

return TCL_ERROR;

10113

}

10114

10115

ibis_tcl_error = 0;

10116

_result = (uint8_t *)_ib_port_info_mkey_lmc_set(_arg0,_arg1);

10117

;

10118

if (ibis_tcl_error) {

10119

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10120

return TCL_ERROR;

10121

}

10122

} tcl_result = Tcl_GetObjResult(interp);

10123

{

10124

char buff[20];

10125

sprintf(buff, "%u", *_result);

10126

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10127

}

10128

return TCL_OK;

10129

}

10130

#define _ib_port_info_mkey_lmc_get(_swigobj) (&_swigobj->mkey_lmc)

10131

static int _wrap_sacPortInfo_mkey_lmc_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10132

10133

uint8_t * _result;

10134

sacPortInfo * _arg0;

10135

Tcl_Obj * tcl_result;

10136

char * rettype;

10137

10138

clientData = clientData; objv = objv;

10139

tcl_result = Tcl_GetObjResult(interp);

10140

if ((objc < 2) || (objc > 2)) {

10141

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mkey_lmc_get { sacPortInfo * } ",-1);

10142

return TCL_ERROR;

10143

}

10144

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10145

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mkey_lmc_get. Expected _sacPortInfo_p, received ", -1);

10146

Tcl_AppendToObj(tcl_result, rettype, -1);

10147

return TCL_ERROR;

10148

}

10149

{

10150

/* we can check if IBIS was initialized here */

10151

if (!IbisObj.initialized)

10152

{

10153

Tcl_SetStringObj(

10154

Tcl_GetObjResult(interp),

10155

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10156

return TCL_ERROR;

10157

}

10158

10159

if (! IbisObj.port_guid)

10160

{

10161

Tcl_SetStringObj(

10162

Tcl_GetObjResult(interp),

10163

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10164

return TCL_ERROR;

10165

}

10166

10167

ibis_tcl_error = 0;

10168

_result = (uint8_t *)_ib_port_info_mkey_lmc_get(_arg0);

10169

;

10170

if (ibis_tcl_error) {

10171

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10172

return TCL_ERROR;

10173

}

10174

} tcl_result = Tcl_GetObjResult(interp);

10175

{

10176

char buff[20];

10177

sprintf(buff, "%u", *_result);

10178

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10179

}

10180

return TCL_OK;

10181

}

10182

#define _ib_port_info_link_speed_set(_swigobj,_swigval) (_swigobj->link_speed = *(_swigval),_swigval)

10183

static int _wrap_sacPortInfo_link_speed_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10184

10185

uint8_t * _result;

10186

sacPortInfo * _arg0;

10187

uint8_t * _arg1;

10188

Tcl_Obj * tcl_result;

10189

char * rettype;

10190

uint8_t temp;

10191

10192

clientData = clientData; objv = objv;

10193

tcl_result = Tcl_GetObjResult(interp);

10194

if ((objc < 3) || (objc > 3)) {

10195

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_speed_set { sacPortInfo * } { uint8_t * } ",-1);

10196

return TCL_ERROR;

10197

}

10198

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10199

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_speed_set. Expected _sacPortInfo_p, received ", -1);

10200

Tcl_AppendToObj(tcl_result, rettype, -1);

10201

return TCL_ERROR;

10202

}

10203

{

10204

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10205

_arg1 = &temp;

10206

}

10207

{

10208

/* we can check if IBIS was initialized here */

10209

if (!IbisObj.initialized)

10210

{

10211

Tcl_SetStringObj(

10212

Tcl_GetObjResult(interp),

10213

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10214

return TCL_ERROR;

10215

}

10216

10217

if (! IbisObj.port_guid)

10218

{

10219

Tcl_SetStringObj(

10220

Tcl_GetObjResult(interp),

10221

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10222

return TCL_ERROR;

10223

}

10224

10225

ibis_tcl_error = 0;

10226

_result = (uint8_t *)_ib_port_info_link_speed_set(_arg0,_arg1);

10227

;

10228

if (ibis_tcl_error) {

10229

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10230

return TCL_ERROR;

10231

}

10232

} tcl_result = Tcl_GetObjResult(interp);

10233

{

10234

char buff[20];

10235

sprintf(buff, "%u", *_result);

10236

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10237

}

10238

return TCL_OK;

10239

}

10240

#define _ib_port_info_link_speed_get(_swigobj) (&_swigobj->link_speed)

10241

static int _wrap_sacPortInfo_link_speed_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10242

10243

uint8_t * _result;

10244

sacPortInfo * _arg0;

10245

Tcl_Obj * tcl_result;

10246

char * rettype;

10247

10248

clientData = clientData; objv = objv;

10249

tcl_result = Tcl_GetObjResult(interp);

10250

if ((objc < 2) || (objc > 2)) {

10251

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_link_speed_get { sacPortInfo * } ",-1);

10252

return TCL_ERROR;

10253

}

10254

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10255

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_link_speed_get. Expected _sacPortInfo_p, received ", -1);

10256

Tcl_AppendToObj(tcl_result, rettype, -1);

10257

return TCL_ERROR;

10258

}

10259

{

10260

/* we can check if IBIS was initialized here */

10261

if (!IbisObj.initialized)

10262

{

10263

Tcl_SetStringObj(

10264

Tcl_GetObjResult(interp),

10265

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10266

return TCL_ERROR;

10267

}

10268

10269

if (! IbisObj.port_guid)

10270

{

10271

Tcl_SetStringObj(

10272

Tcl_GetObjResult(interp),

10273

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10274

return TCL_ERROR;

10275

}

10276

10277

ibis_tcl_error = 0;

10278

_result = (uint8_t *)_ib_port_info_link_speed_get(_arg0);

10279

;

10280

if (ibis_tcl_error) {

10281

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10282

return TCL_ERROR;

10283

}

10284

} tcl_result = Tcl_GetObjResult(interp);

10285

{

10286

char buff[20];

10287

sprintf(buff, "%u", *_result);

10288

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10289

}

10290

return TCL_OK;

10291

}

10292

#define _ib_port_info_mtu_smsl_set(_swigobj,_swigval) (_swigobj->mtu_smsl = *(_swigval),_swigval)

10293

static int _wrap_sacPortInfo_mtu_smsl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10294

10295

uint8_t * _result;

10296

sacPortInfo * _arg0;

10297

uint8_t * _arg1;

10298

Tcl_Obj * tcl_result;

10299

char * rettype;

10300

uint8_t temp;

10301

10302

clientData = clientData; objv = objv;

10303

tcl_result = Tcl_GetObjResult(interp);

10304

if ((objc < 3) || (objc > 3)) {

10305

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mtu_smsl_set { sacPortInfo * } { uint8_t * } ",-1);

10306

return TCL_ERROR;

10307

}

10308

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10309

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mtu_smsl_set. Expected _sacPortInfo_p, received ", -1);

10310

Tcl_AppendToObj(tcl_result, rettype, -1);

10311

return TCL_ERROR;

10312

}

10313

{

10314

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10315

_arg1 = &temp;

10316

}

10317

{

10318

/* we can check if IBIS was initialized here */

10319

if (!IbisObj.initialized)

10320

{

10321

Tcl_SetStringObj(

10322

Tcl_GetObjResult(interp),

10323

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10324

return TCL_ERROR;

10325

}

10326

10327

if (! IbisObj.port_guid)

10328

{

10329

Tcl_SetStringObj(

10330

Tcl_GetObjResult(interp),

10331

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10332

return TCL_ERROR;

10333

}

10334

10335

ibis_tcl_error = 0;

10336

_result = (uint8_t *)_ib_port_info_mtu_smsl_set(_arg0,_arg1);

10337

;

10338

if (ibis_tcl_error) {

10339

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10340

return TCL_ERROR;

10341

}

10342

} tcl_result = Tcl_GetObjResult(interp);

10343

{

10344

char buff[20];

10345

sprintf(buff, "%u", *_result);

10346

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10347

}

10348

return TCL_OK;

10349

}

10350

#define _ib_port_info_mtu_smsl_get(_swigobj) (&_swigobj->mtu_smsl)

10351

static int _wrap_sacPortInfo_mtu_smsl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10352

10353

uint8_t * _result;

10354

sacPortInfo * _arg0;

10355

Tcl_Obj * tcl_result;

10356

char * rettype;

10357

10358

clientData = clientData; objv = objv;

10359

tcl_result = Tcl_GetObjResult(interp);

10360

if ((objc < 2) || (objc > 2)) {

10361

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mtu_smsl_get { sacPortInfo * } ",-1);

10362

return TCL_ERROR;

10363

}

10364

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10365

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mtu_smsl_get. Expected _sacPortInfo_p, received ", -1);

10366

Tcl_AppendToObj(tcl_result, rettype, -1);

10367

return TCL_ERROR;

10368

}

10369

{

10370

/* we can check if IBIS was initialized here */

10371

if (!IbisObj.initialized)

10372

{

10373

Tcl_SetStringObj(

10374

Tcl_GetObjResult(interp),

10375

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10376

return TCL_ERROR;

10377

}

10378

10379

if (! IbisObj.port_guid)

10380

{

10381

Tcl_SetStringObj(

10382

Tcl_GetObjResult(interp),

10383

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10384

return TCL_ERROR;

10385

}

10386

10387

ibis_tcl_error = 0;

10388

_result = (uint8_t *)_ib_port_info_mtu_smsl_get(_arg0);

10389

;

10390

if (ibis_tcl_error) {

10391

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10392

return TCL_ERROR;

10393

}

10394

} tcl_result = Tcl_GetObjResult(interp);

10395

{

10396

char buff[20];

10397

sprintf(buff, "%u", *_result);

10398

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10399

}

10400

return TCL_OK;

10401

}

10402

#define _ib_port_info_vl_cap_set(_swigobj,_swigval) (_swigobj->vl_cap = *(_swigval),_swigval)

10403

static int _wrap_sacPortInfo_vl_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10404

10405

uint8_t * _result;

10406

sacPortInfo * _arg0;

10407

uint8_t * _arg1;

10408

Tcl_Obj * tcl_result;

10409

char * rettype;

10410

uint8_t temp;

10411

10412

clientData = clientData; objv = objv;

10413

tcl_result = Tcl_GetObjResult(interp);

10414

if ((objc < 3) || (objc > 3)) {

10415

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_cap_set { sacPortInfo * } { uint8_t * } ",-1);

10416

return TCL_ERROR;

10417

}

10418

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10419

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_cap_set. Expected _sacPortInfo_p, received ", -1);

10420

Tcl_AppendToObj(tcl_result, rettype, -1);

10421

return TCL_ERROR;

10422

}

10423

{

10424

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10425

_arg1 = &temp;

10426

}

10427

{

10428

/* we can check if IBIS was initialized here */

10429

if (!IbisObj.initialized)

10430

{

10431

Tcl_SetStringObj(

10432

Tcl_GetObjResult(interp),

10433

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10434

return TCL_ERROR;

10435

}

10436

10437

if (! IbisObj.port_guid)

10438

{

10439

Tcl_SetStringObj(

10440

Tcl_GetObjResult(interp),

10441

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10442

return TCL_ERROR;

10443

}

10444

10445

ibis_tcl_error = 0;

10446

_result = (uint8_t *)_ib_port_info_vl_cap_set(_arg0,_arg1);

10447

;

10448

if (ibis_tcl_error) {

10449

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10450

return TCL_ERROR;

10451

}

10452

} tcl_result = Tcl_GetObjResult(interp);

10453

{

10454

char buff[20];

10455

sprintf(buff, "%u", *_result);

10456

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10457

}

10458

return TCL_OK;

10459

}

10460

#define _ib_port_info_vl_cap_get(_swigobj) (&_swigobj->vl_cap)

10461

static int _wrap_sacPortInfo_vl_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10462

10463

uint8_t * _result;

10464

sacPortInfo * _arg0;

10465

Tcl_Obj * tcl_result;

10466

char * rettype;

10467

10468

clientData = clientData; objv = objv;

10469

tcl_result = Tcl_GetObjResult(interp);

10470

if ((objc < 2) || (objc > 2)) {

10471

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_cap_get { sacPortInfo * } ",-1);

10472

return TCL_ERROR;

10473

}

10474

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10475

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_cap_get. Expected _sacPortInfo_p, received ", -1);

10476

Tcl_AppendToObj(tcl_result, rettype, -1);

10477

return TCL_ERROR;

10478

}

10479

{

10480

/* we can check if IBIS was initialized here */

10481

if (!IbisObj.initialized)

10482

{

10483

Tcl_SetStringObj(

10484

Tcl_GetObjResult(interp),

10485

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10486

return TCL_ERROR;

10487

}

10488

10489

if (! IbisObj.port_guid)

10490

{

10491

Tcl_SetStringObj(

10492

Tcl_GetObjResult(interp),

10493

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10494

return TCL_ERROR;

10495

}

10496

10497

ibis_tcl_error = 0;

10498

_result = (uint8_t *)_ib_port_info_vl_cap_get(_arg0);

10499

;

10500

if (ibis_tcl_error) {

10501

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10502

return TCL_ERROR;

10503

}

10504

} tcl_result = Tcl_GetObjResult(interp);

10505

{

10506

char buff[20];

10507

sprintf(buff, "%u", *_result);

10508

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10509

}

10510

return TCL_OK;

10511

}

10512

#define _ib_port_info_vl_high_limit_set(_swigobj,_swigval) (_swigobj->vl_high_limit = *(_swigval),_swigval)

10513

static int _wrap_sacPortInfo_vl_high_limit_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10514

10515

uint8_t * _result;

10516

sacPortInfo * _arg0;

10517

uint8_t * _arg1;

10518

Tcl_Obj * tcl_result;

10519

char * rettype;

10520

uint8_t temp;

10521

10522

clientData = clientData; objv = objv;

10523

tcl_result = Tcl_GetObjResult(interp);

10524

if ((objc < 3) || (objc > 3)) {

10525

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_high_limit_set { sacPortInfo * } { uint8_t * } ",-1);

10526

return TCL_ERROR;

10527

}

10528

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10529

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_high_limit_set. Expected _sacPortInfo_p, received ", -1);

10530

Tcl_AppendToObj(tcl_result, rettype, -1);

10531

return TCL_ERROR;

10532

}

10533

{

10534

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10535

_arg1 = &temp;

10536

}

10537

{

10538

/* we can check if IBIS was initialized here */

10539

if (!IbisObj.initialized)

10540

{

10541

Tcl_SetStringObj(

10542

Tcl_GetObjResult(interp),

10543

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10544

return TCL_ERROR;

10545

}

10546

10547

if (! IbisObj.port_guid)

10548

{

10549

Tcl_SetStringObj(

10550

Tcl_GetObjResult(interp),

10551

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10552

return TCL_ERROR;

10553

}

10554

10555

ibis_tcl_error = 0;

10556

_result = (uint8_t *)_ib_port_info_vl_high_limit_set(_arg0,_arg1);

10557

;

10558

if (ibis_tcl_error) {

10559

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10560

return TCL_ERROR;

10561

}

10562

} tcl_result = Tcl_GetObjResult(interp);

10563

{

10564

char buff[20];

10565

sprintf(buff, "%u", *_result);

10566

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10567

}

10568

return TCL_OK;

10569

}

10570

#define _ib_port_info_vl_high_limit_get(_swigobj) (&_swigobj->vl_high_limit)

10571

static int _wrap_sacPortInfo_vl_high_limit_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10572

10573

uint8_t * _result;

10574

sacPortInfo * _arg0;

10575

Tcl_Obj * tcl_result;

10576

char * rettype;

10577

10578

clientData = clientData; objv = objv;

10579

tcl_result = Tcl_GetObjResult(interp);

10580

if ((objc < 2) || (objc > 2)) {

10581

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_high_limit_get { sacPortInfo * } ",-1);

10582

return TCL_ERROR;

10583

}

10584

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10585

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_high_limit_get. Expected _sacPortInfo_p, received ", -1);

10586

Tcl_AppendToObj(tcl_result, rettype, -1);

10587

return TCL_ERROR;

10588

}

10589

{

10590

/* we can check if IBIS was initialized here */

10591

if (!IbisObj.initialized)

10592

{

10593

Tcl_SetStringObj(

10594

Tcl_GetObjResult(interp),

10595

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10596

return TCL_ERROR;

10597

}

10598

10599

if (! IbisObj.port_guid)

10600

{

10601

Tcl_SetStringObj(

10602

Tcl_GetObjResult(interp),

10603

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10604

return TCL_ERROR;

10605

}

10606

10607

ibis_tcl_error = 0;

10608

_result = (uint8_t *)_ib_port_info_vl_high_limit_get(_arg0);

10609

;

10610

if (ibis_tcl_error) {

10611

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10612

return TCL_ERROR;

10613

}

10614

} tcl_result = Tcl_GetObjResult(interp);

10615

{

10616

char buff[20];

10617

sprintf(buff, "%u", *_result);

10618

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10619

}

10620

return TCL_OK;

10621

}

10622

#define _ib_port_info_vl_arb_high_cap_set(_swigobj,_swigval) (_swigobj->vl_arb_high_cap = *(_swigval),_swigval)

10623

static int _wrap_sacPortInfo_vl_arb_high_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10624

10625

uint8_t * _result;

10626

sacPortInfo * _arg0;

10627

uint8_t * _arg1;

10628

Tcl_Obj * tcl_result;

10629

char * rettype;

10630

uint8_t temp;

10631

10632

clientData = clientData; objv = objv;

10633

tcl_result = Tcl_GetObjResult(interp);

10634

if ((objc < 3) || (objc > 3)) {

10635

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_arb_high_cap_set { sacPortInfo * } { uint8_t * } ",-1);

10636

return TCL_ERROR;

10637

}

10638

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10639

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_arb_high_cap_set. Expected _sacPortInfo_p, received ", -1);

10640

Tcl_AppendToObj(tcl_result, rettype, -1);

10641

return TCL_ERROR;

10642

}

10643

{

10644

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10645

_arg1 = &temp;

10646

}

10647

{

10648

/* we can check if IBIS was initialized here */

10649

if (!IbisObj.initialized)

10650

{

10651

Tcl_SetStringObj(

10652

Tcl_GetObjResult(interp),

10653

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10654

return TCL_ERROR;

10655

}

10656

10657

if (! IbisObj.port_guid)

10658

{

10659

Tcl_SetStringObj(

10660

Tcl_GetObjResult(interp),

10661

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10662

return TCL_ERROR;

10663

}

10664

10665

ibis_tcl_error = 0;

10666

_result = (uint8_t *)_ib_port_info_vl_arb_high_cap_set(_arg0,_arg1);

10667

;

10668

if (ibis_tcl_error) {

10669

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10670

return TCL_ERROR;

10671

}

10672

} tcl_result = Tcl_GetObjResult(interp);

10673

{

10674

char buff[20];

10675

sprintf(buff, "%u", *_result);

10676

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10677

}

10678

return TCL_OK;

10679

}

10680

#define _ib_port_info_vl_arb_high_cap_get(_swigobj) (&_swigobj->vl_arb_high_cap)

10681

static int _wrap_sacPortInfo_vl_arb_high_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10682

10683

uint8_t * _result;

10684

sacPortInfo * _arg0;

10685

Tcl_Obj * tcl_result;

10686

char * rettype;

10687

10688

clientData = clientData; objv = objv;

10689

tcl_result = Tcl_GetObjResult(interp);

10690

if ((objc < 2) || (objc > 2)) {

10691

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_arb_high_cap_get { sacPortInfo * } ",-1);

10692

return TCL_ERROR;

10693

}

10694

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10695

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_arb_high_cap_get. Expected _sacPortInfo_p, received ", -1);

10696

Tcl_AppendToObj(tcl_result, rettype, -1);

10697

return TCL_ERROR;

10698

}

10699

{

10700

/* we can check if IBIS was initialized here */

10701

if (!IbisObj.initialized)

10702

{

10703

Tcl_SetStringObj(

10704

Tcl_GetObjResult(interp),

10705

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10706

return TCL_ERROR;

10707

}

10708

10709

if (! IbisObj.port_guid)

10710

{

10711

Tcl_SetStringObj(

10712

Tcl_GetObjResult(interp),

10713

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10714

return TCL_ERROR;

10715

}

10716

10717

ibis_tcl_error = 0;

10718

_result = (uint8_t *)_ib_port_info_vl_arb_high_cap_get(_arg0);

10719

;

10720

if (ibis_tcl_error) {

10721

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10722

return TCL_ERROR;

10723

}

10724

} tcl_result = Tcl_GetObjResult(interp);

10725

{

10726

char buff[20];

10727

sprintf(buff, "%u", *_result);

10728

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10729

}

10730

return TCL_OK;

10731

}

10732

#define _ib_port_info_vl_arb_low_cap_set(_swigobj,_swigval) (_swigobj->vl_arb_low_cap = *(_swigval),_swigval)

10733

static int _wrap_sacPortInfo_vl_arb_low_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10734

10735

uint8_t * _result;

10736

sacPortInfo * _arg0;

10737

uint8_t * _arg1;

10738

Tcl_Obj * tcl_result;

10739

char * rettype;

10740

uint8_t temp;

10741

10742

clientData = clientData; objv = objv;

10743

tcl_result = Tcl_GetObjResult(interp);

10744

if ((objc < 3) || (objc > 3)) {

10745

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_arb_low_cap_set { sacPortInfo * } { uint8_t * } ",-1);

10746

return TCL_ERROR;

10747

}

10748

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10749

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_arb_low_cap_set. Expected _sacPortInfo_p, received ", -1);

10750

Tcl_AppendToObj(tcl_result, rettype, -1);

10751

return TCL_ERROR;

10752

}

10753

{

10754

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10755

_arg1 = &temp;

10756

}

10757

{

10758

/* we can check if IBIS was initialized here */

10759

if (!IbisObj.initialized)

10760

{

10761

Tcl_SetStringObj(

10762

Tcl_GetObjResult(interp),

10763

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10764

return TCL_ERROR;

10765

}

10766

10767

if (! IbisObj.port_guid)

10768

{

10769

Tcl_SetStringObj(

10770

Tcl_GetObjResult(interp),

10771

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10772

return TCL_ERROR;

10773

}

10774

10775

ibis_tcl_error = 0;

10776

_result = (uint8_t *)_ib_port_info_vl_arb_low_cap_set(_arg0,_arg1);

10777

;

10778

if (ibis_tcl_error) {

10779

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10780

return TCL_ERROR;

10781

}

10782

} tcl_result = Tcl_GetObjResult(interp);

10783

{

10784

char buff[20];

10785

sprintf(buff, "%u", *_result);

10786

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10787

}

10788

return TCL_OK;

10789

}

10790

#define _ib_port_info_vl_arb_low_cap_get(_swigobj) (&_swigobj->vl_arb_low_cap)

10791

static int _wrap_sacPortInfo_vl_arb_low_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10792

10793

uint8_t * _result;

10794

sacPortInfo * _arg0;

10795

Tcl_Obj * tcl_result;

10796

char * rettype;

10797

10798

clientData = clientData; objv = objv;

10799

tcl_result = Tcl_GetObjResult(interp);

10800

if ((objc < 2) || (objc > 2)) {

10801

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_arb_low_cap_get { sacPortInfo * } ",-1);

10802

return TCL_ERROR;

10803

}

10804

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10805

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_arb_low_cap_get. Expected _sacPortInfo_p, received ", -1);

10806

Tcl_AppendToObj(tcl_result, rettype, -1);

10807

return TCL_ERROR;

10808

}

10809

{

10810

/* we can check if IBIS was initialized here */

10811

if (!IbisObj.initialized)

10812

{

10813

Tcl_SetStringObj(

10814

Tcl_GetObjResult(interp),

10815

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10816

return TCL_ERROR;

10817

}

10818

10819

if (! IbisObj.port_guid)

10820

{

10821

Tcl_SetStringObj(

10822

Tcl_GetObjResult(interp),

10823

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10824

return TCL_ERROR;

10825

}

10826

10827

ibis_tcl_error = 0;

10828

_result = (uint8_t *)_ib_port_info_vl_arb_low_cap_get(_arg0);

10829

;

10830

if (ibis_tcl_error) {

10831

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10832

return TCL_ERROR;

10833

}

10834

} tcl_result = Tcl_GetObjResult(interp);

10835

{

10836

char buff[20];

10837

sprintf(buff, "%u", *_result);

10838

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10839

}

10840

return TCL_OK;

10841

}

10842

#define _ib_port_info_mtu_cap_set(_swigobj,_swigval) (_swigobj->mtu_cap = *(_swigval),_swigval)

10843

static int _wrap_sacPortInfo_mtu_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10844

10845

uint8_t * _result;

10846

sacPortInfo * _arg0;

10847

uint8_t * _arg1;

10848

Tcl_Obj * tcl_result;

10849

char * rettype;

10850

uint8_t temp;

10851

10852

clientData = clientData; objv = objv;

10853

tcl_result = Tcl_GetObjResult(interp);

10854

if ((objc < 3) || (objc > 3)) {

10855

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mtu_cap_set { sacPortInfo * } { uint8_t * } ",-1);

10856

return TCL_ERROR;

10857

}

10858

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10859

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mtu_cap_set. Expected _sacPortInfo_p, received ", -1);

10860

Tcl_AppendToObj(tcl_result, rettype, -1);

10861

return TCL_ERROR;

10862

}

10863

{

10864

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10865

_arg1 = &temp;

10866

}

10867

{

10868

/* we can check if IBIS was initialized here */

10869

if (!IbisObj.initialized)

10870

{

10871

Tcl_SetStringObj(

10872

Tcl_GetObjResult(interp),

10873

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10874

return TCL_ERROR;

10875

}

10876

10877

if (! IbisObj.port_guid)

10878

{

10879

Tcl_SetStringObj(

10880

Tcl_GetObjResult(interp),

10881

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10882

return TCL_ERROR;

10883

}

10884

10885

ibis_tcl_error = 0;

10886

_result = (uint8_t *)_ib_port_info_mtu_cap_set(_arg0,_arg1);

10887

;

10888

if (ibis_tcl_error) {

10889

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10890

return TCL_ERROR;

10891

}

10892

} tcl_result = Tcl_GetObjResult(interp);

10893

{

10894

char buff[20];

10895

sprintf(buff, "%u", *_result);

10896

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10897

}

10898

return TCL_OK;

10899

}

10900

#define _ib_port_info_mtu_cap_get(_swigobj) (&_swigobj->mtu_cap)

10901

static int _wrap_sacPortInfo_mtu_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10902

10903

uint8_t * _result;

10904

sacPortInfo * _arg0;

10905

Tcl_Obj * tcl_result;

10906

char * rettype;

10907

10908

clientData = clientData; objv = objv;

10909

tcl_result = Tcl_GetObjResult(interp);

10910

if ((objc < 2) || (objc > 2)) {

10911

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_mtu_cap_get { sacPortInfo * } ",-1);

10912

return TCL_ERROR;

10913

}

10914

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10915

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_mtu_cap_get. Expected _sacPortInfo_p, received ", -1);

10916

Tcl_AppendToObj(tcl_result, rettype, -1);

10917

return TCL_ERROR;

10918

}

10919

{

10920

/* we can check if IBIS was initialized here */

10921

if (!IbisObj.initialized)

10922

{

10923

Tcl_SetStringObj(

10924

Tcl_GetObjResult(interp),

10925

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10926

return TCL_ERROR;

10927

}

10928

10929

if (! IbisObj.port_guid)

10930

{

10931

Tcl_SetStringObj(

10932

Tcl_GetObjResult(interp),

10933

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10934

return TCL_ERROR;

10935

}

10936

10937

ibis_tcl_error = 0;

10938

_result = (uint8_t *)_ib_port_info_mtu_cap_get(_arg0);

10939

;

10940

if (ibis_tcl_error) {

10941

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

10942

return TCL_ERROR;

10943

}

10944

} tcl_result = Tcl_GetObjResult(interp);

10945

{

10946

char buff[20];

10947

sprintf(buff, "%u", *_result);

10948

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

10949

}

10950

return TCL_OK;

10951

}

10952

#define _ib_port_info_vl_stall_life_set(_swigobj,_swigval) (_swigobj->vl_stall_life = *(_swigval),_swigval)

10953

static int _wrap_sacPortInfo_vl_stall_life_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

10954

10955

uint8_t * _result;

10956

sacPortInfo * _arg0;

10957

uint8_t * _arg1;

10958

Tcl_Obj * tcl_result;

10959

char * rettype;

10960

uint8_t temp;

10961

10962

clientData = clientData; objv = objv;

10963

tcl_result = Tcl_GetObjResult(interp);

10964

if ((objc < 3) || (objc > 3)) {

10965

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_stall_life_set { sacPortInfo * } { uint8_t * } ",-1);

10966

return TCL_ERROR;

10967

}

10968

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

10969

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_stall_life_set. Expected _sacPortInfo_p, received ", -1);

10970

Tcl_AppendToObj(tcl_result, rettype, -1);

10971

return TCL_ERROR;

10972

}

10973

{

10974

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

10975

_arg1 = &temp;

10976

}

10977

{

10978

/* we can check if IBIS was initialized here */

10979

if (!IbisObj.initialized)

10980

{

10981

Tcl_SetStringObj(

10982

Tcl_GetObjResult(interp),

10983

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

10984

return TCL_ERROR;

10985

}

10986

10987

if (! IbisObj.port_guid)

10988

{

10989

Tcl_SetStringObj(

10990

Tcl_GetObjResult(interp),

10991

" ibis was not yet initialized. please use ibis_set_port before.", -1);

10992

return TCL_ERROR;

10993

}

10994

10995

ibis_tcl_error = 0;

10996

_result = (uint8_t *)_ib_port_info_vl_stall_life_set(_arg0,_arg1);

10997

;

10998

if (ibis_tcl_error) {

10999

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11000

return TCL_ERROR;

11001

}

11002

} tcl_result = Tcl_GetObjResult(interp);

11003

{

11004

char buff[20];

11005

sprintf(buff, "%u", *_result);

11006

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11007

}

11008

return TCL_OK;

11009

}

11010

#define _ib_port_info_vl_stall_life_get(_swigobj) (&_swigobj->vl_stall_life)

11011

static int _wrap_sacPortInfo_vl_stall_life_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11012

11013

uint8_t * _result;

11014

sacPortInfo * _arg0;

11015

Tcl_Obj * tcl_result;

11016

char * rettype;

11017

11018

clientData = clientData; objv = objv;

11019

tcl_result = Tcl_GetObjResult(interp);

11020

if ((objc < 2) || (objc > 2)) {

11021

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_stall_life_get { sacPortInfo * } ",-1);

11022

return TCL_ERROR;

11023

}

11024

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11025

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_stall_life_get. Expected _sacPortInfo_p, received ", -1);

11026

Tcl_AppendToObj(tcl_result, rettype, -1);

11027

return TCL_ERROR;

11028

}

11029

{

11030

/* we can check if IBIS was initialized here */

11031

if (!IbisObj.initialized)

11032

{

11033

Tcl_SetStringObj(

11034

Tcl_GetObjResult(interp),

11035

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11036

return TCL_ERROR;

11037

}

11038

11039

if (! IbisObj.port_guid)

11040

{

11041

Tcl_SetStringObj(

11042

Tcl_GetObjResult(interp),

11043

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11044

return TCL_ERROR;

11045

}

11046

11047

ibis_tcl_error = 0;

11048

_result = (uint8_t *)_ib_port_info_vl_stall_life_get(_arg0);

11049

;

11050

if (ibis_tcl_error) {

11051

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11052

return TCL_ERROR;

11053

}

11054

} tcl_result = Tcl_GetObjResult(interp);

11055

{

11056

char buff[20];

11057

sprintf(buff, "%u", *_result);

11058

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11059

}

11060

return TCL_OK;

11061

}

11062

#define _ib_port_info_vl_enforce_set(_swigobj,_swigval) (_swigobj->vl_enforce = *(_swigval),_swigval)

11063

static int _wrap_sacPortInfo_vl_enforce_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11064

11065

uint8_t * _result;

11066

sacPortInfo * _arg0;

11067

uint8_t * _arg1;

11068

Tcl_Obj * tcl_result;

11069

char * rettype;

11070

uint8_t temp;

11071

11072

clientData = clientData; objv = objv;

11073

tcl_result = Tcl_GetObjResult(interp);

11074

if ((objc < 3) || (objc > 3)) {

11075

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_enforce_set { sacPortInfo * } { uint8_t * } ",-1);

11076

return TCL_ERROR;

11077

}

11078

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11079

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_enforce_set. Expected _sacPortInfo_p, received ", -1);

11080

Tcl_AppendToObj(tcl_result, rettype, -1);

11081

return TCL_ERROR;

11082

}

11083

{

11084

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

11085

_arg1 = &temp;

11086

}

11087

{

11088

/* we can check if IBIS was initialized here */

11089

if (!IbisObj.initialized)

11090

{

11091

Tcl_SetStringObj(

11092

Tcl_GetObjResult(interp),

11093

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11094

return TCL_ERROR;

11095

}

11096

11097

if (! IbisObj.port_guid)

11098

{

11099

Tcl_SetStringObj(

11100

Tcl_GetObjResult(interp),

11101

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11102

return TCL_ERROR;

11103

}

11104

11105

ibis_tcl_error = 0;

11106

_result = (uint8_t *)_ib_port_info_vl_enforce_set(_arg0,_arg1);

11107

;

11108

if (ibis_tcl_error) {

11109

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11110

return TCL_ERROR;

11111

}

11112

} tcl_result = Tcl_GetObjResult(interp);

11113

{

11114

char buff[20];

11115

sprintf(buff, "%u", *_result);

11116

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11117

}

11118

return TCL_OK;

11119

}

11120

#define _ib_port_info_vl_enforce_get(_swigobj) (&_swigobj->vl_enforce)

11121

static int _wrap_sacPortInfo_vl_enforce_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11122

11123

uint8_t * _result;

11124

sacPortInfo * _arg0;

11125

Tcl_Obj * tcl_result;

11126

char * rettype;

11127

11128

clientData = clientData; objv = objv;

11129

tcl_result = Tcl_GetObjResult(interp);

11130

if ((objc < 2) || (objc > 2)) {

11131

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_vl_enforce_get { sacPortInfo * } ",-1);

11132

return TCL_ERROR;

11133

}

11134

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11135

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_vl_enforce_get. Expected _sacPortInfo_p, received ", -1);

11136

Tcl_AppendToObj(tcl_result, rettype, -1);

11137

return TCL_ERROR;

11138

}

11139

{

11140

/* we can check if IBIS was initialized here */

11141

if (!IbisObj.initialized)

11142

{

11143

Tcl_SetStringObj(

11144

Tcl_GetObjResult(interp),

11145

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11146

return TCL_ERROR;

11147

}

11148

11149

if (! IbisObj.port_guid)

11150

{

11151

Tcl_SetStringObj(

11152

Tcl_GetObjResult(interp),

11153

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11154

return TCL_ERROR;

11155

}

11156

11157

ibis_tcl_error = 0;

11158

_result = (uint8_t *)_ib_port_info_vl_enforce_get(_arg0);

11159

;

11160

if (ibis_tcl_error) {

11161

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11162

return TCL_ERROR;

11163

}

11164

} tcl_result = Tcl_GetObjResult(interp);

11165

{

11166

char buff[20];

11167

sprintf(buff, "%u", *_result);

11168

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11169

}

11170

return TCL_OK;

11171

}

11172

#define _ib_port_info_m_key_violations_set(_swigobj,_swigval) (_swigobj->m_key_violations = *(_swigval),_swigval)

11173

static int _wrap_sacPortInfo_m_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11174

11175

ib_net16_t * _result;

11176

sacPortInfo * _arg0;

11177

ib_net16_t * _arg1;

11178

Tcl_Obj * tcl_result;

11179

char * rettype;

11180

ib_net16_t temp;

11181

11182

clientData = clientData; objv = objv;

11183

tcl_result = Tcl_GetObjResult(interp);

11184

if ((objc < 3) || (objc > 3)) {

11185

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_violations_set { sacPortInfo * } { ib_net16_t * } ",-1);

11186

return TCL_ERROR;

11187

}

11188

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11189

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_violations_set. Expected _sacPortInfo_p, received ", -1);

11190

Tcl_AppendToObj(tcl_result, rettype, -1);

11191

return TCL_ERROR;

11192

}

11193

{

11194

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

11195

_arg1 = &temp;

11196

}

11197

{

11198

/* we can check if IBIS was initialized here */

11199

if (!IbisObj.initialized)

11200

{

11201

Tcl_SetStringObj(

11202

Tcl_GetObjResult(interp),

11203

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11204

return TCL_ERROR;

11205

}

11206

11207

if (! IbisObj.port_guid)

11208

{

11209

Tcl_SetStringObj(

11210

Tcl_GetObjResult(interp),

11211

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11212

return TCL_ERROR;

11213

}

11214

11215

ibis_tcl_error = 0;

11216

_result = (ib_net16_t *)_ib_port_info_m_key_violations_set(_arg0,_arg1);

11217

;

11218

if (ibis_tcl_error) {

11219

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11220

return TCL_ERROR;

11221

}

11222

} tcl_result = Tcl_GetObjResult(interp);

11223

{

11224

char buff[20];

11225

sprintf(buff, "%u", cl_hton16(*_result));

11226

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11227

}

11228

return TCL_OK;

11229

}

11230

#define _ib_port_info_m_key_violations_get(_swigobj) (&_swigobj->m_key_violations)

11231

static int _wrap_sacPortInfo_m_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11232

11233

ib_net16_t * _result;

11234

sacPortInfo * _arg0;

11235

Tcl_Obj * tcl_result;

11236

char * rettype;

11237

11238

clientData = clientData; objv = objv;

11239

tcl_result = Tcl_GetObjResult(interp);

11240

if ((objc < 2) || (objc > 2)) {

11241

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_m_key_violations_get { sacPortInfo * } ",-1);

11242

return TCL_ERROR;

11243

}

11244

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11245

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_m_key_violations_get. Expected _sacPortInfo_p, received ", -1);

11246

Tcl_AppendToObj(tcl_result, rettype, -1);

11247

return TCL_ERROR;

11248

}

11249

{

11250

/* we can check if IBIS was initialized here */

11251

if (!IbisObj.initialized)

11252

{

11253

Tcl_SetStringObj(

11254

Tcl_GetObjResult(interp),

11255

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11256

return TCL_ERROR;

11257

}

11258

11259

if (! IbisObj.port_guid)

11260

{

11261

Tcl_SetStringObj(

11262

Tcl_GetObjResult(interp),

11263

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11264

return TCL_ERROR;

11265

}

11266

11267

ibis_tcl_error = 0;

11268

_result = (ib_net16_t *)_ib_port_info_m_key_violations_get(_arg0);

11269

;

11270

if (ibis_tcl_error) {

11271

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11272

return TCL_ERROR;

11273

}

11274

} tcl_result = Tcl_GetObjResult(interp);

11275

{

11276

char buff[20];

11277

sprintf(buff, "%u", cl_hton16(*_result));

11278

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11279

}

11280

return TCL_OK;

11281

}

11282

#define _ib_port_info_p_key_violations_set(_swigobj,_swigval) (_swigobj->p_key_violations = *(_swigval),_swigval)

11283

static int _wrap_sacPortInfo_p_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11284

11285

ib_net16_t * _result;

11286

sacPortInfo * _arg0;

11287

ib_net16_t * _arg1;

11288

Tcl_Obj * tcl_result;

11289

char * rettype;

11290

ib_net16_t temp;

11291

11292

clientData = clientData; objv = objv;

11293

tcl_result = Tcl_GetObjResult(interp);

11294

if ((objc < 3) || (objc > 3)) {

11295

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_p_key_violations_set { sacPortInfo * } { ib_net16_t * } ",-1);

11296

return TCL_ERROR;

11297

}

11298

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11299

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_p_key_violations_set. Expected _sacPortInfo_p, received ", -1);

11300

Tcl_AppendToObj(tcl_result, rettype, -1);

11301

return TCL_ERROR;

11302

}

11303

{

11304

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

11305

_arg1 = &temp;

11306

}

11307

{

11308

/* we can check if IBIS was initialized here */

11309

if (!IbisObj.initialized)

11310

{

11311

Tcl_SetStringObj(

11312

Tcl_GetObjResult(interp),

11313

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11314

return TCL_ERROR;

11315

}

11316

11317

if (! IbisObj.port_guid)

11318

{

11319

Tcl_SetStringObj(

11320

Tcl_GetObjResult(interp),

11321

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11322

return TCL_ERROR;

11323

}

11324

11325

ibis_tcl_error = 0;

11326

_result = (ib_net16_t *)_ib_port_info_p_key_violations_set(_arg0,_arg1);

11327

;

11328

if (ibis_tcl_error) {

11329

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11330

return TCL_ERROR;

11331

}

11332

} tcl_result = Tcl_GetObjResult(interp);

11333

{

11334

char buff[20];

11335

sprintf(buff, "%u", cl_hton16(*_result));

11336

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11337

}

11338

return TCL_OK;

11339

}

11340

#define _ib_port_info_p_key_violations_get(_swigobj) (&_swigobj->p_key_violations)

11341

static int _wrap_sacPortInfo_p_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11342

11343

ib_net16_t * _result;

11344

sacPortInfo * _arg0;

11345

Tcl_Obj * tcl_result;

11346

char * rettype;

11347

11348

clientData = clientData; objv = objv;

11349

tcl_result = Tcl_GetObjResult(interp);

11350

if ((objc < 2) || (objc > 2)) {

11351

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_p_key_violations_get { sacPortInfo * } ",-1);

11352

return TCL_ERROR;

11353

}

11354

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11355

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_p_key_violations_get. Expected _sacPortInfo_p, received ", -1);

11356

Tcl_AppendToObj(tcl_result, rettype, -1);

11357

return TCL_ERROR;

11358

}

11359

{

11360

/* we can check if IBIS was initialized here */

11361

if (!IbisObj.initialized)

11362

{

11363

Tcl_SetStringObj(

11364

Tcl_GetObjResult(interp),

11365

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11366

return TCL_ERROR;

11367

}

11368

11369

if (! IbisObj.port_guid)

11370

{

11371

Tcl_SetStringObj(

11372

Tcl_GetObjResult(interp),

11373

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11374

return TCL_ERROR;

11375

}

11376

11377

ibis_tcl_error = 0;

11378

_result = (ib_net16_t *)_ib_port_info_p_key_violations_get(_arg0);

11379

;

11380

if (ibis_tcl_error) {

11381

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11382

return TCL_ERROR;

11383

}

11384

} tcl_result = Tcl_GetObjResult(interp);

11385

{

11386

char buff[20];

11387

sprintf(buff, "%u", cl_hton16(*_result));

11388

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11389

}

11390

return TCL_OK;

11391

}

11392

#define _ib_port_info_q_key_violations_set(_swigobj,_swigval) (_swigobj->q_key_violations = *(_swigval),_swigval)

11393

static int _wrap_sacPortInfo_q_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11394

11395

ib_net16_t * _result;

11396

sacPortInfo * _arg0;

11397

ib_net16_t * _arg1;

11398

Tcl_Obj * tcl_result;

11399

char * rettype;

11400

ib_net16_t temp;

11401

11402

clientData = clientData; objv = objv;

11403

tcl_result = Tcl_GetObjResult(interp);

11404

if ((objc < 3) || (objc > 3)) {

11405

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_q_key_violations_set { sacPortInfo * } { ib_net16_t * } ",-1);

11406

return TCL_ERROR;

11407

}

11408

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11409

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_q_key_violations_set. Expected _sacPortInfo_p, received ", -1);

11410

Tcl_AppendToObj(tcl_result, rettype, -1);

11411

return TCL_ERROR;

11412

}

11413

{

11414

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

11415

_arg1 = &temp;

11416

}

11417

{

11418

/* we can check if IBIS was initialized here */

11419

if (!IbisObj.initialized)

11420

{

11421

Tcl_SetStringObj(

11422

Tcl_GetObjResult(interp),

11423

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11424

return TCL_ERROR;

11425

}

11426

11427

if (! IbisObj.port_guid)

11428

{

11429

Tcl_SetStringObj(

11430

Tcl_GetObjResult(interp),

11431

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11432

return TCL_ERROR;

11433

}

11434

11435

ibis_tcl_error = 0;

11436

_result = (ib_net16_t *)_ib_port_info_q_key_violations_set(_arg0,_arg1);

11437

;

11438

if (ibis_tcl_error) {

11439

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11440

return TCL_ERROR;

11441

}

11442

} tcl_result = Tcl_GetObjResult(interp);

11443

{

11444

char buff[20];

11445

sprintf(buff, "%u", cl_hton16(*_result));

11446

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11447

}

11448

return TCL_OK;

11449

}

11450

#define _ib_port_info_q_key_violations_get(_swigobj) (&_swigobj->q_key_violations)

11451

static int _wrap_sacPortInfo_q_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11452

11453

ib_net16_t * _result;

11454

sacPortInfo * _arg0;

11455

Tcl_Obj * tcl_result;

11456

char * rettype;

11457

11458

clientData = clientData; objv = objv;

11459

tcl_result = Tcl_GetObjResult(interp);

11460

if ((objc < 2) || (objc > 2)) {

11461

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_q_key_violations_get { sacPortInfo * } ",-1);

11462

return TCL_ERROR;

11463

}

11464

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11465

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_q_key_violations_get. Expected _sacPortInfo_p, received ", -1);

11466

Tcl_AppendToObj(tcl_result, rettype, -1);

11467

return TCL_ERROR;

11468

}

11469

{

11470

/* we can check if IBIS was initialized here */

11471

if (!IbisObj.initialized)

11472

{

11473

Tcl_SetStringObj(

11474

Tcl_GetObjResult(interp),

11475

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11476

return TCL_ERROR;

11477

}

11478

11479

if (! IbisObj.port_guid)

11480

{

11481

Tcl_SetStringObj(

11482

Tcl_GetObjResult(interp),

11483

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11484

return TCL_ERROR;

11485

}

11486

11487

ibis_tcl_error = 0;

11488

_result = (ib_net16_t *)_ib_port_info_q_key_violations_get(_arg0);

11489

;

11490

if (ibis_tcl_error) {

11491

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11492

return TCL_ERROR;

11493

}

11494

} tcl_result = Tcl_GetObjResult(interp);

11495

{

11496

char buff[20];

11497

sprintf(buff, "%u", cl_hton16(*_result));

11498

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11499

}

11500

return TCL_OK;

11501

}

11502

#define _ib_port_info_guid_cap_set(_swigobj,_swigval) (_swigobj->guid_cap = *(_swigval),_swigval)

11503

static int _wrap_sacPortInfo_guid_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11504

11505

uint8_t * _result;

11506

sacPortInfo * _arg0;

11507

uint8_t * _arg1;

11508

Tcl_Obj * tcl_result;

11509

char * rettype;

11510

uint8_t temp;

11511

11512

clientData = clientData; objv = objv;

11513

tcl_result = Tcl_GetObjResult(interp);

11514

if ((objc < 3) || (objc > 3)) {

11515

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_guid_cap_set { sacPortInfo * } { uint8_t * } ",-1);

11516

return TCL_ERROR;

11517

}

11518

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11519

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_guid_cap_set. Expected _sacPortInfo_p, received ", -1);

11520

Tcl_AppendToObj(tcl_result, rettype, -1);

11521

return TCL_ERROR;

11522

}

11523

{

11524

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

11525

_arg1 = &temp;

11526

}

11527

{

11528

/* we can check if IBIS was initialized here */

11529

if (!IbisObj.initialized)

11530

{

11531

Tcl_SetStringObj(

11532

Tcl_GetObjResult(interp),

11533

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11534

return TCL_ERROR;

11535

}

11536

11537

if (! IbisObj.port_guid)

11538

{

11539

Tcl_SetStringObj(

11540

Tcl_GetObjResult(interp),

11541

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11542

return TCL_ERROR;

11543

}

11544

11545

ibis_tcl_error = 0;

11546

_result = (uint8_t *)_ib_port_info_guid_cap_set(_arg0,_arg1);

11547

;

11548

if (ibis_tcl_error) {

11549

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11550

return TCL_ERROR;

11551

}

11552

} tcl_result = Tcl_GetObjResult(interp);

11553

{

11554

char buff[20];

11555

sprintf(buff, "%u", *_result);

11556

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11557

}

11558

return TCL_OK;

11559

}

11560

#define _ib_port_info_guid_cap_get(_swigobj) (&_swigobj->guid_cap)

11561

static int _wrap_sacPortInfo_guid_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11562

11563

uint8_t * _result;

11564

sacPortInfo * _arg0;

11565

Tcl_Obj * tcl_result;

11566

char * rettype;

11567

11568

clientData = clientData; objv = objv;

11569

tcl_result = Tcl_GetObjResult(interp);

11570

if ((objc < 2) || (objc > 2)) {

11571

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_guid_cap_get { sacPortInfo * } ",-1);

11572

return TCL_ERROR;

11573

}

11574

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11575

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_guid_cap_get. Expected _sacPortInfo_p, received ", -1);

11576

Tcl_AppendToObj(tcl_result, rettype, -1);

11577

return TCL_ERROR;

11578

}

11579

{

11580

/* we can check if IBIS was initialized here */

11581

if (!IbisObj.initialized)

11582

{

11583

Tcl_SetStringObj(

11584

Tcl_GetObjResult(interp),

11585

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11586

return TCL_ERROR;

11587

}

11588

11589

if (! IbisObj.port_guid)

11590

{

11591

Tcl_SetStringObj(

11592

Tcl_GetObjResult(interp),

11593

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11594

return TCL_ERROR;

11595

}

11596

11597

ibis_tcl_error = 0;

11598

_result = (uint8_t *)_ib_port_info_guid_cap_get(_arg0);

11599

;

11600

if (ibis_tcl_error) {

11601

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11602

return TCL_ERROR;

11603

}

11604

} tcl_result = Tcl_GetObjResult(interp);

11605

{

11606

char buff[20];

11607

sprintf(buff, "%u", *_result);

11608

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11609

}

11610

return TCL_OK;

11611

}

11612

#define _ib_port_info_subnet_timeout_set(_swigobj,_swigval) (_swigobj->subnet_timeout = *(_swigval),_swigval)

11613

static int _wrap_sacPortInfo_subnet_timeout_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11614

11615

uint8_t * _result;

11616

sacPortInfo * _arg0;

11617

uint8_t * _arg1;

11618

Tcl_Obj * tcl_result;

11619

char * rettype;

11620

uint8_t temp;

11621

11622

clientData = clientData; objv = objv;

11623

tcl_result = Tcl_GetObjResult(interp);

11624

if ((objc < 3) || (objc > 3)) {

11625

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_subnet_timeout_set { sacPortInfo * } { uint8_t * } ",-1);

11626

return TCL_ERROR;

11627

}

11628

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11629

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_subnet_timeout_set. Expected _sacPortInfo_p, received ", -1);

11630

Tcl_AppendToObj(tcl_result, rettype, -1);

11631

return TCL_ERROR;

11632

}

11633

{

11634

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

11635

_arg1 = &temp;

11636

}

11637

{

11638

/* we can check if IBIS was initialized here */

11639

if (!IbisObj.initialized)

11640

{

11641

Tcl_SetStringObj(

11642

Tcl_GetObjResult(interp),

11643

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11644

return TCL_ERROR;

11645

}

11646

11647

if (! IbisObj.port_guid)

11648

{

11649

Tcl_SetStringObj(

11650

Tcl_GetObjResult(interp),

11651

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11652

return TCL_ERROR;

11653

}

11654

11655

ibis_tcl_error = 0;

11656

_result = (uint8_t *)_ib_port_info_subnet_timeout_set(_arg0,_arg1);

11657

;

11658

if (ibis_tcl_error) {

11659

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11660

return TCL_ERROR;

11661

}

11662

} tcl_result = Tcl_GetObjResult(interp);

11663

{

11664

char buff[20];

11665

sprintf(buff, "%u", *_result);

11666

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11667

}

11668

return TCL_OK;

11669

}

11670

#define _ib_port_info_subnet_timeout_get(_swigobj) (&_swigobj->subnet_timeout)

11671

static int _wrap_sacPortInfo_subnet_timeout_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11672

11673

uint8_t * _result;

11674

sacPortInfo * _arg0;

11675

Tcl_Obj * tcl_result;

11676

char * rettype;

11677

11678

clientData = clientData; objv = objv;

11679

tcl_result = Tcl_GetObjResult(interp);

11680

if ((objc < 2) || (objc > 2)) {

11681

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_subnet_timeout_get { sacPortInfo * } ",-1);

11682

return TCL_ERROR;

11683

}

11684

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11685

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_subnet_timeout_get. Expected _sacPortInfo_p, received ", -1);

11686

Tcl_AppendToObj(tcl_result, rettype, -1);

11687

return TCL_ERROR;

11688

}

11689

{

11690

/* we can check if IBIS was initialized here */

11691

if (!IbisObj.initialized)

11692

{

11693

Tcl_SetStringObj(

11694

Tcl_GetObjResult(interp),

11695

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11696

return TCL_ERROR;

11697

}

11698

11699

if (! IbisObj.port_guid)

11700

{

11701

Tcl_SetStringObj(

11702

Tcl_GetObjResult(interp),

11703

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11704

return TCL_ERROR;

11705

}

11706

11707

ibis_tcl_error = 0;

11708

_result = (uint8_t *)_ib_port_info_subnet_timeout_get(_arg0);

11709

;

11710

if (ibis_tcl_error) {

11711

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11712

return TCL_ERROR;

11713

}

11714

} tcl_result = Tcl_GetObjResult(interp);

11715

{

11716

char buff[20];

11717

sprintf(buff, "%u", *_result);

11718

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11719

}

11720

return TCL_OK;

11721

}

11722

#define _ib_port_info_resp_time_value_set(_swigobj,_swigval) (_swigobj->resp_time_value = *(_swigval),_swigval)

11723

static int _wrap_sacPortInfo_resp_time_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11724

11725

uint8_t * _result;

11726

sacPortInfo * _arg0;

11727

uint8_t * _arg1;

11728

Tcl_Obj * tcl_result;

11729

char * rettype;

11730

uint8_t temp;

11731

11732

clientData = clientData; objv = objv;

11733

tcl_result = Tcl_GetObjResult(interp);

11734

if ((objc < 3) || (objc > 3)) {

11735

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_resp_time_value_set { sacPortInfo * } { uint8_t * } ",-1);

11736

return TCL_ERROR;

11737

}

11738

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11739

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_resp_time_value_set. Expected _sacPortInfo_p, received ", -1);

11740

Tcl_AppendToObj(tcl_result, rettype, -1);

11741

return TCL_ERROR;

11742

}

11743

{

11744

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

11745

_arg1 = &temp;

11746

}

11747

{

11748

/* we can check if IBIS was initialized here */

11749

if (!IbisObj.initialized)

11750

{

11751

Tcl_SetStringObj(

11752

Tcl_GetObjResult(interp),

11753

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11754

return TCL_ERROR;

11755

}

11756

11757

if (! IbisObj.port_guid)

11758

{

11759

Tcl_SetStringObj(

11760

Tcl_GetObjResult(interp),

11761

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11762

return TCL_ERROR;

11763

}

11764

11765

ibis_tcl_error = 0;

11766

_result = (uint8_t *)_ib_port_info_resp_time_value_set(_arg0,_arg1);

11767

;

11768

if (ibis_tcl_error) {

11769

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11770

return TCL_ERROR;

11771

}

11772

} tcl_result = Tcl_GetObjResult(interp);

11773

{

11774

char buff[20];

11775

sprintf(buff, "%u", *_result);

11776

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11777

}

11778

return TCL_OK;

11779

}

11780

#define _ib_port_info_resp_time_value_get(_swigobj) (&_swigobj->resp_time_value)

11781

static int _wrap_sacPortInfo_resp_time_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11782

11783

uint8_t * _result;

11784

sacPortInfo * _arg0;

11785

Tcl_Obj * tcl_result;

11786

char * rettype;

11787

11788

clientData = clientData; objv = objv;

11789

tcl_result = Tcl_GetObjResult(interp);

11790

if ((objc < 2) || (objc > 2)) {

11791

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_resp_time_value_get { sacPortInfo * } ",-1);

11792

return TCL_ERROR;

11793

}

11794

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11795

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_resp_time_value_get. Expected _sacPortInfo_p, received ", -1);

11796

Tcl_AppendToObj(tcl_result, rettype, -1);

11797

return TCL_ERROR;

11798

}

11799

{

11800

/* we can check if IBIS was initialized here */

11801

if (!IbisObj.initialized)

11802

{

11803

Tcl_SetStringObj(

11804

Tcl_GetObjResult(interp),

11805

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11806

return TCL_ERROR;

11807

}

11808

11809

if (! IbisObj.port_guid)

11810

{

11811

Tcl_SetStringObj(

11812

Tcl_GetObjResult(interp),

11813

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11814

return TCL_ERROR;

11815

}

11816

11817

ibis_tcl_error = 0;

11818

_result = (uint8_t *)_ib_port_info_resp_time_value_get(_arg0);

11819

;

11820

if (ibis_tcl_error) {

11821

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11822

return TCL_ERROR;

11823

}

11824

} tcl_result = Tcl_GetObjResult(interp);

11825

{

11826

char buff[20];

11827

sprintf(buff, "%u", *_result);

11828

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11829

}

11830

return TCL_OK;

11831

}

11832

#define _ib_port_info_error_threshold_set(_swigobj,_swigval) (_swigobj->error_threshold = *(_swigval),_swigval)

11833

static int _wrap_sacPortInfo_error_threshold_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11834

11835

uint8_t * _result;

11836

sacPortInfo * _arg0;

11837

uint8_t * _arg1;

11838

Tcl_Obj * tcl_result;

11839

char * rettype;

11840

uint8_t temp;

11841

11842

clientData = clientData; objv = objv;

11843

tcl_result = Tcl_GetObjResult(interp);

11844

if ((objc < 3) || (objc > 3)) {

11845

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_error_threshold_set { sacPortInfo * } { uint8_t * } ",-1);

11846

return TCL_ERROR;

11847

}

11848

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11849

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_error_threshold_set. Expected _sacPortInfo_p, received ", -1);

11850

Tcl_AppendToObj(tcl_result, rettype, -1);

11851

return TCL_ERROR;

11852

}

11853

{

11854

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

11855

_arg1 = &temp;

11856

}

11857

{

11858

/* we can check if IBIS was initialized here */

11859

if (!IbisObj.initialized)

11860

{

11861

Tcl_SetStringObj(

11862

Tcl_GetObjResult(interp),

11863

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11864

return TCL_ERROR;

11865

}

11866

11867

if (! IbisObj.port_guid)

11868

{

11869

Tcl_SetStringObj(

11870

Tcl_GetObjResult(interp),

11871

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11872

return TCL_ERROR;

11873

}

11874

11875

ibis_tcl_error = 0;

11876

_result = (uint8_t *)_ib_port_info_error_threshold_set(_arg0,_arg1);

11877

;

11878

if (ibis_tcl_error) {

11879

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11880

return TCL_ERROR;

11881

}

11882

} tcl_result = Tcl_GetObjResult(interp);

11883

{

11884

char buff[20];

11885

sprintf(buff, "%u", *_result);

11886

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11887

}

11888

return TCL_OK;

11889

}

11890

#define _ib_port_info_error_threshold_get(_swigobj) (&_swigobj->error_threshold)

11891

static int _wrap_sacPortInfo_error_threshold_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11892

11893

uint8_t * _result;

11894

sacPortInfo * _arg0;

11895

Tcl_Obj * tcl_result;

11896

char * rettype;

11897

11898

clientData = clientData; objv = objv;

11899

tcl_result = Tcl_GetObjResult(interp);

11900

if ((objc < 2) || (objc > 2)) {

11901

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_error_threshold_get { sacPortInfo * } ",-1);

11902

return TCL_ERROR;

11903

}

11904

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11905

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_error_threshold_get. Expected _sacPortInfo_p, received ", -1);

11906

Tcl_AppendToObj(tcl_result, rettype, -1);

11907

return TCL_ERROR;

11908

}

11909

{

11910

/* we can check if IBIS was initialized here */

11911

if (!IbisObj.initialized)

11912

{

11913

Tcl_SetStringObj(

11914

Tcl_GetObjResult(interp),

11915

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11916

return TCL_ERROR;

11917

}

11918

11919

if (! IbisObj.port_guid)

11920

{

11921

Tcl_SetStringObj(

11922

Tcl_GetObjResult(interp),

11923

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11924

return TCL_ERROR;

11925

}

11926

11927

ibis_tcl_error = 0;

11928

_result = (uint8_t *)_ib_port_info_error_threshold_get(_arg0);

11929

;

11930

if (ibis_tcl_error) {

11931

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11932

return TCL_ERROR;

11933

}

11934

} tcl_result = Tcl_GetObjResult(interp);

11935

{

11936

char buff[20];

11937

sprintf(buff, "%u", *_result);

11938

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

11939

}

11940

return TCL_OK;

11941

}

11942

static void sacPortInfo_delete(sacPortInfo *self) {

11943

SWIG_AltMnglUnregObj(self);

11944

free(self);

11945

}

11946

static int _wrap_sacPortInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

11947

11948

sacPortInfo * _arg0;

11949

Tcl_Obj * tcl_result;

11950

char * rettype;

11951

11952

clientData = clientData; objv = objv;

11953

tcl_result = Tcl_GetObjResult(interp);

11954

if ((objc < 2) || (objc > 2)) {

11955

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortInfo_delete { sacPortInfo * } ",-1);

11956

return TCL_ERROR;

11957

}

11958

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortInfo_p"))) {

11959

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortInfo_delete. Expected _sacPortInfo_p, received ", -1);

11960

Tcl_AppendToObj(tcl_result, rettype, -1);

11961

return TCL_ERROR;

11962

}

11963

{

11964

/* we can check if IBIS was initialized here */

11965

if (!IbisObj.initialized)

11966

{

11967

Tcl_SetStringObj(

11968

Tcl_GetObjResult(interp),

11969

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

11970

return TCL_ERROR;

11971

}

11972

11973

if (! IbisObj.port_guid)

11974

{

11975

Tcl_SetStringObj(

11976

Tcl_GetObjResult(interp),

11977

" ibis was not yet initialized. please use ibis_set_port before.", -1);

11978

return TCL_ERROR;

11979

}

11980

11981

ibis_tcl_error = 0;

11982

sacPortInfo_delete(_arg0);

11983

;

11984

if (ibis_tcl_error) {

11985

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

11986

return TCL_ERROR;

11987

}

11988

} tcl_result = Tcl_GetObjResult(interp);

11989

return TCL_OK;

11990

}

11991

/* methodcmd8.swg : Tcl8.x method invocation */

11992

11993

static int TclsacPortInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

11994

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

11995

char *_str;

11996

int rcode;

11997

Tcl_Obj **objv;

11998

Tcl_Obj *oldarg,*tcl_result,*obj;

11999

int length;

12000

char c;

12001

12002

tcl_result = Tcl_GetObjResult(interp);

12003

objv = (Tcl_Obj **) _objv;

12004

if (objc < 2) {

12005

Tcl_SetStringObj(tcl_result,"sacPortInfo methods : { dump cget configure delete }",-1);

12006

return TCL_ERROR;

12007

}

12008

obj = Tcl_NewObj();

12009

SWIG_SetPointerObj(obj,(void *) clientData,"_sacPortInfo_p");

12010

_str = Tcl_GetStringFromObj(objv[1],&length);

12011

c = *_str;

12012

if (0);

12013

if (strcmp(_str,"delete") == 0) {

12014

cmd = _wrap_sacPortInfo_delete;

12015

}

12016

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

12017

int i = 2;

12018

cmd = 0;

12019

while (i+1 < objc) {

12020

_str = Tcl_GetStringFromObj(objv[i],&length);

12021

if (strcmp(_str,"-m_key") == 0) {

12022

cmd = _wrap_sacPortInfo_m_key_set;

12023

} else if (strcmp(_str,"-subnet_prefix") == 0) {

12024

cmd = _wrap_sacPortInfo_subnet_prefix_set;

12025

} else if (strcmp(_str,"-base_lid") == 0) {

12026

cmd = _wrap_sacPortInfo_base_lid_set;

12027

} else if (strcmp(_str,"-master_sm_base_lid") == 0) {

12028

cmd = _wrap_sacPortInfo_master_sm_base_lid_set;

12029

} else if (strcmp(_str,"-capability_mask") == 0) {

12030

cmd = _wrap_sacPortInfo_capability_mask_set;

12031

} else if (strcmp(_str,"-diag_code") == 0) {

12032

cmd = _wrap_sacPortInfo_diag_code_set;

12033

} else if (strcmp(_str,"-m_key_lease_period") == 0) {

12034

cmd = _wrap_sacPortInfo_m_key_lease_period_set;

12035

} else if (strcmp(_str,"-local_port_num") == 0) {

12036

cmd = _wrap_sacPortInfo_local_port_num_set;

12037

} else if (strcmp(_str,"-link_width_enabled") == 0) {

12038

cmd = _wrap_sacPortInfo_link_width_enabled_set;

12039

} else if (strcmp(_str,"-link_width_supported") == 0) {

12040

cmd = _wrap_sacPortInfo_link_width_supported_set;

12041

} else if (strcmp(_str,"-link_width_active") == 0) {

12042

cmd = _wrap_sacPortInfo_link_width_active_set;

12043

} else if (strcmp(_str,"-state_info1") == 0) {

12044

cmd = _wrap_sacPortInfo_state_info1_set;

12045

} else if (strcmp(_str,"-state_info2") == 0) {

12046

cmd = _wrap_sacPortInfo_state_info2_set;

12047

} else if (strcmp(_str,"-mkey_lmc") == 0) {

12048

cmd = _wrap_sacPortInfo_mkey_lmc_set;

12049

} else if (strcmp(_str,"-link_speed") == 0) {

12050

cmd = _wrap_sacPortInfo_link_speed_set;

12051

} else if (strcmp(_str,"-mtu_smsl") == 0) {

12052

cmd = _wrap_sacPortInfo_mtu_smsl_set;

12053

} else if (strcmp(_str,"-vl_cap") == 0) {

12054

cmd = _wrap_sacPortInfo_vl_cap_set;

12055

} else if (strcmp(_str,"-vl_high_limit") == 0) {

12056

cmd = _wrap_sacPortInfo_vl_high_limit_set;

12057

} else if (strcmp(_str,"-vl_arb_high_cap") == 0) {

12058

cmd = _wrap_sacPortInfo_vl_arb_high_cap_set;

12059

} else if (strcmp(_str,"-vl_arb_low_cap") == 0) {

12060

cmd = _wrap_sacPortInfo_vl_arb_low_cap_set;

12061

} else if (strcmp(_str,"-mtu_cap") == 0) {

12062

cmd = _wrap_sacPortInfo_mtu_cap_set;

12063

} else if (strcmp(_str,"-vl_stall_life") == 0) {

12064

cmd = _wrap_sacPortInfo_vl_stall_life_set;

12065

} else if (strcmp(_str,"-vl_enforce") == 0) {

12066

cmd = _wrap_sacPortInfo_vl_enforce_set;

12067

} else if (strcmp(_str,"-m_key_violations") == 0) {

12068

cmd = _wrap_sacPortInfo_m_key_violations_set;

12069

} else if (strcmp(_str,"-p_key_violations") == 0) {

12070

cmd = _wrap_sacPortInfo_p_key_violations_set;

12071

} else if (strcmp(_str,"-q_key_violations") == 0) {

12072

cmd = _wrap_sacPortInfo_q_key_violations_set;

12073

} else if (strcmp(_str,"-guid_cap") == 0) {

12074

cmd = _wrap_sacPortInfo_guid_cap_set;

12075

} else if (strcmp(_str,"-subnet_timeout") == 0) {

12076

cmd = _wrap_sacPortInfo_subnet_timeout_set;

12077

} else if (strcmp(_str,"-resp_time_value") == 0) {

12078

cmd = _wrap_sacPortInfo_resp_time_value_set;

12079

} else if (strcmp(_str,"-error_threshold") == 0) {

12080

cmd = _wrap_sacPortInfo_error_threshold_set;

12081

}

12082

if (cmd) {

12083

oldarg = objv[i];

12084

objv[i] = obj;

12085

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

12086

objv[i] = oldarg;

12087

if (rcode == TCL_ERROR) return rcode;

12088

cmd = 0;

12089

} else {

12090

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

12091

return TCL_ERROR;

12092

}

12093

i+=2;

12094

}

12095

if ((i < objc) || (i == 2)) {

12096

Tcl_SetStringObj(tcl_result,"{ -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

12097

return TCL_ERROR;

12098

}

12099

return TCL_OK;

12100

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

12101

if (objc == 3) {

12102

_str = Tcl_GetStringFromObj(objv[2],&length);

12103

if (0) {}

12104

if (strcmp(_str,"-m_key") == 0) {

12105

cmd = _wrap_sacPortInfo_m_key_get;

12106

} else if (strcmp(_str,"-subnet_prefix") == 0) {

12107

cmd = _wrap_sacPortInfo_subnet_prefix_get;

12108

} else if (strcmp(_str,"-base_lid") == 0) {

12109

cmd = _wrap_sacPortInfo_base_lid_get;

12110

} else if (strcmp(_str,"-master_sm_base_lid") == 0) {

12111

cmd = _wrap_sacPortInfo_master_sm_base_lid_get;

12112

} else if (strcmp(_str,"-capability_mask") == 0) {

12113

cmd = _wrap_sacPortInfo_capability_mask_get;

12114

} else if (strcmp(_str,"-diag_code") == 0) {

12115

cmd = _wrap_sacPortInfo_diag_code_get;

12116

} else if (strcmp(_str,"-m_key_lease_period") == 0) {

12117

cmd = _wrap_sacPortInfo_m_key_lease_period_get;

12118

} else if (strcmp(_str,"-local_port_num") == 0) {

12119

cmd = _wrap_sacPortInfo_local_port_num_get;

12120

} else if (strcmp(_str,"-link_width_enabled") == 0) {

12121

cmd = _wrap_sacPortInfo_link_width_enabled_get;

12122

} else if (strcmp(_str,"-link_width_supported") == 0) {

12123

cmd = _wrap_sacPortInfo_link_width_supported_get;

12124

} else if (strcmp(_str,"-link_width_active") == 0) {

12125

cmd = _wrap_sacPortInfo_link_width_active_get;

12126

} else if (strcmp(_str,"-state_info1") == 0) {

12127

cmd = _wrap_sacPortInfo_state_info1_get;

12128

} else if (strcmp(_str,"-state_info2") == 0) {

12129

cmd = _wrap_sacPortInfo_state_info2_get;

12130

} else if (strcmp(_str,"-mkey_lmc") == 0) {

12131

cmd = _wrap_sacPortInfo_mkey_lmc_get;

12132

} else if (strcmp(_str,"-link_speed") == 0) {

12133

cmd = _wrap_sacPortInfo_link_speed_get;

12134

} else if (strcmp(_str,"-mtu_smsl") == 0) {

12135

cmd = _wrap_sacPortInfo_mtu_smsl_get;

12136

} else if (strcmp(_str,"-vl_cap") == 0) {

12137

cmd = _wrap_sacPortInfo_vl_cap_get;

12138

} else if (strcmp(_str,"-vl_high_limit") == 0) {

12139

cmd = _wrap_sacPortInfo_vl_high_limit_get;

12140

} else if (strcmp(_str,"-vl_arb_high_cap") == 0) {

12141

cmd = _wrap_sacPortInfo_vl_arb_high_cap_get;

12142

} else if (strcmp(_str,"-vl_arb_low_cap") == 0) {

12143

cmd = _wrap_sacPortInfo_vl_arb_low_cap_get;

12144

} else if (strcmp(_str,"-mtu_cap") == 0) {

12145

cmd = _wrap_sacPortInfo_mtu_cap_get;

12146

} else if (strcmp(_str,"-vl_stall_life") == 0) {

12147

cmd = _wrap_sacPortInfo_vl_stall_life_get;

12148

} else if (strcmp(_str,"-vl_enforce") == 0) {

12149

cmd = _wrap_sacPortInfo_vl_enforce_get;

12150

} else if (strcmp(_str,"-m_key_violations") == 0) {

12151

cmd = _wrap_sacPortInfo_m_key_violations_get;

12152

} else if (strcmp(_str,"-p_key_violations") == 0) {

12153

cmd = _wrap_sacPortInfo_p_key_violations_get;

12154

} else if (strcmp(_str,"-q_key_violations") == 0) {

12155

cmd = _wrap_sacPortInfo_q_key_violations_get;

12156

} else if (strcmp(_str,"-guid_cap") == 0) {

12157

cmd = _wrap_sacPortInfo_guid_cap_get;

12158

} else if (strcmp(_str,"-subnet_timeout") == 0) {

12159

cmd = _wrap_sacPortInfo_subnet_timeout_get;

12160

} else if (strcmp(_str,"-resp_time_value") == 0) {

12161

cmd = _wrap_sacPortInfo_resp_time_value_get;

12162

} else if (strcmp(_str,"-error_threshold") == 0) {

12163

cmd = _wrap_sacPortInfo_error_threshold_get;

12164

}

12165

else if (strcmp(_str,"-this") == 0) {

12166

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacPortInfo_p");

12167

return TCL_OK;

12168

}

12169

if (cmd) {

12170

oldarg = objv[2];

12171

objv[2] = obj;

12172

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

12173

objv[2] = oldarg;

12174

return rcode;

12175

} else {

12176

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

12177

return TCL_ERROR;

12178

}

12179

} else {

12180

Tcl_SetStringObj(tcl_result,"{ -this -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }", -1);

12181

return TCL_ERROR;

12182

}

12183

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

12184

if (objc == 2) {

12185

Tcl_Obj *pDumpObj;

12186

pDumpObj = Tcl_NewStringObj("",-1);

12187

Tcl_IncrRefCount(pDumpObj);

12188

cmd = _wrap_sacPortInfo_m_key_get;

12189

oldarg = objv[2];

12190

objv[2] = obj;

12191

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12192

objv[2] = oldarg;

12193

Tcl_AppendStringsToObj(pDumpObj, "-m_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12194

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12195

cmd = _wrap_sacPortInfo_subnet_prefix_get;

12196

oldarg = objv[2];

12197

objv[2] = obj;

12198

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12199

objv[2] = oldarg;

12200

Tcl_AppendStringsToObj(pDumpObj, "-subnet_prefix ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12201

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12202

cmd = _wrap_sacPortInfo_base_lid_get;

12203

oldarg = objv[2];

12204

objv[2] = obj;

12205

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12206

objv[2] = oldarg;

12207

Tcl_AppendStringsToObj(pDumpObj, "-base_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12208

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12209

cmd = _wrap_sacPortInfo_master_sm_base_lid_get;

12210

oldarg = objv[2];

12211

objv[2] = obj;

12212

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12213

objv[2] = oldarg;

12214

Tcl_AppendStringsToObj(pDumpObj, "-master_sm_base_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12215

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12216

cmd = _wrap_sacPortInfo_capability_mask_get;

12217

oldarg = objv[2];

12218

objv[2] = obj;

12219

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12220

objv[2] = oldarg;

12221

Tcl_AppendStringsToObj(pDumpObj, "-capability_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12222

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12223

cmd = _wrap_sacPortInfo_diag_code_get;

12224

oldarg = objv[2];

12225

objv[2] = obj;

12226

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12227

objv[2] = oldarg;

12228

Tcl_AppendStringsToObj(pDumpObj, "-diag_code ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12229

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12230

cmd = _wrap_sacPortInfo_m_key_lease_period_get;

12231

oldarg = objv[2];

12232

objv[2] = obj;

12233

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12234

objv[2] = oldarg;

12235

Tcl_AppendStringsToObj(pDumpObj, "-m_key_lease_period ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12236

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12237

cmd = _wrap_sacPortInfo_local_port_num_get;

12238

oldarg = objv[2];

12239

objv[2] = obj;

12240

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12241

objv[2] = oldarg;

12242

Tcl_AppendStringsToObj(pDumpObj, "-local_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12243

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12244

cmd = _wrap_sacPortInfo_link_width_enabled_get;

12245

oldarg = objv[2];

12246

objv[2] = obj;

12247

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12248

objv[2] = oldarg;

12249

Tcl_AppendStringsToObj(pDumpObj, "-link_width_enabled ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12250

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12251

cmd = _wrap_sacPortInfo_link_width_supported_get;

12252

oldarg = objv[2];

12253

objv[2] = obj;

12254

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12255

objv[2] = oldarg;

12256

Tcl_AppendStringsToObj(pDumpObj, "-link_width_supported ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12257

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12258

cmd = _wrap_sacPortInfo_link_width_active_get;

12259

oldarg = objv[2];

12260

objv[2] = obj;

12261

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12262

objv[2] = oldarg;

12263

Tcl_AppendStringsToObj(pDumpObj, "-link_width_active ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12264

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12265

cmd = _wrap_sacPortInfo_state_info1_get;

12266

oldarg = objv[2];

12267

objv[2] = obj;

12268

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12269

objv[2] = oldarg;

12270

Tcl_AppendStringsToObj(pDumpObj, "-state_info1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12271

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12272

cmd = _wrap_sacPortInfo_state_info2_get;

12273

oldarg = objv[2];

12274

objv[2] = obj;

12275

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12276

objv[2] = oldarg;

12277

Tcl_AppendStringsToObj(pDumpObj, "-state_info2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12278

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12279

cmd = _wrap_sacPortInfo_mkey_lmc_get;

12280

oldarg = objv[2];

12281

objv[2] = obj;

12282

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12283

objv[2] = oldarg;

12284

Tcl_AppendStringsToObj(pDumpObj, "-mkey_lmc ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12285

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12286

cmd = _wrap_sacPortInfo_link_speed_get;

12287

oldarg = objv[2];

12288

objv[2] = obj;

12289

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12290

objv[2] = oldarg;

12291

Tcl_AppendStringsToObj(pDumpObj, "-link_speed ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12292

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12293

cmd = _wrap_sacPortInfo_mtu_smsl_get;

12294

oldarg = objv[2];

12295

objv[2] = obj;

12296

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12297

objv[2] = oldarg;

12298

Tcl_AppendStringsToObj(pDumpObj, "-mtu_smsl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12299

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12300

cmd = _wrap_sacPortInfo_vl_cap_get;

12301

oldarg = objv[2];

12302

objv[2] = obj;

12303

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12304

objv[2] = oldarg;

12305

Tcl_AppendStringsToObj(pDumpObj, "-vl_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12306

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12307

cmd = _wrap_sacPortInfo_vl_high_limit_get;

12308

oldarg = objv[2];

12309

objv[2] = obj;

12310

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12311

objv[2] = oldarg;

12312

Tcl_AppendStringsToObj(pDumpObj, "-vl_high_limit ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12313

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12314

cmd = _wrap_sacPortInfo_vl_arb_high_cap_get;

12315

oldarg = objv[2];

12316

objv[2] = obj;

12317

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12318

objv[2] = oldarg;

12319

Tcl_AppendStringsToObj(pDumpObj, "-vl_arb_high_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12320

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12321

cmd = _wrap_sacPortInfo_vl_arb_low_cap_get;

12322

oldarg = objv[2];

12323

objv[2] = obj;

12324

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12325

objv[2] = oldarg;

12326

Tcl_AppendStringsToObj(pDumpObj, "-vl_arb_low_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12327

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12328

cmd = _wrap_sacPortInfo_mtu_cap_get;

12329

oldarg = objv[2];

12330

objv[2] = obj;

12331

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12332

objv[2] = oldarg;

12333

Tcl_AppendStringsToObj(pDumpObj, "-mtu_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12334

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12335

cmd = _wrap_sacPortInfo_vl_stall_life_get;

12336

oldarg = objv[2];

12337

objv[2] = obj;

12338

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12339

objv[2] = oldarg;

12340

Tcl_AppendStringsToObj(pDumpObj, "-vl_stall_life ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12341

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12342

cmd = _wrap_sacPortInfo_vl_enforce_get;

12343

oldarg = objv[2];

12344

objv[2] = obj;

12345

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12346

objv[2] = oldarg;

12347

Tcl_AppendStringsToObj(pDumpObj, "-vl_enforce ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12348

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12349

cmd = _wrap_sacPortInfo_m_key_violations_get;

12350

oldarg = objv[2];

12351

objv[2] = obj;

12352

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12353

objv[2] = oldarg;

12354

Tcl_AppendStringsToObj(pDumpObj, "-m_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12355

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12356

cmd = _wrap_sacPortInfo_p_key_violations_get;

12357

oldarg = objv[2];

12358

objv[2] = obj;

12359

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12360

objv[2] = oldarg;

12361

Tcl_AppendStringsToObj(pDumpObj, "-p_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12362

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12363

cmd = _wrap_sacPortInfo_q_key_violations_get;

12364

oldarg = objv[2];

12365

objv[2] = obj;

12366

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12367

objv[2] = oldarg;

12368

Tcl_AppendStringsToObj(pDumpObj, "-q_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12369

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12370

cmd = _wrap_sacPortInfo_guid_cap_get;

12371

oldarg = objv[2];

12372

objv[2] = obj;

12373

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12374

objv[2] = oldarg;

12375

Tcl_AppendStringsToObj(pDumpObj, "-guid_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12376

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12377

cmd = _wrap_sacPortInfo_subnet_timeout_get;

12378

oldarg = objv[2];

12379

objv[2] = obj;

12380

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12381

objv[2] = oldarg;

12382

Tcl_AppendStringsToObj(pDumpObj, "-subnet_timeout ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12383

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12384

cmd = _wrap_sacPortInfo_resp_time_value_get;

12385

oldarg = objv[2];

12386

objv[2] = obj;

12387

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12388

objv[2] = oldarg;

12389

Tcl_AppendStringsToObj(pDumpObj, "-resp_time_value ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12390

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12391

cmd = _wrap_sacPortInfo_error_threshold_get;

12392

oldarg = objv[2];

12393

objv[2] = obj;

12394

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

12395

objv[2] = oldarg;

12396

Tcl_AppendStringsToObj(pDumpObj, "-error_threshold ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

12397

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

12398

12399

Tcl_DecrRefCount(pDumpObj);

12400

return TCL_OK;

12401

} else {

12402

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

12403

return TCL_ERROR;

12404

}

12405

}

12406

if (!cmd) {

12407

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure delete }",-1);

12408

return TCL_ERROR;

12409

}

12410

oldarg = objv[1];

12411

objv[1] = obj;

12412

rcode = (*cmd)(clientData,interp,objc,objv);

12413

objv[1] = oldarg;

12414

return rcode;

12415

}

12416

12417

12418

12419

/* objcmd8.swg : Tcl 8.x object creation */

12420

12421

static int TclsacPortInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12422

void (*del)(ClientData) = 0;

12423

char *name = 0;

12424

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

12425

sacPortInfo * newObj = 0;

12426

int firstarg = 0;

12427

int thisarg = 0;

12428

int length;

12429

char *_str;

12430

Tcl_Obj *tcl_result;

12431

12432

tcl_result = Tcl_GetObjResult(interp);

12433

if (objc == 1) {

12434

cmd = 0;

12435

} else {

12436

_str = Tcl_GetStringFromObj(objv[1],&length);

12437

if (strcmp(_str,"-this") == 0) thisarg = 2;

12438

else if (strcmp(_str,"-args") == 0) {

12439

firstarg = 1;

12440

cmd = 0;

12441

} else if (objc == 2) {

12442

firstarg = 1;

12443

name = _str;

12444

cmd = 0;

12445

} else if (objc >= 3) {

12446

name = _str;

12447

_str = Tcl_GetStringFromObj(objv[2],&length);

12448

if (strcmp(_str,"-this") == 0) thisarg = 3;

12449

else {

12450

firstarg = 1;

12451

cmd = 0;

12452

}

12453

}

12454

}

12455

if (cmd) {

12456

int result;

12457

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

12458

if (result == TCL_OK) {

12459

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacPortInfo_p");

12460

} else { return result; }

12461

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

12462

del = 0;

12463

} else if (thisarg > 0) {

12464

if (thisarg < objc) {

12465

char *r;

12466

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacPortInfo_p");

12467

if (r) {

12468

Tcl_SetStringObj(tcl_result,"Type error. not a sacPortInfo object.",-1);

12469

return TCL_ERROR;

12470

}

12471

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

12472

Tcl_SetStringObj(tcl_result,name,-1);

12473

} else {

12474

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

12475

return TCL_ERROR;

12476

}

12477

} else {

12478

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

12479

return TCL_ERROR;

12480

}

12481

{

12482

Tcl_CmdInfo dummy;

12483

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

12484

Tcl_CreateObjCommand(interp,name, TclsacPortInfoMethodCmd, (ClientData) newObj, del);

12485

return TCL_OK;

12486

} else {

12487

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

12488

return TCL_ERROR;

12489

}

12490

}

12491

}

12492

12493

12494

#define _ib_portinfo_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

12495

static int _wrap_sacPortRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12496

12497

ib_net16_t * _result;

12498

sacPortRec * _arg0;

12499

ib_net16_t * _arg1;

12500

Tcl_Obj * tcl_result;

12501

char * rettype;

12502

ib_net16_t temp;

12503

12504

clientData = clientData; objv = objv;

12505

tcl_result = Tcl_GetObjResult(interp);

12506

if ((objc < 3) || (objc > 3)) {

12507

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_lid_set { sacPortRec * } { ib_net16_t * } ",-1);

12508

return TCL_ERROR;

12509

}

12510

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12511

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_lid_set. Expected _sacPortRec_p, received ", -1);

12512

Tcl_AppendToObj(tcl_result, rettype, -1);

12513

return TCL_ERROR;

12514

}

12515

{

12516

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

12517

_arg1 = &temp;

12518

}

12519

{

12520

/* we can check if IBIS was initialized here */

12521

if (!IbisObj.initialized)

12522

{

12523

Tcl_SetStringObj(

12524

Tcl_GetObjResult(interp),

12525

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12526

return TCL_ERROR;

12527

}

12528

12529

if (! IbisObj.port_guid)

12530

{

12531

Tcl_SetStringObj(

12532

Tcl_GetObjResult(interp),

12533

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12534

return TCL_ERROR;

12535

}

12536

12537

ibis_tcl_error = 0;

12538

_result = (ib_net16_t *)_ib_portinfo_record_lid_set(_arg0,_arg1);

12539

;

12540

if (ibis_tcl_error) {

12541

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12542

return TCL_ERROR;

12543

}

12544

} tcl_result = Tcl_GetObjResult(interp);

12545

{

12546

char buff[20];

12547

sprintf(buff, "%u", cl_hton16(*_result));

12548

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

12549

}

12550

return TCL_OK;

12551

}

12552

#define _ib_portinfo_record_lid_get(_swigobj) (&_swigobj->lid)

12553

static int _wrap_sacPortRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12554

12555

ib_net16_t * _result;

12556

sacPortRec * _arg0;

12557

Tcl_Obj * tcl_result;

12558

char * rettype;

12559

12560

clientData = clientData; objv = objv;

12561

tcl_result = Tcl_GetObjResult(interp);

12562

if ((objc < 2) || (objc > 2)) {

12563

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_lid_get { sacPortRec * } ",-1);

12564

return TCL_ERROR;

12565

}

12566

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12567

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_lid_get. Expected _sacPortRec_p, received ", -1);

12568

Tcl_AppendToObj(tcl_result, rettype, -1);

12569

return TCL_ERROR;

12570

}

12571

{

12572

/* we can check if IBIS was initialized here */

12573

if (!IbisObj.initialized)

12574

{

12575

Tcl_SetStringObj(

12576

Tcl_GetObjResult(interp),

12577

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12578

return TCL_ERROR;

12579

}

12580

12581

if (! IbisObj.port_guid)

12582

{

12583

Tcl_SetStringObj(

12584

Tcl_GetObjResult(interp),

12585

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12586

return TCL_ERROR;

12587

}

12588

12589

ibis_tcl_error = 0;

12590

_result = (ib_net16_t *)_ib_portinfo_record_lid_get(_arg0);

12591

;

12592

if (ibis_tcl_error) {

12593

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12594

return TCL_ERROR;

12595

}

12596

} tcl_result = Tcl_GetObjResult(interp);

12597

{

12598

char buff[20];

12599

sprintf(buff, "%u", cl_hton16(*_result));

12600

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

12601

}

12602

return TCL_OK;

12603

}

12604

#define _ib_portinfo_record_port_num_set(_swigobj,_swigval) (_swigobj->port_num = *(_swigval),_swigval)

12605

static int _wrap_sacPortRec_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12606

12607

uint8_t * _result;

12608

sacPortRec * _arg0;

12609

uint8_t * _arg1;

12610

Tcl_Obj * tcl_result;

12611

char * rettype;

12612

uint8_t temp;

12613

12614

clientData = clientData; objv = objv;

12615

tcl_result = Tcl_GetObjResult(interp);

12616

if ((objc < 3) || (objc > 3)) {

12617

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_port_num_set { sacPortRec * } { uint8_t * } ",-1);

12618

return TCL_ERROR;

12619

}

12620

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12621

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_port_num_set. Expected _sacPortRec_p, received ", -1);

12622

Tcl_AppendToObj(tcl_result, rettype, -1);

12623

return TCL_ERROR;

12624

}

12625

{

12626

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

12627

_arg1 = &temp;

12628

}

12629

{

12630

/* we can check if IBIS was initialized here */

12631

if (!IbisObj.initialized)

12632

{

12633

Tcl_SetStringObj(

12634

Tcl_GetObjResult(interp),

12635

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12636

return TCL_ERROR;

12637

}

12638

12639

if (! IbisObj.port_guid)

12640

{

12641

Tcl_SetStringObj(

12642

Tcl_GetObjResult(interp),

12643

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12644

return TCL_ERROR;

12645

}

12646

12647

ibis_tcl_error = 0;

12648

_result = (uint8_t *)_ib_portinfo_record_port_num_set(_arg0,_arg1);

12649

;

12650

if (ibis_tcl_error) {

12651

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12652

return TCL_ERROR;

12653

}

12654

} tcl_result = Tcl_GetObjResult(interp);

12655

{

12656

char buff[20];

12657

sprintf(buff, "%u", *_result);

12658

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

12659

}

12660

return TCL_OK;

12661

}

12662

#define _ib_portinfo_record_port_num_get(_swigobj) (&_swigobj->port_num)

12663

static int _wrap_sacPortRec_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12664

12665

uint8_t * _result;

12666

sacPortRec * _arg0;

12667

Tcl_Obj * tcl_result;

12668

char * rettype;

12669

12670

clientData = clientData; objv = objv;

12671

tcl_result = Tcl_GetObjResult(interp);

12672

if ((objc < 2) || (objc > 2)) {

12673

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_port_num_get { sacPortRec * } ",-1);

12674

return TCL_ERROR;

12675

}

12676

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12677

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_port_num_get. Expected _sacPortRec_p, received ", -1);

12678

Tcl_AppendToObj(tcl_result, rettype, -1);

12679

return TCL_ERROR;

12680

}

12681

{

12682

/* we can check if IBIS was initialized here */

12683

if (!IbisObj.initialized)

12684

{

12685

Tcl_SetStringObj(

12686

Tcl_GetObjResult(interp),

12687

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12688

return TCL_ERROR;

12689

}

12690

12691

if (! IbisObj.port_guid)

12692

{

12693

Tcl_SetStringObj(

12694

Tcl_GetObjResult(interp),

12695

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12696

return TCL_ERROR;

12697

}

12698

12699

ibis_tcl_error = 0;

12700

_result = (uint8_t *)_ib_portinfo_record_port_num_get(_arg0);

12701

;

12702

if (ibis_tcl_error) {

12703

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12704

return TCL_ERROR;

12705

}

12706

} tcl_result = Tcl_GetObjResult(interp);

12707

{

12708

char buff[20];

12709

sprintf(buff, "%u", *_result);

12710

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

12711

}

12712

return TCL_OK;

12713

}

12714

#define _ib_portinfo_record_port_info_set(_swigobj,_swigval) (_swigobj->port_info = *(_swigval),_swigval)

12715

static int _wrap_sacPortRec_port_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12716

12717

sacPortInfo * _result;

12718

sacPortRec * _arg0;

12719

sacPortInfo * _arg1;

12720

Tcl_Obj * tcl_result;

12721

char * rettype;

12722

12723

clientData = clientData; objv = objv;

12724

tcl_result = Tcl_GetObjResult(interp);

12725

if ((objc < 3) || (objc > 3)) {

12726

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_port_info_set { sacPortRec * } { sacPortInfo * } ",-1);

12727

return TCL_ERROR;

12728

}

12729

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12730

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_port_info_set. Expected _sacPortRec_p, received ", -1);

12731

Tcl_AppendToObj(tcl_result, rettype, -1);

12732

return TCL_ERROR;

12733

}

12734

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacPortInfo_p"))) {

12735

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacPortRec_port_info_set. Expected _sacPortInfo_p, received ", -1);

12736

Tcl_AppendToObj(tcl_result, rettype, -1);

12737

return TCL_ERROR;

12738

}

12739

{

12740

/* we can check if IBIS was initialized here */

12741

if (!IbisObj.initialized)

12742

{

12743

Tcl_SetStringObj(

12744

Tcl_GetObjResult(interp),

12745

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12746

return TCL_ERROR;

12747

}

12748

12749

if (! IbisObj.port_guid)

12750

{

12751

Tcl_SetStringObj(

12752

Tcl_GetObjResult(interp),

12753

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12754

return TCL_ERROR;

12755

}

12756

12757

ibis_tcl_error = 0;

12758

_result = (sacPortInfo *)_ib_portinfo_record_port_info_set(_arg0,_arg1);

12759

;

12760

if (ibis_tcl_error) {

12761

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12762

return TCL_ERROR;

12763

}

12764

} tcl_result = Tcl_GetObjResult(interp);

12765

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacPortInfo_p");

12766

return TCL_OK;

12767

}

12768

#define _ib_portinfo_record_port_info_get(_swigobj) (&_swigobj->port_info)

12769

static int _wrap_sacPortRec_port_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12770

12771

sacPortInfo * _result;

12772

sacPortRec * _arg0;

12773

Tcl_Obj * tcl_result;

12774

char * rettype;

12775

12776

clientData = clientData; objv = objv;

12777

tcl_result = Tcl_GetObjResult(interp);

12778

if ((objc < 2) || (objc > 2)) {

12779

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_port_info_get { sacPortRec * } ",-1);

12780

return TCL_ERROR;

12781

}

12782

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12783

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_port_info_get. Expected _sacPortRec_p, received ", -1);

12784

Tcl_AppendToObj(tcl_result, rettype, -1);

12785

return TCL_ERROR;

12786

}

12787

{

12788

/* we can check if IBIS was initialized here */

12789

if (!IbisObj.initialized)

12790

{

12791

Tcl_SetStringObj(

12792

Tcl_GetObjResult(interp),

12793

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12794

return TCL_ERROR;

12795

}

12796

12797

if (! IbisObj.port_guid)

12798

{

12799

Tcl_SetStringObj(

12800

Tcl_GetObjResult(interp),

12801

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12802

return TCL_ERROR;

12803

}

12804

12805

ibis_tcl_error = 0;

12806

_result = (sacPortInfo *)_ib_portinfo_record_port_info_get(_arg0);

12807

;

12808

if (ibis_tcl_error) {

12809

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12810

return TCL_ERROR;

12811

}

12812

} tcl_result = Tcl_GetObjResult(interp);

12813

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacPortInfo_p");

12814

return TCL_OK;

12815

}

12816

static char * sacPortRec_get(sacPortRec *self,uint64_t comp_mask) {

12817

return(ibsacPortInfoRecordQuery(self, cl_hton64(comp_mask),

12818

IB_MAD_METHOD_GET));

12819

}

12820

static int _wrap_sacPortRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12821

12822

char * _result;

12823

sacPortRec * _arg0;

12824

uint64_t * _arg1;

12825

Tcl_Obj * tcl_result;

12826

char * rettype;

12827

uint64_t temp;

12828

12829

clientData = clientData; objv = objv;

12830

tcl_result = Tcl_GetObjResult(interp);

12831

if ((objc < 3) || (objc > 3)) {

12832

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_get { sacPortRec * } comp_mask ",-1);

12833

return TCL_ERROR;

12834

}

12835

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12836

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_get. Expected _sacPortRec_p, received ", -1);

12837

Tcl_AppendToObj(tcl_result, rettype, -1);

12838

return TCL_ERROR;

12839

}

12840

{

12841

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

12842

_arg1 = &temp;

12843

}

12844

{

12845

/* we can check if IBIS was initialized here */

12846

if (!IbisObj.initialized)

12847

{

12848

Tcl_SetStringObj(

12849

Tcl_GetObjResult(interp),

12850

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12851

return TCL_ERROR;

12852

}

12853

12854

if (! IbisObj.port_guid)

12855

{

12856

Tcl_SetStringObj(

12857

Tcl_GetObjResult(interp),

12858

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12859

return TCL_ERROR;

12860

}

12861

12862

ibis_tcl_error = 0;

12863

_result = (char *)sacPortRec_get(_arg0,*_arg1);

12864

;

12865

if (ibis_tcl_error) {

12866

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12867

return TCL_ERROR;

12868

}

12869

} tcl_result = Tcl_GetObjResult(interp);

12870

Tcl_SetStringObj(tcl_result,_result,-1);

12871

free(_result);

12872

12873

return TCL_OK;

12874

}

12875

static char * sacPortRec_getTable(sacPortRec *self,uint64_t comp_mask) {

12876

return(ibsacPortInfoRecordQuery(self, cl_hton64(comp_mask),

12877

IB_MAD_METHOD_GETTABLE));

12878

}

12879

static int _wrap_sacPortRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12880

12881

char * _result;

12882

sacPortRec * _arg0;

12883

uint64_t * _arg1;

12884

Tcl_Obj * tcl_result;

12885

char * rettype;

12886

uint64_t temp;

12887

12888

clientData = clientData; objv = objv;

12889

tcl_result = Tcl_GetObjResult(interp);

12890

if ((objc < 3) || (objc > 3)) {

12891

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_getTable { sacPortRec * } comp_mask ",-1);

12892

return TCL_ERROR;

12893

}

12894

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12895

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_getTable. Expected _sacPortRec_p, received ", -1);

12896

Tcl_AppendToObj(tcl_result, rettype, -1);

12897

return TCL_ERROR;

12898

}

12899

{

12900

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

12901

_arg1 = &temp;

12902

}

12903

{

12904

/* we can check if IBIS was initialized here */

12905

if (!IbisObj.initialized)

12906

{

12907

Tcl_SetStringObj(

12908

Tcl_GetObjResult(interp),

12909

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12910

return TCL_ERROR;

12911

}

12912

12913

if (! IbisObj.port_guid)

12914

{

12915

Tcl_SetStringObj(

12916

Tcl_GetObjResult(interp),

12917

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12918

return TCL_ERROR;

12919

}

12920

12921

ibis_tcl_error = 0;

12922

_result = (char *)sacPortRec_getTable(_arg0,*_arg1);

12923

;

12924

if (ibis_tcl_error) {

12925

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12926

return TCL_ERROR;

12927

}

12928

} tcl_result = Tcl_GetObjResult(interp);

12929

Tcl_SetStringObj(tcl_result,_result,-1);

12930

free(_result);

12931

12932

return TCL_OK;

12933

}

12934

static void sacPortRec_delete(sacPortRec *self) {

12935

/* we need to de-register both the node info and node record */

12936

SWIG_AltMnglUnregObj(&(self->port_info));

12937

SWIG_AltMnglUnregObj(self);

12938

free(self);

12939

}

12940

static int _wrap_sacPortRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

12941

12942

sacPortRec * _arg0;

12943

Tcl_Obj * tcl_result;

12944

char * rettype;

12945

12946

clientData = clientData; objv = objv;

12947

tcl_result = Tcl_GetObjResult(interp);

12948

if ((objc < 2) || (objc > 2)) {

12949

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPortRec_delete { sacPortRec * } ",-1);

12950

return TCL_ERROR;

12951

}

12952

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPortRec_p"))) {

12953

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPortRec_delete. Expected _sacPortRec_p, received ", -1);

12954

Tcl_AppendToObj(tcl_result, rettype, -1);

12955

return TCL_ERROR;

12956

}

12957

{

12958

/* we can check if IBIS was initialized here */

12959

if (!IbisObj.initialized)

12960

{

12961

Tcl_SetStringObj(

12962

Tcl_GetObjResult(interp),

12963

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

12964

return TCL_ERROR;

12965

}

12966

12967

if (! IbisObj.port_guid)

12968

{

12969

Tcl_SetStringObj(

12970

Tcl_GetObjResult(interp),

12971

" ibis was not yet initialized. please use ibis_set_port before.", -1);

12972

return TCL_ERROR;

12973

}

12974

12975

ibis_tcl_error = 0;

12976

sacPortRec_delete(_arg0);

12977

;

12978

if (ibis_tcl_error) {

12979

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

12980

return TCL_ERROR;

12981

}

12982

} tcl_result = Tcl_GetObjResult(interp);

12983

return TCL_OK;

12984

}

12985

/* methodcmd8.swg : Tcl8.x method invocation */

12986

12987

static int TclsacPortRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

12988

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

12989

char *_str;

12990

int rcode;

12991

Tcl_Obj **objv;

12992

Tcl_Obj *oldarg,*tcl_result,*obj;

12993

int length;

12994

char c;

12995

12996

tcl_result = Tcl_GetObjResult(interp);

12997

objv = (Tcl_Obj **) _objv;

12998

if (objc < 2) {

12999

Tcl_SetStringObj(tcl_result,"sacPortRec methods : { dump cget configure get getTable delete }",-1);

13000

return TCL_ERROR;

13001

}

13002

obj = Tcl_NewObj();

13003

SWIG_SetPointerObj(obj,(void *) clientData,"_sacPortRec_p");

13004

_str = Tcl_GetStringFromObj(objv[1],&length);

13005

c = *_str;

13006

if (0);

13007

if (strcmp(_str,"get") == 0) {

13008

cmd = _wrap_sacPortRec_get;

13009

} else if (strcmp(_str,"getTable") == 0) {

13010

cmd = _wrap_sacPortRec_getTable;

13011

} else if (strcmp(_str,"delete") == 0) {

13012

cmd = _wrap_sacPortRec_delete;

13013

}

13014

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

13015

int i = 2;

13016

cmd = 0;

13017

while (i+1 < objc) {

13018

_str = Tcl_GetStringFromObj(objv[i],&length);

13019

if (strcmp(_str,"-lid") == 0) {

13020

cmd = _wrap_sacPortRec_lid_set;

13021

} else if (strcmp(_str,"-port_num") == 0) {

13022

cmd = _wrap_sacPortRec_port_num_set;

13023

} else if (strcmp(_str,"-port_info") == 0) {

13024

cmd = _wrap_sacPortRec_port_info_set;

13025

}

13026

if (cmd) {

13027

oldarg = objv[i];

13028

objv[i] = obj;

13029

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

13030

objv[i] = oldarg;

13031

if (rcode == TCL_ERROR) return rcode;

13032

cmd = 0;

13033

} else {

13034

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -port_num -port_info }",-1);

13035

return TCL_ERROR;

13036

}

13037

i+=2;

13038

}

13039

if ((i < objc) || (i == 2)) {

13040

Tcl_SetStringObj(tcl_result,"{ -lid -port_num -port_info }",-1);

13041

return TCL_ERROR;

13042

}

13043

return TCL_OK;

13044

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

13045

if (objc == 3) {

13046

_str = Tcl_GetStringFromObj(objv[2],&length);

13047

if (0) {}

13048

if (strcmp(_str,"-lid") == 0) {

13049

cmd = _wrap_sacPortRec_lid_get;

13050

} else if (strcmp(_str,"-port_num") == 0) {

13051

cmd = _wrap_sacPortRec_port_num_get;

13052

} else if (strcmp(_str,"-port_info") == 0) {

13053

cmd = _wrap_sacPortRec_port_info_get;

13054

}

13055

else if (strcmp(_str,"-this") == 0) {

13056

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacPortRec_p");

13057

return TCL_OK;

13058

}

13059

if (cmd) {

13060

oldarg = objv[2];

13061

objv[2] = obj;

13062

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

13063

objv[2] = oldarg;

13064

return rcode;

13065

} else {

13066

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -port_num -port_info }",-1);

13067

return TCL_ERROR;

13068

}

13069

} else {

13070

Tcl_SetStringObj(tcl_result,"{ -this -lid -port_num -port_info }", -1);

13071

return TCL_ERROR;

13072

}

13073

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

13074

if (objc == 2) {

13075

Tcl_Obj *pDumpObj;

13076

pDumpObj = Tcl_NewStringObj("",-1);

13077

Tcl_IncrRefCount(pDumpObj);

13078

cmd = _wrap_sacPortRec_lid_get;

13079

oldarg = objv[2];

13080

objv[2] = obj;

13081

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13082

objv[2] = oldarg;

13083

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13084

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13085

cmd = _wrap_sacPortRec_port_num_get;

13086

oldarg = objv[2];

13087

objv[2] = obj;

13088

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13089

objv[2] = oldarg;

13090

Tcl_AppendStringsToObj(pDumpObj, "-port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13091

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13092

cmd = _wrap_sacPortRec_port_info_get;

13093

oldarg = objv[2];

13094

objv[2] = obj;

13095

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13096

objv[2] = oldarg;

13097

Tcl_AppendStringsToObj(pDumpObj, "-port_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13098

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13099

13100

Tcl_DecrRefCount(pDumpObj);

13101

return TCL_OK;

13102

} else {

13103

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

13104

return TCL_ERROR;

13105

}

13106

}

13107

if (!cmd) {

13108

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

13109

return TCL_ERROR;

13110

}

13111

oldarg = objv[1];

13112

objv[1] = obj;

13113

rcode = (*cmd)(clientData,interp,objc,objv);

13114

objv[1] = oldarg;

13115

return rcode;

13116

}

13117

13118

13119

13120

/* objcmd8.swg : Tcl 8.x object creation */

13121

13122

static int TclsacPortRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13123

void (*del)(ClientData) = 0;

13124

char *name = 0;

13125

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

13126

sacPortRec * newObj = 0;

13127

int firstarg = 0;

13128

int thisarg = 0;

13129

int length;

13130

char *_str;

13131

Tcl_Obj *tcl_result;

13132

13133

tcl_result = Tcl_GetObjResult(interp);

13134

if (objc == 1) {

13135

cmd = 0;

13136

} else {

13137

_str = Tcl_GetStringFromObj(objv[1],&length);

13138

if (strcmp(_str,"-this") == 0) thisarg = 2;

13139

else if (strcmp(_str,"-args") == 0) {

13140

firstarg = 1;

13141

cmd = 0;

13142

} else if (objc == 2) {

13143

firstarg = 1;

13144

name = _str;

13145

cmd = 0;

13146

} else if (objc >= 3) {

13147

name = _str;

13148

_str = Tcl_GetStringFromObj(objv[2],&length);

13149

if (strcmp(_str,"-this") == 0) thisarg = 3;

13150

else {

13151

firstarg = 1;

13152

cmd = 0;

13153

}

13154

}

13155

}

13156

if (cmd) {

13157

int result;

13158

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

13159

if (result == TCL_OK) {

13160

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacPortRec_p");

13161

} else { return result; }

13162

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

13163

del = 0;

13164

} else if (thisarg > 0) {

13165

if (thisarg < objc) {

13166

char *r;

13167

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacPortRec_p");

13168

if (r) {

13169

Tcl_SetStringObj(tcl_result,"Type error. not a sacPortRec object.",-1);

13170

return TCL_ERROR;

13171

}

13172

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

13173

Tcl_SetStringObj(tcl_result,name,-1);

13174

} else {

13175

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

13176

return TCL_ERROR;

13177

}

13178

} else {

13179

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

13180

return TCL_ERROR;

13181

}

13182

{

13183

Tcl_CmdInfo dummy;

13184

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

13185

Tcl_CreateObjCommand(interp,name, TclsacPortRecMethodCmd, (ClientData) newObj, del);

13186

return TCL_OK;

13187

} else {

13188

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

13189

return TCL_ERROR;

13190

}

13191

}

13192

}

13193

13194

13195

#define _ib_sm_info_guid_set(_swigobj,_swigval) (_swigobj->guid = *(_swigval),_swigval)

13196

static int _wrap_sacSmInfo_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13197

13198

ib_net64_t * _result;

13199

sacSmInfo * _arg0;

13200

ib_net64_t * _arg1;

13201

Tcl_Obj * tcl_result;

13202

char * rettype;

13203

uint64_t temp;

13204

13205

clientData = clientData; objv = objv;

13206

tcl_result = Tcl_GetObjResult(interp);

13207

if ((objc < 3) || (objc > 3)) {

13208

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_guid_set { sacSmInfo * } { ib_net64_t * } ",-1);

13209

return TCL_ERROR;

13210

}

13211

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13212

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_guid_set. Expected _sacSmInfo_p, received ", -1);

13213

Tcl_AppendToObj(tcl_result, rettype, -1);

13214

return TCL_ERROR;

13215

}

13216

{

13217

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

13218

_arg1 = &temp;

13219

}

13220

{

13221

/* we can check if IBIS was initialized here */

13222

if (!IbisObj.initialized)

13223

{

13224

Tcl_SetStringObj(

13225

Tcl_GetObjResult(interp),

13226

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13227

return TCL_ERROR;

13228

}

13229

13230

if (! IbisObj.port_guid)

13231

{

13232

Tcl_SetStringObj(

13233

Tcl_GetObjResult(interp),

13234

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13235

return TCL_ERROR;

13236

}

13237

13238

ibis_tcl_error = 0;

13239

_result = (ib_net64_t *)_ib_sm_info_guid_set(_arg0,_arg1);

13240

;

13241

if (ibis_tcl_error) {

13242

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13243

return TCL_ERROR;

13244

}

13245

} tcl_result = Tcl_GetObjResult(interp);

13246

{

13247

char buff[20];

13248

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

13249

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13250

}

13251

return TCL_OK;

13252

}

13253

#define _ib_sm_info_guid_get(_swigobj) (&_swigobj->guid)

13254

static int _wrap_sacSmInfo_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13255

13256

ib_net64_t * _result;

13257

sacSmInfo * _arg0;

13258

Tcl_Obj * tcl_result;

13259

char * rettype;

13260

13261

clientData = clientData; objv = objv;

13262

tcl_result = Tcl_GetObjResult(interp);

13263

if ((objc < 2) || (objc > 2)) {

13264

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_guid_get { sacSmInfo * } ",-1);

13265

return TCL_ERROR;

13266

}

13267

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13268

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_guid_get. Expected _sacSmInfo_p, received ", -1);

13269

Tcl_AppendToObj(tcl_result, rettype, -1);

13270

return TCL_ERROR;

13271

}

13272

{

13273

/* we can check if IBIS was initialized here */

13274

if (!IbisObj.initialized)

13275

{

13276

Tcl_SetStringObj(

13277

Tcl_GetObjResult(interp),

13278

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13279

return TCL_ERROR;

13280

}

13281

13282

if (! IbisObj.port_guid)

13283

{

13284

Tcl_SetStringObj(

13285

Tcl_GetObjResult(interp),

13286

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13287

return TCL_ERROR;

13288

}

13289

13290

ibis_tcl_error = 0;

13291

_result = (ib_net64_t *)_ib_sm_info_guid_get(_arg0);

13292

;

13293

if (ibis_tcl_error) {

13294

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13295

return TCL_ERROR;

13296

}

13297

} tcl_result = Tcl_GetObjResult(interp);

13298

{

13299

char buff[20];

13300

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

13301

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13302

}

13303

return TCL_OK;

13304

}

13305

#define _ib_sm_info_sm_key_set(_swigobj,_swigval) (_swigobj->sm_key = *(_swigval),_swigval)

13306

static int _wrap_sacSmInfo_sm_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13307

13308

ib_net64_t * _result;

13309

sacSmInfo * _arg0;

13310

ib_net64_t * _arg1;

13311

Tcl_Obj * tcl_result;

13312

char * rettype;

13313

uint64_t temp;

13314

13315

clientData = clientData; objv = objv;

13316

tcl_result = Tcl_GetObjResult(interp);

13317

if ((objc < 3) || (objc > 3)) {

13318

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_sm_key_set { sacSmInfo * } { ib_net64_t * } ",-1);

13319

return TCL_ERROR;

13320

}

13321

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13322

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_sm_key_set. Expected _sacSmInfo_p, received ", -1);

13323

Tcl_AppendToObj(tcl_result, rettype, -1);

13324

return TCL_ERROR;

13325

}

13326

{

13327

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

13328

_arg1 = &temp;

13329

}

13330

{

13331

/* we can check if IBIS was initialized here */

13332

if (!IbisObj.initialized)

13333

{

13334

Tcl_SetStringObj(

13335

Tcl_GetObjResult(interp),

13336

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13337

return TCL_ERROR;

13338

}

13339

13340

if (! IbisObj.port_guid)

13341

{

13342

Tcl_SetStringObj(

13343

Tcl_GetObjResult(interp),

13344

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13345

return TCL_ERROR;

13346

}

13347

13348

ibis_tcl_error = 0;

13349

_result = (ib_net64_t *)_ib_sm_info_sm_key_set(_arg0,_arg1);

13350

;

13351

if (ibis_tcl_error) {

13352

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13353

return TCL_ERROR;

13354

}

13355

} tcl_result = Tcl_GetObjResult(interp);

13356

{

13357

char buff[20];

13358

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

13359

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13360

}

13361

return TCL_OK;

13362

}

13363

#define _ib_sm_info_sm_key_get(_swigobj) (&_swigobj->sm_key)

13364

static int _wrap_sacSmInfo_sm_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13365

13366

ib_net64_t * _result;

13367

sacSmInfo * _arg0;

13368

Tcl_Obj * tcl_result;

13369

char * rettype;

13370

13371

clientData = clientData; objv = objv;

13372

tcl_result = Tcl_GetObjResult(interp);

13373

if ((objc < 2) || (objc > 2)) {

13374

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_sm_key_get { sacSmInfo * } ",-1);

13375

return TCL_ERROR;

13376

}

13377

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13378

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_sm_key_get. Expected _sacSmInfo_p, received ", -1);

13379

Tcl_AppendToObj(tcl_result, rettype, -1);

13380

return TCL_ERROR;

13381

}

13382

{

13383

/* we can check if IBIS was initialized here */

13384

if (!IbisObj.initialized)

13385

{

13386

Tcl_SetStringObj(

13387

Tcl_GetObjResult(interp),

13388

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13389

return TCL_ERROR;

13390

}

13391

13392

if (! IbisObj.port_guid)

13393

{

13394

Tcl_SetStringObj(

13395

Tcl_GetObjResult(interp),

13396

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13397

return TCL_ERROR;

13398

}

13399

13400

ibis_tcl_error = 0;

13401

_result = (ib_net64_t *)_ib_sm_info_sm_key_get(_arg0);

13402

;

13403

if (ibis_tcl_error) {

13404

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13405

return TCL_ERROR;

13406

}

13407

} tcl_result = Tcl_GetObjResult(interp);

13408

{

13409

char buff[20];

13410

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

13411

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13412

}

13413

return TCL_OK;

13414

}

13415

#define _ib_sm_info_act_count_set(_swigobj,_swigval) (_swigobj->act_count = *(_swigval),_swigval)

13416

static int _wrap_sacSmInfo_act_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13417

13418

ib_net32_t * _result;

13419

sacSmInfo * _arg0;

13420

ib_net32_t * _arg1;

13421

Tcl_Obj * tcl_result;

13422

char * rettype;

13423

ib_net32_t temp;

13424

13425

clientData = clientData; objv = objv;

13426

tcl_result = Tcl_GetObjResult(interp);

13427

if ((objc < 3) || (objc > 3)) {

13428

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_act_count_set { sacSmInfo * } { ib_net32_t * } ",-1);

13429

return TCL_ERROR;

13430

}

13431

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13432

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_act_count_set. Expected _sacSmInfo_p, received ", -1);

13433

Tcl_AppendToObj(tcl_result, rettype, -1);

13434

return TCL_ERROR;

13435

}

13436

{

13437

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

13438

_arg1 = &temp;

13439

}

13440

{

13441

/* we can check if IBIS was initialized here */

13442

if (!IbisObj.initialized)

13443

{

13444

Tcl_SetStringObj(

13445

Tcl_GetObjResult(interp),

13446

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13447

return TCL_ERROR;

13448

}

13449

13450

if (! IbisObj.port_guid)

13451

{

13452

Tcl_SetStringObj(

13453

Tcl_GetObjResult(interp),

13454

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13455

return TCL_ERROR;

13456

}

13457

13458

ibis_tcl_error = 0;

13459

_result = (ib_net32_t *)_ib_sm_info_act_count_set(_arg0,_arg1);

13460

;

13461

if (ibis_tcl_error) {

13462

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13463

return TCL_ERROR;

13464

}

13465

} tcl_result = Tcl_GetObjResult(interp);

13466

{

13467

char buff[20];

13468

sprintf(buff, "%u", cl_ntoh32(*_result));

13469

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13470

}

13471

return TCL_OK;

13472

}

13473

#define _ib_sm_info_act_count_get(_swigobj) (&_swigobj->act_count)

13474

static int _wrap_sacSmInfo_act_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13475

13476

ib_net32_t * _result;

13477

sacSmInfo * _arg0;

13478

Tcl_Obj * tcl_result;

13479

char * rettype;

13480

13481

clientData = clientData; objv = objv;

13482

tcl_result = Tcl_GetObjResult(interp);

13483

if ((objc < 2) || (objc > 2)) {

13484

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_act_count_get { sacSmInfo * } ",-1);

13485

return TCL_ERROR;

13486

}

13487

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13488

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_act_count_get. Expected _sacSmInfo_p, received ", -1);

13489

Tcl_AppendToObj(tcl_result, rettype, -1);

13490

return TCL_ERROR;

13491

}

13492

{

13493

/* we can check if IBIS was initialized here */

13494

if (!IbisObj.initialized)

13495

{

13496

Tcl_SetStringObj(

13497

Tcl_GetObjResult(interp),

13498

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13499

return TCL_ERROR;

13500

}

13501

13502

if (! IbisObj.port_guid)

13503

{

13504

Tcl_SetStringObj(

13505

Tcl_GetObjResult(interp),

13506

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13507

return TCL_ERROR;

13508

}

13509

13510

ibis_tcl_error = 0;

13511

_result = (ib_net32_t *)_ib_sm_info_act_count_get(_arg0);

13512

;

13513

if (ibis_tcl_error) {

13514

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13515

return TCL_ERROR;

13516

}

13517

} tcl_result = Tcl_GetObjResult(interp);

13518

{

13519

char buff[20];

13520

sprintf(buff, "%u", cl_ntoh32(*_result));

13521

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13522

}

13523

return TCL_OK;

13524

}

13525

#define _ib_sm_info_pri_state_set(_swigobj,_swigval) (_swigobj->pri_state = *(_swigval),_swigval)

13526

static int _wrap_sacSmInfo_pri_state_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13527

13528

uint8_t * _result;

13529

sacSmInfo * _arg0;

13530

uint8_t * _arg1;

13531

Tcl_Obj * tcl_result;

13532

char * rettype;

13533

uint8_t temp;

13534

13535

clientData = clientData; objv = objv;

13536

tcl_result = Tcl_GetObjResult(interp);

13537

if ((objc < 3) || (objc > 3)) {

13538

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_pri_state_set { sacSmInfo * } { uint8_t * } ",-1);

13539

return TCL_ERROR;

13540

}

13541

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13542

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_pri_state_set. Expected _sacSmInfo_p, received ", -1);

13543

Tcl_AppendToObj(tcl_result, rettype, -1);

13544

return TCL_ERROR;

13545

}

13546

{

13547

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

13548

_arg1 = &temp;

13549

}

13550

{

13551

/* we can check if IBIS was initialized here */

13552

if (!IbisObj.initialized)

13553

{

13554

Tcl_SetStringObj(

13555

Tcl_GetObjResult(interp),

13556

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13557

return TCL_ERROR;

13558

}

13559

13560

if (! IbisObj.port_guid)

13561

{

13562

Tcl_SetStringObj(

13563

Tcl_GetObjResult(interp),

13564

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13565

return TCL_ERROR;

13566

}

13567

13568

ibis_tcl_error = 0;

13569

_result = (uint8_t *)_ib_sm_info_pri_state_set(_arg0,_arg1);

13570

;

13571

if (ibis_tcl_error) {

13572

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13573

return TCL_ERROR;

13574

}

13575

} tcl_result = Tcl_GetObjResult(interp);

13576

{

13577

char buff[20];

13578

sprintf(buff, "%u", *_result);

13579

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13580

}

13581

return TCL_OK;

13582

}

13583

#define _ib_sm_info_pri_state_get(_swigobj) (&_swigobj->pri_state)

13584

static int _wrap_sacSmInfo_pri_state_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13585

13586

uint8_t * _result;

13587

sacSmInfo * _arg0;

13588

Tcl_Obj * tcl_result;

13589

char * rettype;

13590

13591

clientData = clientData; objv = objv;

13592

tcl_result = Tcl_GetObjResult(interp);

13593

if ((objc < 2) || (objc > 2)) {

13594

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_pri_state_get { sacSmInfo * } ",-1);

13595

return TCL_ERROR;

13596

}

13597

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13598

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_pri_state_get. Expected _sacSmInfo_p, received ", -1);

13599

Tcl_AppendToObj(tcl_result, rettype, -1);

13600

return TCL_ERROR;

13601

}

13602

{

13603

/* we can check if IBIS was initialized here */

13604

if (!IbisObj.initialized)

13605

{

13606

Tcl_SetStringObj(

13607

Tcl_GetObjResult(interp),

13608

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13609

return TCL_ERROR;

13610

}

13611

13612

if (! IbisObj.port_guid)

13613

{

13614

Tcl_SetStringObj(

13615

Tcl_GetObjResult(interp),

13616

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13617

return TCL_ERROR;

13618

}

13619

13620

ibis_tcl_error = 0;

13621

_result = (uint8_t *)_ib_sm_info_pri_state_get(_arg0);

13622

;

13623

if (ibis_tcl_error) {

13624

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13625

return TCL_ERROR;

13626

}

13627

} tcl_result = Tcl_GetObjResult(interp);

13628

{

13629

char buff[20];

13630

sprintf(buff, "%u", *_result);

13631

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13632

}

13633

return TCL_OK;

13634

}

13635

static void sacSmInfo_delete(sacSmInfo *self) {

13636

SWIG_AltMnglUnregObj(self);

13637

free(self);

13638

}

13639

static int _wrap_sacSmInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13640

13641

sacSmInfo * _arg0;

13642

Tcl_Obj * tcl_result;

13643

char * rettype;

13644

13645

clientData = clientData; objv = objv;

13646

tcl_result = Tcl_GetObjResult(interp);

13647

if ((objc < 2) || (objc > 2)) {

13648

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmInfo_delete { sacSmInfo * } ",-1);

13649

return TCL_ERROR;

13650

}

13651

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmInfo_p"))) {

13652

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmInfo_delete. Expected _sacSmInfo_p, received ", -1);

13653

Tcl_AppendToObj(tcl_result, rettype, -1);

13654

return TCL_ERROR;

13655

}

13656

{

13657

/* we can check if IBIS was initialized here */

13658

if (!IbisObj.initialized)

13659

{

13660

Tcl_SetStringObj(

13661

Tcl_GetObjResult(interp),

13662

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13663

return TCL_ERROR;

13664

}

13665

13666

if (! IbisObj.port_guid)

13667

{

13668

Tcl_SetStringObj(

13669

Tcl_GetObjResult(interp),

13670

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13671

return TCL_ERROR;

13672

}

13673

13674

ibis_tcl_error = 0;

13675

sacSmInfo_delete(_arg0);

13676

;

13677

if (ibis_tcl_error) {

13678

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13679

return TCL_ERROR;

13680

}

13681

} tcl_result = Tcl_GetObjResult(interp);

13682

return TCL_OK;

13683

}

13684

/* methodcmd8.swg : Tcl8.x method invocation */

13685

13686

static int TclsacSmInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

13687

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

13688

char *_str;

13689

int rcode;

13690

Tcl_Obj **objv;

13691

Tcl_Obj *oldarg,*tcl_result,*obj;

13692

int length;

13693

char c;

13694

13695

tcl_result = Tcl_GetObjResult(interp);

13696

objv = (Tcl_Obj **) _objv;

13697

if (objc < 2) {

13698

Tcl_SetStringObj(tcl_result,"sacSmInfo methods : { dump cget configure delete }",-1);

13699

return TCL_ERROR;

13700

}

13701

obj = Tcl_NewObj();

13702

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSmInfo_p");

13703

_str = Tcl_GetStringFromObj(objv[1],&length);

13704

c = *_str;

13705

if (0);

13706

if (strcmp(_str,"delete") == 0) {

13707

cmd = _wrap_sacSmInfo_delete;

13708

}

13709

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

13710

int i = 2;

13711

cmd = 0;

13712

while (i+1 < objc) {

13713

_str = Tcl_GetStringFromObj(objv[i],&length);

13714

if (strcmp(_str,"-guid") == 0) {

13715

cmd = _wrap_sacSmInfo_guid_set;

13716

} else if (strcmp(_str,"-sm_key") == 0) {

13717

cmd = _wrap_sacSmInfo_sm_key_set;

13718

} else if (strcmp(_str,"-act_count") == 0) {

13719

cmd = _wrap_sacSmInfo_act_count_set;

13720

} else if (strcmp(_str,"-pri_state") == 0) {

13721

cmd = _wrap_sacSmInfo_pri_state_set;

13722

}

13723

if (cmd) {

13724

oldarg = objv[i];

13725

objv[i] = obj;

13726

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

13727

objv[i] = oldarg;

13728

if (rcode == TCL_ERROR) return rcode;

13729

cmd = 0;

13730

} else {

13731

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -guid -sm_key -act_count -pri_state }",-1);

13732

return TCL_ERROR;

13733

}

13734

i+=2;

13735

}

13736

if ((i < objc) || (i == 2)) {

13737

Tcl_SetStringObj(tcl_result,"{ -guid -sm_key -act_count -pri_state }",-1);

13738

return TCL_ERROR;

13739

}

13740

return TCL_OK;

13741

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

13742

if (objc == 3) {

13743

_str = Tcl_GetStringFromObj(objv[2],&length);

13744

if (0) {}

13745

if (strcmp(_str,"-guid") == 0) {

13746

cmd = _wrap_sacSmInfo_guid_get;

13747

} else if (strcmp(_str,"-sm_key") == 0) {

13748

cmd = _wrap_sacSmInfo_sm_key_get;

13749

} else if (strcmp(_str,"-act_count") == 0) {

13750

cmd = _wrap_sacSmInfo_act_count_get;

13751

} else if (strcmp(_str,"-pri_state") == 0) {

13752

cmd = _wrap_sacSmInfo_pri_state_get;

13753

}

13754

else if (strcmp(_str,"-this") == 0) {

13755

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSmInfo_p");

13756

return TCL_OK;

13757

}

13758

if (cmd) {

13759

oldarg = objv[2];

13760

objv[2] = obj;

13761

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

13762

objv[2] = oldarg;

13763

return rcode;

13764

} else {

13765

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -guid -sm_key -act_count -pri_state }",-1);

13766

return TCL_ERROR;

13767

}

13768

} else {

13769

Tcl_SetStringObj(tcl_result,"{ -this -guid -sm_key -act_count -pri_state }", -1);

13770

return TCL_ERROR;

13771

}

13772

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

13773

if (objc == 2) {

13774

Tcl_Obj *pDumpObj;

13775

pDumpObj = Tcl_NewStringObj("",-1);

13776

Tcl_IncrRefCount(pDumpObj);

13777

cmd = _wrap_sacSmInfo_guid_get;

13778

oldarg = objv[2];

13779

objv[2] = obj;

13780

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13781

objv[2] = oldarg;

13782

Tcl_AppendStringsToObj(pDumpObj, "-guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13783

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13784

cmd = _wrap_sacSmInfo_sm_key_get;

13785

oldarg = objv[2];

13786

objv[2] = obj;

13787

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13788

objv[2] = oldarg;

13789

Tcl_AppendStringsToObj(pDumpObj, "-sm_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13790

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13791

cmd = _wrap_sacSmInfo_act_count_get;

13792

oldarg = objv[2];

13793

objv[2] = obj;

13794

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13795

objv[2] = oldarg;

13796

Tcl_AppendStringsToObj(pDumpObj, "-act_count ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13797

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13798

cmd = _wrap_sacSmInfo_pri_state_get;

13799

oldarg = objv[2];

13800

objv[2] = obj;

13801

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

13802

objv[2] = oldarg;

13803

Tcl_AppendStringsToObj(pDumpObj, "-pri_state ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

13804

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

13805

13806

Tcl_DecrRefCount(pDumpObj);

13807

return TCL_OK;

13808

} else {

13809

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

13810

return TCL_ERROR;

13811

}

13812

}

13813

if (!cmd) {

13814

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure delete }",-1);

13815

return TCL_ERROR;

13816

}

13817

oldarg = objv[1];

13818

objv[1] = obj;

13819

rcode = (*cmd)(clientData,interp,objc,objv);

13820

objv[1] = oldarg;

13821

return rcode;

13822

}

13823

13824

13825

13826

/* objcmd8.swg : Tcl 8.x object creation */

13827

13828

static int TclsacSmInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13829

void (*del)(ClientData) = 0;

13830

char *name = 0;

13831

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

13832

sacSmInfo * newObj = 0;

13833

int firstarg = 0;

13834

int thisarg = 0;

13835

int length;

13836

char *_str;

13837

Tcl_Obj *tcl_result;

13838

13839

tcl_result = Tcl_GetObjResult(interp);

13840

if (objc == 1) {

13841

cmd = 0;

13842

} else {

13843

_str = Tcl_GetStringFromObj(objv[1],&length);

13844

if (strcmp(_str,"-this") == 0) thisarg = 2;

13845

else if (strcmp(_str,"-args") == 0) {

13846

firstarg = 1;

13847

cmd = 0;

13848

} else if (objc == 2) {

13849

firstarg = 1;

13850

name = _str;

13851

cmd = 0;

13852

} else if (objc >= 3) {

13853

name = _str;

13854

_str = Tcl_GetStringFromObj(objv[2],&length);

13855

if (strcmp(_str,"-this") == 0) thisarg = 3;

13856

else {

13857

firstarg = 1;

13858

cmd = 0;

13859

}

13860

}

13861

}

13862

if (cmd) {

13863

int result;

13864

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

13865

if (result == TCL_OK) {

13866

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSmInfo_p");

13867

} else { return result; }

13868

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

13869

del = 0;

13870

} else if (thisarg > 0) {

13871

if (thisarg < objc) {

13872

char *r;

13873

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSmInfo_p");

13874

if (r) {

13875

Tcl_SetStringObj(tcl_result,"Type error. not a sacSmInfo object.",-1);

13876

return TCL_ERROR;

13877

}

13878

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

13879

Tcl_SetStringObj(tcl_result,name,-1);

13880

} else {

13881

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

13882

return TCL_ERROR;

13883

}

13884

} else {

13885

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

13886

return TCL_ERROR;

13887

}

13888

{

13889

Tcl_CmdInfo dummy;

13890

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

13891

Tcl_CreateObjCommand(interp,name, TclsacSmInfoMethodCmd, (ClientData) newObj, del);

13892

return TCL_OK;

13893

} else {

13894

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

13895

return TCL_ERROR;

13896

}

13897

}

13898

}

13899

13900

13901

#define _ib_sminfo_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

13902

static int _wrap_sacSmRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13903

13904

ib_net16_t * _result;

13905

sacSmRec * _arg0;

13906

ib_net16_t * _arg1;

13907

Tcl_Obj * tcl_result;

13908

char * rettype;

13909

ib_net16_t temp;

13910

13911

clientData = clientData; objv = objv;

13912

tcl_result = Tcl_GetObjResult(interp);

13913

if ((objc < 3) || (objc > 3)) {

13914

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_lid_set { sacSmRec * } { ib_net16_t * } ",-1);

13915

return TCL_ERROR;

13916

}

13917

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

13918

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_lid_set. Expected _sacSmRec_p, received ", -1);

13919

Tcl_AppendToObj(tcl_result, rettype, -1);

13920

return TCL_ERROR;

13921

}

13922

{

13923

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

13924

_arg1 = &temp;

13925

}

13926

{

13927

/* we can check if IBIS was initialized here */

13928

if (!IbisObj.initialized)

13929

{

13930

Tcl_SetStringObj(

13931

Tcl_GetObjResult(interp),

13932

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13933

return TCL_ERROR;

13934

}

13935

13936

if (! IbisObj.port_guid)

13937

{

13938

Tcl_SetStringObj(

13939

Tcl_GetObjResult(interp),

13940

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13941

return TCL_ERROR;

13942

}

13943

13944

ibis_tcl_error = 0;

13945

_result = (ib_net16_t *)_ib_sminfo_record_lid_set(_arg0,_arg1);

13946

;

13947

if (ibis_tcl_error) {

13948

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

13949

return TCL_ERROR;

13950

}

13951

} tcl_result = Tcl_GetObjResult(interp);

13952

{

13953

char buff[20];

13954

sprintf(buff, "%u", cl_hton16(*_result));

13955

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

13956

}

13957

return TCL_OK;

13958

}

13959

#define _ib_sminfo_record_lid_get(_swigobj) (&_swigobj->lid)

13960

static int _wrap_sacSmRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

13961

13962

ib_net16_t * _result;

13963

sacSmRec * _arg0;

13964

Tcl_Obj * tcl_result;

13965

char * rettype;

13966

13967

clientData = clientData; objv = objv;

13968

tcl_result = Tcl_GetObjResult(interp);

13969

if ((objc < 2) || (objc > 2)) {

13970

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_lid_get { sacSmRec * } ",-1);

13971

return TCL_ERROR;

13972

}

13973

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

13974

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_lid_get. Expected _sacSmRec_p, received ", -1);

13975

Tcl_AppendToObj(tcl_result, rettype, -1);

13976

return TCL_ERROR;

13977

}

13978

{

13979

/* we can check if IBIS was initialized here */

13980

if (!IbisObj.initialized)

13981

{

13982

Tcl_SetStringObj(

13983

Tcl_GetObjResult(interp),

13984

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

13985

return TCL_ERROR;

13986

}

13987

13988

if (! IbisObj.port_guid)

13989

{

13990

Tcl_SetStringObj(

13991

Tcl_GetObjResult(interp),

13992

" ibis was not yet initialized. please use ibis_set_port before.", -1);

13993

return TCL_ERROR;

13994

}

13995

13996

ibis_tcl_error = 0;

13997

_result = (ib_net16_t *)_ib_sminfo_record_lid_get(_arg0);

13998

;

13999

if (ibis_tcl_error) {

14000

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14001

return TCL_ERROR;

14002

}

14003

} tcl_result = Tcl_GetObjResult(interp);

14004

{

14005

char buff[20];

14006

sprintf(buff, "%u", cl_hton16(*_result));

14007

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14008

}

14009

return TCL_OK;

14010

}

14011

#define _ib_sminfo_record_sm_info_set(_swigobj,_swigval) (_swigobj->sm_info = *(_swigval),_swigval)

14012

static int _wrap_sacSmRec_sm_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14013

14014

sacSmInfo * _result;

14015

sacSmRec * _arg0;

14016

sacSmInfo * _arg1;

14017

Tcl_Obj * tcl_result;

14018

char * rettype;

14019

14020

clientData = clientData; objv = objv;

14021

tcl_result = Tcl_GetObjResult(interp);

14022

if ((objc < 3) || (objc > 3)) {

14023

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_sm_info_set { sacSmRec * } { sacSmInfo * } ",-1);

14024

return TCL_ERROR;

14025

}

14026

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

14027

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_sm_info_set. Expected _sacSmRec_p, received ", -1);

14028

Tcl_AppendToObj(tcl_result, rettype, -1);

14029

return TCL_ERROR;

14030

}

14031

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacSmInfo_p"))) {

14032

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacSmRec_sm_info_set. Expected _sacSmInfo_p, received ", -1);

14033

Tcl_AppendToObj(tcl_result, rettype, -1);

14034

return TCL_ERROR;

14035

}

14036

{

14037

/* we can check if IBIS was initialized here */

14038

if (!IbisObj.initialized)

14039

{

14040

Tcl_SetStringObj(

14041

Tcl_GetObjResult(interp),

14042

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14043

return TCL_ERROR;

14044

}

14045

14046

if (! IbisObj.port_guid)

14047

{

14048

Tcl_SetStringObj(

14049

Tcl_GetObjResult(interp),

14050

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14051

return TCL_ERROR;

14052

}

14053

14054

ibis_tcl_error = 0;

14055

_result = (sacSmInfo *)_ib_sminfo_record_sm_info_set(_arg0,_arg1);

14056

;

14057

if (ibis_tcl_error) {

14058

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14059

return TCL_ERROR;

14060

}

14061

} tcl_result = Tcl_GetObjResult(interp);

14062

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSmInfo_p");

14063

return TCL_OK;

14064

}

14065

#define _ib_sminfo_record_sm_info_get(_swigobj) (&_swigobj->sm_info)

14066

static int _wrap_sacSmRec_sm_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14067

14068

sacSmInfo * _result;

14069

sacSmRec * _arg0;

14070

Tcl_Obj * tcl_result;

14071

char * rettype;

14072

14073

clientData = clientData; objv = objv;

14074

tcl_result = Tcl_GetObjResult(interp);

14075

if ((objc < 2) || (objc > 2)) {

14076

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_sm_info_get { sacSmRec * } ",-1);

14077

return TCL_ERROR;

14078

}

14079

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

14080

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_sm_info_get. Expected _sacSmRec_p, received ", -1);

14081

Tcl_AppendToObj(tcl_result, rettype, -1);

14082

return TCL_ERROR;

14083

}

14084

{

14085

/* we can check if IBIS was initialized here */

14086

if (!IbisObj.initialized)

14087

{

14088

Tcl_SetStringObj(

14089

Tcl_GetObjResult(interp),

14090

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14091

return TCL_ERROR;

14092

}

14093

14094

if (! IbisObj.port_guid)

14095

{

14096

Tcl_SetStringObj(

14097

Tcl_GetObjResult(interp),

14098

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14099

return TCL_ERROR;

14100

}

14101

14102

ibis_tcl_error = 0;

14103

_result = (sacSmInfo *)_ib_sminfo_record_sm_info_get(_arg0);

14104

;

14105

if (ibis_tcl_error) {

14106

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14107

return TCL_ERROR;

14108

}

14109

} tcl_result = Tcl_GetObjResult(interp);

14110

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSmInfo_p");

14111

return TCL_OK;

14112

}

14113

static char * sacSmRec_get(sacSmRec *self,uint64_t comp_mask) {

14114

return(ibsacSMInfoRecordQuery(self, cl_hton64(comp_mask),

14115

IB_MAD_METHOD_GET));

14116

}

14117

static int _wrap_sacSmRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14118

14119

char * _result;

14120

sacSmRec * _arg0;

14121

uint64_t * _arg1;

14122

Tcl_Obj * tcl_result;

14123

char * rettype;

14124

uint64_t temp;

14125

14126

clientData = clientData; objv = objv;

14127

tcl_result = Tcl_GetObjResult(interp);

14128

if ((objc < 3) || (objc > 3)) {

14129

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_get { sacSmRec * } comp_mask ",-1);

14130

return TCL_ERROR;

14131

}

14132

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

14133

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_get. Expected _sacSmRec_p, received ", -1);

14134

Tcl_AppendToObj(tcl_result, rettype, -1);

14135

return TCL_ERROR;

14136

}

14137

{

14138

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

14139

_arg1 = &temp;

14140

}

14141

{

14142

/* we can check if IBIS was initialized here */

14143

if (!IbisObj.initialized)

14144

{

14145

Tcl_SetStringObj(

14146

Tcl_GetObjResult(interp),

14147

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14148

return TCL_ERROR;

14149

}

14150

14151

if (! IbisObj.port_guid)

14152

{

14153

Tcl_SetStringObj(

14154

Tcl_GetObjResult(interp),

14155

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14156

return TCL_ERROR;

14157

}

14158

14159

ibis_tcl_error = 0;

14160

_result = (char *)sacSmRec_get(_arg0,*_arg1);

14161

;

14162

if (ibis_tcl_error) {

14163

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14164

return TCL_ERROR;

14165

}

14166

} tcl_result = Tcl_GetObjResult(interp);

14167

Tcl_SetStringObj(tcl_result,_result,-1);

14168

free(_result);

14169

14170

return TCL_OK;

14171

}

14172

static char * sacSmRec_getTable(sacSmRec *self,uint64_t comp_mask) {

14173

return(ibsacSMInfoRecordQuery(self, cl_hton64(comp_mask),

14174

IB_MAD_METHOD_GETTABLE));

14175

}

14176

static int _wrap_sacSmRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14177

14178

char * _result;

14179

sacSmRec * _arg0;

14180

uint64_t * _arg1;

14181

Tcl_Obj * tcl_result;

14182

char * rettype;

14183

uint64_t temp;

14184

14185

clientData = clientData; objv = objv;

14186

tcl_result = Tcl_GetObjResult(interp);

14187

if ((objc < 3) || (objc > 3)) {

14188

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_getTable { sacSmRec * } comp_mask ",-1);

14189

return TCL_ERROR;

14190

}

14191

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

14192

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_getTable. Expected _sacSmRec_p, received ", -1);

14193

Tcl_AppendToObj(tcl_result, rettype, -1);

14194

return TCL_ERROR;

14195

}

14196

{

14197

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

14198

_arg1 = &temp;

14199

}

14200

{

14201

/* we can check if IBIS was initialized here */

14202

if (!IbisObj.initialized)

14203

{

14204

Tcl_SetStringObj(

14205

Tcl_GetObjResult(interp),

14206

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14207

return TCL_ERROR;

14208

}

14209

14210

if (! IbisObj.port_guid)

14211

{

14212

Tcl_SetStringObj(

14213

Tcl_GetObjResult(interp),

14214

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14215

return TCL_ERROR;

14216

}

14217

14218

ibis_tcl_error = 0;

14219

_result = (char *)sacSmRec_getTable(_arg0,*_arg1);

14220

;

14221

if (ibis_tcl_error) {

14222

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14223

return TCL_ERROR;

14224

}

14225

} tcl_result = Tcl_GetObjResult(interp);

14226

Tcl_SetStringObj(tcl_result,_result,-1);

14227

free(_result);

14228

14229

return TCL_OK;

14230

}

14231

static void sacSmRec_delete(sacSmRec *self) {

14232

/* we need to de-register both the node info and node record */

14233

SWIG_AltMnglUnregObj(&(self->sm_info));

14234

SWIG_AltMnglUnregObj(self);

14235

free(self);

14236

}

14237

static int _wrap_sacSmRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14238

14239

sacSmRec * _arg0;

14240

Tcl_Obj * tcl_result;

14241

char * rettype;

14242

14243

clientData = clientData; objv = objv;

14244

tcl_result = Tcl_GetObjResult(interp);

14245

if ((objc < 2) || (objc > 2)) {

14246

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSmRec_delete { sacSmRec * } ",-1);

14247

return TCL_ERROR;

14248

}

14249

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSmRec_p"))) {

14250

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSmRec_delete. Expected _sacSmRec_p, received ", -1);

14251

Tcl_AppendToObj(tcl_result, rettype, -1);

14252

return TCL_ERROR;

14253

}

14254

{

14255

/* we can check if IBIS was initialized here */

14256

if (!IbisObj.initialized)

14257

{

14258

Tcl_SetStringObj(

14259

Tcl_GetObjResult(interp),

14260

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14261

return TCL_ERROR;

14262

}

14263

14264

if (! IbisObj.port_guid)

14265

{

14266

Tcl_SetStringObj(

14267

Tcl_GetObjResult(interp),

14268

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14269

return TCL_ERROR;

14270

}

14271

14272

ibis_tcl_error = 0;

14273

sacSmRec_delete(_arg0);

14274

;

14275

if (ibis_tcl_error) {

14276

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14277

return TCL_ERROR;

14278

}

14279

} tcl_result = Tcl_GetObjResult(interp);

14280

return TCL_OK;

14281

}

14282

/* methodcmd8.swg : Tcl8.x method invocation */

14283

14284

static int TclsacSmRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

14285

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

14286

char *_str;

14287

int rcode;

14288

Tcl_Obj **objv;

14289

Tcl_Obj *oldarg,*tcl_result,*obj;

14290

int length;

14291

char c;

14292

14293

tcl_result = Tcl_GetObjResult(interp);

14294

objv = (Tcl_Obj **) _objv;

14295

if (objc < 2) {

14296

Tcl_SetStringObj(tcl_result,"sacSmRec methods : { dump cget configure get getTable delete }",-1);

14297

return TCL_ERROR;

14298

}

14299

obj = Tcl_NewObj();

14300

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSmRec_p");

14301

_str = Tcl_GetStringFromObj(objv[1],&length);

14302

c = *_str;

14303

if (0);

14304

if (strcmp(_str,"get") == 0) {

14305

cmd = _wrap_sacSmRec_get;

14306

} else if (strcmp(_str,"getTable") == 0) {

14307

cmd = _wrap_sacSmRec_getTable;

14308

} else if (strcmp(_str,"delete") == 0) {

14309

cmd = _wrap_sacSmRec_delete;

14310

}

14311

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

14312

int i = 2;

14313

cmd = 0;

14314

while (i+1 < objc) {

14315

_str = Tcl_GetStringFromObj(objv[i],&length);

14316

if (strcmp(_str,"-lid") == 0) {

14317

cmd = _wrap_sacSmRec_lid_set;

14318

} else if (strcmp(_str,"-sm_info") == 0) {

14319

cmd = _wrap_sacSmRec_sm_info_set;

14320

}

14321

if (cmd) {

14322

oldarg = objv[i];

14323

objv[i] = obj;

14324

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

14325

objv[i] = oldarg;

14326

if (rcode == TCL_ERROR) return rcode;

14327

cmd = 0;

14328

} else {

14329

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -sm_info }",-1);

14330

return TCL_ERROR;

14331

}

14332

i+=2;

14333

}

14334

if ((i < objc) || (i == 2)) {

14335

Tcl_SetStringObj(tcl_result,"{ -lid -sm_info }",-1);

14336

return TCL_ERROR;

14337

}

14338

return TCL_OK;

14339

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

14340

if (objc == 3) {

14341

_str = Tcl_GetStringFromObj(objv[2],&length);

14342

if (0) {}

14343

if (strcmp(_str,"-lid") == 0) {

14344

cmd = _wrap_sacSmRec_lid_get;

14345

} else if (strcmp(_str,"-sm_info") == 0) {

14346

cmd = _wrap_sacSmRec_sm_info_get;

14347

}

14348

else if (strcmp(_str,"-this") == 0) {

14349

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSmRec_p");

14350

return TCL_OK;

14351

}

14352

if (cmd) {

14353

oldarg = objv[2];

14354

objv[2] = obj;

14355

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

14356

objv[2] = oldarg;

14357

return rcode;

14358

} else {

14359

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -sm_info }",-1);

14360

return TCL_ERROR;

14361

}

14362

} else {

14363

Tcl_SetStringObj(tcl_result,"{ -this -lid -sm_info }", -1);

14364

return TCL_ERROR;

14365

}

14366

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

14367

if (objc == 2) {

14368

Tcl_Obj *pDumpObj;

14369

pDumpObj = Tcl_NewStringObj("",-1);

14370

Tcl_IncrRefCount(pDumpObj);

14371

cmd = _wrap_sacSmRec_lid_get;

14372

oldarg = objv[2];

14373

objv[2] = obj;

14374

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

14375

objv[2] = oldarg;

14376

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

14377

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

14378

cmd = _wrap_sacSmRec_sm_info_get;

14379

oldarg = objv[2];

14380

objv[2] = obj;

14381

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

14382

objv[2] = oldarg;

14383

Tcl_AppendStringsToObj(pDumpObj, "-sm_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

14384

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

14385

14386

Tcl_DecrRefCount(pDumpObj);

14387

return TCL_OK;

14388

} else {

14389

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

14390

return TCL_ERROR;

14391

}

14392

}

14393

if (!cmd) {

14394

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

14395

return TCL_ERROR;

14396

}

14397

oldarg = objv[1];

14398

objv[1] = obj;

14399

rcode = (*cmd)(clientData,interp,objc,objv);

14400

objv[1] = oldarg;

14401

return rcode;

14402

}

14403

14404

14405

14406

/* objcmd8.swg : Tcl 8.x object creation */

14407

14408

static int TclsacSmRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14409

void (*del)(ClientData) = 0;

14410

char *name = 0;

14411

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

14412

sacSmRec * newObj = 0;

14413

int firstarg = 0;

14414

int thisarg = 0;

14415

int length;

14416

char *_str;

14417

Tcl_Obj *tcl_result;

14418

14419

tcl_result = Tcl_GetObjResult(interp);

14420

if (objc == 1) {

14421

cmd = 0;

14422

} else {

14423

_str = Tcl_GetStringFromObj(objv[1],&length);

14424

if (strcmp(_str,"-this") == 0) thisarg = 2;

14425

else if (strcmp(_str,"-args") == 0) {

14426

firstarg = 1;

14427

cmd = 0;

14428

} else if (objc == 2) {

14429

firstarg = 1;

14430

name = _str;

14431

cmd = 0;

14432

} else if (objc >= 3) {

14433

name = _str;

14434

_str = Tcl_GetStringFromObj(objv[2],&length);

14435

if (strcmp(_str,"-this") == 0) thisarg = 3;

14436

else {

14437

firstarg = 1;

14438

cmd = 0;

14439

}

14440

}

14441

}

14442

if (cmd) {

14443

int result;

14444

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

14445

if (result == TCL_OK) {

14446

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSmRec_p");

14447

} else { return result; }

14448

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

14449

del = 0;

14450

} else if (thisarg > 0) {

14451

if (thisarg < objc) {

14452

char *r;

14453

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSmRec_p");

14454

if (r) {

14455

Tcl_SetStringObj(tcl_result,"Type error. not a sacSmRec object.",-1);

14456

return TCL_ERROR;

14457

}

14458

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

14459

Tcl_SetStringObj(tcl_result,name,-1);

14460

} else {

14461

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

14462

return TCL_ERROR;

14463

}

14464

} else {

14465

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

14466

return TCL_ERROR;

14467

}

14468

{

14469

Tcl_CmdInfo dummy;

14470

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

14471

Tcl_CreateObjCommand(interp,name, TclsacSmRecMethodCmd, (ClientData) newObj, del);

14472

return TCL_OK;

14473

} else {

14474

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

14475

return TCL_ERROR;

14476

}

14477

}

14478

}

14479

14480

14481

#define _ib_switch_info_lin_cap_set(_swigobj,_swigval) (_swigobj->lin_cap = *(_swigval),_swigval)

14482

static int _wrap_sacSwInfo_lin_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14483

14484

ib_net16_t * _result;

14485

sacSwInfo * _arg0;

14486

ib_net16_t * _arg1;

14487

Tcl_Obj * tcl_result;

14488

char * rettype;

14489

ib_net16_t temp;

14490

14491

clientData = clientData; objv = objv;

14492

tcl_result = Tcl_GetObjResult(interp);

14493

if ((objc < 3) || (objc > 3)) {

14494

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lin_cap_set { sacSwInfo * } { ib_net16_t * } ",-1);

14495

return TCL_ERROR;

14496

}

14497

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14498

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lin_cap_set. Expected _sacSwInfo_p, received ", -1);

14499

Tcl_AppendToObj(tcl_result, rettype, -1);

14500

return TCL_ERROR;

14501

}

14502

{

14503

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

14504

_arg1 = &temp;

14505

}

14506

{

14507

/* we can check if IBIS was initialized here */

14508

if (!IbisObj.initialized)

14509

{

14510

Tcl_SetStringObj(

14511

Tcl_GetObjResult(interp),

14512

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14513

return TCL_ERROR;

14514

}

14515

14516

if (! IbisObj.port_guid)

14517

{

14518

Tcl_SetStringObj(

14519

Tcl_GetObjResult(interp),

14520

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14521

return TCL_ERROR;

14522

}

14523

14524

ibis_tcl_error = 0;

14525

_result = (ib_net16_t *)_ib_switch_info_lin_cap_set(_arg0,_arg1);

14526

;

14527

if (ibis_tcl_error) {

14528

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14529

return TCL_ERROR;

14530

}

14531

} tcl_result = Tcl_GetObjResult(interp);

14532

{

14533

char buff[20];

14534

sprintf(buff, "%u", cl_hton16(*_result));

14535

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14536

}

14537

return TCL_OK;

14538

}

14539

#define _ib_switch_info_lin_cap_get(_swigobj) (&_swigobj->lin_cap)

14540

static int _wrap_sacSwInfo_lin_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14541

14542

ib_net16_t * _result;

14543

sacSwInfo * _arg0;

14544

Tcl_Obj * tcl_result;

14545

char * rettype;

14546

14547

clientData = clientData; objv = objv;

14548

tcl_result = Tcl_GetObjResult(interp);

14549

if ((objc < 2) || (objc > 2)) {

14550

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lin_cap_get { sacSwInfo * } ",-1);

14551

return TCL_ERROR;

14552

}

14553

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14554

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lin_cap_get. Expected _sacSwInfo_p, received ", -1);

14555

Tcl_AppendToObj(tcl_result, rettype, -1);

14556

return TCL_ERROR;

14557

}

14558

{

14559

/* we can check if IBIS was initialized here */

14560

if (!IbisObj.initialized)

14561

{

14562

Tcl_SetStringObj(

14563

Tcl_GetObjResult(interp),

14564

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14565

return TCL_ERROR;

14566

}

14567

14568

if (! IbisObj.port_guid)

14569

{

14570

Tcl_SetStringObj(

14571

Tcl_GetObjResult(interp),

14572

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14573

return TCL_ERROR;

14574

}

14575

14576

ibis_tcl_error = 0;

14577

_result = (ib_net16_t *)_ib_switch_info_lin_cap_get(_arg0);

14578

;

14579

if (ibis_tcl_error) {

14580

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14581

return TCL_ERROR;

14582

}

14583

} tcl_result = Tcl_GetObjResult(interp);

14584

{

14585

char buff[20];

14586

sprintf(buff, "%u", cl_hton16(*_result));

14587

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14588

}

14589

return TCL_OK;

14590

}

14591

#define _ib_switch_info_rand_cap_set(_swigobj,_swigval) (_swigobj->rand_cap = *(_swigval),_swigval)

14592

static int _wrap_sacSwInfo_rand_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14593

14594

ib_net16_t * _result;

14595

sacSwInfo * _arg0;

14596

ib_net16_t * _arg1;

14597

Tcl_Obj * tcl_result;

14598

char * rettype;

14599

ib_net16_t temp;

14600

14601

clientData = clientData; objv = objv;

14602

tcl_result = Tcl_GetObjResult(interp);

14603

if ((objc < 3) || (objc > 3)) {

14604

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_rand_cap_set { sacSwInfo * } { ib_net16_t * } ",-1);

14605

return TCL_ERROR;

14606

}

14607

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14608

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_rand_cap_set. Expected _sacSwInfo_p, received ", -1);

14609

Tcl_AppendToObj(tcl_result, rettype, -1);

14610

return TCL_ERROR;

14611

}

14612

{

14613

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

14614

_arg1 = &temp;

14615

}

14616

{

14617

/* we can check if IBIS was initialized here */

14618

if (!IbisObj.initialized)

14619

{

14620

Tcl_SetStringObj(

14621

Tcl_GetObjResult(interp),

14622

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14623

return TCL_ERROR;

14624

}

14625

14626

if (! IbisObj.port_guid)

14627

{

14628

Tcl_SetStringObj(

14629

Tcl_GetObjResult(interp),

14630

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14631

return TCL_ERROR;

14632

}

14633

14634

ibis_tcl_error = 0;

14635

_result = (ib_net16_t *)_ib_switch_info_rand_cap_set(_arg0,_arg1);

14636

;

14637

if (ibis_tcl_error) {

14638

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14639

return TCL_ERROR;

14640

}

14641

} tcl_result = Tcl_GetObjResult(interp);

14642

{

14643

char buff[20];

14644

sprintf(buff, "%u", cl_hton16(*_result));

14645

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14646

}

14647

return TCL_OK;

14648

}

14649

#define _ib_switch_info_rand_cap_get(_swigobj) (&_swigobj->rand_cap)

14650

static int _wrap_sacSwInfo_rand_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14651

14652

ib_net16_t * _result;

14653

sacSwInfo * _arg0;

14654

Tcl_Obj * tcl_result;

14655

char * rettype;

14656

14657

clientData = clientData; objv = objv;

14658

tcl_result = Tcl_GetObjResult(interp);

14659

if ((objc < 2) || (objc > 2)) {

14660

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_rand_cap_get { sacSwInfo * } ",-1);

14661

return TCL_ERROR;

14662

}

14663

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14664

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_rand_cap_get. Expected _sacSwInfo_p, received ", -1);

14665

Tcl_AppendToObj(tcl_result, rettype, -1);

14666

return TCL_ERROR;

14667

}

14668

{

14669

/* we can check if IBIS was initialized here */

14670

if (!IbisObj.initialized)

14671

{

14672

Tcl_SetStringObj(

14673

Tcl_GetObjResult(interp),

14674

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14675

return TCL_ERROR;

14676

}

14677

14678

if (! IbisObj.port_guid)

14679

{

14680

Tcl_SetStringObj(

14681

Tcl_GetObjResult(interp),

14682

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14683

return TCL_ERROR;

14684

}

14685

14686

ibis_tcl_error = 0;

14687

_result = (ib_net16_t *)_ib_switch_info_rand_cap_get(_arg0);

14688

;

14689

if (ibis_tcl_error) {

14690

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14691

return TCL_ERROR;

14692

}

14693

} tcl_result = Tcl_GetObjResult(interp);

14694

{

14695

char buff[20];

14696

sprintf(buff, "%u", cl_hton16(*_result));

14697

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14698

}

14699

return TCL_OK;

14700

}

14701

#define _ib_switch_info_mcast_cap_set(_swigobj,_swigval) (_swigobj->mcast_cap = *(_swigval),_swigval)

14702

static int _wrap_sacSwInfo_mcast_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14703

14704

ib_net16_t * _result;

14705

sacSwInfo * _arg0;

14706

ib_net16_t * _arg1;

14707

Tcl_Obj * tcl_result;

14708

char * rettype;

14709

ib_net16_t temp;

14710

14711

clientData = clientData; objv = objv;

14712

tcl_result = Tcl_GetObjResult(interp);

14713

if ((objc < 3) || (objc > 3)) {

14714

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_mcast_cap_set { sacSwInfo * } { ib_net16_t * } ",-1);

14715

return TCL_ERROR;

14716

}

14717

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14718

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_mcast_cap_set. Expected _sacSwInfo_p, received ", -1);

14719

Tcl_AppendToObj(tcl_result, rettype, -1);

14720

return TCL_ERROR;

14721

}

14722

{

14723

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

14724

_arg1 = &temp;

14725

}

14726

{

14727

/* we can check if IBIS was initialized here */

14728

if (!IbisObj.initialized)

14729

{

14730

Tcl_SetStringObj(

14731

Tcl_GetObjResult(interp),

14732

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14733

return TCL_ERROR;

14734

}

14735

14736

if (! IbisObj.port_guid)

14737

{

14738

Tcl_SetStringObj(

14739

Tcl_GetObjResult(interp),

14740

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14741

return TCL_ERROR;

14742

}

14743

14744

ibis_tcl_error = 0;

14745

_result = (ib_net16_t *)_ib_switch_info_mcast_cap_set(_arg0,_arg1);

14746

;

14747

if (ibis_tcl_error) {

14748

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14749

return TCL_ERROR;

14750

}

14751

} tcl_result = Tcl_GetObjResult(interp);

14752

{

14753

char buff[20];

14754

sprintf(buff, "%u", cl_hton16(*_result));

14755

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14756

}

14757

return TCL_OK;

14758

}

14759

#define _ib_switch_info_mcast_cap_get(_swigobj) (&_swigobj->mcast_cap)

14760

static int _wrap_sacSwInfo_mcast_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14761

14762

ib_net16_t * _result;

14763

sacSwInfo * _arg0;

14764

Tcl_Obj * tcl_result;

14765

char * rettype;

14766

14767

clientData = clientData; objv = objv;

14768

tcl_result = Tcl_GetObjResult(interp);

14769

if ((objc < 2) || (objc > 2)) {

14770

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_mcast_cap_get { sacSwInfo * } ",-1);

14771

return TCL_ERROR;

14772

}

14773

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14774

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_mcast_cap_get. Expected _sacSwInfo_p, received ", -1);

14775

Tcl_AppendToObj(tcl_result, rettype, -1);

14776

return TCL_ERROR;

14777

}

14778

{

14779

/* we can check if IBIS was initialized here */

14780

if (!IbisObj.initialized)

14781

{

14782

Tcl_SetStringObj(

14783

Tcl_GetObjResult(interp),

14784

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14785

return TCL_ERROR;

14786

}

14787

14788

if (! IbisObj.port_guid)

14789

{

14790

Tcl_SetStringObj(

14791

Tcl_GetObjResult(interp),

14792

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14793

return TCL_ERROR;

14794

}

14795

14796

ibis_tcl_error = 0;

14797

_result = (ib_net16_t *)_ib_switch_info_mcast_cap_get(_arg0);

14798

;

14799

if (ibis_tcl_error) {

14800

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14801

return TCL_ERROR;

14802

}

14803

} tcl_result = Tcl_GetObjResult(interp);

14804

{

14805

char buff[20];

14806

sprintf(buff, "%u", cl_hton16(*_result));

14807

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14808

}

14809

return TCL_OK;

14810

}

14811

#define _ib_switch_info_lin_top_set(_swigobj,_swigval) (_swigobj->lin_top = *(_swigval),_swigval)

14812

static int _wrap_sacSwInfo_lin_top_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14813

14814

ib_net16_t * _result;

14815

sacSwInfo * _arg0;

14816

ib_net16_t * _arg1;

14817

Tcl_Obj * tcl_result;

14818

char * rettype;

14819

ib_net16_t temp;

14820

14821

clientData = clientData; objv = objv;

14822

tcl_result = Tcl_GetObjResult(interp);

14823

if ((objc < 3) || (objc > 3)) {

14824

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lin_top_set { sacSwInfo * } { ib_net16_t * } ",-1);

14825

return TCL_ERROR;

14826

}

14827

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14828

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lin_top_set. Expected _sacSwInfo_p, received ", -1);

14829

Tcl_AppendToObj(tcl_result, rettype, -1);

14830

return TCL_ERROR;

14831

}

14832

{

14833

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

14834

_arg1 = &temp;

14835

}

14836

{

14837

/* we can check if IBIS was initialized here */

14838

if (!IbisObj.initialized)

14839

{

14840

Tcl_SetStringObj(

14841

Tcl_GetObjResult(interp),

14842

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14843

return TCL_ERROR;

14844

}

14845

14846

if (! IbisObj.port_guid)

14847

{

14848

Tcl_SetStringObj(

14849

Tcl_GetObjResult(interp),

14850

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14851

return TCL_ERROR;

14852

}

14853

14854

ibis_tcl_error = 0;

14855

_result = (ib_net16_t *)_ib_switch_info_lin_top_set(_arg0,_arg1);

14856

;

14857

if (ibis_tcl_error) {

14858

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14859

return TCL_ERROR;

14860

}

14861

} tcl_result = Tcl_GetObjResult(interp);

14862

{

14863

char buff[20];

14864

sprintf(buff, "%u", cl_hton16(*_result));

14865

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14866

}

14867

return TCL_OK;

14868

}

14869

#define _ib_switch_info_lin_top_get(_swigobj) (&_swigobj->lin_top)

14870

static int _wrap_sacSwInfo_lin_top_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14871

14872

ib_net16_t * _result;

14873

sacSwInfo * _arg0;

14874

Tcl_Obj * tcl_result;

14875

char * rettype;

14876

14877

clientData = clientData; objv = objv;

14878

tcl_result = Tcl_GetObjResult(interp);

14879

if ((objc < 2) || (objc > 2)) {

14880

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lin_top_get { sacSwInfo * } ",-1);

14881

return TCL_ERROR;

14882

}

14883

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14884

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lin_top_get. Expected _sacSwInfo_p, received ", -1);

14885

Tcl_AppendToObj(tcl_result, rettype, -1);

14886

return TCL_ERROR;

14887

}

14888

{

14889

/* we can check if IBIS was initialized here */

14890

if (!IbisObj.initialized)

14891

{

14892

Tcl_SetStringObj(

14893

Tcl_GetObjResult(interp),

14894

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14895

return TCL_ERROR;

14896

}

14897

14898

if (! IbisObj.port_guid)

14899

{

14900

Tcl_SetStringObj(

14901

Tcl_GetObjResult(interp),

14902

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14903

return TCL_ERROR;

14904

}

14905

14906

ibis_tcl_error = 0;

14907

_result = (ib_net16_t *)_ib_switch_info_lin_top_get(_arg0);

14908

;

14909

if (ibis_tcl_error) {

14910

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14911

return TCL_ERROR;

14912

}

14913

} tcl_result = Tcl_GetObjResult(interp);

14914

{

14915

char buff[20];

14916

sprintf(buff, "%u", cl_hton16(*_result));

14917

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14918

}

14919

return TCL_OK;

14920

}

14921

#define _ib_switch_info_def_port_set(_swigobj,_swigval) (_swigobj->def_port = *(_swigval),_swigval)

14922

static int _wrap_sacSwInfo_def_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14923

14924

uint8_t * _result;

14925

sacSwInfo * _arg0;

14926

uint8_t * _arg1;

14927

Tcl_Obj * tcl_result;

14928

char * rettype;

14929

uint8_t temp;

14930

14931

clientData = clientData; objv = objv;

14932

tcl_result = Tcl_GetObjResult(interp);

14933

if ((objc < 3) || (objc > 3)) {

14934

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_port_set { sacSwInfo * } { uint8_t * } ",-1);

14935

return TCL_ERROR;

14936

}

14937

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14938

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_port_set. Expected _sacSwInfo_p, received ", -1);

14939

Tcl_AppendToObj(tcl_result, rettype, -1);

14940

return TCL_ERROR;

14941

}

14942

{

14943

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

14944

_arg1 = &temp;

14945

}

14946

{

14947

/* we can check if IBIS was initialized here */

14948

if (!IbisObj.initialized)

14949

{

14950

Tcl_SetStringObj(

14951

Tcl_GetObjResult(interp),

14952

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

14953

return TCL_ERROR;

14954

}

14955

14956

if (! IbisObj.port_guid)

14957

{

14958

Tcl_SetStringObj(

14959

Tcl_GetObjResult(interp),

14960

" ibis was not yet initialized. please use ibis_set_port before.", -1);

14961

return TCL_ERROR;

14962

}

14963

14964

ibis_tcl_error = 0;

14965

_result = (uint8_t *)_ib_switch_info_def_port_set(_arg0,_arg1);

14966

;

14967

if (ibis_tcl_error) {

14968

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

14969

return TCL_ERROR;

14970

}

14971

} tcl_result = Tcl_GetObjResult(interp);

14972

{

14973

char buff[20];

14974

sprintf(buff, "%u", *_result);

14975

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

14976

}

14977

return TCL_OK;

14978

}

14979

#define _ib_switch_info_def_port_get(_swigobj) (&_swigobj->def_port)

14980

static int _wrap_sacSwInfo_def_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

14981

14982

uint8_t * _result;

14983

sacSwInfo * _arg0;

14984

Tcl_Obj * tcl_result;

14985

char * rettype;

14986

14987

clientData = clientData; objv = objv;

14988

tcl_result = Tcl_GetObjResult(interp);

14989

if ((objc < 2) || (objc > 2)) {

14990

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_port_get { sacSwInfo * } ",-1);

14991

return TCL_ERROR;

14992

}

14993

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

14994

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_port_get. Expected _sacSwInfo_p, received ", -1);

14995

Tcl_AppendToObj(tcl_result, rettype, -1);

14996

return TCL_ERROR;

14997

}

14998

{

14999

/* we can check if IBIS was initialized here */

15000

if (!IbisObj.initialized)

15001

{

15002

Tcl_SetStringObj(

15003

Tcl_GetObjResult(interp),

15004

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15005

return TCL_ERROR;

15006

}

15007

15008

if (! IbisObj.port_guid)

15009

{

15010

Tcl_SetStringObj(

15011

Tcl_GetObjResult(interp),

15012

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15013

return TCL_ERROR;

15014

}

15015

15016

ibis_tcl_error = 0;

15017

_result = (uint8_t *)_ib_switch_info_def_port_get(_arg0);

15018

;

15019

if (ibis_tcl_error) {

15020

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15021

return TCL_ERROR;

15022

}

15023

} tcl_result = Tcl_GetObjResult(interp);

15024

{

15025

char buff[20];

15026

sprintf(buff, "%u", *_result);

15027

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15028

}

15029

return TCL_OK;

15030

}

15031

#define _ib_switch_info_def_mcast_pri_port_set(_swigobj,_swigval) (_swigobj->def_mcast_pri_port = *(_swigval),_swigval)

15032

static int _wrap_sacSwInfo_def_mcast_pri_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15033

15034

uint8_t * _result;

15035

sacSwInfo * _arg0;

15036

uint8_t * _arg1;

15037

Tcl_Obj * tcl_result;

15038

char * rettype;

15039

uint8_t temp;

15040

15041

clientData = clientData; objv = objv;

15042

tcl_result = Tcl_GetObjResult(interp);

15043

if ((objc < 3) || (objc > 3)) {

15044

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_mcast_pri_port_set { sacSwInfo * } { uint8_t * } ",-1);

15045

return TCL_ERROR;

15046

}

15047

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15048

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_mcast_pri_port_set. Expected _sacSwInfo_p, received ", -1);

15049

Tcl_AppendToObj(tcl_result, rettype, -1);

15050

return TCL_ERROR;

15051

}

15052

{

15053

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

15054

_arg1 = &temp;

15055

}

15056

{

15057

/* we can check if IBIS was initialized here */

15058

if (!IbisObj.initialized)

15059

{

15060

Tcl_SetStringObj(

15061

Tcl_GetObjResult(interp),

15062

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15063

return TCL_ERROR;

15064

}

15065

15066

if (! IbisObj.port_guid)

15067

{

15068

Tcl_SetStringObj(

15069

Tcl_GetObjResult(interp),

15070

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15071

return TCL_ERROR;

15072

}

15073

15074

ibis_tcl_error = 0;

15075

_result = (uint8_t *)_ib_switch_info_def_mcast_pri_port_set(_arg0,_arg1);

15076

;

15077

if (ibis_tcl_error) {

15078

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15079

return TCL_ERROR;

15080

}

15081

} tcl_result = Tcl_GetObjResult(interp);

15082

{

15083

char buff[20];

15084

sprintf(buff, "%u", *_result);

15085

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15086

}

15087

return TCL_OK;

15088

}

15089

#define _ib_switch_info_def_mcast_pri_port_get(_swigobj) (&_swigobj->def_mcast_pri_port)

15090

static int _wrap_sacSwInfo_def_mcast_pri_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15091

15092

uint8_t * _result;

15093

sacSwInfo * _arg0;

15094

Tcl_Obj * tcl_result;

15095

char * rettype;

15096

15097

clientData = clientData; objv = objv;

15098

tcl_result = Tcl_GetObjResult(interp);

15099

if ((objc < 2) || (objc > 2)) {

15100

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_mcast_pri_port_get { sacSwInfo * } ",-1);

15101

return TCL_ERROR;

15102

}

15103

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15104

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_mcast_pri_port_get. Expected _sacSwInfo_p, received ", -1);

15105

Tcl_AppendToObj(tcl_result, rettype, -1);

15106

return TCL_ERROR;

15107

}

15108

{

15109

/* we can check if IBIS was initialized here */

15110

if (!IbisObj.initialized)

15111

{

15112

Tcl_SetStringObj(

15113

Tcl_GetObjResult(interp),

15114

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15115

return TCL_ERROR;

15116

}

15117

15118

if (! IbisObj.port_guid)

15119

{

15120

Tcl_SetStringObj(

15121

Tcl_GetObjResult(interp),

15122

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15123

return TCL_ERROR;

15124

}

15125

15126

ibis_tcl_error = 0;

15127

_result = (uint8_t *)_ib_switch_info_def_mcast_pri_port_get(_arg0);

15128

;

15129

if (ibis_tcl_error) {

15130

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15131

return TCL_ERROR;

15132

}

15133

} tcl_result = Tcl_GetObjResult(interp);

15134

{

15135

char buff[20];

15136

sprintf(buff, "%u", *_result);

15137

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15138

}

15139

return TCL_OK;

15140

}

15141

#define _ib_switch_info_def_mcast_not_port_set(_swigobj,_swigval) (_swigobj->def_mcast_not_port = *(_swigval),_swigval)

15142

static int _wrap_sacSwInfo_def_mcast_not_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15143

15144

uint8_t * _result;

15145

sacSwInfo * _arg0;

15146

uint8_t * _arg1;

15147

Tcl_Obj * tcl_result;

15148

char * rettype;

15149

uint8_t temp;

15150

15151

clientData = clientData; objv = objv;

15152

tcl_result = Tcl_GetObjResult(interp);

15153

if ((objc < 3) || (objc > 3)) {

15154

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_mcast_not_port_set { sacSwInfo * } { uint8_t * } ",-1);

15155

return TCL_ERROR;

15156

}

15157

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15158

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_mcast_not_port_set. Expected _sacSwInfo_p, received ", -1);

15159

Tcl_AppendToObj(tcl_result, rettype, -1);

15160

return TCL_ERROR;

15161

}

15162

{

15163

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

15164

_arg1 = &temp;

15165

}

15166

{

15167

/* we can check if IBIS was initialized here */

15168

if (!IbisObj.initialized)

15169

{

15170

Tcl_SetStringObj(

15171

Tcl_GetObjResult(interp),

15172

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15173

return TCL_ERROR;

15174

}

15175

15176

if (! IbisObj.port_guid)

15177

{

15178

Tcl_SetStringObj(

15179

Tcl_GetObjResult(interp),

15180

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15181

return TCL_ERROR;

15182

}

15183

15184

ibis_tcl_error = 0;

15185

_result = (uint8_t *)_ib_switch_info_def_mcast_not_port_set(_arg0,_arg1);

15186

;

15187

if (ibis_tcl_error) {

15188

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15189

return TCL_ERROR;

15190

}

15191

} tcl_result = Tcl_GetObjResult(interp);

15192

{

15193

char buff[20];

15194

sprintf(buff, "%u", *_result);

15195

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15196

}

15197

return TCL_OK;

15198

}

15199

#define _ib_switch_info_def_mcast_not_port_get(_swigobj) (&_swigobj->def_mcast_not_port)

15200

static int _wrap_sacSwInfo_def_mcast_not_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15201

15202

uint8_t * _result;

15203

sacSwInfo * _arg0;

15204

Tcl_Obj * tcl_result;

15205

char * rettype;

15206

15207

clientData = clientData; objv = objv;

15208

tcl_result = Tcl_GetObjResult(interp);

15209

if ((objc < 2) || (objc > 2)) {

15210

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_def_mcast_not_port_get { sacSwInfo * } ",-1);

15211

return TCL_ERROR;

15212

}

15213

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15214

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_def_mcast_not_port_get. Expected _sacSwInfo_p, received ", -1);

15215

Tcl_AppendToObj(tcl_result, rettype, -1);

15216

return TCL_ERROR;

15217

}

15218

{

15219

/* we can check if IBIS was initialized here */

15220

if (!IbisObj.initialized)

15221

{

15222

Tcl_SetStringObj(

15223

Tcl_GetObjResult(interp),

15224

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15225

return TCL_ERROR;

15226

}

15227

15228

if (! IbisObj.port_guid)

15229

{

15230

Tcl_SetStringObj(

15231

Tcl_GetObjResult(interp),

15232

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15233

return TCL_ERROR;

15234

}

15235

15236

ibis_tcl_error = 0;

15237

_result = (uint8_t *)_ib_switch_info_def_mcast_not_port_get(_arg0);

15238

;

15239

if (ibis_tcl_error) {

15240

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15241

return TCL_ERROR;

15242

}

15243

} tcl_result = Tcl_GetObjResult(interp);

15244

{

15245

char buff[20];

15246

sprintf(buff, "%u", *_result);

15247

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15248

}

15249

return TCL_OK;

15250

}

15251

#define _ib_switch_info_life_state_set(_swigobj,_swigval) (_swigobj->life_state = *(_swigval),_swigval)

15252

static int _wrap_sacSwInfo_life_state_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15253

15254

uint8_t * _result;

15255

sacSwInfo * _arg0;

15256

uint8_t * _arg1;

15257

Tcl_Obj * tcl_result;

15258

char * rettype;

15259

uint8_t temp;

15260

15261

clientData = clientData; objv = objv;

15262

tcl_result = Tcl_GetObjResult(interp);

15263

if ((objc < 3) || (objc > 3)) {

15264

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_life_state_set { sacSwInfo * } { uint8_t * } ",-1);

15265

return TCL_ERROR;

15266

}

15267

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15268

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_life_state_set. Expected _sacSwInfo_p, received ", -1);

15269

Tcl_AppendToObj(tcl_result, rettype, -1);

15270

return TCL_ERROR;

15271

}

15272

{

15273

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

15274

_arg1 = &temp;

15275

}

15276

{

15277

/* we can check if IBIS was initialized here */

15278

if (!IbisObj.initialized)

15279

{

15280

Tcl_SetStringObj(

15281

Tcl_GetObjResult(interp),

15282

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15283

return TCL_ERROR;

15284

}

15285

15286

if (! IbisObj.port_guid)

15287

{

15288

Tcl_SetStringObj(

15289

Tcl_GetObjResult(interp),

15290

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15291

return TCL_ERROR;

15292

}

15293

15294

ibis_tcl_error = 0;

15295

_result = (uint8_t *)_ib_switch_info_life_state_set(_arg0,_arg1);

15296

;

15297

if (ibis_tcl_error) {

15298

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15299

return TCL_ERROR;

15300

}

15301

} tcl_result = Tcl_GetObjResult(interp);

15302

{

15303

char buff[20];

15304

sprintf(buff, "%u", *_result);

15305

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15306

}

15307

return TCL_OK;

15308

}

15309

#define _ib_switch_info_life_state_get(_swigobj) (&_swigobj->life_state)

15310

static int _wrap_sacSwInfo_life_state_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15311

15312

uint8_t * _result;

15313

sacSwInfo * _arg0;

15314

Tcl_Obj * tcl_result;

15315

char * rettype;

15316

15317

clientData = clientData; objv = objv;

15318

tcl_result = Tcl_GetObjResult(interp);

15319

if ((objc < 2) || (objc > 2)) {

15320

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_life_state_get { sacSwInfo * } ",-1);

15321

return TCL_ERROR;

15322

}

15323

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15324

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_life_state_get. Expected _sacSwInfo_p, received ", -1);

15325

Tcl_AppendToObj(tcl_result, rettype, -1);

15326

return TCL_ERROR;

15327

}

15328

{

15329

/* we can check if IBIS was initialized here */

15330

if (!IbisObj.initialized)

15331

{

15332

Tcl_SetStringObj(

15333

Tcl_GetObjResult(interp),

15334

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15335

return TCL_ERROR;

15336

}

15337

15338

if (! IbisObj.port_guid)

15339

{

15340

Tcl_SetStringObj(

15341

Tcl_GetObjResult(interp),

15342

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15343

return TCL_ERROR;

15344

}

15345

15346

ibis_tcl_error = 0;

15347

_result = (uint8_t *)_ib_switch_info_life_state_get(_arg0);

15348

;

15349

if (ibis_tcl_error) {

15350

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15351

return TCL_ERROR;

15352

}

15353

} tcl_result = Tcl_GetObjResult(interp);

15354

{

15355

char buff[20];

15356

sprintf(buff, "%u", *_result);

15357

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15358

}

15359

return TCL_OK;

15360

}

15361

#define _ib_switch_info_lids_per_port_set(_swigobj,_swigval) (_swigobj->lids_per_port = *(_swigval),_swigval)

15362

static int _wrap_sacSwInfo_lids_per_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15363

15364

ib_net16_t * _result;

15365

sacSwInfo * _arg0;

15366

ib_net16_t * _arg1;

15367

Tcl_Obj * tcl_result;

15368

char * rettype;

15369

ib_net16_t temp;

15370

15371

clientData = clientData; objv = objv;

15372

tcl_result = Tcl_GetObjResult(interp);

15373

if ((objc < 3) || (objc > 3)) {

15374

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lids_per_port_set { sacSwInfo * } { ib_net16_t * } ",-1);

15375

return TCL_ERROR;

15376

}

15377

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15378

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lids_per_port_set. Expected _sacSwInfo_p, received ", -1);

15379

Tcl_AppendToObj(tcl_result, rettype, -1);

15380

return TCL_ERROR;

15381

}

15382

{

15383

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

15384

_arg1 = &temp;

15385

}

15386

{

15387

/* we can check if IBIS was initialized here */

15388

if (!IbisObj.initialized)

15389

{

15390

Tcl_SetStringObj(

15391

Tcl_GetObjResult(interp),

15392

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15393

return TCL_ERROR;

15394

}

15395

15396

if (! IbisObj.port_guid)

15397

{

15398

Tcl_SetStringObj(

15399

Tcl_GetObjResult(interp),

15400

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15401

return TCL_ERROR;

15402

}

15403

15404

ibis_tcl_error = 0;

15405

_result = (ib_net16_t *)_ib_switch_info_lids_per_port_set(_arg0,_arg1);

15406

;

15407

if (ibis_tcl_error) {

15408

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15409

return TCL_ERROR;

15410

}

15411

} tcl_result = Tcl_GetObjResult(interp);

15412

{

15413

char buff[20];

15414

sprintf(buff, "%u", cl_hton16(*_result));

15415

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15416

}

15417

return TCL_OK;

15418

}

15419

#define _ib_switch_info_lids_per_port_get(_swigobj) (&_swigobj->lids_per_port)

15420

static int _wrap_sacSwInfo_lids_per_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15421

15422

ib_net16_t * _result;

15423

sacSwInfo * _arg0;

15424

Tcl_Obj * tcl_result;

15425

char * rettype;

15426

15427

clientData = clientData; objv = objv;

15428

tcl_result = Tcl_GetObjResult(interp);

15429

if ((objc < 2) || (objc > 2)) {

15430

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_lids_per_port_get { sacSwInfo * } ",-1);

15431

return TCL_ERROR;

15432

}

15433

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15434

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_lids_per_port_get. Expected _sacSwInfo_p, received ", -1);

15435

Tcl_AppendToObj(tcl_result, rettype, -1);

15436

return TCL_ERROR;

15437

}

15438

{

15439

/* we can check if IBIS was initialized here */

15440

if (!IbisObj.initialized)

15441

{

15442

Tcl_SetStringObj(

15443

Tcl_GetObjResult(interp),

15444

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15445

return TCL_ERROR;

15446

}

15447

15448

if (! IbisObj.port_guid)

15449

{

15450

Tcl_SetStringObj(

15451

Tcl_GetObjResult(interp),

15452

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15453

return TCL_ERROR;

15454

}

15455

15456

ibis_tcl_error = 0;

15457

_result = (ib_net16_t *)_ib_switch_info_lids_per_port_get(_arg0);

15458

;

15459

if (ibis_tcl_error) {

15460

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15461

return TCL_ERROR;

15462

}

15463

} tcl_result = Tcl_GetObjResult(interp);

15464

{

15465

char buff[20];

15466

sprintf(buff, "%u", cl_hton16(*_result));

15467

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15468

}

15469

return TCL_OK;

15470

}

15471

#define _ib_switch_info_enforce_cap_set(_swigobj,_swigval) (_swigobj->enforce_cap = *(_swigval),_swigval)

15472

static int _wrap_sacSwInfo_enforce_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15473

15474

ib_net16_t * _result;

15475

sacSwInfo * _arg0;

15476

ib_net16_t * _arg1;

15477

Tcl_Obj * tcl_result;

15478

char * rettype;

15479

ib_net16_t temp;

15480

15481

clientData = clientData; objv = objv;

15482

tcl_result = Tcl_GetObjResult(interp);

15483

if ((objc < 3) || (objc > 3)) {

15484

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_enforce_cap_set { sacSwInfo * } { ib_net16_t * } ",-1);

15485

return TCL_ERROR;

15486

}

15487

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15488

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_enforce_cap_set. Expected _sacSwInfo_p, received ", -1);

15489

Tcl_AppendToObj(tcl_result, rettype, -1);

15490

return TCL_ERROR;

15491

}

15492

{

15493

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

15494

_arg1 = &temp;

15495

}

15496

{

15497

/* we can check if IBIS was initialized here */

15498

if (!IbisObj.initialized)

15499

{

15500

Tcl_SetStringObj(

15501

Tcl_GetObjResult(interp),

15502

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15503

return TCL_ERROR;

15504

}

15505

15506

if (! IbisObj.port_guid)

15507

{

15508

Tcl_SetStringObj(

15509

Tcl_GetObjResult(interp),

15510

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15511

return TCL_ERROR;

15512

}

15513

15514

ibis_tcl_error = 0;

15515

_result = (ib_net16_t *)_ib_switch_info_enforce_cap_set(_arg0,_arg1);

15516

;

15517

if (ibis_tcl_error) {

15518

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15519

return TCL_ERROR;

15520

}

15521

} tcl_result = Tcl_GetObjResult(interp);

15522

{

15523

char buff[20];

15524

sprintf(buff, "%u", cl_hton16(*_result));

15525

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15526

}

15527

return TCL_OK;

15528

}

15529

#define _ib_switch_info_enforce_cap_get(_swigobj) (&_swigobj->enforce_cap)

15530

static int _wrap_sacSwInfo_enforce_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15531

15532

ib_net16_t * _result;

15533

sacSwInfo * _arg0;

15534

Tcl_Obj * tcl_result;

15535

char * rettype;

15536

15537

clientData = clientData; objv = objv;

15538

tcl_result = Tcl_GetObjResult(interp);

15539

if ((objc < 2) || (objc > 2)) {

15540

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_enforce_cap_get { sacSwInfo * } ",-1);

15541

return TCL_ERROR;

15542

}

15543

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15544

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_enforce_cap_get. Expected _sacSwInfo_p, received ", -1);

15545

Tcl_AppendToObj(tcl_result, rettype, -1);

15546

return TCL_ERROR;

15547

}

15548

{

15549

/* we can check if IBIS was initialized here */

15550

if (!IbisObj.initialized)

15551

{

15552

Tcl_SetStringObj(

15553

Tcl_GetObjResult(interp),

15554

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15555

return TCL_ERROR;

15556

}

15557

15558

if (! IbisObj.port_guid)

15559

{

15560

Tcl_SetStringObj(

15561

Tcl_GetObjResult(interp),

15562

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15563

return TCL_ERROR;

15564

}

15565

15566

ibis_tcl_error = 0;

15567

_result = (ib_net16_t *)_ib_switch_info_enforce_cap_get(_arg0);

15568

;

15569

if (ibis_tcl_error) {

15570

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15571

return TCL_ERROR;

15572

}

15573

} tcl_result = Tcl_GetObjResult(interp);

15574

{

15575

char buff[20];

15576

sprintf(buff, "%u", cl_hton16(*_result));

15577

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15578

}

15579

return TCL_OK;

15580

}

15581

#define _ib_switch_info_flags_set(_swigobj,_swigval) (_swigobj->flags = *(_swigval),_swigval)

15582

static int _wrap_sacSwInfo_flags_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15583

15584

uint8_t * _result;

15585

sacSwInfo * _arg0;

15586

uint8_t * _arg1;

15587

Tcl_Obj * tcl_result;

15588

char * rettype;

15589

uint8_t temp;

15590

15591

clientData = clientData; objv = objv;

15592

tcl_result = Tcl_GetObjResult(interp);

15593

if ((objc < 3) || (objc > 3)) {

15594

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_flags_set { sacSwInfo * } { uint8_t * } ",-1);

15595

return TCL_ERROR;

15596

}

15597

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15598

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_flags_set. Expected _sacSwInfo_p, received ", -1);

15599

Tcl_AppendToObj(tcl_result, rettype, -1);

15600

return TCL_ERROR;

15601

}

15602

{

15603

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

15604

_arg1 = &temp;

15605

}

15606

{

15607

/* we can check if IBIS was initialized here */

15608

if (!IbisObj.initialized)

15609

{

15610

Tcl_SetStringObj(

15611

Tcl_GetObjResult(interp),

15612

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15613

return TCL_ERROR;

15614

}

15615

15616

if (! IbisObj.port_guid)

15617

{

15618

Tcl_SetStringObj(

15619

Tcl_GetObjResult(interp),

15620

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15621

return TCL_ERROR;

15622

}

15623

15624

ibis_tcl_error = 0;

15625

_result = (uint8_t *)_ib_switch_info_flags_set(_arg0,_arg1);

15626

;

15627

if (ibis_tcl_error) {

15628

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15629

return TCL_ERROR;

15630

}

15631

} tcl_result = Tcl_GetObjResult(interp);

15632

{

15633

char buff[20];

15634

sprintf(buff, "%u", *_result);

15635

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15636

}

15637

return TCL_OK;

15638

}

15639

#define _ib_switch_info_flags_get(_swigobj) (&_swigobj->flags)

15640

static int _wrap_sacSwInfo_flags_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15641

15642

uint8_t * _result;

15643

sacSwInfo * _arg0;

15644

Tcl_Obj * tcl_result;

15645

char * rettype;

15646

15647

clientData = clientData; objv = objv;

15648

tcl_result = Tcl_GetObjResult(interp);

15649

if ((objc < 2) || (objc > 2)) {

15650

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_flags_get { sacSwInfo * } ",-1);

15651

return TCL_ERROR;

15652

}

15653

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15654

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_flags_get. Expected _sacSwInfo_p, received ", -1);

15655

Tcl_AppendToObj(tcl_result, rettype, -1);

15656

return TCL_ERROR;

15657

}

15658

{

15659

/* we can check if IBIS was initialized here */

15660

if (!IbisObj.initialized)

15661

{

15662

Tcl_SetStringObj(

15663

Tcl_GetObjResult(interp),

15664

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15665

return TCL_ERROR;

15666

}

15667

15668

if (! IbisObj.port_guid)

15669

{

15670

Tcl_SetStringObj(

15671

Tcl_GetObjResult(interp),

15672

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15673

return TCL_ERROR;

15674

}

15675

15676

ibis_tcl_error = 0;

15677

_result = (uint8_t *)_ib_switch_info_flags_get(_arg0);

15678

;

15679

if (ibis_tcl_error) {

15680

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15681

return TCL_ERROR;

15682

}

15683

} tcl_result = Tcl_GetObjResult(interp);

15684

{

15685

char buff[20];

15686

sprintf(buff, "%u", *_result);

15687

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

15688

}

15689

return TCL_OK;

15690

}

15691

static void sacSwInfo_delete(sacSwInfo *self) {

15692

SWIG_AltMnglUnregObj(self);

15693

free(self);

15694

}

15695

static int _wrap_sacSwInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15696

15697

sacSwInfo * _arg0;

15698

Tcl_Obj * tcl_result;

15699

char * rettype;

15700

15701

clientData = clientData; objv = objv;

15702

tcl_result = Tcl_GetObjResult(interp);

15703

if ((objc < 2) || (objc > 2)) {

15704

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwInfo_delete { sacSwInfo * } ",-1);

15705

return TCL_ERROR;

15706

}

15707

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwInfo_p"))) {

15708

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwInfo_delete. Expected _sacSwInfo_p, received ", -1);

15709

Tcl_AppendToObj(tcl_result, rettype, -1);

15710

return TCL_ERROR;

15711

}

15712

{

15713

/* we can check if IBIS was initialized here */

15714

if (!IbisObj.initialized)

15715

{

15716

Tcl_SetStringObj(

15717

Tcl_GetObjResult(interp),

15718

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

15719

return TCL_ERROR;

15720

}

15721

15722

if (! IbisObj.port_guid)

15723

{

15724

Tcl_SetStringObj(

15725

Tcl_GetObjResult(interp),

15726

" ibis was not yet initialized. please use ibis_set_port before.", -1);

15727

return TCL_ERROR;

15728

}

15729

15730

ibis_tcl_error = 0;

15731

sacSwInfo_delete(_arg0);

15732

;

15733

if (ibis_tcl_error) {

15734

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

15735

return TCL_ERROR;

15736

}

15737

} tcl_result = Tcl_GetObjResult(interp);

15738

return TCL_OK;

15739

}

15740

/* methodcmd8.swg : Tcl8.x method invocation */

15741

15742

static int TclsacSwInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

15743

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

15744

char *_str;

15745

int rcode;

15746

Tcl_Obj **objv;

15747

Tcl_Obj *oldarg,*tcl_result,*obj;

15748

int length;

15749

char c;

15750

15751

tcl_result = Tcl_GetObjResult(interp);

15752

objv = (Tcl_Obj **) _objv;

15753

if (objc < 2) {

15754

Tcl_SetStringObj(tcl_result,"sacSwInfo methods : { dump cget configure delete }",-1);

15755

return TCL_ERROR;

15756

}

15757

obj = Tcl_NewObj();

15758

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSwInfo_p");

15759

_str = Tcl_GetStringFromObj(objv[1],&length);

15760

c = *_str;

15761

if (0);

15762

if (strcmp(_str,"delete") == 0) {

15763

cmd = _wrap_sacSwInfo_delete;

15764

}

15765

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

15766

int i = 2;

15767

cmd = 0;

15768

while (i+1 < objc) {

15769

_str = Tcl_GetStringFromObj(objv[i],&length);

15770

if (strcmp(_str,"-lin_cap") == 0) {

15771

cmd = _wrap_sacSwInfo_lin_cap_set;

15772

} else if (strcmp(_str,"-rand_cap") == 0) {

15773

cmd = _wrap_sacSwInfo_rand_cap_set;

15774

} else if (strcmp(_str,"-mcast_cap") == 0) {

15775

cmd = _wrap_sacSwInfo_mcast_cap_set;

15776

} else if (strcmp(_str,"-lin_top") == 0) {

15777

cmd = _wrap_sacSwInfo_lin_top_set;

15778

} else if (strcmp(_str,"-def_port") == 0) {

15779

cmd = _wrap_sacSwInfo_def_port_set;

15780

} else if (strcmp(_str,"-def_mcast_pri_port") == 0) {

15781

cmd = _wrap_sacSwInfo_def_mcast_pri_port_set;

15782

} else if (strcmp(_str,"-def_mcast_not_port") == 0) {

15783

cmd = _wrap_sacSwInfo_def_mcast_not_port_set;

15784

} else if (strcmp(_str,"-life_state") == 0) {

15785

cmd = _wrap_sacSwInfo_life_state_set;

15786

} else if (strcmp(_str,"-lids_per_port") == 0) {

15787

cmd = _wrap_sacSwInfo_lids_per_port_set;

15788

} else if (strcmp(_str,"-enforce_cap") == 0) {

15789

cmd = _wrap_sacSwInfo_enforce_cap_set;

15790

} else if (strcmp(_str,"-flags") == 0) {

15791

cmd = _wrap_sacSwInfo_flags_set;

15792

}

15793

if (cmd) {

15794

oldarg = objv[i];

15795

objv[i] = obj;

15796

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

15797

objv[i] = oldarg;

15798

if (rcode == TCL_ERROR) return rcode;

15799

cmd = 0;

15800

} else {

15801

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

15802

return TCL_ERROR;

15803

}

15804

i+=2;

15805

}

15806

if ((i < objc) || (i == 2)) {

15807

Tcl_SetStringObj(tcl_result,"{ -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

15808

return TCL_ERROR;

15809

}

15810

return TCL_OK;

15811

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

15812

if (objc == 3) {

15813

_str = Tcl_GetStringFromObj(objv[2],&length);

15814

if (0) {}

15815

if (strcmp(_str,"-lin_cap") == 0) {

15816

cmd = _wrap_sacSwInfo_lin_cap_get;

15817

} else if (strcmp(_str,"-rand_cap") == 0) {

15818

cmd = _wrap_sacSwInfo_rand_cap_get;

15819

} else if (strcmp(_str,"-mcast_cap") == 0) {

15820

cmd = _wrap_sacSwInfo_mcast_cap_get;

15821

} else if (strcmp(_str,"-lin_top") == 0) {

15822

cmd = _wrap_sacSwInfo_lin_top_get;

15823

} else if (strcmp(_str,"-def_port") == 0) {

15824

cmd = _wrap_sacSwInfo_def_port_get;

15825

} else if (strcmp(_str,"-def_mcast_pri_port") == 0) {

15826

cmd = _wrap_sacSwInfo_def_mcast_pri_port_get;

15827

} else if (strcmp(_str,"-def_mcast_not_port") == 0) {

15828

cmd = _wrap_sacSwInfo_def_mcast_not_port_get;

15829

} else if (strcmp(_str,"-life_state") == 0) {

15830

cmd = _wrap_sacSwInfo_life_state_get;

15831

} else if (strcmp(_str,"-lids_per_port") == 0) {

15832

cmd = _wrap_sacSwInfo_lids_per_port_get;

15833

} else if (strcmp(_str,"-enforce_cap") == 0) {

15834

cmd = _wrap_sacSwInfo_enforce_cap_get;

15835

} else if (strcmp(_str,"-flags") == 0) {

15836

cmd = _wrap_sacSwInfo_flags_get;

15837

}

15838

else if (strcmp(_str,"-this") == 0) {

15839

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSwInfo_p");

15840

return TCL_OK;

15841

}

15842

if (cmd) {

15843

oldarg = objv[2];

15844

objv[2] = obj;

15845

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

15846

objv[2] = oldarg;

15847

return rcode;

15848

} else {

15849

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

15850

return TCL_ERROR;

15851

}

15852

} else {

15853

Tcl_SetStringObj(tcl_result,"{ -this -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }", -1);

15854

return TCL_ERROR;

15855

}

15856

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

15857

if (objc == 2) {

15858

Tcl_Obj *pDumpObj;

15859

pDumpObj = Tcl_NewStringObj("",-1);

15860

Tcl_IncrRefCount(pDumpObj);

15861

cmd = _wrap_sacSwInfo_lin_cap_get;

15862

oldarg = objv[2];

15863

objv[2] = obj;

15864

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15865

objv[2] = oldarg;

15866

Tcl_AppendStringsToObj(pDumpObj, "-lin_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15867

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15868

cmd = _wrap_sacSwInfo_rand_cap_get;

15869

oldarg = objv[2];

15870

objv[2] = obj;

15871

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15872

objv[2] = oldarg;

15873

Tcl_AppendStringsToObj(pDumpObj, "-rand_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15874

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15875

cmd = _wrap_sacSwInfo_mcast_cap_get;

15876

oldarg = objv[2];

15877

objv[2] = obj;

15878

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15879

objv[2] = oldarg;

15880

Tcl_AppendStringsToObj(pDumpObj, "-mcast_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15881

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15882

cmd = _wrap_sacSwInfo_lin_top_get;

15883

oldarg = objv[2];

15884

objv[2] = obj;

15885

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15886

objv[2] = oldarg;

15887

Tcl_AppendStringsToObj(pDumpObj, "-lin_top ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15888

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15889

cmd = _wrap_sacSwInfo_def_port_get;

15890

oldarg = objv[2];

15891

objv[2] = obj;

15892

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15893

objv[2] = oldarg;

15894

Tcl_AppendStringsToObj(pDumpObj, "-def_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15895

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15896

cmd = _wrap_sacSwInfo_def_mcast_pri_port_get;

15897

oldarg = objv[2];

15898

objv[2] = obj;

15899

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15900

objv[2] = oldarg;

15901

Tcl_AppendStringsToObj(pDumpObj, "-def_mcast_pri_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15902

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15903

cmd = _wrap_sacSwInfo_def_mcast_not_port_get;

15904

oldarg = objv[2];

15905

objv[2] = obj;

15906

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15907

objv[2] = oldarg;

15908

Tcl_AppendStringsToObj(pDumpObj, "-def_mcast_not_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15909

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15910

cmd = _wrap_sacSwInfo_life_state_get;

15911

oldarg = objv[2];

15912

objv[2] = obj;

15913

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15914

objv[2] = oldarg;

15915

Tcl_AppendStringsToObj(pDumpObj, "-life_state ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15916

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15917

cmd = _wrap_sacSwInfo_lids_per_port_get;

15918

oldarg = objv[2];

15919

objv[2] = obj;

15920

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15921

objv[2] = oldarg;

15922

Tcl_AppendStringsToObj(pDumpObj, "-lids_per_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15923

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15924

cmd = _wrap_sacSwInfo_enforce_cap_get;

15925

oldarg = objv[2];

15926

objv[2] = obj;

15927

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15928

objv[2] = oldarg;

15929

Tcl_AppendStringsToObj(pDumpObj, "-enforce_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15930

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15931

cmd = _wrap_sacSwInfo_flags_get;

15932

oldarg = objv[2];

15933

objv[2] = obj;

15934

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

15935

objv[2] = oldarg;

15936

Tcl_AppendStringsToObj(pDumpObj, "-flags ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

15937

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

15938

15939

Tcl_DecrRefCount(pDumpObj);

15940

return TCL_OK;

15941

} else {

15942

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

15943

return TCL_ERROR;

15944

}

15945

}

15946

if (!cmd) {

15947

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure delete }",-1);

15948

return TCL_ERROR;

15949

}

15950

oldarg = objv[1];

15951

objv[1] = obj;

15952

rcode = (*cmd)(clientData,interp,objc,objv);

15953

objv[1] = oldarg;

15954

return rcode;

15955

}

15956

15957

15958

15959

/* objcmd8.swg : Tcl 8.x object creation */

15960

15961

static int TclsacSwInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

15962

void (*del)(ClientData) = 0;

15963

char *name = 0;

15964

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

15965

sacSwInfo * newObj = 0;

15966

int firstarg = 0;

15967

int thisarg = 0;

15968

int length;

15969

char *_str;

15970

Tcl_Obj *tcl_result;

15971

15972

tcl_result = Tcl_GetObjResult(interp);

15973

if (objc == 1) {

15974

cmd = 0;

15975

} else {

15976

_str = Tcl_GetStringFromObj(objv[1],&length);

15977

if (strcmp(_str,"-this") == 0) thisarg = 2;

15978

else if (strcmp(_str,"-args") == 0) {

15979

firstarg = 1;

15980

cmd = 0;

15981

} else if (objc == 2) {

15982

firstarg = 1;

15983

name = _str;

15984

cmd = 0;

15985

} else if (objc >= 3) {

15986

name = _str;

15987

_str = Tcl_GetStringFromObj(objv[2],&length);

15988

if (strcmp(_str,"-this") == 0) thisarg = 3;

15989

else {

15990

firstarg = 1;

15991

cmd = 0;

15992

}

15993

}

15994

}

15995

if (cmd) {

15996

int result;

15997

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

15998

if (result == TCL_OK) {

15999

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSwInfo_p");

16000

} else { return result; }

16001

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

16002

del = 0;

16003

} else if (thisarg > 0) {

16004

if (thisarg < objc) {

16005

char *r;

16006

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSwInfo_p");

16007

if (r) {

16008

Tcl_SetStringObj(tcl_result,"Type error. not a sacSwInfo object.",-1);

16009

return TCL_ERROR;

16010

}

16011

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

16012

Tcl_SetStringObj(tcl_result,name,-1);

16013

} else {

16014

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

16015

return TCL_ERROR;

16016

}

16017

} else {

16018

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

16019

return TCL_ERROR;

16020

}

16021

{

16022

Tcl_CmdInfo dummy;

16023

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

16024

Tcl_CreateObjCommand(interp,name, TclsacSwInfoMethodCmd, (ClientData) newObj, del);

16025

return TCL_OK;

16026

} else {

16027

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

16028

return TCL_ERROR;

16029

}

16030

}

16031

}

16032

16033

16034

#define _ib_switch_info_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

16035

static int _wrap_sacSwRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16036

16037

ib_net16_t * _result;

16038

sacSwRec * _arg0;

16039

ib_net16_t * _arg1;

16040

Tcl_Obj * tcl_result;

16041

char * rettype;

16042

ib_net16_t temp;

16043

16044

clientData = clientData; objv = objv;

16045

tcl_result = Tcl_GetObjResult(interp);

16046

if ((objc < 3) || (objc > 3)) {

16047

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_lid_set { sacSwRec * } { ib_net16_t * } ",-1);

16048

return TCL_ERROR;

16049

}

16050

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16051

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_lid_set. Expected _sacSwRec_p, received ", -1);

16052

Tcl_AppendToObj(tcl_result, rettype, -1);

16053

return TCL_ERROR;

16054

}

16055

{

16056

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

16057

_arg1 = &temp;

16058

}

16059

{

16060

/* we can check if IBIS was initialized here */

16061

if (!IbisObj.initialized)

16062

{

16063

Tcl_SetStringObj(

16064

Tcl_GetObjResult(interp),

16065

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16066

return TCL_ERROR;

16067

}

16068

16069

if (! IbisObj.port_guid)

16070

{

16071

Tcl_SetStringObj(

16072

Tcl_GetObjResult(interp),

16073

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16074

return TCL_ERROR;

16075

}

16076

16077

ibis_tcl_error = 0;

16078

_result = (ib_net16_t *)_ib_switch_info_record_lid_set(_arg0,_arg1);

16079

;

16080

if (ibis_tcl_error) {

16081

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16082

return TCL_ERROR;

16083

}

16084

} tcl_result = Tcl_GetObjResult(interp);

16085

{

16086

char buff[20];

16087

sprintf(buff, "%u", cl_hton16(*_result));

16088

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16089

}

16090

return TCL_OK;

16091

}

16092

#define _ib_switch_info_record_lid_get(_swigobj) (&_swigobj->lid)

16093

static int _wrap_sacSwRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16094

16095

ib_net16_t * _result;

16096

sacSwRec * _arg0;

16097

Tcl_Obj * tcl_result;

16098

char * rettype;

16099

16100

clientData = clientData; objv = objv;

16101

tcl_result = Tcl_GetObjResult(interp);

16102

if ((objc < 2) || (objc > 2)) {

16103

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_lid_get { sacSwRec * } ",-1);

16104

return TCL_ERROR;

16105

}

16106

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16107

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_lid_get. Expected _sacSwRec_p, received ", -1);

16108

Tcl_AppendToObj(tcl_result, rettype, -1);

16109

return TCL_ERROR;

16110

}

16111

{

16112

/* we can check if IBIS was initialized here */

16113

if (!IbisObj.initialized)

16114

{

16115

Tcl_SetStringObj(

16116

Tcl_GetObjResult(interp),

16117

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16118

return TCL_ERROR;

16119

}

16120

16121

if (! IbisObj.port_guid)

16122

{

16123

Tcl_SetStringObj(

16124

Tcl_GetObjResult(interp),

16125

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16126

return TCL_ERROR;

16127

}

16128

16129

ibis_tcl_error = 0;

16130

_result = (ib_net16_t *)_ib_switch_info_record_lid_get(_arg0);

16131

;

16132

if (ibis_tcl_error) {

16133

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16134

return TCL_ERROR;

16135

}

16136

} tcl_result = Tcl_GetObjResult(interp);

16137

{

16138

char buff[20];

16139

sprintf(buff, "%u", cl_hton16(*_result));

16140

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16141

}

16142

return TCL_OK;

16143

}

16144

#define _ib_switch_info_record_switch_info_set(_swigobj,_swigval) (_swigobj->switch_info = *(_swigval),_swigval)

16145

static int _wrap_sacSwRec_switch_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16146

16147

sacSwInfo * _result;

16148

sacSwRec * _arg0;

16149

sacSwInfo * _arg1;

16150

Tcl_Obj * tcl_result;

16151

char * rettype;

16152

16153

clientData = clientData; objv = objv;

16154

tcl_result = Tcl_GetObjResult(interp);

16155

if ((objc < 3) || (objc > 3)) {

16156

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_switch_info_set { sacSwRec * } { sacSwInfo * } ",-1);

16157

return TCL_ERROR;

16158

}

16159

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16160

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_switch_info_set. Expected _sacSwRec_p, received ", -1);

16161

Tcl_AppendToObj(tcl_result, rettype, -1);

16162

return TCL_ERROR;

16163

}

16164

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacSwInfo_p"))) {

16165

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacSwRec_switch_info_set. Expected _sacSwInfo_p, received ", -1);

16166

Tcl_AppendToObj(tcl_result, rettype, -1);

16167

return TCL_ERROR;

16168

}

16169

{

16170

/* we can check if IBIS was initialized here */

16171

if (!IbisObj.initialized)

16172

{

16173

Tcl_SetStringObj(

16174

Tcl_GetObjResult(interp),

16175

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16176

return TCL_ERROR;

16177

}

16178

16179

if (! IbisObj.port_guid)

16180

{

16181

Tcl_SetStringObj(

16182

Tcl_GetObjResult(interp),

16183

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16184

return TCL_ERROR;

16185

}

16186

16187

ibis_tcl_error = 0;

16188

_result = (sacSwInfo *)_ib_switch_info_record_switch_info_set(_arg0,_arg1);

16189

;

16190

if (ibis_tcl_error) {

16191

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16192

return TCL_ERROR;

16193

}

16194

} tcl_result = Tcl_GetObjResult(interp);

16195

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSwInfo_p");

16196

return TCL_OK;

16197

}

16198

#define _ib_switch_info_record_switch_info_get(_swigobj) (&_swigobj->switch_info)

16199

static int _wrap_sacSwRec_switch_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16200

16201

sacSwInfo * _result;

16202

sacSwRec * _arg0;

16203

Tcl_Obj * tcl_result;

16204

char * rettype;

16205

16206

clientData = clientData; objv = objv;

16207

tcl_result = Tcl_GetObjResult(interp);

16208

if ((objc < 2) || (objc > 2)) {

16209

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_switch_info_get { sacSwRec * } ",-1);

16210

return TCL_ERROR;

16211

}

16212

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16213

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_switch_info_get. Expected _sacSwRec_p, received ", -1);

16214

Tcl_AppendToObj(tcl_result, rettype, -1);

16215

return TCL_ERROR;

16216

}

16217

{

16218

/* we can check if IBIS was initialized here */

16219

if (!IbisObj.initialized)

16220

{

16221

Tcl_SetStringObj(

16222

Tcl_GetObjResult(interp),

16223

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16224

return TCL_ERROR;

16225

}

16226

16227

if (! IbisObj.port_guid)

16228

{

16229

Tcl_SetStringObj(

16230

Tcl_GetObjResult(interp),

16231

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16232

return TCL_ERROR;

16233

}

16234

16235

ibis_tcl_error = 0;

16236

_result = (sacSwInfo *)_ib_switch_info_record_switch_info_get(_arg0);

16237

;

16238

if (ibis_tcl_error) {

16239

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16240

return TCL_ERROR;

16241

}

16242

} tcl_result = Tcl_GetObjResult(interp);

16243

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSwInfo_p");

16244

return TCL_OK;

16245

}

16246

static char * sacSwRec_get(sacSwRec *self,uint64_t comp_mask) {

16247

return(ibsacSwitchInfoRecordQuery(self, cl_hton64(comp_mask),

16248

IB_MAD_METHOD_GET));

16249

}

16250

static int _wrap_sacSwRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16251

16252

char * _result;

16253

sacSwRec * _arg0;

16254

uint64_t * _arg1;

16255

Tcl_Obj * tcl_result;

16256

char * rettype;

16257

uint64_t temp;

16258

16259

clientData = clientData; objv = objv;

16260

tcl_result = Tcl_GetObjResult(interp);

16261

if ((objc < 3) || (objc > 3)) {

16262

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_get { sacSwRec * } comp_mask ",-1);

16263

return TCL_ERROR;

16264

}

16265

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16266

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_get. Expected _sacSwRec_p, received ", -1);

16267

Tcl_AppendToObj(tcl_result, rettype, -1);

16268

return TCL_ERROR;

16269

}

16270

{

16271

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

16272

_arg1 = &temp;

16273

}

16274

{

16275

/* we can check if IBIS was initialized here */

16276

if (!IbisObj.initialized)

16277

{

16278

Tcl_SetStringObj(

16279

Tcl_GetObjResult(interp),

16280

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16281

return TCL_ERROR;

16282

}

16283

16284

if (! IbisObj.port_guid)

16285

{

16286

Tcl_SetStringObj(

16287

Tcl_GetObjResult(interp),

16288

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16289

return TCL_ERROR;

16290

}

16291

16292

ibis_tcl_error = 0;

16293

_result = (char *)sacSwRec_get(_arg0,*_arg1);

16294

;

16295

if (ibis_tcl_error) {

16296

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16297

return TCL_ERROR;

16298

}

16299

} tcl_result = Tcl_GetObjResult(interp);

16300

Tcl_SetStringObj(tcl_result,_result,-1);

16301

free(_result);

16302

16303

return TCL_OK;

16304

}

16305

static char * sacSwRec_getTable(sacSwRec *self,uint64_t comp_mask) {

16306

return(ibsacSwitchInfoRecordQuery(self, cl_hton64(comp_mask),

16307

IB_MAD_METHOD_GETTABLE));

16308

}

16309

static int _wrap_sacSwRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16310

16311

char * _result;

16312

sacSwRec * _arg0;

16313

uint64_t * _arg1;

16314

Tcl_Obj * tcl_result;

16315

char * rettype;

16316

uint64_t temp;

16317

16318

clientData = clientData; objv = objv;

16319

tcl_result = Tcl_GetObjResult(interp);

16320

if ((objc < 3) || (objc > 3)) {

16321

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_getTable { sacSwRec * } comp_mask ",-1);

16322

return TCL_ERROR;

16323

}

16324

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16325

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_getTable. Expected _sacSwRec_p, received ", -1);

16326

Tcl_AppendToObj(tcl_result, rettype, -1);

16327

return TCL_ERROR;

16328

}

16329

{

16330

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

16331

_arg1 = &temp;

16332

}

16333

{

16334

/* we can check if IBIS was initialized here */

16335

if (!IbisObj.initialized)

16336

{

16337

Tcl_SetStringObj(

16338

Tcl_GetObjResult(interp),

16339

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16340

return TCL_ERROR;

16341

}

16342

16343

if (! IbisObj.port_guid)

16344

{

16345

Tcl_SetStringObj(

16346

Tcl_GetObjResult(interp),

16347

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16348

return TCL_ERROR;

16349

}

16350

16351

ibis_tcl_error = 0;

16352

_result = (char *)sacSwRec_getTable(_arg0,*_arg1);

16353

;

16354

if (ibis_tcl_error) {

16355

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16356

return TCL_ERROR;

16357

}

16358

} tcl_result = Tcl_GetObjResult(interp);

16359

Tcl_SetStringObj(tcl_result,_result,-1);

16360

free(_result);

16361

16362

return TCL_OK;

16363

}

16364

static void sacSwRec_delete(sacSwRec *self) {

16365

/* we need to de-register both the node info and node record */

16366

SWIG_AltMnglUnregObj(&(self->switch_info));

16367

SWIG_AltMnglUnregObj(self);

16368

free(self);

16369

}

16370

static int _wrap_sacSwRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16371

16372

sacSwRec * _arg0;

16373

Tcl_Obj * tcl_result;

16374

char * rettype;

16375

16376

clientData = clientData; objv = objv;

16377

tcl_result = Tcl_GetObjResult(interp);

16378

if ((objc < 2) || (objc > 2)) {

16379

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSwRec_delete { sacSwRec * } ",-1);

16380

return TCL_ERROR;

16381

}

16382

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSwRec_p"))) {

16383

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSwRec_delete. Expected _sacSwRec_p, received ", -1);

16384

Tcl_AppendToObj(tcl_result, rettype, -1);

16385

return TCL_ERROR;

16386

}

16387

{

16388

/* we can check if IBIS was initialized here */

16389

if (!IbisObj.initialized)

16390

{

16391

Tcl_SetStringObj(

16392

Tcl_GetObjResult(interp),

16393

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16394

return TCL_ERROR;

16395

}

16396

16397

if (! IbisObj.port_guid)

16398

{

16399

Tcl_SetStringObj(

16400

Tcl_GetObjResult(interp),

16401

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16402

return TCL_ERROR;

16403

}

16404

16405

ibis_tcl_error = 0;

16406

sacSwRec_delete(_arg0);

16407

;

16408

if (ibis_tcl_error) {

16409

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16410

return TCL_ERROR;

16411

}

16412

} tcl_result = Tcl_GetObjResult(interp);

16413

return TCL_OK;

16414

}

16415

/* methodcmd8.swg : Tcl8.x method invocation */

16416

16417

static int TclsacSwRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

16418

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

16419

char *_str;

16420

int rcode;

16421

Tcl_Obj **objv;

16422

Tcl_Obj *oldarg,*tcl_result,*obj;

16423

int length;

16424

char c;

16425

16426

tcl_result = Tcl_GetObjResult(interp);

16427

objv = (Tcl_Obj **) _objv;

16428

if (objc < 2) {

16429

Tcl_SetStringObj(tcl_result,"sacSwRec methods : { dump cget configure get getTable delete }",-1);

16430

return TCL_ERROR;

16431

}

16432

obj = Tcl_NewObj();

16433

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSwRec_p");

16434

_str = Tcl_GetStringFromObj(objv[1],&length);

16435

c = *_str;

16436

if (0);

16437

if (strcmp(_str,"get") == 0) {

16438

cmd = _wrap_sacSwRec_get;

16439

} else if (strcmp(_str,"getTable") == 0) {

16440

cmd = _wrap_sacSwRec_getTable;

16441

} else if (strcmp(_str,"delete") == 0) {

16442

cmd = _wrap_sacSwRec_delete;

16443

}

16444

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

16445

int i = 2;

16446

cmd = 0;

16447

while (i+1 < objc) {

16448

_str = Tcl_GetStringFromObj(objv[i],&length);

16449

if (strcmp(_str,"-lid") == 0) {

16450

cmd = _wrap_sacSwRec_lid_set;

16451

} else if (strcmp(_str,"-switch_info") == 0) {

16452

cmd = _wrap_sacSwRec_switch_info_set;

16453

}

16454

if (cmd) {

16455

oldarg = objv[i];

16456

objv[i] = obj;

16457

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

16458

objv[i] = oldarg;

16459

if (rcode == TCL_ERROR) return rcode;

16460

cmd = 0;

16461

} else {

16462

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -switch_info }",-1);

16463

return TCL_ERROR;

16464

}

16465

i+=2;

16466

}

16467

if ((i < objc) || (i == 2)) {

16468

Tcl_SetStringObj(tcl_result,"{ -lid -switch_info }",-1);

16469

return TCL_ERROR;

16470

}

16471

return TCL_OK;

16472

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

16473

if (objc == 3) {

16474

_str = Tcl_GetStringFromObj(objv[2],&length);

16475

if (0) {}

16476

if (strcmp(_str,"-lid") == 0) {

16477

cmd = _wrap_sacSwRec_lid_get;

16478

} else if (strcmp(_str,"-switch_info") == 0) {

16479

cmd = _wrap_sacSwRec_switch_info_get;

16480

}

16481

else if (strcmp(_str,"-this") == 0) {

16482

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSwRec_p");

16483

return TCL_OK;

16484

}

16485

if (cmd) {

16486

oldarg = objv[2];

16487

objv[2] = obj;

16488

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

16489

objv[2] = oldarg;

16490

return rcode;

16491

} else {

16492

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -switch_info }",-1);

16493

return TCL_ERROR;

16494

}

16495

} else {

16496

Tcl_SetStringObj(tcl_result,"{ -this -lid -switch_info }", -1);

16497

return TCL_ERROR;

16498

}

16499

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

16500

if (objc == 2) {

16501

Tcl_Obj *pDumpObj;

16502

pDumpObj = Tcl_NewStringObj("",-1);

16503

Tcl_IncrRefCount(pDumpObj);

16504

cmd = _wrap_sacSwRec_lid_get;

16505

oldarg = objv[2];

16506

objv[2] = obj;

16507

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

16508

objv[2] = oldarg;

16509

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

16510

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

16511

cmd = _wrap_sacSwRec_switch_info_get;

16512

oldarg = objv[2];

16513

objv[2] = obj;

16514

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

16515

objv[2] = oldarg;

16516

Tcl_AppendStringsToObj(pDumpObj, "-switch_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

16517

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

16518

16519

Tcl_DecrRefCount(pDumpObj);

16520

return TCL_OK;

16521

} else {

16522

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

16523

return TCL_ERROR;

16524

}

16525

}

16526

if (!cmd) {

16527

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

16528

return TCL_ERROR;

16529

}

16530

oldarg = objv[1];

16531

objv[1] = obj;

16532

rcode = (*cmd)(clientData,interp,objc,objv);

16533

objv[1] = oldarg;

16534

return rcode;

16535

}

16536

16537

16538

16539

/* objcmd8.swg : Tcl 8.x object creation */

16540

16541

static int TclsacSwRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16542

void (*del)(ClientData) = 0;

16543

char *name = 0;

16544

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

16545

sacSwRec * newObj = 0;

16546

int firstarg = 0;

16547

int thisarg = 0;

16548

int length;

16549

char *_str;

16550

Tcl_Obj *tcl_result;

16551

16552

tcl_result = Tcl_GetObjResult(interp);

16553

if (objc == 1) {

16554

cmd = 0;

16555

} else {

16556

_str = Tcl_GetStringFromObj(objv[1],&length);

16557

if (strcmp(_str,"-this") == 0) thisarg = 2;

16558

else if (strcmp(_str,"-args") == 0) {

16559

firstarg = 1;

16560

cmd = 0;

16561

} else if (objc == 2) {

16562

firstarg = 1;

16563

name = _str;

16564

cmd = 0;

16565

} else if (objc >= 3) {

16566

name = _str;

16567

_str = Tcl_GetStringFromObj(objv[2],&length);

16568

if (strcmp(_str,"-this") == 0) thisarg = 3;

16569

else {

16570

firstarg = 1;

16571

cmd = 0;

16572

}

16573

}

16574

}

16575

if (cmd) {

16576

int result;

16577

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

16578

if (result == TCL_OK) {

16579

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSwRec_p");

16580

} else { return result; }

16581

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

16582

del = 0;

16583

} else if (thisarg > 0) {

16584

if (thisarg < objc) {

16585

char *r;

16586

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSwRec_p");

16587

if (r) {

16588

Tcl_SetStringObj(tcl_result,"Type error. not a sacSwRec object.",-1);

16589

return TCL_ERROR;

16590

}

16591

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

16592

Tcl_SetStringObj(tcl_result,name,-1);

16593

} else {

16594

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

16595

return TCL_ERROR;

16596

}

16597

} else {

16598

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

16599

return TCL_ERROR;

16600

}

16601

{

16602

Tcl_CmdInfo dummy;

16603

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

16604

Tcl_CreateObjCommand(interp,name, TclsacSwRecMethodCmd, (ClientData) newObj, del);

16605

return TCL_OK;

16606

} else {

16607

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

16608

return TCL_ERROR;

16609

}

16610

}

16611

}

16612

16613

16614

#define _ib_link_record_from_lid_set(_swigobj,_swigval) (_swigobj->from_lid = *(_swigval),_swigval)

16615

static int _wrap_sacLinkRec_from_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16616

16617

ib_net16_t * _result;

16618

sacLinkRec * _arg0;

16619

ib_net16_t * _arg1;

16620

Tcl_Obj * tcl_result;

16621

char * rettype;

16622

ib_net16_t temp;

16623

16624

clientData = clientData; objv = objv;

16625

tcl_result = Tcl_GetObjResult(interp);

16626

if ((objc < 3) || (objc > 3)) {

16627

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_from_lid_set { sacLinkRec * } { ib_net16_t * } ",-1);

16628

return TCL_ERROR;

16629

}

16630

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16631

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_from_lid_set. Expected _sacLinkRec_p, received ", -1);

16632

Tcl_AppendToObj(tcl_result, rettype, -1);

16633

return TCL_ERROR;

16634

}

16635

{

16636

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

16637

_arg1 = &temp;

16638

}

16639

{

16640

/* we can check if IBIS was initialized here */

16641

if (!IbisObj.initialized)

16642

{

16643

Tcl_SetStringObj(

16644

Tcl_GetObjResult(interp),

16645

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16646

return TCL_ERROR;

16647

}

16648

16649

if (! IbisObj.port_guid)

16650

{

16651

Tcl_SetStringObj(

16652

Tcl_GetObjResult(interp),

16653

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16654

return TCL_ERROR;

16655

}

16656

16657

ibis_tcl_error = 0;

16658

_result = (ib_net16_t *)_ib_link_record_from_lid_set(_arg0,_arg1);

16659

;

16660

if (ibis_tcl_error) {

16661

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16662

return TCL_ERROR;

16663

}

16664

} tcl_result = Tcl_GetObjResult(interp);

16665

{

16666

char buff[20];

16667

sprintf(buff, "%u", cl_hton16(*_result));

16668

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16669

}

16670

return TCL_OK;

16671

}

16672

#define _ib_link_record_from_lid_get(_swigobj) (&_swigobj->from_lid)

16673

static int _wrap_sacLinkRec_from_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16674

16675

ib_net16_t * _result;

16676

sacLinkRec * _arg0;

16677

Tcl_Obj * tcl_result;

16678

char * rettype;

16679

16680

clientData = clientData; objv = objv;

16681

tcl_result = Tcl_GetObjResult(interp);

16682

if ((objc < 2) || (objc > 2)) {

16683

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_from_lid_get { sacLinkRec * } ",-1);

16684

return TCL_ERROR;

16685

}

16686

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16687

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_from_lid_get. Expected _sacLinkRec_p, received ", -1);

16688

Tcl_AppendToObj(tcl_result, rettype, -1);

16689

return TCL_ERROR;

16690

}

16691

{

16692

/* we can check if IBIS was initialized here */

16693

if (!IbisObj.initialized)

16694

{

16695

Tcl_SetStringObj(

16696

Tcl_GetObjResult(interp),

16697

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16698

return TCL_ERROR;

16699

}

16700

16701

if (! IbisObj.port_guid)

16702

{

16703

Tcl_SetStringObj(

16704

Tcl_GetObjResult(interp),

16705

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16706

return TCL_ERROR;

16707

}

16708

16709

ibis_tcl_error = 0;

16710

_result = (ib_net16_t *)_ib_link_record_from_lid_get(_arg0);

16711

;

16712

if (ibis_tcl_error) {

16713

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16714

return TCL_ERROR;

16715

}

16716

} tcl_result = Tcl_GetObjResult(interp);

16717

{

16718

char buff[20];

16719

sprintf(buff, "%u", cl_hton16(*_result));

16720

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16721

}

16722

return TCL_OK;

16723

}

16724

#define _ib_link_record_from_port_num_set(_swigobj,_swigval) (_swigobj->from_port_num = *(_swigval),_swigval)

16725

static int _wrap_sacLinkRec_from_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16726

16727

uint8_t * _result;

16728

sacLinkRec * _arg0;

16729

uint8_t * _arg1;

16730

Tcl_Obj * tcl_result;

16731

char * rettype;

16732

uint8_t temp;

16733

16734

clientData = clientData; objv = objv;

16735

tcl_result = Tcl_GetObjResult(interp);

16736

if ((objc < 3) || (objc > 3)) {

16737

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_from_port_num_set { sacLinkRec * } { uint8_t * } ",-1);

16738

return TCL_ERROR;

16739

}

16740

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16741

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_from_port_num_set. Expected _sacLinkRec_p, received ", -1);

16742

Tcl_AppendToObj(tcl_result, rettype, -1);

16743

return TCL_ERROR;

16744

}

16745

{

16746

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

16747

_arg1 = &temp;

16748

}

16749

{

16750

/* we can check if IBIS was initialized here */

16751

if (!IbisObj.initialized)

16752

{

16753

Tcl_SetStringObj(

16754

Tcl_GetObjResult(interp),

16755

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16756

return TCL_ERROR;

16757

}

16758

16759

if (! IbisObj.port_guid)

16760

{

16761

Tcl_SetStringObj(

16762

Tcl_GetObjResult(interp),

16763

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16764

return TCL_ERROR;

16765

}

16766

16767

ibis_tcl_error = 0;

16768

_result = (uint8_t *)_ib_link_record_from_port_num_set(_arg0,_arg1);

16769

;

16770

if (ibis_tcl_error) {

16771

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16772

return TCL_ERROR;

16773

}

16774

} tcl_result = Tcl_GetObjResult(interp);

16775

{

16776

char buff[20];

16777

sprintf(buff, "%u", *_result);

16778

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16779

}

16780

return TCL_OK;

16781

}

16782

#define _ib_link_record_from_port_num_get(_swigobj) (&_swigobj->from_port_num)

16783

static int _wrap_sacLinkRec_from_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16784

16785

uint8_t * _result;

16786

sacLinkRec * _arg0;

16787

Tcl_Obj * tcl_result;

16788

char * rettype;

16789

16790

clientData = clientData; objv = objv;

16791

tcl_result = Tcl_GetObjResult(interp);

16792

if ((objc < 2) || (objc > 2)) {

16793

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_from_port_num_get { sacLinkRec * } ",-1);

16794

return TCL_ERROR;

16795

}

16796

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16797

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_from_port_num_get. Expected _sacLinkRec_p, received ", -1);

16798

Tcl_AppendToObj(tcl_result, rettype, -1);

16799

return TCL_ERROR;

16800

}

16801

{

16802

/* we can check if IBIS was initialized here */

16803

if (!IbisObj.initialized)

16804

{

16805

Tcl_SetStringObj(

16806

Tcl_GetObjResult(interp),

16807

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16808

return TCL_ERROR;

16809

}

16810

16811

if (! IbisObj.port_guid)

16812

{

16813

Tcl_SetStringObj(

16814

Tcl_GetObjResult(interp),

16815

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16816

return TCL_ERROR;

16817

}

16818

16819

ibis_tcl_error = 0;

16820

_result = (uint8_t *)_ib_link_record_from_port_num_get(_arg0);

16821

;

16822

if (ibis_tcl_error) {

16823

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16824

return TCL_ERROR;

16825

}

16826

} tcl_result = Tcl_GetObjResult(interp);

16827

{

16828

char buff[20];

16829

sprintf(buff, "%u", *_result);

16830

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16831

}

16832

return TCL_OK;

16833

}

16834

#define _ib_link_record_to_port_num_set(_swigobj,_swigval) (_swigobj->to_port_num = *(_swigval),_swigval)

16835

static int _wrap_sacLinkRec_to_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16836

16837

uint8_t * _result;

16838

sacLinkRec * _arg0;

16839

uint8_t * _arg1;

16840

Tcl_Obj * tcl_result;

16841

char * rettype;

16842

uint8_t temp;

16843

16844

clientData = clientData; objv = objv;

16845

tcl_result = Tcl_GetObjResult(interp);

16846

if ((objc < 3) || (objc > 3)) {

16847

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_to_port_num_set { sacLinkRec * } { uint8_t * } ",-1);

16848

return TCL_ERROR;

16849

}

16850

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16851

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_to_port_num_set. Expected _sacLinkRec_p, received ", -1);

16852

Tcl_AppendToObj(tcl_result, rettype, -1);

16853

return TCL_ERROR;

16854

}

16855

{

16856

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

16857

_arg1 = &temp;

16858

}

16859

{

16860

/* we can check if IBIS was initialized here */

16861

if (!IbisObj.initialized)

16862

{

16863

Tcl_SetStringObj(

16864

Tcl_GetObjResult(interp),

16865

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16866

return TCL_ERROR;

16867

}

16868

16869

if (! IbisObj.port_guid)

16870

{

16871

Tcl_SetStringObj(

16872

Tcl_GetObjResult(interp),

16873

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16874

return TCL_ERROR;

16875

}

16876

16877

ibis_tcl_error = 0;

16878

_result = (uint8_t *)_ib_link_record_to_port_num_set(_arg0,_arg1);

16879

;

16880

if (ibis_tcl_error) {

16881

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16882

return TCL_ERROR;

16883

}

16884

} tcl_result = Tcl_GetObjResult(interp);

16885

{

16886

char buff[20];

16887

sprintf(buff, "%u", *_result);

16888

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16889

}

16890

return TCL_OK;

16891

}

16892

#define _ib_link_record_to_port_num_get(_swigobj) (&_swigobj->to_port_num)

16893

static int _wrap_sacLinkRec_to_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16894

16895

uint8_t * _result;

16896

sacLinkRec * _arg0;

16897

Tcl_Obj * tcl_result;

16898

char * rettype;

16899

16900

clientData = clientData; objv = objv;

16901

tcl_result = Tcl_GetObjResult(interp);

16902

if ((objc < 2) || (objc > 2)) {

16903

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_to_port_num_get { sacLinkRec * } ",-1);

16904

return TCL_ERROR;

16905

}

16906

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16907

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_to_port_num_get. Expected _sacLinkRec_p, received ", -1);

16908

Tcl_AppendToObj(tcl_result, rettype, -1);

16909

return TCL_ERROR;

16910

}

16911

{

16912

/* we can check if IBIS was initialized here */

16913

if (!IbisObj.initialized)

16914

{

16915

Tcl_SetStringObj(

16916

Tcl_GetObjResult(interp),

16917

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16918

return TCL_ERROR;

16919

}

16920

16921

if (! IbisObj.port_guid)

16922

{

16923

Tcl_SetStringObj(

16924

Tcl_GetObjResult(interp),

16925

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16926

return TCL_ERROR;

16927

}

16928

16929

ibis_tcl_error = 0;

16930

_result = (uint8_t *)_ib_link_record_to_port_num_get(_arg0);

16931

;

16932

if (ibis_tcl_error) {

16933

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16934

return TCL_ERROR;

16935

}

16936

} tcl_result = Tcl_GetObjResult(interp);

16937

{

16938

char buff[20];

16939

sprintf(buff, "%u", *_result);

16940

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16941

}

16942

return TCL_OK;

16943

}

16944

#define _ib_link_record_to_lid_set(_swigobj,_swigval) (_swigobj->to_lid = *(_swigval),_swigval)

16945

static int _wrap_sacLinkRec_to_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

16946

16947

ib_net16_t * _result;

16948

sacLinkRec * _arg0;

16949

ib_net16_t * _arg1;

16950

Tcl_Obj * tcl_result;

16951

char * rettype;

16952

ib_net16_t temp;

16953

16954

clientData = clientData; objv = objv;

16955

tcl_result = Tcl_GetObjResult(interp);

16956

if ((objc < 3) || (objc > 3)) {

16957

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_to_lid_set { sacLinkRec * } { ib_net16_t * } ",-1);

16958

return TCL_ERROR;

16959

}

16960

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

16961

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_to_lid_set. Expected _sacLinkRec_p, received ", -1);

16962

Tcl_AppendToObj(tcl_result, rettype, -1);

16963

return TCL_ERROR;

16964

}

16965

{

16966

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

16967

_arg1 = &temp;

16968

}

16969

{

16970

/* we can check if IBIS was initialized here */

16971

if (!IbisObj.initialized)

16972

{

16973

Tcl_SetStringObj(

16974

Tcl_GetObjResult(interp),

16975

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

16976

return TCL_ERROR;

16977

}

16978

16979

if (! IbisObj.port_guid)

16980

{

16981

Tcl_SetStringObj(

16982

Tcl_GetObjResult(interp),

16983

" ibis was not yet initialized. please use ibis_set_port before.", -1);

16984

return TCL_ERROR;

16985

}

16986

16987

ibis_tcl_error = 0;

16988

_result = (ib_net16_t *)_ib_link_record_to_lid_set(_arg0,_arg1);

16989

;

16990

if (ibis_tcl_error) {

16991

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

16992

return TCL_ERROR;

16993

}

16994

} tcl_result = Tcl_GetObjResult(interp);

16995

{

16996

char buff[20];

16997

sprintf(buff, "%u", cl_hton16(*_result));

16998

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

16999

}

17000

return TCL_OK;

17001

}

17002

#define _ib_link_record_to_lid_get(_swigobj) (&_swigobj->to_lid)

17003

static int _wrap_sacLinkRec_to_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17004

17005

ib_net16_t * _result;

17006

sacLinkRec * _arg0;

17007

Tcl_Obj * tcl_result;

17008

char * rettype;

17009

17010

clientData = clientData; objv = objv;

17011

tcl_result = Tcl_GetObjResult(interp);

17012

if ((objc < 2) || (objc > 2)) {

17013

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_to_lid_get { sacLinkRec * } ",-1);

17014

return TCL_ERROR;

17015

}

17016

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

17017

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_to_lid_get. Expected _sacLinkRec_p, received ", -1);

17018

Tcl_AppendToObj(tcl_result, rettype, -1);

17019

return TCL_ERROR;

17020

}

17021

{

17022

/* we can check if IBIS was initialized here */

17023

if (!IbisObj.initialized)

17024

{

17025

Tcl_SetStringObj(

17026

Tcl_GetObjResult(interp),

17027

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17028

return TCL_ERROR;

17029

}

17030

17031

if (! IbisObj.port_guid)

17032

{

17033

Tcl_SetStringObj(

17034

Tcl_GetObjResult(interp),

17035

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17036

return TCL_ERROR;

17037

}

17038

17039

ibis_tcl_error = 0;

17040

_result = (ib_net16_t *)_ib_link_record_to_lid_get(_arg0);

17041

;

17042

if (ibis_tcl_error) {

17043

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17044

return TCL_ERROR;

17045

}

17046

} tcl_result = Tcl_GetObjResult(interp);

17047

{

17048

char buff[20];

17049

sprintf(buff, "%u", cl_hton16(*_result));

17050

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17051

}

17052

return TCL_OK;

17053

}

17054

static char * sacLinkRec_get(sacLinkRec *self,uint64_t comp_mask) {

17055

return(ibsacLinkRecordQuery(self, cl_hton64(comp_mask),

17056

IB_MAD_METHOD_GET));

17057

}

17058

static int _wrap_sacLinkRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17059

17060

char * _result;

17061

sacLinkRec * _arg0;

17062

uint64_t * _arg1;

17063

Tcl_Obj * tcl_result;

17064

char * rettype;

17065

uint64_t temp;

17066

17067

clientData = clientData; objv = objv;

17068

tcl_result = Tcl_GetObjResult(interp);

17069

if ((objc < 3) || (objc > 3)) {

17070

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_get { sacLinkRec * } comp_mask ",-1);

17071

return TCL_ERROR;

17072

}

17073

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

17074

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_get. Expected _sacLinkRec_p, received ", -1);

17075

Tcl_AppendToObj(tcl_result, rettype, -1);

17076

return TCL_ERROR;

17077

}

17078

{

17079

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

17080

_arg1 = &temp;

17081

}

17082

{

17083

/* we can check if IBIS was initialized here */

17084

if (!IbisObj.initialized)

17085

{

17086

Tcl_SetStringObj(

17087

Tcl_GetObjResult(interp),

17088

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17089

return TCL_ERROR;

17090

}

17091

17092

if (! IbisObj.port_guid)

17093

{

17094

Tcl_SetStringObj(

17095

Tcl_GetObjResult(interp),

17096

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17097

return TCL_ERROR;

17098

}

17099

17100

ibis_tcl_error = 0;

17101

_result = (char *)sacLinkRec_get(_arg0,*_arg1);

17102

;

17103

if (ibis_tcl_error) {

17104

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17105

return TCL_ERROR;

17106

}

17107

} tcl_result = Tcl_GetObjResult(interp);

17108

Tcl_SetStringObj(tcl_result,_result,-1);

17109

free(_result);

17110

17111

return TCL_OK;

17112

}

17113

static char * sacLinkRec_getTable(sacLinkRec *self,uint64_t comp_mask) {

17114

return(ibsacLinkRecordQuery(self, cl_hton64(comp_mask),

17115

IB_MAD_METHOD_GETTABLE));

17116

}

17117

static int _wrap_sacLinkRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17118

17119

char * _result;

17120

sacLinkRec * _arg0;

17121

uint64_t * _arg1;

17122

Tcl_Obj * tcl_result;

17123

char * rettype;

17124

uint64_t temp;

17125

17126

clientData = clientData; objv = objv;

17127

tcl_result = Tcl_GetObjResult(interp);

17128

if ((objc < 3) || (objc > 3)) {

17129

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_getTable { sacLinkRec * } comp_mask ",-1);

17130

return TCL_ERROR;

17131

}

17132

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

17133

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_getTable. Expected _sacLinkRec_p, received ", -1);

17134

Tcl_AppendToObj(tcl_result, rettype, -1);

17135

return TCL_ERROR;

17136

}

17137

{

17138

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

17139

_arg1 = &temp;

17140

}

17141

{

17142

/* we can check if IBIS was initialized here */

17143

if (!IbisObj.initialized)

17144

{

17145

Tcl_SetStringObj(

17146

Tcl_GetObjResult(interp),

17147

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17148

return TCL_ERROR;

17149

}

17150

17151

if (! IbisObj.port_guid)

17152

{

17153

Tcl_SetStringObj(

17154

Tcl_GetObjResult(interp),

17155

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17156

return TCL_ERROR;

17157

}

17158

17159

ibis_tcl_error = 0;

17160

_result = (char *)sacLinkRec_getTable(_arg0,*_arg1);

17161

;

17162

if (ibis_tcl_error) {

17163

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17164

return TCL_ERROR;

17165

}

17166

} tcl_result = Tcl_GetObjResult(interp);

17167

Tcl_SetStringObj(tcl_result,_result,-1);

17168

free(_result);

17169

17170

return TCL_OK;

17171

}

17172

static void sacLinkRec_delete(sacLinkRec *self) {

17173

SWIG_AltMnglUnregObj(self);

17174

free(self);

17175

}

17176

static int _wrap_sacLinkRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17177

17178

sacLinkRec * _arg0;

17179

Tcl_Obj * tcl_result;

17180

char * rettype;

17181

17182

clientData = clientData; objv = objv;

17183

tcl_result = Tcl_GetObjResult(interp);

17184

if ((objc < 2) || (objc > 2)) {

17185

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLinkRec_delete { sacLinkRec * } ",-1);

17186

return TCL_ERROR;

17187

}

17188

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLinkRec_p"))) {

17189

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLinkRec_delete. Expected _sacLinkRec_p, received ", -1);

17190

Tcl_AppendToObj(tcl_result, rettype, -1);

17191

return TCL_ERROR;

17192

}

17193

{

17194

/* we can check if IBIS was initialized here */

17195

if (!IbisObj.initialized)

17196

{

17197

Tcl_SetStringObj(

17198

Tcl_GetObjResult(interp),

17199

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17200

return TCL_ERROR;

17201

}

17202

17203

if (! IbisObj.port_guid)

17204

{

17205

Tcl_SetStringObj(

17206

Tcl_GetObjResult(interp),

17207

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17208

return TCL_ERROR;

17209

}

17210

17211

ibis_tcl_error = 0;

17212

sacLinkRec_delete(_arg0);

17213

;

17214

if (ibis_tcl_error) {

17215

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17216

return TCL_ERROR;

17217

}

17218

} tcl_result = Tcl_GetObjResult(interp);

17219

return TCL_OK;

17220

}

17221

/* methodcmd8.swg : Tcl8.x method invocation */

17222

17223

static int TclsacLinkRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

17224

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

17225

char *_str;

17226

int rcode;

17227

Tcl_Obj **objv;

17228

Tcl_Obj *oldarg,*tcl_result,*obj;

17229

int length;

17230

char c;

17231

17232

tcl_result = Tcl_GetObjResult(interp);

17233

objv = (Tcl_Obj **) _objv;

17234

if (objc < 2) {

17235

Tcl_SetStringObj(tcl_result,"sacLinkRec methods : { dump cget configure get getTable delete }",-1);

17236

return TCL_ERROR;

17237

}

17238

obj = Tcl_NewObj();

17239

SWIG_SetPointerObj(obj,(void *) clientData,"_sacLinkRec_p");

17240

_str = Tcl_GetStringFromObj(objv[1],&length);

17241

c = *_str;

17242

if (0);

17243

if (strcmp(_str,"get") == 0) {

17244

cmd = _wrap_sacLinkRec_get;

17245

} else if (strcmp(_str,"getTable") == 0) {

17246

cmd = _wrap_sacLinkRec_getTable;

17247

} else if (strcmp(_str,"delete") == 0) {

17248

cmd = _wrap_sacLinkRec_delete;

17249

}

17250

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

17251

int i = 2;

17252

cmd = 0;

17253

while (i+1 < objc) {

17254

_str = Tcl_GetStringFromObj(objv[i],&length);

17255

if (strcmp(_str,"-from_lid") == 0) {

17256

cmd = _wrap_sacLinkRec_from_lid_set;

17257

} else if (strcmp(_str,"-from_port_num") == 0) {

17258

cmd = _wrap_sacLinkRec_from_port_num_set;

17259

} else if (strcmp(_str,"-to_port_num") == 0) {

17260

cmd = _wrap_sacLinkRec_to_port_num_set;

17261

} else if (strcmp(_str,"-to_lid") == 0) {

17262

cmd = _wrap_sacLinkRec_to_lid_set;

17263

}

17264

if (cmd) {

17265

oldarg = objv[i];

17266

objv[i] = obj;

17267

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

17268

objv[i] = oldarg;

17269

if (rcode == TCL_ERROR) return rcode;

17270

cmd = 0;

17271

} else {

17272

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -from_lid -from_port_num -to_port_num -to_lid }",-1);

17273

return TCL_ERROR;

17274

}

17275

i+=2;

17276

}

17277

if ((i < objc) || (i == 2)) {

17278

Tcl_SetStringObj(tcl_result,"{ -from_lid -from_port_num -to_port_num -to_lid }",-1);

17279

return TCL_ERROR;

17280

}

17281

return TCL_OK;

17282

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

17283

if (objc == 3) {

17284

_str = Tcl_GetStringFromObj(objv[2],&length);

17285

if (0) {}

17286

if (strcmp(_str,"-from_lid") == 0) {

17287

cmd = _wrap_sacLinkRec_from_lid_get;

17288

} else if (strcmp(_str,"-from_port_num") == 0) {

17289

cmd = _wrap_sacLinkRec_from_port_num_get;

17290

} else if (strcmp(_str,"-to_port_num") == 0) {

17291

cmd = _wrap_sacLinkRec_to_port_num_get;

17292

} else if (strcmp(_str,"-to_lid") == 0) {

17293

cmd = _wrap_sacLinkRec_to_lid_get;

17294

}

17295

else if (strcmp(_str,"-this") == 0) {

17296

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacLinkRec_p");

17297

return TCL_OK;

17298

}

17299

if (cmd) {

17300

oldarg = objv[2];

17301

objv[2] = obj;

17302

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

17303

objv[2] = oldarg;

17304

return rcode;

17305

} else {

17306

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -from_lid -from_port_num -to_port_num -to_lid }",-1);

17307

return TCL_ERROR;

17308

}

17309

} else {

17310

Tcl_SetStringObj(tcl_result,"{ -this -from_lid -from_port_num -to_port_num -to_lid }", -1);

17311

return TCL_ERROR;

17312

}

17313

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

17314

if (objc == 2) {

17315

Tcl_Obj *pDumpObj;

17316

pDumpObj = Tcl_NewStringObj("",-1);

17317

Tcl_IncrRefCount(pDumpObj);

17318

cmd = _wrap_sacLinkRec_from_lid_get;

17319

oldarg = objv[2];

17320

objv[2] = obj;

17321

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

17322

objv[2] = oldarg;

17323

Tcl_AppendStringsToObj(pDumpObj, "-from_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

17324

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

17325

cmd = _wrap_sacLinkRec_from_port_num_get;

17326

oldarg = objv[2];

17327

objv[2] = obj;

17328

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

17329

objv[2] = oldarg;

17330

Tcl_AppendStringsToObj(pDumpObj, "-from_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

17331

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

17332

cmd = _wrap_sacLinkRec_to_port_num_get;

17333

oldarg = objv[2];

17334

objv[2] = obj;

17335

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

17336

objv[2] = oldarg;

17337

Tcl_AppendStringsToObj(pDumpObj, "-to_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

17338

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

17339

cmd = _wrap_sacLinkRec_to_lid_get;

17340

oldarg = objv[2];

17341

objv[2] = obj;

17342

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

17343

objv[2] = oldarg;

17344

Tcl_AppendStringsToObj(pDumpObj, "-to_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

17345

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

17346

17347

Tcl_DecrRefCount(pDumpObj);

17348

return TCL_OK;

17349

} else {

17350

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

17351

return TCL_ERROR;

17352

}

17353

}

17354

if (!cmd) {

17355

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

17356

return TCL_ERROR;

17357

}

17358

oldarg = objv[1];

17359

objv[1] = obj;

17360

rcode = (*cmd)(clientData,interp,objc,objv);

17361

objv[1] = oldarg;

17362

return rcode;

17363

}

17364

17365

17366

17367

/* objcmd8.swg : Tcl 8.x object creation */

17368

17369

static int TclsacLinkRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17370

void (*del)(ClientData) = 0;

17371

char *name = 0;

17372

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

17373

sacLinkRec * newObj = 0;

17374

int firstarg = 0;

17375

int thisarg = 0;

17376

int length;

17377

char *_str;

17378

Tcl_Obj *tcl_result;

17379

17380

tcl_result = Tcl_GetObjResult(interp);

17381

if (objc == 1) {

17382

cmd = 0;

17383

} else {

17384

_str = Tcl_GetStringFromObj(objv[1],&length);

17385

if (strcmp(_str,"-this") == 0) thisarg = 2;

17386

else if (strcmp(_str,"-args") == 0) {

17387

firstarg = 1;

17388

cmd = 0;

17389

} else if (objc == 2) {

17390

firstarg = 1;

17391

name = _str;

17392

cmd = 0;

17393

} else if (objc >= 3) {

17394

name = _str;

17395

_str = Tcl_GetStringFromObj(objv[2],&length);

17396

if (strcmp(_str,"-this") == 0) thisarg = 3;

17397

else {

17398

firstarg = 1;

17399

cmd = 0;

17400

}

17401

}

17402

}

17403

if (cmd) {

17404

int result;

17405

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

17406

if (result == TCL_OK) {

17407

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacLinkRec_p");

17408

} else { return result; }

17409

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

17410

del = 0;

17411

} else if (thisarg > 0) {

17412

if (thisarg < objc) {

17413

char *r;

17414

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacLinkRec_p");

17415

if (r) {

17416

Tcl_SetStringObj(tcl_result,"Type error. not a sacLinkRec object.",-1);

17417

return TCL_ERROR;

17418

}

17419

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

17420

Tcl_SetStringObj(tcl_result,name,-1);

17421

} else {

17422

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

17423

return TCL_ERROR;

17424

}

17425

} else {

17426

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

17427

return TCL_ERROR;

17428

}

17429

{

17430

Tcl_CmdInfo dummy;

17431

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

17432

Tcl_CreateObjCommand(interp,name, TclsacLinkRecMethodCmd, (ClientData) newObj, del);

17433

return TCL_OK;

17434

} else {

17435

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

17436

return TCL_ERROR;

17437

}

17438

}

17439

}

17440

17441

17442

#define _ib_path_rec_service_id_set(_swigobj,_swigval) (_swigobj->service_id = *(_swigval),_swigval)

17443

static int _wrap_sacPathRec_service_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17444

17445

ib_net64_t * _result;

17446

sacPathRec * _arg0;

17447

ib_net64_t * _arg1;

17448

Tcl_Obj * tcl_result;

17449

char * rettype;

17450

uint64_t temp;

17451

17452

clientData = clientData; objv = objv;

17453

tcl_result = Tcl_GetObjResult(interp);

17454

if ((objc < 3) || (objc > 3)) {

17455

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_service_id_set { sacPathRec * } { ib_net64_t * } ",-1);

17456

return TCL_ERROR;

17457

}

17458

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17459

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_service_id_set. Expected _sacPathRec_p, received ", -1);

17460

Tcl_AppendToObj(tcl_result, rettype, -1);

17461

return TCL_ERROR;

17462

}

17463

{

17464

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

17465

_arg1 = &temp;

17466

}

17467

{

17468

/* we can check if IBIS was initialized here */

17469

if (!IbisObj.initialized)

17470

{

17471

Tcl_SetStringObj(

17472

Tcl_GetObjResult(interp),

17473

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17474

return TCL_ERROR;

17475

}

17476

17477

if (! IbisObj.port_guid)

17478

{

17479

Tcl_SetStringObj(

17480

Tcl_GetObjResult(interp),

17481

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17482

return TCL_ERROR;

17483

}

17484

17485

ibis_tcl_error = 0;

17486

_result = (ib_net64_t *)_ib_path_rec_service_id_set(_arg0,_arg1);

17487

;

17488

if (ibis_tcl_error) {

17489

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17490

return TCL_ERROR;

17491

}

17492

} tcl_result = Tcl_GetObjResult(interp);

17493

{

17494

char buff[20];

17495

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

17496

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17497

}

17498

return TCL_OK;

17499

}

17500

#define _ib_path_rec_service_id_get(_swigobj) (&_swigobj->service_id)

17501

static int _wrap_sacPathRec_service_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17502

17503

ib_net64_t * _result;

17504

sacPathRec * _arg0;

17505

Tcl_Obj * tcl_result;

17506

char * rettype;

17507

17508

clientData = clientData; objv = objv;

17509

tcl_result = Tcl_GetObjResult(interp);

17510

if ((objc < 2) || (objc > 2)) {

17511

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_service_id_get { sacPathRec * } ",-1);

17512

return TCL_ERROR;

17513

}

17514

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17515

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_service_id_get. Expected _sacPathRec_p, received ", -1);

17516

Tcl_AppendToObj(tcl_result, rettype, -1);

17517

return TCL_ERROR;

17518

}

17519

{

17520

/* we can check if IBIS was initialized here */

17521

if (!IbisObj.initialized)

17522

{

17523

Tcl_SetStringObj(

17524

Tcl_GetObjResult(interp),

17525

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17526

return TCL_ERROR;

17527

}

17528

17529

if (! IbisObj.port_guid)

17530

{

17531

Tcl_SetStringObj(

17532

Tcl_GetObjResult(interp),

17533

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17534

return TCL_ERROR;

17535

}

17536

17537

ibis_tcl_error = 0;

17538

_result = (ib_net64_t *)_ib_path_rec_service_id_get(_arg0);

17539

;

17540

if (ibis_tcl_error) {

17541

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17542

return TCL_ERROR;

17543

}

17544

} tcl_result = Tcl_GetObjResult(interp);

17545

{

17546

char buff[20];

17547

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

17548

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17549

}

17550

return TCL_OK;

17551

}

17552

#define _ib_path_rec_dgid_set(_swigobj,_swigval) (_swigobj->dgid = *(_swigval),_swigval)

17553

static int _wrap_sacPathRec_dgid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17554

17555

ib_gid_t * _result;

17556

sacPathRec * _arg0;

17557

ib_gid_t * _arg1;

17558

Tcl_Obj * tcl_result;

17559

char * rettype;

17560

ib_gid_t temp;

17561

17562

clientData = clientData; objv = objv;

17563

tcl_result = Tcl_GetObjResult(interp);

17564

if ((objc < 3) || (objc > 3)) {

17565

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_dgid_set { sacPathRec * } { ib_gid_t * } ",-1);

17566

return TCL_ERROR;

17567

}

17568

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17569

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_dgid_set. Expected _sacPathRec_p, received ", -1);

17570

Tcl_AppendToObj(tcl_result, rettype, -1);

17571

return TCL_ERROR;

17572

}

17573

{

17574

char buf[40];

17575

char *p_prefix, *p_guid;

17576

char *str_token = NULL;

17577

17578

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

17579

p_prefix = strtok_r(buf,":", &str_token);

17580

if (! p_prefix)

17581

{

17582

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

17583

return TCL_ERROR;

17584

}

17585

p_guid = strtok_r(NULL, " ", &str_token);

17586

if (! p_guid)

17587

{

17588

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

17589

return TCL_ERROR;

17590

}

17591

17592

errno = 0;

17593

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

17594

if (errno) {

17595

printf("Wrong format for gid prefix:%s\n", p_prefix);

17596

return TCL_ERROR;

17597

}

17598

17599

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

17600

if (errno) {

17601

printf("Wrong format for gid guid:%s\n", p_guid);

17602

return TCL_ERROR;

17603

}

17604

17605

_arg1 = &temp;

17606

}

17607

{

17608

/* we can check if IBIS was initialized here */

17609

if (!IbisObj.initialized)

17610

{

17611

Tcl_SetStringObj(

17612

Tcl_GetObjResult(interp),

17613

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17614

return TCL_ERROR;

17615

}

17616

17617

if (! IbisObj.port_guid)

17618

{

17619

Tcl_SetStringObj(

17620

Tcl_GetObjResult(interp),

17621

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17622

return TCL_ERROR;

17623

}

17624

17625

ibis_tcl_error = 0;

17626

_result = (ib_gid_t *)_ib_path_rec_dgid_set(_arg0,_arg1);

17627

;

17628

if (ibis_tcl_error) {

17629

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17630

return TCL_ERROR;

17631

}

17632

} tcl_result = Tcl_GetObjResult(interp);

17633

{

17634

char buff[38];

17635

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

17636

cl_ntoh64(_result->unicast.prefix),

17637

cl_ntoh64(_result->unicast.interface_id)

17638

);

17639

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17640

}

17641

return TCL_OK;

17642

}

17643

#define _ib_path_rec_dgid_get(_swigobj) (&_swigobj->dgid)

17644

static int _wrap_sacPathRec_dgid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17645

17646

ib_gid_t * _result;

17647

sacPathRec * _arg0;

17648

Tcl_Obj * tcl_result;

17649

char * rettype;

17650

17651

clientData = clientData; objv = objv;

17652

tcl_result = Tcl_GetObjResult(interp);

17653

if ((objc < 2) || (objc > 2)) {

17654

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_dgid_get { sacPathRec * } ",-1);

17655

return TCL_ERROR;

17656

}

17657

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17658

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_dgid_get. Expected _sacPathRec_p, received ", -1);

17659

Tcl_AppendToObj(tcl_result, rettype, -1);

17660

return TCL_ERROR;

17661

}

17662

{

17663

/* we can check if IBIS was initialized here */

17664

if (!IbisObj.initialized)

17665

{

17666

Tcl_SetStringObj(

17667

Tcl_GetObjResult(interp),

17668

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17669

return TCL_ERROR;

17670

}

17671

17672

if (! IbisObj.port_guid)

17673

{

17674

Tcl_SetStringObj(

17675

Tcl_GetObjResult(interp),

17676

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17677

return TCL_ERROR;

17678

}

17679

17680

ibis_tcl_error = 0;

17681

_result = (ib_gid_t *)_ib_path_rec_dgid_get(_arg0);

17682

;

17683

if (ibis_tcl_error) {

17684

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17685

return TCL_ERROR;

17686

}

17687

} tcl_result = Tcl_GetObjResult(interp);

17688

{

17689

char buff[38];

17690

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

17691

cl_ntoh64(_result->unicast.prefix),

17692

cl_ntoh64(_result->unicast.interface_id)

17693

);

17694

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17695

}

17696

return TCL_OK;

17697

}

17698

#define _ib_path_rec_sgid_set(_swigobj,_swigval) (_swigobj->sgid = *(_swigval),_swigval)

17699

static int _wrap_sacPathRec_sgid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17700

17701

ib_gid_t * _result;

17702

sacPathRec * _arg0;

17703

ib_gid_t * _arg1;

17704

Tcl_Obj * tcl_result;

17705

char * rettype;

17706

ib_gid_t temp;

17707

17708

clientData = clientData; objv = objv;

17709

tcl_result = Tcl_GetObjResult(interp);

17710

if ((objc < 3) || (objc > 3)) {

17711

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_sgid_set { sacPathRec * } { ib_gid_t * } ",-1);

17712

return TCL_ERROR;

17713

}

17714

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17715

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_sgid_set. Expected _sacPathRec_p, received ", -1);

17716

Tcl_AppendToObj(tcl_result, rettype, -1);

17717

return TCL_ERROR;

17718

}

17719

{

17720

char buf[40];

17721

char *p_prefix, *p_guid;

17722

char *str_token = NULL;

17723

17724

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

17725

p_prefix = strtok_r(buf,":", &str_token);

17726

if (! p_prefix)

17727

{

17728

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

17729

return TCL_ERROR;

17730

}

17731

p_guid = strtok_r(NULL, " ", &str_token);

17732

if (! p_guid)

17733

{

17734

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

17735

return TCL_ERROR;

17736

}

17737

17738

errno = 0;

17739

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

17740

if (errno) {

17741

printf("Wrong format for gid prefix:%s\n", p_prefix);

17742

return TCL_ERROR;

17743

}

17744

17745

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

17746

if (errno) {

17747

printf("Wrong format for gid guid:%s\n", p_guid);

17748

return TCL_ERROR;

17749

}

17750

17751

_arg1 = &temp;

17752

}

17753

{

17754

/* we can check if IBIS was initialized here */

17755

if (!IbisObj.initialized)

17756

{

17757

Tcl_SetStringObj(

17758

Tcl_GetObjResult(interp),

17759

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17760

return TCL_ERROR;

17761

}

17762

17763

if (! IbisObj.port_guid)

17764

{

17765

Tcl_SetStringObj(

17766

Tcl_GetObjResult(interp),

17767

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17768

return TCL_ERROR;

17769

}

17770

17771

ibis_tcl_error = 0;

17772

_result = (ib_gid_t *)_ib_path_rec_sgid_set(_arg0,_arg1);

17773

;

17774

if (ibis_tcl_error) {

17775

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17776

return TCL_ERROR;

17777

}

17778

} tcl_result = Tcl_GetObjResult(interp);

17779

{

17780

char buff[38];

17781

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

17782

cl_ntoh64(_result->unicast.prefix),

17783

cl_ntoh64(_result->unicast.interface_id)

17784

);

17785

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17786

}

17787

return TCL_OK;

17788

}

17789

#define _ib_path_rec_sgid_get(_swigobj) (&_swigobj->sgid)

17790

static int _wrap_sacPathRec_sgid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17791

17792

ib_gid_t * _result;

17793

sacPathRec * _arg0;

17794

Tcl_Obj * tcl_result;

17795

char * rettype;

17796

17797

clientData = clientData; objv = objv;

17798

tcl_result = Tcl_GetObjResult(interp);

17799

if ((objc < 2) || (objc > 2)) {

17800

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_sgid_get { sacPathRec * } ",-1);

17801

return TCL_ERROR;

17802

}

17803

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17804

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_sgid_get. Expected _sacPathRec_p, received ", -1);

17805

Tcl_AppendToObj(tcl_result, rettype, -1);

17806

return TCL_ERROR;

17807

}

17808

{

17809

/* we can check if IBIS was initialized here */

17810

if (!IbisObj.initialized)

17811

{

17812

Tcl_SetStringObj(

17813

Tcl_GetObjResult(interp),

17814

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17815

return TCL_ERROR;

17816

}

17817

17818

if (! IbisObj.port_guid)

17819

{

17820

Tcl_SetStringObj(

17821

Tcl_GetObjResult(interp),

17822

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17823

return TCL_ERROR;

17824

}

17825

17826

ibis_tcl_error = 0;

17827

_result = (ib_gid_t *)_ib_path_rec_sgid_get(_arg0);

17828

;

17829

if (ibis_tcl_error) {

17830

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17831

return TCL_ERROR;

17832

}

17833

} tcl_result = Tcl_GetObjResult(interp);

17834

{

17835

char buff[38];

17836

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

17837

cl_ntoh64(_result->unicast.prefix),

17838

cl_ntoh64(_result->unicast.interface_id)

17839

);

17840

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17841

}

17842

return TCL_OK;

17843

}

17844

#define _ib_path_rec_dlid_set(_swigobj,_swigval) (_swigobj->dlid = *(_swigval),_swigval)

17845

static int _wrap_sacPathRec_dlid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17846

17847

ib_net16_t * _result;

17848

sacPathRec * _arg0;

17849

ib_net16_t * _arg1;

17850

Tcl_Obj * tcl_result;

17851

char * rettype;

17852

ib_net16_t temp;

17853

17854

clientData = clientData; objv = objv;

17855

tcl_result = Tcl_GetObjResult(interp);

17856

if ((objc < 3) || (objc > 3)) {

17857

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_dlid_set { sacPathRec * } { ib_net16_t * } ",-1);

17858

return TCL_ERROR;

17859

}

17860

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17861

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_dlid_set. Expected _sacPathRec_p, received ", -1);

17862

Tcl_AppendToObj(tcl_result, rettype, -1);

17863

return TCL_ERROR;

17864

}

17865

{

17866

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

17867

_arg1 = &temp;

17868

}

17869

{

17870

/* we can check if IBIS was initialized here */

17871

if (!IbisObj.initialized)

17872

{

17873

Tcl_SetStringObj(

17874

Tcl_GetObjResult(interp),

17875

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17876

return TCL_ERROR;

17877

}

17878

17879

if (! IbisObj.port_guid)

17880

{

17881

Tcl_SetStringObj(

17882

Tcl_GetObjResult(interp),

17883

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17884

return TCL_ERROR;

17885

}

17886

17887

ibis_tcl_error = 0;

17888

_result = (ib_net16_t *)_ib_path_rec_dlid_set(_arg0,_arg1);

17889

;

17890

if (ibis_tcl_error) {

17891

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17892

return TCL_ERROR;

17893

}

17894

} tcl_result = Tcl_GetObjResult(interp);

17895

{

17896

char buff[20];

17897

sprintf(buff, "%u", cl_hton16(*_result));

17898

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17899

}

17900

return TCL_OK;

17901

}

17902

#define _ib_path_rec_dlid_get(_swigobj) (&_swigobj->dlid)

17903

static int _wrap_sacPathRec_dlid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17904

17905

ib_net16_t * _result;

17906

sacPathRec * _arg0;

17907

Tcl_Obj * tcl_result;

17908

char * rettype;

17909

17910

clientData = clientData; objv = objv;

17911

tcl_result = Tcl_GetObjResult(interp);

17912

if ((objc < 2) || (objc > 2)) {

17913

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_dlid_get { sacPathRec * } ",-1);

17914

return TCL_ERROR;

17915

}

17916

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17917

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_dlid_get. Expected _sacPathRec_p, received ", -1);

17918

Tcl_AppendToObj(tcl_result, rettype, -1);

17919

return TCL_ERROR;

17920

}

17921

{

17922

/* we can check if IBIS was initialized here */

17923

if (!IbisObj.initialized)

17924

{

17925

Tcl_SetStringObj(

17926

Tcl_GetObjResult(interp),

17927

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17928

return TCL_ERROR;

17929

}

17930

17931

if (! IbisObj.port_guid)

17932

{

17933

Tcl_SetStringObj(

17934

Tcl_GetObjResult(interp),

17935

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17936

return TCL_ERROR;

17937

}

17938

17939

ibis_tcl_error = 0;

17940

_result = (ib_net16_t *)_ib_path_rec_dlid_get(_arg0);

17941

;

17942

if (ibis_tcl_error) {

17943

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

17944

return TCL_ERROR;

17945

}

17946

} tcl_result = Tcl_GetObjResult(interp);

17947

{

17948

char buff[20];

17949

sprintf(buff, "%u", cl_hton16(*_result));

17950

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

17951

}

17952

return TCL_OK;

17953

}

17954

#define _ib_path_rec_slid_set(_swigobj,_swigval) (_swigobj->slid = *(_swigval),_swigval)

17955

static int _wrap_sacPathRec_slid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

17956

17957

ib_net16_t * _result;

17958

sacPathRec * _arg0;

17959

ib_net16_t * _arg1;

17960

Tcl_Obj * tcl_result;

17961

char * rettype;

17962

ib_net16_t temp;

17963

17964

clientData = clientData; objv = objv;

17965

tcl_result = Tcl_GetObjResult(interp);

17966

if ((objc < 3) || (objc > 3)) {

17967

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_slid_set { sacPathRec * } { ib_net16_t * } ",-1);

17968

return TCL_ERROR;

17969

}

17970

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

17971

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_slid_set. Expected _sacPathRec_p, received ", -1);

17972

Tcl_AppendToObj(tcl_result, rettype, -1);

17973

return TCL_ERROR;

17974

}

17975

{

17976

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

17977

_arg1 = &temp;

17978

}

17979

{

17980

/* we can check if IBIS was initialized here */

17981

if (!IbisObj.initialized)

17982

{

17983

Tcl_SetStringObj(

17984

Tcl_GetObjResult(interp),

17985

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

17986

return TCL_ERROR;

17987

}

17988

17989

if (! IbisObj.port_guid)

17990

{

17991

Tcl_SetStringObj(

17992

Tcl_GetObjResult(interp),

17993

" ibis was not yet initialized. please use ibis_set_port before.", -1);

17994

return TCL_ERROR;

17995

}

17996

17997

ibis_tcl_error = 0;

17998

_result = (ib_net16_t *)_ib_path_rec_slid_set(_arg0,_arg1);

17999

;

18000

if (ibis_tcl_error) {

18001

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18002

return TCL_ERROR;

18003

}

18004

} tcl_result = Tcl_GetObjResult(interp);

18005

{

18006

char buff[20];

18007

sprintf(buff, "%u", cl_hton16(*_result));

18008

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18009

}

18010

return TCL_OK;

18011

}

18012

#define _ib_path_rec_slid_get(_swigobj) (&_swigobj->slid)

18013

static int _wrap_sacPathRec_slid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18014

18015

ib_net16_t * _result;

18016

sacPathRec * _arg0;

18017

Tcl_Obj * tcl_result;

18018

char * rettype;

18019

18020

clientData = clientData; objv = objv;

18021

tcl_result = Tcl_GetObjResult(interp);

18022

if ((objc < 2) || (objc > 2)) {

18023

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_slid_get { sacPathRec * } ",-1);

18024

return TCL_ERROR;

18025

}

18026

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18027

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_slid_get. Expected _sacPathRec_p, received ", -1);

18028

Tcl_AppendToObj(tcl_result, rettype, -1);

18029

return TCL_ERROR;

18030

}

18031

{

18032

/* we can check if IBIS was initialized here */

18033

if (!IbisObj.initialized)

18034

{

18035

Tcl_SetStringObj(

18036

Tcl_GetObjResult(interp),

18037

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18038

return TCL_ERROR;

18039

}

18040

18041

if (! IbisObj.port_guid)

18042

{

18043

Tcl_SetStringObj(

18044

Tcl_GetObjResult(interp),

18045

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18046

return TCL_ERROR;

18047

}

18048

18049

ibis_tcl_error = 0;

18050

_result = (ib_net16_t *)_ib_path_rec_slid_get(_arg0);

18051

;

18052

if (ibis_tcl_error) {

18053

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18054

return TCL_ERROR;

18055

}

18056

} tcl_result = Tcl_GetObjResult(interp);

18057

{

18058

char buff[20];

18059

sprintf(buff, "%u", cl_hton16(*_result));

18060

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18061

}

18062

return TCL_OK;

18063

}

18064

#define _ib_path_rec_hop_flow_raw_set(_swigobj,_swigval) (_swigobj->hop_flow_raw = *(_swigval),_swigval)

18065

static int _wrap_sacPathRec_hop_flow_raw_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18066

18067

ib_net32_t * _result;

18068

sacPathRec * _arg0;

18069

ib_net32_t * _arg1;

18070

Tcl_Obj * tcl_result;

18071

char * rettype;

18072

ib_net32_t temp;

18073

18074

clientData = clientData; objv = objv;

18075

tcl_result = Tcl_GetObjResult(interp);

18076

if ((objc < 3) || (objc > 3)) {

18077

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_hop_flow_raw_set { sacPathRec * } { ib_net32_t * } ",-1);

18078

return TCL_ERROR;

18079

}

18080

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18081

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_hop_flow_raw_set. Expected _sacPathRec_p, received ", -1);

18082

Tcl_AppendToObj(tcl_result, rettype, -1);

18083

return TCL_ERROR;

18084

}

18085

{

18086

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

18087

_arg1 = &temp;

18088

}

18089

{

18090

/* we can check if IBIS was initialized here */

18091

if (!IbisObj.initialized)

18092

{

18093

Tcl_SetStringObj(

18094

Tcl_GetObjResult(interp),

18095

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18096

return TCL_ERROR;

18097

}

18098

18099

if (! IbisObj.port_guid)

18100

{

18101

Tcl_SetStringObj(

18102

Tcl_GetObjResult(interp),

18103

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18104

return TCL_ERROR;

18105

}

18106

18107

ibis_tcl_error = 0;

18108

_result = (ib_net32_t *)_ib_path_rec_hop_flow_raw_set(_arg0,_arg1);

18109

;

18110

if (ibis_tcl_error) {

18111

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18112

return TCL_ERROR;

18113

}

18114

} tcl_result = Tcl_GetObjResult(interp);

18115

{

18116

char buff[20];

18117

sprintf(buff, "%u", cl_ntoh32(*_result));

18118

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18119

}

18120

return TCL_OK;

18121

}

18122

#define _ib_path_rec_hop_flow_raw_get(_swigobj) (&_swigobj->hop_flow_raw)

18123

static int _wrap_sacPathRec_hop_flow_raw_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18124

18125

ib_net32_t * _result;

18126

sacPathRec * _arg0;

18127

Tcl_Obj * tcl_result;

18128

char * rettype;

18129

18130

clientData = clientData; objv = objv;

18131

tcl_result = Tcl_GetObjResult(interp);

18132

if ((objc < 2) || (objc > 2)) {

18133

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_hop_flow_raw_get { sacPathRec * } ",-1);

18134

return TCL_ERROR;

18135

}

18136

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18137

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_hop_flow_raw_get. Expected _sacPathRec_p, received ", -1);

18138

Tcl_AppendToObj(tcl_result, rettype, -1);

18139

return TCL_ERROR;

18140

}

18141

{

18142

/* we can check if IBIS was initialized here */

18143

if (!IbisObj.initialized)

18144

{

18145

Tcl_SetStringObj(

18146

Tcl_GetObjResult(interp),

18147

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18148

return TCL_ERROR;

18149

}

18150

18151

if (! IbisObj.port_guid)

18152

{

18153

Tcl_SetStringObj(

18154

Tcl_GetObjResult(interp),

18155

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18156

return TCL_ERROR;

18157

}

18158

18159

ibis_tcl_error = 0;

18160

_result = (ib_net32_t *)_ib_path_rec_hop_flow_raw_get(_arg0);

18161

;

18162

if (ibis_tcl_error) {

18163

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18164

return TCL_ERROR;

18165

}

18166

} tcl_result = Tcl_GetObjResult(interp);

18167

{

18168

char buff[20];

18169

sprintf(buff, "%u", cl_ntoh32(*_result));

18170

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18171

}

18172

return TCL_OK;

18173

}

18174

#define _ib_path_rec_tclass_set(_swigobj,_swigval) (_swigobj->tclass = *(_swigval),_swigval)

18175

static int _wrap_sacPathRec_tclass_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18176

18177

uint8_t * _result;

18178

sacPathRec * _arg0;

18179

uint8_t * _arg1;

18180

Tcl_Obj * tcl_result;

18181

char * rettype;

18182

uint8_t temp;

18183

18184

clientData = clientData; objv = objv;

18185

tcl_result = Tcl_GetObjResult(interp);

18186

if ((objc < 3) || (objc > 3)) {

18187

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_tclass_set { sacPathRec * } { uint8_t * } ",-1);

18188

return TCL_ERROR;

18189

}

18190

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18191

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_tclass_set. Expected _sacPathRec_p, received ", -1);

18192

Tcl_AppendToObj(tcl_result, rettype, -1);

18193

return TCL_ERROR;

18194

}

18195

{

18196

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18197

_arg1 = &temp;

18198

}

18199

{

18200

/* we can check if IBIS was initialized here */

18201

if (!IbisObj.initialized)

18202

{

18203

Tcl_SetStringObj(

18204

Tcl_GetObjResult(interp),

18205

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18206

return TCL_ERROR;

18207

}

18208

18209

if (! IbisObj.port_guid)

18210

{

18211

Tcl_SetStringObj(

18212

Tcl_GetObjResult(interp),

18213

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18214

return TCL_ERROR;

18215

}

18216

18217

ibis_tcl_error = 0;

18218

_result = (uint8_t *)_ib_path_rec_tclass_set(_arg0,_arg1);

18219

;

18220

if (ibis_tcl_error) {

18221

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18222

return TCL_ERROR;

18223

}

18224

} tcl_result = Tcl_GetObjResult(interp);

18225

{

18226

char buff[20];

18227

sprintf(buff, "%u", *_result);

18228

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18229

}

18230

return TCL_OK;

18231

}

18232

#define _ib_path_rec_tclass_get(_swigobj) (&_swigobj->tclass)

18233

static int _wrap_sacPathRec_tclass_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18234

18235

uint8_t * _result;

18236

sacPathRec * _arg0;

18237

Tcl_Obj * tcl_result;

18238

char * rettype;

18239

18240

clientData = clientData; objv = objv;

18241

tcl_result = Tcl_GetObjResult(interp);

18242

if ((objc < 2) || (objc > 2)) {

18243

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_tclass_get { sacPathRec * } ",-1);

18244

return TCL_ERROR;

18245

}

18246

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18247

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_tclass_get. Expected _sacPathRec_p, received ", -1);

18248

Tcl_AppendToObj(tcl_result, rettype, -1);

18249

return TCL_ERROR;

18250

}

18251

{

18252

/* we can check if IBIS was initialized here */

18253

if (!IbisObj.initialized)

18254

{

18255

Tcl_SetStringObj(

18256

Tcl_GetObjResult(interp),

18257

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18258

return TCL_ERROR;

18259

}

18260

18261

if (! IbisObj.port_guid)

18262

{

18263

Tcl_SetStringObj(

18264

Tcl_GetObjResult(interp),

18265

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18266

return TCL_ERROR;

18267

}

18268

18269

ibis_tcl_error = 0;

18270

_result = (uint8_t *)_ib_path_rec_tclass_get(_arg0);

18271

;

18272

if (ibis_tcl_error) {

18273

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18274

return TCL_ERROR;

18275

}

18276

} tcl_result = Tcl_GetObjResult(interp);

18277

{

18278

char buff[20];

18279

sprintf(buff, "%u", *_result);

18280

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18281

}

18282

return TCL_OK;

18283

}

18284

#define _ib_path_rec_num_path_set(_swigobj,_swigval) (_swigobj->num_path = *(_swigval),_swigval)

18285

static int _wrap_sacPathRec_num_path_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18286

18287

uint8_t * _result;

18288

sacPathRec * _arg0;

18289

uint8_t * _arg1;

18290

Tcl_Obj * tcl_result;

18291

char * rettype;

18292

uint8_t temp;

18293

18294

clientData = clientData; objv = objv;

18295

tcl_result = Tcl_GetObjResult(interp);

18296

if ((objc < 3) || (objc > 3)) {

18297

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_num_path_set { sacPathRec * } { uint8_t * } ",-1);

18298

return TCL_ERROR;

18299

}

18300

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18301

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_num_path_set. Expected _sacPathRec_p, received ", -1);

18302

Tcl_AppendToObj(tcl_result, rettype, -1);

18303

return TCL_ERROR;

18304

}

18305

{

18306

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18307

_arg1 = &temp;

18308

}

18309

{

18310

/* we can check if IBIS was initialized here */

18311

if (!IbisObj.initialized)

18312

{

18313

Tcl_SetStringObj(

18314

Tcl_GetObjResult(interp),

18315

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18316

return TCL_ERROR;

18317

}

18318

18319

if (! IbisObj.port_guid)

18320

{

18321

Tcl_SetStringObj(

18322

Tcl_GetObjResult(interp),

18323

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18324

return TCL_ERROR;

18325

}

18326

18327

ibis_tcl_error = 0;

18328

_result = (uint8_t *)_ib_path_rec_num_path_set(_arg0,_arg1);

18329

;

18330

if (ibis_tcl_error) {

18331

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18332

return TCL_ERROR;

18333

}

18334

} tcl_result = Tcl_GetObjResult(interp);

18335

{

18336

char buff[20];

18337

sprintf(buff, "%u", *_result);

18338

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18339

}

18340

return TCL_OK;

18341

}

18342

#define _ib_path_rec_num_path_get(_swigobj) (&_swigobj->num_path)

18343

static int _wrap_sacPathRec_num_path_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18344

18345

uint8_t * _result;

18346

sacPathRec * _arg0;

18347

Tcl_Obj * tcl_result;

18348

char * rettype;

18349

18350

clientData = clientData; objv = objv;

18351

tcl_result = Tcl_GetObjResult(interp);

18352

if ((objc < 2) || (objc > 2)) {

18353

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_num_path_get { sacPathRec * } ",-1);

18354

return TCL_ERROR;

18355

}

18356

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18357

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_num_path_get. Expected _sacPathRec_p, received ", -1);

18358

Tcl_AppendToObj(tcl_result, rettype, -1);

18359

return TCL_ERROR;

18360

}

18361

{

18362

/* we can check if IBIS was initialized here */

18363

if (!IbisObj.initialized)

18364

{

18365

Tcl_SetStringObj(

18366

Tcl_GetObjResult(interp),

18367

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18368

return TCL_ERROR;

18369

}

18370

18371

if (! IbisObj.port_guid)

18372

{

18373

Tcl_SetStringObj(

18374

Tcl_GetObjResult(interp),

18375

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18376

return TCL_ERROR;

18377

}

18378

18379

ibis_tcl_error = 0;

18380

_result = (uint8_t *)_ib_path_rec_num_path_get(_arg0);

18381

;

18382

if (ibis_tcl_error) {

18383

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18384

return TCL_ERROR;

18385

}

18386

} tcl_result = Tcl_GetObjResult(interp);

18387

{

18388

char buff[20];

18389

sprintf(buff, "%u", *_result);

18390

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18391

}

18392

return TCL_OK;

18393

}

18394

#define _ib_path_rec_pkey_set(_swigobj,_swigval) (_swigobj->pkey = *(_swigval),_swigval)

18395

static int _wrap_sacPathRec_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18396

18397

ib_net16_t * _result;

18398

sacPathRec * _arg0;

18399

ib_net16_t * _arg1;

18400

Tcl_Obj * tcl_result;

18401

char * rettype;

18402

ib_net16_t temp;

18403

18404

clientData = clientData; objv = objv;

18405

tcl_result = Tcl_GetObjResult(interp);

18406

if ((objc < 3) || (objc > 3)) {

18407

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_pkey_set { sacPathRec * } { ib_net16_t * } ",-1);

18408

return TCL_ERROR;

18409

}

18410

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18411

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_pkey_set. Expected _sacPathRec_p, received ", -1);

18412

Tcl_AppendToObj(tcl_result, rettype, -1);

18413

return TCL_ERROR;

18414

}

18415

{

18416

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

18417

_arg1 = &temp;

18418

}

18419

{

18420

/* we can check if IBIS was initialized here */

18421

if (!IbisObj.initialized)

18422

{

18423

Tcl_SetStringObj(

18424

Tcl_GetObjResult(interp),

18425

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18426

return TCL_ERROR;

18427

}

18428

18429

if (! IbisObj.port_guid)

18430

{

18431

Tcl_SetStringObj(

18432

Tcl_GetObjResult(interp),

18433

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18434

return TCL_ERROR;

18435

}

18436

18437

ibis_tcl_error = 0;

18438

_result = (ib_net16_t *)_ib_path_rec_pkey_set(_arg0,_arg1);

18439

;

18440

if (ibis_tcl_error) {

18441

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18442

return TCL_ERROR;

18443

}

18444

} tcl_result = Tcl_GetObjResult(interp);

18445

{

18446

char buff[20];

18447

sprintf(buff, "%u", cl_hton16(*_result));

18448

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18449

}

18450

return TCL_OK;

18451

}

18452

#define _ib_path_rec_pkey_get(_swigobj) (&_swigobj->pkey)

18453

static int _wrap_sacPathRec_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18454

18455

ib_net16_t * _result;

18456

sacPathRec * _arg0;

18457

Tcl_Obj * tcl_result;

18458

char * rettype;

18459

18460

clientData = clientData; objv = objv;

18461

tcl_result = Tcl_GetObjResult(interp);

18462

if ((objc < 2) || (objc > 2)) {

18463

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_pkey_get { sacPathRec * } ",-1);

18464

return TCL_ERROR;

18465

}

18466

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18467

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_pkey_get. Expected _sacPathRec_p, received ", -1);

18468

Tcl_AppendToObj(tcl_result, rettype, -1);

18469

return TCL_ERROR;

18470

}

18471

{

18472

/* we can check if IBIS was initialized here */

18473

if (!IbisObj.initialized)

18474

{

18475

Tcl_SetStringObj(

18476

Tcl_GetObjResult(interp),

18477

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18478

return TCL_ERROR;

18479

}

18480

18481

if (! IbisObj.port_guid)

18482

{

18483

Tcl_SetStringObj(

18484

Tcl_GetObjResult(interp),

18485

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18486

return TCL_ERROR;

18487

}

18488

18489

ibis_tcl_error = 0;

18490

_result = (ib_net16_t *)_ib_path_rec_pkey_get(_arg0);

18491

;

18492

if (ibis_tcl_error) {

18493

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18494

return TCL_ERROR;

18495

}

18496

} tcl_result = Tcl_GetObjResult(interp);

18497

{

18498

char buff[20];

18499

sprintf(buff, "%u", cl_hton16(*_result));

18500

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18501

}

18502

return TCL_OK;

18503

}

18504

#define _ib_path_rec_qos_class_sl_set(_swigobj,_swigval) (_swigobj->qos_class_sl = *(_swigval),_swigval)

18505

static int _wrap_sacPathRec_qos_class_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18506

18507

ib_net16_t * _result;

18508

sacPathRec * _arg0;

18509

ib_net16_t * _arg1;

18510

Tcl_Obj * tcl_result;

18511

char * rettype;

18512

ib_net16_t temp;

18513

18514

clientData = clientData; objv = objv;

18515

tcl_result = Tcl_GetObjResult(interp);

18516

if ((objc < 3) || (objc > 3)) {

18517

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_qos_class_sl_set { sacPathRec * } { ib_net16_t * } ",-1);

18518

return TCL_ERROR;

18519

}

18520

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18521

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_qos_class_sl_set. Expected _sacPathRec_p, received ", -1);

18522

Tcl_AppendToObj(tcl_result, rettype, -1);

18523

return TCL_ERROR;

18524

}

18525

{

18526

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

18527

_arg1 = &temp;

18528

}

18529

{

18530

/* we can check if IBIS was initialized here */

18531

if (!IbisObj.initialized)

18532

{

18533

Tcl_SetStringObj(

18534

Tcl_GetObjResult(interp),

18535

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18536

return TCL_ERROR;

18537

}

18538

18539

if (! IbisObj.port_guid)

18540

{

18541

Tcl_SetStringObj(

18542

Tcl_GetObjResult(interp),

18543

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18544

return TCL_ERROR;

18545

}

18546

18547

ibis_tcl_error = 0;

18548

_result = (ib_net16_t *)_ib_path_rec_qos_class_sl_set(_arg0,_arg1);

18549

;

18550

if (ibis_tcl_error) {

18551

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18552

return TCL_ERROR;

18553

}

18554

} tcl_result = Tcl_GetObjResult(interp);

18555

{

18556

char buff[20];

18557

sprintf(buff, "%u", cl_hton16(*_result));

18558

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18559

}

18560

return TCL_OK;

18561

}

18562

#define _ib_path_rec_qos_class_sl_get(_swigobj) (&_swigobj->qos_class_sl)

18563

static int _wrap_sacPathRec_qos_class_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18564

18565

ib_net16_t * _result;

18566

sacPathRec * _arg0;

18567

Tcl_Obj * tcl_result;

18568

char * rettype;

18569

18570

clientData = clientData; objv = objv;

18571

tcl_result = Tcl_GetObjResult(interp);

18572

if ((objc < 2) || (objc > 2)) {

18573

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_qos_class_sl_get { sacPathRec * } ",-1);

18574

return TCL_ERROR;

18575

}

18576

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18577

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_qos_class_sl_get. Expected _sacPathRec_p, received ", -1);

18578

Tcl_AppendToObj(tcl_result, rettype, -1);

18579

return TCL_ERROR;

18580

}

18581

{

18582

/* we can check if IBIS was initialized here */

18583

if (!IbisObj.initialized)

18584

{

18585

Tcl_SetStringObj(

18586

Tcl_GetObjResult(interp),

18587

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18588

return TCL_ERROR;

18589

}

18590

18591

if (! IbisObj.port_guid)

18592

{

18593

Tcl_SetStringObj(

18594

Tcl_GetObjResult(interp),

18595

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18596

return TCL_ERROR;

18597

}

18598

18599

ibis_tcl_error = 0;

18600

_result = (ib_net16_t *)_ib_path_rec_qos_class_sl_get(_arg0);

18601

;

18602

if (ibis_tcl_error) {

18603

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18604

return TCL_ERROR;

18605

}

18606

} tcl_result = Tcl_GetObjResult(interp);

18607

{

18608

char buff[20];

18609

sprintf(buff, "%u", cl_hton16(*_result));

18610

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18611

}

18612

return TCL_OK;

18613

}

18614

#define _ib_path_rec_mtu_set(_swigobj,_swigval) (_swigobj->mtu = *(_swigval),_swigval)

18615

static int _wrap_sacPathRec_mtu_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18616

18617

uint8_t * _result;

18618

sacPathRec * _arg0;

18619

uint8_t * _arg1;

18620

Tcl_Obj * tcl_result;

18621

char * rettype;

18622

uint8_t temp;

18623

18624

clientData = clientData; objv = objv;

18625

tcl_result = Tcl_GetObjResult(interp);

18626

if ((objc < 3) || (objc > 3)) {

18627

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_mtu_set { sacPathRec * } { uint8_t * } ",-1);

18628

return TCL_ERROR;

18629

}

18630

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18631

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_mtu_set. Expected _sacPathRec_p, received ", -1);

18632

Tcl_AppendToObj(tcl_result, rettype, -1);

18633

return TCL_ERROR;

18634

}

18635

{

18636

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18637

_arg1 = &temp;

18638

}

18639

{

18640

/* we can check if IBIS was initialized here */

18641

if (!IbisObj.initialized)

18642

{

18643

Tcl_SetStringObj(

18644

Tcl_GetObjResult(interp),

18645

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18646

return TCL_ERROR;

18647

}

18648

18649

if (! IbisObj.port_guid)

18650

{

18651

Tcl_SetStringObj(

18652

Tcl_GetObjResult(interp),

18653

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18654

return TCL_ERROR;

18655

}

18656

18657

ibis_tcl_error = 0;

18658

_result = (uint8_t *)_ib_path_rec_mtu_set(_arg0,_arg1);

18659

;

18660

if (ibis_tcl_error) {

18661

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18662

return TCL_ERROR;

18663

}

18664

} tcl_result = Tcl_GetObjResult(interp);

18665

{

18666

char buff[20];

18667

sprintf(buff, "%u", *_result);

18668

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18669

}

18670

return TCL_OK;

18671

}

18672

#define _ib_path_rec_mtu_get(_swigobj) (&_swigobj->mtu)

18673

static int _wrap_sacPathRec_mtu_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18674

18675

uint8_t * _result;

18676

sacPathRec * _arg0;

18677

Tcl_Obj * tcl_result;

18678

char * rettype;

18679

18680

clientData = clientData; objv = objv;

18681

tcl_result = Tcl_GetObjResult(interp);

18682

if ((objc < 2) || (objc > 2)) {

18683

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_mtu_get { sacPathRec * } ",-1);

18684

return TCL_ERROR;

18685

}

18686

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18687

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_mtu_get. Expected _sacPathRec_p, received ", -1);

18688

Tcl_AppendToObj(tcl_result, rettype, -1);

18689

return TCL_ERROR;

18690

}

18691

{

18692

/* we can check if IBIS was initialized here */

18693

if (!IbisObj.initialized)

18694

{

18695

Tcl_SetStringObj(

18696

Tcl_GetObjResult(interp),

18697

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18698

return TCL_ERROR;

18699

}

18700

18701

if (! IbisObj.port_guid)

18702

{

18703

Tcl_SetStringObj(

18704

Tcl_GetObjResult(interp),

18705

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18706

return TCL_ERROR;

18707

}

18708

18709

ibis_tcl_error = 0;

18710

_result = (uint8_t *)_ib_path_rec_mtu_get(_arg0);

18711

;

18712

if (ibis_tcl_error) {

18713

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18714

return TCL_ERROR;

18715

}

18716

} tcl_result = Tcl_GetObjResult(interp);

18717

{

18718

char buff[20];

18719

sprintf(buff, "%u", *_result);

18720

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18721

}

18722

return TCL_OK;

18723

}

18724

#define _ib_path_rec_rate_set(_swigobj,_swigval) (_swigobj->rate = *(_swigval),_swigval)

18725

static int _wrap_sacPathRec_rate_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18726

18727

uint8_t * _result;

18728

sacPathRec * _arg0;

18729

uint8_t * _arg1;

18730

Tcl_Obj * tcl_result;

18731

char * rettype;

18732

uint8_t temp;

18733

18734

clientData = clientData; objv = objv;

18735

tcl_result = Tcl_GetObjResult(interp);

18736

if ((objc < 3) || (objc > 3)) {

18737

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_rate_set { sacPathRec * } { uint8_t * } ",-1);

18738

return TCL_ERROR;

18739

}

18740

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18741

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_rate_set. Expected _sacPathRec_p, received ", -1);

18742

Tcl_AppendToObj(tcl_result, rettype, -1);

18743

return TCL_ERROR;

18744

}

18745

{

18746

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18747

_arg1 = &temp;

18748

}

18749

{

18750

/* we can check if IBIS was initialized here */

18751

if (!IbisObj.initialized)

18752

{

18753

Tcl_SetStringObj(

18754

Tcl_GetObjResult(interp),

18755

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18756

return TCL_ERROR;

18757

}

18758

18759

if (! IbisObj.port_guid)

18760

{

18761

Tcl_SetStringObj(

18762

Tcl_GetObjResult(interp),

18763

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18764

return TCL_ERROR;

18765

}

18766

18767

ibis_tcl_error = 0;

18768

_result = (uint8_t *)_ib_path_rec_rate_set(_arg0,_arg1);

18769

;

18770

if (ibis_tcl_error) {

18771

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18772

return TCL_ERROR;

18773

}

18774

} tcl_result = Tcl_GetObjResult(interp);

18775

{

18776

char buff[20];

18777

sprintf(buff, "%u", *_result);

18778

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18779

}

18780

return TCL_OK;

18781

}

18782

#define _ib_path_rec_rate_get(_swigobj) (&_swigobj->rate)

18783

static int _wrap_sacPathRec_rate_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18784

18785

uint8_t * _result;

18786

sacPathRec * _arg0;

18787

Tcl_Obj * tcl_result;

18788

char * rettype;

18789

18790

clientData = clientData; objv = objv;

18791

tcl_result = Tcl_GetObjResult(interp);

18792

if ((objc < 2) || (objc > 2)) {

18793

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_rate_get { sacPathRec * } ",-1);

18794

return TCL_ERROR;

18795

}

18796

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18797

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_rate_get. Expected _sacPathRec_p, received ", -1);

18798

Tcl_AppendToObj(tcl_result, rettype, -1);

18799

return TCL_ERROR;

18800

}

18801

{

18802

/* we can check if IBIS was initialized here */

18803

if (!IbisObj.initialized)

18804

{

18805

Tcl_SetStringObj(

18806

Tcl_GetObjResult(interp),

18807

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18808

return TCL_ERROR;

18809

}

18810

18811

if (! IbisObj.port_guid)

18812

{

18813

Tcl_SetStringObj(

18814

Tcl_GetObjResult(interp),

18815

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18816

return TCL_ERROR;

18817

}

18818

18819

ibis_tcl_error = 0;

18820

_result = (uint8_t *)_ib_path_rec_rate_get(_arg0);

18821

;

18822

if (ibis_tcl_error) {

18823

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18824

return TCL_ERROR;

18825

}

18826

} tcl_result = Tcl_GetObjResult(interp);

18827

{

18828

char buff[20];

18829

sprintf(buff, "%u", *_result);

18830

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18831

}

18832

return TCL_OK;

18833

}

18834

#define _ib_path_rec_pkt_life_set(_swigobj,_swigval) (_swigobj->pkt_life = *(_swigval),_swigval)

18835

static int _wrap_sacPathRec_pkt_life_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18836

18837

uint8_t * _result;

18838

sacPathRec * _arg0;

18839

uint8_t * _arg1;

18840

Tcl_Obj * tcl_result;

18841

char * rettype;

18842

uint8_t temp;

18843

18844

clientData = clientData; objv = objv;

18845

tcl_result = Tcl_GetObjResult(interp);

18846

if ((objc < 3) || (objc > 3)) {

18847

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_pkt_life_set { sacPathRec * } { uint8_t * } ",-1);

18848

return TCL_ERROR;

18849

}

18850

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18851

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_pkt_life_set. Expected _sacPathRec_p, received ", -1);

18852

Tcl_AppendToObj(tcl_result, rettype, -1);

18853

return TCL_ERROR;

18854

}

18855

{

18856

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18857

_arg1 = &temp;

18858

}

18859

{

18860

/* we can check if IBIS was initialized here */

18861

if (!IbisObj.initialized)

18862

{

18863

Tcl_SetStringObj(

18864

Tcl_GetObjResult(interp),

18865

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18866

return TCL_ERROR;

18867

}

18868

18869

if (! IbisObj.port_guid)

18870

{

18871

Tcl_SetStringObj(

18872

Tcl_GetObjResult(interp),

18873

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18874

return TCL_ERROR;

18875

}

18876

18877

ibis_tcl_error = 0;

18878

_result = (uint8_t *)_ib_path_rec_pkt_life_set(_arg0,_arg1);

18879

;

18880

if (ibis_tcl_error) {

18881

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18882

return TCL_ERROR;

18883

}

18884

} tcl_result = Tcl_GetObjResult(interp);

18885

{

18886

char buff[20];

18887

sprintf(buff, "%u", *_result);

18888

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18889

}

18890

return TCL_OK;

18891

}

18892

#define _ib_path_rec_pkt_life_get(_swigobj) (&_swigobj->pkt_life)

18893

static int _wrap_sacPathRec_pkt_life_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18894

18895

uint8_t * _result;

18896

sacPathRec * _arg0;

18897

Tcl_Obj * tcl_result;

18898

char * rettype;

18899

18900

clientData = clientData; objv = objv;

18901

tcl_result = Tcl_GetObjResult(interp);

18902

if ((objc < 2) || (objc > 2)) {

18903

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_pkt_life_get { sacPathRec * } ",-1);

18904

return TCL_ERROR;

18905

}

18906

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18907

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_pkt_life_get. Expected _sacPathRec_p, received ", -1);

18908

Tcl_AppendToObj(tcl_result, rettype, -1);

18909

return TCL_ERROR;

18910

}

18911

{

18912

/* we can check if IBIS was initialized here */

18913

if (!IbisObj.initialized)

18914

{

18915

Tcl_SetStringObj(

18916

Tcl_GetObjResult(interp),

18917

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18918

return TCL_ERROR;

18919

}

18920

18921

if (! IbisObj.port_guid)

18922

{

18923

Tcl_SetStringObj(

18924

Tcl_GetObjResult(interp),

18925

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18926

return TCL_ERROR;

18927

}

18928

18929

ibis_tcl_error = 0;

18930

_result = (uint8_t *)_ib_path_rec_pkt_life_get(_arg0);

18931

;

18932

if (ibis_tcl_error) {

18933

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18934

return TCL_ERROR;

18935

}

18936

} tcl_result = Tcl_GetObjResult(interp);

18937

{

18938

char buff[20];

18939

sprintf(buff, "%u", *_result);

18940

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18941

}

18942

return TCL_OK;

18943

}

18944

#define _ib_path_rec_preference_set(_swigobj,_swigval) (_swigobj->preference = *(_swigval),_swigval)

18945

static int _wrap_sacPathRec_preference_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

18946

18947

uint8_t * _result;

18948

sacPathRec * _arg0;

18949

uint8_t * _arg1;

18950

Tcl_Obj * tcl_result;

18951

char * rettype;

18952

uint8_t temp;

18953

18954

clientData = clientData; objv = objv;

18955

tcl_result = Tcl_GetObjResult(interp);

18956

if ((objc < 3) || (objc > 3)) {

18957

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_preference_set { sacPathRec * } { uint8_t * } ",-1);

18958

return TCL_ERROR;

18959

}

18960

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

18961

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_preference_set. Expected _sacPathRec_p, received ", -1);

18962

Tcl_AppendToObj(tcl_result, rettype, -1);

18963

return TCL_ERROR;

18964

}

18965

{

18966

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

18967

_arg1 = &temp;

18968

}

18969

{

18970

/* we can check if IBIS was initialized here */

18971

if (!IbisObj.initialized)

18972

{

18973

Tcl_SetStringObj(

18974

Tcl_GetObjResult(interp),

18975

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

18976

return TCL_ERROR;

18977

}

18978

18979

if (! IbisObj.port_guid)

18980

{

18981

Tcl_SetStringObj(

18982

Tcl_GetObjResult(interp),

18983

" ibis was not yet initialized. please use ibis_set_port before.", -1);

18984

return TCL_ERROR;

18985

}

18986

18987

ibis_tcl_error = 0;

18988

_result = (uint8_t *)_ib_path_rec_preference_set(_arg0,_arg1);

18989

;

18990

if (ibis_tcl_error) {

18991

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

18992

return TCL_ERROR;

18993

}

18994

} tcl_result = Tcl_GetObjResult(interp);

18995

{

18996

char buff[20];

18997

sprintf(buff, "%u", *_result);

18998

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

18999

}

19000

return TCL_OK;

19001

}

19002

#define _ib_path_rec_preference_get(_swigobj) (&_swigobj->preference)

19003

static int _wrap_sacPathRec_preference_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19004

19005

uint8_t * _result;

19006

sacPathRec * _arg0;

19007

Tcl_Obj * tcl_result;

19008

char * rettype;

19009

19010

clientData = clientData; objv = objv;

19011

tcl_result = Tcl_GetObjResult(interp);

19012

if ((objc < 2) || (objc > 2)) {

19013

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_preference_get { sacPathRec * } ",-1);

19014

return TCL_ERROR;

19015

}

19016

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

19017

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_preference_get. Expected _sacPathRec_p, received ", -1);

19018

Tcl_AppendToObj(tcl_result, rettype, -1);

19019

return TCL_ERROR;

19020

}

19021

{

19022

/* we can check if IBIS was initialized here */

19023

if (!IbisObj.initialized)

19024

{

19025

Tcl_SetStringObj(

19026

Tcl_GetObjResult(interp),

19027

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19028

return TCL_ERROR;

19029

}

19030

19031

if (! IbisObj.port_guid)

19032

{

19033

Tcl_SetStringObj(

19034

Tcl_GetObjResult(interp),

19035

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19036

return TCL_ERROR;

19037

}

19038

19039

ibis_tcl_error = 0;

19040

_result = (uint8_t *)_ib_path_rec_preference_get(_arg0);

19041

;

19042

if (ibis_tcl_error) {

19043

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19044

return TCL_ERROR;

19045

}

19046

} tcl_result = Tcl_GetObjResult(interp);

19047

{

19048

char buff[20];

19049

sprintf(buff, "%u", *_result);

19050

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

19051

}

19052

return TCL_OK;

19053

}

19054

static char * sacPathRec_get(sacPathRec *self,uint64_t comp_mask) {

19055

return(ibsacPathRecordQuery(self, cl_hton64(comp_mask),

19056

IB_MAD_METHOD_GET));

19057

}

19058

static int _wrap_sacPathRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19059

19060

char * _result;

19061

sacPathRec * _arg0;

19062

uint64_t * _arg1;

19063

Tcl_Obj * tcl_result;

19064

char * rettype;

19065

uint64_t temp;

19066

19067

clientData = clientData; objv = objv;

19068

tcl_result = Tcl_GetObjResult(interp);

19069

if ((objc < 3) || (objc > 3)) {

19070

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_get { sacPathRec * } comp_mask ",-1);

19071

return TCL_ERROR;

19072

}

19073

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

19074

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_get. Expected _sacPathRec_p, received ", -1);

19075

Tcl_AppendToObj(tcl_result, rettype, -1);

19076

return TCL_ERROR;

19077

}

19078

{

19079

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

19080

_arg1 = &temp;

19081

}

19082

{

19083

/* we can check if IBIS was initialized here */

19084

if (!IbisObj.initialized)

19085

{

19086

Tcl_SetStringObj(

19087

Tcl_GetObjResult(interp),

19088

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19089

return TCL_ERROR;

19090

}

19091

19092

if (! IbisObj.port_guid)

19093

{

19094

Tcl_SetStringObj(

19095

Tcl_GetObjResult(interp),

19096

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19097

return TCL_ERROR;

19098

}

19099

19100

ibis_tcl_error = 0;

19101

_result = (char *)sacPathRec_get(_arg0,*_arg1);

19102

;

19103

if (ibis_tcl_error) {

19104

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19105

return TCL_ERROR;

19106

}

19107

} tcl_result = Tcl_GetObjResult(interp);

19108

Tcl_SetStringObj(tcl_result,_result,-1);

19109

free(_result);

19110

19111

return TCL_OK;

19112

}

19113

static char * sacPathRec_getTable(sacPathRec *self,uint64_t comp_mask) {

19114

return(ibsacPathRecordQuery(self, cl_hton64(comp_mask),

19115

IB_MAD_METHOD_GETTABLE));

19116

}

19117

static int _wrap_sacPathRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19118

19119

char * _result;

19120

sacPathRec * _arg0;

19121

uint64_t * _arg1;

19122

Tcl_Obj * tcl_result;

19123

char * rettype;

19124

uint64_t temp;

19125

19126

clientData = clientData; objv = objv;

19127

tcl_result = Tcl_GetObjResult(interp);

19128

if ((objc < 3) || (objc > 3)) {

19129

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_getTable { sacPathRec * } comp_mask ",-1);

19130

return TCL_ERROR;

19131

}

19132

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

19133

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_getTable. Expected _sacPathRec_p, received ", -1);

19134

Tcl_AppendToObj(tcl_result, rettype, -1);

19135

return TCL_ERROR;

19136

}

19137

{

19138

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

19139

_arg1 = &temp;

19140

}

19141

{

19142

/* we can check if IBIS was initialized here */

19143

if (!IbisObj.initialized)

19144

{

19145

Tcl_SetStringObj(

19146

Tcl_GetObjResult(interp),

19147

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19148

return TCL_ERROR;

19149

}

19150

19151

if (! IbisObj.port_guid)

19152

{

19153

Tcl_SetStringObj(

19154

Tcl_GetObjResult(interp),

19155

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19156

return TCL_ERROR;

19157

}

19158

19159

ibis_tcl_error = 0;

19160

_result = (char *)sacPathRec_getTable(_arg0,*_arg1);

19161

;

19162

if (ibis_tcl_error) {

19163

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19164

return TCL_ERROR;

19165

}

19166

} tcl_result = Tcl_GetObjResult(interp);

19167

Tcl_SetStringObj(tcl_result,_result,-1);

19168

free(_result);

19169

19170

return TCL_OK;

19171

}

19172

static void sacPathRec_delete(sacPathRec *self) {

19173

free(self);

19174

SWIG_AltMnglUnregObj(self);

19175

}

19176

static int _wrap_sacPathRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19177

19178

sacPathRec * _arg0;

19179

Tcl_Obj * tcl_result;

19180

char * rettype;

19181

19182

clientData = clientData; objv = objv;

19183

tcl_result = Tcl_GetObjResult(interp);

19184

if ((objc < 2) || (objc > 2)) {

19185

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPathRec_delete { sacPathRec * } ",-1);

19186

return TCL_ERROR;

19187

}

19188

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPathRec_p"))) {

19189

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPathRec_delete. Expected _sacPathRec_p, received ", -1);

19190

Tcl_AppendToObj(tcl_result, rettype, -1);

19191

return TCL_ERROR;

19192

}

19193

{

19194

/* we can check if IBIS was initialized here */

19195

if (!IbisObj.initialized)

19196

{

19197

Tcl_SetStringObj(

19198

Tcl_GetObjResult(interp),

19199

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19200

return TCL_ERROR;

19201

}

19202

19203

if (! IbisObj.port_guid)

19204

{

19205

Tcl_SetStringObj(

19206

Tcl_GetObjResult(interp),

19207

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19208

return TCL_ERROR;

19209

}

19210

19211

ibis_tcl_error = 0;

19212

sacPathRec_delete(_arg0);

19213

;

19214

if (ibis_tcl_error) {

19215

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19216

return TCL_ERROR;

19217

}

19218

} tcl_result = Tcl_GetObjResult(interp);

19219

return TCL_OK;

19220

}

19221

/* methodcmd8.swg : Tcl8.x method invocation */

19222

19223

static int TclsacPathRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

19224

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

19225

char *_str;

19226

int rcode;

19227

Tcl_Obj **objv;

19228

Tcl_Obj *oldarg,*tcl_result,*obj;

19229

int length;

19230

char c;

19231

19232

tcl_result = Tcl_GetObjResult(interp);

19233

objv = (Tcl_Obj **) _objv;

19234

if (objc < 2) {

19235

Tcl_SetStringObj(tcl_result,"sacPathRec methods : { dump cget configure get getTable delete }",-1);

19236

return TCL_ERROR;

19237

}

19238

obj = Tcl_NewObj();

19239

SWIG_SetPointerObj(obj,(void *) clientData,"_sacPathRec_p");

19240

_str = Tcl_GetStringFromObj(objv[1],&length);

19241

c = *_str;

19242

if (0);

19243

if (strcmp(_str,"get") == 0) {

19244

cmd = _wrap_sacPathRec_get;

19245

} else if (strcmp(_str,"getTable") == 0) {

19246

cmd = _wrap_sacPathRec_getTable;

19247

} else if (strcmp(_str,"delete") == 0) {

19248

cmd = _wrap_sacPathRec_delete;

19249

}

19250

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

19251

int i = 2;

19252

cmd = 0;

19253

while (i+1 < objc) {

19254

_str = Tcl_GetStringFromObj(objv[i],&length);

19255

if (strcmp(_str,"-service_id") == 0) {

19256

cmd = _wrap_sacPathRec_service_id_set;

19257

} else if (strcmp(_str,"-dgid") == 0) {

19258

cmd = _wrap_sacPathRec_dgid_set;

19259

} else if (strcmp(_str,"-sgid") == 0) {

19260

cmd = _wrap_sacPathRec_sgid_set;

19261

} else if (strcmp(_str,"-dlid") == 0) {

19262

cmd = _wrap_sacPathRec_dlid_set;

19263

} else if (strcmp(_str,"-slid") == 0) {

19264

cmd = _wrap_sacPathRec_slid_set;

19265

} else if (strcmp(_str,"-hop_flow_raw") == 0) {

19266

cmd = _wrap_sacPathRec_hop_flow_raw_set;

19267

} else if (strcmp(_str,"-tclass") == 0) {

19268

cmd = _wrap_sacPathRec_tclass_set;

19269

} else if (strcmp(_str,"-num_path") == 0) {

19270

cmd = _wrap_sacPathRec_num_path_set;

19271

} else if (strcmp(_str,"-pkey") == 0) {

19272

cmd = _wrap_sacPathRec_pkey_set;

19273

} else if (strcmp(_str,"-qos_class_sl") == 0) {

19274

cmd = _wrap_sacPathRec_qos_class_sl_set;

19275

} else if (strcmp(_str,"-mtu") == 0) {

19276

cmd = _wrap_sacPathRec_mtu_set;

19277

} else if (strcmp(_str,"-rate") == 0) {

19278

cmd = _wrap_sacPathRec_rate_set;

19279

} else if (strcmp(_str,"-pkt_life") == 0) {

19280

cmd = _wrap_sacPathRec_pkt_life_set;

19281

} else if (strcmp(_str,"-preference") == 0) {

19282

cmd = _wrap_sacPathRec_preference_set;

19283

}

19284

if (cmd) {

19285

oldarg = objv[i];

19286

objv[i] = obj;

19287

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

19288

objv[i] = oldarg;

19289

if (rcode == TCL_ERROR) return rcode;

19290

cmd = 0;

19291

} else {

19292

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -service_id -dgid -sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -qos_class_sl -mtu -rate -pkt_life -preference }",-1);

19293

return TCL_ERROR;

19294

}

19295

i+=2;

19296

}

19297

if ((i < objc) || (i == 2)) {

19298

Tcl_SetStringObj(tcl_result,"{ -service_id -dgid -sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -qos_class_sl -mtu -rate -pkt_life -preference }",-1);

19299

return TCL_ERROR;

19300

}

19301

return TCL_OK;

19302

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

19303

if (objc == 3) {

19304

_str = Tcl_GetStringFromObj(objv[2],&length);

19305

if (0) {}

19306

if (strcmp(_str,"-service_id") == 0) {

19307

cmd = _wrap_sacPathRec_service_id_get;

19308

} else if (strcmp(_str,"-dgid") == 0) {

19309

cmd = _wrap_sacPathRec_dgid_get;

19310

} else if (strcmp(_str,"-sgid") == 0) {

19311

cmd = _wrap_sacPathRec_sgid_get;

19312

} else if (strcmp(_str,"-dlid") == 0) {

19313

cmd = _wrap_sacPathRec_dlid_get;

19314

} else if (strcmp(_str,"-slid") == 0) {

19315

cmd = _wrap_sacPathRec_slid_get;

19316

} else if (strcmp(_str,"-hop_flow_raw") == 0) {

19317

cmd = _wrap_sacPathRec_hop_flow_raw_get;

19318

} else if (strcmp(_str,"-tclass") == 0) {

19319

cmd = _wrap_sacPathRec_tclass_get;

19320

} else if (strcmp(_str,"-num_path") == 0) {

19321

cmd = _wrap_sacPathRec_num_path_get;

19322

} else if (strcmp(_str,"-pkey") == 0) {

19323

cmd = _wrap_sacPathRec_pkey_get;

19324

} else if (strcmp(_str,"-qos_class_sl") == 0) {

19325

cmd = _wrap_sacPathRec_qos_class_sl_get;

19326

} else if (strcmp(_str,"-mtu") == 0) {

19327

cmd = _wrap_sacPathRec_mtu_get;

19328

} else if (strcmp(_str,"-rate") == 0) {

19329

cmd = _wrap_sacPathRec_rate_get;

19330

} else if (strcmp(_str,"-pkt_life") == 0) {

19331

cmd = _wrap_sacPathRec_pkt_life_get;

19332

} else if (strcmp(_str,"-preference") == 0) {

19333

cmd = _wrap_sacPathRec_preference_get;

19334

}

19335

else if (strcmp(_str,"-this") == 0) {

19336

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacPathRec_p");

19337

return TCL_OK;

19338

}

19339

if (cmd) {

19340

oldarg = objv[2];

19341

objv[2] = obj;

19342

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

19343

objv[2] = oldarg;

19344

return rcode;

19345

} else {

19346

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -service_id -dgid -sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -qos_class_sl -mtu -rate -pkt_life -preference }",-1);

19347

return TCL_ERROR;

19348

}

19349

} else {

19350

Tcl_SetStringObj(tcl_result,"{ -this -service_id -dgid -sgid -dlid -slid -hop_flow_raw -tclass -num_path -pkey -qos_class_sl -mtu -rate -pkt_life -preference }", -1);

19351

return TCL_ERROR;

19352

}

19353

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

19354

if (objc == 2) {

19355

Tcl_Obj *pDumpObj;

19356

pDumpObj = Tcl_NewStringObj("",-1);

19357

Tcl_IncrRefCount(pDumpObj);

19358

cmd = _wrap_sacPathRec_service_id_get;

19359

oldarg = objv[2];

19360

objv[2] = obj;

19361

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19362

objv[2] = oldarg;

19363

Tcl_AppendStringsToObj(pDumpObj, "-service_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19364

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19365

cmd = _wrap_sacPathRec_dgid_get;

19366

oldarg = objv[2];

19367

objv[2] = obj;

19368

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19369

objv[2] = oldarg;

19370

Tcl_AppendStringsToObj(pDumpObj, "-dgid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19371

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19372

cmd = _wrap_sacPathRec_sgid_get;

19373

oldarg = objv[2];

19374

objv[2] = obj;

19375

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19376

objv[2] = oldarg;

19377

Tcl_AppendStringsToObj(pDumpObj, "-sgid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19378

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19379

cmd = _wrap_sacPathRec_dlid_get;

19380

oldarg = objv[2];

19381

objv[2] = obj;

19382

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19383

objv[2] = oldarg;

19384

Tcl_AppendStringsToObj(pDumpObj, "-dlid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19385

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19386

cmd = _wrap_sacPathRec_slid_get;

19387

oldarg = objv[2];

19388

objv[2] = obj;

19389

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19390

objv[2] = oldarg;

19391

Tcl_AppendStringsToObj(pDumpObj, "-slid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19392

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19393

cmd = _wrap_sacPathRec_hop_flow_raw_get;

19394

oldarg = objv[2];

19395

objv[2] = obj;

19396

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19397

objv[2] = oldarg;

19398

Tcl_AppendStringsToObj(pDumpObj, "-hop_flow_raw ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19399

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19400

cmd = _wrap_sacPathRec_tclass_get;

19401

oldarg = objv[2];

19402

objv[2] = obj;

19403

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19404

objv[2] = oldarg;

19405

Tcl_AppendStringsToObj(pDumpObj, "-tclass ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19406

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19407

cmd = _wrap_sacPathRec_num_path_get;

19408

oldarg = objv[2];

19409

objv[2] = obj;

19410

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19411

objv[2] = oldarg;

19412

Tcl_AppendStringsToObj(pDumpObj, "-num_path ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19413

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19414

cmd = _wrap_sacPathRec_pkey_get;

19415

oldarg = objv[2];

19416

objv[2] = obj;

19417

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19418

objv[2] = oldarg;

19419

Tcl_AppendStringsToObj(pDumpObj, "-pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19420

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19421

cmd = _wrap_sacPathRec_qos_class_sl_get;

19422

oldarg = objv[2];

19423

objv[2] = obj;

19424

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19425

objv[2] = oldarg;

19426

Tcl_AppendStringsToObj(pDumpObj, "-qos_class_sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19427

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19428

cmd = _wrap_sacPathRec_mtu_get;

19429

oldarg = objv[2];

19430

objv[2] = obj;

19431

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19432

objv[2] = oldarg;

19433

Tcl_AppendStringsToObj(pDumpObj, "-mtu ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19434

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19435

cmd = _wrap_sacPathRec_rate_get;

19436

oldarg = objv[2];

19437

objv[2] = obj;

19438

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19439

objv[2] = oldarg;

19440

Tcl_AppendStringsToObj(pDumpObj, "-rate ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19441

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19442

cmd = _wrap_sacPathRec_pkt_life_get;

19443

oldarg = objv[2];

19444

objv[2] = obj;

19445

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19446

objv[2] = oldarg;

19447

Tcl_AppendStringsToObj(pDumpObj, "-pkt_life ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19448

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19449

cmd = _wrap_sacPathRec_preference_get;

19450

oldarg = objv[2];

19451

objv[2] = obj;

19452

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

19453

objv[2] = oldarg;

19454

Tcl_AppendStringsToObj(pDumpObj, "-preference ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

19455

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

19456

19457

Tcl_DecrRefCount(pDumpObj);

19458

return TCL_OK;

19459

} else {

19460

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

19461

return TCL_ERROR;

19462

}

19463

}

19464

if (!cmd) {

19465

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

19466

return TCL_ERROR;

19467

}

19468

oldarg = objv[1];

19469

objv[1] = obj;

19470

rcode = (*cmd)(clientData,interp,objc,objv);

19471

objv[1] = oldarg;

19472

return rcode;

19473

}

19474

19475

19476

19477

/* objcmd8.swg : Tcl 8.x object creation */

19478

19479

static int TclsacPathRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19480

void (*del)(ClientData) = 0;

19481

char *name = 0;

19482

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

19483

sacPathRec * newObj = 0;

19484

int firstarg = 0;

19485

int thisarg = 0;

19486

int length;

19487

char *_str;

19488

Tcl_Obj *tcl_result;

19489

19490

tcl_result = Tcl_GetObjResult(interp);

19491

if (objc == 1) {

19492

cmd = 0;

19493

} else {

19494

_str = Tcl_GetStringFromObj(objv[1],&length);

19495

if (strcmp(_str,"-this") == 0) thisarg = 2;

19496

else if (strcmp(_str,"-args") == 0) {

19497

firstarg = 1;

19498

cmd = 0;

19499

} else if (objc == 2) {

19500

firstarg = 1;

19501

name = _str;

19502

cmd = 0;

19503

} else if (objc >= 3) {

19504

name = _str;

19505

_str = Tcl_GetStringFromObj(objv[2],&length);

19506

if (strcmp(_str,"-this") == 0) thisarg = 3;

19507

else {

19508

firstarg = 1;

19509

cmd = 0;

19510

}

19511

}

19512

}

19513

if (cmd) {

19514

int result;

19515

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

19516

if (result == TCL_OK) {

19517

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacPathRec_p");

19518

} else { return result; }

19519

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

19520

del = 0;

19521

} else if (thisarg > 0) {

19522

if (thisarg < objc) {

19523

char *r;

19524

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacPathRec_p");

19525

if (r) {

19526

Tcl_SetStringObj(tcl_result,"Type error. not a sacPathRec object.",-1);

19527

return TCL_ERROR;

19528

}

19529

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

19530

Tcl_SetStringObj(tcl_result,name,-1);

19531

} else {

19532

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

19533

return TCL_ERROR;

19534

}

19535

} else {

19536

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

19537

return TCL_ERROR;

19538

}

19539

{

19540

Tcl_CmdInfo dummy;

19541

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

19542

Tcl_CreateObjCommand(interp,name, TclsacPathRecMethodCmd, (ClientData) newObj, del);

19543

return TCL_OK;

19544

} else {

19545

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

19546

return TCL_ERROR;

19547

}

19548

}

19549

}

19550

19551

19552

#define _ib_lft_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

19553

static int _wrap_sacLFTRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19554

19555

ib_net16_t * _result;

19556

sacLFTRec * _arg0;

19557

ib_net16_t * _arg1;

19558

Tcl_Obj * tcl_result;

19559

char * rettype;

19560

ib_net16_t temp;

19561

19562

clientData = clientData; objv = objv;

19563

tcl_result = Tcl_GetObjResult(interp);

19564

if ((objc < 3) || (objc > 3)) {

19565

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_lid_set { sacLFTRec * } { ib_net16_t * } ",-1);

19566

return TCL_ERROR;

19567

}

19568

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19569

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_lid_set. Expected _sacLFTRec_p, received ", -1);

19570

Tcl_AppendToObj(tcl_result, rettype, -1);

19571

return TCL_ERROR;

19572

}

19573

{

19574

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

19575

_arg1 = &temp;

19576

}

19577

{

19578

/* we can check if IBIS was initialized here */

19579

if (!IbisObj.initialized)

19580

{

19581

Tcl_SetStringObj(

19582

Tcl_GetObjResult(interp),

19583

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19584

return TCL_ERROR;

19585

}

19586

19587

if (! IbisObj.port_guid)

19588

{

19589

Tcl_SetStringObj(

19590

Tcl_GetObjResult(interp),

19591

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19592

return TCL_ERROR;

19593

}

19594

19595

ibis_tcl_error = 0;

19596

_result = (ib_net16_t *)_ib_lft_record_lid_set(_arg0,_arg1);

19597

;

19598

if (ibis_tcl_error) {

19599

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19600

return TCL_ERROR;

19601

}

19602

} tcl_result = Tcl_GetObjResult(interp);

19603

{

19604

char buff[20];

19605

sprintf(buff, "%u", cl_hton16(*_result));

19606

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

19607

}

19608

return TCL_OK;

19609

}

19610

#define _ib_lft_record_lid_get(_swigobj) (&_swigobj->lid)

19611

static int _wrap_sacLFTRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19612

19613

ib_net16_t * _result;

19614

sacLFTRec * _arg0;

19615

Tcl_Obj * tcl_result;

19616

char * rettype;

19617

19618

clientData = clientData; objv = objv;

19619

tcl_result = Tcl_GetObjResult(interp);

19620

if ((objc < 2) || (objc > 2)) {

19621

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_lid_get { sacLFTRec * } ",-1);

19622

return TCL_ERROR;

19623

}

19624

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19625

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_lid_get. Expected _sacLFTRec_p, received ", -1);

19626

Tcl_AppendToObj(tcl_result, rettype, -1);

19627

return TCL_ERROR;

19628

}

19629

{

19630

/* we can check if IBIS was initialized here */

19631

if (!IbisObj.initialized)

19632

{

19633

Tcl_SetStringObj(

19634

Tcl_GetObjResult(interp),

19635

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19636

return TCL_ERROR;

19637

}

19638

19639

if (! IbisObj.port_guid)

19640

{

19641

Tcl_SetStringObj(

19642

Tcl_GetObjResult(interp),

19643

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19644

return TCL_ERROR;

19645

}

19646

19647

ibis_tcl_error = 0;

19648

_result = (ib_net16_t *)_ib_lft_record_lid_get(_arg0);

19649

;

19650

if (ibis_tcl_error) {

19651

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19652

return TCL_ERROR;

19653

}

19654

} tcl_result = Tcl_GetObjResult(interp);

19655

{

19656

char buff[20];

19657

sprintf(buff, "%u", cl_hton16(*_result));

19658

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

19659

}

19660

return TCL_OK;

19661

}

19662

#define _ib_lft_record_block_num_set(_swigobj,_swigval) (_swigobj->block_num = *(_swigval),_swigval)

19663

static int _wrap_sacLFTRec_block_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19664

19665

ib_net16_t * _result;

19666

sacLFTRec * _arg0;

19667

ib_net16_t * _arg1;

19668

Tcl_Obj * tcl_result;

19669

char * rettype;

19670

ib_net16_t temp;

19671

19672

clientData = clientData; objv = objv;

19673

tcl_result = Tcl_GetObjResult(interp);

19674

if ((objc < 3) || (objc > 3)) {

19675

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_block_num_set { sacLFTRec * } { ib_net16_t * } ",-1);

19676

return TCL_ERROR;

19677

}

19678

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19679

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_block_num_set. Expected _sacLFTRec_p, received ", -1);

19680

Tcl_AppendToObj(tcl_result, rettype, -1);

19681

return TCL_ERROR;

19682

}

19683

{

19684

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

19685

_arg1 = &temp;

19686

}

19687

{

19688

/* we can check if IBIS was initialized here */

19689

if (!IbisObj.initialized)

19690

{

19691

Tcl_SetStringObj(

19692

Tcl_GetObjResult(interp),

19693

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19694

return TCL_ERROR;

19695

}

19696

19697

if (! IbisObj.port_guid)

19698

{

19699

Tcl_SetStringObj(

19700

Tcl_GetObjResult(interp),

19701

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19702

return TCL_ERROR;

19703

}

19704

19705

ibis_tcl_error = 0;

19706

_result = (ib_net16_t *)_ib_lft_record_block_num_set(_arg0,_arg1);

19707

;

19708

if (ibis_tcl_error) {

19709

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19710

return TCL_ERROR;

19711

}

19712

} tcl_result = Tcl_GetObjResult(interp);

19713

{

19714

char buff[20];

19715

sprintf(buff, "%u", cl_hton16(*_result));

19716

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

19717

}

19718

return TCL_OK;

19719

}

19720

#define _ib_lft_record_block_num_get(_swigobj) (&_swigobj->block_num)

19721

static int _wrap_sacLFTRec_block_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19722

19723

ib_net16_t * _result;

19724

sacLFTRec * _arg0;

19725

Tcl_Obj * tcl_result;

19726

char * rettype;

19727

19728

clientData = clientData; objv = objv;

19729

tcl_result = Tcl_GetObjResult(interp);

19730

if ((objc < 2) || (objc > 2)) {

19731

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_block_num_get { sacLFTRec * } ",-1);

19732

return TCL_ERROR;

19733

}

19734

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19735

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_block_num_get. Expected _sacLFTRec_p, received ", -1);

19736

Tcl_AppendToObj(tcl_result, rettype, -1);

19737

return TCL_ERROR;

19738

}

19739

{

19740

/* we can check if IBIS was initialized here */

19741

if (!IbisObj.initialized)

19742

{

19743

Tcl_SetStringObj(

19744

Tcl_GetObjResult(interp),

19745

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19746

return TCL_ERROR;

19747

}

19748

19749

if (! IbisObj.port_guid)

19750

{

19751

Tcl_SetStringObj(

19752

Tcl_GetObjResult(interp),

19753

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19754

return TCL_ERROR;

19755

}

19756

19757

ibis_tcl_error = 0;

19758

_result = (ib_net16_t *)_ib_lft_record_block_num_get(_arg0);

19759

;

19760

if (ibis_tcl_error) {

19761

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19762

return TCL_ERROR;

19763

}

19764

} tcl_result = Tcl_GetObjResult(interp);

19765

{

19766

char buff[20];

19767

sprintf(buff, "%u", cl_hton16(*_result));

19768

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

19769

}

19770

return TCL_OK;

19771

}

19772

static ib_lft_t * _ib_lft_record_lft_set(sacLFTRec *obj, ib_lft_t val[64]) {

19773

{

19774

int i;

19775

int m = 64;

19776

if (m > 64) m = 64;

19777

for (i=0; i <64 ; i++) {

19778

obj->lft[i] = *(val+i);

19779

}

19780

}

19781

return (ib_lft_t *) val;

19782

}

19783

static int _wrap_sacLFTRec_lft_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19784

19785

ib_lft_t * _result;

19786

sacLFTRec * _arg0;

19787

ib_lft_t * _arg1;

19788

Tcl_Obj * tcl_result;

19789

char * rettype;

19790

19791

clientData = clientData; objv = objv;

19792

tcl_result = Tcl_GetObjResult(interp);

19793

if ((objc < 3) || (objc > 3)) {

19794

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_lft_set { sacLFTRec * } { ib_lft_t * } ",-1);

19795

return TCL_ERROR;

19796

}

19797

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19798

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_lft_set. Expected _sacLFTRec_p, received ", -1);

19799

Tcl_AppendToObj(tcl_result, rettype, -1);

19800

return TCL_ERROR;

19801

}

19802

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_ib_lft_t_p"))) {

19803

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacLFTRec_lft_set. Expected _ib_lft_t_p, received ", -1);

19804

Tcl_AppendToObj(tcl_result, rettype, -1);

19805

return TCL_ERROR;

19806

}

19807

{

19808

/* we can check if IBIS was initialized here */

19809

if (!IbisObj.initialized)

19810

{

19811

Tcl_SetStringObj(

19812

Tcl_GetObjResult(interp),

19813

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19814

return TCL_ERROR;

19815

}

19816

19817

if (! IbisObj.port_guid)

19818

{

19819

Tcl_SetStringObj(

19820

Tcl_GetObjResult(interp),

19821

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19822

return TCL_ERROR;

19823

}

19824

19825

ibis_tcl_error = 0;

19826

_result = (ib_lft_t *)_ib_lft_record_lft_set(_arg0,_arg1);

19827

;

19828

if (ibis_tcl_error) {

19829

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19830

return TCL_ERROR;

19831

}

19832

} tcl_result = Tcl_GetObjResult(interp);

19833

{

19834

char buf[12];

19835

int i;

19836

for (i = 0; i < 64; i++) {

19837

sprintf(buf, "{%u %u} ", i, _result[i]);

19838

Tcl_AppendToObj(tcl_result, buf, -1);

19839

}

19840

}

19841

return TCL_OK;

19842

}

19843

#define _ib_lft_record_lft_get(_swigobj) ((ib_lft_t *) _swigobj->lft)

19844

static int _wrap_sacLFTRec_lft_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19845

19846

ib_lft_t * _result;

19847

sacLFTRec * _arg0;

19848

Tcl_Obj * tcl_result;

19849

char * rettype;

19850

19851

clientData = clientData; objv = objv;

19852

tcl_result = Tcl_GetObjResult(interp);

19853

if ((objc < 2) || (objc > 2)) {

19854

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_lft_get { sacLFTRec * } ",-1);

19855

return TCL_ERROR;

19856

}

19857

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19858

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_lft_get. Expected _sacLFTRec_p, received ", -1);

19859

Tcl_AppendToObj(tcl_result, rettype, -1);

19860

return TCL_ERROR;

19861

}

19862

{

19863

/* we can check if IBIS was initialized here */

19864

if (!IbisObj.initialized)

19865

{

19866

Tcl_SetStringObj(

19867

Tcl_GetObjResult(interp),

19868

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19869

return TCL_ERROR;

19870

}

19871

19872

if (! IbisObj.port_guid)

19873

{

19874

Tcl_SetStringObj(

19875

Tcl_GetObjResult(interp),

19876

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19877

return TCL_ERROR;

19878

}

19879

19880

ibis_tcl_error = 0;

19881

_result = (ib_lft_t *)_ib_lft_record_lft_get(_arg0);

19882

;

19883

if (ibis_tcl_error) {

19884

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19885

return TCL_ERROR;

19886

}

19887

} tcl_result = Tcl_GetObjResult(interp);

19888

{

19889

char buf[12];

19890

int i;

19891

for (i = 0; i < 64; i++) {

19892

sprintf(buf, "{%u %u} ", i, _result[i]);

19893

Tcl_AppendToObj(tcl_result, buf, -1);

19894

}

19895

}

19896

return TCL_OK;

19897

}

19898

static char * sacLFTRec_get(sacLFTRec *self,uint64_t comp_mask) {

19899

return(ibsacLFTRecordQuery(self, cl_hton64(comp_mask),

19900

IB_MAD_METHOD_GET));

19901

}

19902

static int _wrap_sacLFTRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19903

19904

char * _result;

19905

sacLFTRec * _arg0;

19906

uint64_t * _arg1;

19907

Tcl_Obj * tcl_result;

19908

char * rettype;

19909

uint64_t temp;

19910

19911

clientData = clientData; objv = objv;

19912

tcl_result = Tcl_GetObjResult(interp);

19913

if ((objc < 3) || (objc > 3)) {

19914

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_get { sacLFTRec * } comp_mask ",-1);

19915

return TCL_ERROR;

19916

}

19917

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19918

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_get. Expected _sacLFTRec_p, received ", -1);

19919

Tcl_AppendToObj(tcl_result, rettype, -1);

19920

return TCL_ERROR;

19921

}

19922

{

19923

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

19924

_arg1 = &temp;

19925

}

19926

{

19927

/* we can check if IBIS was initialized here */

19928

if (!IbisObj.initialized)

19929

{

19930

Tcl_SetStringObj(

19931

Tcl_GetObjResult(interp),

19932

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19933

return TCL_ERROR;

19934

}

19935

19936

if (! IbisObj.port_guid)

19937

{

19938

Tcl_SetStringObj(

19939

Tcl_GetObjResult(interp),

19940

" ibis was not yet initialized. please use ibis_set_port before.", -1);

19941

return TCL_ERROR;

19942

}

19943

19944

ibis_tcl_error = 0;

19945

_result = (char *)sacLFTRec_get(_arg0,*_arg1);

19946

;

19947

if (ibis_tcl_error) {

19948

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

19949

return TCL_ERROR;

19950

}

19951

} tcl_result = Tcl_GetObjResult(interp);

19952

Tcl_SetStringObj(tcl_result,_result,-1);

19953

free(_result);

19954

19955

return TCL_OK;

19956

}

19957

static char * sacLFTRec_getTable(sacLFTRec *self,uint64_t comp_mask) {

19958

return(ibsacLFTRecordQuery(self, cl_hton64(comp_mask),

19959

IB_MAD_METHOD_GETTABLE));

19960

}

19961

static int _wrap_sacLFTRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

19962

19963

char * _result;

19964

sacLFTRec * _arg0;

19965

uint64_t * _arg1;

19966

Tcl_Obj * tcl_result;

19967

char * rettype;

19968

uint64_t temp;

19969

19970

clientData = clientData; objv = objv;

19971

tcl_result = Tcl_GetObjResult(interp);

19972

if ((objc < 3) || (objc > 3)) {

19973

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_getTable { sacLFTRec * } comp_mask ",-1);

19974

return TCL_ERROR;

19975

}

19976

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

19977

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_getTable. Expected _sacLFTRec_p, received ", -1);

19978

Tcl_AppendToObj(tcl_result, rettype, -1);

19979

return TCL_ERROR;

19980

}

19981

{

19982

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

19983

_arg1 = &temp;

19984

}

19985

{

19986

/* we can check if IBIS was initialized here */

19987

if (!IbisObj.initialized)

19988

{

19989

Tcl_SetStringObj(

19990

Tcl_GetObjResult(interp),

19991

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

19992

return TCL_ERROR;

19993

}

19994

19995

if (! IbisObj.port_guid)

19996

{

19997

Tcl_SetStringObj(

19998

Tcl_GetObjResult(interp),

19999

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20000

return TCL_ERROR;

20001

}

20002

20003

ibis_tcl_error = 0;

20004

_result = (char *)sacLFTRec_getTable(_arg0,*_arg1);

20005

;

20006

if (ibis_tcl_error) {

20007

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20008

return TCL_ERROR;

20009

}

20010

} tcl_result = Tcl_GetObjResult(interp);

20011

Tcl_SetStringObj(tcl_result,_result,-1);

20012

free(_result);

20013

20014

return TCL_OK;

20015

}

20016

static void sacLFTRec_delete(sacLFTRec *self) {

20017

SWIG_AltMnglUnregObj(self);

20018

free(self);

20019

}

20020

static int _wrap_sacLFTRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20021

20022

sacLFTRec * _arg0;

20023

Tcl_Obj * tcl_result;

20024

char * rettype;

20025

20026

clientData = clientData; objv = objv;

20027

tcl_result = Tcl_GetObjResult(interp);

20028

if ((objc < 2) || (objc > 2)) {

20029

Tcl_SetStringObj(tcl_result,"Wrong # args. sacLFTRec_delete { sacLFTRec * } ",-1);

20030

return TCL_ERROR;

20031

}

20032

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacLFTRec_p"))) {

20033

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacLFTRec_delete. Expected _sacLFTRec_p, received ", -1);

20034

Tcl_AppendToObj(tcl_result, rettype, -1);

20035

return TCL_ERROR;

20036

}

20037

{

20038

/* we can check if IBIS was initialized here */

20039

if (!IbisObj.initialized)

20040

{

20041

Tcl_SetStringObj(

20042

Tcl_GetObjResult(interp),

20043

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20044

return TCL_ERROR;

20045

}

20046

20047

if (! IbisObj.port_guid)

20048

{

20049

Tcl_SetStringObj(

20050

Tcl_GetObjResult(interp),

20051

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20052

return TCL_ERROR;

20053

}

20054

20055

ibis_tcl_error = 0;

20056

sacLFTRec_delete(_arg0);

20057

;

20058

if (ibis_tcl_error) {

20059

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20060

return TCL_ERROR;

20061

}

20062

} tcl_result = Tcl_GetObjResult(interp);

20063

return TCL_OK;

20064

}

20065

/* methodcmd8.swg : Tcl8.x method invocation */

20066

20067

static int TclsacLFTRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

20068

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

20069

char *_str;

20070

int rcode;

20071

Tcl_Obj **objv;

20072

Tcl_Obj *oldarg,*tcl_result,*obj;

20073

int length;

20074

char c;

20075

20076

tcl_result = Tcl_GetObjResult(interp);

20077

objv = (Tcl_Obj **) _objv;

20078

if (objc < 2) {

20079

Tcl_SetStringObj(tcl_result,"sacLFTRec methods : { dump cget configure get getTable delete }",-1);

20080

return TCL_ERROR;

20081

}

20082

obj = Tcl_NewObj();

20083

SWIG_SetPointerObj(obj,(void *) clientData,"_sacLFTRec_p");

20084

_str = Tcl_GetStringFromObj(objv[1],&length);

20085

c = *_str;

20086

if (0);

20087

if (strcmp(_str,"get") == 0) {

20088

cmd = _wrap_sacLFTRec_get;

20089

} else if (strcmp(_str,"getTable") == 0) {

20090

cmd = _wrap_sacLFTRec_getTable;

20091

} else if (strcmp(_str,"delete") == 0) {

20092

cmd = _wrap_sacLFTRec_delete;

20093

}

20094

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

20095

int i = 2;

20096

cmd = 0;

20097

while (i+1 < objc) {

20098

_str = Tcl_GetStringFromObj(objv[i],&length);

20099

if (strcmp(_str,"-lid") == 0) {

20100

cmd = _wrap_sacLFTRec_lid_set;

20101

} else if (strcmp(_str,"-block_num") == 0) {

20102

cmd = _wrap_sacLFTRec_block_num_set;

20103

} else if (strcmp(_str,"-lft") == 0) {

20104

cmd = _wrap_sacLFTRec_lft_set;

20105

}

20106

if (cmd) {

20107

oldarg = objv[i];

20108

objv[i] = obj;

20109

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

20110

objv[i] = oldarg;

20111

if (rcode == TCL_ERROR) return rcode;

20112

cmd = 0;

20113

} else {

20114

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -block_num -lft }",-1);

20115

return TCL_ERROR;

20116

}

20117

i+=2;

20118

}

20119

if ((i < objc) || (i == 2)) {

20120

Tcl_SetStringObj(tcl_result,"{ -lid -block_num -lft }",-1);

20121

return TCL_ERROR;

20122

}

20123

return TCL_OK;

20124

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

20125

if (objc == 3) {

20126

_str = Tcl_GetStringFromObj(objv[2],&length);

20127

if (0) {}

20128

if (strcmp(_str,"-lid") == 0) {

20129

cmd = _wrap_sacLFTRec_lid_get;

20130

} else if (strcmp(_str,"-block_num") == 0) {

20131

cmd = _wrap_sacLFTRec_block_num_get;

20132

} else if (strcmp(_str,"-lft") == 0) {

20133

cmd = _wrap_sacLFTRec_lft_get;

20134

}

20135

else if (strcmp(_str,"-this") == 0) {

20136

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacLFTRec_p");

20137

return TCL_OK;

20138

}

20139

if (cmd) {

20140

oldarg = objv[2];

20141

objv[2] = obj;

20142

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

20143

objv[2] = oldarg;

20144

return rcode;

20145

} else {

20146

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -block_num -lft }",-1);

20147

return TCL_ERROR;

20148

}

20149

} else {

20150

Tcl_SetStringObj(tcl_result,"{ -this -lid -block_num -lft }", -1);

20151

return TCL_ERROR;

20152

}

20153

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

20154

if (objc == 2) {

20155

Tcl_Obj *pDumpObj;

20156

pDumpObj = Tcl_NewStringObj("",-1);

20157

Tcl_IncrRefCount(pDumpObj);

20158

cmd = _wrap_sacLFTRec_lid_get;

20159

oldarg = objv[2];

20160

objv[2] = obj;

20161

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

20162

objv[2] = oldarg;

20163

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

20164

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

20165

cmd = _wrap_sacLFTRec_block_num_get;

20166

oldarg = objv[2];

20167

objv[2] = obj;

20168

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

20169

objv[2] = oldarg;

20170

Tcl_AppendStringsToObj(pDumpObj, "-block_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

20171

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

20172

cmd = _wrap_sacLFTRec_lft_get;

20173

oldarg = objv[2];

20174

objv[2] = obj;

20175

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

20176

objv[2] = oldarg;

20177

Tcl_AppendStringsToObj(pDumpObj, "-lft ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

20178

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

20179

20180

Tcl_DecrRefCount(pDumpObj);

20181

return TCL_OK;

20182

} else {

20183

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

20184

return TCL_ERROR;

20185

}

20186

}

20187

if (!cmd) {

20188

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

20189

return TCL_ERROR;

20190

}

20191

oldarg = objv[1];

20192

objv[1] = obj;

20193

rcode = (*cmd)(clientData,interp,objc,objv);

20194

objv[1] = oldarg;

20195

return rcode;

20196

}

20197

20198

20199

20200

/* objcmd8.swg : Tcl 8.x object creation */

20201

20202

static int TclsacLFTRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20203

void (*del)(ClientData) = 0;

20204

char *name = 0;

20205

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

20206

sacLFTRec * newObj = 0;

20207

int firstarg = 0;

20208

int thisarg = 0;

20209

int length;

20210

char *_str;

20211

Tcl_Obj *tcl_result;

20212

20213

tcl_result = Tcl_GetObjResult(interp);

20214

if (objc == 1) {

20215

cmd = 0;

20216

} else {

20217

_str = Tcl_GetStringFromObj(objv[1],&length);

20218

if (strcmp(_str,"-this") == 0) thisarg = 2;

20219

else if (strcmp(_str,"-args") == 0) {

20220

firstarg = 1;

20221

cmd = 0;

20222

} else if (objc == 2) {

20223

firstarg = 1;

20224

name = _str;

20225

cmd = 0;

20226

} else if (objc >= 3) {

20227

name = _str;

20228

_str = Tcl_GetStringFromObj(objv[2],&length);

20229

if (strcmp(_str,"-this") == 0) thisarg = 3;

20230

else {

20231

firstarg = 1;

20232

cmd = 0;

20233

}

20234

}

20235

}

20236

if (cmd) {

20237

int result;

20238

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

20239

if (result == TCL_OK) {

20240

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacLFTRec_p");

20241

} else { return result; }

20242

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

20243

del = 0;

20244

} else if (thisarg > 0) {

20245

if (thisarg < objc) {

20246

char *r;

20247

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacLFTRec_p");

20248

if (r) {

20249

Tcl_SetStringObj(tcl_result,"Type error. not a sacLFTRec object.",-1);

20250

return TCL_ERROR;

20251

}

20252

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

20253

Tcl_SetStringObj(tcl_result,name,-1);

20254

} else {

20255

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

20256

return TCL_ERROR;

20257

}

20258

} else {

20259

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

20260

return TCL_ERROR;

20261

}

20262

{

20263

Tcl_CmdInfo dummy;

20264

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

20265

Tcl_CreateObjCommand(interp,name, TclsacLFTRecMethodCmd, (ClientData) newObj, del);

20266

return TCL_OK;

20267

} else {

20268

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

20269

return TCL_ERROR;

20270

}

20271

}

20272

}

20273

20274

20275

#define _ib_member_rec_mgid_set(_swigobj,_swigval) (_swigobj->mgid = *(_swigval),_swigval)

20276

static int _wrap_sacMCMRec_mgid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20277

20278

ib_gid_t * _result;

20279

sacMCMRec * _arg0;

20280

ib_gid_t * _arg1;

20281

Tcl_Obj * tcl_result;

20282

char * rettype;

20283

ib_gid_t temp;

20284

20285

clientData = clientData; objv = objv;

20286

tcl_result = Tcl_GetObjResult(interp);

20287

if ((objc < 3) || (objc > 3)) {

20288

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mgid_set { sacMCMRec * } { ib_gid_t * } ",-1);

20289

return TCL_ERROR;

20290

}

20291

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20292

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mgid_set. Expected _sacMCMRec_p, received ", -1);

20293

Tcl_AppendToObj(tcl_result, rettype, -1);

20294

return TCL_ERROR;

20295

}

20296

{

20297

char buf[40];

20298

char *p_prefix, *p_guid;

20299

char *str_token = NULL;

20300

20301

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

20302

p_prefix = strtok_r(buf,":", &str_token);

20303

if (! p_prefix)

20304

{

20305

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

20306

return TCL_ERROR;

20307

}

20308

p_guid = strtok_r(NULL, " ", &str_token);

20309

if (! p_guid)

20310

{

20311

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

20312

return TCL_ERROR;

20313

}

20314

20315

errno = 0;

20316

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

20317

if (errno) {

20318

printf("Wrong format for gid prefix:%s\n", p_prefix);

20319

return TCL_ERROR;

20320

}

20321

20322

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

20323

if (errno) {

20324

printf("Wrong format for gid guid:%s\n", p_guid);

20325

return TCL_ERROR;

20326

}

20327

20328

_arg1 = &temp;

20329

}

20330

{

20331

/* we can check if IBIS was initialized here */

20332

if (!IbisObj.initialized)

20333

{

20334

Tcl_SetStringObj(

20335

Tcl_GetObjResult(interp),

20336

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20337

return TCL_ERROR;

20338

}

20339

20340

if (! IbisObj.port_guid)

20341

{

20342

Tcl_SetStringObj(

20343

Tcl_GetObjResult(interp),

20344

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20345

return TCL_ERROR;

20346

}

20347

20348

ibis_tcl_error = 0;

20349

_result = (ib_gid_t *)_ib_member_rec_mgid_set(_arg0,_arg1);

20350

;

20351

if (ibis_tcl_error) {

20352

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20353

return TCL_ERROR;

20354

}

20355

} tcl_result = Tcl_GetObjResult(interp);

20356

{

20357

char buff[38];

20358

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

20359

cl_ntoh64(_result->unicast.prefix),

20360

cl_ntoh64(_result->unicast.interface_id)

20361

);

20362

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20363

}

20364

return TCL_OK;

20365

}

20366

#define _ib_member_rec_mgid_get(_swigobj) (&_swigobj->mgid)

20367

static int _wrap_sacMCMRec_mgid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20368

20369

ib_gid_t * _result;

20370

sacMCMRec * _arg0;

20371

Tcl_Obj * tcl_result;

20372

char * rettype;

20373

20374

clientData = clientData; objv = objv;

20375

tcl_result = Tcl_GetObjResult(interp);

20376

if ((objc < 2) || (objc > 2)) {

20377

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mgid_get { sacMCMRec * } ",-1);

20378

return TCL_ERROR;

20379

}

20380

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20381

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mgid_get. Expected _sacMCMRec_p, received ", -1);

20382

Tcl_AppendToObj(tcl_result, rettype, -1);

20383

return TCL_ERROR;

20384

}

20385

{

20386

/* we can check if IBIS was initialized here */

20387

if (!IbisObj.initialized)

20388

{

20389

Tcl_SetStringObj(

20390

Tcl_GetObjResult(interp),

20391

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20392

return TCL_ERROR;

20393

}

20394

20395

if (! IbisObj.port_guid)

20396

{

20397

Tcl_SetStringObj(

20398

Tcl_GetObjResult(interp),

20399

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20400

return TCL_ERROR;

20401

}

20402

20403

ibis_tcl_error = 0;

20404

_result = (ib_gid_t *)_ib_member_rec_mgid_get(_arg0);

20405

;

20406

if (ibis_tcl_error) {

20407

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20408

return TCL_ERROR;

20409

}

20410

} tcl_result = Tcl_GetObjResult(interp);

20411

{

20412

char buff[38];

20413

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

20414

cl_ntoh64(_result->unicast.prefix),

20415

cl_ntoh64(_result->unicast.interface_id)

20416

);

20417

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20418

}

20419

return TCL_OK;

20420

}

20421

#define _ib_member_rec_port_gid_set(_swigobj,_swigval) (_swigobj->port_gid = *(_swigval),_swigval)

20422

static int _wrap_sacMCMRec_port_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20423

20424

ib_gid_t * _result;

20425

sacMCMRec * _arg0;

20426

ib_gid_t * _arg1;

20427

Tcl_Obj * tcl_result;

20428

char * rettype;

20429

ib_gid_t temp;

20430

20431

clientData = clientData; objv = objv;

20432

tcl_result = Tcl_GetObjResult(interp);

20433

if ((objc < 3) || (objc > 3)) {

20434

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_port_gid_set { sacMCMRec * } { ib_gid_t * } ",-1);

20435

return TCL_ERROR;

20436

}

20437

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20438

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_port_gid_set. Expected _sacMCMRec_p, received ", -1);

20439

Tcl_AppendToObj(tcl_result, rettype, -1);

20440

return TCL_ERROR;

20441

}

20442

{

20443

char buf[40];

20444

char *p_prefix, *p_guid;

20445

char *str_token = NULL;

20446

20447

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

20448

p_prefix = strtok_r(buf,":", &str_token);

20449

if (! p_prefix)

20450

{

20451

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

20452

return TCL_ERROR;

20453

}

20454

p_guid = strtok_r(NULL, " ", &str_token);

20455

if (! p_guid)

20456

{

20457

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

20458

return TCL_ERROR;

20459

}

20460

20461

errno = 0;

20462

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

20463

if (errno) {

20464

printf("Wrong format for gid prefix:%s\n", p_prefix);

20465

return TCL_ERROR;

20466

}

20467

20468

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

20469

if (errno) {

20470

printf("Wrong format for gid guid:%s\n", p_guid);

20471

return TCL_ERROR;

20472

}

20473

20474

_arg1 = &temp;

20475

}

20476

{

20477

/* we can check if IBIS was initialized here */

20478

if (!IbisObj.initialized)

20479

{

20480

Tcl_SetStringObj(

20481

Tcl_GetObjResult(interp),

20482

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20483

return TCL_ERROR;

20484

}

20485

20486

if (! IbisObj.port_guid)

20487

{

20488

Tcl_SetStringObj(

20489

Tcl_GetObjResult(interp),

20490

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20491

return TCL_ERROR;

20492

}

20493

20494

ibis_tcl_error = 0;

20495

_result = (ib_gid_t *)_ib_member_rec_port_gid_set(_arg0,_arg1);

20496

;

20497

if (ibis_tcl_error) {

20498

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20499

return TCL_ERROR;

20500

}

20501

} tcl_result = Tcl_GetObjResult(interp);

20502

{

20503

char buff[38];

20504

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

20505

cl_ntoh64(_result->unicast.prefix),

20506

cl_ntoh64(_result->unicast.interface_id)

20507

);

20508

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20509

}

20510

return TCL_OK;

20511

}

20512

#define _ib_member_rec_port_gid_get(_swigobj) (&_swigobj->port_gid)

20513

static int _wrap_sacMCMRec_port_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20514

20515

ib_gid_t * _result;

20516

sacMCMRec * _arg0;

20517

Tcl_Obj * tcl_result;

20518

char * rettype;

20519

20520

clientData = clientData; objv = objv;

20521

tcl_result = Tcl_GetObjResult(interp);

20522

if ((objc < 2) || (objc > 2)) {

20523

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_port_gid_get { sacMCMRec * } ",-1);

20524

return TCL_ERROR;

20525

}

20526

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20527

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_port_gid_get. Expected _sacMCMRec_p, received ", -1);

20528

Tcl_AppendToObj(tcl_result, rettype, -1);

20529

return TCL_ERROR;

20530

}

20531

{

20532

/* we can check if IBIS was initialized here */

20533

if (!IbisObj.initialized)

20534

{

20535

Tcl_SetStringObj(

20536

Tcl_GetObjResult(interp),

20537

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20538

return TCL_ERROR;

20539

}

20540

20541

if (! IbisObj.port_guid)

20542

{

20543

Tcl_SetStringObj(

20544

Tcl_GetObjResult(interp),

20545

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20546

return TCL_ERROR;

20547

}

20548

20549

ibis_tcl_error = 0;

20550

_result = (ib_gid_t *)_ib_member_rec_port_gid_get(_arg0);

20551

;

20552

if (ibis_tcl_error) {

20553

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20554

return TCL_ERROR;

20555

}

20556

} tcl_result = Tcl_GetObjResult(interp);

20557

{

20558

char buff[38];

20559

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

20560

cl_ntoh64(_result->unicast.prefix),

20561

cl_ntoh64(_result->unicast.interface_id)

20562

);

20563

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20564

}

20565

return TCL_OK;

20566

}

20567

#define _ib_member_rec_qkey_set(_swigobj,_swigval) (_swigobj->qkey = *(_swigval),_swigval)

20568

static int _wrap_sacMCMRec_qkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20569

20570

ib_net32_t * _result;

20571

sacMCMRec * _arg0;

20572

ib_net32_t * _arg1;

20573

Tcl_Obj * tcl_result;

20574

char * rettype;

20575

ib_net32_t temp;

20576

20577

clientData = clientData; objv = objv;

20578

tcl_result = Tcl_GetObjResult(interp);

20579

if ((objc < 3) || (objc > 3)) {

20580

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_qkey_set { sacMCMRec * } { ib_net32_t * } ",-1);

20581

return TCL_ERROR;

20582

}

20583

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20584

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_qkey_set. Expected _sacMCMRec_p, received ", -1);

20585

Tcl_AppendToObj(tcl_result, rettype, -1);

20586

return TCL_ERROR;

20587

}

20588

{

20589

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

20590

_arg1 = &temp;

20591

}

20592

{

20593

/* we can check if IBIS was initialized here */

20594

if (!IbisObj.initialized)

20595

{

20596

Tcl_SetStringObj(

20597

Tcl_GetObjResult(interp),

20598

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20599

return TCL_ERROR;

20600

}

20601

20602

if (! IbisObj.port_guid)

20603

{

20604

Tcl_SetStringObj(

20605

Tcl_GetObjResult(interp),

20606

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20607

return TCL_ERROR;

20608

}

20609

20610

ibis_tcl_error = 0;

20611

_result = (ib_net32_t *)_ib_member_rec_qkey_set(_arg0,_arg1);

20612

;

20613

if (ibis_tcl_error) {

20614

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20615

return TCL_ERROR;

20616

}

20617

} tcl_result = Tcl_GetObjResult(interp);

20618

{

20619

char buff[20];

20620

sprintf(buff, "%u", cl_ntoh32(*_result));

20621

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20622

}

20623

return TCL_OK;

20624

}

20625

#define _ib_member_rec_qkey_get(_swigobj) (&_swigobj->qkey)

20626

static int _wrap_sacMCMRec_qkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20627

20628

ib_net32_t * _result;

20629

sacMCMRec * _arg0;

20630

Tcl_Obj * tcl_result;

20631

char * rettype;

20632

20633

clientData = clientData; objv = objv;

20634

tcl_result = Tcl_GetObjResult(interp);

20635

if ((objc < 2) || (objc > 2)) {

20636

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_qkey_get { sacMCMRec * } ",-1);

20637

return TCL_ERROR;

20638

}

20639

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20640

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_qkey_get. Expected _sacMCMRec_p, received ", -1);

20641

Tcl_AppendToObj(tcl_result, rettype, -1);

20642

return TCL_ERROR;

20643

}

20644

{

20645

/* we can check if IBIS was initialized here */

20646

if (!IbisObj.initialized)

20647

{

20648

Tcl_SetStringObj(

20649

Tcl_GetObjResult(interp),

20650

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20651

return TCL_ERROR;

20652

}

20653

20654

if (! IbisObj.port_guid)

20655

{

20656

Tcl_SetStringObj(

20657

Tcl_GetObjResult(interp),

20658

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20659

return TCL_ERROR;

20660

}

20661

20662

ibis_tcl_error = 0;

20663

_result = (ib_net32_t *)_ib_member_rec_qkey_get(_arg0);

20664

;

20665

if (ibis_tcl_error) {

20666

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20667

return TCL_ERROR;

20668

}

20669

} tcl_result = Tcl_GetObjResult(interp);

20670

{

20671

char buff[20];

20672

sprintf(buff, "%u", cl_ntoh32(*_result));

20673

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20674

}

20675

return TCL_OK;

20676

}

20677

#define _ib_member_rec_mlid_set(_swigobj,_swigval) (_swigobj->mlid = *(_swigval),_swigval)

20678

static int _wrap_sacMCMRec_mlid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20679

20680

ib_net16_t * _result;

20681

sacMCMRec * _arg0;

20682

ib_net16_t * _arg1;

20683

Tcl_Obj * tcl_result;

20684

char * rettype;

20685

ib_net16_t temp;

20686

20687

clientData = clientData; objv = objv;

20688

tcl_result = Tcl_GetObjResult(interp);

20689

if ((objc < 3) || (objc > 3)) {

20690

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mlid_set { sacMCMRec * } { ib_net16_t * } ",-1);

20691

return TCL_ERROR;

20692

}

20693

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20694

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mlid_set. Expected _sacMCMRec_p, received ", -1);

20695

Tcl_AppendToObj(tcl_result, rettype, -1);

20696

return TCL_ERROR;

20697

}

20698

{

20699

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

20700

_arg1 = &temp;

20701

}

20702

{

20703

/* we can check if IBIS was initialized here */

20704

if (!IbisObj.initialized)

20705

{

20706

Tcl_SetStringObj(

20707

Tcl_GetObjResult(interp),

20708

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20709

return TCL_ERROR;

20710

}

20711

20712

if (! IbisObj.port_guid)

20713

{

20714

Tcl_SetStringObj(

20715

Tcl_GetObjResult(interp),

20716

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20717

return TCL_ERROR;

20718

}

20719

20720

ibis_tcl_error = 0;

20721

_result = (ib_net16_t *)_ib_member_rec_mlid_set(_arg0,_arg1);

20722

;

20723

if (ibis_tcl_error) {

20724

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20725

return TCL_ERROR;

20726

}

20727

} tcl_result = Tcl_GetObjResult(interp);

20728

{

20729

char buff[20];

20730

sprintf(buff, "%u", cl_hton16(*_result));

20731

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20732

}

20733

return TCL_OK;

20734

}

20735

#define _ib_member_rec_mlid_get(_swigobj) (&_swigobj->mlid)

20736

static int _wrap_sacMCMRec_mlid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20737

20738

ib_net16_t * _result;

20739

sacMCMRec * _arg0;

20740

Tcl_Obj * tcl_result;

20741

char * rettype;

20742

20743

clientData = clientData; objv = objv;

20744

tcl_result = Tcl_GetObjResult(interp);

20745

if ((objc < 2) || (objc > 2)) {

20746

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mlid_get { sacMCMRec * } ",-1);

20747

return TCL_ERROR;

20748

}

20749

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20750

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mlid_get. Expected _sacMCMRec_p, received ", -1);

20751

Tcl_AppendToObj(tcl_result, rettype, -1);

20752

return TCL_ERROR;

20753

}

20754

{

20755

/* we can check if IBIS was initialized here */

20756

if (!IbisObj.initialized)

20757

{

20758

Tcl_SetStringObj(

20759

Tcl_GetObjResult(interp),

20760

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20761

return TCL_ERROR;

20762

}

20763

20764

if (! IbisObj.port_guid)

20765

{

20766

Tcl_SetStringObj(

20767

Tcl_GetObjResult(interp),

20768

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20769

return TCL_ERROR;

20770

}

20771

20772

ibis_tcl_error = 0;

20773

_result = (ib_net16_t *)_ib_member_rec_mlid_get(_arg0);

20774

;

20775

if (ibis_tcl_error) {

20776

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20777

return TCL_ERROR;

20778

}

20779

} tcl_result = Tcl_GetObjResult(interp);

20780

{

20781

char buff[20];

20782

sprintf(buff, "%u", cl_hton16(*_result));

20783

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20784

}

20785

return TCL_OK;

20786

}

20787

#define _ib_member_rec_mtu_set(_swigobj,_swigval) (_swigobj->mtu = *(_swigval),_swigval)

20788

static int _wrap_sacMCMRec_mtu_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20789

20790

uint8_t * _result;

20791

sacMCMRec * _arg0;

20792

uint8_t * _arg1;

20793

Tcl_Obj * tcl_result;

20794

char * rettype;

20795

uint8_t temp;

20796

20797

clientData = clientData; objv = objv;

20798

tcl_result = Tcl_GetObjResult(interp);

20799

if ((objc < 3) || (objc > 3)) {

20800

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mtu_set { sacMCMRec * } { uint8_t * } ",-1);

20801

return TCL_ERROR;

20802

}

20803

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20804

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mtu_set. Expected _sacMCMRec_p, received ", -1);

20805

Tcl_AppendToObj(tcl_result, rettype, -1);

20806

return TCL_ERROR;

20807

}

20808

{

20809

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

20810

_arg1 = &temp;

20811

}

20812

{

20813

/* we can check if IBIS was initialized here */

20814

if (!IbisObj.initialized)

20815

{

20816

Tcl_SetStringObj(

20817

Tcl_GetObjResult(interp),

20818

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20819

return TCL_ERROR;

20820

}

20821

20822

if (! IbisObj.port_guid)

20823

{

20824

Tcl_SetStringObj(

20825

Tcl_GetObjResult(interp),

20826

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20827

return TCL_ERROR;

20828

}

20829

20830

ibis_tcl_error = 0;

20831

_result = (uint8_t *)_ib_member_rec_mtu_set(_arg0,_arg1);

20832

;

20833

if (ibis_tcl_error) {

20834

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20835

return TCL_ERROR;

20836

}

20837

} tcl_result = Tcl_GetObjResult(interp);

20838

{

20839

char buff[20];

20840

sprintf(buff, "%u", *_result);

20841

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20842

}

20843

return TCL_OK;

20844

}

20845

#define _ib_member_rec_mtu_get(_swigobj) (&_swigobj->mtu)

20846

static int _wrap_sacMCMRec_mtu_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20847

20848

uint8_t * _result;

20849

sacMCMRec * _arg0;

20850

Tcl_Obj * tcl_result;

20851

char * rettype;

20852

20853

clientData = clientData; objv = objv;

20854

tcl_result = Tcl_GetObjResult(interp);

20855

if ((objc < 2) || (objc > 2)) {

20856

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_mtu_get { sacMCMRec * } ",-1);

20857

return TCL_ERROR;

20858

}

20859

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20860

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_mtu_get. Expected _sacMCMRec_p, received ", -1);

20861

Tcl_AppendToObj(tcl_result, rettype, -1);

20862

return TCL_ERROR;

20863

}

20864

{

20865

/* we can check if IBIS was initialized here */

20866

if (!IbisObj.initialized)

20867

{

20868

Tcl_SetStringObj(

20869

Tcl_GetObjResult(interp),

20870

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20871

return TCL_ERROR;

20872

}

20873

20874

if (! IbisObj.port_guid)

20875

{

20876

Tcl_SetStringObj(

20877

Tcl_GetObjResult(interp),

20878

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20879

return TCL_ERROR;

20880

}

20881

20882

ibis_tcl_error = 0;

20883

_result = (uint8_t *)_ib_member_rec_mtu_get(_arg0);

20884

;

20885

if (ibis_tcl_error) {

20886

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20887

return TCL_ERROR;

20888

}

20889

} tcl_result = Tcl_GetObjResult(interp);

20890

{

20891

char buff[20];

20892

sprintf(buff, "%u", *_result);

20893

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20894

}

20895

return TCL_OK;

20896

}

20897

#define _ib_member_rec_tclass_set(_swigobj,_swigval) (_swigobj->tclass = *(_swigval),_swigval)

20898

static int _wrap_sacMCMRec_tclass_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20899

20900

uint8_t * _result;

20901

sacMCMRec * _arg0;

20902

uint8_t * _arg1;

20903

Tcl_Obj * tcl_result;

20904

char * rettype;

20905

uint8_t temp;

20906

20907

clientData = clientData; objv = objv;

20908

tcl_result = Tcl_GetObjResult(interp);

20909

if ((objc < 3) || (objc > 3)) {

20910

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_tclass_set { sacMCMRec * } { uint8_t * } ",-1);

20911

return TCL_ERROR;

20912

}

20913

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20914

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_tclass_set. Expected _sacMCMRec_p, received ", -1);

20915

Tcl_AppendToObj(tcl_result, rettype, -1);

20916

return TCL_ERROR;

20917

}

20918

{

20919

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

20920

_arg1 = &temp;

20921

}

20922

{

20923

/* we can check if IBIS was initialized here */

20924

if (!IbisObj.initialized)

20925

{

20926

Tcl_SetStringObj(

20927

Tcl_GetObjResult(interp),

20928

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20929

return TCL_ERROR;

20930

}

20931

20932

if (! IbisObj.port_guid)

20933

{

20934

Tcl_SetStringObj(

20935

Tcl_GetObjResult(interp),

20936

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20937

return TCL_ERROR;

20938

}

20939

20940

ibis_tcl_error = 0;

20941

_result = (uint8_t *)_ib_member_rec_tclass_set(_arg0,_arg1);

20942

;

20943

if (ibis_tcl_error) {

20944

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20945

return TCL_ERROR;

20946

}

20947

} tcl_result = Tcl_GetObjResult(interp);

20948

{

20949

char buff[20];

20950

sprintf(buff, "%u", *_result);

20951

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

20952

}

20953

return TCL_OK;

20954

}

20955

#define _ib_member_rec_tclass_get(_swigobj) (&_swigobj->tclass)

20956

static int _wrap_sacMCMRec_tclass_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

20957

20958

uint8_t * _result;

20959

sacMCMRec * _arg0;

20960

Tcl_Obj * tcl_result;

20961

char * rettype;

20962

20963

clientData = clientData; objv = objv;

20964

tcl_result = Tcl_GetObjResult(interp);

20965

if ((objc < 2) || (objc > 2)) {

20966

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_tclass_get { sacMCMRec * } ",-1);

20967

return TCL_ERROR;

20968

}

20969

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

20970

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_tclass_get. Expected _sacMCMRec_p, received ", -1);

20971

Tcl_AppendToObj(tcl_result, rettype, -1);

20972

return TCL_ERROR;

20973

}

20974

{

20975

/* we can check if IBIS was initialized here */

20976

if (!IbisObj.initialized)

20977

{

20978

Tcl_SetStringObj(

20979

Tcl_GetObjResult(interp),

20980

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

20981

return TCL_ERROR;

20982

}

20983

20984

if (! IbisObj.port_guid)

20985

{

20986

Tcl_SetStringObj(

20987

Tcl_GetObjResult(interp),

20988

" ibis was not yet initialized. please use ibis_set_port before.", -1);

20989

return TCL_ERROR;

20990

}

20991

20992

ibis_tcl_error = 0;

20993

_result = (uint8_t *)_ib_member_rec_tclass_get(_arg0);

20994

;

20995

if (ibis_tcl_error) {

20996

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

20997

return TCL_ERROR;

20998

}

20999

} tcl_result = Tcl_GetObjResult(interp);

21000

{

21001

char buff[20];

21002

sprintf(buff, "%u", *_result);

21003

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21004

}

21005

return TCL_OK;

21006

}

21007

#define _ib_member_rec_pkey_set(_swigobj,_swigval) (_swigobj->pkey = *(_swigval),_swigval)

21008

static int _wrap_sacMCMRec_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21009

21010

ib_net16_t * _result;

21011

sacMCMRec * _arg0;

21012

ib_net16_t * _arg1;

21013

Tcl_Obj * tcl_result;

21014

char * rettype;

21015

ib_net16_t temp;

21016

21017

clientData = clientData; objv = objv;

21018

tcl_result = Tcl_GetObjResult(interp);

21019

if ((objc < 3) || (objc > 3)) {

21020

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_pkey_set { sacMCMRec * } { ib_net16_t * } ",-1);

21021

return TCL_ERROR;

21022

}

21023

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21024

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_pkey_set. Expected _sacMCMRec_p, received ", -1);

21025

Tcl_AppendToObj(tcl_result, rettype, -1);

21026

return TCL_ERROR;

21027

}

21028

{

21029

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

21030

_arg1 = &temp;

21031

}

21032

{

21033

/* we can check if IBIS was initialized here */

21034

if (!IbisObj.initialized)

21035

{

21036

Tcl_SetStringObj(

21037

Tcl_GetObjResult(interp),

21038

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21039

return TCL_ERROR;

21040

}

21041

21042

if (! IbisObj.port_guid)

21043

{

21044

Tcl_SetStringObj(

21045

Tcl_GetObjResult(interp),

21046

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21047

return TCL_ERROR;

21048

}

21049

21050

ibis_tcl_error = 0;

21051

_result = (ib_net16_t *)_ib_member_rec_pkey_set(_arg0,_arg1);

21052

;

21053

if (ibis_tcl_error) {

21054

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21055

return TCL_ERROR;

21056

}

21057

} tcl_result = Tcl_GetObjResult(interp);

21058

{

21059

char buff[20];

21060

sprintf(buff, "%u", cl_hton16(*_result));

21061

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21062

}

21063

return TCL_OK;

21064

}

21065

#define _ib_member_rec_pkey_get(_swigobj) (&_swigobj->pkey)

21066

static int _wrap_sacMCMRec_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21067

21068

ib_net16_t * _result;

21069

sacMCMRec * _arg0;

21070

Tcl_Obj * tcl_result;

21071

char * rettype;

21072

21073

clientData = clientData; objv = objv;

21074

tcl_result = Tcl_GetObjResult(interp);

21075

if ((objc < 2) || (objc > 2)) {

21076

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_pkey_get { sacMCMRec * } ",-1);

21077

return TCL_ERROR;

21078

}

21079

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21080

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_pkey_get. Expected _sacMCMRec_p, received ", -1);

21081

Tcl_AppendToObj(tcl_result, rettype, -1);

21082

return TCL_ERROR;

21083

}

21084

{

21085

/* we can check if IBIS was initialized here */

21086

if (!IbisObj.initialized)

21087

{

21088

Tcl_SetStringObj(

21089

Tcl_GetObjResult(interp),

21090

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21091

return TCL_ERROR;

21092

}

21093

21094

if (! IbisObj.port_guid)

21095

{

21096

Tcl_SetStringObj(

21097

Tcl_GetObjResult(interp),

21098

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21099

return TCL_ERROR;

21100

}

21101

21102

ibis_tcl_error = 0;

21103

_result = (ib_net16_t *)_ib_member_rec_pkey_get(_arg0);

21104

;

21105

if (ibis_tcl_error) {

21106

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21107

return TCL_ERROR;

21108

}

21109

} tcl_result = Tcl_GetObjResult(interp);

21110

{

21111

char buff[20];

21112

sprintf(buff, "%u", cl_hton16(*_result));

21113

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21114

}

21115

return TCL_OK;

21116

}

21117

#define _ib_member_rec_rate_set(_swigobj,_swigval) (_swigobj->rate = *(_swigval),_swigval)

21118

static int _wrap_sacMCMRec_rate_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21119

21120

uint8_t * _result;

21121

sacMCMRec * _arg0;

21122

uint8_t * _arg1;

21123

Tcl_Obj * tcl_result;

21124

char * rettype;

21125

uint8_t temp;

21126

21127

clientData = clientData; objv = objv;

21128

tcl_result = Tcl_GetObjResult(interp);

21129

if ((objc < 3) || (objc > 3)) {

21130

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_rate_set { sacMCMRec * } { uint8_t * } ",-1);

21131

return TCL_ERROR;

21132

}

21133

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21134

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_rate_set. Expected _sacMCMRec_p, received ", -1);

21135

Tcl_AppendToObj(tcl_result, rettype, -1);

21136

return TCL_ERROR;

21137

}

21138

{

21139

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

21140

_arg1 = &temp;

21141

}

21142

{

21143

/* we can check if IBIS was initialized here */

21144

if (!IbisObj.initialized)

21145

{

21146

Tcl_SetStringObj(

21147

Tcl_GetObjResult(interp),

21148

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21149

return TCL_ERROR;

21150

}

21151

21152

if (! IbisObj.port_guid)

21153

{

21154

Tcl_SetStringObj(

21155

Tcl_GetObjResult(interp),

21156

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21157

return TCL_ERROR;

21158

}

21159

21160

ibis_tcl_error = 0;

21161

_result = (uint8_t *)_ib_member_rec_rate_set(_arg0,_arg1);

21162

;

21163

if (ibis_tcl_error) {

21164

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21165

return TCL_ERROR;

21166

}

21167

} tcl_result = Tcl_GetObjResult(interp);

21168

{

21169

char buff[20];

21170

sprintf(buff, "%u", *_result);

21171

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21172

}

21173

return TCL_OK;

21174

}

21175

#define _ib_member_rec_rate_get(_swigobj) (&_swigobj->rate)

21176

static int _wrap_sacMCMRec_rate_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21177

21178

uint8_t * _result;

21179

sacMCMRec * _arg0;

21180

Tcl_Obj * tcl_result;

21181

char * rettype;

21182

21183

clientData = clientData; objv = objv;

21184

tcl_result = Tcl_GetObjResult(interp);

21185

if ((objc < 2) || (objc > 2)) {

21186

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_rate_get { sacMCMRec * } ",-1);

21187

return TCL_ERROR;

21188

}

21189

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21190

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_rate_get. Expected _sacMCMRec_p, received ", -1);

21191

Tcl_AppendToObj(tcl_result, rettype, -1);

21192

return TCL_ERROR;

21193

}

21194

{

21195

/* we can check if IBIS was initialized here */

21196

if (!IbisObj.initialized)

21197

{

21198

Tcl_SetStringObj(

21199

Tcl_GetObjResult(interp),

21200

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21201

return TCL_ERROR;

21202

}

21203

21204

if (! IbisObj.port_guid)

21205

{

21206

Tcl_SetStringObj(

21207

Tcl_GetObjResult(interp),

21208

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21209

return TCL_ERROR;

21210

}

21211

21212

ibis_tcl_error = 0;

21213

_result = (uint8_t *)_ib_member_rec_rate_get(_arg0);

21214

;

21215

if (ibis_tcl_error) {

21216

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21217

return TCL_ERROR;

21218

}

21219

} tcl_result = Tcl_GetObjResult(interp);

21220

{

21221

char buff[20];

21222

sprintf(buff, "%u", *_result);

21223

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21224

}

21225

return TCL_OK;

21226

}

21227

#define _ib_member_rec_pkt_life_set(_swigobj,_swigval) (_swigobj->pkt_life = *(_swigval),_swigval)

21228

static int _wrap_sacMCMRec_pkt_life_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21229

21230

uint8_t * _result;

21231

sacMCMRec * _arg0;

21232

uint8_t * _arg1;

21233

Tcl_Obj * tcl_result;

21234

char * rettype;

21235

uint8_t temp;

21236

21237

clientData = clientData; objv = objv;

21238

tcl_result = Tcl_GetObjResult(interp);

21239

if ((objc < 3) || (objc > 3)) {

21240

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_pkt_life_set { sacMCMRec * } { uint8_t * } ",-1);

21241

return TCL_ERROR;

21242

}

21243

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21244

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_pkt_life_set. Expected _sacMCMRec_p, received ", -1);

21245

Tcl_AppendToObj(tcl_result, rettype, -1);

21246

return TCL_ERROR;

21247

}

21248

{

21249

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

21250

_arg1 = &temp;

21251

}

21252

{

21253

/* we can check if IBIS was initialized here */

21254

if (!IbisObj.initialized)

21255

{

21256

Tcl_SetStringObj(

21257

Tcl_GetObjResult(interp),

21258

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21259

return TCL_ERROR;

21260

}

21261

21262

if (! IbisObj.port_guid)

21263

{

21264

Tcl_SetStringObj(

21265

Tcl_GetObjResult(interp),

21266

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21267

return TCL_ERROR;

21268

}

21269

21270

ibis_tcl_error = 0;

21271

_result = (uint8_t *)_ib_member_rec_pkt_life_set(_arg0,_arg1);

21272

;

21273

if (ibis_tcl_error) {

21274

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21275

return TCL_ERROR;

21276

}

21277

} tcl_result = Tcl_GetObjResult(interp);

21278

{

21279

char buff[20];

21280

sprintf(buff, "%u", *_result);

21281

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21282

}

21283

return TCL_OK;

21284

}

21285

#define _ib_member_rec_pkt_life_get(_swigobj) (&_swigobj->pkt_life)

21286

static int _wrap_sacMCMRec_pkt_life_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21287

21288

uint8_t * _result;

21289

sacMCMRec * _arg0;

21290

Tcl_Obj * tcl_result;

21291

char * rettype;

21292

21293

clientData = clientData; objv = objv;

21294

tcl_result = Tcl_GetObjResult(interp);

21295

if ((objc < 2) || (objc > 2)) {

21296

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_pkt_life_get { sacMCMRec * } ",-1);

21297

return TCL_ERROR;

21298

}

21299

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21300

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_pkt_life_get. Expected _sacMCMRec_p, received ", -1);

21301

Tcl_AppendToObj(tcl_result, rettype, -1);

21302

return TCL_ERROR;

21303

}

21304

{

21305

/* we can check if IBIS was initialized here */

21306

if (!IbisObj.initialized)

21307

{

21308

Tcl_SetStringObj(

21309

Tcl_GetObjResult(interp),

21310

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21311

return TCL_ERROR;

21312

}

21313

21314

if (! IbisObj.port_guid)

21315

{

21316

Tcl_SetStringObj(

21317

Tcl_GetObjResult(interp),

21318

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21319

return TCL_ERROR;

21320

}

21321

21322

ibis_tcl_error = 0;

21323

_result = (uint8_t *)_ib_member_rec_pkt_life_get(_arg0);

21324

;

21325

if (ibis_tcl_error) {

21326

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21327

return TCL_ERROR;

21328

}

21329

} tcl_result = Tcl_GetObjResult(interp);

21330

{

21331

char buff[20];

21332

sprintf(buff, "%u", *_result);

21333

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21334

}

21335

return TCL_OK;

21336

}

21337

#define _ib_member_rec_sl_flow_hop_set(_swigobj,_swigval) (_swigobj->sl_flow_hop = *(_swigval),_swigval)

21338

static int _wrap_sacMCMRec_sl_flow_hop_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21339

21340

ib_net32_t * _result;

21341

sacMCMRec * _arg0;

21342

ib_net32_t * _arg1;

21343

Tcl_Obj * tcl_result;

21344

char * rettype;

21345

ib_net32_t temp;

21346

21347

clientData = clientData; objv = objv;

21348

tcl_result = Tcl_GetObjResult(interp);

21349

if ((objc < 3) || (objc > 3)) {

21350

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_sl_flow_hop_set { sacMCMRec * } { ib_net32_t * } ",-1);

21351

return TCL_ERROR;

21352

}

21353

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21354

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_sl_flow_hop_set. Expected _sacMCMRec_p, received ", -1);

21355

Tcl_AppendToObj(tcl_result, rettype, -1);

21356

return TCL_ERROR;

21357

}

21358

{

21359

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

21360

_arg1 = &temp;

21361

}

21362

{

21363

/* we can check if IBIS was initialized here */

21364

if (!IbisObj.initialized)

21365

{

21366

Tcl_SetStringObj(

21367

Tcl_GetObjResult(interp),

21368

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21369

return TCL_ERROR;

21370

}

21371

21372

if (! IbisObj.port_guid)

21373

{

21374

Tcl_SetStringObj(

21375

Tcl_GetObjResult(interp),

21376

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21377

return TCL_ERROR;

21378

}

21379

21380

ibis_tcl_error = 0;

21381

_result = (ib_net32_t *)_ib_member_rec_sl_flow_hop_set(_arg0,_arg1);

21382

;

21383

if (ibis_tcl_error) {

21384

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21385

return TCL_ERROR;

21386

}

21387

} tcl_result = Tcl_GetObjResult(interp);

21388

{

21389

char buff[20];

21390

sprintf(buff, "%u", cl_ntoh32(*_result));

21391

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21392

}

21393

return TCL_OK;

21394

}

21395

#define _ib_member_rec_sl_flow_hop_get(_swigobj) (&_swigobj->sl_flow_hop)

21396

static int _wrap_sacMCMRec_sl_flow_hop_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21397

21398

ib_net32_t * _result;

21399

sacMCMRec * _arg0;

21400

Tcl_Obj * tcl_result;

21401

char * rettype;

21402

21403

clientData = clientData; objv = objv;

21404

tcl_result = Tcl_GetObjResult(interp);

21405

if ((objc < 2) || (objc > 2)) {

21406

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_sl_flow_hop_get { sacMCMRec * } ",-1);

21407

return TCL_ERROR;

21408

}

21409

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21410

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_sl_flow_hop_get. Expected _sacMCMRec_p, received ", -1);

21411

Tcl_AppendToObj(tcl_result, rettype, -1);

21412

return TCL_ERROR;

21413

}

21414

{

21415

/* we can check if IBIS was initialized here */

21416

if (!IbisObj.initialized)

21417

{

21418

Tcl_SetStringObj(

21419

Tcl_GetObjResult(interp),

21420

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21421

return TCL_ERROR;

21422

}

21423

21424

if (! IbisObj.port_guid)

21425

{

21426

Tcl_SetStringObj(

21427

Tcl_GetObjResult(interp),

21428

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21429

return TCL_ERROR;

21430

}

21431

21432

ibis_tcl_error = 0;

21433

_result = (ib_net32_t *)_ib_member_rec_sl_flow_hop_get(_arg0);

21434

;

21435

if (ibis_tcl_error) {

21436

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21437

return TCL_ERROR;

21438

}

21439

} tcl_result = Tcl_GetObjResult(interp);

21440

{

21441

char buff[20];

21442

sprintf(buff, "%u", cl_ntoh32(*_result));

21443

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21444

}

21445

return TCL_OK;

21446

}

21447

#define _ib_member_rec_scope_state_set(_swigobj,_swigval) (_swigobj->scope_state = *(_swigval),_swigval)

21448

static int _wrap_sacMCMRec_scope_state_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21449

21450

uint8_t * _result;

21451

sacMCMRec * _arg0;

21452

uint8_t * _arg1;

21453

Tcl_Obj * tcl_result;

21454

char * rettype;

21455

uint8_t temp;

21456

21457

clientData = clientData; objv = objv;

21458

tcl_result = Tcl_GetObjResult(interp);

21459

if ((objc < 3) || (objc > 3)) {

21460

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_scope_state_set { sacMCMRec * } { uint8_t * } ",-1);

21461

return TCL_ERROR;

21462

}

21463

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21464

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_scope_state_set. Expected _sacMCMRec_p, received ", -1);

21465

Tcl_AppendToObj(tcl_result, rettype, -1);

21466

return TCL_ERROR;

21467

}

21468

{

21469

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

21470

_arg1 = &temp;

21471

}

21472

{

21473

/* we can check if IBIS was initialized here */

21474

if (!IbisObj.initialized)

21475

{

21476

Tcl_SetStringObj(

21477

Tcl_GetObjResult(interp),

21478

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21479

return TCL_ERROR;

21480

}

21481

21482

if (! IbisObj.port_guid)

21483

{

21484

Tcl_SetStringObj(

21485

Tcl_GetObjResult(interp),

21486

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21487

return TCL_ERROR;

21488

}

21489

21490

ibis_tcl_error = 0;

21491

_result = (uint8_t *)_ib_member_rec_scope_state_set(_arg0,_arg1);

21492

;

21493

if (ibis_tcl_error) {

21494

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21495

return TCL_ERROR;

21496

}

21497

} tcl_result = Tcl_GetObjResult(interp);

21498

{

21499

char buff[20];

21500

sprintf(buff, "%u", *_result);

21501

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21502

}

21503

return TCL_OK;

21504

}

21505

#define _ib_member_rec_scope_state_get(_swigobj) (&_swigobj->scope_state)

21506

static int _wrap_sacMCMRec_scope_state_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21507

21508

uint8_t * _result;

21509

sacMCMRec * _arg0;

21510

Tcl_Obj * tcl_result;

21511

char * rettype;

21512

21513

clientData = clientData; objv = objv;

21514

tcl_result = Tcl_GetObjResult(interp);

21515

if ((objc < 2) || (objc > 2)) {

21516

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_scope_state_get { sacMCMRec * } ",-1);

21517

return TCL_ERROR;

21518

}

21519

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21520

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_scope_state_get. Expected _sacMCMRec_p, received ", -1);

21521

Tcl_AppendToObj(tcl_result, rettype, -1);

21522

return TCL_ERROR;

21523

}

21524

{

21525

/* we can check if IBIS was initialized here */

21526

if (!IbisObj.initialized)

21527

{

21528

Tcl_SetStringObj(

21529

Tcl_GetObjResult(interp),

21530

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21531

return TCL_ERROR;

21532

}

21533

21534

if (! IbisObj.port_guid)

21535

{

21536

Tcl_SetStringObj(

21537

Tcl_GetObjResult(interp),

21538

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21539

return TCL_ERROR;

21540

}

21541

21542

ibis_tcl_error = 0;

21543

_result = (uint8_t *)_ib_member_rec_scope_state_get(_arg0);

21544

;

21545

if (ibis_tcl_error) {

21546

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21547

return TCL_ERROR;

21548

}

21549

} tcl_result = Tcl_GetObjResult(interp);

21550

{

21551

char buff[20];

21552

sprintf(buff, "%u", *_result);

21553

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

21554

}

21555

return TCL_OK;

21556

}

21557

static char * sacMCMRec_get(sacMCMRec *self,uint64_t comp_mask) {

21558

return(ibsacMCMemberRecordQuery(self, cl_hton64(comp_mask),

21559

IB_MAD_METHOD_GET));

21560

}

21561

static int _wrap_sacMCMRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21562

21563

char * _result;

21564

sacMCMRec * _arg0;

21565

uint64_t * _arg1;

21566

Tcl_Obj * tcl_result;

21567

char * rettype;

21568

uint64_t temp;

21569

21570

clientData = clientData; objv = objv;

21571

tcl_result = Tcl_GetObjResult(interp);

21572

if ((objc < 3) || (objc > 3)) {

21573

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_get { sacMCMRec * } comp_mask ",-1);

21574

return TCL_ERROR;

21575

}

21576

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21577

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_get. Expected _sacMCMRec_p, received ", -1);

21578

Tcl_AppendToObj(tcl_result, rettype, -1);

21579

return TCL_ERROR;

21580

}

21581

{

21582

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

21583

_arg1 = &temp;

21584

}

21585

{

21586

/* we can check if IBIS was initialized here */

21587

if (!IbisObj.initialized)

21588

{

21589

Tcl_SetStringObj(

21590

Tcl_GetObjResult(interp),

21591

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21592

return TCL_ERROR;

21593

}

21594

21595

if (! IbisObj.port_guid)

21596

{

21597

Tcl_SetStringObj(

21598

Tcl_GetObjResult(interp),

21599

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21600

return TCL_ERROR;

21601

}

21602

21603

ibis_tcl_error = 0;

21604

_result = (char *)sacMCMRec_get(_arg0,*_arg1);

21605

;

21606

if (ibis_tcl_error) {

21607

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21608

return TCL_ERROR;

21609

}

21610

} tcl_result = Tcl_GetObjResult(interp);

21611

Tcl_SetStringObj(tcl_result,_result,-1);

21612

free(_result);

21613

21614

return TCL_OK;

21615

}

21616

static char * sacMCMRec_getTable(sacMCMRec *self,uint64_t comp_mask) {

21617

return(ibsacMCMemberRecordQuery(self, cl_hton64(comp_mask),

21618

IB_MAD_METHOD_GETTABLE));

21619

}

21620

static int _wrap_sacMCMRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21621

21622

char * _result;

21623

sacMCMRec * _arg0;

21624

uint64_t * _arg1;

21625

Tcl_Obj * tcl_result;

21626

char * rettype;

21627

uint64_t temp;

21628

21629

clientData = clientData; objv = objv;

21630

tcl_result = Tcl_GetObjResult(interp);

21631

if ((objc < 3) || (objc > 3)) {

21632

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_getTable { sacMCMRec * } comp_mask ",-1);

21633

return TCL_ERROR;

21634

}

21635

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21636

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_getTable. Expected _sacMCMRec_p, received ", -1);

21637

Tcl_AppendToObj(tcl_result, rettype, -1);

21638

return TCL_ERROR;

21639

}

21640

{

21641

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

21642

_arg1 = &temp;

21643

}

21644

{

21645

/* we can check if IBIS was initialized here */

21646

if (!IbisObj.initialized)

21647

{

21648

Tcl_SetStringObj(

21649

Tcl_GetObjResult(interp),

21650

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21651

return TCL_ERROR;

21652

}

21653

21654

if (! IbisObj.port_guid)

21655

{

21656

Tcl_SetStringObj(

21657

Tcl_GetObjResult(interp),

21658

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21659

return TCL_ERROR;

21660

}

21661

21662

ibis_tcl_error = 0;

21663

_result = (char *)sacMCMRec_getTable(_arg0,*_arg1);

21664

;

21665

if (ibis_tcl_error) {

21666

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21667

return TCL_ERROR;

21668

}

21669

} tcl_result = Tcl_GetObjResult(interp);

21670

Tcl_SetStringObj(tcl_result,_result,-1);

21671

free(_result);

21672

21673

return TCL_OK;

21674

}

21675

static char * sacMCMRec_set(sacMCMRec *self,uint64_t comp_mask) {

21676

return(ibsacMCMemberRecordQuery(self, cl_hton64(comp_mask),

21677

IB_MAD_METHOD_SET));

21678

}

21679

static int _wrap_sacMCMRec_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21680

21681

char * _result;

21682

sacMCMRec * _arg0;

21683

uint64_t * _arg1;

21684

Tcl_Obj * tcl_result;

21685

char * rettype;

21686

uint64_t temp;

21687

21688

clientData = clientData; objv = objv;

21689

tcl_result = Tcl_GetObjResult(interp);

21690

if ((objc < 3) || (objc > 3)) {

21691

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_set { sacMCMRec * } comp_mask ",-1);

21692

return TCL_ERROR;

21693

}

21694

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21695

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_set. Expected _sacMCMRec_p, received ", -1);

21696

Tcl_AppendToObj(tcl_result, rettype, -1);

21697

return TCL_ERROR;

21698

}

21699

{

21700

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

21701

_arg1 = &temp;

21702

}

21703

{

21704

/* we can check if IBIS was initialized here */

21705

if (!IbisObj.initialized)

21706

{

21707

Tcl_SetStringObj(

21708

Tcl_GetObjResult(interp),

21709

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21710

return TCL_ERROR;

21711

}

21712

21713

if (! IbisObj.port_guid)

21714

{

21715

Tcl_SetStringObj(

21716

Tcl_GetObjResult(interp),

21717

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21718

return TCL_ERROR;

21719

}

21720

21721

ibis_tcl_error = 0;

21722

_result = (char *)sacMCMRec_set(_arg0,*_arg1);

21723

;

21724

if (ibis_tcl_error) {

21725

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21726

return TCL_ERROR;

21727

}

21728

} tcl_result = Tcl_GetObjResult(interp);

21729

Tcl_SetStringObj(tcl_result,_result,-1);

21730

free(_result);

21731

21732

return TCL_OK;

21733

}

21734

static char * sacMCMRec_del(sacMCMRec *self,uint64_t comp_mask) {

21735

return(ibsacMCMemberRecordQuery(self, cl_hton64(comp_mask),

21736

IB_MAD_METHOD_DELETE));

21737

}

21738

static int _wrap_sacMCMRec_del(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21739

21740

char * _result;

21741

sacMCMRec * _arg0;

21742

uint64_t * _arg1;

21743

Tcl_Obj * tcl_result;

21744

char * rettype;

21745

uint64_t temp;

21746

21747

clientData = clientData; objv = objv;

21748

tcl_result = Tcl_GetObjResult(interp);

21749

if ((objc < 3) || (objc > 3)) {

21750

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_del { sacMCMRec * } comp_mask ",-1);

21751

return TCL_ERROR;

21752

}

21753

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21754

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_del. Expected _sacMCMRec_p, received ", -1);

21755

Tcl_AppendToObj(tcl_result, rettype, -1);

21756

return TCL_ERROR;

21757

}

21758

{

21759

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

21760

_arg1 = &temp;

21761

}

21762

{

21763

/* we can check if IBIS was initialized here */

21764

if (!IbisObj.initialized)

21765

{

21766

Tcl_SetStringObj(

21767

Tcl_GetObjResult(interp),

21768

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21769

return TCL_ERROR;

21770

}

21771

21772

if (! IbisObj.port_guid)

21773

{

21774

Tcl_SetStringObj(

21775

Tcl_GetObjResult(interp),

21776

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21777

return TCL_ERROR;

21778

}

21779

21780

ibis_tcl_error = 0;

21781

_result = (char *)sacMCMRec_del(_arg0,*_arg1);

21782

;

21783

if (ibis_tcl_error) {

21784

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21785

return TCL_ERROR;

21786

}

21787

} tcl_result = Tcl_GetObjResult(interp);

21788

Tcl_SetStringObj(tcl_result,_result,-1);

21789

free(_result);

21790

21791

return TCL_OK;

21792

}

21793

static int sacMCMRec_proxy_join_get(sacMCMRec *self) {

21794

return(self->proxy_join);

21795

}

21796

static int _wrap_sacMCMRec_proxy_join_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21797

21798

int _result;

21799

sacMCMRec * _arg0;

21800

Tcl_Obj * tcl_result;

21801

char * rettype;

21802

21803

clientData = clientData; objv = objv;

21804

tcl_result = Tcl_GetObjResult(interp);

21805

if ((objc < 2) || (objc > 2)) {

21806

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_proxy_join_get { sacMCMRec * } ",-1);

21807

return TCL_ERROR;

21808

}

21809

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21810

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_proxy_join_get. Expected _sacMCMRec_p, received ", -1);

21811

Tcl_AppendToObj(tcl_result, rettype, -1);

21812

return TCL_ERROR;

21813

}

21814

{

21815

/* we can check if IBIS was initialized here */

21816

if (!IbisObj.initialized)

21817

{

21818

Tcl_SetStringObj(

21819

Tcl_GetObjResult(interp),

21820

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21821

return TCL_ERROR;

21822

}

21823

21824

if (! IbisObj.port_guid)

21825

{

21826

Tcl_SetStringObj(

21827

Tcl_GetObjResult(interp),

21828

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21829

return TCL_ERROR;

21830

}

21831

21832

ibis_tcl_error = 0;

21833

_result = (int )sacMCMRec_proxy_join_get(_arg0);

21834

;

21835

if (ibis_tcl_error) {

21836

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21837

return TCL_ERROR;

21838

}

21839

} tcl_result = Tcl_GetObjResult(interp);

21840

Tcl_SetIntObj(tcl_result,(long) _result);

21841

return TCL_OK;

21842

}

21843

static void sacMCMRec_proxy_join_set(sacMCMRec *self,uint8_t proxy_join) {

21844

self->proxy_join = proxy_join;

21845

}

21846

static int _wrap_sacMCMRec_proxy_join_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21847

21848

sacMCMRec * _arg0;

21849

uint8_t * _arg1;

21850

Tcl_Obj * tcl_result;

21851

char * rettype;

21852

uint8_t temp;

21853

21854

clientData = clientData; objv = objv;

21855

tcl_result = Tcl_GetObjResult(interp);

21856

if ((objc < 3) || (objc > 3)) {

21857

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_proxy_join_set { sacMCMRec * } proxy_join ",-1);

21858

return TCL_ERROR;

21859

}

21860

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21861

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_proxy_join_set. Expected _sacMCMRec_p, received ", -1);

21862

Tcl_AppendToObj(tcl_result, rettype, -1);

21863

return TCL_ERROR;

21864

}

21865

{

21866

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

21867

_arg1 = &temp;

21868

}

21869

{

21870

/* we can check if IBIS was initialized here */

21871

if (!IbisObj.initialized)

21872

{

21873

Tcl_SetStringObj(

21874

Tcl_GetObjResult(interp),

21875

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21876

return TCL_ERROR;

21877

}

21878

21879

if (! IbisObj.port_guid)

21880

{

21881

Tcl_SetStringObj(

21882

Tcl_GetObjResult(interp),

21883

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21884

return TCL_ERROR;

21885

}

21886

21887

ibis_tcl_error = 0;

21888

sacMCMRec_proxy_join_set(_arg0,*_arg1);

21889

;

21890

if (ibis_tcl_error) {

21891

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21892

return TCL_ERROR;

21893

}

21894

} tcl_result = Tcl_GetObjResult(interp);

21895

return TCL_OK;

21896

}

21897

static void sacMCMRec_obj_delete(sacMCMRec *self) {

21898

SWIG_AltMnglUnregObj(self);

21899

free(self);

21900

}

21901

static int _wrap_sacMCMRec_obj_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

21902

21903

sacMCMRec * _arg0;

21904

Tcl_Obj * tcl_result;

21905

char * rettype;

21906

21907

clientData = clientData; objv = objv;

21908

tcl_result = Tcl_GetObjResult(interp);

21909

if ((objc < 2) || (objc > 2)) {

21910

Tcl_SetStringObj(tcl_result,"Wrong # args. sacMCMRec_obj_delete { sacMCMRec * } ",-1);

21911

return TCL_ERROR;

21912

}

21913

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacMCMRec_p"))) {

21914

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacMCMRec_obj_delete. Expected _sacMCMRec_p, received ", -1);

21915

Tcl_AppendToObj(tcl_result, rettype, -1);

21916

return TCL_ERROR;

21917

}

21918

{

21919

/* we can check if IBIS was initialized here */

21920

if (!IbisObj.initialized)

21921

{

21922

Tcl_SetStringObj(

21923

Tcl_GetObjResult(interp),

21924

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

21925

return TCL_ERROR;

21926

}

21927

21928

if (! IbisObj.port_guid)

21929

{

21930

Tcl_SetStringObj(

21931

Tcl_GetObjResult(interp),

21932

" ibis was not yet initialized. please use ibis_set_port before.", -1);

21933

return TCL_ERROR;

21934

}

21935

21936

ibis_tcl_error = 0;

21937

sacMCMRec_obj_delete(_arg0);

21938

;

21939

if (ibis_tcl_error) {

21940

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

21941

return TCL_ERROR;

21942

}

21943

} tcl_result = Tcl_GetObjResult(interp);

21944

return TCL_OK;

21945

}

21946

/* methodcmd8.swg : Tcl8.x method invocation */

21947

21948

static int TclsacMCMRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

21949

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

21950

char *_str;

21951

int rcode;

21952

Tcl_Obj **objv;

21953

Tcl_Obj *oldarg,*tcl_result,*obj;

21954

int length;

21955

char c;

21956

21957

tcl_result = Tcl_GetObjResult(interp);

21958

objv = (Tcl_Obj **) _objv;

21959

if (objc < 2) {

21960

Tcl_SetStringObj(tcl_result,"sacMCMRec methods : { dump cget configure get getTable set del proxy_join_get proxy_join_set obj_delete }",-1);

21961

return TCL_ERROR;

21962

}

21963

obj = Tcl_NewObj();

21964

SWIG_SetPointerObj(obj,(void *) clientData,"_sacMCMRec_p");

21965

_str = Tcl_GetStringFromObj(objv[1],&length);

21966

c = *_str;

21967

if (0);

21968

if (strcmp(_str,"get") == 0) {

21969

cmd = _wrap_sacMCMRec_get;

21970

} else if (strcmp(_str,"getTable") == 0) {

21971

cmd = _wrap_sacMCMRec_getTable;

21972

} else if (strcmp(_str,"set") == 0) {

21973

cmd = _wrap_sacMCMRec_set;

21974

} else if (strcmp(_str,"del") == 0) {

21975

cmd = _wrap_sacMCMRec_del;

21976

} else if (strcmp(_str,"proxy_join_get") == 0) {

21977

cmd = _wrap_sacMCMRec_proxy_join_get;

21978

} else if (strcmp(_str,"proxy_join_set") == 0) {

21979

cmd = _wrap_sacMCMRec_proxy_join_set;

21980

} else if (strcmp(_str,"obj_delete") == 0) {

21981

cmd = _wrap_sacMCMRec_obj_delete;

21982

}

21983

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

21984

int i = 2;

21985

cmd = 0;

21986

while (i+1 < objc) {

21987

_str = Tcl_GetStringFromObj(objv[i],&length);

21988

if (strcmp(_str,"-mgid") == 0) {

21989

cmd = _wrap_sacMCMRec_mgid_set;

21990

} else if (strcmp(_str,"-port_gid") == 0) {

21991

cmd = _wrap_sacMCMRec_port_gid_set;

21992

} else if (strcmp(_str,"-qkey") == 0) {

21993

cmd = _wrap_sacMCMRec_qkey_set;

21994

} else if (strcmp(_str,"-mlid") == 0) {

21995

cmd = _wrap_sacMCMRec_mlid_set;

21996

} else if (strcmp(_str,"-mtu") == 0) {

21997

cmd = _wrap_sacMCMRec_mtu_set;

21998

} else if (strcmp(_str,"-tclass") == 0) {

21999

cmd = _wrap_sacMCMRec_tclass_set;

22000

} else if (strcmp(_str,"-pkey") == 0) {

22001

cmd = _wrap_sacMCMRec_pkey_set;

22002

} else if (strcmp(_str,"-rate") == 0) {

22003

cmd = _wrap_sacMCMRec_rate_set;

22004

} else if (strcmp(_str,"-pkt_life") == 0) {

22005

cmd = _wrap_sacMCMRec_pkt_life_set;

22006

} else if (strcmp(_str,"-sl_flow_hop") == 0) {

22007

cmd = _wrap_sacMCMRec_sl_flow_hop_set;

22008

} else if (strcmp(_str,"-scope_state") == 0) {

22009

cmd = _wrap_sacMCMRec_scope_state_set;

22010

}

22011

if (cmd) {

22012

oldarg = objv[i];

22013

objv[i] = obj;

22014

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

22015

objv[i] = oldarg;

22016

if (rcode == TCL_ERROR) return rcode;

22017

cmd = 0;

22018

} else {

22019

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -mgid -port_gid -qkey -mlid -mtu -tclass -pkey -rate -pkt_life -sl_flow_hop -scope_state }",-1);

22020

return TCL_ERROR;

22021

}

22022

i+=2;

22023

}

22024

if ((i < objc) || (i == 2)) {

22025

Tcl_SetStringObj(tcl_result,"{ -mgid -port_gid -qkey -mlid -mtu -tclass -pkey -rate -pkt_life -sl_flow_hop -scope_state }",-1);

22026

return TCL_ERROR;

22027

}

22028

return TCL_OK;

22029

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

22030

if (objc == 3) {

22031

_str = Tcl_GetStringFromObj(objv[2],&length);

22032

if (0) {}

22033

if (strcmp(_str,"-mgid") == 0) {

22034

cmd = _wrap_sacMCMRec_mgid_get;

22035

} else if (strcmp(_str,"-port_gid") == 0) {

22036

cmd = _wrap_sacMCMRec_port_gid_get;

22037

} else if (strcmp(_str,"-qkey") == 0) {

22038

cmd = _wrap_sacMCMRec_qkey_get;

22039

} else if (strcmp(_str,"-mlid") == 0) {

22040

cmd = _wrap_sacMCMRec_mlid_get;

22041

} else if (strcmp(_str,"-mtu") == 0) {

22042

cmd = _wrap_sacMCMRec_mtu_get;

22043

} else if (strcmp(_str,"-tclass") == 0) {

22044

cmd = _wrap_sacMCMRec_tclass_get;

22045

} else if (strcmp(_str,"-pkey") == 0) {

22046

cmd = _wrap_sacMCMRec_pkey_get;

22047

} else if (strcmp(_str,"-rate") == 0) {

22048

cmd = _wrap_sacMCMRec_rate_get;

22049

} else if (strcmp(_str,"-pkt_life") == 0) {

22050

cmd = _wrap_sacMCMRec_pkt_life_get;

22051

} else if (strcmp(_str,"-sl_flow_hop") == 0) {

22052

cmd = _wrap_sacMCMRec_sl_flow_hop_get;

22053

} else if (strcmp(_str,"-scope_state") == 0) {

22054

cmd = _wrap_sacMCMRec_scope_state_get;

22055

}

22056

else if (strcmp(_str,"-this") == 0) {

22057

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacMCMRec_p");

22058

return TCL_OK;

22059

}

22060

if (cmd) {

22061

oldarg = objv[2];

22062

objv[2] = obj;

22063

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

22064

objv[2] = oldarg;

22065

return rcode;

22066

} else {

22067

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -mgid -port_gid -qkey -mlid -mtu -tclass -pkey -rate -pkt_life -sl_flow_hop -scope_state }",-1);

22068

return TCL_ERROR;

22069

}

22070

} else {

22071

Tcl_SetStringObj(tcl_result,"{ -this -mgid -port_gid -qkey -mlid -mtu -tclass -pkey -rate -pkt_life -sl_flow_hop -scope_state }", -1);

22072

return TCL_ERROR;

22073

}

22074

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

22075

if (objc == 2) {

22076

Tcl_Obj *pDumpObj;

22077

pDumpObj = Tcl_NewStringObj("",-1);

22078

Tcl_IncrRefCount(pDumpObj);

22079

cmd = _wrap_sacMCMRec_mgid_get;

22080

oldarg = objv[2];

22081

objv[2] = obj;

22082

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22083

objv[2] = oldarg;

22084

Tcl_AppendStringsToObj(pDumpObj, "-mgid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22085

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22086

cmd = _wrap_sacMCMRec_port_gid_get;

22087

oldarg = objv[2];

22088

objv[2] = obj;

22089

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22090

objv[2] = oldarg;

22091

Tcl_AppendStringsToObj(pDumpObj, "-port_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22092

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22093

cmd = _wrap_sacMCMRec_qkey_get;

22094

oldarg = objv[2];

22095

objv[2] = obj;

22096

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22097

objv[2] = oldarg;

22098

Tcl_AppendStringsToObj(pDumpObj, "-qkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22099

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22100

cmd = _wrap_sacMCMRec_mlid_get;

22101

oldarg = objv[2];

22102

objv[2] = obj;

22103

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22104

objv[2] = oldarg;

22105

Tcl_AppendStringsToObj(pDumpObj, "-mlid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22106

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22107

cmd = _wrap_sacMCMRec_mtu_get;

22108

oldarg = objv[2];

22109

objv[2] = obj;

22110

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22111

objv[2] = oldarg;

22112

Tcl_AppendStringsToObj(pDumpObj, "-mtu ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22113

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22114

cmd = _wrap_sacMCMRec_tclass_get;

22115

oldarg = objv[2];

22116

objv[2] = obj;

22117

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22118

objv[2] = oldarg;

22119

Tcl_AppendStringsToObj(pDumpObj, "-tclass ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22120

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22121

cmd = _wrap_sacMCMRec_pkey_get;

22122

oldarg = objv[2];

22123

objv[2] = obj;

22124

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22125

objv[2] = oldarg;

22126

Tcl_AppendStringsToObj(pDumpObj, "-pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22127

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22128

cmd = _wrap_sacMCMRec_rate_get;

22129

oldarg = objv[2];

22130

objv[2] = obj;

22131

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22132

objv[2] = oldarg;

22133

Tcl_AppendStringsToObj(pDumpObj, "-rate ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22134

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22135

cmd = _wrap_sacMCMRec_pkt_life_get;

22136

oldarg = objv[2];

22137

objv[2] = obj;

22138

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22139

objv[2] = oldarg;

22140

Tcl_AppendStringsToObj(pDumpObj, "-pkt_life ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22141

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22142

cmd = _wrap_sacMCMRec_sl_flow_hop_get;

22143

oldarg = objv[2];

22144

objv[2] = obj;

22145

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22146

objv[2] = oldarg;

22147

Tcl_AppendStringsToObj(pDumpObj, "-sl_flow_hop ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22148

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22149

cmd = _wrap_sacMCMRec_scope_state_get;

22150

oldarg = objv[2];

22151

objv[2] = obj;

22152

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

22153

objv[2] = oldarg;

22154

Tcl_AppendStringsToObj(pDumpObj, "-scope_state ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

22155

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

22156

22157

Tcl_DecrRefCount(pDumpObj);

22158

return TCL_OK;

22159

} else {

22160

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

22161

return TCL_ERROR;

22162

}

22163

}

22164

if (!cmd) {

22165

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable set del proxy_join_get proxy_join_set obj_delete }",-1);

22166

return TCL_ERROR;

22167

}

22168

oldarg = objv[1];

22169

objv[1] = obj;

22170

rcode = (*cmd)(clientData,interp,objc,objv);

22171

objv[1] = oldarg;

22172

return rcode;

22173

}

22174

22175

22176

22177

/* objcmd8.swg : Tcl 8.x object creation */

22178

22179

static int TclsacMCMRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22180

void (*del)(ClientData) = 0;

22181

char *name = 0;

22182

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

22183

sacMCMRec * newObj = 0;

22184

int firstarg = 0;

22185

int thisarg = 0;

22186

int length;

22187

char *_str;

22188

Tcl_Obj *tcl_result;

22189

22190

tcl_result = Tcl_GetObjResult(interp);

22191

if (objc == 1) {

22192

cmd = 0;

22193

} else {

22194

_str = Tcl_GetStringFromObj(objv[1],&length);

22195

if (strcmp(_str,"-this") == 0) thisarg = 2;

22196

else if (strcmp(_str,"-args") == 0) {

22197

firstarg = 1;

22198

cmd = 0;

22199

} else if (objc == 2) {

22200

firstarg = 1;

22201

name = _str;

22202

cmd = 0;

22203

} else if (objc >= 3) {

22204

name = _str;

22205

_str = Tcl_GetStringFromObj(objv[2],&length);

22206

if (strcmp(_str,"-this") == 0) thisarg = 3;

22207

else {

22208

firstarg = 1;

22209

cmd = 0;

22210

}

22211

}

22212

}

22213

if (cmd) {

22214

int result;

22215

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

22216

if (result == TCL_OK) {

22217

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacMCMRec_p");

22218

} else { return result; }

22219

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

22220

del = 0;

22221

} else if (thisarg > 0) {

22222

if (thisarg < objc) {

22223

char *r;

22224

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacMCMRec_p");

22225

if (r) {

22226

Tcl_SetStringObj(tcl_result,"Type error. not a sacMCMRec object.",-1);

22227

return TCL_ERROR;

22228

}

22229

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

22230

Tcl_SetStringObj(tcl_result,name,-1);

22231

} else {

22232

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

22233

return TCL_ERROR;

22234

}

22235

} else {

22236

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

22237

return TCL_ERROR;

22238

}

22239

{

22240

Tcl_CmdInfo dummy;

22241

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

22242

Tcl_CreateObjCommand(interp,name, TclsacMCMRecMethodCmd, (ClientData) newObj, del);

22243

return TCL_OK;

22244

} else {

22245

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

22246

return TCL_ERROR;

22247

}

22248

}

22249

}

22250

22251

22252

#define _ibsac_class_port_info_base_ver_set(_swigobj,_swigval) (_swigobj->base_ver = *(_swigval),_swigval)

22253

static int _wrap_sacClassPortInfo_base_ver_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22254

22255

uint8_t * _result;

22256

sacClassPortInfo * _arg0;

22257

uint8_t * _arg1;

22258

Tcl_Obj * tcl_result;

22259

char * rettype;

22260

uint8_t temp;

22261

22262

clientData = clientData; objv = objv;

22263

tcl_result = Tcl_GetObjResult(interp);

22264

if ((objc < 3) || (objc > 3)) {

22265

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_base_ver_set { sacClassPortInfo * } { uint8_t * } ",-1);

22266

return TCL_ERROR;

22267

}

22268

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22269

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_base_ver_set. Expected _sacClassPortInfo_p, received ", -1);

22270

Tcl_AppendToObj(tcl_result, rettype, -1);

22271

return TCL_ERROR;

22272

}

22273

{

22274

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

22275

_arg1 = &temp;

22276

}

22277

{

22278

/* we can check if IBIS was initialized here */

22279

if (!IbisObj.initialized)

22280

{

22281

Tcl_SetStringObj(

22282

Tcl_GetObjResult(interp),

22283

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22284

return TCL_ERROR;

22285

}

22286

22287

if (! IbisObj.port_guid)

22288

{

22289

Tcl_SetStringObj(

22290

Tcl_GetObjResult(interp),

22291

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22292

return TCL_ERROR;

22293

}

22294

22295

ibis_tcl_error = 0;

22296

_result = (uint8_t *)_ibsac_class_port_info_base_ver_set(_arg0,_arg1);

22297

;

22298

if (ibis_tcl_error) {

22299

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22300

return TCL_ERROR;

22301

}

22302

} tcl_result = Tcl_GetObjResult(interp);

22303

{

22304

char buff[20];

22305

sprintf(buff, "%u", *_result);

22306

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22307

}

22308

return TCL_OK;

22309

}

22310

#define _ibsac_class_port_info_base_ver_get(_swigobj) (&_swigobj->base_ver)

22311

static int _wrap_sacClassPortInfo_base_ver_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22312

22313

uint8_t * _result;

22314

sacClassPortInfo * _arg0;

22315

Tcl_Obj * tcl_result;

22316

char * rettype;

22317

22318

clientData = clientData; objv = objv;

22319

tcl_result = Tcl_GetObjResult(interp);

22320

if ((objc < 2) || (objc > 2)) {

22321

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_base_ver_get { sacClassPortInfo * } ",-1);

22322

return TCL_ERROR;

22323

}

22324

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22325

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_base_ver_get. Expected _sacClassPortInfo_p, received ", -1);

22326

Tcl_AppendToObj(tcl_result, rettype, -1);

22327

return TCL_ERROR;

22328

}

22329

{

22330

/* we can check if IBIS was initialized here */

22331

if (!IbisObj.initialized)

22332

{

22333

Tcl_SetStringObj(

22334

Tcl_GetObjResult(interp),

22335

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22336

return TCL_ERROR;

22337

}

22338

22339

if (! IbisObj.port_guid)

22340

{

22341

Tcl_SetStringObj(

22342

Tcl_GetObjResult(interp),

22343

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22344

return TCL_ERROR;

22345

}

22346

22347

ibis_tcl_error = 0;

22348

_result = (uint8_t *)_ibsac_class_port_info_base_ver_get(_arg0);

22349

;

22350

if (ibis_tcl_error) {

22351

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22352

return TCL_ERROR;

22353

}

22354

} tcl_result = Tcl_GetObjResult(interp);

22355

{

22356

char buff[20];

22357

sprintf(buff, "%u", *_result);

22358

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22359

}

22360

return TCL_OK;

22361

}

22362

#define _ibsac_class_port_info_class_ver_set(_swigobj,_swigval) (_swigobj->class_ver = *(_swigval),_swigval)

22363

static int _wrap_sacClassPortInfo_class_ver_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22364

22365

uint8_t * _result;

22366

sacClassPortInfo * _arg0;

22367

uint8_t * _arg1;

22368

Tcl_Obj * tcl_result;

22369

char * rettype;

22370

uint8_t temp;

22371

22372

clientData = clientData; objv = objv;

22373

tcl_result = Tcl_GetObjResult(interp);

22374

if ((objc < 3) || (objc > 3)) {

22375

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_class_ver_set { sacClassPortInfo * } { uint8_t * } ",-1);

22376

return TCL_ERROR;

22377

}

22378

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22379

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_class_ver_set. Expected _sacClassPortInfo_p, received ", -1);

22380

Tcl_AppendToObj(tcl_result, rettype, -1);

22381

return TCL_ERROR;

22382

}

22383

{

22384

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

22385

_arg1 = &temp;

22386

}

22387

{

22388

/* we can check if IBIS was initialized here */

22389

if (!IbisObj.initialized)

22390

{

22391

Tcl_SetStringObj(

22392

Tcl_GetObjResult(interp),

22393

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22394

return TCL_ERROR;

22395

}

22396

22397

if (! IbisObj.port_guid)

22398

{

22399

Tcl_SetStringObj(

22400

Tcl_GetObjResult(interp),

22401

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22402

return TCL_ERROR;

22403

}

22404

22405

ibis_tcl_error = 0;

22406

_result = (uint8_t *)_ibsac_class_port_info_class_ver_set(_arg0,_arg1);

22407

;

22408

if (ibis_tcl_error) {

22409

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22410

return TCL_ERROR;

22411

}

22412

} tcl_result = Tcl_GetObjResult(interp);

22413

{

22414

char buff[20];

22415

sprintf(buff, "%u", *_result);

22416

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22417

}

22418

return TCL_OK;

22419

}

22420

#define _ibsac_class_port_info_class_ver_get(_swigobj) (&_swigobj->class_ver)

22421

static int _wrap_sacClassPortInfo_class_ver_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22422

22423

uint8_t * _result;

22424

sacClassPortInfo * _arg0;

22425

Tcl_Obj * tcl_result;

22426

char * rettype;

22427

22428

clientData = clientData; objv = objv;

22429

tcl_result = Tcl_GetObjResult(interp);

22430

if ((objc < 2) || (objc > 2)) {

22431

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_class_ver_get { sacClassPortInfo * } ",-1);

22432

return TCL_ERROR;

22433

}

22434

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22435

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_class_ver_get. Expected _sacClassPortInfo_p, received ", -1);

22436

Tcl_AppendToObj(tcl_result, rettype, -1);

22437

return TCL_ERROR;

22438

}

22439

{

22440

/* we can check if IBIS was initialized here */

22441

if (!IbisObj.initialized)

22442

{

22443

Tcl_SetStringObj(

22444

Tcl_GetObjResult(interp),

22445

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22446

return TCL_ERROR;

22447

}

22448

22449

if (! IbisObj.port_guid)

22450

{

22451

Tcl_SetStringObj(

22452

Tcl_GetObjResult(interp),

22453

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22454

return TCL_ERROR;

22455

}

22456

22457

ibis_tcl_error = 0;

22458

_result = (uint8_t *)_ibsac_class_port_info_class_ver_get(_arg0);

22459

;

22460

if (ibis_tcl_error) {

22461

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22462

return TCL_ERROR;

22463

}

22464

} tcl_result = Tcl_GetObjResult(interp);

22465

{

22466

char buff[20];

22467

sprintf(buff, "%u", *_result);

22468

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22469

}

22470

return TCL_OK;

22471

}

22472

#define _ibsac_class_port_info_cap_mask_set(_swigobj,_swigval) (_swigobj->cap_mask = *(_swigval),_swigval)

22473

static int _wrap_sacClassPortInfo_cap_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22474

22475

ib_net16_t * _result;

22476

sacClassPortInfo * _arg0;

22477

ib_net16_t * _arg1;

22478

Tcl_Obj * tcl_result;

22479

char * rettype;

22480

ib_net16_t temp;

22481

22482

clientData = clientData; objv = objv;

22483

tcl_result = Tcl_GetObjResult(interp);

22484

if ((objc < 3) || (objc > 3)) {

22485

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_cap_mask_set { sacClassPortInfo * } { ib_net16_t * } ",-1);

22486

return TCL_ERROR;

22487

}

22488

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22489

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_cap_mask_set. Expected _sacClassPortInfo_p, received ", -1);

22490

Tcl_AppendToObj(tcl_result, rettype, -1);

22491

return TCL_ERROR;

22492

}

22493

{

22494

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

22495

_arg1 = &temp;

22496

}

22497

{

22498

/* we can check if IBIS was initialized here */

22499

if (!IbisObj.initialized)

22500

{

22501

Tcl_SetStringObj(

22502

Tcl_GetObjResult(interp),

22503

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22504

return TCL_ERROR;

22505

}

22506

22507

if (! IbisObj.port_guid)

22508

{

22509

Tcl_SetStringObj(

22510

Tcl_GetObjResult(interp),

22511

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22512

return TCL_ERROR;

22513

}

22514

22515

ibis_tcl_error = 0;

22516

_result = (ib_net16_t *)_ibsac_class_port_info_cap_mask_set(_arg0,_arg1);

22517

;

22518

if (ibis_tcl_error) {

22519

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22520

return TCL_ERROR;

22521

}

22522

} tcl_result = Tcl_GetObjResult(interp);

22523

{

22524

char buff[20];

22525

sprintf(buff, "%u", cl_hton16(*_result));

22526

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22527

}

22528

return TCL_OK;

22529

}

22530

#define _ibsac_class_port_info_cap_mask_get(_swigobj) (&_swigobj->cap_mask)

22531

static int _wrap_sacClassPortInfo_cap_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22532

22533

ib_net16_t * _result;

22534

sacClassPortInfo * _arg0;

22535

Tcl_Obj * tcl_result;

22536

char * rettype;

22537

22538

clientData = clientData; objv = objv;

22539

tcl_result = Tcl_GetObjResult(interp);

22540

if ((objc < 2) || (objc > 2)) {

22541

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_cap_mask_get { sacClassPortInfo * } ",-1);

22542

return TCL_ERROR;

22543

}

22544

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22545

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_cap_mask_get. Expected _sacClassPortInfo_p, received ", -1);

22546

Tcl_AppendToObj(tcl_result, rettype, -1);

22547

return TCL_ERROR;

22548

}

22549

{

22550

/* we can check if IBIS was initialized here */

22551

if (!IbisObj.initialized)

22552

{

22553

Tcl_SetStringObj(

22554

Tcl_GetObjResult(interp),

22555

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22556

return TCL_ERROR;

22557

}

22558

22559

if (! IbisObj.port_guid)

22560

{

22561

Tcl_SetStringObj(

22562

Tcl_GetObjResult(interp),

22563

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22564

return TCL_ERROR;

22565

}

22566

22567

ibis_tcl_error = 0;

22568

_result = (ib_net16_t *)_ibsac_class_port_info_cap_mask_get(_arg0);

22569

;

22570

if (ibis_tcl_error) {

22571

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22572

return TCL_ERROR;

22573

}

22574

} tcl_result = Tcl_GetObjResult(interp);

22575

{

22576

char buff[20];

22577

sprintf(buff, "%u", cl_hton16(*_result));

22578

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22579

}

22580

return TCL_OK;

22581

}

22582

#define _ibsac_class_port_info_cap_mask2_resp_time_set(_swigobj,_swigval) (_swigobj->cap_mask2_resp_time = *(_swigval),_swigval)

22583

static int _wrap_sacClassPortInfo_cap_mask2_resp_time_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22584

22585

ib_net32_t * _result;

22586

sacClassPortInfo * _arg0;

22587

ib_net32_t * _arg1;

22588

Tcl_Obj * tcl_result;

22589

char * rettype;

22590

ib_net32_t temp;

22591

22592

clientData = clientData; objv = objv;

22593

tcl_result = Tcl_GetObjResult(interp);

22594

if ((objc < 3) || (objc > 3)) {

22595

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_cap_mask2_resp_time_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

22596

return TCL_ERROR;

22597

}

22598

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22599

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_cap_mask2_resp_time_set. Expected _sacClassPortInfo_p, received ", -1);

22600

Tcl_AppendToObj(tcl_result, rettype, -1);

22601

return TCL_ERROR;

22602

}

22603

{

22604

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

22605

_arg1 = &temp;

22606

}

22607

{

22608

/* we can check if IBIS was initialized here */

22609

if (!IbisObj.initialized)

22610

{

22611

Tcl_SetStringObj(

22612

Tcl_GetObjResult(interp),

22613

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22614

return TCL_ERROR;

22615

}

22616

22617

if (! IbisObj.port_guid)

22618

{

22619

Tcl_SetStringObj(

22620

Tcl_GetObjResult(interp),

22621

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22622

return TCL_ERROR;

22623

}

22624

22625

ibis_tcl_error = 0;

22626

_result = (ib_net32_t *)_ibsac_class_port_info_cap_mask2_resp_time_set(_arg0,_arg1);

22627

;

22628

if (ibis_tcl_error) {

22629

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22630

return TCL_ERROR;

22631

}

22632

} tcl_result = Tcl_GetObjResult(interp);

22633

{

22634

char buff[20];

22635

sprintf(buff, "%u", cl_ntoh32(*_result));

22636

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22637

}

22638

return TCL_OK;

22639

}

22640

#define _ibsac_class_port_info_cap_mask2_resp_time_get(_swigobj) (&_swigobj->cap_mask2_resp_time)

22641

static int _wrap_sacClassPortInfo_cap_mask2_resp_time_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22642

22643

ib_net32_t * _result;

22644

sacClassPortInfo * _arg0;

22645

Tcl_Obj * tcl_result;

22646

char * rettype;

22647

22648

clientData = clientData; objv = objv;

22649

tcl_result = Tcl_GetObjResult(interp);

22650

if ((objc < 2) || (objc > 2)) {

22651

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_cap_mask2_resp_time_get { sacClassPortInfo * } ",-1);

22652

return TCL_ERROR;

22653

}

22654

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22655

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_cap_mask2_resp_time_get. Expected _sacClassPortInfo_p, received ", -1);

22656

Tcl_AppendToObj(tcl_result, rettype, -1);

22657

return TCL_ERROR;

22658

}

22659

{

22660

/* we can check if IBIS was initialized here */

22661

if (!IbisObj.initialized)

22662

{

22663

Tcl_SetStringObj(

22664

Tcl_GetObjResult(interp),

22665

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22666

return TCL_ERROR;

22667

}

22668

22669

if (! IbisObj.port_guid)

22670

{

22671

Tcl_SetStringObj(

22672

Tcl_GetObjResult(interp),

22673

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22674

return TCL_ERROR;

22675

}

22676

22677

ibis_tcl_error = 0;

22678

_result = (ib_net32_t *)_ibsac_class_port_info_cap_mask2_resp_time_get(_arg0);

22679

;

22680

if (ibis_tcl_error) {

22681

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22682

return TCL_ERROR;

22683

}

22684

} tcl_result = Tcl_GetObjResult(interp);

22685

{

22686

char buff[20];

22687

sprintf(buff, "%u", cl_ntoh32(*_result));

22688

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22689

}

22690

return TCL_OK;

22691

}

22692

#define _ibsac_class_port_info_redir_gid_set(_swigobj,_swigval) (_swigobj->redir_gid = *(_swigval),_swigval)

22693

static int _wrap_sacClassPortInfo_redir_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22694

22695

ib_gid_t * _result;

22696

sacClassPortInfo * _arg0;

22697

ib_gid_t * _arg1;

22698

Tcl_Obj * tcl_result;

22699

char * rettype;

22700

ib_gid_t temp;

22701

22702

clientData = clientData; objv = objv;

22703

tcl_result = Tcl_GetObjResult(interp);

22704

if ((objc < 3) || (objc > 3)) {

22705

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_gid_set { sacClassPortInfo * } { ib_gid_t * } ",-1);

22706

return TCL_ERROR;

22707

}

22708

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22709

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_gid_set. Expected _sacClassPortInfo_p, received ", -1);

22710

Tcl_AppendToObj(tcl_result, rettype, -1);

22711

return TCL_ERROR;

22712

}

22713

{

22714

char buf[40];

22715

char *p_prefix, *p_guid;

22716

char *str_token = NULL;

22717

22718

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

22719

p_prefix = strtok_r(buf,":", &str_token);

22720

if (! p_prefix)

22721

{

22722

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

22723

return TCL_ERROR;

22724

}

22725

p_guid = strtok_r(NULL, " ", &str_token);

22726

if (! p_guid)

22727

{

22728

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

22729

return TCL_ERROR;

22730

}

22731

22732

errno = 0;

22733

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

22734

if (errno) {

22735

printf("Wrong format for gid prefix:%s\n", p_prefix);

22736

return TCL_ERROR;

22737

}

22738

22739

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

22740

if (errno) {

22741

printf("Wrong format for gid guid:%s\n", p_guid);

22742

return TCL_ERROR;

22743

}

22744

22745

_arg1 = &temp;

22746

}

22747

{

22748

/* we can check if IBIS was initialized here */

22749

if (!IbisObj.initialized)

22750

{

22751

Tcl_SetStringObj(

22752

Tcl_GetObjResult(interp),

22753

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22754

return TCL_ERROR;

22755

}

22756

22757

if (! IbisObj.port_guid)

22758

{

22759

Tcl_SetStringObj(

22760

Tcl_GetObjResult(interp),

22761

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22762

return TCL_ERROR;

22763

}

22764

22765

ibis_tcl_error = 0;

22766

_result = (ib_gid_t *)_ibsac_class_port_info_redir_gid_set(_arg0,_arg1);

22767

;

22768

if (ibis_tcl_error) {

22769

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22770

return TCL_ERROR;

22771

}

22772

} tcl_result = Tcl_GetObjResult(interp);

22773

{

22774

char buff[38];

22775

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

22776

cl_ntoh64(_result->unicast.prefix),

22777

cl_ntoh64(_result->unicast.interface_id)

22778

);

22779

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22780

}

22781

return TCL_OK;

22782

}

22783

#define _ibsac_class_port_info_redir_gid_get(_swigobj) (&_swigobj->redir_gid)

22784

static int _wrap_sacClassPortInfo_redir_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22785

22786

ib_gid_t * _result;

22787

sacClassPortInfo * _arg0;

22788

Tcl_Obj * tcl_result;

22789

char * rettype;

22790

22791

clientData = clientData; objv = objv;

22792

tcl_result = Tcl_GetObjResult(interp);

22793

if ((objc < 2) || (objc > 2)) {

22794

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_gid_get { sacClassPortInfo * } ",-1);

22795

return TCL_ERROR;

22796

}

22797

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22798

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_gid_get. Expected _sacClassPortInfo_p, received ", -1);

22799

Tcl_AppendToObj(tcl_result, rettype, -1);

22800

return TCL_ERROR;

22801

}

22802

{

22803

/* we can check if IBIS was initialized here */

22804

if (!IbisObj.initialized)

22805

{

22806

Tcl_SetStringObj(

22807

Tcl_GetObjResult(interp),

22808

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22809

return TCL_ERROR;

22810

}

22811

22812

if (! IbisObj.port_guid)

22813

{

22814

Tcl_SetStringObj(

22815

Tcl_GetObjResult(interp),

22816

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22817

return TCL_ERROR;

22818

}

22819

22820

ibis_tcl_error = 0;

22821

_result = (ib_gid_t *)_ibsac_class_port_info_redir_gid_get(_arg0);

22822

;

22823

if (ibis_tcl_error) {

22824

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22825

return TCL_ERROR;

22826

}

22827

} tcl_result = Tcl_GetObjResult(interp);

22828

{

22829

char buff[38];

22830

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

22831

cl_ntoh64(_result->unicast.prefix),

22832

cl_ntoh64(_result->unicast.interface_id)

22833

);

22834

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22835

}

22836

return TCL_OK;

22837

}

22838

#define _ibsac_class_port_info_redir_tc_sl_fl_set(_swigobj,_swigval) (_swigobj->redir_tc_sl_fl = *(_swigval),_swigval)

22839

static int _wrap_sacClassPortInfo_redir_tc_sl_fl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22840

22841

ib_net32_t * _result;

22842

sacClassPortInfo * _arg0;

22843

ib_net32_t * _arg1;

22844

Tcl_Obj * tcl_result;

22845

char * rettype;

22846

ib_net32_t temp;

22847

22848

clientData = clientData; objv = objv;

22849

tcl_result = Tcl_GetObjResult(interp);

22850

if ((objc < 3) || (objc > 3)) {

22851

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_tc_sl_fl_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

22852

return TCL_ERROR;

22853

}

22854

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22855

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_tc_sl_fl_set. Expected _sacClassPortInfo_p, received ", -1);

22856

Tcl_AppendToObj(tcl_result, rettype, -1);

22857

return TCL_ERROR;

22858

}

22859

{

22860

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

22861

_arg1 = &temp;

22862

}

22863

{

22864

/* we can check if IBIS was initialized here */

22865

if (!IbisObj.initialized)

22866

{

22867

Tcl_SetStringObj(

22868

Tcl_GetObjResult(interp),

22869

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22870

return TCL_ERROR;

22871

}

22872

22873

if (! IbisObj.port_guid)

22874

{

22875

Tcl_SetStringObj(

22876

Tcl_GetObjResult(interp),

22877

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22878

return TCL_ERROR;

22879

}

22880

22881

ibis_tcl_error = 0;

22882

_result = (ib_net32_t *)_ibsac_class_port_info_redir_tc_sl_fl_set(_arg0,_arg1);

22883

;

22884

if (ibis_tcl_error) {

22885

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22886

return TCL_ERROR;

22887

}

22888

} tcl_result = Tcl_GetObjResult(interp);

22889

{

22890

char buff[20];

22891

sprintf(buff, "%u", cl_ntoh32(*_result));

22892

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22893

}

22894

return TCL_OK;

22895

}

22896

#define _ibsac_class_port_info_redir_tc_sl_fl_get(_swigobj) (&_swigobj->redir_tc_sl_fl)

22897

static int _wrap_sacClassPortInfo_redir_tc_sl_fl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22898

22899

ib_net32_t * _result;

22900

sacClassPortInfo * _arg0;

22901

Tcl_Obj * tcl_result;

22902

char * rettype;

22903

22904

clientData = clientData; objv = objv;

22905

tcl_result = Tcl_GetObjResult(interp);

22906

if ((objc < 2) || (objc > 2)) {

22907

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_tc_sl_fl_get { sacClassPortInfo * } ",-1);

22908

return TCL_ERROR;

22909

}

22910

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22911

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_tc_sl_fl_get. Expected _sacClassPortInfo_p, received ", -1);

22912

Tcl_AppendToObj(tcl_result, rettype, -1);

22913

return TCL_ERROR;

22914

}

22915

{

22916

/* we can check if IBIS was initialized here */

22917

if (!IbisObj.initialized)

22918

{

22919

Tcl_SetStringObj(

22920

Tcl_GetObjResult(interp),

22921

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22922

return TCL_ERROR;

22923

}

22924

22925

if (! IbisObj.port_guid)

22926

{

22927

Tcl_SetStringObj(

22928

Tcl_GetObjResult(interp),

22929

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22930

return TCL_ERROR;

22931

}

22932

22933

ibis_tcl_error = 0;

22934

_result = (ib_net32_t *)_ibsac_class_port_info_redir_tc_sl_fl_get(_arg0);

22935

;

22936

if (ibis_tcl_error) {

22937

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22938

return TCL_ERROR;

22939

}

22940

} tcl_result = Tcl_GetObjResult(interp);

22941

{

22942

char buff[20];

22943

sprintf(buff, "%u", cl_ntoh32(*_result));

22944

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

22945

}

22946

return TCL_OK;

22947

}

22948

#define _ibsac_class_port_info_redir_lid_set(_swigobj,_swigval) (_swigobj->redir_lid = *(_swigval),_swigval)

22949

static int _wrap_sacClassPortInfo_redir_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

22950

22951

ib_net16_t * _result;

22952

sacClassPortInfo * _arg0;

22953

ib_net16_t * _arg1;

22954

Tcl_Obj * tcl_result;

22955

char * rettype;

22956

ib_net16_t temp;

22957

22958

clientData = clientData; objv = objv;

22959

tcl_result = Tcl_GetObjResult(interp);

22960

if ((objc < 3) || (objc > 3)) {

22961

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_lid_set { sacClassPortInfo * } { ib_net16_t * } ",-1);

22962

return TCL_ERROR;

22963

}

22964

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

22965

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_lid_set. Expected _sacClassPortInfo_p, received ", -1);

22966

Tcl_AppendToObj(tcl_result, rettype, -1);

22967

return TCL_ERROR;

22968

}

22969

{

22970

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

22971

_arg1 = &temp;

22972

}

22973

{

22974

/* we can check if IBIS was initialized here */

22975

if (!IbisObj.initialized)

22976

{

22977

Tcl_SetStringObj(

22978

Tcl_GetObjResult(interp),

22979

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

22980

return TCL_ERROR;

22981

}

22982

22983

if (! IbisObj.port_guid)

22984

{

22985

Tcl_SetStringObj(

22986

Tcl_GetObjResult(interp),

22987

" ibis was not yet initialized. please use ibis_set_port before.", -1);

22988

return TCL_ERROR;

22989

}

22990

22991

ibis_tcl_error = 0;

22992

_result = (ib_net16_t *)_ibsac_class_port_info_redir_lid_set(_arg0,_arg1);

22993

;

22994

if (ibis_tcl_error) {

22995

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

22996

return TCL_ERROR;

22997

}

22998

} tcl_result = Tcl_GetObjResult(interp);

22999

{

23000

char buff[20];

23001

sprintf(buff, "%u", cl_hton16(*_result));

23002

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23003

}

23004

return TCL_OK;

23005

}

23006

#define _ibsac_class_port_info_redir_lid_get(_swigobj) (&_swigobj->redir_lid)

23007

static int _wrap_sacClassPortInfo_redir_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23008

23009

ib_net16_t * _result;

23010

sacClassPortInfo * _arg0;

23011

Tcl_Obj * tcl_result;

23012

char * rettype;

23013

23014

clientData = clientData; objv = objv;

23015

tcl_result = Tcl_GetObjResult(interp);

23016

if ((objc < 2) || (objc > 2)) {

23017

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_lid_get { sacClassPortInfo * } ",-1);

23018

return TCL_ERROR;

23019

}

23020

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23021

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_lid_get. Expected _sacClassPortInfo_p, received ", -1);

23022

Tcl_AppendToObj(tcl_result, rettype, -1);

23023

return TCL_ERROR;

23024

}

23025

{

23026

/* we can check if IBIS was initialized here */

23027

if (!IbisObj.initialized)

23028

{

23029

Tcl_SetStringObj(

23030

Tcl_GetObjResult(interp),

23031

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23032

return TCL_ERROR;

23033

}

23034

23035

if (! IbisObj.port_guid)

23036

{

23037

Tcl_SetStringObj(

23038

Tcl_GetObjResult(interp),

23039

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23040

return TCL_ERROR;

23041

}

23042

23043

ibis_tcl_error = 0;

23044

_result = (ib_net16_t *)_ibsac_class_port_info_redir_lid_get(_arg0);

23045

;

23046

if (ibis_tcl_error) {

23047

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23048

return TCL_ERROR;

23049

}

23050

} tcl_result = Tcl_GetObjResult(interp);

23051

{

23052

char buff[20];

23053

sprintf(buff, "%u", cl_hton16(*_result));

23054

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23055

}

23056

return TCL_OK;

23057

}

23058

#define _ibsac_class_port_info_redir_pkey_set(_swigobj,_swigval) (_swigobj->redir_pkey = *(_swigval),_swigval)

23059

static int _wrap_sacClassPortInfo_redir_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23060

23061

ib_net16_t * _result;

23062

sacClassPortInfo * _arg0;

23063

ib_net16_t * _arg1;

23064

Tcl_Obj * tcl_result;

23065

char * rettype;

23066

ib_net16_t temp;

23067

23068

clientData = clientData; objv = objv;

23069

tcl_result = Tcl_GetObjResult(interp);

23070

if ((objc < 3) || (objc > 3)) {

23071

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_pkey_set { sacClassPortInfo * } { ib_net16_t * } ",-1);

23072

return TCL_ERROR;

23073

}

23074

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23075

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_pkey_set. Expected _sacClassPortInfo_p, received ", -1);

23076

Tcl_AppendToObj(tcl_result, rettype, -1);

23077

return TCL_ERROR;

23078

}

23079

{

23080

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23081

_arg1 = &temp;

23082

}

23083

{

23084

/* we can check if IBIS was initialized here */

23085

if (!IbisObj.initialized)

23086

{

23087

Tcl_SetStringObj(

23088

Tcl_GetObjResult(interp),

23089

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23090

return TCL_ERROR;

23091

}

23092

23093

if (! IbisObj.port_guid)

23094

{

23095

Tcl_SetStringObj(

23096

Tcl_GetObjResult(interp),

23097

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23098

return TCL_ERROR;

23099

}

23100

23101

ibis_tcl_error = 0;

23102

_result = (ib_net16_t *)_ibsac_class_port_info_redir_pkey_set(_arg0,_arg1);

23103

;

23104

if (ibis_tcl_error) {

23105

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23106

return TCL_ERROR;

23107

}

23108

} tcl_result = Tcl_GetObjResult(interp);

23109

{

23110

char buff[20];

23111

sprintf(buff, "%u", cl_hton16(*_result));

23112

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23113

}

23114

return TCL_OK;

23115

}

23116

#define _ibsac_class_port_info_redir_pkey_get(_swigobj) (&_swigobj->redir_pkey)

23117

static int _wrap_sacClassPortInfo_redir_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23118

23119

ib_net16_t * _result;

23120

sacClassPortInfo * _arg0;

23121

Tcl_Obj * tcl_result;

23122

char * rettype;

23123

23124

clientData = clientData; objv = objv;

23125

tcl_result = Tcl_GetObjResult(interp);

23126

if ((objc < 2) || (objc > 2)) {

23127

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_pkey_get { sacClassPortInfo * } ",-1);

23128

return TCL_ERROR;

23129

}

23130

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23131

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_pkey_get. Expected _sacClassPortInfo_p, received ", -1);

23132

Tcl_AppendToObj(tcl_result, rettype, -1);

23133

return TCL_ERROR;

23134

}

23135

{

23136

/* we can check if IBIS was initialized here */

23137

if (!IbisObj.initialized)

23138

{

23139

Tcl_SetStringObj(

23140

Tcl_GetObjResult(interp),

23141

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23142

return TCL_ERROR;

23143

}

23144

23145

if (! IbisObj.port_guid)

23146

{

23147

Tcl_SetStringObj(

23148

Tcl_GetObjResult(interp),

23149

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23150

return TCL_ERROR;

23151

}

23152

23153

ibis_tcl_error = 0;

23154

_result = (ib_net16_t *)_ibsac_class_port_info_redir_pkey_get(_arg0);

23155

;

23156

if (ibis_tcl_error) {

23157

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23158

return TCL_ERROR;

23159

}

23160

} tcl_result = Tcl_GetObjResult(interp);

23161

{

23162

char buff[20];

23163

sprintf(buff, "%u", cl_hton16(*_result));

23164

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23165

}

23166

return TCL_OK;

23167

}

23168

#define _ibsac_class_port_info_redir_qp_set(_swigobj,_swigval) (_swigobj->redir_qp = *(_swigval),_swigval)

23169

static int _wrap_sacClassPortInfo_redir_qp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23170

23171

ib_net32_t * _result;

23172

sacClassPortInfo * _arg0;

23173

ib_net32_t * _arg1;

23174

Tcl_Obj * tcl_result;

23175

char * rettype;

23176

ib_net32_t temp;

23177

23178

clientData = clientData; objv = objv;

23179

tcl_result = Tcl_GetObjResult(interp);

23180

if ((objc < 3) || (objc > 3)) {

23181

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_qp_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

23182

return TCL_ERROR;

23183

}

23184

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23185

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_qp_set. Expected _sacClassPortInfo_p, received ", -1);

23186

Tcl_AppendToObj(tcl_result, rettype, -1);

23187

return TCL_ERROR;

23188

}

23189

{

23190

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23191

_arg1 = &temp;

23192

}

23193

{

23194

/* we can check if IBIS was initialized here */

23195

if (!IbisObj.initialized)

23196

{

23197

Tcl_SetStringObj(

23198

Tcl_GetObjResult(interp),

23199

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23200

return TCL_ERROR;

23201

}

23202

23203

if (! IbisObj.port_guid)

23204

{

23205

Tcl_SetStringObj(

23206

Tcl_GetObjResult(interp),

23207

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23208

return TCL_ERROR;

23209

}

23210

23211

ibis_tcl_error = 0;

23212

_result = (ib_net32_t *)_ibsac_class_port_info_redir_qp_set(_arg0,_arg1);

23213

;

23214

if (ibis_tcl_error) {

23215

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23216

return TCL_ERROR;

23217

}

23218

} tcl_result = Tcl_GetObjResult(interp);

23219

{

23220

char buff[20];

23221

sprintf(buff, "%u", cl_ntoh32(*_result));

23222

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23223

}

23224

return TCL_OK;

23225

}

23226

#define _ibsac_class_port_info_redir_qp_get(_swigobj) (&_swigobj->redir_qp)

23227

static int _wrap_sacClassPortInfo_redir_qp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23228

23229

ib_net32_t * _result;

23230

sacClassPortInfo * _arg0;

23231

Tcl_Obj * tcl_result;

23232

char * rettype;

23233

23234

clientData = clientData; objv = objv;

23235

tcl_result = Tcl_GetObjResult(interp);

23236

if ((objc < 2) || (objc > 2)) {

23237

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_qp_get { sacClassPortInfo * } ",-1);

23238

return TCL_ERROR;

23239

}

23240

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23241

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_qp_get. Expected _sacClassPortInfo_p, received ", -1);

23242

Tcl_AppendToObj(tcl_result, rettype, -1);

23243

return TCL_ERROR;

23244

}

23245

{

23246

/* we can check if IBIS was initialized here */

23247

if (!IbisObj.initialized)

23248

{

23249

Tcl_SetStringObj(

23250

Tcl_GetObjResult(interp),

23251

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23252

return TCL_ERROR;

23253

}

23254

23255

if (! IbisObj.port_guid)

23256

{

23257

Tcl_SetStringObj(

23258

Tcl_GetObjResult(interp),

23259

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23260

return TCL_ERROR;

23261

}

23262

23263

ibis_tcl_error = 0;

23264

_result = (ib_net32_t *)_ibsac_class_port_info_redir_qp_get(_arg0);

23265

;

23266

if (ibis_tcl_error) {

23267

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23268

return TCL_ERROR;

23269

}

23270

} tcl_result = Tcl_GetObjResult(interp);

23271

{

23272

char buff[20];

23273

sprintf(buff, "%u", cl_ntoh32(*_result));

23274

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23275

}

23276

return TCL_OK;

23277

}

23278

#define _ibsac_class_port_info_redir_qkey_set(_swigobj,_swigval) (_swigobj->redir_qkey = *(_swigval),_swigval)

23279

static int _wrap_sacClassPortInfo_redir_qkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23280

23281

ib_net32_t * _result;

23282

sacClassPortInfo * _arg0;

23283

ib_net32_t * _arg1;

23284

Tcl_Obj * tcl_result;

23285

char * rettype;

23286

ib_net32_t temp;

23287

23288

clientData = clientData; objv = objv;

23289

tcl_result = Tcl_GetObjResult(interp);

23290

if ((objc < 3) || (objc > 3)) {

23291

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_qkey_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

23292

return TCL_ERROR;

23293

}

23294

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23295

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_qkey_set. Expected _sacClassPortInfo_p, received ", -1);

23296

Tcl_AppendToObj(tcl_result, rettype, -1);

23297

return TCL_ERROR;

23298

}

23299

{

23300

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23301

_arg1 = &temp;

23302

}

23303

{

23304

/* we can check if IBIS was initialized here */

23305

if (!IbisObj.initialized)

23306

{

23307

Tcl_SetStringObj(

23308

Tcl_GetObjResult(interp),

23309

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23310

return TCL_ERROR;

23311

}

23312

23313

if (! IbisObj.port_guid)

23314

{

23315

Tcl_SetStringObj(

23316

Tcl_GetObjResult(interp),

23317

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23318

return TCL_ERROR;

23319

}

23320

23321

ibis_tcl_error = 0;

23322

_result = (ib_net32_t *)_ibsac_class_port_info_redir_qkey_set(_arg0,_arg1);

23323

;

23324

if (ibis_tcl_error) {

23325

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23326

return TCL_ERROR;

23327

}

23328

} tcl_result = Tcl_GetObjResult(interp);

23329

{

23330

char buff[20];

23331

sprintf(buff, "%u", cl_ntoh32(*_result));

23332

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23333

}

23334

return TCL_OK;

23335

}

23336

#define _ibsac_class_port_info_redir_qkey_get(_swigobj) (&_swigobj->redir_qkey)

23337

static int _wrap_sacClassPortInfo_redir_qkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23338

23339

ib_net32_t * _result;

23340

sacClassPortInfo * _arg0;

23341

Tcl_Obj * tcl_result;

23342

char * rettype;

23343

23344

clientData = clientData; objv = objv;

23345

tcl_result = Tcl_GetObjResult(interp);

23346

if ((objc < 2) || (objc > 2)) {

23347

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_redir_qkey_get { sacClassPortInfo * } ",-1);

23348

return TCL_ERROR;

23349

}

23350

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23351

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_redir_qkey_get. Expected _sacClassPortInfo_p, received ", -1);

23352

Tcl_AppendToObj(tcl_result, rettype, -1);

23353

return TCL_ERROR;

23354

}

23355

{

23356

/* we can check if IBIS was initialized here */

23357

if (!IbisObj.initialized)

23358

{

23359

Tcl_SetStringObj(

23360

Tcl_GetObjResult(interp),

23361

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23362

return TCL_ERROR;

23363

}

23364

23365

if (! IbisObj.port_guid)

23366

{

23367

Tcl_SetStringObj(

23368

Tcl_GetObjResult(interp),

23369

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23370

return TCL_ERROR;

23371

}

23372

23373

ibis_tcl_error = 0;

23374

_result = (ib_net32_t *)_ibsac_class_port_info_redir_qkey_get(_arg0);

23375

;

23376

if (ibis_tcl_error) {

23377

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23378

return TCL_ERROR;

23379

}

23380

} tcl_result = Tcl_GetObjResult(interp);

23381

{

23382

char buff[20];

23383

sprintf(buff, "%u", cl_ntoh32(*_result));

23384

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23385

}

23386

return TCL_OK;

23387

}

23388

#define _ibsac_class_port_info_trap_gid_set(_swigobj,_swigval) (_swigobj->trap_gid = *(_swigval),_swigval)

23389

static int _wrap_sacClassPortInfo_trap_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23390

23391

ib_gid_t * _result;

23392

sacClassPortInfo * _arg0;

23393

ib_gid_t * _arg1;

23394

Tcl_Obj * tcl_result;

23395

char * rettype;

23396

ib_gid_t temp;

23397

23398

clientData = clientData; objv = objv;

23399

tcl_result = Tcl_GetObjResult(interp);

23400

if ((objc < 3) || (objc > 3)) {

23401

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_gid_set { sacClassPortInfo * } { ib_gid_t * } ",-1);

23402

return TCL_ERROR;

23403

}

23404

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23405

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_gid_set. Expected _sacClassPortInfo_p, received ", -1);

23406

Tcl_AppendToObj(tcl_result, rettype, -1);

23407

return TCL_ERROR;

23408

}

23409

{

23410

char buf[40];

23411

char *p_prefix, *p_guid;

23412

char *str_token = NULL;

23413

23414

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

23415

p_prefix = strtok_r(buf,":", &str_token);

23416

if (! p_prefix)

23417

{

23418

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

23419

return TCL_ERROR;

23420

}

23421

p_guid = strtok_r(NULL, " ", &str_token);

23422

if (! p_guid)

23423

{

23424

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

23425

return TCL_ERROR;

23426

}

23427

23428

errno = 0;

23429

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

23430

if (errno) {

23431

printf("Wrong format for gid prefix:%s\n", p_prefix);

23432

return TCL_ERROR;

23433

}

23434

23435

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

23436

if (errno) {

23437

printf("Wrong format for gid guid:%s\n", p_guid);

23438

return TCL_ERROR;

23439

}

23440

23441

_arg1 = &temp;

23442

}

23443

{

23444

/* we can check if IBIS was initialized here */

23445

if (!IbisObj.initialized)

23446

{

23447

Tcl_SetStringObj(

23448

Tcl_GetObjResult(interp),

23449

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23450

return TCL_ERROR;

23451

}

23452

23453

if (! IbisObj.port_guid)

23454

{

23455

Tcl_SetStringObj(

23456

Tcl_GetObjResult(interp),

23457

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23458

return TCL_ERROR;

23459

}

23460

23461

ibis_tcl_error = 0;

23462

_result = (ib_gid_t *)_ibsac_class_port_info_trap_gid_set(_arg0,_arg1);

23463

;

23464

if (ibis_tcl_error) {

23465

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23466

return TCL_ERROR;

23467

}

23468

} tcl_result = Tcl_GetObjResult(interp);

23469

{

23470

char buff[38];

23471

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

23472

cl_ntoh64(_result->unicast.prefix),

23473

cl_ntoh64(_result->unicast.interface_id)

23474

);

23475

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23476

}

23477

return TCL_OK;

23478

}

23479

#define _ibsac_class_port_info_trap_gid_get(_swigobj) (&_swigobj->trap_gid)

23480

static int _wrap_sacClassPortInfo_trap_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23481

23482

ib_gid_t * _result;

23483

sacClassPortInfo * _arg0;

23484

Tcl_Obj * tcl_result;

23485

char * rettype;

23486

23487

clientData = clientData; objv = objv;

23488

tcl_result = Tcl_GetObjResult(interp);

23489

if ((objc < 2) || (objc > 2)) {

23490

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_gid_get { sacClassPortInfo * } ",-1);

23491

return TCL_ERROR;

23492

}

23493

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23494

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_gid_get. Expected _sacClassPortInfo_p, received ", -1);

23495

Tcl_AppendToObj(tcl_result, rettype, -1);

23496

return TCL_ERROR;

23497

}

23498

{

23499

/* we can check if IBIS was initialized here */

23500

if (!IbisObj.initialized)

23501

{

23502

Tcl_SetStringObj(

23503

Tcl_GetObjResult(interp),

23504

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23505

return TCL_ERROR;

23506

}

23507

23508

if (! IbisObj.port_guid)

23509

{

23510

Tcl_SetStringObj(

23511

Tcl_GetObjResult(interp),

23512

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23513

return TCL_ERROR;

23514

}

23515

23516

ibis_tcl_error = 0;

23517

_result = (ib_gid_t *)_ibsac_class_port_info_trap_gid_get(_arg0);

23518

;

23519

if (ibis_tcl_error) {

23520

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23521

return TCL_ERROR;

23522

}

23523

} tcl_result = Tcl_GetObjResult(interp);

23524

{

23525

char buff[38];

23526

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

23527

cl_ntoh64(_result->unicast.prefix),

23528

cl_ntoh64(_result->unicast.interface_id)

23529

);

23530

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23531

}

23532

return TCL_OK;

23533

}

23534

#define _ibsac_class_port_info_trap_tc_sl_fl_set(_swigobj,_swigval) (_swigobj->trap_tc_sl_fl = *(_swigval),_swigval)

23535

static int _wrap_sacClassPortInfo_trap_tc_sl_fl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23536

23537

ib_net32_t * _result;

23538

sacClassPortInfo * _arg0;

23539

ib_net32_t * _arg1;

23540

Tcl_Obj * tcl_result;

23541

char * rettype;

23542

ib_net32_t temp;

23543

23544

clientData = clientData; objv = objv;

23545

tcl_result = Tcl_GetObjResult(interp);

23546

if ((objc < 3) || (objc > 3)) {

23547

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_tc_sl_fl_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

23548

return TCL_ERROR;

23549

}

23550

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23551

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_tc_sl_fl_set. Expected _sacClassPortInfo_p, received ", -1);

23552

Tcl_AppendToObj(tcl_result, rettype, -1);

23553

return TCL_ERROR;

23554

}

23555

{

23556

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23557

_arg1 = &temp;

23558

}

23559

{

23560

/* we can check if IBIS was initialized here */

23561

if (!IbisObj.initialized)

23562

{

23563

Tcl_SetStringObj(

23564

Tcl_GetObjResult(interp),

23565

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23566

return TCL_ERROR;

23567

}

23568

23569

if (! IbisObj.port_guid)

23570

{

23571

Tcl_SetStringObj(

23572

Tcl_GetObjResult(interp),

23573

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23574

return TCL_ERROR;

23575

}

23576

23577

ibis_tcl_error = 0;

23578

_result = (ib_net32_t *)_ibsac_class_port_info_trap_tc_sl_fl_set(_arg0,_arg1);

23579

;

23580

if (ibis_tcl_error) {

23581

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23582

return TCL_ERROR;

23583

}

23584

} tcl_result = Tcl_GetObjResult(interp);

23585

{

23586

char buff[20];

23587

sprintf(buff, "%u", cl_ntoh32(*_result));

23588

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23589

}

23590

return TCL_OK;

23591

}

23592

#define _ibsac_class_port_info_trap_tc_sl_fl_get(_swigobj) (&_swigobj->trap_tc_sl_fl)

23593

static int _wrap_sacClassPortInfo_trap_tc_sl_fl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23594

23595

ib_net32_t * _result;

23596

sacClassPortInfo * _arg0;

23597

Tcl_Obj * tcl_result;

23598

char * rettype;

23599

23600

clientData = clientData; objv = objv;

23601

tcl_result = Tcl_GetObjResult(interp);

23602

if ((objc < 2) || (objc > 2)) {

23603

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_tc_sl_fl_get { sacClassPortInfo * } ",-1);

23604

return TCL_ERROR;

23605

}

23606

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23607

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_tc_sl_fl_get. Expected _sacClassPortInfo_p, received ", -1);

23608

Tcl_AppendToObj(tcl_result, rettype, -1);

23609

return TCL_ERROR;

23610

}

23611

{

23612

/* we can check if IBIS was initialized here */

23613

if (!IbisObj.initialized)

23614

{

23615

Tcl_SetStringObj(

23616

Tcl_GetObjResult(interp),

23617

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23618

return TCL_ERROR;

23619

}

23620

23621

if (! IbisObj.port_guid)

23622

{

23623

Tcl_SetStringObj(

23624

Tcl_GetObjResult(interp),

23625

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23626

return TCL_ERROR;

23627

}

23628

23629

ibis_tcl_error = 0;

23630

_result = (ib_net32_t *)_ibsac_class_port_info_trap_tc_sl_fl_get(_arg0);

23631

;

23632

if (ibis_tcl_error) {

23633

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23634

return TCL_ERROR;

23635

}

23636

} tcl_result = Tcl_GetObjResult(interp);

23637

{

23638

char buff[20];

23639

sprintf(buff, "%u", cl_ntoh32(*_result));

23640

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23641

}

23642

return TCL_OK;

23643

}

23644

#define _ibsac_class_port_info_trap_lid_set(_swigobj,_swigval) (_swigobj->trap_lid = *(_swigval),_swigval)

23645

static int _wrap_sacClassPortInfo_trap_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23646

23647

ib_net16_t * _result;

23648

sacClassPortInfo * _arg0;

23649

ib_net16_t * _arg1;

23650

Tcl_Obj * tcl_result;

23651

char * rettype;

23652

ib_net16_t temp;

23653

23654

clientData = clientData; objv = objv;

23655

tcl_result = Tcl_GetObjResult(interp);

23656

if ((objc < 3) || (objc > 3)) {

23657

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_lid_set { sacClassPortInfo * } { ib_net16_t * } ",-1);

23658

return TCL_ERROR;

23659

}

23660

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23661

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_lid_set. Expected _sacClassPortInfo_p, received ", -1);

23662

Tcl_AppendToObj(tcl_result, rettype, -1);

23663

return TCL_ERROR;

23664

}

23665

{

23666

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23667

_arg1 = &temp;

23668

}

23669

{

23670

/* we can check if IBIS was initialized here */

23671

if (!IbisObj.initialized)

23672

{

23673

Tcl_SetStringObj(

23674

Tcl_GetObjResult(interp),

23675

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23676

return TCL_ERROR;

23677

}

23678

23679

if (! IbisObj.port_guid)

23680

{

23681

Tcl_SetStringObj(

23682

Tcl_GetObjResult(interp),

23683

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23684

return TCL_ERROR;

23685

}

23686

23687

ibis_tcl_error = 0;

23688

_result = (ib_net16_t *)_ibsac_class_port_info_trap_lid_set(_arg0,_arg1);

23689

;

23690

if (ibis_tcl_error) {

23691

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23692

return TCL_ERROR;

23693

}

23694

} tcl_result = Tcl_GetObjResult(interp);

23695

{

23696

char buff[20];

23697

sprintf(buff, "%u", cl_hton16(*_result));

23698

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23699

}

23700

return TCL_OK;

23701

}

23702

#define _ibsac_class_port_info_trap_lid_get(_swigobj) (&_swigobj->trap_lid)

23703

static int _wrap_sacClassPortInfo_trap_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23704

23705

ib_net16_t * _result;

23706

sacClassPortInfo * _arg0;

23707

Tcl_Obj * tcl_result;

23708

char * rettype;

23709

23710

clientData = clientData; objv = objv;

23711

tcl_result = Tcl_GetObjResult(interp);

23712

if ((objc < 2) || (objc > 2)) {

23713

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_lid_get { sacClassPortInfo * } ",-1);

23714

return TCL_ERROR;

23715

}

23716

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23717

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_lid_get. Expected _sacClassPortInfo_p, received ", -1);

23718

Tcl_AppendToObj(tcl_result, rettype, -1);

23719

return TCL_ERROR;

23720

}

23721

{

23722

/* we can check if IBIS was initialized here */

23723

if (!IbisObj.initialized)

23724

{

23725

Tcl_SetStringObj(

23726

Tcl_GetObjResult(interp),

23727

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23728

return TCL_ERROR;

23729

}

23730

23731

if (! IbisObj.port_guid)

23732

{

23733

Tcl_SetStringObj(

23734

Tcl_GetObjResult(interp),

23735

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23736

return TCL_ERROR;

23737

}

23738

23739

ibis_tcl_error = 0;

23740

_result = (ib_net16_t *)_ibsac_class_port_info_trap_lid_get(_arg0);

23741

;

23742

if (ibis_tcl_error) {

23743

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23744

return TCL_ERROR;

23745

}

23746

} tcl_result = Tcl_GetObjResult(interp);

23747

{

23748

char buff[20];

23749

sprintf(buff, "%u", cl_hton16(*_result));

23750

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23751

}

23752

return TCL_OK;

23753

}

23754

#define _ibsac_class_port_info_trap_pkey_set(_swigobj,_swigval) (_swigobj->trap_pkey = *(_swigval),_swigval)

23755

static int _wrap_sacClassPortInfo_trap_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23756

23757

ib_net16_t * _result;

23758

sacClassPortInfo * _arg0;

23759

ib_net16_t * _arg1;

23760

Tcl_Obj * tcl_result;

23761

char * rettype;

23762

ib_net16_t temp;

23763

23764

clientData = clientData; objv = objv;

23765

tcl_result = Tcl_GetObjResult(interp);

23766

if ((objc < 3) || (objc > 3)) {

23767

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_pkey_set { sacClassPortInfo * } { ib_net16_t * } ",-1);

23768

return TCL_ERROR;

23769

}

23770

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23771

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_pkey_set. Expected _sacClassPortInfo_p, received ", -1);

23772

Tcl_AppendToObj(tcl_result, rettype, -1);

23773

return TCL_ERROR;

23774

}

23775

{

23776

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23777

_arg1 = &temp;

23778

}

23779

{

23780

/* we can check if IBIS was initialized here */

23781

if (!IbisObj.initialized)

23782

{

23783

Tcl_SetStringObj(

23784

Tcl_GetObjResult(interp),

23785

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23786

return TCL_ERROR;

23787

}

23788

23789

if (! IbisObj.port_guid)

23790

{

23791

Tcl_SetStringObj(

23792

Tcl_GetObjResult(interp),

23793

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23794

return TCL_ERROR;

23795

}

23796

23797

ibis_tcl_error = 0;

23798

_result = (ib_net16_t *)_ibsac_class_port_info_trap_pkey_set(_arg0,_arg1);

23799

;

23800

if (ibis_tcl_error) {

23801

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23802

return TCL_ERROR;

23803

}

23804

} tcl_result = Tcl_GetObjResult(interp);

23805

{

23806

char buff[20];

23807

sprintf(buff, "%u", cl_hton16(*_result));

23808

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23809

}

23810

return TCL_OK;

23811

}

23812

#define _ibsac_class_port_info_trap_pkey_get(_swigobj) (&_swigobj->trap_pkey)

23813

static int _wrap_sacClassPortInfo_trap_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23814

23815

ib_net16_t * _result;

23816

sacClassPortInfo * _arg0;

23817

Tcl_Obj * tcl_result;

23818

char * rettype;

23819

23820

clientData = clientData; objv = objv;

23821

tcl_result = Tcl_GetObjResult(interp);

23822

if ((objc < 2) || (objc > 2)) {

23823

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_pkey_get { sacClassPortInfo * } ",-1);

23824

return TCL_ERROR;

23825

}

23826

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23827

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_pkey_get. Expected _sacClassPortInfo_p, received ", -1);

23828

Tcl_AppendToObj(tcl_result, rettype, -1);

23829

return TCL_ERROR;

23830

}

23831

{

23832

/* we can check if IBIS was initialized here */

23833

if (!IbisObj.initialized)

23834

{

23835

Tcl_SetStringObj(

23836

Tcl_GetObjResult(interp),

23837

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23838

return TCL_ERROR;

23839

}

23840

23841

if (! IbisObj.port_guid)

23842

{

23843

Tcl_SetStringObj(

23844

Tcl_GetObjResult(interp),

23845

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23846

return TCL_ERROR;

23847

}

23848

23849

ibis_tcl_error = 0;

23850

_result = (ib_net16_t *)_ibsac_class_port_info_trap_pkey_get(_arg0);

23851

;

23852

if (ibis_tcl_error) {

23853

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23854

return TCL_ERROR;

23855

}

23856

} tcl_result = Tcl_GetObjResult(interp);

23857

{

23858

char buff[20];

23859

sprintf(buff, "%u", cl_hton16(*_result));

23860

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23861

}

23862

return TCL_OK;

23863

}

23864

#define _ibsac_class_port_info_trap_hop_qp_set(_swigobj,_swigval) (_swigobj->trap_hop_qp = *(_swigval),_swigval)

23865

static int _wrap_sacClassPortInfo_trap_hop_qp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23866

23867

ib_net32_t * _result;

23868

sacClassPortInfo * _arg0;

23869

ib_net32_t * _arg1;

23870

Tcl_Obj * tcl_result;

23871

char * rettype;

23872

ib_net32_t temp;

23873

23874

clientData = clientData; objv = objv;

23875

tcl_result = Tcl_GetObjResult(interp);

23876

if ((objc < 3) || (objc > 3)) {

23877

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_hop_qp_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

23878

return TCL_ERROR;

23879

}

23880

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23881

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_hop_qp_set. Expected _sacClassPortInfo_p, received ", -1);

23882

Tcl_AppendToObj(tcl_result, rettype, -1);

23883

return TCL_ERROR;

23884

}

23885

{

23886

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23887

_arg1 = &temp;

23888

}

23889

{

23890

/* we can check if IBIS was initialized here */

23891

if (!IbisObj.initialized)

23892

{

23893

Tcl_SetStringObj(

23894

Tcl_GetObjResult(interp),

23895

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23896

return TCL_ERROR;

23897

}

23898

23899

if (! IbisObj.port_guid)

23900

{

23901

Tcl_SetStringObj(

23902

Tcl_GetObjResult(interp),

23903

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23904

return TCL_ERROR;

23905

}

23906

23907

ibis_tcl_error = 0;

23908

_result = (ib_net32_t *)_ibsac_class_port_info_trap_hop_qp_set(_arg0,_arg1);

23909

;

23910

if (ibis_tcl_error) {

23911

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23912

return TCL_ERROR;

23913

}

23914

} tcl_result = Tcl_GetObjResult(interp);

23915

{

23916

char buff[20];

23917

sprintf(buff, "%u", cl_ntoh32(*_result));

23918

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23919

}

23920

return TCL_OK;

23921

}

23922

#define _ibsac_class_port_info_trap_hop_qp_get(_swigobj) (&_swigobj->trap_hop_qp)

23923

static int _wrap_sacClassPortInfo_trap_hop_qp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23924

23925

ib_net32_t * _result;

23926

sacClassPortInfo * _arg0;

23927

Tcl_Obj * tcl_result;

23928

char * rettype;

23929

23930

clientData = clientData; objv = objv;

23931

tcl_result = Tcl_GetObjResult(interp);

23932

if ((objc < 2) || (objc > 2)) {

23933

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_hop_qp_get { sacClassPortInfo * } ",-1);

23934

return TCL_ERROR;

23935

}

23936

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23937

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_hop_qp_get. Expected _sacClassPortInfo_p, received ", -1);

23938

Tcl_AppendToObj(tcl_result, rettype, -1);

23939

return TCL_ERROR;

23940

}

23941

{

23942

/* we can check if IBIS was initialized here */

23943

if (!IbisObj.initialized)

23944

{

23945

Tcl_SetStringObj(

23946

Tcl_GetObjResult(interp),

23947

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

23948

return TCL_ERROR;

23949

}

23950

23951

if (! IbisObj.port_guid)

23952

{

23953

Tcl_SetStringObj(

23954

Tcl_GetObjResult(interp),

23955

" ibis was not yet initialized. please use ibis_set_port before.", -1);

23956

return TCL_ERROR;

23957

}

23958

23959

ibis_tcl_error = 0;

23960

_result = (ib_net32_t *)_ibsac_class_port_info_trap_hop_qp_get(_arg0);

23961

;

23962

if (ibis_tcl_error) {

23963

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

23964

return TCL_ERROR;

23965

}

23966

} tcl_result = Tcl_GetObjResult(interp);

23967

{

23968

char buff[20];

23969

sprintf(buff, "%u", cl_ntoh32(*_result));

23970

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

23971

}

23972

return TCL_OK;

23973

}

23974

#define _ibsac_class_port_info_trap_qkey_set(_swigobj,_swigval) (_swigobj->trap_qkey = *(_swigval),_swigval)

23975

static int _wrap_sacClassPortInfo_trap_qkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

23976

23977

ib_net32_t * _result;

23978

sacClassPortInfo * _arg0;

23979

ib_net32_t * _arg1;

23980

Tcl_Obj * tcl_result;

23981

char * rettype;

23982

ib_net32_t temp;

23983

23984

clientData = clientData; objv = objv;

23985

tcl_result = Tcl_GetObjResult(interp);

23986

if ((objc < 3) || (objc > 3)) {

23987

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_qkey_set { sacClassPortInfo * } { ib_net32_t * } ",-1);

23988

return TCL_ERROR;

23989

}

23990

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

23991

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_qkey_set. Expected _sacClassPortInfo_p, received ", -1);

23992

Tcl_AppendToObj(tcl_result, rettype, -1);

23993

return TCL_ERROR;

23994

}

23995

{

23996

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

23997

_arg1 = &temp;

23998

}

23999

{

24000

/* we can check if IBIS was initialized here */

24001

if (!IbisObj.initialized)

24002

{

24003

Tcl_SetStringObj(

24004

Tcl_GetObjResult(interp),

24005

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24006

return TCL_ERROR;

24007

}

24008

24009

if (! IbisObj.port_guid)

24010

{

24011

Tcl_SetStringObj(

24012

Tcl_GetObjResult(interp),

24013

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24014

return TCL_ERROR;

24015

}

24016

24017

ibis_tcl_error = 0;

24018

_result = (ib_net32_t *)_ibsac_class_port_info_trap_qkey_set(_arg0,_arg1);

24019

;

24020

if (ibis_tcl_error) {

24021

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24022

return TCL_ERROR;

24023

}

24024

} tcl_result = Tcl_GetObjResult(interp);

24025

{

24026

char buff[20];

24027

sprintf(buff, "%u", cl_ntoh32(*_result));

24028

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24029

}

24030

return TCL_OK;

24031

}

24032

#define _ibsac_class_port_info_trap_qkey_get(_swigobj) (&_swigobj->trap_qkey)

24033

static int _wrap_sacClassPortInfo_trap_qkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24034

24035

ib_net32_t * _result;

24036

sacClassPortInfo * _arg0;

24037

Tcl_Obj * tcl_result;

24038

char * rettype;

24039

24040

clientData = clientData; objv = objv;

24041

tcl_result = Tcl_GetObjResult(interp);

24042

if ((objc < 2) || (objc > 2)) {

24043

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_trap_qkey_get { sacClassPortInfo * } ",-1);

24044

return TCL_ERROR;

24045

}

24046

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

24047

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_trap_qkey_get. Expected _sacClassPortInfo_p, received ", -1);

24048

Tcl_AppendToObj(tcl_result, rettype, -1);

24049

return TCL_ERROR;

24050

}

24051

{

24052

/* we can check if IBIS was initialized here */

24053

if (!IbisObj.initialized)

24054

{

24055

Tcl_SetStringObj(

24056

Tcl_GetObjResult(interp),

24057

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24058

return TCL_ERROR;

24059

}

24060

24061

if (! IbisObj.port_guid)

24062

{

24063

Tcl_SetStringObj(

24064

Tcl_GetObjResult(interp),

24065

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24066

return TCL_ERROR;

24067

}

24068

24069

ibis_tcl_error = 0;

24070

_result = (ib_net32_t *)_ibsac_class_port_info_trap_qkey_get(_arg0);

24071

;

24072

if (ibis_tcl_error) {

24073

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24074

return TCL_ERROR;

24075

}

24076

} tcl_result = Tcl_GetObjResult(interp);

24077

{

24078

char buff[20];

24079

sprintf(buff, "%u", cl_ntoh32(*_result));

24080

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24081

}

24082

return TCL_OK;

24083

}

24084

static char * sacClassPortInfo_get(sacClassPortInfo *self) {

24085

return(ibsacClassPortInfoQuery(self, 0, IB_MAD_METHOD_GET));

24086

}

24087

static int _wrap_sacClassPortInfo_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24088

24089

char * _result;

24090

sacClassPortInfo * _arg0;

24091

Tcl_Obj * tcl_result;

24092

char * rettype;

24093

24094

clientData = clientData; objv = objv;

24095

tcl_result = Tcl_GetObjResult(interp);

24096

if ((objc < 2) || (objc > 2)) {

24097

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_get { sacClassPortInfo * } ",-1);

24098

return TCL_ERROR;

24099

}

24100

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

24101

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_get. Expected _sacClassPortInfo_p, received ", -1);

24102

Tcl_AppendToObj(tcl_result, rettype, -1);

24103

return TCL_ERROR;

24104

}

24105

{

24106

/* we can check if IBIS was initialized here */

24107

if (!IbisObj.initialized)

24108

{

24109

Tcl_SetStringObj(

24110

Tcl_GetObjResult(interp),

24111

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24112

return TCL_ERROR;

24113

}

24114

24115

if (! IbisObj.port_guid)

24116

{

24117

Tcl_SetStringObj(

24118

Tcl_GetObjResult(interp),

24119

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24120

return TCL_ERROR;

24121

}

24122

24123

ibis_tcl_error = 0;

24124

_result = (char *)sacClassPortInfo_get(_arg0);

24125

;

24126

if (ibis_tcl_error) {

24127

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24128

return TCL_ERROR;

24129

}

24130

} tcl_result = Tcl_GetObjResult(interp);

24131

Tcl_SetStringObj(tcl_result,_result,-1);

24132

free(_result);

24133

24134

return TCL_OK;

24135

}

24136

static void sacClassPortInfo_delete(sacClassPortInfo *self) {

24137

SWIG_AltMnglUnregObj(self);

24138

free(self);

24139

}

24140

static int _wrap_sacClassPortInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24141

24142

sacClassPortInfo * _arg0;

24143

Tcl_Obj * tcl_result;

24144

char * rettype;

24145

24146

clientData = clientData; objv = objv;

24147

tcl_result = Tcl_GetObjResult(interp);

24148

if ((objc < 2) || (objc > 2)) {

24149

Tcl_SetStringObj(tcl_result,"Wrong # args. sacClassPortInfo_delete { sacClassPortInfo * } ",-1);

24150

return TCL_ERROR;

24151

}

24152

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacClassPortInfo_p"))) {

24153

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacClassPortInfo_delete. Expected _sacClassPortInfo_p, received ", -1);

24154

Tcl_AppendToObj(tcl_result, rettype, -1);

24155

return TCL_ERROR;

24156

}

24157

{

24158

/* we can check if IBIS was initialized here */

24159

if (!IbisObj.initialized)

24160

{

24161

Tcl_SetStringObj(

24162

Tcl_GetObjResult(interp),

24163

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24164

return TCL_ERROR;

24165

}

24166

24167

if (! IbisObj.port_guid)

24168

{

24169

Tcl_SetStringObj(

24170

Tcl_GetObjResult(interp),

24171

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24172

return TCL_ERROR;

24173

}

24174

24175

ibis_tcl_error = 0;

24176

sacClassPortInfo_delete(_arg0);

24177

;

24178

if (ibis_tcl_error) {

24179

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24180

return TCL_ERROR;

24181

}

24182

} tcl_result = Tcl_GetObjResult(interp);

24183

return TCL_OK;

24184

}

24185

/* methodcmd8.swg : Tcl8.x method invocation */

24186

24187

static int TclsacClassPortInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

24188

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

24189

char *_str;

24190

int rcode;

24191

Tcl_Obj **objv;

24192

Tcl_Obj *oldarg,*tcl_result,*obj;

24193

int length;

24194

char c;

24195

24196

tcl_result = Tcl_GetObjResult(interp);

24197

objv = (Tcl_Obj **) _objv;

24198

if (objc < 2) {

24199

Tcl_SetStringObj(tcl_result,"sacClassPortInfo methods : { dump cget configure get delete }",-1);

24200

return TCL_ERROR;

24201

}

24202

obj = Tcl_NewObj();

24203

SWIG_SetPointerObj(obj,(void *) clientData,"_sacClassPortInfo_p");

24204

_str = Tcl_GetStringFromObj(objv[1],&length);

24205

c = *_str;

24206

if (0);

24207

if (strcmp(_str,"get") == 0) {

24208

cmd = _wrap_sacClassPortInfo_get;

24209

} else if (strcmp(_str,"delete") == 0) {

24210

cmd = _wrap_sacClassPortInfo_delete;

24211

}

24212

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

24213

int i = 2;

24214

cmd = 0;

24215

while (i+1 < objc) {

24216

_str = Tcl_GetStringFromObj(objv[i],&length);

24217

if (strcmp(_str,"-base_ver") == 0) {

24218

cmd = _wrap_sacClassPortInfo_base_ver_set;

24219

} else if (strcmp(_str,"-class_ver") == 0) {

24220

cmd = _wrap_sacClassPortInfo_class_ver_set;

24221

} else if (strcmp(_str,"-cap_mask") == 0) {

24222

cmd = _wrap_sacClassPortInfo_cap_mask_set;

24223

} else if (strcmp(_str,"-cap_mask2_resp_time") == 0) {

24224

cmd = _wrap_sacClassPortInfo_cap_mask2_resp_time_set;

24225

} else if (strcmp(_str,"-redir_gid") == 0) {

24226

cmd = _wrap_sacClassPortInfo_redir_gid_set;

24227

} else if (strcmp(_str,"-redir_tc_sl_fl") == 0) {

24228

cmd = _wrap_sacClassPortInfo_redir_tc_sl_fl_set;

24229

} else if (strcmp(_str,"-redir_lid") == 0) {

24230

cmd = _wrap_sacClassPortInfo_redir_lid_set;

24231

} else if (strcmp(_str,"-redir_pkey") == 0) {

24232

cmd = _wrap_sacClassPortInfo_redir_pkey_set;

24233

} else if (strcmp(_str,"-redir_qp") == 0) {

24234

cmd = _wrap_sacClassPortInfo_redir_qp_set;

24235

} else if (strcmp(_str,"-redir_qkey") == 0) {

24236

cmd = _wrap_sacClassPortInfo_redir_qkey_set;

24237

} else if (strcmp(_str,"-trap_gid") == 0) {

24238

cmd = _wrap_sacClassPortInfo_trap_gid_set;

24239

} else if (strcmp(_str,"-trap_tc_sl_fl") == 0) {

24240

cmd = _wrap_sacClassPortInfo_trap_tc_sl_fl_set;

24241

} else if (strcmp(_str,"-trap_lid") == 0) {

24242

cmd = _wrap_sacClassPortInfo_trap_lid_set;

24243

} else if (strcmp(_str,"-trap_pkey") == 0) {

24244

cmd = _wrap_sacClassPortInfo_trap_pkey_set;

24245

} else if (strcmp(_str,"-trap_hop_qp") == 0) {

24246

cmd = _wrap_sacClassPortInfo_trap_hop_qp_set;

24247

} else if (strcmp(_str,"-trap_qkey") == 0) {

24248

cmd = _wrap_sacClassPortInfo_trap_qkey_set;

24249

}

24250

if (cmd) {

24251

oldarg = objv[i];

24252

objv[i] = obj;

24253

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

24254

objv[i] = oldarg;

24255

if (rcode == TCL_ERROR) return rcode;

24256

cmd = 0;

24257

} else {

24258

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

24259

return TCL_ERROR;

24260

}

24261

i+=2;

24262

}

24263

if ((i < objc) || (i == 2)) {

24264

Tcl_SetStringObj(tcl_result,"{ -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

24265

return TCL_ERROR;

24266

}

24267

return TCL_OK;

24268

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

24269

if (objc == 3) {

24270

_str = Tcl_GetStringFromObj(objv[2],&length);

24271

if (0) {}

24272

if (strcmp(_str,"-base_ver") == 0) {

24273

cmd = _wrap_sacClassPortInfo_base_ver_get;

24274

} else if (strcmp(_str,"-class_ver") == 0) {

24275

cmd = _wrap_sacClassPortInfo_class_ver_get;

24276

} else if (strcmp(_str,"-cap_mask") == 0) {

24277

cmd = _wrap_sacClassPortInfo_cap_mask_get;

24278

} else if (strcmp(_str,"-cap_mask2_resp_time") == 0) {

24279

cmd = _wrap_sacClassPortInfo_cap_mask2_resp_time_get;

24280

} else if (strcmp(_str,"-redir_gid") == 0) {

24281

cmd = _wrap_sacClassPortInfo_redir_gid_get;

24282

} else if (strcmp(_str,"-redir_tc_sl_fl") == 0) {

24283

cmd = _wrap_sacClassPortInfo_redir_tc_sl_fl_get;

24284

} else if (strcmp(_str,"-redir_lid") == 0) {

24285

cmd = _wrap_sacClassPortInfo_redir_lid_get;

24286

} else if (strcmp(_str,"-redir_pkey") == 0) {

24287

cmd = _wrap_sacClassPortInfo_redir_pkey_get;

24288

} else if (strcmp(_str,"-redir_qp") == 0) {

24289

cmd = _wrap_sacClassPortInfo_redir_qp_get;

24290

} else if (strcmp(_str,"-redir_qkey") == 0) {

24291

cmd = _wrap_sacClassPortInfo_redir_qkey_get;

24292

} else if (strcmp(_str,"-trap_gid") == 0) {

24293

cmd = _wrap_sacClassPortInfo_trap_gid_get;

24294

} else if (strcmp(_str,"-trap_tc_sl_fl") == 0) {

24295

cmd = _wrap_sacClassPortInfo_trap_tc_sl_fl_get;

24296

} else if (strcmp(_str,"-trap_lid") == 0) {

24297

cmd = _wrap_sacClassPortInfo_trap_lid_get;

24298

} else if (strcmp(_str,"-trap_pkey") == 0) {

24299

cmd = _wrap_sacClassPortInfo_trap_pkey_get;

24300

} else if (strcmp(_str,"-trap_hop_qp") == 0) {

24301

cmd = _wrap_sacClassPortInfo_trap_hop_qp_get;

24302

} else if (strcmp(_str,"-trap_qkey") == 0) {

24303

cmd = _wrap_sacClassPortInfo_trap_qkey_get;

24304

}

24305

else if (strcmp(_str,"-this") == 0) {

24306

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacClassPortInfo_p");

24307

return TCL_OK;

24308

}

24309

if (cmd) {

24310

oldarg = objv[2];

24311

objv[2] = obj;

24312

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

24313

objv[2] = oldarg;

24314

return rcode;

24315

} else {

24316

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

24317

return TCL_ERROR;

24318

}

24319

} else {

24320

Tcl_SetStringObj(tcl_result,"{ -this -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }", -1);

24321

return TCL_ERROR;

24322

}

24323

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

24324

if (objc == 2) {

24325

Tcl_Obj *pDumpObj;

24326

pDumpObj = Tcl_NewStringObj("",-1);

24327

Tcl_IncrRefCount(pDumpObj);

24328

cmd = _wrap_sacClassPortInfo_base_ver_get;

24329

oldarg = objv[2];

24330

objv[2] = obj;

24331

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24332

objv[2] = oldarg;

24333

Tcl_AppendStringsToObj(pDumpObj, "-base_ver ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24334

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24335

cmd = _wrap_sacClassPortInfo_class_ver_get;

24336

oldarg = objv[2];

24337

objv[2] = obj;

24338

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24339

objv[2] = oldarg;

24340

Tcl_AppendStringsToObj(pDumpObj, "-class_ver ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24341

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24342

cmd = _wrap_sacClassPortInfo_cap_mask_get;

24343

oldarg = objv[2];

24344

objv[2] = obj;

24345

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24346

objv[2] = oldarg;

24347

Tcl_AppendStringsToObj(pDumpObj, "-cap_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24348

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24349

cmd = _wrap_sacClassPortInfo_cap_mask2_resp_time_get;

24350

oldarg = objv[2];

24351

objv[2] = obj;

24352

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24353

objv[2] = oldarg;

24354

Tcl_AppendStringsToObj(pDumpObj, "-cap_mask2_resp_time ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24355

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24356

cmd = _wrap_sacClassPortInfo_redir_gid_get;

24357

oldarg = objv[2];

24358

objv[2] = obj;

24359

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24360

objv[2] = oldarg;

24361

Tcl_AppendStringsToObj(pDumpObj, "-redir_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24362

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24363

cmd = _wrap_sacClassPortInfo_redir_tc_sl_fl_get;

24364

oldarg = objv[2];

24365

objv[2] = obj;

24366

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24367

objv[2] = oldarg;

24368

Tcl_AppendStringsToObj(pDumpObj, "-redir_tc_sl_fl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24369

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24370

cmd = _wrap_sacClassPortInfo_redir_lid_get;

24371

oldarg = objv[2];

24372

objv[2] = obj;

24373

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24374

objv[2] = oldarg;

24375

Tcl_AppendStringsToObj(pDumpObj, "-redir_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24376

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24377

cmd = _wrap_sacClassPortInfo_redir_pkey_get;

24378

oldarg = objv[2];

24379

objv[2] = obj;

24380

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24381

objv[2] = oldarg;

24382

Tcl_AppendStringsToObj(pDumpObj, "-redir_pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24383

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24384

cmd = _wrap_sacClassPortInfo_redir_qp_get;

24385

oldarg = objv[2];

24386

objv[2] = obj;

24387

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24388

objv[2] = oldarg;

24389

Tcl_AppendStringsToObj(pDumpObj, "-redir_qp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24390

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24391

cmd = _wrap_sacClassPortInfo_redir_qkey_get;

24392

oldarg = objv[2];

24393

objv[2] = obj;

24394

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24395

objv[2] = oldarg;

24396

Tcl_AppendStringsToObj(pDumpObj, "-redir_qkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24397

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24398

cmd = _wrap_sacClassPortInfo_trap_gid_get;

24399

oldarg = objv[2];

24400

objv[2] = obj;

24401

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24402

objv[2] = oldarg;

24403

Tcl_AppendStringsToObj(pDumpObj, "-trap_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24404

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24405

cmd = _wrap_sacClassPortInfo_trap_tc_sl_fl_get;

24406

oldarg = objv[2];

24407

objv[2] = obj;

24408

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24409

objv[2] = oldarg;

24410

Tcl_AppendStringsToObj(pDumpObj, "-trap_tc_sl_fl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24411

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24412

cmd = _wrap_sacClassPortInfo_trap_lid_get;

24413

oldarg = objv[2];

24414

objv[2] = obj;

24415

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24416

objv[2] = oldarg;

24417

Tcl_AppendStringsToObj(pDumpObj, "-trap_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24418

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24419

cmd = _wrap_sacClassPortInfo_trap_pkey_get;

24420

oldarg = objv[2];

24421

objv[2] = obj;

24422

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24423

objv[2] = oldarg;

24424

Tcl_AppendStringsToObj(pDumpObj, "-trap_pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24425

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24426

cmd = _wrap_sacClassPortInfo_trap_hop_qp_get;

24427

oldarg = objv[2];

24428

objv[2] = obj;

24429

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24430

objv[2] = oldarg;

24431

Tcl_AppendStringsToObj(pDumpObj, "-trap_hop_qp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24432

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24433

cmd = _wrap_sacClassPortInfo_trap_qkey_get;

24434

oldarg = objv[2];

24435

objv[2] = obj;

24436

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

24437

objv[2] = oldarg;

24438

Tcl_AppendStringsToObj(pDumpObj, "-trap_qkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

24439

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

24440

24441

Tcl_DecrRefCount(pDumpObj);

24442

return TCL_OK;

24443

} else {

24444

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

24445

return TCL_ERROR;

24446

}

24447

}

24448

if (!cmd) {

24449

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get delete }",-1);

24450

return TCL_ERROR;

24451

}

24452

oldarg = objv[1];

24453

objv[1] = obj;

24454

rcode = (*cmd)(clientData,interp,objc,objv);

24455

objv[1] = oldarg;

24456

return rcode;

24457

}

24458

24459

24460

24461

/* objcmd8.swg : Tcl 8.x object creation */

24462

24463

static int TclsacClassPortInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24464

void (*del)(ClientData) = 0;

24465

char *name = 0;

24466

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

24467

sacClassPortInfo * newObj = 0;

24468

int firstarg = 0;

24469

int thisarg = 0;

24470

int length;

24471

char *_str;

24472

Tcl_Obj *tcl_result;

24473

24474

tcl_result = Tcl_GetObjResult(interp);

24475

if (objc == 1) {

24476

cmd = 0;

24477

} else {

24478

_str = Tcl_GetStringFromObj(objv[1],&length);

24479

if (strcmp(_str,"-this") == 0) thisarg = 2;

24480

else if (strcmp(_str,"-args") == 0) {

24481

firstarg = 1;

24482

cmd = 0;

24483

} else if (objc == 2) {

24484

firstarg = 1;

24485

name = _str;

24486

cmd = 0;

24487

} else if (objc >= 3) {

24488

name = _str;

24489

_str = Tcl_GetStringFromObj(objv[2],&length);

24490

if (strcmp(_str,"-this") == 0) thisarg = 3;

24491

else {

24492

firstarg = 1;

24493

cmd = 0;

24494

}

24495

}

24496

}

24497

if (cmd) {

24498

int result;

24499

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

24500

if (result == TCL_OK) {

24501

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacClassPortInfo_p");

24502

} else { return result; }

24503

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

24504

del = 0;

24505

} else if (thisarg > 0) {

24506

if (thisarg < objc) {

24507

char *r;

24508

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacClassPortInfo_p");

24509

if (r) {

24510

Tcl_SetStringObj(tcl_result,"Type error. not a sacClassPortInfo object.",-1);

24511

return TCL_ERROR;

24512

}

24513

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

24514

Tcl_SetStringObj(tcl_result,name,-1);

24515

} else {

24516

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

24517

return TCL_ERROR;

24518

}

24519

} else {

24520

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

24521

return TCL_ERROR;

24522

}

24523

{

24524

Tcl_CmdInfo dummy;

24525

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

24526

Tcl_CreateObjCommand(interp,name, TclsacClassPortInfoMethodCmd, (ClientData) newObj, del);

24527

return TCL_OK;

24528

} else {

24529

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

24530

return TCL_ERROR;

24531

}

24532

}

24533

}

24534

24535

24536

#define _ibsac_inform_info_gid_set(_swigobj,_swigval) (_swigobj->gid = *(_swigval),_swigval)

24537

static int _wrap_sacInformInfo_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24538

24539

ib_gid_t * _result;

24540

sacInformInfo * _arg0;

24541

ib_gid_t * _arg1;

24542

Tcl_Obj * tcl_result;

24543

char * rettype;

24544

ib_gid_t temp;

24545

24546

clientData = clientData; objv = objv;

24547

tcl_result = Tcl_GetObjResult(interp);

24548

if ((objc < 3) || (objc > 3)) {

24549

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_gid_set { sacInformInfo * } { ib_gid_t * } ",-1);

24550

return TCL_ERROR;

24551

}

24552

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24553

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_gid_set. Expected _sacInformInfo_p, received ", -1);

24554

Tcl_AppendToObj(tcl_result, rettype, -1);

24555

return TCL_ERROR;

24556

}

24557

{

24558

char buf[40];

24559

char *p_prefix, *p_guid;

24560

char *str_token = NULL;

24561

24562

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

24563

p_prefix = strtok_r(buf,":", &str_token);

24564

if (! p_prefix)

24565

{

24566

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

24567

return TCL_ERROR;

24568

}

24569

p_guid = strtok_r(NULL, " ", &str_token);

24570

if (! p_guid)

24571

{

24572

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

24573

return TCL_ERROR;

24574

}

24575

24576

errno = 0;

24577

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

24578

if (errno) {

24579

printf("Wrong format for gid prefix:%s\n", p_prefix);

24580

return TCL_ERROR;

24581

}

24582

24583

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

24584

if (errno) {

24585

printf("Wrong format for gid guid:%s\n", p_guid);

24586

return TCL_ERROR;

24587

}

24588

24589

_arg1 = &temp;

24590

}

24591

{

24592

/* we can check if IBIS was initialized here */

24593

if (!IbisObj.initialized)

24594

{

24595

Tcl_SetStringObj(

24596

Tcl_GetObjResult(interp),

24597

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24598

return TCL_ERROR;

24599

}

24600

24601

if (! IbisObj.port_guid)

24602

{

24603

Tcl_SetStringObj(

24604

Tcl_GetObjResult(interp),

24605

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24606

return TCL_ERROR;

24607

}

24608

24609

ibis_tcl_error = 0;

24610

_result = (ib_gid_t *)_ibsac_inform_info_gid_set(_arg0,_arg1);

24611

;

24612

if (ibis_tcl_error) {

24613

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24614

return TCL_ERROR;

24615

}

24616

} tcl_result = Tcl_GetObjResult(interp);

24617

{

24618

char buff[38];

24619

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

24620

cl_ntoh64(_result->unicast.prefix),

24621

cl_ntoh64(_result->unicast.interface_id)

24622

);

24623

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24624

}

24625

return TCL_OK;

24626

}

24627

#define _ibsac_inform_info_gid_get(_swigobj) (&_swigobj->gid)

24628

static int _wrap_sacInformInfo_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24629

24630

ib_gid_t * _result;

24631

sacInformInfo * _arg0;

24632

Tcl_Obj * tcl_result;

24633

char * rettype;

24634

24635

clientData = clientData; objv = objv;

24636

tcl_result = Tcl_GetObjResult(interp);

24637

if ((objc < 2) || (objc > 2)) {

24638

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_gid_get { sacInformInfo * } ",-1);

24639

return TCL_ERROR;

24640

}

24641

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24642

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_gid_get. Expected _sacInformInfo_p, received ", -1);

24643

Tcl_AppendToObj(tcl_result, rettype, -1);

24644

return TCL_ERROR;

24645

}

24646

{

24647

/* we can check if IBIS was initialized here */

24648

if (!IbisObj.initialized)

24649

{

24650

Tcl_SetStringObj(

24651

Tcl_GetObjResult(interp),

24652

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24653

return TCL_ERROR;

24654

}

24655

24656

if (! IbisObj.port_guid)

24657

{

24658

Tcl_SetStringObj(

24659

Tcl_GetObjResult(interp),

24660

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24661

return TCL_ERROR;

24662

}

24663

24664

ibis_tcl_error = 0;

24665

_result = (ib_gid_t *)_ibsac_inform_info_gid_get(_arg0);

24666

;

24667

if (ibis_tcl_error) {

24668

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24669

return TCL_ERROR;

24670

}

24671

} tcl_result = Tcl_GetObjResult(interp);

24672

{

24673

char buff[38];

24674

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

24675

cl_ntoh64(_result->unicast.prefix),

24676

cl_ntoh64(_result->unicast.interface_id)

24677

);

24678

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24679

}

24680

return TCL_OK;

24681

}

24682

#define _ibsac_inform_info_lid_range_begin_set(_swigobj,_swigval) (_swigobj->lid_range_begin = *(_swigval),_swigval)

24683

static int _wrap_sacInformInfo_lid_range_begin_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24684

24685

ib_net16_t * _result;

24686

sacInformInfo * _arg0;

24687

ib_net16_t * _arg1;

24688

Tcl_Obj * tcl_result;

24689

char * rettype;

24690

ib_net16_t temp;

24691

24692

clientData = clientData; objv = objv;

24693

tcl_result = Tcl_GetObjResult(interp);

24694

if ((objc < 3) || (objc > 3)) {

24695

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_lid_range_begin_set { sacInformInfo * } { ib_net16_t * } ",-1);

24696

return TCL_ERROR;

24697

}

24698

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24699

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_lid_range_begin_set. Expected _sacInformInfo_p, received ", -1);

24700

Tcl_AppendToObj(tcl_result, rettype, -1);

24701

return TCL_ERROR;

24702

}

24703

{

24704

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

24705

_arg1 = &temp;

24706

}

24707

{

24708

/* we can check if IBIS was initialized here */

24709

if (!IbisObj.initialized)

24710

{

24711

Tcl_SetStringObj(

24712

Tcl_GetObjResult(interp),

24713

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24714

return TCL_ERROR;

24715

}

24716

24717

if (! IbisObj.port_guid)

24718

{

24719

Tcl_SetStringObj(

24720

Tcl_GetObjResult(interp),

24721

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24722

return TCL_ERROR;

24723

}

24724

24725

ibis_tcl_error = 0;

24726

_result = (ib_net16_t *)_ibsac_inform_info_lid_range_begin_set(_arg0,_arg1);

24727

;

24728

if (ibis_tcl_error) {

24729

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24730

return TCL_ERROR;

24731

}

24732

} tcl_result = Tcl_GetObjResult(interp);

24733

{

24734

char buff[20];

24735

sprintf(buff, "%u", cl_hton16(*_result));

24736

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24737

}

24738

return TCL_OK;

24739

}

24740

#define _ibsac_inform_info_lid_range_begin_get(_swigobj) (&_swigobj->lid_range_begin)

24741

static int _wrap_sacInformInfo_lid_range_begin_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24742

24743

ib_net16_t * _result;

24744

sacInformInfo * _arg0;

24745

Tcl_Obj * tcl_result;

24746

char * rettype;

24747

24748

clientData = clientData; objv = objv;

24749

tcl_result = Tcl_GetObjResult(interp);

24750

if ((objc < 2) || (objc > 2)) {

24751

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_lid_range_begin_get { sacInformInfo * } ",-1);

24752

return TCL_ERROR;

24753

}

24754

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24755

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_lid_range_begin_get. Expected _sacInformInfo_p, received ", -1);

24756

Tcl_AppendToObj(tcl_result, rettype, -1);

24757

return TCL_ERROR;

24758

}

24759

{

24760

/* we can check if IBIS was initialized here */

24761

if (!IbisObj.initialized)

24762

{

24763

Tcl_SetStringObj(

24764

Tcl_GetObjResult(interp),

24765

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24766

return TCL_ERROR;

24767

}

24768

24769

if (! IbisObj.port_guid)

24770

{

24771

Tcl_SetStringObj(

24772

Tcl_GetObjResult(interp),

24773

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24774

return TCL_ERROR;

24775

}

24776

24777

ibis_tcl_error = 0;

24778

_result = (ib_net16_t *)_ibsac_inform_info_lid_range_begin_get(_arg0);

24779

;

24780

if (ibis_tcl_error) {

24781

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24782

return TCL_ERROR;

24783

}

24784

} tcl_result = Tcl_GetObjResult(interp);

24785

{

24786

char buff[20];

24787

sprintf(buff, "%u", cl_hton16(*_result));

24788

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24789

}

24790

return TCL_OK;

24791

}

24792

#define _ibsac_inform_info_lid_range_end_set(_swigobj,_swigval) (_swigobj->lid_range_end = *(_swigval),_swigval)

24793

static int _wrap_sacInformInfo_lid_range_end_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24794

24795

ib_net16_t * _result;

24796

sacInformInfo * _arg0;

24797

ib_net16_t * _arg1;

24798

Tcl_Obj * tcl_result;

24799

char * rettype;

24800

ib_net16_t temp;

24801

24802

clientData = clientData; objv = objv;

24803

tcl_result = Tcl_GetObjResult(interp);

24804

if ((objc < 3) || (objc > 3)) {

24805

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_lid_range_end_set { sacInformInfo * } { ib_net16_t * } ",-1);

24806

return TCL_ERROR;

24807

}

24808

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24809

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_lid_range_end_set. Expected _sacInformInfo_p, received ", -1);

24810

Tcl_AppendToObj(tcl_result, rettype, -1);

24811

return TCL_ERROR;

24812

}

24813

{

24814

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

24815

_arg1 = &temp;

24816

}

24817

{

24818

/* we can check if IBIS was initialized here */

24819

if (!IbisObj.initialized)

24820

{

24821

Tcl_SetStringObj(

24822

Tcl_GetObjResult(interp),

24823

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24824

return TCL_ERROR;

24825

}

24826

24827

if (! IbisObj.port_guid)

24828

{

24829

Tcl_SetStringObj(

24830

Tcl_GetObjResult(interp),

24831

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24832

return TCL_ERROR;

24833

}

24834

24835

ibis_tcl_error = 0;

24836

_result = (ib_net16_t *)_ibsac_inform_info_lid_range_end_set(_arg0,_arg1);

24837

;

24838

if (ibis_tcl_error) {

24839

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24840

return TCL_ERROR;

24841

}

24842

} tcl_result = Tcl_GetObjResult(interp);

24843

{

24844

char buff[20];

24845

sprintf(buff, "%u", cl_hton16(*_result));

24846

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24847

}

24848

return TCL_OK;

24849

}

24850

#define _ibsac_inform_info_lid_range_end_get(_swigobj) (&_swigobj->lid_range_end)

24851

static int _wrap_sacInformInfo_lid_range_end_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24852

24853

ib_net16_t * _result;

24854

sacInformInfo * _arg0;

24855

Tcl_Obj * tcl_result;

24856

char * rettype;

24857

24858

clientData = clientData; objv = objv;

24859

tcl_result = Tcl_GetObjResult(interp);

24860

if ((objc < 2) || (objc > 2)) {

24861

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_lid_range_end_get { sacInformInfo * } ",-1);

24862

return TCL_ERROR;

24863

}

24864

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24865

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_lid_range_end_get. Expected _sacInformInfo_p, received ", -1);

24866

Tcl_AppendToObj(tcl_result, rettype, -1);

24867

return TCL_ERROR;

24868

}

24869

{

24870

/* we can check if IBIS was initialized here */

24871

if (!IbisObj.initialized)

24872

{

24873

Tcl_SetStringObj(

24874

Tcl_GetObjResult(interp),

24875

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24876

return TCL_ERROR;

24877

}

24878

24879

if (! IbisObj.port_guid)

24880

{

24881

Tcl_SetStringObj(

24882

Tcl_GetObjResult(interp),

24883

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24884

return TCL_ERROR;

24885

}

24886

24887

ibis_tcl_error = 0;

24888

_result = (ib_net16_t *)_ibsac_inform_info_lid_range_end_get(_arg0);

24889

;

24890

if (ibis_tcl_error) {

24891

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24892

return TCL_ERROR;

24893

}

24894

} tcl_result = Tcl_GetObjResult(interp);

24895

{

24896

char buff[20];

24897

sprintf(buff, "%u", cl_hton16(*_result));

24898

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24899

}

24900

return TCL_OK;

24901

}

24902

#define _ibsac_inform_info_reserved1_set(_swigobj,_swigval) (_swigobj->reserved1 = *(_swigval),_swigval)

24903

static int _wrap_sacInformInfo_reserved1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24904

24905

ib_net16_t * _result;

24906

sacInformInfo * _arg0;

24907

ib_net16_t * _arg1;

24908

Tcl_Obj * tcl_result;

24909

char * rettype;

24910

ib_net16_t temp;

24911

24912

clientData = clientData; objv = objv;

24913

tcl_result = Tcl_GetObjResult(interp);

24914

if ((objc < 3) || (objc > 3)) {

24915

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_reserved1_set { sacInformInfo * } { ib_net16_t * } ",-1);

24916

return TCL_ERROR;

24917

}

24918

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24919

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_reserved1_set. Expected _sacInformInfo_p, received ", -1);

24920

Tcl_AppendToObj(tcl_result, rettype, -1);

24921

return TCL_ERROR;

24922

}

24923

{

24924

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

24925

_arg1 = &temp;

24926

}

24927

{

24928

/* we can check if IBIS was initialized here */

24929

if (!IbisObj.initialized)

24930

{

24931

Tcl_SetStringObj(

24932

Tcl_GetObjResult(interp),

24933

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24934

return TCL_ERROR;

24935

}

24936

24937

if (! IbisObj.port_guid)

24938

{

24939

Tcl_SetStringObj(

24940

Tcl_GetObjResult(interp),

24941

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24942

return TCL_ERROR;

24943

}

24944

24945

ibis_tcl_error = 0;

24946

_result = (ib_net16_t *)_ibsac_inform_info_reserved1_set(_arg0,_arg1);

24947

;

24948

if (ibis_tcl_error) {

24949

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

24950

return TCL_ERROR;

24951

}

24952

} tcl_result = Tcl_GetObjResult(interp);

24953

{

24954

char buff[20];

24955

sprintf(buff, "%u", cl_hton16(*_result));

24956

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

24957

}

24958

return TCL_OK;

24959

}

24960

#define _ibsac_inform_info_reserved1_get(_swigobj) (&_swigobj->reserved1)

24961

static int _wrap_sacInformInfo_reserved1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

24962

24963

ib_net16_t * _result;

24964

sacInformInfo * _arg0;

24965

Tcl_Obj * tcl_result;

24966

char * rettype;

24967

24968

clientData = clientData; objv = objv;

24969

tcl_result = Tcl_GetObjResult(interp);

24970

if ((objc < 2) || (objc > 2)) {

24971

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_reserved1_get { sacInformInfo * } ",-1);

24972

return TCL_ERROR;

24973

}

24974

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

24975

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_reserved1_get. Expected _sacInformInfo_p, received ", -1);

24976

Tcl_AppendToObj(tcl_result, rettype, -1);

24977

return TCL_ERROR;

24978

}

24979

{

24980

/* we can check if IBIS was initialized here */

24981

if (!IbisObj.initialized)

24982

{

24983

Tcl_SetStringObj(

24984

Tcl_GetObjResult(interp),

24985

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

24986

return TCL_ERROR;

24987

}

24988

24989

if (! IbisObj.port_guid)

24990

{

24991

Tcl_SetStringObj(

24992

Tcl_GetObjResult(interp),

24993

" ibis was not yet initialized. please use ibis_set_port before.", -1);

24994

return TCL_ERROR;

24995

}

24996

24997

ibis_tcl_error = 0;

24998

_result = (ib_net16_t *)_ibsac_inform_info_reserved1_get(_arg0);

24999

;

25000

if (ibis_tcl_error) {

25001

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25002

return TCL_ERROR;

25003

}

25004

} tcl_result = Tcl_GetObjResult(interp);

25005

{

25006

char buff[20];

25007

sprintf(buff, "%u", cl_hton16(*_result));

25008

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25009

}

25010

return TCL_OK;

25011

}

25012

#define _ibsac_inform_info_is_generic_set(_swigobj,_swigval) (_swigobj->is_generic = *(_swigval),_swigval)

25013

static int _wrap_sacInformInfo_is_generic_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25014

25015

uint8_t * _result;

25016

sacInformInfo * _arg0;

25017

uint8_t * _arg1;

25018

Tcl_Obj * tcl_result;

25019

char * rettype;

25020

uint8_t temp;

25021

25022

clientData = clientData; objv = objv;

25023

tcl_result = Tcl_GetObjResult(interp);

25024

if ((objc < 3) || (objc > 3)) {

25025

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_is_generic_set { sacInformInfo * } { uint8_t * } ",-1);

25026

return TCL_ERROR;

25027

}

25028

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25029

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_is_generic_set. Expected _sacInformInfo_p, received ", -1);

25030

Tcl_AppendToObj(tcl_result, rettype, -1);

25031

return TCL_ERROR;

25032

}

25033

{

25034

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

25035

_arg1 = &temp;

25036

}

25037

{

25038

/* we can check if IBIS was initialized here */

25039

if (!IbisObj.initialized)

25040

{

25041

Tcl_SetStringObj(

25042

Tcl_GetObjResult(interp),

25043

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25044

return TCL_ERROR;

25045

}

25046

25047

if (! IbisObj.port_guid)

25048

{

25049

Tcl_SetStringObj(

25050

Tcl_GetObjResult(interp),

25051

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25052

return TCL_ERROR;

25053

}

25054

25055

ibis_tcl_error = 0;

25056

_result = (uint8_t *)_ibsac_inform_info_is_generic_set(_arg0,_arg1);

25057

;

25058

if (ibis_tcl_error) {

25059

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25060

return TCL_ERROR;

25061

}

25062

} tcl_result = Tcl_GetObjResult(interp);

25063

{

25064

char buff[20];

25065

sprintf(buff, "%u", *_result);

25066

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25067

}

25068

return TCL_OK;

25069

}

25070

#define _ibsac_inform_info_is_generic_get(_swigobj) (&_swigobj->is_generic)

25071

static int _wrap_sacInformInfo_is_generic_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25072

25073

uint8_t * _result;

25074

sacInformInfo * _arg0;

25075

Tcl_Obj * tcl_result;

25076

char * rettype;

25077

25078

clientData = clientData; objv = objv;

25079

tcl_result = Tcl_GetObjResult(interp);

25080

if ((objc < 2) || (objc > 2)) {

25081

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_is_generic_get { sacInformInfo * } ",-1);

25082

return TCL_ERROR;

25083

}

25084

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25085

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_is_generic_get. Expected _sacInformInfo_p, received ", -1);

25086

Tcl_AppendToObj(tcl_result, rettype, -1);

25087

return TCL_ERROR;

25088

}

25089

{

25090

/* we can check if IBIS was initialized here */

25091

if (!IbisObj.initialized)

25092

{

25093

Tcl_SetStringObj(

25094

Tcl_GetObjResult(interp),

25095

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25096

return TCL_ERROR;

25097

}

25098

25099

if (! IbisObj.port_guid)

25100

{

25101

Tcl_SetStringObj(

25102

Tcl_GetObjResult(interp),

25103

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25104

return TCL_ERROR;

25105

}

25106

25107

ibis_tcl_error = 0;

25108

_result = (uint8_t *)_ibsac_inform_info_is_generic_get(_arg0);

25109

;

25110

if (ibis_tcl_error) {

25111

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25112

return TCL_ERROR;

25113

}

25114

} tcl_result = Tcl_GetObjResult(interp);

25115

{

25116

char buff[20];

25117

sprintf(buff, "%u", *_result);

25118

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25119

}

25120

return TCL_OK;

25121

}

25122

#define _ibsac_inform_info_subscribe_set(_swigobj,_swigval) (_swigobj->subscribe = *(_swigval),_swigval)

25123

static int _wrap_sacInformInfo_subscribe_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25124

25125

uint8_t * _result;

25126

sacInformInfo * _arg0;

25127

uint8_t * _arg1;

25128

Tcl_Obj * tcl_result;

25129

char * rettype;

25130

uint8_t temp;

25131

25132

clientData = clientData; objv = objv;

25133

tcl_result = Tcl_GetObjResult(interp);

25134

if ((objc < 3) || (objc > 3)) {

25135

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_subscribe_set { sacInformInfo * } { uint8_t * } ",-1);

25136

return TCL_ERROR;

25137

}

25138

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25139

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_subscribe_set. Expected _sacInformInfo_p, received ", -1);

25140

Tcl_AppendToObj(tcl_result, rettype, -1);

25141

return TCL_ERROR;

25142

}

25143

{

25144

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

25145

_arg1 = &temp;

25146

}

25147

{

25148

/* we can check if IBIS was initialized here */

25149

if (!IbisObj.initialized)

25150

{

25151

Tcl_SetStringObj(

25152

Tcl_GetObjResult(interp),

25153

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25154

return TCL_ERROR;

25155

}

25156

25157

if (! IbisObj.port_guid)

25158

{

25159

Tcl_SetStringObj(

25160

Tcl_GetObjResult(interp),

25161

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25162

return TCL_ERROR;

25163

}

25164

25165

ibis_tcl_error = 0;

25166

_result = (uint8_t *)_ibsac_inform_info_subscribe_set(_arg0,_arg1);

25167

;

25168

if (ibis_tcl_error) {

25169

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25170

return TCL_ERROR;

25171

}

25172

} tcl_result = Tcl_GetObjResult(interp);

25173

{

25174

char buff[20];

25175

sprintf(buff, "%u", *_result);

25176

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25177

}

25178

return TCL_OK;

25179

}

25180

#define _ibsac_inform_info_subscribe_get(_swigobj) (&_swigobj->subscribe)

25181

static int _wrap_sacInformInfo_subscribe_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25182

25183

uint8_t * _result;

25184

sacInformInfo * _arg0;

25185

Tcl_Obj * tcl_result;

25186

char * rettype;

25187

25188

clientData = clientData; objv = objv;

25189

tcl_result = Tcl_GetObjResult(interp);

25190

if ((objc < 2) || (objc > 2)) {

25191

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_subscribe_get { sacInformInfo * } ",-1);

25192

return TCL_ERROR;

25193

}

25194

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25195

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_subscribe_get. Expected _sacInformInfo_p, received ", -1);

25196

Tcl_AppendToObj(tcl_result, rettype, -1);

25197

return TCL_ERROR;

25198

}

25199

{

25200

/* we can check if IBIS was initialized here */

25201

if (!IbisObj.initialized)

25202

{

25203

Tcl_SetStringObj(

25204

Tcl_GetObjResult(interp),

25205

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25206

return TCL_ERROR;

25207

}

25208

25209

if (! IbisObj.port_guid)

25210

{

25211

Tcl_SetStringObj(

25212

Tcl_GetObjResult(interp),

25213

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25214

return TCL_ERROR;

25215

}

25216

25217

ibis_tcl_error = 0;

25218

_result = (uint8_t *)_ibsac_inform_info_subscribe_get(_arg0);

25219

;

25220

if (ibis_tcl_error) {

25221

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25222

return TCL_ERROR;

25223

}

25224

} tcl_result = Tcl_GetObjResult(interp);

25225

{

25226

char buff[20];

25227

sprintf(buff, "%u", *_result);

25228

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25229

}

25230

return TCL_OK;

25231

}

25232

#define _ibsac_inform_info_trap_type_set(_swigobj,_swigval) (_swigobj->trap_type = *(_swigval),_swigval)

25233

static int _wrap_sacInformInfo_trap_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25234

25235

ib_net16_t * _result;

25236

sacInformInfo * _arg0;

25237

ib_net16_t * _arg1;

25238

Tcl_Obj * tcl_result;

25239

char * rettype;

25240

ib_net16_t temp;

25241

25242

clientData = clientData; objv = objv;

25243

tcl_result = Tcl_GetObjResult(interp);

25244

if ((objc < 3) || (objc > 3)) {

25245

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_trap_type_set { sacInformInfo * } { ib_net16_t * } ",-1);

25246

return TCL_ERROR;

25247

}

25248

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25249

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_trap_type_set. Expected _sacInformInfo_p, received ", -1);

25250

Tcl_AppendToObj(tcl_result, rettype, -1);

25251

return TCL_ERROR;

25252

}

25253

{

25254

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

25255

_arg1 = &temp;

25256

}

25257

{

25258

/* we can check if IBIS was initialized here */

25259

if (!IbisObj.initialized)

25260

{

25261

Tcl_SetStringObj(

25262

Tcl_GetObjResult(interp),

25263

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25264

return TCL_ERROR;

25265

}

25266

25267

if (! IbisObj.port_guid)

25268

{

25269

Tcl_SetStringObj(

25270

Tcl_GetObjResult(interp),

25271

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25272

return TCL_ERROR;

25273

}

25274

25275

ibis_tcl_error = 0;

25276

_result = (ib_net16_t *)_ibsac_inform_info_trap_type_set(_arg0,_arg1);

25277

;

25278

if (ibis_tcl_error) {

25279

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25280

return TCL_ERROR;

25281

}

25282

} tcl_result = Tcl_GetObjResult(interp);

25283

{

25284

char buff[20];

25285

sprintf(buff, "%u", cl_hton16(*_result));

25286

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25287

}

25288

return TCL_OK;

25289

}

25290

#define _ibsac_inform_info_trap_type_get(_swigobj) (&_swigobj->trap_type)

25291

static int _wrap_sacInformInfo_trap_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25292

25293

ib_net16_t * _result;

25294

sacInformInfo * _arg0;

25295

Tcl_Obj * tcl_result;

25296

char * rettype;

25297

25298

clientData = clientData; objv = objv;

25299

tcl_result = Tcl_GetObjResult(interp);

25300

if ((objc < 2) || (objc > 2)) {

25301

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_trap_type_get { sacInformInfo * } ",-1);

25302

return TCL_ERROR;

25303

}

25304

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25305

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_trap_type_get. Expected _sacInformInfo_p, received ", -1);

25306

Tcl_AppendToObj(tcl_result, rettype, -1);

25307

return TCL_ERROR;

25308

}

25309

{

25310

/* we can check if IBIS was initialized here */

25311

if (!IbisObj.initialized)

25312

{

25313

Tcl_SetStringObj(

25314

Tcl_GetObjResult(interp),

25315

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25316

return TCL_ERROR;

25317

}

25318

25319

if (! IbisObj.port_guid)

25320

{

25321

Tcl_SetStringObj(

25322

Tcl_GetObjResult(interp),

25323

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25324

return TCL_ERROR;

25325

}

25326

25327

ibis_tcl_error = 0;

25328

_result = (ib_net16_t *)_ibsac_inform_info_trap_type_get(_arg0);

25329

;

25330

if (ibis_tcl_error) {

25331

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25332

return TCL_ERROR;

25333

}

25334

} tcl_result = Tcl_GetObjResult(interp);

25335

{

25336

char buff[20];

25337

sprintf(buff, "%u", cl_hton16(*_result));

25338

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

25339

}

25340

return TCL_OK;

25341

}

25342

#define _ibsac_inform_info_g_or_v_get(_swigobj) (&_swigobj->g_or_v)

25343

static int _wrap_sacInformInfo_g_or_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25344

25345

sacInformInfo_g_or_v * _result;

25346

sacInformInfo * _arg0;

25347

Tcl_Obj * tcl_result;

25348

char * rettype;

25349

25350

clientData = clientData; objv = objv;

25351

tcl_result = Tcl_GetObjResult(interp);

25352

if ((objc < 2) || (objc > 2)) {

25353

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_get { sacInformInfo * } ",-1);

25354

return TCL_ERROR;

25355

}

25356

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25357

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_get. Expected _sacInformInfo_p, received ", -1);

25358

Tcl_AppendToObj(tcl_result, rettype, -1);

25359

return TCL_ERROR;

25360

}

25361

{

25362

/* we can check if IBIS was initialized here */

25363

if (!IbisObj.initialized)

25364

{

25365

Tcl_SetStringObj(

25366

Tcl_GetObjResult(interp),

25367

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25368

return TCL_ERROR;

25369

}

25370

25371

if (! IbisObj.port_guid)

25372

{

25373

Tcl_SetStringObj(

25374

Tcl_GetObjResult(interp),

25375

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25376

return TCL_ERROR;

25377

}

25378

25379

ibis_tcl_error = 0;

25380

_result = (sacInformInfo_g_or_v *)_ibsac_inform_info_g_or_v_get(_arg0);

25381

;

25382

if (ibis_tcl_error) {

25383

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25384

return TCL_ERROR;

25385

}

25386

} tcl_result = Tcl_GetObjResult(interp);

25387

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacInformInfo_g_or_v_p");

25388

return TCL_OK;

25389

}

25390

static char * sacInformInfo_set(sacInformInfo *self) {

25391

return(ibsacInformInfoQuery(self, 0, IB_MAD_METHOD_SET));

25392

}

25393

static int _wrap_sacInformInfo_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25394

25395

char * _result;

25396

sacInformInfo * _arg0;

25397

Tcl_Obj * tcl_result;

25398

char * rettype;

25399

25400

clientData = clientData; objv = objv;

25401

tcl_result = Tcl_GetObjResult(interp);

25402

if ((objc < 2) || (objc > 2)) {

25403

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_set { sacInformInfo * } ",-1);

25404

return TCL_ERROR;

25405

}

25406

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25407

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_set. Expected _sacInformInfo_p, received ", -1);

25408

Tcl_AppendToObj(tcl_result, rettype, -1);

25409

return TCL_ERROR;

25410

}

25411

{

25412

/* we can check if IBIS was initialized here */

25413

if (!IbisObj.initialized)

25414

{

25415

Tcl_SetStringObj(

25416

Tcl_GetObjResult(interp),

25417

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25418

return TCL_ERROR;

25419

}

25420

25421

if (! IbisObj.port_guid)

25422

{

25423

Tcl_SetStringObj(

25424

Tcl_GetObjResult(interp),

25425

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25426

return TCL_ERROR;

25427

}

25428

25429

ibis_tcl_error = 0;

25430

_result = (char *)sacInformInfo_set(_arg0);

25431

;

25432

if (ibis_tcl_error) {

25433

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25434

return TCL_ERROR;

25435

}

25436

} tcl_result = Tcl_GetObjResult(interp);

25437

Tcl_SetStringObj(tcl_result,_result,-1);

25438

free(_result);

25439

25440

return TCL_OK;

25441

}

25442

static void sacInformInfo_delete(sacInformInfo *self) {

25443

SWIG_AltMnglUnregObj(self);

25444

free(self);

25445

}

25446

static int _wrap_sacInformInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25447

25448

sacInformInfo * _arg0;

25449

Tcl_Obj * tcl_result;

25450

char * rettype;

25451

25452

clientData = clientData; objv = objv;

25453

tcl_result = Tcl_GetObjResult(interp);

25454

if ((objc < 2) || (objc > 2)) {

25455

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_delete { sacInformInfo * } ",-1);

25456

return TCL_ERROR;

25457

}

25458

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_p"))) {

25459

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_delete. Expected _sacInformInfo_p, received ", -1);

25460

Tcl_AppendToObj(tcl_result, rettype, -1);

25461

return TCL_ERROR;

25462

}

25463

{

25464

/* we can check if IBIS was initialized here */

25465

if (!IbisObj.initialized)

25466

{

25467

Tcl_SetStringObj(

25468

Tcl_GetObjResult(interp),

25469

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25470

return TCL_ERROR;

25471

}

25472

25473

if (! IbisObj.port_guid)

25474

{

25475

Tcl_SetStringObj(

25476

Tcl_GetObjResult(interp),

25477

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25478

return TCL_ERROR;

25479

}

25480

25481

ibis_tcl_error = 0;

25482

sacInformInfo_delete(_arg0);

25483

;

25484

if (ibis_tcl_error) {

25485

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25486

return TCL_ERROR;

25487

}

25488

} tcl_result = Tcl_GetObjResult(interp);

25489

return TCL_OK;

25490

}

25491

/* methodcmd8.swg : Tcl8.x method invocation */

25492

25493

static int TclsacInformInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

25494

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

25495

char *_str;

25496

int rcode;

25497

Tcl_Obj **objv;

25498

Tcl_Obj *oldarg,*tcl_result,*obj;

25499

int length;

25500

char c;

25501

25502

tcl_result = Tcl_GetObjResult(interp);

25503

objv = (Tcl_Obj **) _objv;

25504

if (objc < 2) {

25505

Tcl_SetStringObj(tcl_result,"sacInformInfo methods : { dump cget configure set delete }",-1);

25506

return TCL_ERROR;

25507

}

25508

obj = Tcl_NewObj();

25509

SWIG_SetPointerObj(obj,(void *) clientData,"_sacInformInfo_p");

25510

_str = Tcl_GetStringFromObj(objv[1],&length);

25511

c = *_str;

25512

if (0);

25513

if (strcmp(_str,"set") == 0) {

25514

cmd = _wrap_sacInformInfo_set;

25515

} else if (strcmp(_str,"delete") == 0) {

25516

cmd = _wrap_sacInformInfo_delete;

25517

}

25518

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

25519

int i = 2;

25520

cmd = 0;

25521

while (i+1 < objc) {

25522

_str = Tcl_GetStringFromObj(objv[i],&length);

25523

if (strcmp(_str,"-gid") == 0) {

25524

cmd = _wrap_sacInformInfo_gid_set;

25525

} else if (strcmp(_str,"-lid_range_begin") == 0) {

25526

cmd = _wrap_sacInformInfo_lid_range_begin_set;

25527

} else if (strcmp(_str,"-lid_range_end") == 0) {

25528

cmd = _wrap_sacInformInfo_lid_range_end_set;

25529

} else if (strcmp(_str,"-reserved1") == 0) {

25530

cmd = _wrap_sacInformInfo_reserved1_set;

25531

} else if (strcmp(_str,"-is_generic") == 0) {

25532

cmd = _wrap_sacInformInfo_is_generic_set;

25533

} else if (strcmp(_str,"-subscribe") == 0) {

25534

cmd = _wrap_sacInformInfo_subscribe_set;

25535

} else if (strcmp(_str,"-trap_type") == 0) {

25536

cmd = _wrap_sacInformInfo_trap_type_set;

25537

}

25538

if (cmd) {

25539

oldarg = objv[i];

25540

objv[i] = obj;

25541

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

25542

objv[i] = oldarg;

25543

if (rcode == TCL_ERROR) return rcode;

25544

cmd = 0;

25545

} else {

25546

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -gid -lid_range_begin -lid_range_end -reserved1 -is_generic -subscribe -trap_type }",-1);

25547

return TCL_ERROR;

25548

}

25549

i+=2;

25550

}

25551

if ((i < objc) || (i == 2)) {

25552

Tcl_SetStringObj(tcl_result,"{ -gid -lid_range_begin -lid_range_end -reserved1 -is_generic -subscribe -trap_type }",-1);

25553

return TCL_ERROR;

25554

}

25555

return TCL_OK;

25556

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

25557

if (objc == 3) {

25558

_str = Tcl_GetStringFromObj(objv[2],&length);

25559

if (0) {}

25560

if (strcmp(_str,"-gid") == 0) {

25561

cmd = _wrap_sacInformInfo_gid_get;

25562

} else if (strcmp(_str,"-lid_range_begin") == 0) {

25563

cmd = _wrap_sacInformInfo_lid_range_begin_get;

25564

} else if (strcmp(_str,"-lid_range_end") == 0) {

25565

cmd = _wrap_sacInformInfo_lid_range_end_get;

25566

} else if (strcmp(_str,"-reserved1") == 0) {

25567

cmd = _wrap_sacInformInfo_reserved1_get;

25568

} else if (strcmp(_str,"-is_generic") == 0) {

25569

cmd = _wrap_sacInformInfo_is_generic_get;

25570

} else if (strcmp(_str,"-subscribe") == 0) {

25571

cmd = _wrap_sacInformInfo_subscribe_get;

25572

} else if (strcmp(_str,"-trap_type") == 0) {

25573

cmd = _wrap_sacInformInfo_trap_type_get;

25574

} else if (strcmp(_str,"-g_or_v") == 0) {

25575

cmd = _wrap_sacInformInfo_g_or_v_get;

25576

}

25577

else if (strcmp(_str,"-this") == 0) {

25578

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacInformInfo_p");

25579

return TCL_OK;

25580

}

25581

if (cmd) {

25582

oldarg = objv[2];

25583

objv[2] = obj;

25584

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

25585

objv[2] = oldarg;

25586

return rcode;

25587

} else {

25588

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -gid -lid_range_begin -lid_range_end -reserved1 -is_generic -subscribe -trap_type -g_or_v }",-1);

25589

return TCL_ERROR;

25590

}

25591

} else {

25592

Tcl_SetStringObj(tcl_result,"{ -this -gid -lid_range_begin -lid_range_end -reserved1 -is_generic -subscribe -trap_type -g_or_v }", -1);

25593

return TCL_ERROR;

25594

}

25595

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

25596

if (objc == 2) {

25597

Tcl_Obj *pDumpObj;

25598

pDumpObj = Tcl_NewStringObj("",-1);

25599

Tcl_IncrRefCount(pDumpObj);

25600

cmd = _wrap_sacInformInfo_gid_get;

25601

oldarg = objv[2];

25602

objv[2] = obj;

25603

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25604

objv[2] = oldarg;

25605

Tcl_AppendStringsToObj(pDumpObj, "-gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25606

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25607

cmd = _wrap_sacInformInfo_lid_range_begin_get;

25608

oldarg = objv[2];

25609

objv[2] = obj;

25610

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25611

objv[2] = oldarg;

25612

Tcl_AppendStringsToObj(pDumpObj, "-lid_range_begin ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25613

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25614

cmd = _wrap_sacInformInfo_lid_range_end_get;

25615

oldarg = objv[2];

25616

objv[2] = obj;

25617

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25618

objv[2] = oldarg;

25619

Tcl_AppendStringsToObj(pDumpObj, "-lid_range_end ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25620

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25621

cmd = _wrap_sacInformInfo_reserved1_get;

25622

oldarg = objv[2];

25623

objv[2] = obj;

25624

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25625

objv[2] = oldarg;

25626

Tcl_AppendStringsToObj(pDumpObj, "-reserved1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25627

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25628

cmd = _wrap_sacInformInfo_is_generic_get;

25629

oldarg = objv[2];

25630

objv[2] = obj;

25631

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25632

objv[2] = oldarg;

25633

Tcl_AppendStringsToObj(pDumpObj, "-is_generic ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25634

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25635

cmd = _wrap_sacInformInfo_subscribe_get;

25636

oldarg = objv[2];

25637

objv[2] = obj;

25638

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25639

objv[2] = oldarg;

25640

Tcl_AppendStringsToObj(pDumpObj, "-subscribe ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25641

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25642

cmd = _wrap_sacInformInfo_trap_type_get;

25643

oldarg = objv[2];

25644

objv[2] = obj;

25645

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25646

objv[2] = oldarg;

25647

Tcl_AppendStringsToObj(pDumpObj, "-trap_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25648

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25649

cmd = _wrap_sacInformInfo_g_or_v_get;

25650

oldarg = objv[2];

25651

objv[2] = obj;

25652

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25653

objv[2] = oldarg;

25654

Tcl_AppendStringsToObj(pDumpObj, "-g_or_v ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25655

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25656

25657

Tcl_DecrRefCount(pDumpObj);

25658

return TCL_OK;

25659

} else {

25660

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

25661

return TCL_ERROR;

25662

}

25663

}

25664

if (!cmd) {

25665

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure set delete }",-1);

25666

return TCL_ERROR;

25667

}

25668

oldarg = objv[1];

25669

objv[1] = obj;

25670

rcode = (*cmd)(clientData,interp,objc,objv);

25671

objv[1] = oldarg;

25672

return rcode;

25673

}

25674

25675

25676

25677

/* objcmd8.swg : Tcl 8.x object creation */

25678

25679

static int TclsacInformInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25680

void (*del)(ClientData) = 0;

25681

char *name = 0;

25682

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

25683

sacInformInfo * newObj = 0;

25684

int firstarg = 0;

25685

int thisarg = 0;

25686

int length;

25687

char *_str;

25688

Tcl_Obj *tcl_result;

25689

25690

tcl_result = Tcl_GetObjResult(interp);

25691

if (objc == 1) {

25692

cmd = 0;

25693

} else {

25694

_str = Tcl_GetStringFromObj(objv[1],&length);

25695

if (strcmp(_str,"-this") == 0) thisarg = 2;

25696

else if (strcmp(_str,"-args") == 0) {

25697

firstarg = 1;

25698

cmd = 0;

25699

} else if (objc == 2) {

25700

firstarg = 1;

25701

name = _str;

25702

cmd = 0;

25703

} else if (objc >= 3) {

25704

name = _str;

25705

_str = Tcl_GetStringFromObj(objv[2],&length);

25706

if (strcmp(_str,"-this") == 0) thisarg = 3;

25707

else {

25708

firstarg = 1;

25709

cmd = 0;

25710

}

25711

}

25712

}

25713

if (cmd) {

25714

int result;

25715

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

25716

if (result == TCL_OK) {

25717

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacInformInfo_p");

25718

} else { return result; }

25719

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

25720

del = 0;

25721

} else if (thisarg > 0) {

25722

if (thisarg < objc) {

25723

char *r;

25724

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacInformInfo_p");

25725

if (r) {

25726

Tcl_SetStringObj(tcl_result,"Type error. not a sacInformInfo object.",-1);

25727

return TCL_ERROR;

25728

}

25729

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

25730

Tcl_SetStringObj(tcl_result,name,-1);

25731

} else {

25732

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

25733

return TCL_ERROR;

25734

}

25735

} else {

25736

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

25737

return TCL_ERROR;

25738

}

25739

{

25740

Tcl_CmdInfo dummy;

25741

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

25742

Tcl_CreateObjCommand(interp,name, TclsacInformInfoMethodCmd, (ClientData) newObj, del);

25743

return TCL_OK;

25744

} else {

25745

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

25746

return TCL_ERROR;

25747

}

25748

}

25749

}

25750

25751

25752

#define sacInformInfo_g_or_v_generic_get(_swigobj) (&_swigobj->generic)

25753

static int _wrap_sacInformInfo_g_or_v_generic_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25754

25755

sacInformInfo_g_or_v_generic * _result;

25756

sacInformInfo_g_or_v * _arg0;

25757

Tcl_Obj * tcl_result;

25758

char * rettype;

25759

25760

clientData = clientData; objv = objv;

25761

tcl_result = Tcl_GetObjResult(interp);

25762

if ((objc < 2) || (objc > 2)) {

25763

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_get { sacInformInfo_g_or_v * } ",-1);

25764

return TCL_ERROR;

25765

}

25766

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_p"))) {

25767

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_get. Expected _sacInformInfo_g_or_v_p, received ", -1);

25768

Tcl_AppendToObj(tcl_result, rettype, -1);

25769

return TCL_ERROR;

25770

}

25771

{

25772

/* we can check if IBIS was initialized here */

25773

if (!IbisObj.initialized)

25774

{

25775

Tcl_SetStringObj(

25776

Tcl_GetObjResult(interp),

25777

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25778

return TCL_ERROR;

25779

}

25780

25781

if (! IbisObj.port_guid)

25782

{

25783

Tcl_SetStringObj(

25784

Tcl_GetObjResult(interp),

25785

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25786

return TCL_ERROR;

25787

}

25788

25789

ibis_tcl_error = 0;

25790

_result = (sacInformInfo_g_or_v_generic *)sacInformInfo_g_or_v_generic_get(_arg0);

25791

;

25792

if (ibis_tcl_error) {

25793

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25794

return TCL_ERROR;

25795

}

25796

} tcl_result = Tcl_GetObjResult(interp);

25797

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacInformInfo_g_or_v_generic_p");

25798

return TCL_OK;

25799

}

25800

#define sacInformInfo_g_or_v_vend_get(_swigobj) (&_swigobj->vend)

25801

static int _wrap_sacInformInfo_g_or_v_vend_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25802

25803

sacInformInfo_g_or_v_vend * _result;

25804

sacInformInfo_g_or_v * _arg0;

25805

Tcl_Obj * tcl_result;

25806

char * rettype;

25807

25808

clientData = clientData; objv = objv;

25809

tcl_result = Tcl_GetObjResult(interp);

25810

if ((objc < 2) || (objc > 2)) {

25811

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_get { sacInformInfo_g_or_v * } ",-1);

25812

return TCL_ERROR;

25813

}

25814

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_p"))) {

25815

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_get. Expected _sacInformInfo_g_or_v_p, received ", -1);

25816

Tcl_AppendToObj(tcl_result, rettype, -1);

25817

return TCL_ERROR;

25818

}

25819

{

25820

/* we can check if IBIS was initialized here */

25821

if (!IbisObj.initialized)

25822

{

25823

Tcl_SetStringObj(

25824

Tcl_GetObjResult(interp),

25825

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

25826

return TCL_ERROR;

25827

}

25828

25829

if (! IbisObj.port_guid)

25830

{

25831

Tcl_SetStringObj(

25832

Tcl_GetObjResult(interp),

25833

" ibis was not yet initialized. please use ibis_set_port before.", -1);

25834

return TCL_ERROR;

25835

}

25836

25837

ibis_tcl_error = 0;

25838

_result = (sacInformInfo_g_or_v_vend *)sacInformInfo_g_or_v_vend_get(_arg0);

25839

;

25840

if (ibis_tcl_error) {

25841

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

25842

return TCL_ERROR;

25843

}

25844

} tcl_result = Tcl_GetObjResult(interp);

25845

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacInformInfo_g_or_v_vend_p");

25846

return TCL_OK;

25847

}

25848

/* methodcmd8.swg : Tcl8.x method invocation */

25849

25850

static int TclsacInformInfo_g_or_vMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

25851

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

25852

char *_str;

25853

int rcode;

25854

Tcl_Obj **objv;

25855

Tcl_Obj *oldarg,*tcl_result,*obj;

25856

int length;

25857

char c;

25858

25859

tcl_result = Tcl_GetObjResult(interp);

25860

objv = (Tcl_Obj **) _objv;

25861

if (objc < 2) {

25862

Tcl_SetStringObj(tcl_result,"sacInformInfo_g_or_v methods : { dump cget configure }",-1);

25863

return TCL_ERROR;

25864

}

25865

obj = Tcl_NewObj();

25866

SWIG_SetPointerObj(obj,(void *) clientData,"_sacInformInfo_g_or_v_p");

25867

_str = Tcl_GetStringFromObj(objv[1],&length);

25868

c = *_str;

25869

if (0);

25870

25871

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

25872

int i = 2;

25873

cmd = 0;

25874

while (i+1 < objc) {

25875

_str = Tcl_GetStringFromObj(objv[i],&length);

25876

25877

if (cmd) {

25878

oldarg = objv[i];

25879

objv[i] = obj;

25880

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

25881

objv[i] = oldarg;

25882

if (rcode == TCL_ERROR) return rcode;

25883

cmd = 0;

25884

} else {

25885

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { }",-1);

25886

return TCL_ERROR;

25887

}

25888

i+=2;

25889

}

25890

if ((i < objc) || (i == 2)) {

25891

Tcl_SetStringObj(tcl_result,"{ }",-1);

25892

return TCL_ERROR;

25893

}

25894

return TCL_OK;

25895

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

25896

if (objc == 3) {

25897

_str = Tcl_GetStringFromObj(objv[2],&length);

25898

if (0) {}

25899

if (strcmp(_str,"-generic") == 0) {

25900

cmd = _wrap_sacInformInfo_g_or_v_generic_get;

25901

} else if (strcmp(_str,"-vend") == 0) {

25902

cmd = _wrap_sacInformInfo_g_or_v_vend_get;

25903

}

25904

else if (strcmp(_str,"-this") == 0) {

25905

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacInformInfo_g_or_v_p");

25906

return TCL_OK;

25907

}

25908

if (cmd) {

25909

oldarg = objv[2];

25910

objv[2] = obj;

25911

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

25912

objv[2] = oldarg;

25913

return rcode;

25914

} else {

25915

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -generic -vend }",-1);

25916

return TCL_ERROR;

25917

}

25918

} else {

25919

Tcl_SetStringObj(tcl_result,"{ -this -generic -vend }", -1);

25920

return TCL_ERROR;

25921

}

25922

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

25923

if (objc == 2) {

25924

Tcl_Obj *pDumpObj;

25925

pDumpObj = Tcl_NewStringObj("",-1);

25926

Tcl_IncrRefCount(pDumpObj);

25927

cmd = _wrap_sacInformInfo_g_or_v_generic_get;

25928

oldarg = objv[2];

25929

objv[2] = obj;

25930

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25931

objv[2] = oldarg;

25932

Tcl_AppendStringsToObj(pDumpObj, "-generic ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25933

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25934

cmd = _wrap_sacInformInfo_g_or_v_vend_get;

25935

oldarg = objv[2];

25936

objv[2] = obj;

25937

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

25938

objv[2] = oldarg;

25939

Tcl_AppendStringsToObj(pDumpObj, "-vend ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

25940

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

25941

25942

Tcl_DecrRefCount(pDumpObj);

25943

return TCL_OK;

25944

} else {

25945

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

25946

return TCL_ERROR;

25947

}

25948

}

25949

if (!cmd) {

25950

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

25951

return TCL_ERROR;

25952

}

25953

oldarg = objv[1];

25954

objv[1] = obj;

25955

rcode = (*cmd)(clientData,interp,objc,objv);

25956

objv[1] = oldarg;

25957

return rcode;

25958

}

25959

25960

25961

25962

/* objcmd8.swg : Tcl 8.x object creation */

25963

25964

static int TclsacInformInfo_g_or_vCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

25965

void (*del)(ClientData) = 0;

25966

char *name = 0;

25967

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

25968

sacInformInfo_g_or_v * newObj = 0;

25969

int firstarg = 0;

25970

int thisarg = 0;

25971

int length;

25972

char *_str;

25973

Tcl_Obj *tcl_result;

25974

25975

tcl_result = Tcl_GetObjResult(interp);

25976

if (objc == 1) {

25977

cmd = 0;

25978

} else {

25979

_str = Tcl_GetStringFromObj(objv[1],&length);

25980

if (strcmp(_str,"-this") == 0) thisarg = 2;

25981

else if (strcmp(_str,"-args") == 0) {

25982

firstarg = 1;

25983

cmd = 0;

25984

} else if (objc == 2) {

25985

firstarg = 1;

25986

name = _str;

25987

cmd = 0;

25988

} else if (objc >= 3) {

25989

name = _str;

25990

_str = Tcl_GetStringFromObj(objv[2],&length);

25991

if (strcmp(_str,"-this") == 0) thisarg = 3;

25992

else {

25993

firstarg = 1;

25994

cmd = 0;

25995

}

25996

}

25997

}

25998

if (cmd) {

25999

int result;

26000

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

26001

if (result == TCL_OK) {

26002

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacInformInfo_g_or_v_p");

26003

} else { return result; }

26004

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

26005

del = 0;

26006

} else if (thisarg > 0) {

26007

if (thisarg < objc) {

26008

char *r;

26009

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacInformInfo_g_or_v_p");

26010

if (r) {

26011

Tcl_SetStringObj(tcl_result,"Type error. not a sacInformInfo_g_or_v object.",-1);

26012

return TCL_ERROR;

26013

}

26014

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

26015

Tcl_SetStringObj(tcl_result,name,-1);

26016

} else {

26017

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

26018

return TCL_ERROR;

26019

}

26020

} else {

26021

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

26022

return TCL_ERROR;

26023

}

26024

{

26025

Tcl_CmdInfo dummy;

26026

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

26027

Tcl_CreateObjCommand(interp,name, TclsacInformInfo_g_or_vMethodCmd, (ClientData) newObj, del);

26028

return TCL_OK;

26029

} else {

26030

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

26031

return TCL_ERROR;

26032

}

26033

}

26034

}

26035

26036

26037

#define sacInformInfo_g_or_v_generic_trap_num_set(_swigobj,_swigval) (_swigobj->trap_num = *(_swigval),_swigval)

26038

static int _wrap_sacInformInfo_g_or_v_generic_trap_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26039

26040

ib_net16_t * _result;

26041

sacInformInfo_g_or_v_generic * _arg0;

26042

ib_net16_t * _arg1;

26043

Tcl_Obj * tcl_result;

26044

char * rettype;

26045

ib_net16_t temp;

26046

26047

clientData = clientData; objv = objv;

26048

tcl_result = Tcl_GetObjResult(interp);

26049

if ((objc < 3) || (objc > 3)) {

26050

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_trap_num_set { sacInformInfo_g_or_v_generic * } { ib_net16_t * } ",-1);

26051

return TCL_ERROR;

26052

}

26053

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26054

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_trap_num_set. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26055

Tcl_AppendToObj(tcl_result, rettype, -1);

26056

return TCL_ERROR;

26057

}

26058

{

26059

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

26060

_arg1 = &temp;

26061

}

26062

{

26063

/* we can check if IBIS was initialized here */

26064

if (!IbisObj.initialized)

26065

{

26066

Tcl_SetStringObj(

26067

Tcl_GetObjResult(interp),

26068

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26069

return TCL_ERROR;

26070

}

26071

26072

if (! IbisObj.port_guid)

26073

{

26074

Tcl_SetStringObj(

26075

Tcl_GetObjResult(interp),

26076

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26077

return TCL_ERROR;

26078

}

26079

26080

ibis_tcl_error = 0;

26081

_result = (ib_net16_t *)sacInformInfo_g_or_v_generic_trap_num_set(_arg0,_arg1);

26082

;

26083

if (ibis_tcl_error) {

26084

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26085

return TCL_ERROR;

26086

}

26087

} tcl_result = Tcl_GetObjResult(interp);

26088

{

26089

char buff[20];

26090

sprintf(buff, "%u", cl_hton16(*_result));

26091

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26092

}

26093

return TCL_OK;

26094

}

26095

#define sacInformInfo_g_or_v_generic_trap_num_get(_swigobj) (&_swigobj->trap_num)

26096

static int _wrap_sacInformInfo_g_or_v_generic_trap_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26097

26098

ib_net16_t * _result;

26099

sacInformInfo_g_or_v_generic * _arg0;

26100

Tcl_Obj * tcl_result;

26101

char * rettype;

26102

26103

clientData = clientData; objv = objv;

26104

tcl_result = Tcl_GetObjResult(interp);

26105

if ((objc < 2) || (objc > 2)) {

26106

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_trap_num_get { sacInformInfo_g_or_v_generic * } ",-1);

26107

return TCL_ERROR;

26108

}

26109

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26110

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_trap_num_get. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26111

Tcl_AppendToObj(tcl_result, rettype, -1);

26112

return TCL_ERROR;

26113

}

26114

{

26115

/* we can check if IBIS was initialized here */

26116

if (!IbisObj.initialized)

26117

{

26118

Tcl_SetStringObj(

26119

Tcl_GetObjResult(interp),

26120

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26121

return TCL_ERROR;

26122

}

26123

26124

if (! IbisObj.port_guid)

26125

{

26126

Tcl_SetStringObj(

26127

Tcl_GetObjResult(interp),

26128

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26129

return TCL_ERROR;

26130

}

26131

26132

ibis_tcl_error = 0;

26133

_result = (ib_net16_t *)sacInformInfo_g_or_v_generic_trap_num_get(_arg0);

26134

;

26135

if (ibis_tcl_error) {

26136

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26137

return TCL_ERROR;

26138

}

26139

} tcl_result = Tcl_GetObjResult(interp);

26140

{

26141

char buff[20];

26142

sprintf(buff, "%u", cl_hton16(*_result));

26143

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26144

}

26145

return TCL_OK;

26146

}

26147

#define sacInformInfo_g_or_v_generic_qpn_resp_time_val_set(_swigobj,_swigval) (_swigobj->qpn_resp_time_val = *(_swigval),_swigval)

26148

static int _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26149

26150

ib_net32_t * _result;

26151

sacInformInfo_g_or_v_generic * _arg0;

26152

ib_net32_t * _arg1;

26153

Tcl_Obj * tcl_result;

26154

char * rettype;

26155

ib_net32_t temp;

26156

26157

clientData = clientData; objv = objv;

26158

tcl_result = Tcl_GetObjResult(interp);

26159

if ((objc < 3) || (objc > 3)) {

26160

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_qpn_resp_time_val_set { sacInformInfo_g_or_v_generic * } { ib_net32_t * } ",-1);

26161

return TCL_ERROR;

26162

}

26163

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26164

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_qpn_resp_time_val_set. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26165

Tcl_AppendToObj(tcl_result, rettype, -1);

26166

return TCL_ERROR;

26167

}

26168

{

26169

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

26170

_arg1 = &temp;

26171

}

26172

{

26173

/* we can check if IBIS was initialized here */

26174

if (!IbisObj.initialized)

26175

{

26176

Tcl_SetStringObj(

26177

Tcl_GetObjResult(interp),

26178

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26179

return TCL_ERROR;

26180

}

26181

26182

if (! IbisObj.port_guid)

26183

{

26184

Tcl_SetStringObj(

26185

Tcl_GetObjResult(interp),

26186

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26187

return TCL_ERROR;

26188

}

26189

26190

ibis_tcl_error = 0;

26191

_result = (ib_net32_t *)sacInformInfo_g_or_v_generic_qpn_resp_time_val_set(_arg0,_arg1);

26192

;

26193

if (ibis_tcl_error) {

26194

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26195

return TCL_ERROR;

26196

}

26197

} tcl_result = Tcl_GetObjResult(interp);

26198

{

26199

char buff[20];

26200

sprintf(buff, "%u", cl_ntoh32(*_result));

26201

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26202

}

26203

return TCL_OK;

26204

}

26205

#define sacInformInfo_g_or_v_generic_qpn_resp_time_val_get(_swigobj) (&_swigobj->qpn_resp_time_val)

26206

static int _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26207

26208

ib_net32_t * _result;

26209

sacInformInfo_g_or_v_generic * _arg0;

26210

Tcl_Obj * tcl_result;

26211

char * rettype;

26212

26213

clientData = clientData; objv = objv;

26214

tcl_result = Tcl_GetObjResult(interp);

26215

if ((objc < 2) || (objc > 2)) {

26216

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_qpn_resp_time_val_get { sacInformInfo_g_or_v_generic * } ",-1);

26217

return TCL_ERROR;

26218

}

26219

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26220

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_qpn_resp_time_val_get. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26221

Tcl_AppendToObj(tcl_result, rettype, -1);

26222

return TCL_ERROR;

26223

}

26224

{

26225

/* we can check if IBIS was initialized here */

26226

if (!IbisObj.initialized)

26227

{

26228

Tcl_SetStringObj(

26229

Tcl_GetObjResult(interp),

26230

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26231

return TCL_ERROR;

26232

}

26233

26234

if (! IbisObj.port_guid)

26235

{

26236

Tcl_SetStringObj(

26237

Tcl_GetObjResult(interp),

26238

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26239

return TCL_ERROR;

26240

}

26241

26242

ibis_tcl_error = 0;

26243

_result = (ib_net32_t *)sacInformInfo_g_or_v_generic_qpn_resp_time_val_get(_arg0);

26244

;

26245

if (ibis_tcl_error) {

26246

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26247

return TCL_ERROR;

26248

}

26249

} tcl_result = Tcl_GetObjResult(interp);

26250

{

26251

char buff[20];

26252

sprintf(buff, "%u", cl_ntoh32(*_result));

26253

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26254

}

26255

return TCL_OK;

26256

}

26257

#define sacInformInfo_g_or_v_generic_reserved2_set(_swigobj,_swigval) (_swigobj->reserved2 = *(_swigval),_swigval)

26258

static int _wrap_sacInformInfo_g_or_v_generic_reserved2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26259

26260

uint8_t * _result;

26261

sacInformInfo_g_or_v_generic * _arg0;

26262

uint8_t * _arg1;

26263

Tcl_Obj * tcl_result;

26264

char * rettype;

26265

uint8_t temp;

26266

26267

clientData = clientData; objv = objv;

26268

tcl_result = Tcl_GetObjResult(interp);

26269

if ((objc < 3) || (objc > 3)) {

26270

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_reserved2_set { sacInformInfo_g_or_v_generic * } { uint8_t * } ",-1);

26271

return TCL_ERROR;

26272

}

26273

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26274

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_reserved2_set. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26275

Tcl_AppendToObj(tcl_result, rettype, -1);

26276

return TCL_ERROR;

26277

}

26278

{

26279

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

26280

_arg1 = &temp;

26281

}

26282

{

26283

/* we can check if IBIS was initialized here */

26284

if (!IbisObj.initialized)

26285

{

26286

Tcl_SetStringObj(

26287

Tcl_GetObjResult(interp),

26288

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26289

return TCL_ERROR;

26290

}

26291

26292

if (! IbisObj.port_guid)

26293

{

26294

Tcl_SetStringObj(

26295

Tcl_GetObjResult(interp),

26296

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26297

return TCL_ERROR;

26298

}

26299

26300

ibis_tcl_error = 0;

26301

_result = (uint8_t *)sacInformInfo_g_or_v_generic_reserved2_set(_arg0,_arg1);

26302

;

26303

if (ibis_tcl_error) {

26304

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26305

return TCL_ERROR;

26306

}

26307

} tcl_result = Tcl_GetObjResult(interp);

26308

{

26309

char buff[20];

26310

sprintf(buff, "%u", *_result);

26311

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26312

}

26313

return TCL_OK;

26314

}

26315

#define sacInformInfo_g_or_v_generic_reserved2_get(_swigobj) (&_swigobj->reserved2)

26316

static int _wrap_sacInformInfo_g_or_v_generic_reserved2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26317

26318

uint8_t * _result;

26319

sacInformInfo_g_or_v_generic * _arg0;

26320

Tcl_Obj * tcl_result;

26321

char * rettype;

26322

26323

clientData = clientData; objv = objv;

26324

tcl_result = Tcl_GetObjResult(interp);

26325

if ((objc < 2) || (objc > 2)) {

26326

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_reserved2_get { sacInformInfo_g_or_v_generic * } ",-1);

26327

return TCL_ERROR;

26328

}

26329

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26330

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_reserved2_get. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26331

Tcl_AppendToObj(tcl_result, rettype, -1);

26332

return TCL_ERROR;

26333

}

26334

{

26335

/* we can check if IBIS was initialized here */

26336

if (!IbisObj.initialized)

26337

{

26338

Tcl_SetStringObj(

26339

Tcl_GetObjResult(interp),

26340

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26341

return TCL_ERROR;

26342

}

26343

26344

if (! IbisObj.port_guid)

26345

{

26346

Tcl_SetStringObj(

26347

Tcl_GetObjResult(interp),

26348

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26349

return TCL_ERROR;

26350

}

26351

26352

ibis_tcl_error = 0;

26353

_result = (uint8_t *)sacInformInfo_g_or_v_generic_reserved2_get(_arg0);

26354

;

26355

if (ibis_tcl_error) {

26356

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26357

return TCL_ERROR;

26358

}

26359

} tcl_result = Tcl_GetObjResult(interp);

26360

{

26361

char buff[20];

26362

sprintf(buff, "%u", *_result);

26363

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26364

}

26365

return TCL_OK;

26366

}

26367

#define sacInformInfo_g_or_v_generic_node_type_msb_set(_swigobj,_swigval) (_swigobj->node_type_msb = *(_swigval),_swigval)

26368

static int _wrap_sacInformInfo_g_or_v_generic_node_type_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26369

26370

uint8_t * _result;

26371

sacInformInfo_g_or_v_generic * _arg0;

26372

uint8_t * _arg1;

26373

Tcl_Obj * tcl_result;

26374

char * rettype;

26375

uint8_t temp;

26376

26377

clientData = clientData; objv = objv;

26378

tcl_result = Tcl_GetObjResult(interp);

26379

if ((objc < 3) || (objc > 3)) {

26380

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_node_type_msb_set { sacInformInfo_g_or_v_generic * } { uint8_t * } ",-1);

26381

return TCL_ERROR;

26382

}

26383

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26384

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_node_type_msb_set. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26385

Tcl_AppendToObj(tcl_result, rettype, -1);

26386

return TCL_ERROR;

26387

}

26388

{

26389

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

26390

_arg1 = &temp;

26391

}

26392

{

26393

/* we can check if IBIS was initialized here */

26394

if (!IbisObj.initialized)

26395

{

26396

Tcl_SetStringObj(

26397

Tcl_GetObjResult(interp),

26398

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26399

return TCL_ERROR;

26400

}

26401

26402

if (! IbisObj.port_guid)

26403

{

26404

Tcl_SetStringObj(

26405

Tcl_GetObjResult(interp),

26406

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26407

return TCL_ERROR;

26408

}

26409

26410

ibis_tcl_error = 0;

26411

_result = (uint8_t *)sacInformInfo_g_or_v_generic_node_type_msb_set(_arg0,_arg1);

26412

;

26413

if (ibis_tcl_error) {

26414

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26415

return TCL_ERROR;

26416

}

26417

} tcl_result = Tcl_GetObjResult(interp);

26418

{

26419

char buff[20];

26420

sprintf(buff, "%u", *_result);

26421

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26422

}

26423

return TCL_OK;

26424

}

26425

#define sacInformInfo_g_or_v_generic_node_type_msb_get(_swigobj) (&_swigobj->node_type_msb)

26426

static int _wrap_sacInformInfo_g_or_v_generic_node_type_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26427

26428

uint8_t * _result;

26429

sacInformInfo_g_or_v_generic * _arg0;

26430

Tcl_Obj * tcl_result;

26431

char * rettype;

26432

26433

clientData = clientData; objv = objv;

26434

tcl_result = Tcl_GetObjResult(interp);

26435

if ((objc < 2) || (objc > 2)) {

26436

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_node_type_msb_get { sacInformInfo_g_or_v_generic * } ",-1);

26437

return TCL_ERROR;

26438

}

26439

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26440

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_node_type_msb_get. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26441

Tcl_AppendToObj(tcl_result, rettype, -1);

26442

return TCL_ERROR;

26443

}

26444

{

26445

/* we can check if IBIS was initialized here */

26446

if (!IbisObj.initialized)

26447

{

26448

Tcl_SetStringObj(

26449

Tcl_GetObjResult(interp),

26450

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26451

return TCL_ERROR;

26452

}

26453

26454

if (! IbisObj.port_guid)

26455

{

26456

Tcl_SetStringObj(

26457

Tcl_GetObjResult(interp),

26458

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26459

return TCL_ERROR;

26460

}

26461

26462

ibis_tcl_error = 0;

26463

_result = (uint8_t *)sacInformInfo_g_or_v_generic_node_type_msb_get(_arg0);

26464

;

26465

if (ibis_tcl_error) {

26466

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26467

return TCL_ERROR;

26468

}

26469

} tcl_result = Tcl_GetObjResult(interp);

26470

{

26471

char buff[20];

26472

sprintf(buff, "%u", *_result);

26473

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26474

}

26475

return TCL_OK;

26476

}

26477

#define sacInformInfo_g_or_v_generic_node_type_lsb_set(_swigobj,_swigval) (_swigobj->node_type_lsb = *(_swigval),_swigval)

26478

static int _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26479

26480

ib_net16_t * _result;

26481

sacInformInfo_g_or_v_generic * _arg0;

26482

ib_net16_t * _arg1;

26483

Tcl_Obj * tcl_result;

26484

char * rettype;

26485

ib_net16_t temp;

26486

26487

clientData = clientData; objv = objv;

26488

tcl_result = Tcl_GetObjResult(interp);

26489

if ((objc < 3) || (objc > 3)) {

26490

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_node_type_lsb_set { sacInformInfo_g_or_v_generic * } { ib_net16_t * } ",-1);

26491

return TCL_ERROR;

26492

}

26493

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26494

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_node_type_lsb_set. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26495

Tcl_AppendToObj(tcl_result, rettype, -1);

26496

return TCL_ERROR;

26497

}

26498

{

26499

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

26500

_arg1 = &temp;

26501

}

26502

{

26503

/* we can check if IBIS was initialized here */

26504

if (!IbisObj.initialized)

26505

{

26506

Tcl_SetStringObj(

26507

Tcl_GetObjResult(interp),

26508

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26509

return TCL_ERROR;

26510

}

26511

26512

if (! IbisObj.port_guid)

26513

{

26514

Tcl_SetStringObj(

26515

Tcl_GetObjResult(interp),

26516

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26517

return TCL_ERROR;

26518

}

26519

26520

ibis_tcl_error = 0;

26521

_result = (ib_net16_t *)sacInformInfo_g_or_v_generic_node_type_lsb_set(_arg0,_arg1);

26522

;

26523

if (ibis_tcl_error) {

26524

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26525

return TCL_ERROR;

26526

}

26527

} tcl_result = Tcl_GetObjResult(interp);

26528

{

26529

char buff[20];

26530

sprintf(buff, "%u", cl_hton16(*_result));

26531

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26532

}

26533

return TCL_OK;

26534

}

26535

#define sacInformInfo_g_or_v_generic_node_type_lsb_get(_swigobj) (&_swigobj->node_type_lsb)

26536

static int _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26537

26538

ib_net16_t * _result;

26539

sacInformInfo_g_or_v_generic * _arg0;

26540

Tcl_Obj * tcl_result;

26541

char * rettype;

26542

26543

clientData = clientData; objv = objv;

26544

tcl_result = Tcl_GetObjResult(interp);

26545

if ((objc < 2) || (objc > 2)) {

26546

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_generic_node_type_lsb_get { sacInformInfo_g_or_v_generic * } ",-1);

26547

return TCL_ERROR;

26548

}

26549

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_generic_p"))) {

26550

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_generic_node_type_lsb_get. Expected _sacInformInfo_g_or_v_generic_p, received ", -1);

26551

Tcl_AppendToObj(tcl_result, rettype, -1);

26552

return TCL_ERROR;

26553

}

26554

{

26555

/* we can check if IBIS was initialized here */

26556

if (!IbisObj.initialized)

26557

{

26558

Tcl_SetStringObj(

26559

Tcl_GetObjResult(interp),

26560

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26561

return TCL_ERROR;

26562

}

26563

26564

if (! IbisObj.port_guid)

26565

{

26566

Tcl_SetStringObj(

26567

Tcl_GetObjResult(interp),

26568

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26569

return TCL_ERROR;

26570

}

26571

26572

ibis_tcl_error = 0;

26573

_result = (ib_net16_t *)sacInformInfo_g_or_v_generic_node_type_lsb_get(_arg0);

26574

;

26575

if (ibis_tcl_error) {

26576

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26577

return TCL_ERROR;

26578

}

26579

} tcl_result = Tcl_GetObjResult(interp);

26580

{

26581

char buff[20];

26582

sprintf(buff, "%u", cl_hton16(*_result));

26583

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26584

}

26585

return TCL_OK;

26586

}

26587

/* methodcmd8.swg : Tcl8.x method invocation */

26588

26589

static int TclsacInformInfo_g_or_v_genericMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

26590

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

26591

char *_str;

26592

int rcode;

26593

Tcl_Obj **objv;

26594

Tcl_Obj *oldarg,*tcl_result,*obj;

26595

int length;

26596

char c;

26597

26598

tcl_result = Tcl_GetObjResult(interp);

26599

objv = (Tcl_Obj **) _objv;

26600

if (objc < 2) {

26601

Tcl_SetStringObj(tcl_result,"sacInformInfo_g_or_v_generic methods : { dump cget configure }",-1);

26602

return TCL_ERROR;

26603

}

26604

obj = Tcl_NewObj();

26605

SWIG_SetPointerObj(obj,(void *) clientData,"_sacInformInfo_g_or_v_generic_p");

26606

_str = Tcl_GetStringFromObj(objv[1],&length);

26607

c = *_str;

26608

if (0);

26609

26610

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

26611

int i = 2;

26612

cmd = 0;

26613

while (i+1 < objc) {

26614

_str = Tcl_GetStringFromObj(objv[i],&length);

26615

if (strcmp(_str,"-trap_num") == 0) {

26616

cmd = _wrap_sacInformInfo_g_or_v_generic_trap_num_set;

26617

} else if (strcmp(_str,"-qpn_resp_time_val") == 0) {

26618

cmd = _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_set;

26619

} else if (strcmp(_str,"-reserved2") == 0) {

26620

cmd = _wrap_sacInformInfo_g_or_v_generic_reserved2_set;

26621

} else if (strcmp(_str,"-node_type_msb") == 0) {

26622

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_msb_set;

26623

} else if (strcmp(_str,"-node_type_lsb") == 0) {

26624

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_set;

26625

}

26626

if (cmd) {

26627

oldarg = objv[i];

26628

objv[i] = obj;

26629

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

26630

objv[i] = oldarg;

26631

if (rcode == TCL_ERROR) return rcode;

26632

cmd = 0;

26633

} else {

26634

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -trap_num -qpn_resp_time_val -reserved2 -node_type_msb -node_type_lsb }",-1);

26635

return TCL_ERROR;

26636

}

26637

i+=2;

26638

}

26639

if ((i < objc) || (i == 2)) {

26640

Tcl_SetStringObj(tcl_result,"{ -trap_num -qpn_resp_time_val -reserved2 -node_type_msb -node_type_lsb }",-1);

26641

return TCL_ERROR;

26642

}

26643

return TCL_OK;

26644

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

26645

if (objc == 3) {

26646

_str = Tcl_GetStringFromObj(objv[2],&length);

26647

if (0) {}

26648

if (strcmp(_str,"-trap_num") == 0) {

26649

cmd = _wrap_sacInformInfo_g_or_v_generic_trap_num_get;

26650

} else if (strcmp(_str,"-qpn_resp_time_val") == 0) {

26651

cmd = _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_get;

26652

} else if (strcmp(_str,"-reserved2") == 0) {

26653

cmd = _wrap_sacInformInfo_g_or_v_generic_reserved2_get;

26654

} else if (strcmp(_str,"-node_type_msb") == 0) {

26655

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_msb_get;

26656

} else if (strcmp(_str,"-node_type_lsb") == 0) {

26657

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_get;

26658

}

26659

else if (strcmp(_str,"-this") == 0) {

26660

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacInformInfo_g_or_v_generic_p");

26661

return TCL_OK;

26662

}

26663

if (cmd) {

26664

oldarg = objv[2];

26665

objv[2] = obj;

26666

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

26667

objv[2] = oldarg;

26668

return rcode;

26669

} else {

26670

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -trap_num -qpn_resp_time_val -reserved2 -node_type_msb -node_type_lsb }",-1);

26671

return TCL_ERROR;

26672

}

26673

} else {

26674

Tcl_SetStringObj(tcl_result,"{ -this -trap_num -qpn_resp_time_val -reserved2 -node_type_msb -node_type_lsb }", -1);

26675

return TCL_ERROR;

26676

}

26677

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

26678

if (objc == 2) {

26679

Tcl_Obj *pDumpObj;

26680

pDumpObj = Tcl_NewStringObj("",-1);

26681

Tcl_IncrRefCount(pDumpObj);

26682

cmd = _wrap_sacInformInfo_g_or_v_generic_trap_num_get;

26683

oldarg = objv[2];

26684

objv[2] = obj;

26685

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

26686

objv[2] = oldarg;

26687

Tcl_AppendStringsToObj(pDumpObj, "-trap_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

26688

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

26689

cmd = _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_get;

26690

oldarg = objv[2];

26691

objv[2] = obj;

26692

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

26693

objv[2] = oldarg;

26694

Tcl_AppendStringsToObj(pDumpObj, "-qpn_resp_time_val ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

26695

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

26696

cmd = _wrap_sacInformInfo_g_or_v_generic_reserved2_get;

26697

oldarg = objv[2];

26698

objv[2] = obj;

26699

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

26700

objv[2] = oldarg;

26701

Tcl_AppendStringsToObj(pDumpObj, "-reserved2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

26702

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

26703

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_msb_get;

26704

oldarg = objv[2];

26705

objv[2] = obj;

26706

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

26707

objv[2] = oldarg;

26708

Tcl_AppendStringsToObj(pDumpObj, "-node_type_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

26709

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

26710

cmd = _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_get;

26711

oldarg = objv[2];

26712

objv[2] = obj;

26713

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

26714

objv[2] = oldarg;

26715

Tcl_AppendStringsToObj(pDumpObj, "-node_type_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

26716

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

26717

26718

Tcl_DecrRefCount(pDumpObj);

26719

return TCL_OK;

26720

} else {

26721

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

26722

return TCL_ERROR;

26723

}

26724

}

26725

if (!cmd) {

26726

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

26727

return TCL_ERROR;

26728

}

26729

oldarg = objv[1];

26730

objv[1] = obj;

26731

rcode = (*cmd)(clientData,interp,objc,objv);

26732

objv[1] = oldarg;

26733

return rcode;

26734

}

26735

26736

26737

26738

/* objcmd8.swg : Tcl 8.x object creation */

26739

26740

static int TclsacInformInfo_g_or_v_genericCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26741

void (*del)(ClientData) = 0;

26742

char *name = 0;

26743

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

26744

sacInformInfo_g_or_v_generic * newObj = 0;

26745

int firstarg = 0;

26746

int thisarg = 0;

26747

int length;

26748

char *_str;

26749

Tcl_Obj *tcl_result;

26750

26751

tcl_result = Tcl_GetObjResult(interp);

26752

if (objc == 1) {

26753

cmd = 0;

26754

} else {

26755

_str = Tcl_GetStringFromObj(objv[1],&length);

26756

if (strcmp(_str,"-this") == 0) thisarg = 2;

26757

else if (strcmp(_str,"-args") == 0) {

26758

firstarg = 1;

26759

cmd = 0;

26760

} else if (objc == 2) {

26761

firstarg = 1;

26762

name = _str;

26763

cmd = 0;

26764

} else if (objc >= 3) {

26765

name = _str;

26766

_str = Tcl_GetStringFromObj(objv[2],&length);

26767

if (strcmp(_str,"-this") == 0) thisarg = 3;

26768

else {

26769

firstarg = 1;

26770

cmd = 0;

26771

}

26772

}

26773

}

26774

if (cmd) {

26775

int result;

26776

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

26777

if (result == TCL_OK) {

26778

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacInformInfo_g_or_v_generic_p");

26779

} else { return result; }

26780

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

26781

del = 0;

26782

} else if (thisarg > 0) {

26783

if (thisarg < objc) {

26784

char *r;

26785

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacInformInfo_g_or_v_generic_p");

26786

if (r) {

26787

Tcl_SetStringObj(tcl_result,"Type error. not a sacInformInfo_g_or_v_generic object.",-1);

26788

return TCL_ERROR;

26789

}

26790

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

26791

Tcl_SetStringObj(tcl_result,name,-1);

26792

} else {

26793

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

26794

return TCL_ERROR;

26795

}

26796

} else {

26797

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

26798

return TCL_ERROR;

26799

}

26800

{

26801

Tcl_CmdInfo dummy;

26802

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

26803

Tcl_CreateObjCommand(interp,name, TclsacInformInfo_g_or_v_genericMethodCmd, (ClientData) newObj, del);

26804

return TCL_OK;

26805

} else {

26806

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

26807

return TCL_ERROR;

26808

}

26809

}

26810

}

26811

26812

26813

#define sacInformInfo_g_or_v_vend_dev_id_set(_swigobj,_swigval) (_swigobj->dev_id = *(_swigval),_swigval)

26814

static int _wrap_sacInformInfo_g_or_v_vend_dev_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26815

26816

ib_net16_t * _result;

26817

sacInformInfo_g_or_v_vend * _arg0;

26818

ib_net16_t * _arg1;

26819

Tcl_Obj * tcl_result;

26820

char * rettype;

26821

ib_net16_t temp;

26822

26823

clientData = clientData; objv = objv;

26824

tcl_result = Tcl_GetObjResult(interp);

26825

if ((objc < 3) || (objc > 3)) {

26826

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_dev_id_set { sacInformInfo_g_or_v_vend * } { ib_net16_t * } ",-1);

26827

return TCL_ERROR;

26828

}

26829

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

26830

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_dev_id_set. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

26831

Tcl_AppendToObj(tcl_result, rettype, -1);

26832

return TCL_ERROR;

26833

}

26834

{

26835

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

26836

_arg1 = &temp;

26837

}

26838

{

26839

/* we can check if IBIS was initialized here */

26840

if (!IbisObj.initialized)

26841

{

26842

Tcl_SetStringObj(

26843

Tcl_GetObjResult(interp),

26844

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26845

return TCL_ERROR;

26846

}

26847

26848

if (! IbisObj.port_guid)

26849

{

26850

Tcl_SetStringObj(

26851

Tcl_GetObjResult(interp),

26852

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26853

return TCL_ERROR;

26854

}

26855

26856

ibis_tcl_error = 0;

26857

_result = (ib_net16_t *)sacInformInfo_g_or_v_vend_dev_id_set(_arg0,_arg1);

26858

;

26859

if (ibis_tcl_error) {

26860

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26861

return TCL_ERROR;

26862

}

26863

} tcl_result = Tcl_GetObjResult(interp);

26864

{

26865

char buff[20];

26866

sprintf(buff, "%u", cl_hton16(*_result));

26867

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26868

}

26869

return TCL_OK;

26870

}

26871

#define sacInformInfo_g_or_v_vend_dev_id_get(_swigobj) (&_swigobj->dev_id)

26872

static int _wrap_sacInformInfo_g_or_v_vend_dev_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26873

26874

ib_net16_t * _result;

26875

sacInformInfo_g_or_v_vend * _arg0;

26876

Tcl_Obj * tcl_result;

26877

char * rettype;

26878

26879

clientData = clientData; objv = objv;

26880

tcl_result = Tcl_GetObjResult(interp);

26881

if ((objc < 2) || (objc > 2)) {

26882

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_dev_id_get { sacInformInfo_g_or_v_vend * } ",-1);

26883

return TCL_ERROR;

26884

}

26885

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

26886

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_dev_id_get. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

26887

Tcl_AppendToObj(tcl_result, rettype, -1);

26888

return TCL_ERROR;

26889

}

26890

{

26891

/* we can check if IBIS was initialized here */

26892

if (!IbisObj.initialized)

26893

{

26894

Tcl_SetStringObj(

26895

Tcl_GetObjResult(interp),

26896

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26897

return TCL_ERROR;

26898

}

26899

26900

if (! IbisObj.port_guid)

26901

{

26902

Tcl_SetStringObj(

26903

Tcl_GetObjResult(interp),

26904

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26905

return TCL_ERROR;

26906

}

26907

26908

ibis_tcl_error = 0;

26909

_result = (ib_net16_t *)sacInformInfo_g_or_v_vend_dev_id_get(_arg0);

26910

;

26911

if (ibis_tcl_error) {

26912

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26913

return TCL_ERROR;

26914

}

26915

} tcl_result = Tcl_GetObjResult(interp);

26916

{

26917

char buff[20];

26918

sprintf(buff, "%u", cl_hton16(*_result));

26919

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26920

}

26921

return TCL_OK;

26922

}

26923

#define sacInformInfo_g_or_v_vend_qpn_resp_time_val_set(_swigobj,_swigval) (_swigobj->qpn_resp_time_val = *(_swigval),_swigval)

26924

static int _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26925

26926

ib_net32_t * _result;

26927

sacInformInfo_g_or_v_vend * _arg0;

26928

ib_net32_t * _arg1;

26929

Tcl_Obj * tcl_result;

26930

char * rettype;

26931

ib_net32_t temp;

26932

26933

clientData = clientData; objv = objv;

26934

tcl_result = Tcl_GetObjResult(interp);

26935

if ((objc < 3) || (objc > 3)) {

26936

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_qpn_resp_time_val_set { sacInformInfo_g_or_v_vend * } { ib_net32_t * } ",-1);

26937

return TCL_ERROR;

26938

}

26939

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

26940

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_qpn_resp_time_val_set. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

26941

Tcl_AppendToObj(tcl_result, rettype, -1);

26942

return TCL_ERROR;

26943

}

26944

{

26945

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

26946

_arg1 = &temp;

26947

}

26948

{

26949

/* we can check if IBIS was initialized here */

26950

if (!IbisObj.initialized)

26951

{

26952

Tcl_SetStringObj(

26953

Tcl_GetObjResult(interp),

26954

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

26955

return TCL_ERROR;

26956

}

26957

26958

if (! IbisObj.port_guid)

26959

{

26960

Tcl_SetStringObj(

26961

Tcl_GetObjResult(interp),

26962

" ibis was not yet initialized. please use ibis_set_port before.", -1);

26963

return TCL_ERROR;

26964

}

26965

26966

ibis_tcl_error = 0;

26967

_result = (ib_net32_t *)sacInformInfo_g_or_v_vend_qpn_resp_time_val_set(_arg0,_arg1);

26968

;

26969

if (ibis_tcl_error) {

26970

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

26971

return TCL_ERROR;

26972

}

26973

} tcl_result = Tcl_GetObjResult(interp);

26974

{

26975

char buff[20];

26976

sprintf(buff, "%u", cl_ntoh32(*_result));

26977

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

26978

}

26979

return TCL_OK;

26980

}

26981

#define sacInformInfo_g_or_v_vend_qpn_resp_time_val_get(_swigobj) (&_swigobj->qpn_resp_time_val)

26982

static int _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

26983

26984

ib_net32_t * _result;

26985

sacInformInfo_g_or_v_vend * _arg0;

26986

Tcl_Obj * tcl_result;

26987

char * rettype;

26988

26989

clientData = clientData; objv = objv;

26990

tcl_result = Tcl_GetObjResult(interp);

26991

if ((objc < 2) || (objc > 2)) {

26992

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_qpn_resp_time_val_get { sacInformInfo_g_or_v_vend * } ",-1);

26993

return TCL_ERROR;

26994

}

26995

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

26996

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_qpn_resp_time_val_get. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

26997

Tcl_AppendToObj(tcl_result, rettype, -1);

26998

return TCL_ERROR;

26999

}

27000

{

27001

/* we can check if IBIS was initialized here */

27002

if (!IbisObj.initialized)

27003

{

27004

Tcl_SetStringObj(

27005

Tcl_GetObjResult(interp),

27006

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27007

return TCL_ERROR;

27008

}

27009

27010

if (! IbisObj.port_guid)

27011

{

27012

Tcl_SetStringObj(

27013

Tcl_GetObjResult(interp),

27014

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27015

return TCL_ERROR;

27016

}

27017

27018

ibis_tcl_error = 0;

27019

_result = (ib_net32_t *)sacInformInfo_g_or_v_vend_qpn_resp_time_val_get(_arg0);

27020

;

27021

if (ibis_tcl_error) {

27022

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27023

return TCL_ERROR;

27024

}

27025

} tcl_result = Tcl_GetObjResult(interp);

27026

{

27027

char buff[20];

27028

sprintf(buff, "%u", cl_ntoh32(*_result));

27029

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27030

}

27031

return TCL_OK;

27032

}

27033

#define sacInformInfo_g_or_v_vend_reserved2_set(_swigobj,_swigval) (_swigobj->reserved2 = *(_swigval),_swigval)

27034

static int _wrap_sacInformInfo_g_or_v_vend_reserved2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27035

27036

uint8_t * _result;

27037

sacInformInfo_g_or_v_vend * _arg0;

27038

uint8_t * _arg1;

27039

Tcl_Obj * tcl_result;

27040

char * rettype;

27041

uint8_t temp;

27042

27043

clientData = clientData; objv = objv;

27044

tcl_result = Tcl_GetObjResult(interp);

27045

if ((objc < 3) || (objc > 3)) {

27046

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_reserved2_set { sacInformInfo_g_or_v_vend * } { uint8_t * } ",-1);

27047

return TCL_ERROR;

27048

}

27049

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27050

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_reserved2_set. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27051

Tcl_AppendToObj(tcl_result, rettype, -1);

27052

return TCL_ERROR;

27053

}

27054

{

27055

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

27056

_arg1 = &temp;

27057

}

27058

{

27059

/* we can check if IBIS was initialized here */

27060

if (!IbisObj.initialized)

27061

{

27062

Tcl_SetStringObj(

27063

Tcl_GetObjResult(interp),

27064

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27065

return TCL_ERROR;

27066

}

27067

27068

if (! IbisObj.port_guid)

27069

{

27070

Tcl_SetStringObj(

27071

Tcl_GetObjResult(interp),

27072

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27073

return TCL_ERROR;

27074

}

27075

27076

ibis_tcl_error = 0;

27077

_result = (uint8_t *)sacInformInfo_g_or_v_vend_reserved2_set(_arg0,_arg1);

27078

;

27079

if (ibis_tcl_error) {

27080

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27081

return TCL_ERROR;

27082

}

27083

} tcl_result = Tcl_GetObjResult(interp);

27084

{

27085

char buff[20];

27086

sprintf(buff, "%u", *_result);

27087

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27088

}

27089

return TCL_OK;

27090

}

27091

#define sacInformInfo_g_or_v_vend_reserved2_get(_swigobj) (&_swigobj->reserved2)

27092

static int _wrap_sacInformInfo_g_or_v_vend_reserved2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27093

27094

uint8_t * _result;

27095

sacInformInfo_g_or_v_vend * _arg0;

27096

Tcl_Obj * tcl_result;

27097

char * rettype;

27098

27099

clientData = clientData; objv = objv;

27100

tcl_result = Tcl_GetObjResult(interp);

27101

if ((objc < 2) || (objc > 2)) {

27102

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_reserved2_get { sacInformInfo_g_or_v_vend * } ",-1);

27103

return TCL_ERROR;

27104

}

27105

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27106

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_reserved2_get. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27107

Tcl_AppendToObj(tcl_result, rettype, -1);

27108

return TCL_ERROR;

27109

}

27110

{

27111

/* we can check if IBIS was initialized here */

27112

if (!IbisObj.initialized)

27113

{

27114

Tcl_SetStringObj(

27115

Tcl_GetObjResult(interp),

27116

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27117

return TCL_ERROR;

27118

}

27119

27120

if (! IbisObj.port_guid)

27121

{

27122

Tcl_SetStringObj(

27123

Tcl_GetObjResult(interp),

27124

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27125

return TCL_ERROR;

27126

}

27127

27128

ibis_tcl_error = 0;

27129

_result = (uint8_t *)sacInformInfo_g_or_v_vend_reserved2_get(_arg0);

27130

;

27131

if (ibis_tcl_error) {

27132

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27133

return TCL_ERROR;

27134

}

27135

} tcl_result = Tcl_GetObjResult(interp);

27136

{

27137

char buff[20];

27138

sprintf(buff, "%u", *_result);

27139

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27140

}

27141

return TCL_OK;

27142

}

27143

#define sacInformInfo_g_or_v_vend_vendor_id_msb_set(_swigobj,_swigval) (_swigobj->vendor_id_msb = *(_swigval),_swigval)

27144

static int _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27145

27146

uint8_t * _result;

27147

sacInformInfo_g_or_v_vend * _arg0;

27148

uint8_t * _arg1;

27149

Tcl_Obj * tcl_result;

27150

char * rettype;

27151

uint8_t temp;

27152

27153

clientData = clientData; objv = objv;

27154

tcl_result = Tcl_GetObjResult(interp);

27155

if ((objc < 3) || (objc > 3)) {

27156

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_vendor_id_msb_set { sacInformInfo_g_or_v_vend * } { uint8_t * } ",-1);

27157

return TCL_ERROR;

27158

}

27159

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27160

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_vendor_id_msb_set. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27161

Tcl_AppendToObj(tcl_result, rettype, -1);

27162

return TCL_ERROR;

27163

}

27164

{

27165

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

27166

_arg1 = &temp;

27167

}

27168

{

27169

/* we can check if IBIS was initialized here */

27170

if (!IbisObj.initialized)

27171

{

27172

Tcl_SetStringObj(

27173

Tcl_GetObjResult(interp),

27174

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27175

return TCL_ERROR;

27176

}

27177

27178

if (! IbisObj.port_guid)

27179

{

27180

Tcl_SetStringObj(

27181

Tcl_GetObjResult(interp),

27182

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27183

return TCL_ERROR;

27184

}

27185

27186

ibis_tcl_error = 0;

27187

_result = (uint8_t *)sacInformInfo_g_or_v_vend_vendor_id_msb_set(_arg0,_arg1);

27188

;

27189

if (ibis_tcl_error) {

27190

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27191

return TCL_ERROR;

27192

}

27193

} tcl_result = Tcl_GetObjResult(interp);

27194

{

27195

char buff[20];

27196

sprintf(buff, "%u", *_result);

27197

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27198

}

27199

return TCL_OK;

27200

}

27201

#define sacInformInfo_g_or_v_vend_vendor_id_msb_get(_swigobj) (&_swigobj->vendor_id_msb)

27202

static int _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27203

27204

uint8_t * _result;

27205

sacInformInfo_g_or_v_vend * _arg0;

27206

Tcl_Obj * tcl_result;

27207

char * rettype;

27208

27209

clientData = clientData; objv = objv;

27210

tcl_result = Tcl_GetObjResult(interp);

27211

if ((objc < 2) || (objc > 2)) {

27212

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_vendor_id_msb_get { sacInformInfo_g_or_v_vend * } ",-1);

27213

return TCL_ERROR;

27214

}

27215

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27216

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_vendor_id_msb_get. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27217

Tcl_AppendToObj(tcl_result, rettype, -1);

27218

return TCL_ERROR;

27219

}

27220

{

27221

/* we can check if IBIS was initialized here */

27222

if (!IbisObj.initialized)

27223

{

27224

Tcl_SetStringObj(

27225

Tcl_GetObjResult(interp),

27226

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27227

return TCL_ERROR;

27228

}

27229

27230

if (! IbisObj.port_guid)

27231

{

27232

Tcl_SetStringObj(

27233

Tcl_GetObjResult(interp),

27234

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27235

return TCL_ERROR;

27236

}

27237

27238

ibis_tcl_error = 0;

27239

_result = (uint8_t *)sacInformInfo_g_or_v_vend_vendor_id_msb_get(_arg0);

27240

;

27241

if (ibis_tcl_error) {

27242

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27243

return TCL_ERROR;

27244

}

27245

} tcl_result = Tcl_GetObjResult(interp);

27246

{

27247

char buff[20];

27248

sprintf(buff, "%u", *_result);

27249

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27250

}

27251

return TCL_OK;

27252

}

27253

#define sacInformInfo_g_or_v_vend_vendor_id_lsb_set(_swigobj,_swigval) (_swigobj->vendor_id_lsb = *(_swigval),_swigval)

27254

static int _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27255

27256

ib_net16_t * _result;

27257

sacInformInfo_g_or_v_vend * _arg0;

27258

ib_net16_t * _arg1;

27259

Tcl_Obj * tcl_result;

27260

char * rettype;

27261

ib_net16_t temp;

27262

27263

clientData = clientData; objv = objv;

27264

tcl_result = Tcl_GetObjResult(interp);

27265

if ((objc < 3) || (objc > 3)) {

27266

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_vendor_id_lsb_set { sacInformInfo_g_or_v_vend * } { ib_net16_t * } ",-1);

27267

return TCL_ERROR;

27268

}

27269

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27270

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_vendor_id_lsb_set. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27271

Tcl_AppendToObj(tcl_result, rettype, -1);

27272

return TCL_ERROR;

27273

}

27274

{

27275

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

27276

_arg1 = &temp;

27277

}

27278

{

27279

/* we can check if IBIS was initialized here */

27280

if (!IbisObj.initialized)

27281

{

27282

Tcl_SetStringObj(

27283

Tcl_GetObjResult(interp),

27284

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27285

return TCL_ERROR;

27286

}

27287

27288

if (! IbisObj.port_guid)

27289

{

27290

Tcl_SetStringObj(

27291

Tcl_GetObjResult(interp),

27292

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27293

return TCL_ERROR;

27294

}

27295

27296

ibis_tcl_error = 0;

27297

_result = (ib_net16_t *)sacInformInfo_g_or_v_vend_vendor_id_lsb_set(_arg0,_arg1);

27298

;

27299

if (ibis_tcl_error) {

27300

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27301

return TCL_ERROR;

27302

}

27303

} tcl_result = Tcl_GetObjResult(interp);

27304

{

27305

char buff[20];

27306

sprintf(buff, "%u", cl_hton16(*_result));

27307

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27308

}

27309

return TCL_OK;

27310

}

27311

#define sacInformInfo_g_or_v_vend_vendor_id_lsb_get(_swigobj) (&_swigobj->vendor_id_lsb)

27312

static int _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27313

27314

ib_net16_t * _result;

27315

sacInformInfo_g_or_v_vend * _arg0;

27316

Tcl_Obj * tcl_result;

27317

char * rettype;

27318

27319

clientData = clientData; objv = objv;

27320

tcl_result = Tcl_GetObjResult(interp);

27321

if ((objc < 2) || (objc > 2)) {

27322

Tcl_SetStringObj(tcl_result,"Wrong # args. sacInformInfo_g_or_v_vend_vendor_id_lsb_get { sacInformInfo_g_or_v_vend * } ",-1);

27323

return TCL_ERROR;

27324

}

27325

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacInformInfo_g_or_v_vend_p"))) {

27326

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacInformInfo_g_or_v_vend_vendor_id_lsb_get. Expected _sacInformInfo_g_or_v_vend_p, received ", -1);

27327

Tcl_AppendToObj(tcl_result, rettype, -1);

27328

return TCL_ERROR;

27329

}

27330

{

27331

/* we can check if IBIS was initialized here */

27332

if (!IbisObj.initialized)

27333

{

27334

Tcl_SetStringObj(

27335

Tcl_GetObjResult(interp),

27336

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27337

return TCL_ERROR;

27338

}

27339

27340

if (! IbisObj.port_guid)

27341

{

27342

Tcl_SetStringObj(

27343

Tcl_GetObjResult(interp),

27344

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27345

return TCL_ERROR;

27346

}

27347

27348

ibis_tcl_error = 0;

27349

_result = (ib_net16_t *)sacInformInfo_g_or_v_vend_vendor_id_lsb_get(_arg0);

27350

;

27351

if (ibis_tcl_error) {

27352

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27353

return TCL_ERROR;

27354

}

27355

} tcl_result = Tcl_GetObjResult(interp);

27356

{

27357

char buff[20];

27358

sprintf(buff, "%u", cl_hton16(*_result));

27359

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27360

}

27361

return TCL_OK;

27362

}

27363

/* methodcmd8.swg : Tcl8.x method invocation */

27364

27365

static int TclsacInformInfo_g_or_v_vendMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

27366

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

27367

char *_str;

27368

int rcode;

27369

Tcl_Obj **objv;

27370

Tcl_Obj *oldarg,*tcl_result,*obj;

27371

int length;

27372

char c;

27373

27374

tcl_result = Tcl_GetObjResult(interp);

27375

objv = (Tcl_Obj **) _objv;

27376

if (objc < 2) {

27377

Tcl_SetStringObj(tcl_result,"sacInformInfo_g_or_v_vend methods : { dump cget configure }",-1);

27378

return TCL_ERROR;

27379

}

27380

obj = Tcl_NewObj();

27381

SWIG_SetPointerObj(obj,(void *) clientData,"_sacInformInfo_g_or_v_vend_p");

27382

_str = Tcl_GetStringFromObj(objv[1],&length);

27383

c = *_str;

27384

if (0);

27385

27386

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

27387

int i = 2;

27388

cmd = 0;

27389

while (i+1 < objc) {

27390

_str = Tcl_GetStringFromObj(objv[i],&length);

27391

if (strcmp(_str,"-dev_id") == 0) {

27392

cmd = _wrap_sacInformInfo_g_or_v_vend_dev_id_set;

27393

} else if (strcmp(_str,"-qpn_resp_time_val") == 0) {

27394

cmd = _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_set;

27395

} else if (strcmp(_str,"-reserved2") == 0) {

27396

cmd = _wrap_sacInformInfo_g_or_v_vend_reserved2_set;

27397

} else if (strcmp(_str,"-vendor_id_msb") == 0) {

27398

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_set;

27399

} else if (strcmp(_str,"-vendor_id_lsb") == 0) {

27400

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_set;

27401

}

27402

if (cmd) {

27403

oldarg = objv[i];

27404

objv[i] = obj;

27405

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

27406

objv[i] = oldarg;

27407

if (rcode == TCL_ERROR) return rcode;

27408

cmd = 0;

27409

} else {

27410

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -dev_id -qpn_resp_time_val -reserved2 -vendor_id_msb -vendor_id_lsb }",-1);

27411

return TCL_ERROR;

27412

}

27413

i+=2;

27414

}

27415

if ((i < objc) || (i == 2)) {

27416

Tcl_SetStringObj(tcl_result,"{ -dev_id -qpn_resp_time_val -reserved2 -vendor_id_msb -vendor_id_lsb }",-1);

27417

return TCL_ERROR;

27418

}

27419

return TCL_OK;

27420

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

27421

if (objc == 3) {

27422

_str = Tcl_GetStringFromObj(objv[2],&length);

27423

if (0) {}

27424

if (strcmp(_str,"-dev_id") == 0) {

27425

cmd = _wrap_sacInformInfo_g_or_v_vend_dev_id_get;

27426

} else if (strcmp(_str,"-qpn_resp_time_val") == 0) {

27427

cmd = _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_get;

27428

} else if (strcmp(_str,"-reserved2") == 0) {

27429

cmd = _wrap_sacInformInfo_g_or_v_vend_reserved2_get;

27430

} else if (strcmp(_str,"-vendor_id_msb") == 0) {

27431

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_get;

27432

} else if (strcmp(_str,"-vendor_id_lsb") == 0) {

27433

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_get;

27434

}

27435

else if (strcmp(_str,"-this") == 0) {

27436

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacInformInfo_g_or_v_vend_p");

27437

return TCL_OK;

27438

}

27439

if (cmd) {

27440

oldarg = objv[2];

27441

objv[2] = obj;

27442

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

27443

objv[2] = oldarg;

27444

return rcode;

27445

} else {

27446

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -dev_id -qpn_resp_time_val -reserved2 -vendor_id_msb -vendor_id_lsb }",-1);

27447

return TCL_ERROR;

27448

}

27449

} else {

27450

Tcl_SetStringObj(tcl_result,"{ -this -dev_id -qpn_resp_time_val -reserved2 -vendor_id_msb -vendor_id_lsb }", -1);

27451

return TCL_ERROR;

27452

}

27453

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

27454

if (objc == 2) {

27455

Tcl_Obj *pDumpObj;

27456

pDumpObj = Tcl_NewStringObj("",-1);

27457

Tcl_IncrRefCount(pDumpObj);

27458

cmd = _wrap_sacInformInfo_g_or_v_vend_dev_id_get;

27459

oldarg = objv[2];

27460

objv[2] = obj;

27461

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

27462

objv[2] = oldarg;

27463

Tcl_AppendStringsToObj(pDumpObj, "-dev_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

27464

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

27465

cmd = _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_get;

27466

oldarg = objv[2];

27467

objv[2] = obj;

27468

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

27469

objv[2] = oldarg;

27470

Tcl_AppendStringsToObj(pDumpObj, "-qpn_resp_time_val ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

27471

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

27472

cmd = _wrap_sacInformInfo_g_or_v_vend_reserved2_get;

27473

oldarg = objv[2];

27474

objv[2] = obj;

27475

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

27476

objv[2] = oldarg;

27477

Tcl_AppendStringsToObj(pDumpObj, "-reserved2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

27478

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

27479

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_get;

27480

oldarg = objv[2];

27481

objv[2] = obj;

27482

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

27483

objv[2] = oldarg;

27484

Tcl_AppendStringsToObj(pDumpObj, "-vendor_id_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

27485

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

27486

cmd = _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_get;

27487

oldarg = objv[2];

27488

objv[2] = obj;

27489

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

27490

objv[2] = oldarg;

27491

Tcl_AppendStringsToObj(pDumpObj, "-vendor_id_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

27492

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

27493

27494

Tcl_DecrRefCount(pDumpObj);

27495

return TCL_OK;

27496

} else {

27497

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

27498

return TCL_ERROR;

27499

}

27500

}

27501

if (!cmd) {

27502

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

27503

return TCL_ERROR;

27504

}

27505

oldarg = objv[1];

27506

objv[1] = obj;

27507

rcode = (*cmd)(clientData,interp,objc,objv);

27508

objv[1] = oldarg;

27509

return rcode;

27510

}

27511

27512

27513

27514

/* objcmd8.swg : Tcl 8.x object creation */

27515

27516

static int TclsacInformInfo_g_or_v_vendCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27517

void (*del)(ClientData) = 0;

27518

char *name = 0;

27519

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

27520

sacInformInfo_g_or_v_vend * newObj = 0;

27521

int firstarg = 0;

27522

int thisarg = 0;

27523

int length;

27524

char *_str;

27525

Tcl_Obj *tcl_result;

27526

27527

tcl_result = Tcl_GetObjResult(interp);

27528

if (objc == 1) {

27529

cmd = 0;

27530

} else {

27531

_str = Tcl_GetStringFromObj(objv[1],&length);

27532

if (strcmp(_str,"-this") == 0) thisarg = 2;

27533

else if (strcmp(_str,"-args") == 0) {

27534

firstarg = 1;

27535

cmd = 0;

27536

} else if (objc == 2) {

27537

firstarg = 1;

27538

name = _str;

27539

cmd = 0;

27540

} else if (objc >= 3) {

27541

name = _str;

27542

_str = Tcl_GetStringFromObj(objv[2],&length);

27543

if (strcmp(_str,"-this") == 0) thisarg = 3;

27544

else {

27545

firstarg = 1;

27546

cmd = 0;

27547

}

27548

}

27549

}

27550

if (cmd) {

27551

int result;

27552

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

27553

if (result == TCL_OK) {

27554

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacInformInfo_g_or_v_vend_p");

27555

} else { return result; }

27556

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

27557

del = 0;

27558

} else if (thisarg > 0) {

27559

if (thisarg < objc) {

27560

char *r;

27561

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacInformInfo_g_or_v_vend_p");

27562

if (r) {

27563

Tcl_SetStringObj(tcl_result,"Type error. not a sacInformInfo_g_or_v_vend object.",-1);

27564

return TCL_ERROR;

27565

}

27566

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

27567

Tcl_SetStringObj(tcl_result,name,-1);

27568

} else {

27569

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

27570

return TCL_ERROR;

27571

}

27572

} else {

27573

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

27574

return TCL_ERROR;

27575

}

27576

{

27577

Tcl_CmdInfo dummy;

27578

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

27579

Tcl_CreateObjCommand(interp,name, TclsacInformInfo_g_or_v_vendMethodCmd, (ClientData) newObj, del);

27580

return TCL_OK;

27581

} else {

27582

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

27583

return TCL_ERROR;

27584

}

27585

}

27586

}

27587

27588

27589

#define _ib_service_record_service_id_set(_swigobj,_swigval) (_swigobj->service_id = *(_swigval),_swigval)

27590

static int _wrap_sacServiceRec_service_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27591

27592

ib_net64_t * _result;

27593

sacServiceRec * _arg0;

27594

ib_net64_t * _arg1;

27595

Tcl_Obj * tcl_result;

27596

char * rettype;

27597

uint64_t temp;

27598

27599

clientData = clientData; objv = objv;

27600

tcl_result = Tcl_GetObjResult(interp);

27601

if ((objc < 3) || (objc > 3)) {

27602

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_id_set { sacServiceRec * } { ib_net64_t * } ",-1);

27603

return TCL_ERROR;

27604

}

27605

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27606

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_id_set. Expected _sacServiceRec_p, received ", -1);

27607

Tcl_AppendToObj(tcl_result, rettype, -1);

27608

return TCL_ERROR;

27609

}

27610

{

27611

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

27612

_arg1 = &temp;

27613

}

27614

{

27615

/* we can check if IBIS was initialized here */

27616

if (!IbisObj.initialized)

27617

{

27618

Tcl_SetStringObj(

27619

Tcl_GetObjResult(interp),

27620

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27621

return TCL_ERROR;

27622

}

27623

27624

if (! IbisObj.port_guid)

27625

{

27626

Tcl_SetStringObj(

27627

Tcl_GetObjResult(interp),

27628

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27629

return TCL_ERROR;

27630

}

27631

27632

ibis_tcl_error = 0;

27633

_result = (ib_net64_t *)_ib_service_record_service_id_set(_arg0,_arg1);

27634

;

27635

if (ibis_tcl_error) {

27636

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27637

return TCL_ERROR;

27638

}

27639

} tcl_result = Tcl_GetObjResult(interp);

27640

{

27641

char buff[20];

27642

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

27643

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27644

}

27645

return TCL_OK;

27646

}

27647

#define _ib_service_record_service_id_get(_swigobj) (&_swigobj->service_id)

27648

static int _wrap_sacServiceRec_service_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27649

27650

ib_net64_t * _result;

27651

sacServiceRec * _arg0;

27652

Tcl_Obj * tcl_result;

27653

char * rettype;

27654

27655

clientData = clientData; objv = objv;

27656

tcl_result = Tcl_GetObjResult(interp);

27657

if ((objc < 2) || (objc > 2)) {

27658

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_id_get { sacServiceRec * } ",-1);

27659

return TCL_ERROR;

27660

}

27661

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27662

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_id_get. Expected _sacServiceRec_p, received ", -1);

27663

Tcl_AppendToObj(tcl_result, rettype, -1);

27664

return TCL_ERROR;

27665

}

27666

{

27667

/* we can check if IBIS was initialized here */

27668

if (!IbisObj.initialized)

27669

{

27670

Tcl_SetStringObj(

27671

Tcl_GetObjResult(interp),

27672

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27673

return TCL_ERROR;

27674

}

27675

27676

if (! IbisObj.port_guid)

27677

{

27678

Tcl_SetStringObj(

27679

Tcl_GetObjResult(interp),

27680

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27681

return TCL_ERROR;

27682

}

27683

27684

ibis_tcl_error = 0;

27685

_result = (ib_net64_t *)_ib_service_record_service_id_get(_arg0);

27686

;

27687

if (ibis_tcl_error) {

27688

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27689

return TCL_ERROR;

27690

}

27691

} tcl_result = Tcl_GetObjResult(interp);

27692

{

27693

char buff[20];

27694

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

27695

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27696

}

27697

return TCL_OK;

27698

}

27699

#define _ib_service_record_service_gid_set(_swigobj,_swigval) (_swigobj->service_gid = *(_swigval),_swigval)

27700

static int _wrap_sacServiceRec_service_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27701

27702

ib_gid_t * _result;

27703

sacServiceRec * _arg0;

27704

ib_gid_t * _arg1;

27705

Tcl_Obj * tcl_result;

27706

char * rettype;

27707

ib_gid_t temp;

27708

27709

clientData = clientData; objv = objv;

27710

tcl_result = Tcl_GetObjResult(interp);

27711

if ((objc < 3) || (objc > 3)) {

27712

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_gid_set { sacServiceRec * } { ib_gid_t * } ",-1);

27713

return TCL_ERROR;

27714

}

27715

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27716

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_gid_set. Expected _sacServiceRec_p, received ", -1);

27717

Tcl_AppendToObj(tcl_result, rettype, -1);

27718

return TCL_ERROR;

27719

}

27720

{

27721

char buf[40];

27722

char *p_prefix, *p_guid;

27723

char *str_token = NULL;

27724

27725

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

27726

p_prefix = strtok_r(buf,":", &str_token);

27727

if (! p_prefix)

27728

{

27729

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

27730

return TCL_ERROR;

27731

}

27732

p_guid = strtok_r(NULL, " ", &str_token);

27733

if (! p_guid)

27734

{

27735

printf("Wrong format for gid prefix:%s\n", Tcl_GetStringFromObj(objv[2],NULL));

27736

return TCL_ERROR;

27737

}

27738

27739

errno = 0;

27740

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

27741

if (errno) {

27742

printf("Wrong format for gid prefix:%s\n", p_prefix);

27743

return TCL_ERROR;

27744

}

27745

27746

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

27747

if (errno) {

27748

printf("Wrong format for gid guid:%s\n", p_guid);

27749

return TCL_ERROR;

27750

}

27751

27752

_arg1 = &temp;

27753

}

27754

{

27755

/* we can check if IBIS was initialized here */

27756

if (!IbisObj.initialized)

27757

{

27758

Tcl_SetStringObj(

27759

Tcl_GetObjResult(interp),

27760

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27761

return TCL_ERROR;

27762

}

27763

27764

if (! IbisObj.port_guid)

27765

{

27766

Tcl_SetStringObj(

27767

Tcl_GetObjResult(interp),

27768

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27769

return TCL_ERROR;

27770

}

27771

27772

ibis_tcl_error = 0;

27773

_result = (ib_gid_t *)_ib_service_record_service_gid_set(_arg0,_arg1);

27774

;

27775

if (ibis_tcl_error) {

27776

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27777

return TCL_ERROR;

27778

}

27779

} tcl_result = Tcl_GetObjResult(interp);

27780

{

27781

char buff[38];

27782

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

27783

cl_ntoh64(_result->unicast.prefix),

27784

cl_ntoh64(_result->unicast.interface_id)

27785

);

27786

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27787

}

27788

return TCL_OK;

27789

}

27790

#define _ib_service_record_service_gid_get(_swigobj) (&_swigobj->service_gid)

27791

static int _wrap_sacServiceRec_service_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27792

27793

ib_gid_t * _result;

27794

sacServiceRec * _arg0;

27795

Tcl_Obj * tcl_result;

27796

char * rettype;

27797

27798

clientData = clientData; objv = objv;

27799

tcl_result = Tcl_GetObjResult(interp);

27800

if ((objc < 2) || (objc > 2)) {

27801

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_gid_get { sacServiceRec * } ",-1);

27802

return TCL_ERROR;

27803

}

27804

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27805

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_gid_get. Expected _sacServiceRec_p, received ", -1);

27806

Tcl_AppendToObj(tcl_result, rettype, -1);

27807

return TCL_ERROR;

27808

}

27809

{

27810

/* we can check if IBIS was initialized here */

27811

if (!IbisObj.initialized)

27812

{

27813

Tcl_SetStringObj(

27814

Tcl_GetObjResult(interp),

27815

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27816

return TCL_ERROR;

27817

}

27818

27819

if (! IbisObj.port_guid)

27820

{

27821

Tcl_SetStringObj(

27822

Tcl_GetObjResult(interp),

27823

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27824

return TCL_ERROR;

27825

}

27826

27827

ibis_tcl_error = 0;

27828

_result = (ib_gid_t *)_ib_service_record_service_gid_get(_arg0);

27829

;

27830

if (ibis_tcl_error) {

27831

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27832

return TCL_ERROR;

27833

}

27834

} tcl_result = Tcl_GetObjResult(interp);

27835

{

27836

char buff[38];

27837

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

27838

cl_ntoh64(_result->unicast.prefix),

27839

cl_ntoh64(_result->unicast.interface_id)

27840

);

27841

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27842

}

27843

return TCL_OK;

27844

}

27845

#define _ib_service_record_service_pkey_set(_swigobj,_swigval) (_swigobj->service_pkey = *(_swigval),_swigval)

27846

static int _wrap_sacServiceRec_service_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27847

27848

ib_net16_t * _result;

27849

sacServiceRec * _arg0;

27850

ib_net16_t * _arg1;

27851

Tcl_Obj * tcl_result;

27852

char * rettype;

27853

ib_net16_t temp;

27854

27855

clientData = clientData; objv = objv;

27856

tcl_result = Tcl_GetObjResult(interp);

27857

if ((objc < 3) || (objc > 3)) {

27858

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_pkey_set { sacServiceRec * } { ib_net16_t * } ",-1);

27859

return TCL_ERROR;

27860

}

27861

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27862

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_pkey_set. Expected _sacServiceRec_p, received ", -1);

27863

Tcl_AppendToObj(tcl_result, rettype, -1);

27864

return TCL_ERROR;

27865

}

27866

{

27867

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

27868

_arg1 = &temp;

27869

}

27870

{

27871

/* we can check if IBIS was initialized here */

27872

if (!IbisObj.initialized)

27873

{

27874

Tcl_SetStringObj(

27875

Tcl_GetObjResult(interp),

27876

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27877

return TCL_ERROR;

27878

}

27879

27880

if (! IbisObj.port_guid)

27881

{

27882

Tcl_SetStringObj(

27883

Tcl_GetObjResult(interp),

27884

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27885

return TCL_ERROR;

27886

}

27887

27888

ibis_tcl_error = 0;

27889

_result = (ib_net16_t *)_ib_service_record_service_pkey_set(_arg0,_arg1);

27890

;

27891

if (ibis_tcl_error) {

27892

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27893

return TCL_ERROR;

27894

}

27895

} tcl_result = Tcl_GetObjResult(interp);

27896

{

27897

char buff[20];

27898

sprintf(buff, "%u", cl_hton16(*_result));

27899

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27900

}

27901

return TCL_OK;

27902

}

27903

#define _ib_service_record_service_pkey_get(_swigobj) (&_swigobj->service_pkey)

27904

static int _wrap_sacServiceRec_service_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27905

27906

ib_net16_t * _result;

27907

sacServiceRec * _arg0;

27908

Tcl_Obj * tcl_result;

27909

char * rettype;

27910

27911

clientData = clientData; objv = objv;

27912

tcl_result = Tcl_GetObjResult(interp);

27913

if ((objc < 2) || (objc > 2)) {

27914

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_pkey_get { sacServiceRec * } ",-1);

27915

return TCL_ERROR;

27916

}

27917

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27918

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_pkey_get. Expected _sacServiceRec_p, received ", -1);

27919

Tcl_AppendToObj(tcl_result, rettype, -1);

27920

return TCL_ERROR;

27921

}

27922

{

27923

/* we can check if IBIS was initialized here */

27924

if (!IbisObj.initialized)

27925

{

27926

Tcl_SetStringObj(

27927

Tcl_GetObjResult(interp),

27928

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27929

return TCL_ERROR;

27930

}

27931

27932

if (! IbisObj.port_guid)

27933

{

27934

Tcl_SetStringObj(

27935

Tcl_GetObjResult(interp),

27936

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27937

return TCL_ERROR;

27938

}

27939

27940

ibis_tcl_error = 0;

27941

_result = (ib_net16_t *)_ib_service_record_service_pkey_get(_arg0);

27942

;

27943

if (ibis_tcl_error) {

27944

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

27945

return TCL_ERROR;

27946

}

27947

} tcl_result = Tcl_GetObjResult(interp);

27948

{

27949

char buff[20];

27950

sprintf(buff, "%u", cl_hton16(*_result));

27951

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

27952

}

27953

return TCL_OK;

27954

}

27955

#define _ib_service_record_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

27956

static int _wrap_sacServiceRec_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

27957

27958

ib_net16_t * _result;

27959

sacServiceRec * _arg0;

27960

ib_net16_t * _arg1;

27961

Tcl_Obj * tcl_result;

27962

char * rettype;

27963

ib_net16_t temp;

27964

27965

clientData = clientData; objv = objv;

27966

tcl_result = Tcl_GetObjResult(interp);

27967

if ((objc < 3) || (objc > 3)) {

27968

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_resv_set { sacServiceRec * } { ib_net16_t * } ",-1);

27969

return TCL_ERROR;

27970

}

27971

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

27972

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_resv_set. Expected _sacServiceRec_p, received ", -1);

27973

Tcl_AppendToObj(tcl_result, rettype, -1);

27974

return TCL_ERROR;

27975

}

27976

{

27977

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

27978

_arg1 = &temp;

27979

}

27980

{

27981

/* we can check if IBIS was initialized here */

27982

if (!IbisObj.initialized)

27983

{

27984

Tcl_SetStringObj(

27985

Tcl_GetObjResult(interp),

27986

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

27987

return TCL_ERROR;

27988

}

27989

27990

if (! IbisObj.port_guid)

27991

{

27992

Tcl_SetStringObj(

27993

Tcl_GetObjResult(interp),

27994

" ibis was not yet initialized. please use ibis_set_port before.", -1);

27995

return TCL_ERROR;

27996

}

27997

27998

ibis_tcl_error = 0;

27999

_result = (ib_net16_t *)_ib_service_record_resv_set(_arg0,_arg1);

28000

;

28001

if (ibis_tcl_error) {

28002

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28003

return TCL_ERROR;

28004

}

28005

} tcl_result = Tcl_GetObjResult(interp);

28006

{

28007

char buff[20];

28008

sprintf(buff, "%u", cl_hton16(*_result));

28009

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

28010

}

28011

return TCL_OK;

28012

}

28013

#define _ib_service_record_resv_get(_swigobj) (&_swigobj->resv)

28014

static int _wrap_sacServiceRec_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28015

28016

ib_net16_t * _result;

28017

sacServiceRec * _arg0;

28018

Tcl_Obj * tcl_result;

28019

char * rettype;

28020

28021

clientData = clientData; objv = objv;

28022

tcl_result = Tcl_GetObjResult(interp);

28023

if ((objc < 2) || (objc > 2)) {

28024

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_resv_get { sacServiceRec * } ",-1);

28025

return TCL_ERROR;

28026

}

28027

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28028

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_resv_get. Expected _sacServiceRec_p, received ", -1);

28029

Tcl_AppendToObj(tcl_result, rettype, -1);

28030

return TCL_ERROR;

28031

}

28032

{

28033

/* we can check if IBIS was initialized here */

28034

if (!IbisObj.initialized)

28035

{

28036

Tcl_SetStringObj(

28037

Tcl_GetObjResult(interp),

28038

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28039

return TCL_ERROR;

28040

}

28041

28042

if (! IbisObj.port_guid)

28043

{

28044

Tcl_SetStringObj(

28045

Tcl_GetObjResult(interp),

28046

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28047

return TCL_ERROR;

28048

}

28049

28050

ibis_tcl_error = 0;

28051

_result = (ib_net16_t *)_ib_service_record_resv_get(_arg0);

28052

;

28053

if (ibis_tcl_error) {

28054

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28055

return TCL_ERROR;

28056

}

28057

} tcl_result = Tcl_GetObjResult(interp);

28058

{

28059

char buff[20];

28060

sprintf(buff, "%u", cl_hton16(*_result));

28061

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

28062

}

28063

return TCL_OK;

28064

}

28065

#define _ib_service_record_service_lease_set(_swigobj,_swigval) (_swigobj->service_lease = *(_swigval),_swigval)

28066

static int _wrap_sacServiceRec_service_lease_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28067

28068

ib_net32_t * _result;

28069

sacServiceRec * _arg0;

28070

ib_net32_t * _arg1;

28071

Tcl_Obj * tcl_result;

28072

char * rettype;

28073

ib_net32_t temp;

28074

28075

clientData = clientData; objv = objv;

28076

tcl_result = Tcl_GetObjResult(interp);

28077

if ((objc < 3) || (objc > 3)) {

28078

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_lease_set { sacServiceRec * } { ib_net32_t * } ",-1);

28079

return TCL_ERROR;

28080

}

28081

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28082

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_lease_set. Expected _sacServiceRec_p, received ", -1);

28083

Tcl_AppendToObj(tcl_result, rettype, -1);

28084

return TCL_ERROR;

28085

}

28086

{

28087

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

28088

_arg1 = &temp;

28089

}

28090

{

28091

/* we can check if IBIS was initialized here */

28092

if (!IbisObj.initialized)

28093

{

28094

Tcl_SetStringObj(

28095

Tcl_GetObjResult(interp),

28096

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28097

return TCL_ERROR;

28098

}

28099

28100

if (! IbisObj.port_guid)

28101

{

28102

Tcl_SetStringObj(

28103

Tcl_GetObjResult(interp),

28104

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28105

return TCL_ERROR;

28106

}

28107

28108

ibis_tcl_error = 0;

28109

_result = (ib_net32_t *)_ib_service_record_service_lease_set(_arg0,_arg1);

28110

;

28111

if (ibis_tcl_error) {

28112

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28113

return TCL_ERROR;

28114

}

28115

} tcl_result = Tcl_GetObjResult(interp);

28116

{

28117

char buff[20];

28118

sprintf(buff, "%u", cl_ntoh32(*_result));

28119

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

28120

}

28121

return TCL_OK;

28122

}

28123

#define _ib_service_record_service_lease_get(_swigobj) (&_swigobj->service_lease)

28124

static int _wrap_sacServiceRec_service_lease_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28125

28126

ib_net32_t * _result;

28127

sacServiceRec * _arg0;

28128

Tcl_Obj * tcl_result;

28129

char * rettype;

28130

28131

clientData = clientData; objv = objv;

28132

tcl_result = Tcl_GetObjResult(interp);

28133

if ((objc < 2) || (objc > 2)) {

28134

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_lease_get { sacServiceRec * } ",-1);

28135

return TCL_ERROR;

28136

}

28137

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28138

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_lease_get. Expected _sacServiceRec_p, received ", -1);

28139

Tcl_AppendToObj(tcl_result, rettype, -1);

28140

return TCL_ERROR;

28141

}

28142

{

28143

/* we can check if IBIS was initialized here */

28144

if (!IbisObj.initialized)

28145

{

28146

Tcl_SetStringObj(

28147

Tcl_GetObjResult(interp),

28148

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28149

return TCL_ERROR;

28150

}

28151

28152

if (! IbisObj.port_guid)

28153

{

28154

Tcl_SetStringObj(

28155

Tcl_GetObjResult(interp),

28156

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28157

return TCL_ERROR;

28158

}

28159

28160

ibis_tcl_error = 0;

28161

_result = (ib_net32_t *)_ib_service_record_service_lease_get(_arg0);

28162

;

28163

if (ibis_tcl_error) {

28164

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28165

return TCL_ERROR;

28166

}

28167

} tcl_result = Tcl_GetObjResult(interp);

28168

{

28169

char buff[20];

28170

sprintf(buff, "%u", cl_ntoh32(*_result));

28171

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

28172

}

28173

return TCL_OK;

28174

}

28175

static uint8_array_t * _ib_service_record_service_key_set(sacServiceRec *obj, uint8_array_t val[16]) {

28176

{

28177

int i;

28178

for (i=0; i <16 ; i++) {

28179

obj->service_key[i] = *(val+i);

28180

}

28181

}

28182

return (uint8_array_t *) val;

28183

}

28184

static int _wrap_sacServiceRec_service_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28185

28186

uint8_array_t * _result;

28187

sacServiceRec * _arg0;

28188

uint8_array_t * _arg1;

28189

Tcl_Obj * tcl_result;

28190

char * rettype;

28191

uint8_t entrys[16];

28192

28193

clientData = clientData; objv = objv;

28194

tcl_result = Tcl_GetObjResult(interp);

28195

if ((objc < 3) || (objc > 3)) {

28196

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_key_set { sacServiceRec * } { uint8_array_t * } ",-1);

28197

return TCL_ERROR;

28198

}

28199

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28200

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_key_set. Expected _sacServiceRec_p, received ", -1);

28201

Tcl_AppendToObj(tcl_result, rettype, -1);

28202

return TCL_ERROR;

28203

}

28204

{

28205

char *buff;

28206

char *p_ch;

28207

char *last;

28208

long int entry;

28209

28210

int i = 0;

28211

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

28212

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

28213

p_ch = strtok_r(buff, " \t",&last);

28214

while (p_ch && (i < 16))

28215

{

28216

entry = strtol(p_ch, NULL, 0);

28217

if (entry > 0xff)

28218

{

28219

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

28220

return TCL_ERROR;

28221

}

28222

entrys[i++] = entry;

28223

p_ch = strtok_r(NULL, " \t", &last);

28224

}

28225

for (; i < 16; i++) entrys[i] = 0;

28226

28227

free(buff);

28228

_arg1 = entrys;

28229

}

28230

{

28231

/* we can check if IBIS was initialized here */

28232

if (!IbisObj.initialized)

28233

{

28234

Tcl_SetStringObj(

28235

Tcl_GetObjResult(interp),

28236

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28237

return TCL_ERROR;

28238

}

28239

28240

if (! IbisObj.port_guid)

28241

{

28242

Tcl_SetStringObj(

28243

Tcl_GetObjResult(interp),

28244

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28245

return TCL_ERROR;

28246

}

28247

28248

ibis_tcl_error = 0;

28249

_result = (uint8_array_t *)_ib_service_record_service_key_set(_arg0,_arg1);

28250

;

28251

if (ibis_tcl_error) {

28252

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28253

return TCL_ERROR;

28254

}

28255

} tcl_result = Tcl_GetObjResult(interp);

28256

{

28257

int i;

28258

char buff[8];

28259

for (i=0; i <16 ; i++) {

28260

sprintf(buff, "0x%02x ", *(_result+i));

28261

Tcl_AppendResult(interp, buff, NULL);

28262

}

28263

}

28264

return TCL_OK;

28265

}

28266

#define _ib_service_record_service_key_get(_swigobj) ((uint8_array_t *) _swigobj->service_key)

28267

static int _wrap_sacServiceRec_service_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28268

28269

uint8_array_t * _result;

28270

sacServiceRec * _arg0;

28271

Tcl_Obj * tcl_result;

28272

char * rettype;

28273

28274

clientData = clientData; objv = objv;

28275

tcl_result = Tcl_GetObjResult(interp);

28276

if ((objc < 2) || (objc > 2)) {

28277

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_key_get { sacServiceRec * } ",-1);

28278

return TCL_ERROR;

28279

}

28280

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28281

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_key_get. Expected _sacServiceRec_p, received ", -1);

28282

Tcl_AppendToObj(tcl_result, rettype, -1);

28283

return TCL_ERROR;

28284

}

28285

{

28286

/* we can check if IBIS was initialized here */

28287

if (!IbisObj.initialized)

28288

{

28289

Tcl_SetStringObj(

28290

Tcl_GetObjResult(interp),

28291

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28292

return TCL_ERROR;

28293

}

28294

28295

if (! IbisObj.port_guid)

28296

{

28297

Tcl_SetStringObj(

28298

Tcl_GetObjResult(interp),

28299

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28300

return TCL_ERROR;

28301

}

28302

28303

ibis_tcl_error = 0;

28304

_result = (uint8_array_t *)_ib_service_record_service_key_get(_arg0);

28305

;

28306

if (ibis_tcl_error) {

28307

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28308

return TCL_ERROR;

28309

}

28310

} tcl_result = Tcl_GetObjResult(interp);

28311

{

28312

int i;

28313

char buff[8];

28314

for (i=0; i <16 ; i++) {

28315

sprintf(buff, "0x%02x ", *(_result+i));

28316

Tcl_AppendResult(interp, buff, NULL);

28317

}

28318

}

28319

return TCL_OK;

28320

}

28321

static ib_svc_name_t * _ib_service_record_service_name_set(sacServiceRec *obj, ib_svc_name_t *val) {

28322

{

28323

memcpy(&(obj->service_name), val, sizeof(ib_svc_name_t));

28324

}

28325

return (ib_svc_name_t *) val;

28326

}

28327

static int _wrap_sacServiceRec_service_name_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28328

28329

ib_svc_name_t * _result;

28330

sacServiceRec * _arg0;

28331

ib_svc_name_t * _arg1;

28332

Tcl_Obj * tcl_result;

28333

char * rettype;

28334

ib_svc_name_t n;

28335

28336

clientData = clientData; objv = objv;

28337

tcl_result = Tcl_GetObjResult(interp);

28338

if ((objc < 3) || (objc > 3)) {

28339

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_name_set { sacServiceRec * } { ib_svc_name_t * } ",-1);

28340

return TCL_ERROR;

28341

}

28342

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28343

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_name_set. Expected _sacServiceRec_p, received ", -1);

28344

Tcl_AppendToObj(tcl_result, rettype, -1);

28345

return TCL_ERROR;

28346

}

28347

{

28348

char *p_name;

28349

int l;

28350

p_name = Tcl_GetStringFromObj(objv[2], &l);

28351

if (l > 63) l = 63;

28352

memcpy(n, p_name, l);

28353

_arg1 = &n;

28354

}

28355

{

28356

/* we can check if IBIS was initialized here */

28357

if (!IbisObj.initialized)

28358

{

28359

Tcl_SetStringObj(

28360

Tcl_GetObjResult(interp),

28361

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28362

return TCL_ERROR;

28363

}

28364

28365

if (! IbisObj.port_guid)

28366

{

28367

Tcl_SetStringObj(

28368

Tcl_GetObjResult(interp),

28369

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28370

return TCL_ERROR;

28371

}

28372

28373

ibis_tcl_error = 0;

28374

_result = (ib_svc_name_t *)_ib_service_record_service_name_set(_arg0,_arg1);

28375

;

28376

if (ibis_tcl_error) {

28377

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28378

return TCL_ERROR;

28379

}

28380

} tcl_result = Tcl_GetObjResult(interp);

28381

{

28382

char buff[64];

28383

strncpy(buff, (char *)(*_result), 63);

28384

buff[63] = '\0';

28385

Tcl_SetStringObj(tcl_result,buff, strlen(buff));

28386

}

28387

return TCL_OK;

28388

}

28389

#define _ib_service_record_service_name_get(_swigobj) (&_swigobj->service_name)

28390

static int _wrap_sacServiceRec_service_name_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28391

28392

ib_svc_name_t * _result;

28393

sacServiceRec * _arg0;

28394

Tcl_Obj * tcl_result;

28395

char * rettype;

28396

28397

clientData = clientData; objv = objv;

28398

tcl_result = Tcl_GetObjResult(interp);

28399

if ((objc < 2) || (objc > 2)) {

28400

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_name_get { sacServiceRec * } ",-1);

28401

return TCL_ERROR;

28402

}

28403

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28404

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_name_get. Expected _sacServiceRec_p, received ", -1);

28405

Tcl_AppendToObj(tcl_result, rettype, -1);

28406

return TCL_ERROR;

28407

}

28408

{

28409

/* we can check if IBIS was initialized here */

28410

if (!IbisObj.initialized)

28411

{

28412

Tcl_SetStringObj(

28413

Tcl_GetObjResult(interp),

28414

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28415

return TCL_ERROR;

28416

}

28417

28418

if (! IbisObj.port_guid)

28419

{

28420

Tcl_SetStringObj(

28421

Tcl_GetObjResult(interp),

28422

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28423

return TCL_ERROR;

28424

}

28425

28426

ibis_tcl_error = 0;

28427

_result = (ib_svc_name_t *)_ib_service_record_service_name_get(_arg0);

28428

;

28429

if (ibis_tcl_error) {

28430

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28431

return TCL_ERROR;

28432

}

28433

} tcl_result = Tcl_GetObjResult(interp);

28434

{

28435

char buff[64];

28436

strncpy(buff, (char *)(*_result), 63);

28437

buff[63] = '\0';

28438

Tcl_SetStringObj(tcl_result,buff, strlen(buff));

28439

}

28440

return TCL_OK;

28441

}

28442

static uint8_array_t * _ib_service_record_service_data8_set(sacServiceRec *obj, uint8_array_t val[16]) {

28443

{

28444

int i;

28445

for (i=0; i <16 ; i++) {

28446

obj->service_data8[i] = *(val+i);

28447

}

28448

}

28449

return (uint8_array_t *) val;

28450

}

28451

static int _wrap_sacServiceRec_service_data8_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28452

28453

uint8_array_t * _result;

28454

sacServiceRec * _arg0;

28455

uint8_array_t * _arg1;

28456

Tcl_Obj * tcl_result;

28457

char * rettype;

28458

uint8_t entrys[16];

28459

28460

clientData = clientData; objv = objv;

28461

tcl_result = Tcl_GetObjResult(interp);

28462

if ((objc < 3) || (objc > 3)) {

28463

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data8_set { sacServiceRec * } { uint8_array_t * } ",-1);

28464

return TCL_ERROR;

28465

}

28466

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28467

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data8_set. Expected _sacServiceRec_p, received ", -1);

28468

Tcl_AppendToObj(tcl_result, rettype, -1);

28469

return TCL_ERROR;

28470

}

28471

{

28472

char *buff;

28473

char *p_ch;

28474

char *last;

28475

long int entry;

28476

28477

int i = 0;

28478

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

28479

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

28480

p_ch = strtok_r(buff, " \t",&last);

28481

while (p_ch && (i < 16))

28482

{

28483

entry = strtol(p_ch, NULL, 0);

28484

if (entry > 0xff)

28485

{

28486

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

28487

return TCL_ERROR;

28488

}

28489

entrys[i++] = entry;

28490

p_ch = strtok_r(NULL, " \t", &last);

28491

}

28492

for (; i < 16; i++) entrys[i] = 0;

28493

28494

free(buff);

28495

_arg1 = entrys;

28496

}

28497

{

28498

/* we can check if IBIS was initialized here */

28499

if (!IbisObj.initialized)

28500

{

28501

Tcl_SetStringObj(

28502

Tcl_GetObjResult(interp),

28503

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28504

return TCL_ERROR;

28505

}

28506

28507

if (! IbisObj.port_guid)

28508

{

28509

Tcl_SetStringObj(

28510

Tcl_GetObjResult(interp),

28511

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28512

return TCL_ERROR;

28513

}

28514

28515

ibis_tcl_error = 0;

28516

_result = (uint8_array_t *)_ib_service_record_service_data8_set(_arg0,_arg1);

28517

;

28518

if (ibis_tcl_error) {

28519

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28520

return TCL_ERROR;

28521

}

28522

} tcl_result = Tcl_GetObjResult(interp);

28523

{

28524

int i;

28525

char buff[8];

28526

for (i=0; i <16 ; i++) {

28527

sprintf(buff, "0x%02x ", *(_result+i));

28528

Tcl_AppendResult(interp, buff, NULL);

28529

}

28530

}

28531

return TCL_OK;

28532

}

28533

#define _ib_service_record_service_data8_get(_swigobj) ((uint8_array_t *) _swigobj->service_data8)

28534

static int _wrap_sacServiceRec_service_data8_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28535

28536

uint8_array_t * _result;

28537

sacServiceRec * _arg0;

28538

Tcl_Obj * tcl_result;

28539

char * rettype;

28540

28541

clientData = clientData; objv = objv;

28542

tcl_result = Tcl_GetObjResult(interp);

28543

if ((objc < 2) || (objc > 2)) {

28544

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data8_get { sacServiceRec * } ",-1);

28545

return TCL_ERROR;

28546

}

28547

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28548

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data8_get. Expected _sacServiceRec_p, received ", -1);

28549

Tcl_AppendToObj(tcl_result, rettype, -1);

28550

return TCL_ERROR;

28551

}

28552

{

28553

/* we can check if IBIS was initialized here */

28554

if (!IbisObj.initialized)

28555

{

28556

Tcl_SetStringObj(

28557

Tcl_GetObjResult(interp),

28558

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28559

return TCL_ERROR;

28560

}

28561

28562

if (! IbisObj.port_guid)

28563

{

28564

Tcl_SetStringObj(

28565

Tcl_GetObjResult(interp),

28566

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28567

return TCL_ERROR;

28568

}

28569

28570

ibis_tcl_error = 0;

28571

_result = (uint8_array_t *)_ib_service_record_service_data8_get(_arg0);

28572

;

28573

if (ibis_tcl_error) {

28574

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28575

return TCL_ERROR;

28576

}

28577

} tcl_result = Tcl_GetObjResult(interp);

28578

{

28579

int i;

28580

char buff[8];

28581

for (i=0; i <16 ; i++) {

28582

sprintf(buff, "0x%02x ", *(_result+i));

28583

Tcl_AppendResult(interp, buff, NULL);

28584

}

28585

}

28586

return TCL_OK;

28587

}

28588

static ib_net16_array_t * _ib_service_record_service_data16_set(sacServiceRec *obj, ib_net16_array_t val[8]) {

28589

{

28590

int i;

28591

for (i=0; i <8 ; i++) {

28592

obj->service_data16[i] = *(val+i);

28593

}

28594

}

28595

return (ib_net16_array_t *) val;

28596

}

28597

static int _wrap_sacServiceRec_service_data16_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28598

28599

ib_net16_array_t * _result;

28600

sacServiceRec * _arg0;

28601

ib_net16_array_t * _arg1;

28602

Tcl_Obj * tcl_result;

28603

char * rettype;

28604

ib_net16_t entrys[8];

28605

28606

clientData = clientData; objv = objv;

28607

tcl_result = Tcl_GetObjResult(interp);

28608

if ((objc < 3) || (objc > 3)) {

28609

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data16_set { sacServiceRec * } { ib_net16_array_t * } ",-1);

28610

return TCL_ERROR;

28611

}

28612

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28613

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data16_set. Expected _sacServiceRec_p, received ", -1);

28614

Tcl_AppendToObj(tcl_result, rettype, -1);

28615

return TCL_ERROR;

28616

}

28617

{

28618

char *buff;

28619

char *p_ch;

28620

char *last;

28621

long int entry;

28622

28623

int i = 0;

28624

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

28625

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

28626

p_ch = strtok_r(buff, " \t",&last);

28627

while (p_ch && (i < 8))

28628

{

28629

entry = strtol(p_ch, NULL, 0);

28630

if (entry > 65535)

28631

{

28632

printf("Error: wrong format or out of range value for expected ib_net16_t entry: %s\n", p_ch);

28633

return TCL_ERROR;

28634

}

28635

entrys[i++] = cl_hton16(entry);

28636

p_ch = strtok_r(NULL, " \t", &last);

28637

}

28638

for (; i < 8; i++) entrys[i] = 0;

28639

28640

free(buff);

28641

_arg1 = entrys;

28642

}

28643

{

28644

/* we can check if IBIS was initialized here */

28645

if (!IbisObj.initialized)

28646

{

28647

Tcl_SetStringObj(

28648

Tcl_GetObjResult(interp),

28649

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28650

return TCL_ERROR;

28651

}

28652

28653

if (! IbisObj.port_guid)

28654

{

28655

Tcl_SetStringObj(

28656

Tcl_GetObjResult(interp),

28657

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28658

return TCL_ERROR;

28659

}

28660

28661

ibis_tcl_error = 0;

28662

_result = (ib_net16_array_t *)_ib_service_record_service_data16_set(_arg0,_arg1);

28663

;

28664

if (ibis_tcl_error) {

28665

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28666

return TCL_ERROR;

28667

}

28668

} tcl_result = Tcl_GetObjResult(interp);

28669

{

28670

int i;

28671

char buff[8];

28672

for (i=0; i <8 ; i++) {

28673

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

28674

Tcl_AppendResult(interp, buff, NULL);

28675

}

28676

}

28677

return TCL_OK;

28678

}

28679

#define _ib_service_record_service_data16_get(_swigobj) ((ib_net16_array_t *) _swigobj->service_data16)

28680

static int _wrap_sacServiceRec_service_data16_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28681

28682

ib_net16_array_t * _result;

28683

sacServiceRec * _arg0;

28684

Tcl_Obj * tcl_result;

28685

char * rettype;

28686

28687

clientData = clientData; objv = objv;

28688

tcl_result = Tcl_GetObjResult(interp);

28689

if ((objc < 2) || (objc > 2)) {

28690

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data16_get { sacServiceRec * } ",-1);

28691

return TCL_ERROR;

28692

}

28693

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28694

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data16_get. Expected _sacServiceRec_p, received ", -1);

28695

Tcl_AppendToObj(tcl_result, rettype, -1);

28696

return TCL_ERROR;

28697

}

28698

{

28699

/* we can check if IBIS was initialized here */

28700

if (!IbisObj.initialized)

28701

{

28702

Tcl_SetStringObj(

28703

Tcl_GetObjResult(interp),

28704

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28705

return TCL_ERROR;

28706

}

28707

28708

if (! IbisObj.port_guid)

28709

{

28710

Tcl_SetStringObj(

28711

Tcl_GetObjResult(interp),

28712

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28713

return TCL_ERROR;

28714

}

28715

28716

ibis_tcl_error = 0;

28717

_result = (ib_net16_array_t *)_ib_service_record_service_data16_get(_arg0);

28718

;

28719

if (ibis_tcl_error) {

28720

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28721

return TCL_ERROR;

28722

}

28723

} tcl_result = Tcl_GetObjResult(interp);

28724

{

28725

int i;

28726

char buff[8];

28727

for (i=0; i <8 ; i++) {

28728

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

28729

Tcl_AppendResult(interp, buff, NULL);

28730

}

28731

}

28732

return TCL_OK;

28733

}

28734

static ib_net32_array_t * _ib_service_record_service_data32_set(sacServiceRec *obj, ib_net32_array_t val[4]) {

28735

{

28736

int i;

28737

for (i=0; i <4 ; i++) {

28738

obj->service_data32[i] = *(val+i);

28739

}

28740

}

28741

return (ib_net32_array_t *) val;

28742

}

28743

static int _wrap_sacServiceRec_service_data32_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28744

28745

ib_net32_array_t * _result;

28746

sacServiceRec * _arg0;

28747

ib_net32_array_t * _arg1;

28748

Tcl_Obj * tcl_result;

28749

char * rettype;

28750

ib_net32_t entrys[4];

28751

28752

clientData = clientData; objv = objv;

28753

tcl_result = Tcl_GetObjResult(interp);

28754

if ((objc < 3) || (objc > 3)) {

28755

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data32_set { sacServiceRec * } { ib_net32_array_t * } ",-1);

28756

return TCL_ERROR;

28757

}

28758

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28759

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data32_set. Expected _sacServiceRec_p, received ", -1);

28760

Tcl_AppendToObj(tcl_result, rettype, -1);

28761

return TCL_ERROR;

28762

}

28763

{

28764

char *buff;

28765

char *p_ch;

28766

char *last;

28767

uint32_t entry;

28768

28769

int i = 0;

28770

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

28771

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

28772

p_ch = strtok_r(buff, " \t",&last);

28773

while (p_ch && (i < 4))

28774

{

28775

entry = strtol(p_ch, NULL, 0);

28776

if (entry > 0xffffffff)

28777

{

28778

printf("Error: wrong format or out of range value for expected ib_net32_t entry: %s\n", p_ch);

28779

return TCL_ERROR;

28780

}

28781

entrys[i++] = cl_hton32(entry);

28782

p_ch = strtok_r(NULL, " \t", &last);

28783

}

28784

for (; i < 4; i++) entrys[i] = 0;

28785

28786

free(buff);

28787

_arg1 = entrys;

28788

}

28789

{

28790

/* we can check if IBIS was initialized here */

28791

if (!IbisObj.initialized)

28792

{

28793

Tcl_SetStringObj(

28794

Tcl_GetObjResult(interp),

28795

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28796

return TCL_ERROR;

28797

}

28798

28799

if (! IbisObj.port_guid)

28800

{

28801

Tcl_SetStringObj(

28802

Tcl_GetObjResult(interp),

28803

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28804

return TCL_ERROR;

28805

}

28806

28807

ibis_tcl_error = 0;

28808

_result = (ib_net32_array_t *)_ib_service_record_service_data32_set(_arg0,_arg1);

28809

;

28810

if (ibis_tcl_error) {

28811

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28812

return TCL_ERROR;

28813

}

28814

} tcl_result = Tcl_GetObjResult(interp);

28815

{

28816

int i;

28817

char buff[12];

28818

for (i=0; i <4 ; i++) {

28819

sprintf(buff, "0x%08x ", cl_ntoh32(*(_result+i)));

28820

Tcl_AppendResult(interp, buff, NULL);

28821

}

28822

}

28823

return TCL_OK;

28824

}

28825

#define _ib_service_record_service_data32_get(_swigobj) ((ib_net32_array_t *) _swigobj->service_data32)

28826

static int _wrap_sacServiceRec_service_data32_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28827

28828

ib_net32_array_t * _result;

28829

sacServiceRec * _arg0;

28830

Tcl_Obj * tcl_result;

28831

char * rettype;

28832

28833

clientData = clientData; objv = objv;

28834

tcl_result = Tcl_GetObjResult(interp);

28835

if ((objc < 2) || (objc > 2)) {

28836

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data32_get { sacServiceRec * } ",-1);

28837

return TCL_ERROR;

28838

}

28839

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28840

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data32_get. Expected _sacServiceRec_p, received ", -1);

28841

Tcl_AppendToObj(tcl_result, rettype, -1);

28842

return TCL_ERROR;

28843

}

28844

{

28845

/* we can check if IBIS was initialized here */

28846

if (!IbisObj.initialized)

28847

{

28848

Tcl_SetStringObj(

28849

Tcl_GetObjResult(interp),

28850

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28851

return TCL_ERROR;

28852

}

28853

28854

if (! IbisObj.port_guid)

28855

{

28856

Tcl_SetStringObj(

28857

Tcl_GetObjResult(interp),

28858

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28859

return TCL_ERROR;

28860

}

28861

28862

ibis_tcl_error = 0;

28863

_result = (ib_net32_array_t *)_ib_service_record_service_data32_get(_arg0);

28864

;

28865

if (ibis_tcl_error) {

28866

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28867

return TCL_ERROR;

28868

}

28869

} tcl_result = Tcl_GetObjResult(interp);

28870

{

28871

int i;

28872

char buff[12];

28873

for (i=0; i <4 ; i++) {

28874

sprintf(buff, "0x%08x ", cl_ntoh32(*(_result+i)));

28875

Tcl_AppendResult(interp, buff, NULL);

28876

}

28877

}

28878

return TCL_OK;

28879

}

28880

static ib_net64_array_t * _ib_service_record_service_data64_set(sacServiceRec *obj, ib_net64_array_t val[2]) {

28881

{

28882

int i;

28883

for (i=0; i <2 ; i++) {

28884

obj->service_data64[i] = *(val+i);

28885

}

28886

}

28887

return (ib_net64_array_t *) val;

28888

}

28889

static int _wrap_sacServiceRec_service_data64_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28890

28891

ib_net64_array_t * _result;

28892

sacServiceRec * _arg0;

28893

ib_net64_array_t * _arg1;

28894

Tcl_Obj * tcl_result;

28895

char * rettype;

28896

ib_net64_t entrys[2];

28897

28898

clientData = clientData; objv = objv;

28899

tcl_result = Tcl_GetObjResult(interp);

28900

if ((objc < 3) || (objc > 3)) {

28901

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data64_set { sacServiceRec * } { ib_net64_array_t * } ",-1);

28902

return TCL_ERROR;

28903

}

28904

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28905

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data64_set. Expected _sacServiceRec_p, received ", -1);

28906

Tcl_AppendToObj(tcl_result, rettype, -1);

28907

return TCL_ERROR;

28908

}

28909

{

28910

char *buff;

28911

char *p_ch;

28912

char *last;

28913

uint64_t entry;

28914

28915

int i = 0;

28916

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

28917

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

28918

p_ch = strtok_r(buff, " \t",&last);

28919

while (p_ch && (i < 2))

28920

{

28921

entry = strtoll(p_ch, NULL, 0);

28922

if (entry > 0xffffffffffffffffULL )

28923

{

28924

printf("Error: wrong format or out of range value for expected ib_net64_t entry: %s\n", p_ch);

28925

return TCL_ERROR;

28926

}

28927

entrys[i++] = cl_hton64(entry);

28928

p_ch = strtok_r(NULL, " \t", &last);

28929

}

28930

for (; i < 2; i++) entrys[i] = 0;

28931

28932

free(buff);

28933

_arg1 = entrys;

28934

}

28935

{

28936

/* we can check if IBIS was initialized here */

28937

if (!IbisObj.initialized)

28938

{

28939

Tcl_SetStringObj(

28940

Tcl_GetObjResult(interp),

28941

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28942

return TCL_ERROR;

28943

}

28944

28945

if (! IbisObj.port_guid)

28946

{

28947

Tcl_SetStringObj(

28948

Tcl_GetObjResult(interp),

28949

" ibis was not yet initialized. please use ibis_set_port before.", -1);

28950

return TCL_ERROR;

28951

}

28952

28953

ibis_tcl_error = 0;

28954

_result = (ib_net64_array_t *)_ib_service_record_service_data64_set(_arg0,_arg1);

28955

;

28956

if (ibis_tcl_error) {

28957

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

28958

return TCL_ERROR;

28959

}

28960

} tcl_result = Tcl_GetObjResult(interp);

28961

{

28962

int i;

28963

char buff[20];

28964

for (i=0; i <2 ; i++) {

28965

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

28966

Tcl_AppendResult(interp, buff, NULL);

28967

}

28968

}

28969

return TCL_OK;

28970

}

28971

#define _ib_service_record_service_data64_get(_swigobj) ((ib_net64_array_t *) _swigobj->service_data64)

28972

static int _wrap_sacServiceRec_service_data64_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

28973

28974

ib_net64_array_t * _result;

28975

sacServiceRec * _arg0;

28976

Tcl_Obj * tcl_result;

28977

char * rettype;

28978

28979

clientData = clientData; objv = objv;

28980

tcl_result = Tcl_GetObjResult(interp);

28981

if ((objc < 2) || (objc > 2)) {

28982

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_service_data64_get { sacServiceRec * } ",-1);

28983

return TCL_ERROR;

28984

}

28985

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

28986

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_service_data64_get. Expected _sacServiceRec_p, received ", -1);

28987

Tcl_AppendToObj(tcl_result, rettype, -1);

28988

return TCL_ERROR;

28989

}

28990

{

28991

/* we can check if IBIS was initialized here */

28992

if (!IbisObj.initialized)

28993

{

28994

Tcl_SetStringObj(

28995

Tcl_GetObjResult(interp),

28996

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

28997

return TCL_ERROR;

28998

}

28999

29000

if (! IbisObj.port_guid)

29001

{

29002

Tcl_SetStringObj(

29003

Tcl_GetObjResult(interp),

29004

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29005

return TCL_ERROR;

29006

}

29007

29008

ibis_tcl_error = 0;

29009

_result = (ib_net64_array_t *)_ib_service_record_service_data64_get(_arg0);

29010

;

29011

if (ibis_tcl_error) {

29012

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29013

return TCL_ERROR;

29014

}

29015

} tcl_result = Tcl_GetObjResult(interp);

29016

{

29017

int i;

29018

char buff[20];

29019

for (i=0; i <2 ; i++) {

29020

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

29021

Tcl_AppendResult(interp, buff, NULL);

29022

}

29023

}

29024

return TCL_OK;

29025

}

29026

static char * sacServiceRec_get(sacServiceRec *self,uint64_t comp_mask) {

29027

return(ibsacServiceRecordQuery(self, cl_hton64(comp_mask),

29028

IB_MAD_METHOD_GET));

29029

}

29030

static int _wrap_sacServiceRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29031

29032

char * _result;

29033

sacServiceRec * _arg0;

29034

uint64_t * _arg1;

29035

Tcl_Obj * tcl_result;

29036

char * rettype;

29037

uint64_t temp;

29038

29039

clientData = clientData; objv = objv;

29040

tcl_result = Tcl_GetObjResult(interp);

29041

if ((objc < 3) || (objc > 3)) {

29042

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_get { sacServiceRec * } comp_mask ",-1);

29043

return TCL_ERROR;

29044

}

29045

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

29046

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_get. Expected _sacServiceRec_p, received ", -1);

29047

Tcl_AppendToObj(tcl_result, rettype, -1);

29048

return TCL_ERROR;

29049

}

29050

{

29051

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

29052

_arg1 = &temp;

29053

}

29054

{

29055

/* we can check if IBIS was initialized here */

29056

if (!IbisObj.initialized)

29057

{

29058

Tcl_SetStringObj(

29059

Tcl_GetObjResult(interp),

29060

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29061

return TCL_ERROR;

29062

}

29063

29064

if (! IbisObj.port_guid)

29065

{

29066

Tcl_SetStringObj(

29067

Tcl_GetObjResult(interp),

29068

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29069

return TCL_ERROR;

29070

}

29071

29072

ibis_tcl_error = 0;

29073

_result = (char *)sacServiceRec_get(_arg0,*_arg1);

29074

;

29075

if (ibis_tcl_error) {

29076

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29077

return TCL_ERROR;

29078

}

29079

} tcl_result = Tcl_GetObjResult(interp);

29080

Tcl_SetStringObj(tcl_result,_result,-1);

29081

free(_result);

29082

29083

return TCL_OK;

29084

}

29085

static char * sacServiceRec_set(sacServiceRec *self,uint64_t comp_mask) {

29086

return(ibsacServiceRecordQuery(self, cl_hton64(comp_mask),

29087

IB_MAD_METHOD_SET));

29088

}

29089

static int _wrap_sacServiceRec_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29090

29091

char * _result;

29092

sacServiceRec * _arg0;

29093

uint64_t * _arg1;

29094

Tcl_Obj * tcl_result;

29095

char * rettype;

29096

uint64_t temp;

29097

29098

clientData = clientData; objv = objv;

29099

tcl_result = Tcl_GetObjResult(interp);

29100

if ((objc < 3) || (objc > 3)) {

29101

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_set { sacServiceRec * } comp_mask ",-1);

29102

return TCL_ERROR;

29103

}

29104

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

29105

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_set. Expected _sacServiceRec_p, received ", -1);

29106

Tcl_AppendToObj(tcl_result, rettype, -1);

29107

return TCL_ERROR;

29108

}

29109

{

29110

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

29111

_arg1 = &temp;

29112

}

29113

{

29114

/* we can check if IBIS was initialized here */

29115

if (!IbisObj.initialized)

29116

{

29117

Tcl_SetStringObj(

29118

Tcl_GetObjResult(interp),

29119

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29120

return TCL_ERROR;

29121

}

29122

29123

if (! IbisObj.port_guid)

29124

{

29125

Tcl_SetStringObj(

29126

Tcl_GetObjResult(interp),

29127

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29128

return TCL_ERROR;

29129

}

29130

29131

ibis_tcl_error = 0;

29132

_result = (char *)sacServiceRec_set(_arg0,*_arg1);

29133

;

29134

if (ibis_tcl_error) {

29135

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29136

return TCL_ERROR;

29137

}

29138

} tcl_result = Tcl_GetObjResult(interp);

29139

Tcl_SetStringObj(tcl_result,_result,-1);

29140

free(_result);

29141

29142

return TCL_OK;

29143

}

29144

static char * sacServiceRec_getTable(sacServiceRec *self,uint64_t comp_mask) {

29145

return(ibsacServiceRecordQuery(self, cl_hton64(comp_mask),

29146

IB_MAD_METHOD_GETTABLE));

29147

}

29148

static int _wrap_sacServiceRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29149

29150

char * _result;

29151

sacServiceRec * _arg0;

29152

uint64_t * _arg1;

29153

Tcl_Obj * tcl_result;

29154

char * rettype;

29155

uint64_t temp;

29156

29157

clientData = clientData; objv = objv;

29158

tcl_result = Tcl_GetObjResult(interp);

29159

if ((objc < 3) || (objc > 3)) {

29160

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_getTable { sacServiceRec * } comp_mask ",-1);

29161

return TCL_ERROR;

29162

}

29163

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

29164

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_getTable. Expected _sacServiceRec_p, received ", -1);

29165

Tcl_AppendToObj(tcl_result, rettype, -1);

29166

return TCL_ERROR;

29167

}

29168

{

29169

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

29170

_arg1 = &temp;

29171

}

29172

{

29173

/* we can check if IBIS was initialized here */

29174

if (!IbisObj.initialized)

29175

{

29176

Tcl_SetStringObj(

29177

Tcl_GetObjResult(interp),

29178

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29179

return TCL_ERROR;

29180

}

29181

29182

if (! IbisObj.port_guid)

29183

{

29184

Tcl_SetStringObj(

29185

Tcl_GetObjResult(interp),

29186

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29187

return TCL_ERROR;

29188

}

29189

29190

ibis_tcl_error = 0;

29191

_result = (char *)sacServiceRec_getTable(_arg0,*_arg1);

29192

;

29193

if (ibis_tcl_error) {

29194

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29195

return TCL_ERROR;

29196

}

29197

} tcl_result = Tcl_GetObjResult(interp);

29198

Tcl_SetStringObj(tcl_result,_result,-1);

29199

free(_result);

29200

29201

return TCL_OK;

29202

}

29203

static char * sacServiceRec_delete(sacServiceRec *self,uint64_t comp_mask) {

29204

return(ibsacServiceRecordQuery(self, cl_hton64(comp_mask),

29205

IB_MAD_METHOD_DELETE));

29206

}

29207

static int _wrap_sacServiceRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29208

29209

char * _result;

29210

sacServiceRec * _arg0;

29211

uint64_t * _arg1;

29212

Tcl_Obj * tcl_result;

29213

char * rettype;

29214

uint64_t temp;

29215

29216

clientData = clientData; objv = objv;

29217

tcl_result = Tcl_GetObjResult(interp);

29218

if ((objc < 3) || (objc > 3)) {

29219

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_delete { sacServiceRec * } comp_mask ",-1);

29220

return TCL_ERROR;

29221

}

29222

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

29223

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_delete. Expected _sacServiceRec_p, received ", -1);

29224

Tcl_AppendToObj(tcl_result, rettype, -1);

29225

return TCL_ERROR;

29226

}

29227

{

29228

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

29229

_arg1 = &temp;

29230

}

29231

{

29232

/* we can check if IBIS was initialized here */

29233

if (!IbisObj.initialized)

29234

{

29235

Tcl_SetStringObj(

29236

Tcl_GetObjResult(interp),

29237

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29238

return TCL_ERROR;

29239

}

29240

29241

if (! IbisObj.port_guid)

29242

{

29243

Tcl_SetStringObj(

29244

Tcl_GetObjResult(interp),

29245

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29246

return TCL_ERROR;

29247

}

29248

29249

ibis_tcl_error = 0;

29250

_result = (char *)sacServiceRec_delete(_arg0,*_arg1);

29251

;

29252

if (ibis_tcl_error) {

29253

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29254

return TCL_ERROR;

29255

}

29256

} tcl_result = Tcl_GetObjResult(interp);

29257

Tcl_SetStringObj(tcl_result,_result,-1);

29258

free(_result);

29259

29260

return TCL_OK;

29261

}

29262

static void sacServiceRec_obj_delete(sacServiceRec *self) {

29263

SWIG_AltMnglUnregObj(self);

29264

free(self);

29265

}

29266

static int _wrap_sacServiceRec_obj_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29267

29268

sacServiceRec * _arg0;

29269

Tcl_Obj * tcl_result;

29270

char * rettype;

29271

29272

clientData = clientData; objv = objv;

29273

tcl_result = Tcl_GetObjResult(interp);

29274

if ((objc < 2) || (objc > 2)) {

29275

Tcl_SetStringObj(tcl_result,"Wrong # args. sacServiceRec_obj_delete { sacServiceRec * } ",-1);

29276

return TCL_ERROR;

29277

}

29278

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacServiceRec_p"))) {

29279

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacServiceRec_obj_delete. Expected _sacServiceRec_p, received ", -1);

29280

Tcl_AppendToObj(tcl_result, rettype, -1);

29281

return TCL_ERROR;

29282

}

29283

{

29284

/* we can check if IBIS was initialized here */

29285

if (!IbisObj.initialized)

29286

{

29287

Tcl_SetStringObj(

29288

Tcl_GetObjResult(interp),

29289

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29290

return TCL_ERROR;

29291

}

29292

29293

if (! IbisObj.port_guid)

29294

{

29295

Tcl_SetStringObj(

29296

Tcl_GetObjResult(interp),

29297

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29298

return TCL_ERROR;

29299

}

29300

29301

ibis_tcl_error = 0;

29302

sacServiceRec_obj_delete(_arg0);

29303

;

29304

if (ibis_tcl_error) {

29305

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29306

return TCL_ERROR;

29307

}

29308

} tcl_result = Tcl_GetObjResult(interp);

29309

return TCL_OK;

29310

}

29311

/* methodcmd8.swg : Tcl8.x method invocation */

29312

29313

static int TclsacServiceRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

29314

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

29315

char *_str;

29316

int rcode;

29317

Tcl_Obj **objv;

29318

Tcl_Obj *oldarg,*tcl_result,*obj;

29319

int length;

29320

char c;

29321

29322

tcl_result = Tcl_GetObjResult(interp);

29323

objv = (Tcl_Obj **) _objv;

29324

if (objc < 2) {

29325

Tcl_SetStringObj(tcl_result,"sacServiceRec methods : { dump cget configure get set getTable delete obj_delete }",-1);

29326

return TCL_ERROR;

29327

}

29328

obj = Tcl_NewObj();

29329

SWIG_SetPointerObj(obj,(void *) clientData,"_sacServiceRec_p");

29330

_str = Tcl_GetStringFromObj(objv[1],&length);

29331

c = *_str;

29332

if (0);

29333

if (strcmp(_str,"get") == 0) {

29334

cmd = _wrap_sacServiceRec_get;

29335

} else if (strcmp(_str,"set") == 0) {

29336

cmd = _wrap_sacServiceRec_set;

29337

} else if (strcmp(_str,"getTable") == 0) {

29338

cmd = _wrap_sacServiceRec_getTable;

29339

} else if (strcmp(_str,"delete") == 0) {

29340

cmd = _wrap_sacServiceRec_delete;

29341

} else if (strcmp(_str,"obj_delete") == 0) {

29342

cmd = _wrap_sacServiceRec_obj_delete;

29343

}

29344

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

29345

int i = 2;

29346

cmd = 0;

29347

while (i+1 < objc) {

29348

_str = Tcl_GetStringFromObj(objv[i],&length);

29349

if (strcmp(_str,"-service_id") == 0) {

29350

cmd = _wrap_sacServiceRec_service_id_set;

29351

} else if (strcmp(_str,"-service_gid") == 0) {

29352

cmd = _wrap_sacServiceRec_service_gid_set;

29353

} else if (strcmp(_str,"-service_pkey") == 0) {

29354

cmd = _wrap_sacServiceRec_service_pkey_set;

29355

} else if (strcmp(_str,"-resv") == 0) {

29356

cmd = _wrap_sacServiceRec_resv_set;

29357

} else if (strcmp(_str,"-service_lease") == 0) {

29358

cmd = _wrap_sacServiceRec_service_lease_set;

29359

} else if (strcmp(_str,"-service_key") == 0) {

29360

cmd = _wrap_sacServiceRec_service_key_set;

29361

} else if (strcmp(_str,"-service_name") == 0) {

29362

cmd = _wrap_sacServiceRec_service_name_set;

29363

} else if (strcmp(_str,"-service_data8") == 0) {

29364

cmd = _wrap_sacServiceRec_service_data8_set;

29365

} else if (strcmp(_str,"-service_data16") == 0) {

29366

cmd = _wrap_sacServiceRec_service_data16_set;

29367

} else if (strcmp(_str,"-service_data32") == 0) {

29368

cmd = _wrap_sacServiceRec_service_data32_set;

29369

} else if (strcmp(_str,"-service_data64") == 0) {

29370

cmd = _wrap_sacServiceRec_service_data64_set;

29371

}

29372

if (cmd) {

29373

oldarg = objv[i];

29374

objv[i] = obj;

29375

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

29376

objv[i] = oldarg;

29377

if (rcode == TCL_ERROR) return rcode;

29378

cmd = 0;

29379

} else {

29380

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);

29381

return TCL_ERROR;

29382

}

29383

i+=2;

29384

}

29385

if ((i < objc) || (i == 2)) {

29386

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);

29387

return TCL_ERROR;

29388

}

29389

return TCL_OK;

29390

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

29391

if (objc == 3) {

29392

_str = Tcl_GetStringFromObj(objv[2],&length);

29393

if (0) {}

29394

if (strcmp(_str,"-service_id") == 0) {

29395

cmd = _wrap_sacServiceRec_service_id_get;

29396

} else if (strcmp(_str,"-service_gid") == 0) {

29397

cmd = _wrap_sacServiceRec_service_gid_get;

29398

} else if (strcmp(_str,"-service_pkey") == 0) {

29399

cmd = _wrap_sacServiceRec_service_pkey_get;

29400

} else if (strcmp(_str,"-resv") == 0) {

29401

cmd = _wrap_sacServiceRec_resv_get;

29402

} else if (strcmp(_str,"-service_lease") == 0) {

29403

cmd = _wrap_sacServiceRec_service_lease_get;

29404

} else if (strcmp(_str,"-service_key") == 0) {

29405

cmd = _wrap_sacServiceRec_service_key_get;

29406

} else if (strcmp(_str,"-service_name") == 0) {

29407

cmd = _wrap_sacServiceRec_service_name_get;

29408

} else if (strcmp(_str,"-service_data8") == 0) {

29409

cmd = _wrap_sacServiceRec_service_data8_get;

29410

} else if (strcmp(_str,"-service_data16") == 0) {

29411

cmd = _wrap_sacServiceRec_service_data16_get;

29412

} else if (strcmp(_str,"-service_data32") == 0) {

29413

cmd = _wrap_sacServiceRec_service_data32_get;

29414

} else if (strcmp(_str,"-service_data64") == 0) {

29415

cmd = _wrap_sacServiceRec_service_data64_get;

29416

}

29417

else if (strcmp(_str,"-this") == 0) {

29418

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacServiceRec_p");

29419

return TCL_OK;

29420

}

29421

if (cmd) {

29422

oldarg = objv[2];

29423

objv[2] = obj;

29424

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

29425

objv[2] = oldarg;

29426

return rcode;

29427

} else {

29428

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);

29429

return TCL_ERROR;

29430

}

29431

} else {

29432

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);

29433

return TCL_ERROR;

29434

}

29435

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

29436

if (objc == 2) {

29437

Tcl_Obj *pDumpObj;

29438

pDumpObj = Tcl_NewStringObj("",-1);

29439

Tcl_IncrRefCount(pDumpObj);

29440

cmd = _wrap_sacServiceRec_service_id_get;

29441

oldarg = objv[2];

29442

objv[2] = obj;

29443

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29444

objv[2] = oldarg;

29445

Tcl_AppendStringsToObj(pDumpObj, "-service_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29446

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29447

cmd = _wrap_sacServiceRec_service_gid_get;

29448

oldarg = objv[2];

29449

objv[2] = obj;

29450

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29451

objv[2] = oldarg;

29452

Tcl_AppendStringsToObj(pDumpObj, "-service_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29453

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29454

cmd = _wrap_sacServiceRec_service_pkey_get;

29455

oldarg = objv[2];

29456

objv[2] = obj;

29457

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29458

objv[2] = oldarg;

29459

Tcl_AppendStringsToObj(pDumpObj, "-service_pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29460

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29461

cmd = _wrap_sacServiceRec_resv_get;

29462

oldarg = objv[2];

29463

objv[2] = obj;

29464

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29465

objv[2] = oldarg;

29466

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29467

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29468

cmd = _wrap_sacServiceRec_service_lease_get;

29469

oldarg = objv[2];

29470

objv[2] = obj;

29471

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29472

objv[2] = oldarg;

29473

Tcl_AppendStringsToObj(pDumpObj, "-service_lease ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29474

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29475

cmd = _wrap_sacServiceRec_service_key_get;

29476

oldarg = objv[2];

29477

objv[2] = obj;

29478

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29479

objv[2] = oldarg;

29480

Tcl_AppendStringsToObj(pDumpObj, "-service_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29481

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29482

cmd = _wrap_sacServiceRec_service_name_get;

29483

oldarg = objv[2];

29484

objv[2] = obj;

29485

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29486

objv[2] = oldarg;

29487

Tcl_AppendStringsToObj(pDumpObj, "-service_name ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29488

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29489

cmd = _wrap_sacServiceRec_service_data8_get;

29490

oldarg = objv[2];

29491

objv[2] = obj;

29492

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29493

objv[2] = oldarg;

29494

Tcl_AppendStringsToObj(pDumpObj, "-service_data8 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29495

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29496

cmd = _wrap_sacServiceRec_service_data16_get;

29497

oldarg = objv[2];

29498

objv[2] = obj;

29499

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29500

objv[2] = oldarg;

29501

Tcl_AppendStringsToObj(pDumpObj, "-service_data16 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29502

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29503

cmd = _wrap_sacServiceRec_service_data32_get;

29504

oldarg = objv[2];

29505

objv[2] = obj;

29506

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29507

objv[2] = oldarg;

29508

Tcl_AppendStringsToObj(pDumpObj, "-service_data32 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29509

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29510

cmd = _wrap_sacServiceRec_service_data64_get;

29511

oldarg = objv[2];

29512

objv[2] = obj;

29513

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29514

objv[2] = oldarg;

29515

Tcl_AppendStringsToObj(pDumpObj, "-service_data64 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29516

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29517

29518

Tcl_DecrRefCount(pDumpObj);

29519

return TCL_OK;

29520

} else {

29521

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

29522

return TCL_ERROR;

29523

}

29524

}

29525

if (!cmd) {

29526

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get set getTable delete obj_delete }",-1);

29527

return TCL_ERROR;

29528

}

29529

oldarg = objv[1];

29530

objv[1] = obj;

29531

rcode = (*cmd)(clientData,interp,objc,objv);

29532

objv[1] = oldarg;

29533

return rcode;

29534

}

29535

29536

29537

29538

/* objcmd8.swg : Tcl 8.x object creation */

29539

29540

static int TclsacServiceRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29541

void (*del)(ClientData) = 0;

29542

char *name = 0;

29543

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

29544

sacServiceRec * newObj = 0;

29545

int firstarg = 0;

29546

int thisarg = 0;

29547

int length;

29548

char *_str;

29549

Tcl_Obj *tcl_result;

29550

29551

tcl_result = Tcl_GetObjResult(interp);

29552

if (objc == 1) {

29553

cmd = 0;

29554

} else {

29555

_str = Tcl_GetStringFromObj(objv[1],&length);

29556

if (strcmp(_str,"-this") == 0) thisarg = 2;

29557

else if (strcmp(_str,"-args") == 0) {

29558

firstarg = 1;

29559

cmd = 0;

29560

} else if (objc == 2) {

29561

firstarg = 1;

29562

name = _str;

29563

cmd = 0;

29564

} else if (objc >= 3) {

29565

name = _str;

29566

_str = Tcl_GetStringFromObj(objv[2],&length);

29567

if (strcmp(_str,"-this") == 0) thisarg = 3;

29568

else {

29569

firstarg = 1;

29570

cmd = 0;

29571

}

29572

}

29573

}

29574

if (cmd) {

29575

int result;

29576

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

29577

if (result == TCL_OK) {

29578

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacServiceRec_p");

29579

} else { return result; }

29580

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

29581

del = 0;

29582

} else if (thisarg > 0) {

29583

if (thisarg < objc) {

29584

char *r;

29585

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacServiceRec_p");

29586

if (r) {

29587

Tcl_SetStringObj(tcl_result,"Type error. not a sacServiceRec object.",-1);

29588

return TCL_ERROR;

29589

}

29590

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

29591

Tcl_SetStringObj(tcl_result,name,-1);

29592

} else {

29593

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

29594

return TCL_ERROR;

29595

}

29596

} else {

29597

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

29598

return TCL_ERROR;

29599

}

29600

{

29601

Tcl_CmdInfo dummy;

29602

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

29603

Tcl_CreateObjCommand(interp,name, TclsacServiceRecMethodCmd, (ClientData) newObj, del);

29604

return TCL_OK;

29605

} else {

29606

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

29607

return TCL_ERROR;

29608

}

29609

}

29610

}

29611

29612

29613

static uint8_array_t * _ib_slvl_table_raw_vl_by_sl_set(sacSlVlTbl *obj, uint8_array_t val[IB_MAX_NUM_VLS/2]) {

29614

{

29615

int i;

29616

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

29617

obj->raw_vl_by_sl[i] = *(val+i);

29618

}

29619

}

29620

return (uint8_array_t *) val;

29621

}

29622

static int _wrap_sacSlVlTbl_raw_vl_by_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29623

29624

uint8_array_t * _result;

29625

sacSlVlTbl * _arg0;

29626

uint8_array_t * _arg1;

29627

Tcl_Obj * tcl_result;

29628

char * rettype;

29629

uint8_t entrys[IB_MAX_NUM_VLS/2];

29630

29631

clientData = clientData; objv = objv;

29632

tcl_result = Tcl_GetObjResult(interp);

29633

if ((objc < 3) || (objc > 3)) {

29634

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlTbl_raw_vl_by_sl_set { sacSlVlTbl * } { uint8_array_t * } ",-1);

29635

return TCL_ERROR;

29636

}

29637

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlTbl_p"))) {

29638

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlTbl_raw_vl_by_sl_set. Expected _sacSlVlTbl_p, received ", -1);

29639

Tcl_AppendToObj(tcl_result, rettype, -1);

29640

return TCL_ERROR;

29641

}

29642

{

29643

char *buff;

29644

char *p_ch;

29645

char *last;

29646

long int entry;

29647

29648

int i = 0;

29649

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

29650

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

29651

p_ch = strtok_r(buff, " \t",&last);

29652

while (p_ch && (i < IB_MAX_NUM_VLS/2))

29653

{

29654

entry = strtol(p_ch, NULL, 0);

29655

if (entry > 0xff)

29656

{

29657

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

29658

return TCL_ERROR;

29659

}

29660

entrys[i++] = entry;

29661

p_ch = strtok_r(NULL, " \t", &last);

29662

}

29663

for (; i < IB_MAX_NUM_VLS/2; i++) entrys[i] = 0;

29664

29665

free(buff);

29666

_arg1 = entrys;

29667

}

29668

{

29669

/* we can check if IBIS was initialized here */

29670

if (!IbisObj.initialized)

29671

{

29672

Tcl_SetStringObj(

29673

Tcl_GetObjResult(interp),

29674

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29675

return TCL_ERROR;

29676

}

29677

29678

if (! IbisObj.port_guid)

29679

{

29680

Tcl_SetStringObj(

29681

Tcl_GetObjResult(interp),

29682

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29683

return TCL_ERROR;

29684

}

29685

29686

ibis_tcl_error = 0;

29687

_result = (uint8_array_t *)_ib_slvl_table_raw_vl_by_sl_set(_arg0,_arg1);

29688

;

29689

if (ibis_tcl_error) {

29690

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29691

return TCL_ERROR;

29692

}

29693

} tcl_result = Tcl_GetObjResult(interp);

29694

{

29695

int i;

29696

char buff[8];

29697

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

29698

sprintf(buff, "0x%02x ", *(_result+i));

29699

Tcl_AppendResult(interp, buff, NULL);

29700

}

29701

}

29702

return TCL_OK;

29703

}

29704

#define _ib_slvl_table_raw_vl_by_sl_get(_swigobj) ((uint8_array_t *) _swigobj->raw_vl_by_sl)

29705

static int _wrap_sacSlVlTbl_raw_vl_by_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29706

29707

uint8_array_t * _result;

29708

sacSlVlTbl * _arg0;

29709

Tcl_Obj * tcl_result;

29710

char * rettype;

29711

29712

clientData = clientData; objv = objv;

29713

tcl_result = Tcl_GetObjResult(interp);

29714

if ((objc < 2) || (objc > 2)) {

29715

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlTbl_raw_vl_by_sl_get { sacSlVlTbl * } ",-1);

29716

return TCL_ERROR;

29717

}

29718

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlTbl_p"))) {

29719

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlTbl_raw_vl_by_sl_get. Expected _sacSlVlTbl_p, received ", -1);

29720

Tcl_AppendToObj(tcl_result, rettype, -1);

29721

return TCL_ERROR;

29722

}

29723

{

29724

/* we can check if IBIS was initialized here */

29725

if (!IbisObj.initialized)

29726

{

29727

Tcl_SetStringObj(

29728

Tcl_GetObjResult(interp),

29729

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29730

return TCL_ERROR;

29731

}

29732

29733

if (! IbisObj.port_guid)

29734

{

29735

Tcl_SetStringObj(

29736

Tcl_GetObjResult(interp),

29737

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29738

return TCL_ERROR;

29739

}

29740

29741

ibis_tcl_error = 0;

29742

_result = (uint8_array_t *)_ib_slvl_table_raw_vl_by_sl_get(_arg0);

29743

;

29744

if (ibis_tcl_error) {

29745

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29746

return TCL_ERROR;

29747

}

29748

} tcl_result = Tcl_GetObjResult(interp);

29749

{

29750

int i;

29751

char buff[8];

29752

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

29753

sprintf(buff, "0x%02x ", *(_result+i));

29754

Tcl_AppendResult(interp, buff, NULL);

29755

}

29756

}

29757

return TCL_OK;

29758

}

29759

/* methodcmd8.swg : Tcl8.x method invocation */

29760

29761

static int TclsacSlVlTblMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

29762

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

29763

char *_str;

29764

int rcode;

29765

Tcl_Obj **objv;

29766

Tcl_Obj *oldarg,*tcl_result,*obj;

29767

int length;

29768

char c;

29769

29770

tcl_result = Tcl_GetObjResult(interp);

29771

objv = (Tcl_Obj **) _objv;

29772

if (objc < 2) {

29773

Tcl_SetStringObj(tcl_result,"sacSlVlTbl methods : { dump cget configure }",-1);

29774

return TCL_ERROR;

29775

}

29776

obj = Tcl_NewObj();

29777

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSlVlTbl_p");

29778

_str = Tcl_GetStringFromObj(objv[1],&length);

29779

c = *_str;

29780

if (0);

29781

29782

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

29783

int i = 2;

29784

cmd = 0;

29785

while (i+1 < objc) {

29786

_str = Tcl_GetStringFromObj(objv[i],&length);

29787

if (strcmp(_str,"-raw_vl_by_sl") == 0) {

29788

cmd = _wrap_sacSlVlTbl_raw_vl_by_sl_set;

29789

}

29790

if (cmd) {

29791

oldarg = objv[i];

29792

objv[i] = obj;

29793

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

29794

objv[i] = oldarg;

29795

if (rcode == TCL_ERROR) return rcode;

29796

cmd = 0;

29797

} else {

29798

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -raw_vl_by_sl }",-1);

29799

return TCL_ERROR;

29800

}

29801

i+=2;

29802

}

29803

if ((i < objc) || (i == 2)) {

29804

Tcl_SetStringObj(tcl_result,"{ -raw_vl_by_sl }",-1);

29805

return TCL_ERROR;

29806

}

29807

return TCL_OK;

29808

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

29809

if (objc == 3) {

29810

_str = Tcl_GetStringFromObj(objv[2],&length);

29811

if (0) {}

29812

if (strcmp(_str,"-raw_vl_by_sl") == 0) {

29813

cmd = _wrap_sacSlVlTbl_raw_vl_by_sl_get;

29814

}

29815

else if (strcmp(_str,"-this") == 0) {

29816

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSlVlTbl_p");

29817

return TCL_OK;

29818

}

29819

if (cmd) {

29820

oldarg = objv[2];

29821

objv[2] = obj;

29822

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

29823

objv[2] = oldarg;

29824

return rcode;

29825

} else {

29826

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -raw_vl_by_sl }",-1);

29827

return TCL_ERROR;

29828

}

29829

} else {

29830

Tcl_SetStringObj(tcl_result,"{ -this -raw_vl_by_sl }", -1);

29831

return TCL_ERROR;

29832

}

29833

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

29834

if (objc == 2) {

29835

Tcl_Obj *pDumpObj;

29836

pDumpObj = Tcl_NewStringObj("",-1);

29837

Tcl_IncrRefCount(pDumpObj);

29838

cmd = _wrap_sacSlVlTbl_raw_vl_by_sl_get;

29839

oldarg = objv[2];

29840

objv[2] = obj;

29841

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

29842

objv[2] = oldarg;

29843

Tcl_AppendStringsToObj(pDumpObj, "-raw_vl_by_sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

29844

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

29845

29846

Tcl_DecrRefCount(pDumpObj);

29847

return TCL_OK;

29848

} else {

29849

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

29850

return TCL_ERROR;

29851

}

29852

}

29853

if (!cmd) {

29854

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

29855

return TCL_ERROR;

29856

}

29857

oldarg = objv[1];

29858

objv[1] = obj;

29859

rcode = (*cmd)(clientData,interp,objc,objv);

29860

objv[1] = oldarg;

29861

return rcode;

29862

}

29863

29864

29865

29866

/* objcmd8.swg : Tcl 8.x object creation */

29867

29868

static int TclsacSlVlTblCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29869

void (*del)(ClientData) = 0;

29870

char *name = 0;

29871

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

29872

sacSlVlTbl * newObj = 0;

29873

int firstarg = 0;

29874

int thisarg = 0;

29875

int length;

29876

char *_str;

29877

Tcl_Obj *tcl_result;

29878

29879

tcl_result = Tcl_GetObjResult(interp);

29880

if (objc == 1) {

29881

cmd = 0;

29882

} else {

29883

_str = Tcl_GetStringFromObj(objv[1],&length);

29884

if (strcmp(_str,"-this") == 0) thisarg = 2;

29885

else if (strcmp(_str,"-args") == 0) {

29886

firstarg = 1;

29887

cmd = 0;

29888

} else if (objc == 2) {

29889

firstarg = 1;

29890

name = _str;

29891

cmd = 0;

29892

} else if (objc >= 3) {

29893

name = _str;

29894

_str = Tcl_GetStringFromObj(objv[2],&length);

29895

if (strcmp(_str,"-this") == 0) thisarg = 3;

29896

else {

29897

firstarg = 1;

29898

cmd = 0;

29899

}

29900

}

29901

}

29902

if (cmd) {

29903

int result;

29904

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

29905

if (result == TCL_OK) {

29906

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSlVlTbl_p");

29907

} else { return result; }

29908

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

29909

del = 0;

29910

} else if (thisarg > 0) {

29911

if (thisarg < objc) {

29912

char *r;

29913

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSlVlTbl_p");

29914

if (r) {

29915

Tcl_SetStringObj(tcl_result,"Type error. not a sacSlVlTbl object.",-1);

29916

return TCL_ERROR;

29917

}

29918

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

29919

Tcl_SetStringObj(tcl_result,name,-1);

29920

} else {

29921

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

29922

return TCL_ERROR;

29923

}

29924

} else {

29925

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

29926

return TCL_ERROR;

29927

}

29928

{

29929

Tcl_CmdInfo dummy;

29930

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

29931

Tcl_CreateObjCommand(interp,name, TclsacSlVlTblMethodCmd, (ClientData) newObj, del);

29932

return TCL_OK;

29933

} else {

29934

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

29935

return TCL_ERROR;

29936

}

29937

}

29938

}

29939

29940

29941

#define _ib_slvl_table_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

29942

static int _wrap_sacSlVlRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

29943

29944

ib_net16_t * _result;

29945

sacSlVlRec * _arg0;

29946

ib_net16_t * _arg1;

29947

Tcl_Obj * tcl_result;

29948

char * rettype;

29949

ib_net16_t temp;

29950

29951

clientData = clientData; objv = objv;

29952

tcl_result = Tcl_GetObjResult(interp);

29953

if ((objc < 3) || (objc > 3)) {

29954

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_lid_set { sacSlVlRec * } { ib_net16_t * } ",-1);

29955

return TCL_ERROR;

29956

}

29957

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

29958

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_lid_set. Expected _sacSlVlRec_p, received ", -1);

29959

Tcl_AppendToObj(tcl_result, rettype, -1);

29960

return TCL_ERROR;

29961

}

29962

{

29963

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

29964

_arg1 = &temp;

29965

}

29966

{

29967

/* we can check if IBIS was initialized here */

29968

if (!IbisObj.initialized)

29969

{

29970

Tcl_SetStringObj(

29971

Tcl_GetObjResult(interp),

29972

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

29973

return TCL_ERROR;

29974

}

29975

29976

if (! IbisObj.port_guid)

29977

{

29978

Tcl_SetStringObj(

29979

Tcl_GetObjResult(interp),

29980

" ibis was not yet initialized. please use ibis_set_port before.", -1);

29981

return TCL_ERROR;

29982

}

29983

29984

ibis_tcl_error = 0;

29985

_result = (ib_net16_t *)_ib_slvl_table_record_lid_set(_arg0,_arg1);

29986

;

29987

if (ibis_tcl_error) {

29988

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

29989

return TCL_ERROR;

29990

}

29991

} tcl_result = Tcl_GetObjResult(interp);

29992

{

29993

char buff[20];

29994

sprintf(buff, "%u", cl_hton16(*_result));

29995

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

29996

}

29997

return TCL_OK;

29998

}

29999

#define _ib_slvl_table_record_lid_get(_swigobj) (&_swigobj->lid)

30000

static int _wrap_sacSlVlRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30001

30002

ib_net16_t * _result;

30003

sacSlVlRec * _arg0;

30004

Tcl_Obj * tcl_result;

30005

char * rettype;

30006

30007

clientData = clientData; objv = objv;

30008

tcl_result = Tcl_GetObjResult(interp);

30009

if ((objc < 2) || (objc > 2)) {

30010

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_lid_get { sacSlVlRec * } ",-1);

30011

return TCL_ERROR;

30012

}

30013

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30014

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_lid_get. Expected _sacSlVlRec_p, received ", -1);

30015

Tcl_AppendToObj(tcl_result, rettype, -1);

30016

return TCL_ERROR;

30017

}

30018

{

30019

/* we can check if IBIS was initialized here */

30020

if (!IbisObj.initialized)

30021

{

30022

Tcl_SetStringObj(

30023

Tcl_GetObjResult(interp),

30024

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30025

return TCL_ERROR;

30026

}

30027

30028

if (! IbisObj.port_guid)

30029

{

30030

Tcl_SetStringObj(

30031

Tcl_GetObjResult(interp),

30032

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30033

return TCL_ERROR;

30034

}

30035

30036

ibis_tcl_error = 0;

30037

_result = (ib_net16_t *)_ib_slvl_table_record_lid_get(_arg0);

30038

;

30039

if (ibis_tcl_error) {

30040

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30041

return TCL_ERROR;

30042

}

30043

} tcl_result = Tcl_GetObjResult(interp);

30044

{

30045

char buff[20];

30046

sprintf(buff, "%u", cl_hton16(*_result));

30047

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30048

}

30049

return TCL_OK;

30050

}

30051

#define _ib_slvl_table_record_in_port_num_set(_swigobj,_swigval) (_swigobj->in_port_num = *(_swigval),_swigval)

30052

static int _wrap_sacSlVlRec_in_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30053

30054

uint8_t * _result;

30055

sacSlVlRec * _arg0;

30056

uint8_t * _arg1;

30057

Tcl_Obj * tcl_result;

30058

char * rettype;

30059

uint8_t temp;

30060

30061

clientData = clientData; objv = objv;

30062

tcl_result = Tcl_GetObjResult(interp);

30063

if ((objc < 3) || (objc > 3)) {

30064

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_in_port_num_set { sacSlVlRec * } { uint8_t * } ",-1);

30065

return TCL_ERROR;

30066

}

30067

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30068

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_in_port_num_set. Expected _sacSlVlRec_p, received ", -1);

30069

Tcl_AppendToObj(tcl_result, rettype, -1);

30070

return TCL_ERROR;

30071

}

30072

{

30073

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

30074

_arg1 = &temp;

30075

}

30076

{

30077

/* we can check if IBIS was initialized here */

30078

if (!IbisObj.initialized)

30079

{

30080

Tcl_SetStringObj(

30081

Tcl_GetObjResult(interp),

30082

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30083

return TCL_ERROR;

30084

}

30085

30086

if (! IbisObj.port_guid)

30087

{

30088

Tcl_SetStringObj(

30089

Tcl_GetObjResult(interp),

30090

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30091

return TCL_ERROR;

30092

}

30093

30094

ibis_tcl_error = 0;

30095

_result = (uint8_t *)_ib_slvl_table_record_in_port_num_set(_arg0,_arg1);

30096

;

30097

if (ibis_tcl_error) {

30098

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30099

return TCL_ERROR;

30100

}

30101

} tcl_result = Tcl_GetObjResult(interp);

30102

{

30103

char buff[20];

30104

sprintf(buff, "%u", *_result);

30105

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30106

}

30107

return TCL_OK;

30108

}

30109

#define _ib_slvl_table_record_in_port_num_get(_swigobj) (&_swigobj->in_port_num)

30110

static int _wrap_sacSlVlRec_in_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30111

30112

uint8_t * _result;

30113

sacSlVlRec * _arg0;

30114

Tcl_Obj * tcl_result;

30115

char * rettype;

30116

30117

clientData = clientData; objv = objv;

30118

tcl_result = Tcl_GetObjResult(interp);

30119

if ((objc < 2) || (objc > 2)) {

30120

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_in_port_num_get { sacSlVlRec * } ",-1);

30121

return TCL_ERROR;

30122

}

30123

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30124

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_in_port_num_get. Expected _sacSlVlRec_p, received ", -1);

30125

Tcl_AppendToObj(tcl_result, rettype, -1);

30126

return TCL_ERROR;

30127

}

30128

{

30129

/* we can check if IBIS was initialized here */

30130

if (!IbisObj.initialized)

30131

{

30132

Tcl_SetStringObj(

30133

Tcl_GetObjResult(interp),

30134

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30135

return TCL_ERROR;

30136

}

30137

30138

if (! IbisObj.port_guid)

30139

{

30140

Tcl_SetStringObj(

30141

Tcl_GetObjResult(interp),

30142

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30143

return TCL_ERROR;

30144

}

30145

30146

ibis_tcl_error = 0;

30147

_result = (uint8_t *)_ib_slvl_table_record_in_port_num_get(_arg0);

30148

;

30149

if (ibis_tcl_error) {

30150

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30151

return TCL_ERROR;

30152

}

30153

} tcl_result = Tcl_GetObjResult(interp);

30154

{

30155

char buff[20];

30156

sprintf(buff, "%u", *_result);

30157

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30158

}

30159

return TCL_OK;

30160

}

30161

#define _ib_slvl_table_record_out_port_num_set(_swigobj,_swigval) (_swigobj->out_port_num = *(_swigval),_swigval)

30162

static int _wrap_sacSlVlRec_out_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30163

30164

uint8_t * _result;

30165

sacSlVlRec * _arg0;

30166

uint8_t * _arg1;

30167

Tcl_Obj * tcl_result;

30168

char * rettype;

30169

uint8_t temp;

30170

30171

clientData = clientData; objv = objv;

30172

tcl_result = Tcl_GetObjResult(interp);

30173

if ((objc < 3) || (objc > 3)) {

30174

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_out_port_num_set { sacSlVlRec * } { uint8_t * } ",-1);

30175

return TCL_ERROR;

30176

}

30177

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30178

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_out_port_num_set. Expected _sacSlVlRec_p, received ", -1);

30179

Tcl_AppendToObj(tcl_result, rettype, -1);

30180

return TCL_ERROR;

30181

}

30182

{

30183

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

30184

_arg1 = &temp;

30185

}

30186

{

30187

/* we can check if IBIS was initialized here */

30188

if (!IbisObj.initialized)

30189

{

30190

Tcl_SetStringObj(

30191

Tcl_GetObjResult(interp),

30192

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30193

return TCL_ERROR;

30194

}

30195

30196

if (! IbisObj.port_guid)

30197

{

30198

Tcl_SetStringObj(

30199

Tcl_GetObjResult(interp),

30200

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30201

return TCL_ERROR;

30202

}

30203

30204

ibis_tcl_error = 0;

30205

_result = (uint8_t *)_ib_slvl_table_record_out_port_num_set(_arg0,_arg1);

30206

;

30207

if (ibis_tcl_error) {

30208

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30209

return TCL_ERROR;

30210

}

30211

} tcl_result = Tcl_GetObjResult(interp);

30212

{

30213

char buff[20];

30214

sprintf(buff, "%u", *_result);

30215

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30216

}

30217

return TCL_OK;

30218

}

30219

#define _ib_slvl_table_record_out_port_num_get(_swigobj) (&_swigobj->out_port_num)

30220

static int _wrap_sacSlVlRec_out_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30221

30222

uint8_t * _result;

30223

sacSlVlRec * _arg0;

30224

Tcl_Obj * tcl_result;

30225

char * rettype;

30226

30227

clientData = clientData; objv = objv;

30228

tcl_result = Tcl_GetObjResult(interp);

30229

if ((objc < 2) || (objc > 2)) {

30230

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_out_port_num_get { sacSlVlRec * } ",-1);

30231

return TCL_ERROR;

30232

}

30233

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30234

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_out_port_num_get. Expected _sacSlVlRec_p, received ", -1);

30235

Tcl_AppendToObj(tcl_result, rettype, -1);

30236

return TCL_ERROR;

30237

}

30238

{

30239

/* we can check if IBIS was initialized here */

30240

if (!IbisObj.initialized)

30241

{

30242

Tcl_SetStringObj(

30243

Tcl_GetObjResult(interp),

30244

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30245

return TCL_ERROR;

30246

}

30247

30248

if (! IbisObj.port_guid)

30249

{

30250

Tcl_SetStringObj(

30251

Tcl_GetObjResult(interp),

30252

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30253

return TCL_ERROR;

30254

}

30255

30256

ibis_tcl_error = 0;

30257

_result = (uint8_t *)_ib_slvl_table_record_out_port_num_get(_arg0);

30258

;

30259

if (ibis_tcl_error) {

30260

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30261

return TCL_ERROR;

30262

}

30263

} tcl_result = Tcl_GetObjResult(interp);

30264

{

30265

char buff[20];

30266

sprintf(buff, "%u", *_result);

30267

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30268

}

30269

return TCL_OK;

30270

}

30271

#define _ib_slvl_table_record_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

30272

static int _wrap_sacSlVlRec_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30273

30274

uint32_t * _result;

30275

sacSlVlRec * _arg0;

30276

uint32_t * _arg1;

30277

Tcl_Obj * tcl_result;

30278

char * rettype;

30279

uint32_t temp;

30280

30281

clientData = clientData; objv = objv;

30282

tcl_result = Tcl_GetObjResult(interp);

30283

if ((objc < 3) || (objc > 3)) {

30284

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_resv_set { sacSlVlRec * } { uint32_t * } ",-1);

30285

return TCL_ERROR;

30286

}

30287

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30288

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_resv_set. Expected _sacSlVlRec_p, received ", -1);

30289

Tcl_AppendToObj(tcl_result, rettype, -1);

30290

return TCL_ERROR;

30291

}

30292

{

30293

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

30294

_arg1 = &temp;

30295

}

30296

{

30297

/* we can check if IBIS was initialized here */

30298

if (!IbisObj.initialized)

30299

{

30300

Tcl_SetStringObj(

30301

Tcl_GetObjResult(interp),

30302

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30303

return TCL_ERROR;

30304

}

30305

30306

if (! IbisObj.port_guid)

30307

{

30308

Tcl_SetStringObj(

30309

Tcl_GetObjResult(interp),

30310

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30311

return TCL_ERROR;

30312

}

30313

30314

ibis_tcl_error = 0;

30315

_result = (uint32_t *)_ib_slvl_table_record_resv_set(_arg0,_arg1);

30316

;

30317

if (ibis_tcl_error) {

30318

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30319

return TCL_ERROR;

30320

}

30321

} tcl_result = Tcl_GetObjResult(interp);

30322

{

30323

char buff[20];

30324

sprintf(buff, "%u", *_result);

30325

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30326

}

30327

return TCL_OK;

30328

}

30329

#define _ib_slvl_table_record_resv_get(_swigobj) (&_swigobj->resv)

30330

static int _wrap_sacSlVlRec_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30331

30332

uint32_t * _result;

30333

sacSlVlRec * _arg0;

30334

Tcl_Obj * tcl_result;

30335

char * rettype;

30336

30337

clientData = clientData; objv = objv;

30338

tcl_result = Tcl_GetObjResult(interp);

30339

if ((objc < 2) || (objc > 2)) {

30340

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_resv_get { sacSlVlRec * } ",-1);

30341

return TCL_ERROR;

30342

}

30343

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30344

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_resv_get. Expected _sacSlVlRec_p, received ", -1);

30345

Tcl_AppendToObj(tcl_result, rettype, -1);

30346

return TCL_ERROR;

30347

}

30348

{

30349

/* we can check if IBIS was initialized here */

30350

if (!IbisObj.initialized)

30351

{

30352

Tcl_SetStringObj(

30353

Tcl_GetObjResult(interp),

30354

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30355

return TCL_ERROR;

30356

}

30357

30358

if (! IbisObj.port_guid)

30359

{

30360

Tcl_SetStringObj(

30361

Tcl_GetObjResult(interp),

30362

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30363

return TCL_ERROR;

30364

}

30365

30366

ibis_tcl_error = 0;

30367

_result = (uint32_t *)_ib_slvl_table_record_resv_get(_arg0);

30368

;

30369

if (ibis_tcl_error) {

30370

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30371

return TCL_ERROR;

30372

}

30373

} tcl_result = Tcl_GetObjResult(interp);

30374

{

30375

char buff[20];

30376

sprintf(buff, "%u", *_result);

30377

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30378

}

30379

return TCL_OK;

30380

}

30381

#define _ib_slvl_table_record_slvl_tbl_set(_swigobj,_swigval) (_swigobj->slvl_tbl = *(_swigval),_swigval)

30382

static int _wrap_sacSlVlRec_slvl_tbl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30383

30384

sacSlVlTbl * _result;

30385

sacSlVlRec * _arg0;

30386

sacSlVlTbl * _arg1;

30387

Tcl_Obj * tcl_result;

30388

char * rettype;

30389

30390

clientData = clientData; objv = objv;

30391

tcl_result = Tcl_GetObjResult(interp);

30392

if ((objc < 3) || (objc > 3)) {

30393

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_slvl_tbl_set { sacSlVlRec * } { sacSlVlTbl * } ",-1);

30394

return TCL_ERROR;

30395

}

30396

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30397

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_slvl_tbl_set. Expected _sacSlVlRec_p, received ", -1);

30398

Tcl_AppendToObj(tcl_result, rettype, -1);

30399

return TCL_ERROR;

30400

}

30401

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacSlVlTbl_p"))) {

30402

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacSlVlRec_slvl_tbl_set. Expected _sacSlVlTbl_p, received ", -1);

30403

Tcl_AppendToObj(tcl_result, rettype, -1);

30404

return TCL_ERROR;

30405

}

30406

{

30407

/* we can check if IBIS was initialized here */

30408

if (!IbisObj.initialized)

30409

{

30410

Tcl_SetStringObj(

30411

Tcl_GetObjResult(interp),

30412

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30413

return TCL_ERROR;

30414

}

30415

30416

if (! IbisObj.port_guid)

30417

{

30418

Tcl_SetStringObj(

30419

Tcl_GetObjResult(interp),

30420

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30421

return TCL_ERROR;

30422

}

30423

30424

ibis_tcl_error = 0;

30425

_result = (sacSlVlTbl *)_ib_slvl_table_record_slvl_tbl_set(_arg0,_arg1);

30426

;

30427

if (ibis_tcl_error) {

30428

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30429

return TCL_ERROR;

30430

}

30431

} tcl_result = Tcl_GetObjResult(interp);

30432

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSlVlTbl_p");

30433

return TCL_OK;

30434

}

30435

#define _ib_slvl_table_record_slvl_tbl_get(_swigobj) (&_swigobj->slvl_tbl)

30436

static int _wrap_sacSlVlRec_slvl_tbl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30437

30438

sacSlVlTbl * _result;

30439

sacSlVlRec * _arg0;

30440

Tcl_Obj * tcl_result;

30441

char * rettype;

30442

30443

clientData = clientData; objv = objv;

30444

tcl_result = Tcl_GetObjResult(interp);

30445

if ((objc < 2) || (objc > 2)) {

30446

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_slvl_tbl_get { sacSlVlRec * } ",-1);

30447

return TCL_ERROR;

30448

}

30449

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30450

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_slvl_tbl_get. Expected _sacSlVlRec_p, received ", -1);

30451

Tcl_AppendToObj(tcl_result, rettype, -1);

30452

return TCL_ERROR;

30453

}

30454

{

30455

/* we can check if IBIS was initialized here */

30456

if (!IbisObj.initialized)

30457

{

30458

Tcl_SetStringObj(

30459

Tcl_GetObjResult(interp),

30460

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30461

return TCL_ERROR;

30462

}

30463

30464

if (! IbisObj.port_guid)

30465

{

30466

Tcl_SetStringObj(

30467

Tcl_GetObjResult(interp),

30468

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30469

return TCL_ERROR;

30470

}

30471

30472

ibis_tcl_error = 0;

30473

_result = (sacSlVlTbl *)_ib_slvl_table_record_slvl_tbl_get(_arg0);

30474

;

30475

if (ibis_tcl_error) {

30476

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30477

return TCL_ERROR;

30478

}

30479

} tcl_result = Tcl_GetObjResult(interp);

30480

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacSlVlTbl_p");

30481

return TCL_OK;

30482

}

30483

static char * sacSlVlRec_get(sacSlVlRec *self,uint64_t comp_mask) {

30484

return(ibsacSl2VlRecordQuery(self, cl_hton64(comp_mask),

30485

IB_MAD_METHOD_GET));

30486

}

30487

static int _wrap_sacSlVlRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30488

30489

char * _result;

30490

sacSlVlRec * _arg0;

30491

uint64_t * _arg1;

30492

Tcl_Obj * tcl_result;

30493

char * rettype;

30494

uint64_t temp;

30495

30496

clientData = clientData; objv = objv;

30497

tcl_result = Tcl_GetObjResult(interp);

30498

if ((objc < 3) || (objc > 3)) {

30499

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_get { sacSlVlRec * } comp_mask ",-1);

30500

return TCL_ERROR;

30501

}

30502

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30503

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_get. Expected _sacSlVlRec_p, received ", -1);

30504

Tcl_AppendToObj(tcl_result, rettype, -1);

30505

return TCL_ERROR;

30506

}

30507

{

30508

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

30509

_arg1 = &temp;

30510

}

30511

{

30512

/* we can check if IBIS was initialized here */

30513

if (!IbisObj.initialized)

30514

{

30515

Tcl_SetStringObj(

30516

Tcl_GetObjResult(interp),

30517

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30518

return TCL_ERROR;

30519

}

30520

30521

if (! IbisObj.port_guid)

30522

{

30523

Tcl_SetStringObj(

30524

Tcl_GetObjResult(interp),

30525

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30526

return TCL_ERROR;

30527

}

30528

30529

ibis_tcl_error = 0;

30530

_result = (char *)sacSlVlRec_get(_arg0,*_arg1);

30531

;

30532

if (ibis_tcl_error) {

30533

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30534

return TCL_ERROR;

30535

}

30536

} tcl_result = Tcl_GetObjResult(interp);

30537

Tcl_SetStringObj(tcl_result,_result,-1);

30538

free(_result);

30539

30540

return TCL_OK;

30541

}

30542

static char * sacSlVlRec_getTable(sacSlVlRec *self,uint64_t comp_mask) {

30543

return(ibsacSl2VlRecordQuery(self, cl_hton64(comp_mask),

30544

IB_MAD_METHOD_GETTABLE));

30545

}

30546

static int _wrap_sacSlVlRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30547

30548

char * _result;

30549

sacSlVlRec * _arg0;

30550

uint64_t * _arg1;

30551

Tcl_Obj * tcl_result;

30552

char * rettype;

30553

uint64_t temp;

30554

30555

clientData = clientData; objv = objv;

30556

tcl_result = Tcl_GetObjResult(interp);

30557

if ((objc < 3) || (objc > 3)) {

30558

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_getTable { sacSlVlRec * } comp_mask ",-1);

30559

return TCL_ERROR;

30560

}

30561

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30562

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_getTable. Expected _sacSlVlRec_p, received ", -1);

30563

Tcl_AppendToObj(tcl_result, rettype, -1);

30564

return TCL_ERROR;

30565

}

30566

{

30567

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

30568

_arg1 = &temp;

30569

}

30570

{

30571

/* we can check if IBIS was initialized here */

30572

if (!IbisObj.initialized)

30573

{

30574

Tcl_SetStringObj(

30575

Tcl_GetObjResult(interp),

30576

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30577

return TCL_ERROR;

30578

}

30579

30580

if (! IbisObj.port_guid)

30581

{

30582

Tcl_SetStringObj(

30583

Tcl_GetObjResult(interp),

30584

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30585

return TCL_ERROR;

30586

}

30587

30588

ibis_tcl_error = 0;

30589

_result = (char *)sacSlVlRec_getTable(_arg0,*_arg1);

30590

;

30591

if (ibis_tcl_error) {

30592

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30593

return TCL_ERROR;

30594

}

30595

} tcl_result = Tcl_GetObjResult(interp);

30596

Tcl_SetStringObj(tcl_result,_result,-1);

30597

free(_result);

30598

30599

return TCL_OK;

30600

}

30601

static void sacSlVlRec_delete(sacSlVlRec *self) {

30602

SWIG_AltMnglUnregObj(&(self->slvl_tbl));

30603

SWIG_AltMnglUnregObj(self);

30604

free(self);

30605

}

30606

static int _wrap_sacSlVlRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30607

30608

sacSlVlRec * _arg0;

30609

Tcl_Obj * tcl_result;

30610

char * rettype;

30611

30612

clientData = clientData; objv = objv;

30613

tcl_result = Tcl_GetObjResult(interp);

30614

if ((objc < 2) || (objc > 2)) {

30615

Tcl_SetStringObj(tcl_result,"Wrong # args. sacSlVlRec_delete { sacSlVlRec * } ",-1);

30616

return TCL_ERROR;

30617

}

30618

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacSlVlRec_p"))) {

30619

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacSlVlRec_delete. Expected _sacSlVlRec_p, received ", -1);

30620

Tcl_AppendToObj(tcl_result, rettype, -1);

30621

return TCL_ERROR;

30622

}

30623

{

30624

/* we can check if IBIS was initialized here */

30625

if (!IbisObj.initialized)

30626

{

30627

Tcl_SetStringObj(

30628

Tcl_GetObjResult(interp),

30629

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30630

return TCL_ERROR;

30631

}

30632

30633

if (! IbisObj.port_guid)

30634

{

30635

Tcl_SetStringObj(

30636

Tcl_GetObjResult(interp),

30637

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30638

return TCL_ERROR;

30639

}

30640

30641

ibis_tcl_error = 0;

30642

sacSlVlRec_delete(_arg0);

30643

;

30644

if (ibis_tcl_error) {

30645

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30646

return TCL_ERROR;

30647

}

30648

} tcl_result = Tcl_GetObjResult(interp);

30649

return TCL_OK;

30650

}

30651

/* methodcmd8.swg : Tcl8.x method invocation */

30652

30653

static int TclsacSlVlRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

30654

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

30655

char *_str;

30656

int rcode;

30657

Tcl_Obj **objv;

30658

Tcl_Obj *oldarg,*tcl_result,*obj;

30659

int length;

30660

char c;

30661

30662

tcl_result = Tcl_GetObjResult(interp);

30663

objv = (Tcl_Obj **) _objv;

30664

if (objc < 2) {

30665

Tcl_SetStringObj(tcl_result,"sacSlVlRec methods : { dump cget configure get getTable delete }",-1);

30666

return TCL_ERROR;

30667

}

30668

obj = Tcl_NewObj();

30669

SWIG_SetPointerObj(obj,(void *) clientData,"_sacSlVlRec_p");

30670

_str = Tcl_GetStringFromObj(objv[1],&length);

30671

c = *_str;

30672

if (0);

30673

if (strcmp(_str,"get") == 0) {

30674

cmd = _wrap_sacSlVlRec_get;

30675

} else if (strcmp(_str,"getTable") == 0) {

30676

cmd = _wrap_sacSlVlRec_getTable;

30677

} else if (strcmp(_str,"delete") == 0) {

30678

cmd = _wrap_sacSlVlRec_delete;

30679

}

30680

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

30681

int i = 2;

30682

cmd = 0;

30683

while (i+1 < objc) {

30684

_str = Tcl_GetStringFromObj(objv[i],&length);

30685

if (strcmp(_str,"-lid") == 0) {

30686

cmd = _wrap_sacSlVlRec_lid_set;

30687

} else if (strcmp(_str,"-in_port_num") == 0) {

30688

cmd = _wrap_sacSlVlRec_in_port_num_set;

30689

} else if (strcmp(_str,"-out_port_num") == 0) {

30690

cmd = _wrap_sacSlVlRec_out_port_num_set;

30691

} else if (strcmp(_str,"-resv") == 0) {

30692

cmd = _wrap_sacSlVlRec_resv_set;

30693

} else if (strcmp(_str,"-slvl_tbl") == 0) {

30694

cmd = _wrap_sacSlVlRec_slvl_tbl_set;

30695

}

30696

if (cmd) {

30697

oldarg = objv[i];

30698

objv[i] = obj;

30699

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

30700

objv[i] = oldarg;

30701

if (rcode == TCL_ERROR) return rcode;

30702

cmd = 0;

30703

} else {

30704

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -in_port_num -out_port_num -resv -slvl_tbl }",-1);

30705

return TCL_ERROR;

30706

}

30707

i+=2;

30708

}

30709

if ((i < objc) || (i == 2)) {

30710

Tcl_SetStringObj(tcl_result,"{ -lid -in_port_num -out_port_num -resv -slvl_tbl }",-1);

30711

return TCL_ERROR;

30712

}

30713

return TCL_OK;

30714

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

30715

if (objc == 3) {

30716

_str = Tcl_GetStringFromObj(objv[2],&length);

30717

if (0) {}

30718

if (strcmp(_str,"-lid") == 0) {

30719

cmd = _wrap_sacSlVlRec_lid_get;

30720

} else if (strcmp(_str,"-in_port_num") == 0) {

30721

cmd = _wrap_sacSlVlRec_in_port_num_get;

30722

} else if (strcmp(_str,"-out_port_num") == 0) {

30723

cmd = _wrap_sacSlVlRec_out_port_num_get;

30724

} else if (strcmp(_str,"-resv") == 0) {

30725

cmd = _wrap_sacSlVlRec_resv_get;

30726

} else if (strcmp(_str,"-slvl_tbl") == 0) {

30727

cmd = _wrap_sacSlVlRec_slvl_tbl_get;

30728

}

30729

else if (strcmp(_str,"-this") == 0) {

30730

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacSlVlRec_p");

30731

return TCL_OK;

30732

}

30733

if (cmd) {

30734

oldarg = objv[2];

30735

objv[2] = obj;

30736

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

30737

objv[2] = oldarg;

30738

return rcode;

30739

} else {

30740

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -in_port_num -out_port_num -resv -slvl_tbl }",-1);

30741

return TCL_ERROR;

30742

}

30743

} else {

30744

Tcl_SetStringObj(tcl_result,"{ -this -lid -in_port_num -out_port_num -resv -slvl_tbl }", -1);

30745

return TCL_ERROR;

30746

}

30747

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

30748

if (objc == 2) {

30749

Tcl_Obj *pDumpObj;

30750

pDumpObj = Tcl_NewStringObj("",-1);

30751

Tcl_IncrRefCount(pDumpObj);

30752

cmd = _wrap_sacSlVlRec_lid_get;

30753

oldarg = objv[2];

30754

objv[2] = obj;

30755

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

30756

objv[2] = oldarg;

30757

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

30758

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

30759

cmd = _wrap_sacSlVlRec_in_port_num_get;

30760

oldarg = objv[2];

30761

objv[2] = obj;

30762

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

30763

objv[2] = oldarg;

30764

Tcl_AppendStringsToObj(pDumpObj, "-in_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

30765

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

30766

cmd = _wrap_sacSlVlRec_out_port_num_get;

30767

oldarg = objv[2];

30768

objv[2] = obj;

30769

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

30770

objv[2] = oldarg;

30771

Tcl_AppendStringsToObj(pDumpObj, "-out_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

30772

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

30773

cmd = _wrap_sacSlVlRec_resv_get;

30774

oldarg = objv[2];

30775

objv[2] = obj;

30776

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

30777

objv[2] = oldarg;

30778

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

30779

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

30780

cmd = _wrap_sacSlVlRec_slvl_tbl_get;

30781

oldarg = objv[2];

30782

objv[2] = obj;

30783

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

30784

objv[2] = oldarg;

30785

Tcl_AppendStringsToObj(pDumpObj, "-slvl_tbl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

30786

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

30787

30788

Tcl_DecrRefCount(pDumpObj);

30789

return TCL_OK;

30790

} else {

30791

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

30792

return TCL_ERROR;

30793

}

30794

}

30795

if (!cmd) {

30796

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

30797

return TCL_ERROR;

30798

}

30799

oldarg = objv[1];

30800

objv[1] = obj;

30801

rcode = (*cmd)(clientData,interp,objc,objv);

30802

objv[1] = oldarg;

30803

return rcode;

30804

}

30805

30806

30807

30808

/* objcmd8.swg : Tcl 8.x object creation */

30809

30810

static int TclsacSlVlRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30811

void (*del)(ClientData) = 0;

30812

char *name = 0;

30813

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

30814

sacSlVlRec * newObj = 0;

30815

int firstarg = 0;

30816

int thisarg = 0;

30817

int length;

30818

char *_str;

30819

Tcl_Obj *tcl_result;

30820

30821

tcl_result = Tcl_GetObjResult(interp);

30822

if (objc == 1) {

30823

cmd = 0;

30824

} else {

30825

_str = Tcl_GetStringFromObj(objv[1],&length);

30826

if (strcmp(_str,"-this") == 0) thisarg = 2;

30827

else if (strcmp(_str,"-args") == 0) {

30828

firstarg = 1;

30829

cmd = 0;

30830

} else if (objc == 2) {

30831

firstarg = 1;

30832

name = _str;

30833

cmd = 0;

30834

} else if (objc >= 3) {

30835

name = _str;

30836

_str = Tcl_GetStringFromObj(objv[2],&length);

30837

if (strcmp(_str,"-this") == 0) thisarg = 3;

30838

else {

30839

firstarg = 1;

30840

cmd = 0;

30841

}

30842

}

30843

}

30844

if (cmd) {

30845

int result;

30846

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

30847

if (result == TCL_OK) {

30848

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacSlVlRec_p");

30849

} else { return result; }

30850

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

30851

del = 0;

30852

} else if (thisarg > 0) {

30853

if (thisarg < objc) {

30854

char *r;

30855

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacSlVlRec_p");

30856

if (r) {

30857

Tcl_SetStringObj(tcl_result,"Type error. not a sacSlVlRec object.",-1);

30858

return TCL_ERROR;

30859

}

30860

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

30861

Tcl_SetStringObj(tcl_result,name,-1);

30862

} else {

30863

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

30864

return TCL_ERROR;

30865

}

30866

} else {

30867

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

30868

return TCL_ERROR;

30869

}

30870

{

30871

Tcl_CmdInfo dummy;

30872

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

30873

Tcl_CreateObjCommand(interp,name, TclsacSlVlRecMethodCmd, (ClientData) newObj, del);

30874

return TCL_OK;

30875

} else {

30876

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

30877

return TCL_ERROR;

30878

}

30879

}

30880

}

30881

30882

30883

#define _ib_vl_arb_table_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

30884

static int _wrap_sacVlArbRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30885

30886

ib_net16_t * _result;

30887

sacVlArbRec * _arg0;

30888

ib_net16_t * _arg1;

30889

Tcl_Obj * tcl_result;

30890

char * rettype;

30891

ib_net16_t temp;

30892

30893

clientData = clientData; objv = objv;

30894

tcl_result = Tcl_GetObjResult(interp);

30895

if ((objc < 3) || (objc > 3)) {

30896

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_lid_set { sacVlArbRec * } { ib_net16_t * } ",-1);

30897

return TCL_ERROR;

30898

}

30899

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

30900

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_lid_set. Expected _sacVlArbRec_p, received ", -1);

30901

Tcl_AppendToObj(tcl_result, rettype, -1);

30902

return TCL_ERROR;

30903

}

30904

{

30905

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

30906

_arg1 = &temp;

30907

}

30908

{

30909

/* we can check if IBIS was initialized here */

30910

if (!IbisObj.initialized)

30911

{

30912

Tcl_SetStringObj(

30913

Tcl_GetObjResult(interp),

30914

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30915

return TCL_ERROR;

30916

}

30917

30918

if (! IbisObj.port_guid)

30919

{

30920

Tcl_SetStringObj(

30921

Tcl_GetObjResult(interp),

30922

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30923

return TCL_ERROR;

30924

}

30925

30926

ibis_tcl_error = 0;

30927

_result = (ib_net16_t *)_ib_vl_arb_table_record_lid_set(_arg0,_arg1);

30928

;

30929

if (ibis_tcl_error) {

30930

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30931

return TCL_ERROR;

30932

}

30933

} tcl_result = Tcl_GetObjResult(interp);

30934

{

30935

char buff[20];

30936

sprintf(buff, "%u", cl_hton16(*_result));

30937

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30938

}

30939

return TCL_OK;

30940

}

30941

#define _ib_vl_arb_table_record_lid_get(_swigobj) (&_swigobj->lid)

30942

static int _wrap_sacVlArbRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30943

30944

ib_net16_t * _result;

30945

sacVlArbRec * _arg0;

30946

Tcl_Obj * tcl_result;

30947

char * rettype;

30948

30949

clientData = clientData; objv = objv;

30950

tcl_result = Tcl_GetObjResult(interp);

30951

if ((objc < 2) || (objc > 2)) {

30952

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_lid_get { sacVlArbRec * } ",-1);

30953

return TCL_ERROR;

30954

}

30955

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

30956

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_lid_get. Expected _sacVlArbRec_p, received ", -1);

30957

Tcl_AppendToObj(tcl_result, rettype, -1);

30958

return TCL_ERROR;

30959

}

30960

{

30961

/* we can check if IBIS was initialized here */

30962

if (!IbisObj.initialized)

30963

{

30964

Tcl_SetStringObj(

30965

Tcl_GetObjResult(interp),

30966

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

30967

return TCL_ERROR;

30968

}

30969

30970

if (! IbisObj.port_guid)

30971

{

30972

Tcl_SetStringObj(

30973

Tcl_GetObjResult(interp),

30974

" ibis was not yet initialized. please use ibis_set_port before.", -1);

30975

return TCL_ERROR;

30976

}

30977

30978

ibis_tcl_error = 0;

30979

_result = (ib_net16_t *)_ib_vl_arb_table_record_lid_get(_arg0);

30980

;

30981

if (ibis_tcl_error) {

30982

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

30983

return TCL_ERROR;

30984

}

30985

} tcl_result = Tcl_GetObjResult(interp);

30986

{

30987

char buff[20];

30988

sprintf(buff, "%u", cl_hton16(*_result));

30989

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

30990

}

30991

return TCL_OK;

30992

}

30993

#define _ib_vl_arb_table_record_port_num_set(_swigobj,_swigval) (_swigobj->port_num = *(_swigval),_swigval)

30994

static int _wrap_sacVlArbRec_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

30995

30996

uint8_t * _result;

30997

sacVlArbRec * _arg0;

30998

uint8_t * _arg1;

30999

Tcl_Obj * tcl_result;

31000

char * rettype;

31001

uint8_t temp;

31002

31003

clientData = clientData; objv = objv;

31004

tcl_result = Tcl_GetObjResult(interp);

31005

if ((objc < 3) || (objc > 3)) {

31006

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_port_num_set { sacVlArbRec * } { uint8_t * } ",-1);

31007

return TCL_ERROR;

31008

}

31009

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31010

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_port_num_set. Expected _sacVlArbRec_p, received ", -1);

31011

Tcl_AppendToObj(tcl_result, rettype, -1);

31012

return TCL_ERROR;

31013

}

31014

{

31015

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

31016

_arg1 = &temp;

31017

}

31018

{

31019

/* we can check if IBIS was initialized here */

31020

if (!IbisObj.initialized)

31021

{

31022

Tcl_SetStringObj(

31023

Tcl_GetObjResult(interp),

31024

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31025

return TCL_ERROR;

31026

}

31027

31028

if (! IbisObj.port_guid)

31029

{

31030

Tcl_SetStringObj(

31031

Tcl_GetObjResult(interp),

31032

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31033

return TCL_ERROR;

31034

}

31035

31036

ibis_tcl_error = 0;

31037

_result = (uint8_t *)_ib_vl_arb_table_record_port_num_set(_arg0,_arg1);

31038

;

31039

if (ibis_tcl_error) {

31040

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31041

return TCL_ERROR;

31042

}

31043

} tcl_result = Tcl_GetObjResult(interp);

31044

{

31045

char buff[20];

31046

sprintf(buff, "%u", *_result);

31047

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31048

}

31049

return TCL_OK;

31050

}

31051

#define _ib_vl_arb_table_record_port_num_get(_swigobj) (&_swigobj->port_num)

31052

static int _wrap_sacVlArbRec_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31053

31054

uint8_t * _result;

31055

sacVlArbRec * _arg0;

31056

Tcl_Obj * tcl_result;

31057

char * rettype;

31058

31059

clientData = clientData; objv = objv;

31060

tcl_result = Tcl_GetObjResult(interp);

31061

if ((objc < 2) || (objc > 2)) {

31062

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_port_num_get { sacVlArbRec * } ",-1);

31063

return TCL_ERROR;

31064

}

31065

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31066

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_port_num_get. Expected _sacVlArbRec_p, received ", -1);

31067

Tcl_AppendToObj(tcl_result, rettype, -1);

31068

return TCL_ERROR;

31069

}

31070

{

31071

/* we can check if IBIS was initialized here */

31072

if (!IbisObj.initialized)

31073

{

31074

Tcl_SetStringObj(

31075

Tcl_GetObjResult(interp),

31076

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31077

return TCL_ERROR;

31078

}

31079

31080

if (! IbisObj.port_guid)

31081

{

31082

Tcl_SetStringObj(

31083

Tcl_GetObjResult(interp),

31084

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31085

return TCL_ERROR;

31086

}

31087

31088

ibis_tcl_error = 0;

31089

_result = (uint8_t *)_ib_vl_arb_table_record_port_num_get(_arg0);

31090

;

31091

if (ibis_tcl_error) {

31092

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31093

return TCL_ERROR;

31094

}

31095

} tcl_result = Tcl_GetObjResult(interp);

31096

{

31097

char buff[20];

31098

sprintf(buff, "%u", *_result);

31099

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31100

}

31101

return TCL_OK;

31102

}

31103

#define _ib_vl_arb_table_record_block_num_set(_swigobj,_swigval) (_swigobj->block_num = *(_swigval),_swigval)

31104

static int _wrap_sacVlArbRec_block_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31105

31106

uint8_t * _result;

31107

sacVlArbRec * _arg0;

31108

uint8_t * _arg1;

31109

Tcl_Obj * tcl_result;

31110

char * rettype;

31111

uint8_t temp;

31112

31113

clientData = clientData; objv = objv;

31114

tcl_result = Tcl_GetObjResult(interp);

31115

if ((objc < 3) || (objc > 3)) {

31116

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_block_num_set { sacVlArbRec * } { uint8_t * } ",-1);

31117

return TCL_ERROR;

31118

}

31119

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31120

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_block_num_set. Expected _sacVlArbRec_p, received ", -1);

31121

Tcl_AppendToObj(tcl_result, rettype, -1);

31122

return TCL_ERROR;

31123

}

31124

{

31125

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

31126

_arg1 = &temp;

31127

}

31128

{

31129

/* we can check if IBIS was initialized here */

31130

if (!IbisObj.initialized)

31131

{

31132

Tcl_SetStringObj(

31133

Tcl_GetObjResult(interp),

31134

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31135

return TCL_ERROR;

31136

}

31137

31138

if (! IbisObj.port_guid)

31139

{

31140

Tcl_SetStringObj(

31141

Tcl_GetObjResult(interp),

31142

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31143

return TCL_ERROR;

31144

}

31145

31146

ibis_tcl_error = 0;

31147

_result = (uint8_t *)_ib_vl_arb_table_record_block_num_set(_arg0,_arg1);

31148

;

31149

if (ibis_tcl_error) {

31150

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31151

return TCL_ERROR;

31152

}

31153

} tcl_result = Tcl_GetObjResult(interp);

31154

{

31155

char buff[20];

31156

sprintf(buff, "%u", *_result);

31157

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31158

}

31159

return TCL_OK;

31160

}

31161

#define _ib_vl_arb_table_record_block_num_get(_swigobj) (&_swigobj->block_num)

31162

static int _wrap_sacVlArbRec_block_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31163

31164

uint8_t * _result;

31165

sacVlArbRec * _arg0;

31166

Tcl_Obj * tcl_result;

31167

char * rettype;

31168

31169

clientData = clientData; objv = objv;

31170

tcl_result = Tcl_GetObjResult(interp);

31171

if ((objc < 2) || (objc > 2)) {

31172

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_block_num_get { sacVlArbRec * } ",-1);

31173

return TCL_ERROR;

31174

}

31175

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31176

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_block_num_get. Expected _sacVlArbRec_p, received ", -1);

31177

Tcl_AppendToObj(tcl_result, rettype, -1);

31178

return TCL_ERROR;

31179

}

31180

{

31181

/* we can check if IBIS was initialized here */

31182

if (!IbisObj.initialized)

31183

{

31184

Tcl_SetStringObj(

31185

Tcl_GetObjResult(interp),

31186

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31187

return TCL_ERROR;

31188

}

31189

31190

if (! IbisObj.port_guid)

31191

{

31192

Tcl_SetStringObj(

31193

Tcl_GetObjResult(interp),

31194

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31195

return TCL_ERROR;

31196

}

31197

31198

ibis_tcl_error = 0;

31199

_result = (uint8_t *)_ib_vl_arb_table_record_block_num_get(_arg0);

31200

;

31201

if (ibis_tcl_error) {

31202

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31203

return TCL_ERROR;

31204

}

31205

} tcl_result = Tcl_GetObjResult(interp);

31206

{

31207

char buff[20];

31208

sprintf(buff, "%u", *_result);

31209

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31210

}

31211

return TCL_OK;

31212

}

31213

#define _ib_vl_arb_table_record_reserved_set(_swigobj,_swigval) (_swigobj->reserved = *(_swigval),_swigval)

31214

static int _wrap_sacVlArbRec_reserved_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31215

31216

uint32_t * _result;

31217

sacVlArbRec * _arg0;

31218

uint32_t * _arg1;

31219

Tcl_Obj * tcl_result;

31220

char * rettype;

31221

uint32_t temp;

31222

31223

clientData = clientData; objv = objv;

31224

tcl_result = Tcl_GetObjResult(interp);

31225

if ((objc < 3) || (objc > 3)) {

31226

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_reserved_set { sacVlArbRec * } { uint32_t * } ",-1);

31227

return TCL_ERROR;

31228

}

31229

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31230

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_reserved_set. Expected _sacVlArbRec_p, received ", -1);

31231

Tcl_AppendToObj(tcl_result, rettype, -1);

31232

return TCL_ERROR;

31233

}

31234

{

31235

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

31236

_arg1 = &temp;

31237

}

31238

{

31239

/* we can check if IBIS was initialized here */

31240

if (!IbisObj.initialized)

31241

{

31242

Tcl_SetStringObj(

31243

Tcl_GetObjResult(interp),

31244

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31245

return TCL_ERROR;

31246

}

31247

31248

if (! IbisObj.port_guid)

31249

{

31250

Tcl_SetStringObj(

31251

Tcl_GetObjResult(interp),

31252

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31253

return TCL_ERROR;

31254

}

31255

31256

ibis_tcl_error = 0;

31257

_result = (uint32_t *)_ib_vl_arb_table_record_reserved_set(_arg0,_arg1);

31258

;

31259

if (ibis_tcl_error) {

31260

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31261

return TCL_ERROR;

31262

}

31263

} tcl_result = Tcl_GetObjResult(interp);

31264

{

31265

char buff[20];

31266

sprintf(buff, "%u", *_result);

31267

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31268

}

31269

return TCL_OK;

31270

}

31271

#define _ib_vl_arb_table_record_reserved_get(_swigobj) (&_swigobj->reserved)

31272

static int _wrap_sacVlArbRec_reserved_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31273

31274

uint32_t * _result;

31275

sacVlArbRec * _arg0;

31276

Tcl_Obj * tcl_result;

31277

char * rettype;

31278

31279

clientData = clientData; objv = objv;

31280

tcl_result = Tcl_GetObjResult(interp);

31281

if ((objc < 2) || (objc > 2)) {

31282

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_reserved_get { sacVlArbRec * } ",-1);

31283

return TCL_ERROR;

31284

}

31285

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31286

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_reserved_get. Expected _sacVlArbRec_p, received ", -1);

31287

Tcl_AppendToObj(tcl_result, rettype, -1);

31288

return TCL_ERROR;

31289

}

31290

{

31291

/* we can check if IBIS was initialized here */

31292

if (!IbisObj.initialized)

31293

{

31294

Tcl_SetStringObj(

31295

Tcl_GetObjResult(interp),

31296

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31297

return TCL_ERROR;

31298

}

31299

31300

if (! IbisObj.port_guid)

31301

{

31302

Tcl_SetStringObj(

31303

Tcl_GetObjResult(interp),

31304

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31305

return TCL_ERROR;

31306

}

31307

31308

ibis_tcl_error = 0;

31309

_result = (uint32_t *)_ib_vl_arb_table_record_reserved_get(_arg0);

31310

;

31311

if (ibis_tcl_error) {

31312

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31313

return TCL_ERROR;

31314

}

31315

} tcl_result = Tcl_GetObjResult(interp);

31316

{

31317

char buff[20];

31318

sprintf(buff, "%u", *_result);

31319

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

31320

}

31321

return TCL_OK;

31322

}

31323

#define _ib_vl_arb_table_record_vl_arb_tbl_set(_swigobj,_swigval) (_swigobj->vl_arb_tbl = *(_swigval),_swigval)

31324

static int _wrap_sacVlArbRec_vl_arb_tbl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31325

31326

sac_vl_arb_tbl_t * _result;

31327

sacVlArbRec * _arg0;

31328

sac_vl_arb_tbl_t * _arg1;

31329

Tcl_Obj * tcl_result;

31330

char * rettype;

31331

ib_vl_arb_table_t n;

31332

31333

clientData = clientData; objv = objv;

31334

tcl_result = Tcl_GetObjResult(interp);

31335

if ((objc < 3) || (objc > 3)) {

31336

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_vl_arb_tbl_set { sacVlArbRec * } { sac_vl_arb_tbl_t * } ",-1);

31337

return TCL_ERROR;

31338

}

31339

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31340

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_vl_arb_tbl_set. Expected _sacVlArbRec_p, received ", -1);

31341

Tcl_AppendToObj(tcl_result, rettype, -1);

31342

return TCL_ERROR;

31343

}

31344

{

31345

uint8_t idx;

31346

char *p_vl_str, *p_wt_str;

31347

unsigned long int vl, weight;

31348

#if TCL_MINOR_VERSION > 3

31349

const char **sub_lists;

31350

#else

31351

char **sub_lists;

31352

#endif

31353

int num_sub_lists;

31354

memset( &n, 0, sizeof(ib_vl_arb_table_t) );

31355

31356

/* we will use the TCL split list to split into elements */

31357

if (Tcl_SplitList(interp,

31358

Tcl_GetStringFromObj(objv[2],0),

31359

&num_sub_lists, &sub_lists) != TCL_OK) {

31360

printf("-E- Bad formatted list :%s\n",

31361

Tcl_GetStringFromObj(objv[2],0));

31362

return TCL_ERROR;

31363

}

31364

31365

for (idx = 0;

31366

(idx < num_sub_lists) && (idx < IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK);

31367

idx++)

31368

{

31369

/* we need to double copy since TCL 8.4 requires split res to be const */

31370

char buf[16];

31371

char *p_last;

31372

strcpy(buf, sub_lists[idx]);

31373

p_vl_str = strtok_r(buf," \t", &p_last);

31374

p_wt_str = strtok_r(NULL," \t", &p_last);

31375

if (! (p_vl_str && p_wt_str)) {

31376

printf("-E- Bad formatted number pair:%s\n", sub_lists[idx]);

31377

return TCL_ERROR;

31378

} else {

31379

errno = 0;

31380

vl = strtoul(p_vl_str, NULL, 0);

31381

if (errno || (vl > 15)) {

31382

printf("-E- Bad formatted VL:%s\n", p_vl_str);

31383

return TCL_ERROR;

31384

}

31385

31386

weight = strtoul(p_wt_str, NULL, 0);

31387

if (errno || (weight > 255)) {

31388

printf("-E- Bad formatted Weight:%s\n", p_wt_str);

31389

return TCL_ERROR;

31390

}

31391

31392

n.vl_entry[idx].vl = vl;

31393

n.vl_entry[idx].weight = weight;

31394

}

31395

}

31396

Tcl_Free((char *) sub_lists);

31397

31398

_arg1 = &n;

31399

}

31400

{

31401

/* we can check if IBIS was initialized here */

31402

if (!IbisObj.initialized)

31403

{

31404

Tcl_SetStringObj(

31405

Tcl_GetObjResult(interp),

31406

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31407

return TCL_ERROR;

31408

}

31409

31410

if (! IbisObj.port_guid)

31411

{

31412

Tcl_SetStringObj(

31413

Tcl_GetObjResult(interp),

31414

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31415

return TCL_ERROR;

31416

}

31417

31418

ibis_tcl_error = 0;

31419

_result = (sac_vl_arb_tbl_t *)_ib_vl_arb_table_record_vl_arb_tbl_set(_arg0,_arg1);

31420

;

31421

if (ibis_tcl_error) {

31422

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31423

return TCL_ERROR;

31424

}

31425

} tcl_result = Tcl_GetObjResult(interp);

31426

{

31427

uint32_t i;

31428

ib_vl_arb_table_t *p_tbl;

31429

char buf[256];

31430

if (_result) {

31431

strcpy(buf, "");

31432

p_tbl = _result;

31433

/* go over all elements */

31434

for (i = 0; i < IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK; i++) {

31435

sprintf(buf, "{0x%X 0x%02X} ",

31436

p_tbl->vl_entry[i].vl, p_tbl->vl_entry[i].weight);

31437

Tcl_AppendResult(interp, buf, NULL);

31438

}

31439

} else {

31440

Tcl_SetResult(interp, "", NULL);

31441

}

31442

}

31443

return TCL_OK;

31444

}

31445

#define _ib_vl_arb_table_record_vl_arb_tbl_get(_swigobj) (&_swigobj->vl_arb_tbl)

31446

static int _wrap_sacVlArbRec_vl_arb_tbl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31447

31448

sac_vl_arb_tbl_t * _result;

31449

sacVlArbRec * _arg0;

31450

Tcl_Obj * tcl_result;

31451

char * rettype;

31452

31453

clientData = clientData; objv = objv;

31454

tcl_result = Tcl_GetObjResult(interp);

31455

if ((objc < 2) || (objc > 2)) {

31456

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_vl_arb_tbl_get { sacVlArbRec * } ",-1);

31457

return TCL_ERROR;

31458

}

31459

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31460

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_vl_arb_tbl_get. Expected _sacVlArbRec_p, received ", -1);

31461

Tcl_AppendToObj(tcl_result, rettype, -1);

31462

return TCL_ERROR;

31463

}

31464

{

31465

/* we can check if IBIS was initialized here */

31466

if (!IbisObj.initialized)

31467

{

31468

Tcl_SetStringObj(

31469

Tcl_GetObjResult(interp),

31470

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31471

return TCL_ERROR;

31472

}

31473

31474

if (! IbisObj.port_guid)

31475

{

31476

Tcl_SetStringObj(

31477

Tcl_GetObjResult(interp),

31478

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31479

return TCL_ERROR;

31480

}

31481

31482

ibis_tcl_error = 0;

31483

_result = (sac_vl_arb_tbl_t *)_ib_vl_arb_table_record_vl_arb_tbl_get(_arg0);

31484

;

31485

if (ibis_tcl_error) {

31486

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31487

return TCL_ERROR;

31488

}

31489

} tcl_result = Tcl_GetObjResult(interp);

31490

{

31491

uint32_t i;

31492

ib_vl_arb_table_t *p_tbl;

31493

char buf[256];

31494

if (_result) {

31495

strcpy(buf, "");

31496

p_tbl = _result;

31497

/* go over all elements */

31498

for (i = 0; i < IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK; i++) {

31499

sprintf(buf, "{0x%X 0x%02X} ",

31500

p_tbl->vl_entry[i].vl, p_tbl->vl_entry[i].weight);

31501

Tcl_AppendResult(interp, buf, NULL);

31502

}

31503

} else {

31504

Tcl_SetResult(interp, "", NULL);

31505

}

31506

}

31507

return TCL_OK;

31508

}

31509

static char * sacVlArbRec_get(sacVlArbRec *self,uint64_t comp_mask) {

31510

return(ibsacVlArbRecordQuery(self, cl_hton64(comp_mask),

31511

IB_MAD_METHOD_GET));

31512

}

31513

static int _wrap_sacVlArbRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31514

31515

char * _result;

31516

sacVlArbRec * _arg0;

31517

uint64_t * _arg1;

31518

Tcl_Obj * tcl_result;

31519

char * rettype;

31520

uint64_t temp;

31521

31522

clientData = clientData; objv = objv;

31523

tcl_result = Tcl_GetObjResult(interp);

31524

if ((objc < 3) || (objc > 3)) {

31525

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_get { sacVlArbRec * } comp_mask ",-1);

31526

return TCL_ERROR;

31527

}

31528

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31529

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_get. Expected _sacVlArbRec_p, received ", -1);

31530

Tcl_AppendToObj(tcl_result, rettype, -1);

31531

return TCL_ERROR;

31532

}

31533

{

31534

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

31535

_arg1 = &temp;

31536

}

31537

{

31538

/* we can check if IBIS was initialized here */

31539

if (!IbisObj.initialized)

31540

{

31541

Tcl_SetStringObj(

31542

Tcl_GetObjResult(interp),

31543

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31544

return TCL_ERROR;

31545

}

31546

31547

if (! IbisObj.port_guid)

31548

{

31549

Tcl_SetStringObj(

31550

Tcl_GetObjResult(interp),

31551

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31552

return TCL_ERROR;

31553

}

31554

31555

ibis_tcl_error = 0;

31556

_result = (char *)sacVlArbRec_get(_arg0,*_arg1);

31557

;

31558

if (ibis_tcl_error) {

31559

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31560

return TCL_ERROR;

31561

}

31562

} tcl_result = Tcl_GetObjResult(interp);

31563

Tcl_SetStringObj(tcl_result,_result,-1);

31564

free(_result);

31565

31566

return TCL_OK;

31567

}

31568

static char * sacVlArbRec_getTable(sacVlArbRec *self,uint64_t comp_mask) {

31569

return(ibsacVlArbRecordQuery(self, cl_hton64(comp_mask),

31570

IB_MAD_METHOD_GETTABLE));

31571

}

31572

static int _wrap_sacVlArbRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31573

31574

char * _result;

31575

sacVlArbRec * _arg0;

31576

uint64_t * _arg1;

31577

Tcl_Obj * tcl_result;

31578

char * rettype;

31579

uint64_t temp;

31580

31581

clientData = clientData; objv = objv;

31582

tcl_result = Tcl_GetObjResult(interp);

31583

if ((objc < 3) || (objc > 3)) {

31584

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_getTable { sacVlArbRec * } comp_mask ",-1);

31585

return TCL_ERROR;

31586

}

31587

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31588

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_getTable. Expected _sacVlArbRec_p, received ", -1);

31589

Tcl_AppendToObj(tcl_result, rettype, -1);

31590

return TCL_ERROR;

31591

}

31592

{

31593

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

31594

_arg1 = &temp;

31595

}

31596

{

31597

/* we can check if IBIS was initialized here */

31598

if (!IbisObj.initialized)

31599

{

31600

Tcl_SetStringObj(

31601

Tcl_GetObjResult(interp),

31602

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31603

return TCL_ERROR;

31604

}

31605

31606

if (! IbisObj.port_guid)

31607

{

31608

Tcl_SetStringObj(

31609

Tcl_GetObjResult(interp),

31610

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31611

return TCL_ERROR;

31612

}

31613

31614

ibis_tcl_error = 0;

31615

_result = (char *)sacVlArbRec_getTable(_arg0,*_arg1);

31616

;

31617

if (ibis_tcl_error) {

31618

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31619

return TCL_ERROR;

31620

}

31621

} tcl_result = Tcl_GetObjResult(interp);

31622

Tcl_SetStringObj(tcl_result,_result,-1);

31623

free(_result);

31624

31625

return TCL_OK;

31626

}

31627

static void sacVlArbRec_delete(sacVlArbRec *self) {

31628

SWIG_AltMnglUnregObj(self);

31629

free(self);

31630

}

31631

static int _wrap_sacVlArbRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31632

31633

sacVlArbRec * _arg0;

31634

Tcl_Obj * tcl_result;

31635

char * rettype;

31636

31637

clientData = clientData; objv = objv;

31638

tcl_result = Tcl_GetObjResult(interp);

31639

if ((objc < 2) || (objc > 2)) {

31640

Tcl_SetStringObj(tcl_result,"Wrong # args. sacVlArbRec_delete { sacVlArbRec * } ",-1);

31641

return TCL_ERROR;

31642

}

31643

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacVlArbRec_p"))) {

31644

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacVlArbRec_delete. Expected _sacVlArbRec_p, received ", -1);

31645

Tcl_AppendToObj(tcl_result, rettype, -1);

31646

return TCL_ERROR;

31647

}

31648

{

31649

/* we can check if IBIS was initialized here */

31650

if (!IbisObj.initialized)

31651

{

31652

Tcl_SetStringObj(

31653

Tcl_GetObjResult(interp),

31654

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31655

return TCL_ERROR;

31656

}

31657

31658

if (! IbisObj.port_guid)

31659

{

31660

Tcl_SetStringObj(

31661

Tcl_GetObjResult(interp),

31662

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31663

return TCL_ERROR;

31664

}

31665

31666

ibis_tcl_error = 0;

31667

sacVlArbRec_delete(_arg0);

31668

;

31669

if (ibis_tcl_error) {

31670

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31671

return TCL_ERROR;

31672

}

31673

} tcl_result = Tcl_GetObjResult(interp);

31674

return TCL_OK;

31675

}

31676

/* methodcmd8.swg : Tcl8.x method invocation */

31677

31678

static int TclsacVlArbRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

31679

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

31680

char *_str;

31681

int rcode;

31682

Tcl_Obj **objv;

31683

Tcl_Obj *oldarg,*tcl_result,*obj;

31684

int length;

31685

char c;

31686

31687

tcl_result = Tcl_GetObjResult(interp);

31688

objv = (Tcl_Obj **) _objv;

31689

if (objc < 2) {

31690

Tcl_SetStringObj(tcl_result,"sacVlArbRec methods : { dump cget configure get getTable delete }",-1);

31691

return TCL_ERROR;

31692

}

31693

obj = Tcl_NewObj();

31694

SWIG_SetPointerObj(obj,(void *) clientData,"_sacVlArbRec_p");

31695

_str = Tcl_GetStringFromObj(objv[1],&length);

31696

c = *_str;

31697

if (0);

31698

if (strcmp(_str,"get") == 0) {

31699

cmd = _wrap_sacVlArbRec_get;

31700

} else if (strcmp(_str,"getTable") == 0) {

31701

cmd = _wrap_sacVlArbRec_getTable;

31702

} else if (strcmp(_str,"delete") == 0) {

31703

cmd = _wrap_sacVlArbRec_delete;

31704

}

31705

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

31706

int i = 2;

31707

cmd = 0;

31708

while (i+1 < objc) {

31709

_str = Tcl_GetStringFromObj(objv[i],&length);

31710

if (strcmp(_str,"-lid") == 0) {

31711

cmd = _wrap_sacVlArbRec_lid_set;

31712

} else if (strcmp(_str,"-port_num") == 0) {

31713

cmd = _wrap_sacVlArbRec_port_num_set;

31714

} else if (strcmp(_str,"-block_num") == 0) {

31715

cmd = _wrap_sacVlArbRec_block_num_set;

31716

} else if (strcmp(_str,"-reserved") == 0) {

31717

cmd = _wrap_sacVlArbRec_reserved_set;

31718

} else if (strcmp(_str,"-vl_arb_tbl") == 0) {

31719

cmd = _wrap_sacVlArbRec_vl_arb_tbl_set;

31720

}

31721

if (cmd) {

31722

oldarg = objv[i];

31723

objv[i] = obj;

31724

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

31725

objv[i] = oldarg;

31726

if (rcode == TCL_ERROR) return rcode;

31727

cmd = 0;

31728

} else {

31729

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -port_num -block_num -reserved -vl_arb_tbl }",-1);

31730

return TCL_ERROR;

31731

}

31732

i+=2;

31733

}

31734

if ((i < objc) || (i == 2)) {

31735

Tcl_SetStringObj(tcl_result,"{ -lid -port_num -block_num -reserved -vl_arb_tbl }",-1);

31736

return TCL_ERROR;

31737

}

31738

return TCL_OK;

31739

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

31740

if (objc == 3) {

31741

_str = Tcl_GetStringFromObj(objv[2],&length);

31742

if (0) {}

31743

if (strcmp(_str,"-lid") == 0) {

31744

cmd = _wrap_sacVlArbRec_lid_get;

31745

} else if (strcmp(_str,"-port_num") == 0) {

31746

cmd = _wrap_sacVlArbRec_port_num_get;

31747

} else if (strcmp(_str,"-block_num") == 0) {

31748

cmd = _wrap_sacVlArbRec_block_num_get;

31749

} else if (strcmp(_str,"-reserved") == 0) {

31750

cmd = _wrap_sacVlArbRec_reserved_get;

31751

} else if (strcmp(_str,"-vl_arb_tbl") == 0) {

31752

cmd = _wrap_sacVlArbRec_vl_arb_tbl_get;

31753

}

31754

else if (strcmp(_str,"-this") == 0) {

31755

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacVlArbRec_p");

31756

return TCL_OK;

31757

}

31758

if (cmd) {

31759

oldarg = objv[2];

31760

objv[2] = obj;

31761

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

31762

objv[2] = oldarg;

31763

return rcode;

31764

} else {

31765

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -port_num -block_num -reserved -vl_arb_tbl }",-1);

31766

return TCL_ERROR;

31767

}

31768

} else {

31769

Tcl_SetStringObj(tcl_result,"{ -this -lid -port_num -block_num -reserved -vl_arb_tbl }", -1);

31770

return TCL_ERROR;

31771

}

31772

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

31773

if (objc == 2) {

31774

Tcl_Obj *pDumpObj;

31775

pDumpObj = Tcl_NewStringObj("",-1);

31776

Tcl_IncrRefCount(pDumpObj);

31777

cmd = _wrap_sacVlArbRec_lid_get;

31778

oldarg = objv[2];

31779

objv[2] = obj;

31780

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

31781

objv[2] = oldarg;

31782

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

31783

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

31784

cmd = _wrap_sacVlArbRec_port_num_get;

31785

oldarg = objv[2];

31786

objv[2] = obj;

31787

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

31788

objv[2] = oldarg;

31789

Tcl_AppendStringsToObj(pDumpObj, "-port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

31790

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

31791

cmd = _wrap_sacVlArbRec_block_num_get;

31792

oldarg = objv[2];

31793

objv[2] = obj;

31794

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

31795

objv[2] = oldarg;

31796

Tcl_AppendStringsToObj(pDumpObj, "-block_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

31797

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

31798

cmd = _wrap_sacVlArbRec_reserved_get;

31799

oldarg = objv[2];

31800

objv[2] = obj;

31801

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

31802

objv[2] = oldarg;

31803

Tcl_AppendStringsToObj(pDumpObj, "-reserved ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

31804

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

31805

cmd = _wrap_sacVlArbRec_vl_arb_tbl_get;

31806

oldarg = objv[2];

31807

objv[2] = obj;

31808

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

31809

objv[2] = oldarg;

31810

Tcl_AppendStringsToObj(pDumpObj, "-vl_arb_tbl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

31811

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

31812

31813

Tcl_DecrRefCount(pDumpObj);

31814

return TCL_OK;

31815

} else {

31816

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

31817

return TCL_ERROR;

31818

}

31819

}

31820

if (!cmd) {

31821

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

31822

return TCL_ERROR;

31823

}

31824

oldarg = objv[1];

31825

objv[1] = obj;

31826

rcode = (*cmd)(clientData,interp,objc,objv);

31827

objv[1] = oldarg;

31828

return rcode;

31829

}

31830

31831

31832

31833

/* objcmd8.swg : Tcl 8.x object creation */

31834

31835

static int TclsacVlArbRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31836

void (*del)(ClientData) = 0;

31837

char *name = 0;

31838

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

31839

sacVlArbRec * newObj = 0;

31840

int firstarg = 0;

31841

int thisarg = 0;

31842

int length;

31843

char *_str;

31844

Tcl_Obj *tcl_result;

31845

31846

tcl_result = Tcl_GetObjResult(interp);

31847

if (objc == 1) {

31848

cmd = 0;

31849

} else {

31850

_str = Tcl_GetStringFromObj(objv[1],&length);

31851

if (strcmp(_str,"-this") == 0) thisarg = 2;

31852

else if (strcmp(_str,"-args") == 0) {

31853

firstarg = 1;

31854

cmd = 0;

31855

} else if (objc == 2) {

31856

firstarg = 1;

31857

name = _str;

31858

cmd = 0;

31859

} else if (objc >= 3) {

31860

name = _str;

31861

_str = Tcl_GetStringFromObj(objv[2],&length);

31862

if (strcmp(_str,"-this") == 0) thisarg = 3;

31863

else {

31864

firstarg = 1;

31865

cmd = 0;

31866

}

31867

}

31868

}

31869

if (cmd) {

31870

int result;

31871

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

31872

if (result == TCL_OK) {

31873

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacVlArbRec_p");

31874

} else { return result; }

31875

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

31876

del = 0;

31877

} else if (thisarg > 0) {

31878

if (thisarg < objc) {

31879

char *r;

31880

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacVlArbRec_p");

31881

if (r) {

31882

Tcl_SetStringObj(tcl_result,"Type error. not a sacVlArbRec object.",-1);

31883

return TCL_ERROR;

31884

}

31885

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

31886

Tcl_SetStringObj(tcl_result,name,-1);

31887

} else {

31888

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

31889

return TCL_ERROR;

31890

}

31891

} else {

31892

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

31893

return TCL_ERROR;

31894

}

31895

{

31896

Tcl_CmdInfo dummy;

31897

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

31898

Tcl_CreateObjCommand(interp,name, TclsacVlArbRecMethodCmd, (ClientData) newObj, del);

31899

return TCL_OK;

31900

} else {

31901

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

31902

return TCL_ERROR;

31903

}

31904

}

31905

}

31906

31907

31908

static ib_net16_array_t * _ib_pkey_table_pkey_entry_set(sacPKeyTbl *obj, ib_net16_array_t val[IB_NUM_PKEY_ELEMENTS_IN_BLOCK]) {

31909

{

31910

int i;

31911

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

31912

obj->pkey_entry[i] = *(val+i);

31913

}

31914

}

31915

return (ib_net16_array_t *) val;

31916

}

31917

static int _wrap_sacPKeyTbl_pkey_entry_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

31918

31919

ib_net16_array_t * _result;

31920

sacPKeyTbl * _arg0;

31921

ib_net16_array_t * _arg1;

31922

Tcl_Obj * tcl_result;

31923

char * rettype;

31924

ib_net16_t entrys[IB_NUM_PKEY_ELEMENTS_IN_BLOCK];

31925

31926

clientData = clientData; objv = objv;

31927

tcl_result = Tcl_GetObjResult(interp);

31928

if ((objc < 3) || (objc > 3)) {

31929

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyTbl_pkey_entry_set { sacPKeyTbl * } { ib_net16_array_t * } ",-1);

31930

return TCL_ERROR;

31931

}

31932

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyTbl_p"))) {

31933

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyTbl_pkey_entry_set. Expected _sacPKeyTbl_p, received ", -1);

31934

Tcl_AppendToObj(tcl_result, rettype, -1);

31935

return TCL_ERROR;

31936

}

31937

{

31938

char *buff;

31939

char *p_ch;

31940

char *last;

31941

long int entry;

31942

31943

int i = 0;

31944

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

31945

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

31946

p_ch = strtok_r(buff, " \t",&last);

31947

while (p_ch && (i < IB_NUM_PKEY_ELEMENTS_IN_BLOCK))

31948

{

31949

entry = strtol(p_ch, NULL, 0);

31950

if (entry > 65535)

31951

{

31952

printf("Error: wrong format or out of range value for expected ib_net16_t entry: %s\n", p_ch);

31953

return TCL_ERROR;

31954

}

31955

entrys[i++] = cl_hton16(entry);

31956

p_ch = strtok_r(NULL, " \t", &last);

31957

}

31958

for (; i < IB_NUM_PKEY_ELEMENTS_IN_BLOCK; i++) entrys[i] = 0;

31959

31960

free(buff);

31961

_arg1 = entrys;

31962

}

31963

{

31964

/* we can check if IBIS was initialized here */

31965

if (!IbisObj.initialized)

31966

{

31967

Tcl_SetStringObj(

31968

Tcl_GetObjResult(interp),

31969

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

31970

return TCL_ERROR;

31971

}

31972

31973

if (! IbisObj.port_guid)

31974

{

31975

Tcl_SetStringObj(

31976

Tcl_GetObjResult(interp),

31977

" ibis was not yet initialized. please use ibis_set_port before.", -1);

31978

return TCL_ERROR;

31979

}

31980

31981

ibis_tcl_error = 0;

31982

_result = (ib_net16_array_t *)_ib_pkey_table_pkey_entry_set(_arg0,_arg1);

31983

;

31984

if (ibis_tcl_error) {

31985

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

31986

return TCL_ERROR;

31987

}

31988

} tcl_result = Tcl_GetObjResult(interp);

31989

{

31990

int i;

31991

char buff[8];

31992

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

31993

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

31994

Tcl_AppendResult(interp, buff, NULL);

31995

}

31996

}

31997

return TCL_OK;

31998

}

31999

#define _ib_pkey_table_pkey_entry_get(_swigobj) ((ib_net16_array_t *) _swigobj->pkey_entry)

32000

static int _wrap_sacPKeyTbl_pkey_entry_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32001

32002

ib_net16_array_t * _result;

32003

sacPKeyTbl * _arg0;

32004

Tcl_Obj * tcl_result;

32005

char * rettype;

32006

32007

clientData = clientData; objv = objv;

32008

tcl_result = Tcl_GetObjResult(interp);

32009

if ((objc < 2) || (objc > 2)) {

32010

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyTbl_pkey_entry_get { sacPKeyTbl * } ",-1);

32011

return TCL_ERROR;

32012

}

32013

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyTbl_p"))) {

32014

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyTbl_pkey_entry_get. Expected _sacPKeyTbl_p, received ", -1);

32015

Tcl_AppendToObj(tcl_result, rettype, -1);

32016

return TCL_ERROR;

32017

}

32018

{

32019

/* we can check if IBIS was initialized here */

32020

if (!IbisObj.initialized)

32021

{

32022

Tcl_SetStringObj(

32023

Tcl_GetObjResult(interp),

32024

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32025

return TCL_ERROR;

32026

}

32027

32028

if (! IbisObj.port_guid)

32029

{

32030

Tcl_SetStringObj(

32031

Tcl_GetObjResult(interp),

32032

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32033

return TCL_ERROR;

32034

}

32035

32036

ibis_tcl_error = 0;

32037

_result = (ib_net16_array_t *)_ib_pkey_table_pkey_entry_get(_arg0);

32038

;

32039

if (ibis_tcl_error) {

32040

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32041

return TCL_ERROR;

32042

}

32043

} tcl_result = Tcl_GetObjResult(interp);

32044

{

32045

int i;

32046

char buff[8];

32047

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

32048

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

32049

Tcl_AppendResult(interp, buff, NULL);

32050

}

32051

}

32052

return TCL_OK;

32053

}

32054

/* methodcmd8.swg : Tcl8.x method invocation */

32055

32056

static int TclsacPKeyTblMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

32057

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

32058

char *_str;

32059

int rcode;

32060

Tcl_Obj **objv;

32061

Tcl_Obj *oldarg,*tcl_result,*obj;

32062

int length;

32063

char c;

32064

32065

tcl_result = Tcl_GetObjResult(interp);

32066

objv = (Tcl_Obj **) _objv;

32067

if (objc < 2) {

32068

Tcl_SetStringObj(tcl_result,"sacPKeyTbl methods : { dump cget configure }",-1);

32069

return TCL_ERROR;

32070

}

32071

obj = Tcl_NewObj();

32072

SWIG_SetPointerObj(obj,(void *) clientData,"_sacPKeyTbl_p");

32073

_str = Tcl_GetStringFromObj(objv[1],&length);

32074

c = *_str;

32075

if (0);

32076

32077

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

32078

int i = 2;

32079

cmd = 0;

32080

while (i+1 < objc) {

32081

_str = Tcl_GetStringFromObj(objv[i],&length);

32082

if (strcmp(_str,"-pkey_entry") == 0) {

32083

cmd = _wrap_sacPKeyTbl_pkey_entry_set;

32084

}

32085

if (cmd) {

32086

oldarg = objv[i];

32087

objv[i] = obj;

32088

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

32089

objv[i] = oldarg;

32090

if (rcode == TCL_ERROR) return rcode;

32091

cmd = 0;

32092

} else {

32093

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pkey_entry }",-1);

32094

return TCL_ERROR;

32095

}

32096

i+=2;

32097

}

32098

if ((i < objc) || (i == 2)) {

32099

Tcl_SetStringObj(tcl_result,"{ -pkey_entry }",-1);

32100

return TCL_ERROR;

32101

}

32102

return TCL_OK;

32103

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

32104

if (objc == 3) {

32105

_str = Tcl_GetStringFromObj(objv[2],&length);

32106

if (0) {}

32107

if (strcmp(_str,"-pkey_entry") == 0) {

32108

cmd = _wrap_sacPKeyTbl_pkey_entry_get;

32109

}

32110

else if (strcmp(_str,"-this") == 0) {

32111

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacPKeyTbl_p");

32112

return TCL_OK;

32113

}

32114

if (cmd) {

32115

oldarg = objv[2];

32116

objv[2] = obj;

32117

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

32118

objv[2] = oldarg;

32119

return rcode;

32120

} else {

32121

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pkey_entry }",-1);

32122

return TCL_ERROR;

32123

}

32124

} else {

32125

Tcl_SetStringObj(tcl_result,"{ -this -pkey_entry }", -1);

32126

return TCL_ERROR;

32127

}

32128

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

32129

if (objc == 2) {

32130

Tcl_Obj *pDumpObj;

32131

pDumpObj = Tcl_NewStringObj("",-1);

32132

Tcl_IncrRefCount(pDumpObj);

32133

cmd = _wrap_sacPKeyTbl_pkey_entry_get;

32134

oldarg = objv[2];

32135

objv[2] = obj;

32136

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

32137

objv[2] = oldarg;

32138

Tcl_AppendStringsToObj(pDumpObj, "-pkey_entry ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

32139

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

32140

32141

Tcl_DecrRefCount(pDumpObj);

32142

return TCL_OK;

32143

} else {

32144

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

32145

return TCL_ERROR;

32146

}

32147

}

32148

if (!cmd) {

32149

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

32150

return TCL_ERROR;

32151

}

32152

oldarg = objv[1];

32153

objv[1] = obj;

32154

rcode = (*cmd)(clientData,interp,objc,objv);

32155

objv[1] = oldarg;

32156

return rcode;

32157

}

32158

32159

32160

32161

/* objcmd8.swg : Tcl 8.x object creation */

32162

32163

static int TclsacPKeyTblCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32164

void (*del)(ClientData) = 0;

32165

char *name = 0;

32166

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

32167

sacPKeyTbl * newObj = 0;

32168

int firstarg = 0;

32169

int thisarg = 0;

32170

int length;

32171

char *_str;

32172

Tcl_Obj *tcl_result;

32173

32174

tcl_result = Tcl_GetObjResult(interp);

32175

if (objc == 1) {

32176

cmd = 0;

32177

} else {

32178

_str = Tcl_GetStringFromObj(objv[1],&length);

32179

if (strcmp(_str,"-this") == 0) thisarg = 2;

32180

else if (strcmp(_str,"-args") == 0) {

32181

firstarg = 1;

32182

cmd = 0;

32183

} else if (objc == 2) {

32184

firstarg = 1;

32185

name = _str;

32186

cmd = 0;

32187

} else if (objc >= 3) {

32188

name = _str;

32189

_str = Tcl_GetStringFromObj(objv[2],&length);

32190

if (strcmp(_str,"-this") == 0) thisarg = 3;

32191

else {

32192

firstarg = 1;

32193

cmd = 0;

32194

}

32195

}

32196

}

32197

if (cmd) {

32198

int result;

32199

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

32200

if (result == TCL_OK) {

32201

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacPKeyTbl_p");

32202

} else { return result; }

32203

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

32204

del = 0;

32205

} else if (thisarg > 0) {

32206

if (thisarg < objc) {

32207

char *r;

32208

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacPKeyTbl_p");

32209

if (r) {

32210

Tcl_SetStringObj(tcl_result,"Type error. not a sacPKeyTbl object.",-1);

32211

return TCL_ERROR;

32212

}

32213

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

32214

Tcl_SetStringObj(tcl_result,name,-1);

32215

} else {

32216

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

32217

return TCL_ERROR;

32218

}

32219

} else {

32220

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

32221

return TCL_ERROR;

32222

}

32223

{

32224

Tcl_CmdInfo dummy;

32225

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

32226

Tcl_CreateObjCommand(interp,name, TclsacPKeyTblMethodCmd, (ClientData) newObj, del);

32227

return TCL_OK;

32228

} else {

32229

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

32230

return TCL_ERROR;

32231

}

32232

}

32233

}

32234

32235

32236

#define _ib_pkey_table_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

32237

static int _wrap_sacPKeyRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32238

32239

ib_net16_t * _result;

32240

sacPKeyRec * _arg0;

32241

ib_net16_t * _arg1;

32242

Tcl_Obj * tcl_result;

32243

char * rettype;

32244

ib_net16_t temp;

32245

32246

clientData = clientData; objv = objv;

32247

tcl_result = Tcl_GetObjResult(interp);

32248

if ((objc < 3) || (objc > 3)) {

32249

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_lid_set { sacPKeyRec * } { ib_net16_t * } ",-1);

32250

return TCL_ERROR;

32251

}

32252

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32253

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_lid_set. Expected _sacPKeyRec_p, received ", -1);

32254

Tcl_AppendToObj(tcl_result, rettype, -1);

32255

return TCL_ERROR;

32256

}

32257

{

32258

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

32259

_arg1 = &temp;

32260

}

32261

{

32262

/* we can check if IBIS was initialized here */

32263

if (!IbisObj.initialized)

32264

{

32265

Tcl_SetStringObj(

32266

Tcl_GetObjResult(interp),

32267

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32268

return TCL_ERROR;

32269

}

32270

32271

if (! IbisObj.port_guid)

32272

{

32273

Tcl_SetStringObj(

32274

Tcl_GetObjResult(interp),

32275

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32276

return TCL_ERROR;

32277

}

32278

32279

ibis_tcl_error = 0;

32280

_result = (ib_net16_t *)_ib_pkey_table_record_lid_set(_arg0,_arg1);

32281

;

32282

if (ibis_tcl_error) {

32283

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32284

return TCL_ERROR;

32285

}

32286

} tcl_result = Tcl_GetObjResult(interp);

32287

{

32288

char buff[20];

32289

sprintf(buff, "%u", cl_hton16(*_result));

32290

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32291

}

32292

return TCL_OK;

32293

}

32294

#define _ib_pkey_table_record_lid_get(_swigobj) (&_swigobj->lid)

32295

static int _wrap_sacPKeyRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32296

32297

ib_net16_t * _result;

32298

sacPKeyRec * _arg0;

32299

Tcl_Obj * tcl_result;

32300

char * rettype;

32301

32302

clientData = clientData; objv = objv;

32303

tcl_result = Tcl_GetObjResult(interp);

32304

if ((objc < 2) || (objc > 2)) {

32305

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_lid_get { sacPKeyRec * } ",-1);

32306

return TCL_ERROR;

32307

}

32308

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32309

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_lid_get. Expected _sacPKeyRec_p, received ", -1);

32310

Tcl_AppendToObj(tcl_result, rettype, -1);

32311

return TCL_ERROR;

32312

}

32313

{

32314

/* we can check if IBIS was initialized here */

32315

if (!IbisObj.initialized)

32316

{

32317

Tcl_SetStringObj(

32318

Tcl_GetObjResult(interp),

32319

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32320

return TCL_ERROR;

32321

}

32322

32323

if (! IbisObj.port_guid)

32324

{

32325

Tcl_SetStringObj(

32326

Tcl_GetObjResult(interp),

32327

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32328

return TCL_ERROR;

32329

}

32330

32331

ibis_tcl_error = 0;

32332

_result = (ib_net16_t *)_ib_pkey_table_record_lid_get(_arg0);

32333

;

32334

if (ibis_tcl_error) {

32335

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32336

return TCL_ERROR;

32337

}

32338

} tcl_result = Tcl_GetObjResult(interp);

32339

{

32340

char buff[20];

32341

sprintf(buff, "%u", cl_hton16(*_result));

32342

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32343

}

32344

return TCL_OK;

32345

}

32346

#define _ib_pkey_table_record_block_num_set(_swigobj,_swigval) (_swigobj->block_num = *(_swigval),_swigval)

32347

static int _wrap_sacPKeyRec_block_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32348

32349

uint16_t * _result;

32350

sacPKeyRec * _arg0;

32351

uint16_t * _arg1;

32352

Tcl_Obj * tcl_result;

32353

char * rettype;

32354

uint16_t temp;

32355

32356

clientData = clientData; objv = objv;

32357

tcl_result = Tcl_GetObjResult(interp);

32358

if ((objc < 3) || (objc > 3)) {

32359

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_block_num_set { sacPKeyRec * } { uint16_t * } ",-1);

32360

return TCL_ERROR;

32361

}

32362

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32363

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_block_num_set. Expected _sacPKeyRec_p, received ", -1);

32364

Tcl_AppendToObj(tcl_result, rettype, -1);

32365

return TCL_ERROR;

32366

}

32367

{

32368

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

32369

_arg1 = &temp;

32370

}

32371

{

32372

/* we can check if IBIS was initialized here */

32373

if (!IbisObj.initialized)

32374

{

32375

Tcl_SetStringObj(

32376

Tcl_GetObjResult(interp),

32377

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32378

return TCL_ERROR;

32379

}

32380

32381

if (! IbisObj.port_guid)

32382

{

32383

Tcl_SetStringObj(

32384

Tcl_GetObjResult(interp),

32385

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32386

return TCL_ERROR;

32387

}

32388

32389

ibis_tcl_error = 0;

32390

_result = (uint16_t *)_ib_pkey_table_record_block_num_set(_arg0,_arg1);

32391

;

32392

if (ibis_tcl_error) {

32393

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32394

return TCL_ERROR;

32395

}

32396

} tcl_result = Tcl_GetObjResult(interp);

32397

{

32398

char buff[20];

32399

sprintf(buff, "%u", *_result);

32400

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32401

}

32402

return TCL_OK;

32403

}

32404

#define _ib_pkey_table_record_block_num_get(_swigobj) (&_swigobj->block_num)

32405

static int _wrap_sacPKeyRec_block_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32406

32407

uint16_t * _result;

32408

sacPKeyRec * _arg0;

32409

Tcl_Obj * tcl_result;

32410

char * rettype;

32411

32412

clientData = clientData; objv = objv;

32413

tcl_result = Tcl_GetObjResult(interp);

32414

if ((objc < 2) || (objc > 2)) {

32415

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_block_num_get { sacPKeyRec * } ",-1);

32416

return TCL_ERROR;

32417

}

32418

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32419

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_block_num_get. Expected _sacPKeyRec_p, received ", -1);

32420

Tcl_AppendToObj(tcl_result, rettype, -1);

32421

return TCL_ERROR;

32422

}

32423

{

32424

/* we can check if IBIS was initialized here */

32425

if (!IbisObj.initialized)

32426

{

32427

Tcl_SetStringObj(

32428

Tcl_GetObjResult(interp),

32429

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32430

return TCL_ERROR;

32431

}

32432

32433

if (! IbisObj.port_guid)

32434

{

32435

Tcl_SetStringObj(

32436

Tcl_GetObjResult(interp),

32437

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32438

return TCL_ERROR;

32439

}

32440

32441

ibis_tcl_error = 0;

32442

_result = (uint16_t *)_ib_pkey_table_record_block_num_get(_arg0);

32443

;

32444

if (ibis_tcl_error) {

32445

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32446

return TCL_ERROR;

32447

}

32448

} tcl_result = Tcl_GetObjResult(interp);

32449

{

32450

char buff[20];

32451

sprintf(buff, "%u", *_result);

32452

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32453

}

32454

return TCL_OK;

32455

}

32456

#define _ib_pkey_table_record_port_num_set(_swigobj,_swigval) (_swigobj->port_num = *(_swigval),_swigval)

32457

static int _wrap_sacPKeyRec_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32458

32459

uint8_t * _result;

32460

sacPKeyRec * _arg0;

32461

uint8_t * _arg1;

32462

Tcl_Obj * tcl_result;

32463

char * rettype;

32464

uint8_t temp;

32465

32466

clientData = clientData; objv = objv;

32467

tcl_result = Tcl_GetObjResult(interp);

32468

if ((objc < 3) || (objc > 3)) {

32469

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_port_num_set { sacPKeyRec * } { uint8_t * } ",-1);

32470

return TCL_ERROR;

32471

}

32472

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32473

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_port_num_set. Expected _sacPKeyRec_p, received ", -1);

32474

Tcl_AppendToObj(tcl_result, rettype, -1);

32475

return TCL_ERROR;

32476

}

32477

{

32478

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

32479

_arg1 = &temp;

32480

}

32481

{

32482

/* we can check if IBIS was initialized here */

32483

if (!IbisObj.initialized)

32484

{

32485

Tcl_SetStringObj(

32486

Tcl_GetObjResult(interp),

32487

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32488

return TCL_ERROR;

32489

}

32490

32491

if (! IbisObj.port_guid)

32492

{

32493

Tcl_SetStringObj(

32494

Tcl_GetObjResult(interp),

32495

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32496

return TCL_ERROR;

32497

}

32498

32499

ibis_tcl_error = 0;

32500

_result = (uint8_t *)_ib_pkey_table_record_port_num_set(_arg0,_arg1);

32501

;

32502

if (ibis_tcl_error) {

32503

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32504

return TCL_ERROR;

32505

}

32506

} tcl_result = Tcl_GetObjResult(interp);

32507

{

32508

char buff[20];

32509

sprintf(buff, "%u", *_result);

32510

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32511

}

32512

return TCL_OK;

32513

}

32514

#define _ib_pkey_table_record_port_num_get(_swigobj) (&_swigobj->port_num)

32515

static int _wrap_sacPKeyRec_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32516

32517

uint8_t * _result;

32518

sacPKeyRec * _arg0;

32519

Tcl_Obj * tcl_result;

32520

char * rettype;

32521

32522

clientData = clientData; objv = objv;

32523

tcl_result = Tcl_GetObjResult(interp);

32524

if ((objc < 2) || (objc > 2)) {

32525

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_port_num_get { sacPKeyRec * } ",-1);

32526

return TCL_ERROR;

32527

}

32528

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32529

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_port_num_get. Expected _sacPKeyRec_p, received ", -1);

32530

Tcl_AppendToObj(tcl_result, rettype, -1);

32531

return TCL_ERROR;

32532

}

32533

{

32534

/* we can check if IBIS was initialized here */

32535

if (!IbisObj.initialized)

32536

{

32537

Tcl_SetStringObj(

32538

Tcl_GetObjResult(interp),

32539

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32540

return TCL_ERROR;

32541

}

32542

32543

if (! IbisObj.port_guid)

32544

{

32545

Tcl_SetStringObj(

32546

Tcl_GetObjResult(interp),

32547

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32548

return TCL_ERROR;

32549

}

32550

32551

ibis_tcl_error = 0;

32552

_result = (uint8_t *)_ib_pkey_table_record_port_num_get(_arg0);

32553

;

32554

if (ibis_tcl_error) {

32555

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32556

return TCL_ERROR;

32557

}

32558

} tcl_result = Tcl_GetObjResult(interp);

32559

{

32560

char buff[20];

32561

sprintf(buff, "%u", *_result);

32562

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32563

}

32564

return TCL_OK;

32565

}

32566

#define _ib_pkey_table_record_reserved1_set(_swigobj,_swigval) (_swigobj->reserved1 = *(_swigval),_swigval)

32567

static int _wrap_sacPKeyRec_reserved1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32568

32569

uint8_t * _result;

32570

sacPKeyRec * _arg0;

32571

uint8_t * _arg1;

32572

Tcl_Obj * tcl_result;

32573

char * rettype;

32574

uint8_t temp;

32575

32576

clientData = clientData; objv = objv;

32577

tcl_result = Tcl_GetObjResult(interp);

32578

if ((objc < 3) || (objc > 3)) {

32579

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_reserved1_set { sacPKeyRec * } { uint8_t * } ",-1);

32580

return TCL_ERROR;

32581

}

32582

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32583

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_reserved1_set. Expected _sacPKeyRec_p, received ", -1);

32584

Tcl_AppendToObj(tcl_result, rettype, -1);

32585

return TCL_ERROR;

32586

}

32587

{

32588

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

32589

_arg1 = &temp;

32590

}

32591

{

32592

/* we can check if IBIS was initialized here */

32593

if (!IbisObj.initialized)

32594

{

32595

Tcl_SetStringObj(

32596

Tcl_GetObjResult(interp),

32597

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32598

return TCL_ERROR;

32599

}

32600

32601

if (! IbisObj.port_guid)

32602

{

32603

Tcl_SetStringObj(

32604

Tcl_GetObjResult(interp),

32605

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32606

return TCL_ERROR;

32607

}

32608

32609

ibis_tcl_error = 0;

32610

_result = (uint8_t *)_ib_pkey_table_record_reserved1_set(_arg0,_arg1);

32611

;

32612

if (ibis_tcl_error) {

32613

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32614

return TCL_ERROR;

32615

}

32616

} tcl_result = Tcl_GetObjResult(interp);

32617

{

32618

char buff[20];

32619

sprintf(buff, "%u", *_result);

32620

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32621

}

32622

return TCL_OK;

32623

}

32624

#define _ib_pkey_table_record_reserved1_get(_swigobj) (&_swigobj->reserved1)

32625

static int _wrap_sacPKeyRec_reserved1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32626

32627

uint8_t * _result;

32628

sacPKeyRec * _arg0;

32629

Tcl_Obj * tcl_result;

32630

char * rettype;

32631

32632

clientData = clientData; objv = objv;

32633

tcl_result = Tcl_GetObjResult(interp);

32634

if ((objc < 2) || (objc > 2)) {

32635

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_reserved1_get { sacPKeyRec * } ",-1);

32636

return TCL_ERROR;

32637

}

32638

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32639

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_reserved1_get. Expected _sacPKeyRec_p, received ", -1);

32640

Tcl_AppendToObj(tcl_result, rettype, -1);

32641

return TCL_ERROR;

32642

}

32643

{

32644

/* we can check if IBIS was initialized here */

32645

if (!IbisObj.initialized)

32646

{

32647

Tcl_SetStringObj(

32648

Tcl_GetObjResult(interp),

32649

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32650

return TCL_ERROR;

32651

}

32652

32653

if (! IbisObj.port_guid)

32654

{

32655

Tcl_SetStringObj(

32656

Tcl_GetObjResult(interp),

32657

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32658

return TCL_ERROR;

32659

}

32660

32661

ibis_tcl_error = 0;

32662

_result = (uint8_t *)_ib_pkey_table_record_reserved1_get(_arg0);

32663

;

32664

if (ibis_tcl_error) {

32665

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32666

return TCL_ERROR;

32667

}

32668

} tcl_result = Tcl_GetObjResult(interp);

32669

{

32670

char buff[20];

32671

sprintf(buff, "%u", *_result);

32672

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32673

}

32674

return TCL_OK;

32675

}

32676

#define _ib_pkey_table_record_reserved2_set(_swigobj,_swigval) (_swigobj->reserved2 = *(_swigval),_swigval)

32677

static int _wrap_sacPKeyRec_reserved2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32678

32679

uint16_t * _result;

32680

sacPKeyRec * _arg0;

32681

uint16_t * _arg1;

32682

Tcl_Obj * tcl_result;

32683

char * rettype;

32684

uint16_t temp;

32685

32686

clientData = clientData; objv = objv;

32687

tcl_result = Tcl_GetObjResult(interp);

32688

if ((objc < 3) || (objc > 3)) {

32689

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_reserved2_set { sacPKeyRec * } { uint16_t * } ",-1);

32690

return TCL_ERROR;

32691

}

32692

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32693

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_reserved2_set. Expected _sacPKeyRec_p, received ", -1);

32694

Tcl_AppendToObj(tcl_result, rettype, -1);

32695

return TCL_ERROR;

32696

}

32697

{

32698

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

32699

_arg1 = &temp;

32700

}

32701

{

32702

/* we can check if IBIS was initialized here */

32703

if (!IbisObj.initialized)

32704

{

32705

Tcl_SetStringObj(

32706

Tcl_GetObjResult(interp),

32707

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32708

return TCL_ERROR;

32709

}

32710

32711

if (! IbisObj.port_guid)

32712

{

32713

Tcl_SetStringObj(

32714

Tcl_GetObjResult(interp),

32715

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32716

return TCL_ERROR;

32717

}

32718

32719

ibis_tcl_error = 0;

32720

_result = (uint16_t *)_ib_pkey_table_record_reserved2_set(_arg0,_arg1);

32721

;

32722

if (ibis_tcl_error) {

32723

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32724

return TCL_ERROR;

32725

}

32726

} tcl_result = Tcl_GetObjResult(interp);

32727

{

32728

char buff[20];

32729

sprintf(buff, "%u", *_result);

32730

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32731

}

32732

return TCL_OK;

32733

}

32734

#define _ib_pkey_table_record_reserved2_get(_swigobj) (&_swigobj->reserved2)

32735

static int _wrap_sacPKeyRec_reserved2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32736

32737

uint16_t * _result;

32738

sacPKeyRec * _arg0;

32739

Tcl_Obj * tcl_result;

32740

char * rettype;

32741

32742

clientData = clientData; objv = objv;

32743

tcl_result = Tcl_GetObjResult(interp);

32744

if ((objc < 2) || (objc > 2)) {

32745

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_reserved2_get { sacPKeyRec * } ",-1);

32746

return TCL_ERROR;

32747

}

32748

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32749

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_reserved2_get. Expected _sacPKeyRec_p, received ", -1);

32750

Tcl_AppendToObj(tcl_result, rettype, -1);

32751

return TCL_ERROR;

32752

}

32753

{

32754

/* we can check if IBIS was initialized here */

32755

if (!IbisObj.initialized)

32756

{

32757

Tcl_SetStringObj(

32758

Tcl_GetObjResult(interp),

32759

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32760

return TCL_ERROR;

32761

}

32762

32763

if (! IbisObj.port_guid)

32764

{

32765

Tcl_SetStringObj(

32766

Tcl_GetObjResult(interp),

32767

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32768

return TCL_ERROR;

32769

}

32770

32771

ibis_tcl_error = 0;

32772

_result = (uint16_t *)_ib_pkey_table_record_reserved2_get(_arg0);

32773

;

32774

if (ibis_tcl_error) {

32775

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32776

return TCL_ERROR;

32777

}

32778

} tcl_result = Tcl_GetObjResult(interp);

32779

{

32780

char buff[20];

32781

sprintf(buff, "%u", *_result);

32782

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

32783

}

32784

return TCL_OK;

32785

}

32786

#define _ib_pkey_table_record_pkey_tbl_set(_swigobj,_swigval) (_swigobj->pkey_tbl = *(_swigval),_swigval)

32787

static int _wrap_sacPKeyRec_pkey_tbl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32788

32789

sacPKeyTbl * _result;

32790

sacPKeyRec * _arg0;

32791

sacPKeyTbl * _arg1;

32792

Tcl_Obj * tcl_result;

32793

char * rettype;

32794

32795

clientData = clientData; objv = objv;

32796

tcl_result = Tcl_GetObjResult(interp);

32797

if ((objc < 3) || (objc > 3)) {

32798

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_pkey_tbl_set { sacPKeyRec * } { sacPKeyTbl * } ",-1);

32799

return TCL_ERROR;

32800

}

32801

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32802

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_pkey_tbl_set. Expected _sacPKeyRec_p, received ", -1);

32803

Tcl_AppendToObj(tcl_result, rettype, -1);

32804

return TCL_ERROR;

32805

}

32806

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacPKeyTbl_p"))) {

32807

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacPKeyRec_pkey_tbl_set. Expected _sacPKeyTbl_p, received ", -1);

32808

Tcl_AppendToObj(tcl_result, rettype, -1);

32809

return TCL_ERROR;

32810

}

32811

{

32812

/* we can check if IBIS was initialized here */

32813

if (!IbisObj.initialized)

32814

{

32815

Tcl_SetStringObj(

32816

Tcl_GetObjResult(interp),

32817

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32818

return TCL_ERROR;

32819

}

32820

32821

if (! IbisObj.port_guid)

32822

{

32823

Tcl_SetStringObj(

32824

Tcl_GetObjResult(interp),

32825

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32826

return TCL_ERROR;

32827

}

32828

32829

ibis_tcl_error = 0;

32830

_result = (sacPKeyTbl *)_ib_pkey_table_record_pkey_tbl_set(_arg0,_arg1);

32831

;

32832

if (ibis_tcl_error) {

32833

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32834

return TCL_ERROR;

32835

}

32836

} tcl_result = Tcl_GetObjResult(interp);

32837

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacPKeyTbl_p");

32838

return TCL_OK;

32839

}

32840

#define _ib_pkey_table_record_pkey_tbl_get(_swigobj) (&_swigobj->pkey_tbl)

32841

static int _wrap_sacPKeyRec_pkey_tbl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32842

32843

sacPKeyTbl * _result;

32844

sacPKeyRec * _arg0;

32845

Tcl_Obj * tcl_result;

32846

char * rettype;

32847

32848

clientData = clientData; objv = objv;

32849

tcl_result = Tcl_GetObjResult(interp);

32850

if ((objc < 2) || (objc > 2)) {

32851

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_pkey_tbl_get { sacPKeyRec * } ",-1);

32852

return TCL_ERROR;

32853

}

32854

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32855

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_pkey_tbl_get. Expected _sacPKeyRec_p, received ", -1);

32856

Tcl_AppendToObj(tcl_result, rettype, -1);

32857

return TCL_ERROR;

32858

}

32859

{

32860

/* we can check if IBIS was initialized here */

32861

if (!IbisObj.initialized)

32862

{

32863

Tcl_SetStringObj(

32864

Tcl_GetObjResult(interp),

32865

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32866

return TCL_ERROR;

32867

}

32868

32869

if (! IbisObj.port_guid)

32870

{

32871

Tcl_SetStringObj(

32872

Tcl_GetObjResult(interp),

32873

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32874

return TCL_ERROR;

32875

}

32876

32877

ibis_tcl_error = 0;

32878

_result = (sacPKeyTbl *)_ib_pkey_table_record_pkey_tbl_get(_arg0);

32879

;

32880

if (ibis_tcl_error) {

32881

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32882

return TCL_ERROR;

32883

}

32884

} tcl_result = Tcl_GetObjResult(interp);

32885

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacPKeyTbl_p");

32886

return TCL_OK;

32887

}

32888

static char * sacPKeyRec_get(sacPKeyRec *self,uint64_t comp_mask) {

32889

return(ibsacPKeyRecordQuery(self, cl_hton64(comp_mask),

32890

IB_MAD_METHOD_GET));

32891

}

32892

static int _wrap_sacPKeyRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32893

32894

char * _result;

32895

sacPKeyRec * _arg0;

32896

uint64_t * _arg1;

32897

Tcl_Obj * tcl_result;

32898

char * rettype;

32899

uint64_t temp;

32900

32901

clientData = clientData; objv = objv;

32902

tcl_result = Tcl_GetObjResult(interp);

32903

if ((objc < 3) || (objc > 3)) {

32904

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_get { sacPKeyRec * } comp_mask ",-1);

32905

return TCL_ERROR;

32906

}

32907

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32908

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_get. Expected _sacPKeyRec_p, received ", -1);

32909

Tcl_AppendToObj(tcl_result, rettype, -1);

32910

return TCL_ERROR;

32911

}

32912

{

32913

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

32914

_arg1 = &temp;

32915

}

32916

{

32917

/* we can check if IBIS was initialized here */

32918

if (!IbisObj.initialized)

32919

{

32920

Tcl_SetStringObj(

32921

Tcl_GetObjResult(interp),

32922

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32923

return TCL_ERROR;

32924

}

32925

32926

if (! IbisObj.port_guid)

32927

{

32928

Tcl_SetStringObj(

32929

Tcl_GetObjResult(interp),

32930

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32931

return TCL_ERROR;

32932

}

32933

32934

ibis_tcl_error = 0;

32935

_result = (char *)sacPKeyRec_get(_arg0,*_arg1);

32936

;

32937

if (ibis_tcl_error) {

32938

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32939

return TCL_ERROR;

32940

}

32941

} tcl_result = Tcl_GetObjResult(interp);

32942

Tcl_SetStringObj(tcl_result,_result,-1);

32943

free(_result);

32944

32945

return TCL_OK;

32946

}

32947

static char * sacPKeyRec_getTable(sacPKeyRec *self,uint64_t comp_mask) {

32948

return(ibsacPKeyRecordQuery(self, cl_hton64(comp_mask),

32949

IB_MAD_METHOD_GETTABLE));

32950

}

32951

static int _wrap_sacPKeyRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

32952

32953

char * _result;

32954

sacPKeyRec * _arg0;

32955

uint64_t * _arg1;

32956

Tcl_Obj * tcl_result;

32957

char * rettype;

32958

uint64_t temp;

32959

32960

clientData = clientData; objv = objv;

32961

tcl_result = Tcl_GetObjResult(interp);

32962

if ((objc < 3) || (objc > 3)) {

32963

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_getTable { sacPKeyRec * } comp_mask ",-1);

32964

return TCL_ERROR;

32965

}

32966

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

32967

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_getTable. Expected _sacPKeyRec_p, received ", -1);

32968

Tcl_AppendToObj(tcl_result, rettype, -1);

32969

return TCL_ERROR;

32970

}

32971

{

32972

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

32973

_arg1 = &temp;

32974

}

32975

{

32976

/* we can check if IBIS was initialized here */

32977

if (!IbisObj.initialized)

32978

{

32979

Tcl_SetStringObj(

32980

Tcl_GetObjResult(interp),

32981

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

32982

return TCL_ERROR;

32983

}

32984

32985

if (! IbisObj.port_guid)

32986

{

32987

Tcl_SetStringObj(

32988

Tcl_GetObjResult(interp),

32989

" ibis was not yet initialized. please use ibis_set_port before.", -1);

32990

return TCL_ERROR;

32991

}

32992

32993

ibis_tcl_error = 0;

32994

_result = (char *)sacPKeyRec_getTable(_arg0,*_arg1);

32995

;

32996

if (ibis_tcl_error) {

32997

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

32998

return TCL_ERROR;

32999

}

33000

} tcl_result = Tcl_GetObjResult(interp);

33001

Tcl_SetStringObj(tcl_result,_result,-1);

33002

free(_result);

33003

33004

return TCL_OK;

33005

}

33006

static void sacPKeyRec_delete(sacPKeyRec *self) {

33007

SWIG_AltMnglUnregObj(&(self->pkey_tbl));

33008

SWIG_AltMnglUnregObj(self);

33009

free(self);

33010

}

33011

static int _wrap_sacPKeyRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33012

33013

sacPKeyRec * _arg0;

33014

Tcl_Obj * tcl_result;

33015

char * rettype;

33016

33017

clientData = clientData; objv = objv;

33018

tcl_result = Tcl_GetObjResult(interp);

33019

if ((objc < 2) || (objc > 2)) {

33020

Tcl_SetStringObj(tcl_result,"Wrong # args. sacPKeyRec_delete { sacPKeyRec * } ",-1);

33021

return TCL_ERROR;

33022

}

33023

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacPKeyRec_p"))) {

33024

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacPKeyRec_delete. Expected _sacPKeyRec_p, received ", -1);

33025

Tcl_AppendToObj(tcl_result, rettype, -1);

33026

return TCL_ERROR;

33027

}

33028

{

33029

/* we can check if IBIS was initialized here */

33030

if (!IbisObj.initialized)

33031

{

33032

Tcl_SetStringObj(

33033

Tcl_GetObjResult(interp),

33034

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33035

return TCL_ERROR;

33036

}

33037

33038

if (! IbisObj.port_guid)

33039

{

33040

Tcl_SetStringObj(

33041

Tcl_GetObjResult(interp),

33042

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33043

return TCL_ERROR;

33044

}

33045

33046

ibis_tcl_error = 0;

33047

sacPKeyRec_delete(_arg0);

33048

;

33049

if (ibis_tcl_error) {

33050

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33051

return TCL_ERROR;

33052

}

33053

} tcl_result = Tcl_GetObjResult(interp);

33054

return TCL_OK;

33055

}

33056

/* methodcmd8.swg : Tcl8.x method invocation */

33057

33058

static int TclsacPKeyRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

33059

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

33060

char *_str;

33061

int rcode;

33062

Tcl_Obj **objv;

33063

Tcl_Obj *oldarg,*tcl_result,*obj;

33064

int length;

33065

char c;

33066

33067

tcl_result = Tcl_GetObjResult(interp);

33068

objv = (Tcl_Obj **) _objv;

33069

if (objc < 2) {

33070

Tcl_SetStringObj(tcl_result,"sacPKeyRec methods : { dump cget configure get getTable delete }",-1);

33071

return TCL_ERROR;

33072

}

33073

obj = Tcl_NewObj();

33074

SWIG_SetPointerObj(obj,(void *) clientData,"_sacPKeyRec_p");

33075

_str = Tcl_GetStringFromObj(objv[1],&length);

33076

c = *_str;

33077

if (0);

33078

if (strcmp(_str,"get") == 0) {

33079

cmd = _wrap_sacPKeyRec_get;

33080

} else if (strcmp(_str,"getTable") == 0) {

33081

cmd = _wrap_sacPKeyRec_getTable;

33082

} else if (strcmp(_str,"delete") == 0) {

33083

cmd = _wrap_sacPKeyRec_delete;

33084

}

33085

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

33086

int i = 2;

33087

cmd = 0;

33088

while (i+1 < objc) {

33089

_str = Tcl_GetStringFromObj(objv[i],&length);

33090

if (strcmp(_str,"-lid") == 0) {

33091

cmd = _wrap_sacPKeyRec_lid_set;

33092

} else if (strcmp(_str,"-block_num") == 0) {

33093

cmd = _wrap_sacPKeyRec_block_num_set;

33094

} else if (strcmp(_str,"-port_num") == 0) {

33095

cmd = _wrap_sacPKeyRec_port_num_set;

33096

} else if (strcmp(_str,"-reserved1") == 0) {

33097

cmd = _wrap_sacPKeyRec_reserved1_set;

33098

} else if (strcmp(_str,"-reserved2") == 0) {

33099

cmd = _wrap_sacPKeyRec_reserved2_set;

33100

} else if (strcmp(_str,"-pkey_tbl") == 0) {

33101

cmd = _wrap_sacPKeyRec_pkey_tbl_set;

33102

}

33103

if (cmd) {

33104

oldarg = objv[i];

33105

objv[i] = obj;

33106

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

33107

objv[i] = oldarg;

33108

if (rcode == TCL_ERROR) return rcode;

33109

cmd = 0;

33110

} else {

33111

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -block_num -port_num -reserved1 -reserved2 -pkey_tbl }",-1);

33112

return TCL_ERROR;

33113

}

33114

i+=2;

33115

}

33116

if ((i < objc) || (i == 2)) {

33117

Tcl_SetStringObj(tcl_result,"{ -lid -block_num -port_num -reserved1 -reserved2 -pkey_tbl }",-1);

33118

return TCL_ERROR;

33119

}

33120

return TCL_OK;

33121

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

33122

if (objc == 3) {

33123

_str = Tcl_GetStringFromObj(objv[2],&length);

33124

if (0) {}

33125

if (strcmp(_str,"-lid") == 0) {

33126

cmd = _wrap_sacPKeyRec_lid_get;

33127

} else if (strcmp(_str,"-block_num") == 0) {

33128

cmd = _wrap_sacPKeyRec_block_num_get;

33129

} else if (strcmp(_str,"-port_num") == 0) {

33130

cmd = _wrap_sacPKeyRec_port_num_get;

33131

} else if (strcmp(_str,"-reserved1") == 0) {

33132

cmd = _wrap_sacPKeyRec_reserved1_get;

33133

} else if (strcmp(_str,"-reserved2") == 0) {

33134

cmd = _wrap_sacPKeyRec_reserved2_get;

33135

} else if (strcmp(_str,"-pkey_tbl") == 0) {

33136

cmd = _wrap_sacPKeyRec_pkey_tbl_get;

33137

}

33138

else if (strcmp(_str,"-this") == 0) {

33139

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacPKeyRec_p");

33140

return TCL_OK;

33141

}

33142

if (cmd) {

33143

oldarg = objv[2];

33144

objv[2] = obj;

33145

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

33146

objv[2] = oldarg;

33147

return rcode;

33148

} else {

33149

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -block_num -port_num -reserved1 -reserved2 -pkey_tbl }",-1);

33150

return TCL_ERROR;

33151

}

33152

} else {

33153

Tcl_SetStringObj(tcl_result,"{ -this -lid -block_num -port_num -reserved1 -reserved2 -pkey_tbl }", -1);

33154

return TCL_ERROR;

33155

}

33156

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

33157

if (objc == 2) {

33158

Tcl_Obj *pDumpObj;

33159

pDumpObj = Tcl_NewStringObj("",-1);

33160

Tcl_IncrRefCount(pDumpObj);

33161

cmd = _wrap_sacPKeyRec_lid_get;

33162

oldarg = objv[2];

33163

objv[2] = obj;

33164

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33165

objv[2] = oldarg;

33166

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33167

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33168

cmd = _wrap_sacPKeyRec_block_num_get;

33169

oldarg = objv[2];

33170

objv[2] = obj;

33171

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33172

objv[2] = oldarg;

33173

Tcl_AppendStringsToObj(pDumpObj, "-block_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33174

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33175

cmd = _wrap_sacPKeyRec_port_num_get;

33176

oldarg = objv[2];

33177

objv[2] = obj;

33178

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33179

objv[2] = oldarg;

33180

Tcl_AppendStringsToObj(pDumpObj, "-port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33181

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33182

cmd = _wrap_sacPKeyRec_reserved1_get;

33183

oldarg = objv[2];

33184

objv[2] = obj;

33185

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33186

objv[2] = oldarg;

33187

Tcl_AppendStringsToObj(pDumpObj, "-reserved1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33188

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33189

cmd = _wrap_sacPKeyRec_reserved2_get;

33190

oldarg = objv[2];

33191

objv[2] = obj;

33192

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33193

objv[2] = oldarg;

33194

Tcl_AppendStringsToObj(pDumpObj, "-reserved2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33195

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33196

cmd = _wrap_sacPKeyRec_pkey_tbl_get;

33197

oldarg = objv[2];

33198

objv[2] = obj;

33199

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33200

objv[2] = oldarg;

33201

Tcl_AppendStringsToObj(pDumpObj, "-pkey_tbl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33202

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33203

33204

Tcl_DecrRefCount(pDumpObj);

33205

return TCL_OK;

33206

} else {

33207

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

33208

return TCL_ERROR;

33209

}

33210

}

33211

if (!cmd) {

33212

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get getTable delete }",-1);

33213

return TCL_ERROR;

33214

}

33215

oldarg = objv[1];

33216

objv[1] = obj;

33217

rcode = (*cmd)(clientData,interp,objc,objv);

33218

objv[1] = oldarg;

33219

return rcode;

33220

}

33221

33222

33223

33224

/* objcmd8.swg : Tcl 8.x object creation */

33225

33226

static int TclsacPKeyRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33227

void (*del)(ClientData) = 0;

33228

char *name = 0;

33229

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

33230

sacPKeyRec * newObj = 0;

33231

int firstarg = 0;

33232

int thisarg = 0;

33233

int length;

33234

char *_str;

33235

Tcl_Obj *tcl_result;

33236

33237

tcl_result = Tcl_GetObjResult(interp);

33238

if (objc == 1) {

33239

cmd = 0;

33240

} else {

33241

_str = Tcl_GetStringFromObj(objv[1],&length);

33242

if (strcmp(_str,"-this") == 0) thisarg = 2;

33243

else if (strcmp(_str,"-args") == 0) {

33244

firstarg = 1;

33245

cmd = 0;

33246

} else if (objc == 2) {

33247

firstarg = 1;

33248

name = _str;

33249

cmd = 0;

33250

} else if (objc >= 3) {

33251

name = _str;

33252

_str = Tcl_GetStringFromObj(objv[2],&length);

33253

if (strcmp(_str,"-this") == 0) thisarg = 3;

33254

else {

33255

firstarg = 1;

33256

cmd = 0;

33257

}

33258

}

33259

}

33260

if (cmd) {

33261

int result;

33262

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

33263

if (result == TCL_OK) {

33264

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacPKeyRec_p");

33265

} else { return result; }

33266

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

33267

del = 0;

33268

} else if (thisarg > 0) {

33269

if (thisarg < objc) {

33270

char *r;

33271

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacPKeyRec_p");

33272

if (r) {

33273

Tcl_SetStringObj(tcl_result,"Type error. not a sacPKeyRec object.",-1);

33274

return TCL_ERROR;

33275

}

33276

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

33277

Tcl_SetStringObj(tcl_result,name,-1);

33278

} else {

33279

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

33280

return TCL_ERROR;

33281

}

33282

} else {

33283

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

33284

return TCL_ERROR;

33285

}

33286

{

33287

Tcl_CmdInfo dummy;

33288

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

33289

Tcl_CreateObjCommand(interp,name, TclsacPKeyRecMethodCmd, (ClientData) newObj, del);

33290

return TCL_OK;

33291

} else {

33292

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

33293

return TCL_ERROR;

33294

}

33295

}

33296

}

33297

33298

33299

static ib_net64_array_t * _ib_guid_info_guid_set(sacGuidInfo *obj, ib_net64_array_t val[GUID_TABLE_MAX_ENTRIES]) {

33300

{

33301

int i;

33302

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

33303

obj->guid[i] = *(val+i);

33304

}

33305

}

33306

return (ib_net64_array_t *) val;

33307

}

33308

static int _wrap_sacGuidInfo_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33309

33310

ib_net64_array_t * _result;

33311

sacGuidInfo * _arg0;

33312

ib_net64_array_t * _arg1;

33313

Tcl_Obj * tcl_result;

33314

char * rettype;

33315

ib_net64_t entrys[GUID_TABLE_MAX_ENTRIES];

33316

33317

clientData = clientData; objv = objv;

33318

tcl_result = Tcl_GetObjResult(interp);

33319

if ((objc < 3) || (objc > 3)) {

33320

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidInfo_guid_set { sacGuidInfo * } { ib_net64_array_t * } ",-1);

33321

return TCL_ERROR;

33322

}

33323

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidInfo_p"))) {

33324

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidInfo_guid_set. Expected _sacGuidInfo_p, received ", -1);

33325

Tcl_AppendToObj(tcl_result, rettype, -1);

33326

return TCL_ERROR;

33327

}

33328

{

33329

char *buff;

33330

char *p_ch;

33331

char *last;

33332

uint64_t entry;

33333

33334

int i = 0;

33335

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

33336

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

33337

p_ch = strtok_r(buff, " \t",&last);

33338

while (p_ch && (i < GUID_TABLE_MAX_ENTRIES))

33339

{

33340

entry = strtoll(p_ch, NULL, 0);

33341

if (entry > 0xffffffffffffffffULL )

33342

{

33343

printf("Error: wrong format or out of range value for expected ib_net64_t entry: %s\n", p_ch);

33344

return TCL_ERROR;

33345

}

33346

entrys[i++] = cl_hton64(entry);

33347

p_ch = strtok_r(NULL, " \t", &last);

33348

}

33349

for (; i < GUID_TABLE_MAX_ENTRIES; i++) entrys[i] = 0;

33350

33351

free(buff);

33352

_arg1 = entrys;

33353

}

33354

{

33355

/* we can check if IBIS was initialized here */

33356

if (!IbisObj.initialized)

33357

{

33358

Tcl_SetStringObj(

33359

Tcl_GetObjResult(interp),

33360

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33361

return TCL_ERROR;

33362

}

33363

33364

if (! IbisObj.port_guid)

33365

{

33366

Tcl_SetStringObj(

33367

Tcl_GetObjResult(interp),

33368

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33369

return TCL_ERROR;

33370

}

33371

33372

ibis_tcl_error = 0;

33373

_result = (ib_net64_array_t *)_ib_guid_info_guid_set(_arg0,_arg1);

33374

;

33375

if (ibis_tcl_error) {

33376

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33377

return TCL_ERROR;

33378

}

33379

} tcl_result = Tcl_GetObjResult(interp);

33380

{

33381

int i;

33382

char buff[20];

33383

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

33384

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

33385

Tcl_AppendResult(interp, buff, NULL);

33386

}

33387

}

33388

return TCL_OK;

33389

}

33390

#define _ib_guid_info_guid_get(_swigobj) ((ib_net64_array_t *) _swigobj->guid)

33391

static int _wrap_sacGuidInfo_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33392

33393

ib_net64_array_t * _result;

33394

sacGuidInfo * _arg0;

33395

Tcl_Obj * tcl_result;

33396

char * rettype;

33397

33398

clientData = clientData; objv = objv;

33399

tcl_result = Tcl_GetObjResult(interp);

33400

if ((objc < 2) || (objc > 2)) {

33401

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidInfo_guid_get { sacGuidInfo * } ",-1);

33402

return TCL_ERROR;

33403

}

33404

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidInfo_p"))) {

33405

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidInfo_guid_get. Expected _sacGuidInfo_p, received ", -1);

33406

Tcl_AppendToObj(tcl_result, rettype, -1);

33407

return TCL_ERROR;

33408

}

33409

{

33410

/* we can check if IBIS was initialized here */

33411

if (!IbisObj.initialized)

33412

{

33413

Tcl_SetStringObj(

33414

Tcl_GetObjResult(interp),

33415

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33416

return TCL_ERROR;

33417

}

33418

33419

if (! IbisObj.port_guid)

33420

{

33421

Tcl_SetStringObj(

33422

Tcl_GetObjResult(interp),

33423

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33424

return TCL_ERROR;

33425

}

33426

33427

ibis_tcl_error = 0;

33428

_result = (ib_net64_array_t *)_ib_guid_info_guid_get(_arg0);

33429

;

33430

if (ibis_tcl_error) {

33431

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33432

return TCL_ERROR;

33433

}

33434

} tcl_result = Tcl_GetObjResult(interp);

33435

{

33436

int i;

33437

char buff[20];

33438

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

33439

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

33440

Tcl_AppendResult(interp, buff, NULL);

33441

}

33442

}

33443

return TCL_OK;

33444

}

33445

static void sacGuidInfo_delete(sacGuidInfo *self) {

33446

SWIG_AltMnglUnregObj(self);

33447

free(self);

33448

}

33449

static int _wrap_sacGuidInfo_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33450

33451

sacGuidInfo * _arg0;

33452

Tcl_Obj * tcl_result;

33453

char * rettype;

33454

33455

clientData = clientData; objv = objv;

33456

tcl_result = Tcl_GetObjResult(interp);

33457

if ((objc < 2) || (objc > 2)) {

33458

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidInfo_delete { sacGuidInfo * } ",-1);

33459

return TCL_ERROR;

33460

}

33461

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidInfo_p"))) {

33462

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidInfo_delete. Expected _sacGuidInfo_p, received ", -1);

33463

Tcl_AppendToObj(tcl_result, rettype, -1);

33464

return TCL_ERROR;

33465

}

33466

{

33467

/* we can check if IBIS was initialized here */

33468

if (!IbisObj.initialized)

33469

{

33470

Tcl_SetStringObj(

33471

Tcl_GetObjResult(interp),

33472

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33473

return TCL_ERROR;

33474

}

33475

33476

if (! IbisObj.port_guid)

33477

{

33478

Tcl_SetStringObj(

33479

Tcl_GetObjResult(interp),

33480

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33481

return TCL_ERROR;

33482

}

33483

33484

ibis_tcl_error = 0;

33485

sacGuidInfo_delete(_arg0);

33486

;

33487

if (ibis_tcl_error) {

33488

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33489

return TCL_ERROR;

33490

}

33491

} tcl_result = Tcl_GetObjResult(interp);

33492

return TCL_OK;

33493

}

33494

/* methodcmd8.swg : Tcl8.x method invocation */

33495

33496

static int TclsacGuidInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

33497

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

33498

char *_str;

33499

int rcode;

33500

Tcl_Obj **objv;

33501

Tcl_Obj *oldarg,*tcl_result,*obj;

33502

int length;

33503

char c;

33504

33505

tcl_result = Tcl_GetObjResult(interp);

33506

objv = (Tcl_Obj **) _objv;

33507

if (objc < 2) {

33508

Tcl_SetStringObj(tcl_result,"sacGuidInfo methods : { dump cget configure delete }",-1);

33509

return TCL_ERROR;

33510

}

33511

obj = Tcl_NewObj();

33512

SWIG_SetPointerObj(obj,(void *) clientData,"_sacGuidInfo_p");

33513

_str = Tcl_GetStringFromObj(objv[1],&length);

33514

c = *_str;

33515

if (0);

33516

if (strcmp(_str,"delete") == 0) {

33517

cmd = _wrap_sacGuidInfo_delete;

33518

}

33519

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

33520

int i = 2;

33521

cmd = 0;

33522

while (i+1 < objc) {

33523

_str = Tcl_GetStringFromObj(objv[i],&length);

33524

if (strcmp(_str,"-guid") == 0) {

33525

cmd = _wrap_sacGuidInfo_guid_set;

33526

}

33527

if (cmd) {

33528

oldarg = objv[i];

33529

objv[i] = obj;

33530

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

33531

objv[i] = oldarg;

33532

if (rcode == TCL_ERROR) return rcode;

33533

cmd = 0;

33534

} else {

33535

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -guid }",-1);

33536

return TCL_ERROR;

33537

}

33538

i+=2;

33539

}

33540

if ((i < objc) || (i == 2)) {

33541

Tcl_SetStringObj(tcl_result,"{ -guid }",-1);

33542

return TCL_ERROR;

33543

}

33544

return TCL_OK;

33545

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

33546

if (objc == 3) {

33547

_str = Tcl_GetStringFromObj(objv[2],&length);

33548

if (0) {}

33549

if (strcmp(_str,"-guid") == 0) {

33550

cmd = _wrap_sacGuidInfo_guid_get;

33551

}

33552

else if (strcmp(_str,"-this") == 0) {

33553

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacGuidInfo_p");

33554

return TCL_OK;

33555

}

33556

if (cmd) {

33557

oldarg = objv[2];

33558

objv[2] = obj;

33559

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

33560

objv[2] = oldarg;

33561

return rcode;

33562

} else {

33563

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -guid }",-1);

33564

return TCL_ERROR;

33565

}

33566

} else {

33567

Tcl_SetStringObj(tcl_result,"{ -this -guid }", -1);

33568

return TCL_ERROR;

33569

}

33570

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

33571

if (objc == 2) {

33572

Tcl_Obj *pDumpObj;

33573

pDumpObj = Tcl_NewStringObj("",-1);

33574

Tcl_IncrRefCount(pDumpObj);

33575

cmd = _wrap_sacGuidInfo_guid_get;

33576

oldarg = objv[2];

33577

objv[2] = obj;

33578

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

33579

objv[2] = oldarg;

33580

Tcl_AppendStringsToObj(pDumpObj, "-guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

33581

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

33582

33583

Tcl_DecrRefCount(pDumpObj);

33584

return TCL_OK;

33585

} else {

33586

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

33587

return TCL_ERROR;

33588

}

33589

}

33590

if (!cmd) {

33591

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure delete }",-1);

33592

return TCL_ERROR;

33593

}

33594

oldarg = objv[1];

33595

objv[1] = obj;

33596

rcode = (*cmd)(clientData,interp,objc,objv);

33597

objv[1] = oldarg;

33598

return rcode;

33599

}

33600

33601

33602

33603

/* objcmd8.swg : Tcl 8.x object creation */

33604

33605

static int TclsacGuidInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33606

void (*del)(ClientData) = 0;

33607

char *name = 0;

33608

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

33609

sacGuidInfo * newObj = 0;

33610

int firstarg = 0;

33611

int thisarg = 0;

33612

int length;

33613

char *_str;

33614

Tcl_Obj *tcl_result;

33615

33616

tcl_result = Tcl_GetObjResult(interp);

33617

if (objc == 1) {

33618

cmd = 0;

33619

} else {

33620

_str = Tcl_GetStringFromObj(objv[1],&length);

33621

if (strcmp(_str,"-this") == 0) thisarg = 2;

33622

else if (strcmp(_str,"-args") == 0) {

33623

firstarg = 1;

33624

cmd = 0;

33625

} else if (objc == 2) {

33626

firstarg = 1;

33627

name = _str;

33628

cmd = 0;

33629

} else if (objc >= 3) {

33630

name = _str;

33631

_str = Tcl_GetStringFromObj(objv[2],&length);

33632

if (strcmp(_str,"-this") == 0) thisarg = 3;

33633

else {

33634

firstarg = 1;

33635

cmd = 0;

33636

}

33637

}

33638

}

33639

if (cmd) {

33640

int result;

33641

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

33642

if (result == TCL_OK) {

33643

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacGuidInfo_p");

33644

} else { return result; }

33645

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

33646

del = 0;

33647

} else if (thisarg > 0) {

33648

if (thisarg < objc) {

33649

char *r;

33650

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacGuidInfo_p");

33651

if (r) {

33652

Tcl_SetStringObj(tcl_result,"Type error. not a sacGuidInfo object.",-1);

33653

return TCL_ERROR;

33654

}

33655

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

33656

Tcl_SetStringObj(tcl_result,name,-1);

33657

} else {

33658

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

33659

return TCL_ERROR;

33660

}

33661

} else {

33662

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

33663

return TCL_ERROR;

33664

}

33665

{

33666

Tcl_CmdInfo dummy;

33667

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

33668

Tcl_CreateObjCommand(interp,name, TclsacGuidInfoMethodCmd, (ClientData) newObj, del);

33669

return TCL_OK;

33670

} else {

33671

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

33672

return TCL_ERROR;

33673

}

33674

}

33675

}

33676

33677

33678

#define _ib_guidinfo_record_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

33679

static int _wrap_sacGuidRec_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33680

33681

ib_net16_t * _result;

33682

sacGuidRec * _arg0;

33683

ib_net16_t * _arg1;

33684

Tcl_Obj * tcl_result;

33685

char * rettype;

33686

ib_net16_t temp;

33687

33688

clientData = clientData; objv = objv;

33689

tcl_result = Tcl_GetObjResult(interp);

33690

if ((objc < 3) || (objc > 3)) {

33691

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_lid_set { sacGuidRec * } { ib_net16_t * } ",-1);

33692

return TCL_ERROR;

33693

}

33694

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33695

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_lid_set. Expected _sacGuidRec_p, received ", -1);

33696

Tcl_AppendToObj(tcl_result, rettype, -1);

33697

return TCL_ERROR;

33698

}

33699

{

33700

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

33701

_arg1 = &temp;

33702

}

33703

{

33704

/* we can check if IBIS was initialized here */

33705

if (!IbisObj.initialized)

33706

{

33707

Tcl_SetStringObj(

33708

Tcl_GetObjResult(interp),

33709

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33710

return TCL_ERROR;

33711

}

33712

33713

if (! IbisObj.port_guid)

33714

{

33715

Tcl_SetStringObj(

33716

Tcl_GetObjResult(interp),

33717

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33718

return TCL_ERROR;

33719

}

33720

33721

ibis_tcl_error = 0;

33722

_result = (ib_net16_t *)_ib_guidinfo_record_lid_set(_arg0,_arg1);

33723

;

33724

if (ibis_tcl_error) {

33725

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33726

return TCL_ERROR;

33727

}

33728

} tcl_result = Tcl_GetObjResult(interp);

33729

{

33730

char buff[20];

33731

sprintf(buff, "%u", cl_hton16(*_result));

33732

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

33733

}

33734

return TCL_OK;

33735

}

33736

#define _ib_guidinfo_record_lid_get(_swigobj) (&_swigobj->lid)

33737

static int _wrap_sacGuidRec_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33738

33739

ib_net16_t * _result;

33740

sacGuidRec * _arg0;

33741

Tcl_Obj * tcl_result;

33742

char * rettype;

33743

33744

clientData = clientData; objv = objv;

33745

tcl_result = Tcl_GetObjResult(interp);

33746

if ((objc < 2) || (objc > 2)) {

33747

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_lid_get { sacGuidRec * } ",-1);

33748

return TCL_ERROR;

33749

}

33750

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33751

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_lid_get. Expected _sacGuidRec_p, received ", -1);

33752

Tcl_AppendToObj(tcl_result, rettype, -1);

33753

return TCL_ERROR;

33754

}

33755

{

33756

/* we can check if IBIS was initialized here */

33757

if (!IbisObj.initialized)

33758

{

33759

Tcl_SetStringObj(

33760

Tcl_GetObjResult(interp),

33761

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33762

return TCL_ERROR;

33763

}

33764

33765

if (! IbisObj.port_guid)

33766

{

33767

Tcl_SetStringObj(

33768

Tcl_GetObjResult(interp),

33769

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33770

return TCL_ERROR;

33771

}

33772

33773

ibis_tcl_error = 0;

33774

_result = (ib_net16_t *)_ib_guidinfo_record_lid_get(_arg0);

33775

;

33776

if (ibis_tcl_error) {

33777

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33778

return TCL_ERROR;

33779

}

33780

} tcl_result = Tcl_GetObjResult(interp);

33781

{

33782

char buff[20];

33783

sprintf(buff, "%u", cl_hton16(*_result));

33784

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

33785

}

33786

return TCL_OK;

33787

}

33788

#define _ib_guidinfo_record_block_num_set(_swigobj,_swigval) (_swigobj->block_num = *(_swigval),_swigval)

33789

static int _wrap_sacGuidRec_block_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33790

33791

uint8_t * _result;

33792

sacGuidRec * _arg0;

33793

uint8_t * _arg1;

33794

Tcl_Obj * tcl_result;

33795

char * rettype;

33796

uint8_t temp;

33797

33798

clientData = clientData; objv = objv;

33799

tcl_result = Tcl_GetObjResult(interp);

33800

if ((objc < 3) || (objc > 3)) {

33801

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_block_num_set { sacGuidRec * } { uint8_t * } ",-1);

33802

return TCL_ERROR;

33803

}

33804

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33805

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_block_num_set. Expected _sacGuidRec_p, received ", -1);

33806

Tcl_AppendToObj(tcl_result, rettype, -1);

33807

return TCL_ERROR;

33808

}

33809

{

33810

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

33811

_arg1 = &temp;

33812

}

33813

{

33814

/* we can check if IBIS was initialized here */

33815

if (!IbisObj.initialized)

33816

{

33817

Tcl_SetStringObj(

33818

Tcl_GetObjResult(interp),

33819

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33820

return TCL_ERROR;

33821

}

33822

33823

if (! IbisObj.port_guid)

33824

{

33825

Tcl_SetStringObj(

33826

Tcl_GetObjResult(interp),

33827

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33828

return TCL_ERROR;

33829

}

33830

33831

ibis_tcl_error = 0;

33832

_result = (uint8_t *)_ib_guidinfo_record_block_num_set(_arg0,_arg1);

33833

;

33834

if (ibis_tcl_error) {

33835

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33836

return TCL_ERROR;

33837

}

33838

} tcl_result = Tcl_GetObjResult(interp);

33839

{

33840

char buff[20];

33841

sprintf(buff, "%u", *_result);

33842

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

33843

}

33844

return TCL_OK;

33845

}

33846

#define _ib_guidinfo_record_block_num_get(_swigobj) (&_swigobj->block_num)

33847

static int _wrap_sacGuidRec_block_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33848

33849

uint8_t * _result;

33850

sacGuidRec * _arg0;

33851

Tcl_Obj * tcl_result;

33852

char * rettype;

33853

33854

clientData = clientData; objv = objv;

33855

tcl_result = Tcl_GetObjResult(interp);

33856

if ((objc < 2) || (objc > 2)) {

33857

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_block_num_get { sacGuidRec * } ",-1);

33858

return TCL_ERROR;

33859

}

33860

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33861

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_block_num_get. Expected _sacGuidRec_p, received ", -1);

33862

Tcl_AppendToObj(tcl_result, rettype, -1);

33863

return TCL_ERROR;

33864

}

33865

{

33866

/* we can check if IBIS was initialized here */

33867

if (!IbisObj.initialized)

33868

{

33869

Tcl_SetStringObj(

33870

Tcl_GetObjResult(interp),

33871

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33872

return TCL_ERROR;

33873

}

33874

33875

if (! IbisObj.port_guid)

33876

{

33877

Tcl_SetStringObj(

33878

Tcl_GetObjResult(interp),

33879

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33880

return TCL_ERROR;

33881

}

33882

33883

ibis_tcl_error = 0;

33884

_result = (uint8_t *)_ib_guidinfo_record_block_num_get(_arg0);

33885

;

33886

if (ibis_tcl_error) {

33887

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33888

return TCL_ERROR;

33889

}

33890

} tcl_result = Tcl_GetObjResult(interp);

33891

{

33892

char buff[20];

33893

sprintf(buff, "%u", *_result);

33894

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

33895

}

33896

return TCL_OK;

33897

}

33898

#define _ib_guidinfo_record_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

33899

static int _wrap_sacGuidRec_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33900

33901

uint8_t * _result;

33902

sacGuidRec * _arg0;

33903

uint8_t * _arg1;

33904

Tcl_Obj * tcl_result;

33905

char * rettype;

33906

uint8_t temp;

33907

33908

clientData = clientData; objv = objv;

33909

tcl_result = Tcl_GetObjResult(interp);

33910

if ((objc < 3) || (objc > 3)) {

33911

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_resv_set { sacGuidRec * } { uint8_t * } ",-1);

33912

return TCL_ERROR;

33913

}

33914

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33915

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_resv_set. Expected _sacGuidRec_p, received ", -1);

33916

Tcl_AppendToObj(tcl_result, rettype, -1);

33917

return TCL_ERROR;

33918

}

33919

{

33920

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

33921

_arg1 = &temp;

33922

}

33923

{

33924

/* we can check if IBIS was initialized here */

33925

if (!IbisObj.initialized)

33926

{

33927

Tcl_SetStringObj(

33928

Tcl_GetObjResult(interp),

33929

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33930

return TCL_ERROR;

33931

}

33932

33933

if (! IbisObj.port_guid)

33934

{

33935

Tcl_SetStringObj(

33936

Tcl_GetObjResult(interp),

33937

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33938

return TCL_ERROR;

33939

}

33940

33941

ibis_tcl_error = 0;

33942

_result = (uint8_t *)_ib_guidinfo_record_resv_set(_arg0,_arg1);

33943

;

33944

if (ibis_tcl_error) {

33945

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33946

return TCL_ERROR;

33947

}

33948

} tcl_result = Tcl_GetObjResult(interp);

33949

{

33950

char buff[20];

33951

sprintf(buff, "%u", *_result);

33952

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

33953

}

33954

return TCL_OK;

33955

}

33956

#define _ib_guidinfo_record_resv_get(_swigobj) (&_swigobj->resv)

33957

static int _wrap_sacGuidRec_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

33958

33959

uint8_t * _result;

33960

sacGuidRec * _arg0;

33961

Tcl_Obj * tcl_result;

33962

char * rettype;

33963

33964

clientData = clientData; objv = objv;

33965

tcl_result = Tcl_GetObjResult(interp);

33966

if ((objc < 2) || (objc > 2)) {

33967

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_resv_get { sacGuidRec * } ",-1);

33968

return TCL_ERROR;

33969

}

33970

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

33971

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_resv_get. Expected _sacGuidRec_p, received ", -1);

33972

Tcl_AppendToObj(tcl_result, rettype, -1);

33973

return TCL_ERROR;

33974

}

33975

{

33976

/* we can check if IBIS was initialized here */

33977

if (!IbisObj.initialized)

33978

{

33979

Tcl_SetStringObj(

33980

Tcl_GetObjResult(interp),

33981

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

33982

return TCL_ERROR;

33983

}

33984

33985

if (! IbisObj.port_guid)

33986

{

33987

Tcl_SetStringObj(

33988

Tcl_GetObjResult(interp),

33989

" ibis was not yet initialized. please use ibis_set_port before.", -1);

33990

return TCL_ERROR;

33991

}

33992

33993

ibis_tcl_error = 0;

33994

_result = (uint8_t *)_ib_guidinfo_record_resv_get(_arg0);

33995

;

33996

if (ibis_tcl_error) {

33997

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

33998

return TCL_ERROR;

33999

}

34000

} tcl_result = Tcl_GetObjResult(interp);

34001

{

34002

char buff[20];

34003

sprintf(buff, "%u", *_result);

34004

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34005

}

34006

return TCL_OK;

34007

}

34008

#define _ib_guidinfo_record_reserved_set(_swigobj,_swigval) (_swigobj->reserved = *(_swigval),_swigval)

34009

static int _wrap_sacGuidRec_reserved_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34010

34011

uint32_t * _result;

34012

sacGuidRec * _arg0;

34013

uint32_t * _arg1;

34014

Tcl_Obj * tcl_result;

34015

char * rettype;

34016

uint32_t temp;

34017

34018

clientData = clientData; objv = objv;

34019

tcl_result = Tcl_GetObjResult(interp);

34020

if ((objc < 3) || (objc > 3)) {

34021

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_reserved_set { sacGuidRec * } { uint32_t * } ",-1);

34022

return TCL_ERROR;

34023

}

34024

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34025

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_reserved_set. Expected _sacGuidRec_p, received ", -1);

34026

Tcl_AppendToObj(tcl_result, rettype, -1);

34027

return TCL_ERROR;

34028

}

34029

{

34030

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

34031

_arg1 = &temp;

34032

}

34033

{

34034

/* we can check if IBIS was initialized here */

34035

if (!IbisObj.initialized)

34036

{

34037

Tcl_SetStringObj(

34038

Tcl_GetObjResult(interp),

34039

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34040

return TCL_ERROR;

34041

}

34042

34043

if (! IbisObj.port_guid)

34044

{

34045

Tcl_SetStringObj(

34046

Tcl_GetObjResult(interp),

34047

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34048

return TCL_ERROR;

34049

}

34050

34051

ibis_tcl_error = 0;

34052

_result = (uint32_t *)_ib_guidinfo_record_reserved_set(_arg0,_arg1);

34053

;

34054

if (ibis_tcl_error) {

34055

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34056

return TCL_ERROR;

34057

}

34058

} tcl_result = Tcl_GetObjResult(interp);

34059

{

34060

char buff[20];

34061

sprintf(buff, "%u", *_result);

34062

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34063

}

34064

return TCL_OK;

34065

}

34066

#define _ib_guidinfo_record_reserved_get(_swigobj) (&_swigobj->reserved)

34067

static int _wrap_sacGuidRec_reserved_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34068

34069

uint32_t * _result;

34070

sacGuidRec * _arg0;

34071

Tcl_Obj * tcl_result;

34072

char * rettype;

34073

34074

clientData = clientData; objv = objv;

34075

tcl_result = Tcl_GetObjResult(interp);

34076

if ((objc < 2) || (objc > 2)) {

34077

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_reserved_get { sacGuidRec * } ",-1);

34078

return TCL_ERROR;

34079

}

34080

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34081

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_reserved_get. Expected _sacGuidRec_p, received ", -1);

34082

Tcl_AppendToObj(tcl_result, rettype, -1);

34083

return TCL_ERROR;

34084

}

34085

{

34086

/* we can check if IBIS was initialized here */

34087

if (!IbisObj.initialized)

34088

{

34089

Tcl_SetStringObj(

34090

Tcl_GetObjResult(interp),

34091

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34092

return TCL_ERROR;

34093

}

34094

34095

if (! IbisObj.port_guid)

34096

{

34097

Tcl_SetStringObj(

34098

Tcl_GetObjResult(interp),

34099

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34100

return TCL_ERROR;

34101

}

34102

34103

ibis_tcl_error = 0;

34104

_result = (uint32_t *)_ib_guidinfo_record_reserved_get(_arg0);

34105

;

34106

if (ibis_tcl_error) {

34107

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34108

return TCL_ERROR;

34109

}

34110

} tcl_result = Tcl_GetObjResult(interp);

34111

{

34112

char buff[20];

34113

sprintf(buff, "%u", *_result);

34114

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34115

}

34116

return TCL_OK;

34117

}

34118

#define _ib_guidinfo_record_guid_info_set(_swigobj,_swigval) (_swigobj->guid_info = *(_swigval),_swigval)

34119

static int _wrap_sacGuidRec_guid_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34120

34121

sacGuidInfo * _result;

34122

sacGuidRec * _arg0;

34123

sacGuidInfo * _arg1;

34124

Tcl_Obj * tcl_result;

34125

char * rettype;

34126

34127

clientData = clientData; objv = objv;

34128

tcl_result = Tcl_GetObjResult(interp);

34129

if ((objc < 3) || (objc > 3)) {

34130

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_guid_info_set { sacGuidRec * } { sacGuidInfo * } ",-1);

34131

return TCL_ERROR;

34132

}

34133

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34134

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_guid_info_set. Expected _sacGuidRec_p, received ", -1);

34135

Tcl_AppendToObj(tcl_result, rettype, -1);

34136

return TCL_ERROR;

34137

}

34138

if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_sacGuidInfo_p"))) {

34139

Tcl_SetStringObj(tcl_result, "Type error in argument 2 of sacGuidRec_guid_info_set. Expected _sacGuidInfo_p, received ", -1);

34140

Tcl_AppendToObj(tcl_result, rettype, -1);

34141

return TCL_ERROR;

34142

}

34143

{

34144

/* we can check if IBIS was initialized here */

34145

if (!IbisObj.initialized)

34146

{

34147

Tcl_SetStringObj(

34148

Tcl_GetObjResult(interp),

34149

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34150

return TCL_ERROR;

34151

}

34152

34153

if (! IbisObj.port_guid)

34154

{

34155

Tcl_SetStringObj(

34156

Tcl_GetObjResult(interp),

34157

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34158

return TCL_ERROR;

34159

}

34160

34161

ibis_tcl_error = 0;

34162

_result = (sacGuidInfo *)_ib_guidinfo_record_guid_info_set(_arg0,_arg1);

34163

;

34164

if (ibis_tcl_error) {

34165

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34166

return TCL_ERROR;

34167

}

34168

} tcl_result = Tcl_GetObjResult(interp);

34169

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacGuidInfo_p");

34170

return TCL_OK;

34171

}

34172

#define _ib_guidinfo_record_guid_info_get(_swigobj) (&_swigobj->guid_info)

34173

static int _wrap_sacGuidRec_guid_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34174

34175

sacGuidInfo * _result;

34176

sacGuidRec * _arg0;

34177

Tcl_Obj * tcl_result;

34178

char * rettype;

34179

34180

clientData = clientData; objv = objv;

34181

tcl_result = Tcl_GetObjResult(interp);

34182

if ((objc < 2) || (objc > 2)) {

34183

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_guid_info_get { sacGuidRec * } ",-1);

34184

return TCL_ERROR;

34185

}

34186

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34187

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_guid_info_get. Expected _sacGuidRec_p, received ", -1);

34188

Tcl_AppendToObj(tcl_result, rettype, -1);

34189

return TCL_ERROR;

34190

}

34191

{

34192

/* we can check if IBIS was initialized here */

34193

if (!IbisObj.initialized)

34194

{

34195

Tcl_SetStringObj(

34196

Tcl_GetObjResult(interp),

34197

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34198

return TCL_ERROR;

34199

}

34200

34201

if (! IbisObj.port_guid)

34202

{

34203

Tcl_SetStringObj(

34204

Tcl_GetObjResult(interp),

34205

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34206

return TCL_ERROR;

34207

}

34208

34209

ibis_tcl_error = 0;

34210

_result = (sacGuidInfo *)_ib_guidinfo_record_guid_info_get(_arg0);

34211

;

34212

if (ibis_tcl_error) {

34213

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34214

return TCL_ERROR;

34215

}

34216

} tcl_result = Tcl_GetObjResult(interp);

34217

SWIG_SetPointerObj(tcl_result,(void *) _result,"_sacGuidInfo_p");

34218

return TCL_OK;

34219

}

34220

static char * sacGuidRec_get(sacGuidRec *self,uint64_t comp_mask) {

34221

return(ibsacGuidRecordQuery(self, cl_hton64(comp_mask),

34222

IB_MAD_METHOD_GET));

34223

}

34224

static int _wrap_sacGuidRec_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34225

34226

char * _result;

34227

sacGuidRec * _arg0;

34228

uint64_t * _arg1;

34229

Tcl_Obj * tcl_result;

34230

char * rettype;

34231

uint64_t temp;

34232

34233

clientData = clientData; objv = objv;

34234

tcl_result = Tcl_GetObjResult(interp);

34235

if ((objc < 3) || (objc > 3)) {

34236

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_get { sacGuidRec * } comp_mask ",-1);

34237

return TCL_ERROR;

34238

}

34239

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34240

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_get. Expected _sacGuidRec_p, received ", -1);

34241

Tcl_AppendToObj(tcl_result, rettype, -1);

34242

return TCL_ERROR;

34243

}

34244

{

34245

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

34246

_arg1 = &temp;

34247

}

34248

{

34249

/* we can check if IBIS was initialized here */

34250

if (!IbisObj.initialized)

34251

{

34252

Tcl_SetStringObj(

34253

Tcl_GetObjResult(interp),

34254

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34255

return TCL_ERROR;

34256

}

34257

34258

if (! IbisObj.port_guid)

34259

{

34260

Tcl_SetStringObj(

34261

Tcl_GetObjResult(interp),

34262

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34263

return TCL_ERROR;

34264

}

34265

34266

ibis_tcl_error = 0;

34267

_result = (char *)sacGuidRec_get(_arg0,*_arg1);

34268

;

34269

if (ibis_tcl_error) {

34270

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34271

return TCL_ERROR;

34272

}

34273

} tcl_result = Tcl_GetObjResult(interp);

34274

Tcl_SetStringObj(tcl_result,_result,-1);

34275

free(_result);

34276

34277

return TCL_OK;

34278

}

34279

static char * sacGuidRec_set(sacGuidRec *self,uint64_t comp_mask) {

34280

return(ibsacGuidRecordQuery(self, cl_hton64(comp_mask),

34281

IB_MAD_METHOD_SET));

34282

}

34283

static int _wrap_sacGuidRec_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34284

34285

char * _result;

34286

sacGuidRec * _arg0;

34287

uint64_t * _arg1;

34288

Tcl_Obj * tcl_result;

34289

char * rettype;

34290

uint64_t temp;

34291

34292

clientData = clientData; objv = objv;

34293

tcl_result = Tcl_GetObjResult(interp);

34294

if ((objc < 3) || (objc > 3)) {

34295

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_set { sacGuidRec * } comp_mask ",-1);

34296

return TCL_ERROR;

34297

}

34298

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34299

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_set. Expected _sacGuidRec_p, received ", -1);

34300

Tcl_AppendToObj(tcl_result, rettype, -1);

34301

return TCL_ERROR;

34302

}

34303

{

34304

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

34305

_arg1 = &temp;

34306

}

34307

{

34308

/* we can check if IBIS was initialized here */

34309

if (!IbisObj.initialized)

34310

{

34311

Tcl_SetStringObj(

34312

Tcl_GetObjResult(interp),

34313

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34314

return TCL_ERROR;

34315

}

34316

34317

if (! IbisObj.port_guid)

34318

{

34319

Tcl_SetStringObj(

34320

Tcl_GetObjResult(interp),

34321

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34322

return TCL_ERROR;

34323

}

34324

34325

ibis_tcl_error = 0;

34326

_result = (char *)sacGuidRec_set(_arg0,*_arg1);

34327

;

34328

if (ibis_tcl_error) {

34329

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34330

return TCL_ERROR;

34331

}

34332

} tcl_result = Tcl_GetObjResult(interp);

34333

Tcl_SetStringObj(tcl_result,_result,-1);

34334

free(_result);

34335

34336

return TCL_OK;

34337

}

34338

static char * sacGuidRec_getTable(sacGuidRec *self,uint64_t comp_mask) {

34339

return(ibsacGuidRecordQuery(self, cl_hton64(comp_mask),

34340

IB_MAD_METHOD_GETTABLE));

34341

}

34342

static int _wrap_sacGuidRec_getTable(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34343

34344

char * _result;

34345

sacGuidRec * _arg0;

34346

uint64_t * _arg1;

34347

Tcl_Obj * tcl_result;

34348

char * rettype;

34349

uint64_t temp;

34350

34351

clientData = clientData; objv = objv;

34352

tcl_result = Tcl_GetObjResult(interp);

34353

if ((objc < 3) || (objc > 3)) {

34354

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_getTable { sacGuidRec * } comp_mask ",-1);

34355

return TCL_ERROR;

34356

}

34357

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34358

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_getTable. Expected _sacGuidRec_p, received ", -1);

34359

Tcl_AppendToObj(tcl_result, rettype, -1);

34360

return TCL_ERROR;

34361

}

34362

{

34363

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

34364

_arg1 = &temp;

34365

}

34366

{

34367

/* we can check if IBIS was initialized here */

34368

if (!IbisObj.initialized)

34369

{

34370

Tcl_SetStringObj(

34371

Tcl_GetObjResult(interp),

34372

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34373

return TCL_ERROR;

34374

}

34375

34376

if (! IbisObj.port_guid)

34377

{

34378

Tcl_SetStringObj(

34379

Tcl_GetObjResult(interp),

34380

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34381

return TCL_ERROR;

34382

}

34383

34384

ibis_tcl_error = 0;

34385

_result = (char *)sacGuidRec_getTable(_arg0,*_arg1);

34386

;

34387

if (ibis_tcl_error) {

34388

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34389

return TCL_ERROR;

34390

}

34391

} tcl_result = Tcl_GetObjResult(interp);

34392

Tcl_SetStringObj(tcl_result,_result,-1);

34393

free(_result);

34394

34395

return TCL_OK;

34396

}

34397

static char * sacGuidRec_delete(sacGuidRec *self,uint64_t comp_mask) {

34398

return(ibsacGuidRecordQuery(self, cl_hton64(comp_mask),

34399

IB_MAD_METHOD_DELETE));

34400

}

34401

static int _wrap_sacGuidRec_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34402

34403

char * _result;

34404

sacGuidRec * _arg0;

34405

uint64_t * _arg1;

34406

Tcl_Obj * tcl_result;

34407

char * rettype;

34408

uint64_t temp;

34409

34410

clientData = clientData; objv = objv;

34411

tcl_result = Tcl_GetObjResult(interp);

34412

if ((objc < 3) || (objc > 3)) {

34413

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_delete { sacGuidRec * } comp_mask ",-1);

34414

return TCL_ERROR;

34415

}

34416

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34417

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_delete. Expected _sacGuidRec_p, received ", -1);

34418

Tcl_AppendToObj(tcl_result, rettype, -1);

34419

return TCL_ERROR;

34420

}

34421

{

34422

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

34423

_arg1 = &temp;

34424

}

34425

{

34426

/* we can check if IBIS was initialized here */

34427

if (!IbisObj.initialized)

34428

{

34429

Tcl_SetStringObj(

34430

Tcl_GetObjResult(interp),

34431

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34432

return TCL_ERROR;

34433

}

34434

34435

if (! IbisObj.port_guid)

34436

{

34437

Tcl_SetStringObj(

34438

Tcl_GetObjResult(interp),

34439

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34440

return TCL_ERROR;

34441

}

34442

34443

ibis_tcl_error = 0;

34444

_result = (char *)sacGuidRec_delete(_arg0,*_arg1);

34445

;

34446

if (ibis_tcl_error) {

34447

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34448

return TCL_ERROR;

34449

}

34450

} tcl_result = Tcl_GetObjResult(interp);

34451

Tcl_SetStringObj(tcl_result,_result,-1);

34452

free(_result);

34453

34454

return TCL_OK;

34455

}

34456

static void sacGuidRec_obj_delete(sacGuidRec *self) {

34457

/* we need to de-register both the guid info and guid record */

34458

SWIG_AltMnglUnregObj(&(self->guid_info));

34459

SWIG_AltMnglUnregObj(self);

34460

free(self);

34461

}

34462

static int _wrap_sacGuidRec_obj_delete(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34463

34464

sacGuidRec * _arg0;

34465

Tcl_Obj * tcl_result;

34466

char * rettype;

34467

34468

clientData = clientData; objv = objv;

34469

tcl_result = Tcl_GetObjResult(interp);

34470

if ((objc < 2) || (objc > 2)) {

34471

Tcl_SetStringObj(tcl_result,"Wrong # args. sacGuidRec_obj_delete { sacGuidRec * } ",-1);

34472

return TCL_ERROR;

34473

}

34474

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_sacGuidRec_p"))) {

34475

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of sacGuidRec_obj_delete. Expected _sacGuidRec_p, received ", -1);

34476

Tcl_AppendToObj(tcl_result, rettype, -1);

34477

return TCL_ERROR;

34478

}

34479

{

34480

/* we can check if IBIS was initialized here */

34481

if (!IbisObj.initialized)

34482

{

34483

Tcl_SetStringObj(

34484

Tcl_GetObjResult(interp),

34485

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34486

return TCL_ERROR;

34487

}

34488

34489

if (! IbisObj.port_guid)

34490

{

34491

Tcl_SetStringObj(

34492

Tcl_GetObjResult(interp),

34493

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34494

return TCL_ERROR;

34495

}

34496

34497

ibis_tcl_error = 0;

34498

sacGuidRec_obj_delete(_arg0);

34499

;

34500

if (ibis_tcl_error) {

34501

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34502

return TCL_ERROR;

34503

}

34504

} tcl_result = Tcl_GetObjResult(interp);

34505

return TCL_OK;

34506

}

34507

/* methodcmd8.swg : Tcl8.x method invocation */

34508

34509

static int TclsacGuidRecMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

34510

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

34511

char *_str;

34512

int rcode;

34513

Tcl_Obj **objv;

34514

Tcl_Obj *oldarg,*tcl_result,*obj;

34515

int length;

34516

char c;

34517

34518

tcl_result = Tcl_GetObjResult(interp);

34519

objv = (Tcl_Obj **) _objv;

34520

if (objc < 2) {

34521

Tcl_SetStringObj(tcl_result,"sacGuidRec methods : { dump cget configure get set getTable delete obj_delete }",-1);

34522

return TCL_ERROR;

34523

}

34524

obj = Tcl_NewObj();

34525

SWIG_SetPointerObj(obj,(void *) clientData,"_sacGuidRec_p");

34526

_str = Tcl_GetStringFromObj(objv[1],&length);

34527

c = *_str;

34528

if (0);

34529

if (strcmp(_str,"get") == 0) {

34530

cmd = _wrap_sacGuidRec_get;

34531

} else if (strcmp(_str,"set") == 0) {

34532

cmd = _wrap_sacGuidRec_set;

34533

} else if (strcmp(_str,"getTable") == 0) {

34534

cmd = _wrap_sacGuidRec_getTable;

34535

} else if (strcmp(_str,"delete") == 0) {

34536

cmd = _wrap_sacGuidRec_delete;

34537

} else if (strcmp(_str,"obj_delete") == 0) {

34538

cmd = _wrap_sacGuidRec_obj_delete;

34539

}

34540

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

34541

int i = 2;

34542

cmd = 0;

34543

while (i+1 < objc) {

34544

_str = Tcl_GetStringFromObj(objv[i],&length);

34545

if (strcmp(_str,"-lid") == 0) {

34546

cmd = _wrap_sacGuidRec_lid_set;

34547

} else if (strcmp(_str,"-block_num") == 0) {

34548

cmd = _wrap_sacGuidRec_block_num_set;

34549

} else if (strcmp(_str,"-resv") == 0) {

34550

cmd = _wrap_sacGuidRec_resv_set;

34551

} else if (strcmp(_str,"-reserved") == 0) {

34552

cmd = _wrap_sacGuidRec_reserved_set;

34553

} else if (strcmp(_str,"-guid_info") == 0) {

34554

cmd = _wrap_sacGuidRec_guid_info_set;

34555

}

34556

if (cmd) {

34557

oldarg = objv[i];

34558

objv[i] = obj;

34559

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

34560

objv[i] = oldarg;

34561

if (rcode == TCL_ERROR) return rcode;

34562

cmd = 0;

34563

} else {

34564

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lid -block_num -resv -reserved -guid_info }",-1);

34565

return TCL_ERROR;

34566

}

34567

i+=2;

34568

}

34569

if ((i < objc) || (i == 2)) {

34570

Tcl_SetStringObj(tcl_result,"{ -lid -block_num -resv -reserved -guid_info }",-1);

34571

return TCL_ERROR;

34572

}

34573

return TCL_OK;

34574

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

34575

if (objc == 3) {

34576

_str = Tcl_GetStringFromObj(objv[2],&length);

34577

if (0) {}

34578

if (strcmp(_str,"-lid") == 0) {

34579

cmd = _wrap_sacGuidRec_lid_get;

34580

} else if (strcmp(_str,"-block_num") == 0) {

34581

cmd = _wrap_sacGuidRec_block_num_get;

34582

} else if (strcmp(_str,"-resv") == 0) {

34583

cmd = _wrap_sacGuidRec_resv_get;

34584

} else if (strcmp(_str,"-reserved") == 0) {

34585

cmd = _wrap_sacGuidRec_reserved_get;

34586

} else if (strcmp(_str,"-guid_info") == 0) {

34587

cmd = _wrap_sacGuidRec_guid_info_get;

34588

}

34589

else if (strcmp(_str,"-this") == 0) {

34590

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_sacGuidRec_p");

34591

return TCL_OK;

34592

}

34593

if (cmd) {

34594

oldarg = objv[2];

34595

objv[2] = obj;

34596

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

34597

objv[2] = oldarg;

34598

return rcode;

34599

} else {

34600

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lid -block_num -resv -reserved -guid_info }",-1);

34601

return TCL_ERROR;

34602

}

34603

} else {

34604

Tcl_SetStringObj(tcl_result,"{ -this -lid -block_num -resv -reserved -guid_info }", -1);

34605

return TCL_ERROR;

34606

}

34607

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

34608

if (objc == 2) {

34609

Tcl_Obj *pDumpObj;

34610

pDumpObj = Tcl_NewStringObj("",-1);

34611

Tcl_IncrRefCount(pDumpObj);

34612

cmd = _wrap_sacGuidRec_lid_get;

34613

oldarg = objv[2];

34614

objv[2] = obj;

34615

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

34616

objv[2] = oldarg;

34617

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

34618

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

34619

cmd = _wrap_sacGuidRec_block_num_get;

34620

oldarg = objv[2];

34621

objv[2] = obj;

34622

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

34623

objv[2] = oldarg;

34624

Tcl_AppendStringsToObj(pDumpObj, "-block_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

34625

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

34626

cmd = _wrap_sacGuidRec_resv_get;

34627

oldarg = objv[2];

34628

objv[2] = obj;

34629

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

34630

objv[2] = oldarg;

34631

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

34632

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

34633

cmd = _wrap_sacGuidRec_reserved_get;

34634

oldarg = objv[2];

34635

objv[2] = obj;

34636

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

34637

objv[2] = oldarg;

34638

Tcl_AppendStringsToObj(pDumpObj, "-reserved ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

34639

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

34640

cmd = _wrap_sacGuidRec_guid_info_get;

34641

oldarg = objv[2];

34642

objv[2] = obj;

34643

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

34644

objv[2] = oldarg;

34645

Tcl_AppendStringsToObj(pDumpObj, "-guid_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

34646

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

34647

34648

Tcl_DecrRefCount(pDumpObj);

34649

return TCL_OK;

34650

} else {

34651

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

34652

return TCL_ERROR;

34653

}

34654

}

34655

if (!cmd) {

34656

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure get set getTable delete obj_delete }",-1);

34657

return TCL_ERROR;

34658

}

34659

oldarg = objv[1];

34660

objv[1] = obj;

34661

rcode = (*cmd)(clientData,interp,objc,objv);

34662

objv[1] = oldarg;

34663

return rcode;

34664

}

34665

34666

34667

34668

/* objcmd8.swg : Tcl 8.x object creation */

34669

34670

static int TclsacGuidRecCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34671

void (*del)(ClientData) = 0;

34672

char *name = 0;

34673

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

34674

sacGuidRec * newObj = 0;

34675

int firstarg = 0;

34676

int thisarg = 0;

34677

int length;

34678

char *_str;

34679

Tcl_Obj *tcl_result;

34680

34681

tcl_result = Tcl_GetObjResult(interp);

34682

if (objc == 1) {

34683

cmd = 0;

34684

} else {

34685

_str = Tcl_GetStringFromObj(objv[1],&length);

34686

if (strcmp(_str,"-this") == 0) thisarg = 2;

34687

else if (strcmp(_str,"-args") == 0) {

34688

firstarg = 1;

34689

cmd = 0;

34690

} else if (objc == 2) {

34691

firstarg = 1;

34692

name = _str;

34693

cmd = 0;

34694

} else if (objc >= 3) {

34695

name = _str;

34696

_str = Tcl_GetStringFromObj(objv[2],&length);

34697

if (strcmp(_str,"-this") == 0) thisarg = 3;

34698

else {

34699

firstarg = 1;

34700

cmd = 0;

34701

}

34702

}

34703

}

34704

if (cmd) {

34705

int result;

34706

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

34707

if (result == TCL_OK) {

34708

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_sacGuidRec_p");

34709

} else { return result; }

34710

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

34711

del = 0;

34712

} else if (thisarg > 0) {

34713

if (thisarg < objc) {

34714

char *r;

34715

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_sacGuidRec_p");

34716

if (r) {

34717

Tcl_SetStringObj(tcl_result,"Type error. not a sacGuidRec object.",-1);

34718

return TCL_ERROR;

34719

}

34720

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

34721

Tcl_SetStringObj(tcl_result,name,-1);

34722

} else {

34723

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

34724

return TCL_ERROR;

34725

}

34726

} else {

34727

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

34728

return TCL_ERROR;

34729

}

34730

{

34731

Tcl_CmdInfo dummy;

34732

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

34733

Tcl_CreateObjCommand(interp,name, TclsacGuidRecMethodCmd, (ClientData) newObj, del);

34734

return TCL_OK;

34735

} else {

34736

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

34737

return TCL_ERROR;

34738

}

34739

}

34740

}

34741

34742

34743

#define _ibsm_node_info_base_version_set(_swigobj,_swigval) (_swigobj->base_version = *(_swigval),_swigval)

34744

static int _wrap_smNodeInfo_base_version_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34745

34746

uint8_t * _result;

34747

smNodeInfo * _arg0;

34748

uint8_t * _arg1;

34749

Tcl_Obj * tcl_result;

34750

char * rettype;

34751

uint8_t temp;

34752

34753

clientData = clientData; objv = objv;

34754

tcl_result = Tcl_GetObjResult(interp);

34755

if ((objc < 3) || (objc > 3)) {

34756

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_base_version_set { smNodeInfo * } { uint8_t * } ",-1);

34757

return TCL_ERROR;

34758

}

34759

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

34760

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_base_version_set. Expected _smNodeInfo_p, received ", -1);

34761

Tcl_AppendToObj(tcl_result, rettype, -1);

34762

return TCL_ERROR;

34763

}

34764

{

34765

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

34766

_arg1 = &temp;

34767

}

34768

{

34769

/* we can check if IBIS was initialized here */

34770

if (!IbisObj.initialized)

34771

{

34772

Tcl_SetStringObj(

34773

Tcl_GetObjResult(interp),

34774

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34775

return TCL_ERROR;

34776

}

34777

34778

if (! IbisObj.port_guid)

34779

{

34780

Tcl_SetStringObj(

34781

Tcl_GetObjResult(interp),

34782

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34783

return TCL_ERROR;

34784

}

34785

34786

ibis_tcl_error = 0;

34787

_result = (uint8_t *)_ibsm_node_info_base_version_set(_arg0,_arg1);

34788

;

34789

if (ibis_tcl_error) {

34790

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34791

return TCL_ERROR;

34792

}

34793

} tcl_result = Tcl_GetObjResult(interp);

34794

{

34795

char buff[20];

34796

sprintf(buff, "%u", *_result);

34797

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34798

}

34799

return TCL_OK;

34800

}

34801

#define _ibsm_node_info_base_version_get(_swigobj) (&_swigobj->base_version)

34802

static int _wrap_smNodeInfo_base_version_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34803

34804

uint8_t * _result;

34805

smNodeInfo * _arg0;

34806

Tcl_Obj * tcl_result;

34807

char * rettype;

34808

34809

clientData = clientData; objv = objv;

34810

tcl_result = Tcl_GetObjResult(interp);

34811

if ((objc < 2) || (objc > 2)) {

34812

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_base_version_get { smNodeInfo * } ",-1);

34813

return TCL_ERROR;

34814

}

34815

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

34816

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_base_version_get. Expected _smNodeInfo_p, received ", -1);

34817

Tcl_AppendToObj(tcl_result, rettype, -1);

34818

return TCL_ERROR;

34819

}

34820

{

34821

/* we can check if IBIS was initialized here */

34822

if (!IbisObj.initialized)

34823

{

34824

Tcl_SetStringObj(

34825

Tcl_GetObjResult(interp),

34826

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34827

return TCL_ERROR;

34828

}

34829

34830

if (! IbisObj.port_guid)

34831

{

34832

Tcl_SetStringObj(

34833

Tcl_GetObjResult(interp),

34834

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34835

return TCL_ERROR;

34836

}

34837

34838

ibis_tcl_error = 0;

34839

_result = (uint8_t *)_ibsm_node_info_base_version_get(_arg0);

34840

;

34841

if (ibis_tcl_error) {

34842

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34843

return TCL_ERROR;

34844

}

34845

} tcl_result = Tcl_GetObjResult(interp);

34846

{

34847

char buff[20];

34848

sprintf(buff, "%u", *_result);

34849

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34850

}

34851

return TCL_OK;

34852

}

34853

#define _ibsm_node_info_class_version_set(_swigobj,_swigval) (_swigobj->class_version = *(_swigval),_swigval)

34854

static int _wrap_smNodeInfo_class_version_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34855

34856

uint8_t * _result;

34857

smNodeInfo * _arg0;

34858

uint8_t * _arg1;

34859

Tcl_Obj * tcl_result;

34860

char * rettype;

34861

uint8_t temp;

34862

34863

clientData = clientData; objv = objv;

34864

tcl_result = Tcl_GetObjResult(interp);

34865

if ((objc < 3) || (objc > 3)) {

34866

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_class_version_set { smNodeInfo * } { uint8_t * } ",-1);

34867

return TCL_ERROR;

34868

}

34869

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

34870

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_class_version_set. Expected _smNodeInfo_p, received ", -1);

34871

Tcl_AppendToObj(tcl_result, rettype, -1);

34872

return TCL_ERROR;

34873

}

34874

{

34875

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

34876

_arg1 = &temp;

34877

}

34878

{

34879

/* we can check if IBIS was initialized here */

34880

if (!IbisObj.initialized)

34881

{

34882

Tcl_SetStringObj(

34883

Tcl_GetObjResult(interp),

34884

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34885

return TCL_ERROR;

34886

}

34887

34888

if (! IbisObj.port_guid)

34889

{

34890

Tcl_SetStringObj(

34891

Tcl_GetObjResult(interp),

34892

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34893

return TCL_ERROR;

34894

}

34895

34896

ibis_tcl_error = 0;

34897

_result = (uint8_t *)_ibsm_node_info_class_version_set(_arg0,_arg1);

34898

;

34899

if (ibis_tcl_error) {

34900

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34901

return TCL_ERROR;

34902

}

34903

} tcl_result = Tcl_GetObjResult(interp);

34904

{

34905

char buff[20];

34906

sprintf(buff, "%u", *_result);

34907

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34908

}

34909

return TCL_OK;

34910

}

34911

#define _ibsm_node_info_class_version_get(_swigobj) (&_swigobj->class_version)

34912

static int _wrap_smNodeInfo_class_version_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34913

34914

uint8_t * _result;

34915

smNodeInfo * _arg0;

34916

Tcl_Obj * tcl_result;

34917

char * rettype;

34918

34919

clientData = clientData; objv = objv;

34920

tcl_result = Tcl_GetObjResult(interp);

34921

if ((objc < 2) || (objc > 2)) {

34922

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_class_version_get { smNodeInfo * } ",-1);

34923

return TCL_ERROR;

34924

}

34925

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

34926

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_class_version_get. Expected _smNodeInfo_p, received ", -1);

34927

Tcl_AppendToObj(tcl_result, rettype, -1);

34928

return TCL_ERROR;

34929

}

34930

{

34931

/* we can check if IBIS was initialized here */

34932

if (!IbisObj.initialized)

34933

{

34934

Tcl_SetStringObj(

34935

Tcl_GetObjResult(interp),

34936

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34937

return TCL_ERROR;

34938

}

34939

34940

if (! IbisObj.port_guid)

34941

{

34942

Tcl_SetStringObj(

34943

Tcl_GetObjResult(interp),

34944

" ibis was not yet initialized. please use ibis_set_port before.", -1);

34945

return TCL_ERROR;

34946

}

34947

34948

ibis_tcl_error = 0;

34949

_result = (uint8_t *)_ibsm_node_info_class_version_get(_arg0);

34950

;

34951

if (ibis_tcl_error) {

34952

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

34953

return TCL_ERROR;

34954

}

34955

} tcl_result = Tcl_GetObjResult(interp);

34956

{

34957

char buff[20];

34958

sprintf(buff, "%u", *_result);

34959

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

34960

}

34961

return TCL_OK;

34962

}

34963

#define _ibsm_node_info_node_type_set(_swigobj,_swigval) (_swigobj->node_type = *(_swigval),_swigval)

34964

static int _wrap_smNodeInfo_node_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

34965

34966

uint8_t * _result;

34967

smNodeInfo * _arg0;

34968

uint8_t * _arg1;

34969

Tcl_Obj * tcl_result;

34970

char * rettype;

34971

uint8_t temp;

34972

34973

clientData = clientData; objv = objv;

34974

tcl_result = Tcl_GetObjResult(interp);

34975

if ((objc < 3) || (objc > 3)) {

34976

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_node_type_set { smNodeInfo * } { uint8_t * } ",-1);

34977

return TCL_ERROR;

34978

}

34979

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

34980

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_node_type_set. Expected _smNodeInfo_p, received ", -1);

34981

Tcl_AppendToObj(tcl_result, rettype, -1);

34982

return TCL_ERROR;

34983

}

34984

{

34985

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

34986

_arg1 = &temp;

34987

}

34988

{

34989

/* we can check if IBIS was initialized here */

34990

if (!IbisObj.initialized)

34991

{

34992

Tcl_SetStringObj(

34993

Tcl_GetObjResult(interp),

34994

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

34995

return TCL_ERROR;

34996

}

34997

34998

if (! IbisObj.port_guid)

34999

{

35000

Tcl_SetStringObj(

35001

Tcl_GetObjResult(interp),

35002

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35003

return TCL_ERROR;

35004

}

35005

35006

ibis_tcl_error = 0;

35007

_result = (uint8_t *)_ibsm_node_info_node_type_set(_arg0,_arg1);

35008

;

35009

if (ibis_tcl_error) {

35010

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35011

return TCL_ERROR;

35012

}

35013

} tcl_result = Tcl_GetObjResult(interp);

35014

{

35015

char buff[20];

35016

sprintf(buff, "%u", *_result);

35017

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35018

}

35019

return TCL_OK;

35020

}

35021

#define _ibsm_node_info_node_type_get(_swigobj) (&_swigobj->node_type)

35022

static int _wrap_smNodeInfo_node_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35023

35024

uint8_t * _result;

35025

smNodeInfo * _arg0;

35026

Tcl_Obj * tcl_result;

35027

char * rettype;

35028

35029

clientData = clientData; objv = objv;

35030

tcl_result = Tcl_GetObjResult(interp);

35031

if ((objc < 2) || (objc > 2)) {

35032

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_node_type_get { smNodeInfo * } ",-1);

35033

return TCL_ERROR;

35034

}

35035

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35036

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_node_type_get. Expected _smNodeInfo_p, received ", -1);

35037

Tcl_AppendToObj(tcl_result, rettype, -1);

35038

return TCL_ERROR;

35039

}

35040

{

35041

/* we can check if IBIS was initialized here */

35042

if (!IbisObj.initialized)

35043

{

35044

Tcl_SetStringObj(

35045

Tcl_GetObjResult(interp),

35046

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35047

return TCL_ERROR;

35048

}

35049

35050

if (! IbisObj.port_guid)

35051

{

35052

Tcl_SetStringObj(

35053

Tcl_GetObjResult(interp),

35054

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35055

return TCL_ERROR;

35056

}

35057

35058

ibis_tcl_error = 0;

35059

_result = (uint8_t *)_ibsm_node_info_node_type_get(_arg0);

35060

;

35061

if (ibis_tcl_error) {

35062

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35063

return TCL_ERROR;

35064

}

35065

} tcl_result = Tcl_GetObjResult(interp);

35066

{

35067

char buff[20];

35068

sprintf(buff, "%u", *_result);

35069

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35070

}

35071

return TCL_OK;

35072

}

35073

#define _ibsm_node_info_num_ports_set(_swigobj,_swigval) (_swigobj->num_ports = *(_swigval),_swigval)

35074

static int _wrap_smNodeInfo_num_ports_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35075

35076

uint8_t * _result;

35077

smNodeInfo * _arg0;

35078

uint8_t * _arg1;

35079

Tcl_Obj * tcl_result;

35080

char * rettype;

35081

uint8_t temp;

35082

35083

clientData = clientData; objv = objv;

35084

tcl_result = Tcl_GetObjResult(interp);

35085

if ((objc < 3) || (objc > 3)) {

35086

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_num_ports_set { smNodeInfo * } { uint8_t * } ",-1);

35087

return TCL_ERROR;

35088

}

35089

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35090

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_num_ports_set. Expected _smNodeInfo_p, received ", -1);

35091

Tcl_AppendToObj(tcl_result, rettype, -1);

35092

return TCL_ERROR;

35093

}

35094

{

35095

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

35096

_arg1 = &temp;

35097

}

35098

{

35099

/* we can check if IBIS was initialized here */

35100

if (!IbisObj.initialized)

35101

{

35102

Tcl_SetStringObj(

35103

Tcl_GetObjResult(interp),

35104

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35105

return TCL_ERROR;

35106

}

35107

35108

if (! IbisObj.port_guid)

35109

{

35110

Tcl_SetStringObj(

35111

Tcl_GetObjResult(interp),

35112

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35113

return TCL_ERROR;

35114

}

35115

35116

ibis_tcl_error = 0;

35117

_result = (uint8_t *)_ibsm_node_info_num_ports_set(_arg0,_arg1);

35118

;

35119

if (ibis_tcl_error) {

35120

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35121

return TCL_ERROR;

35122

}

35123

} tcl_result = Tcl_GetObjResult(interp);

35124

{

35125

char buff[20];

35126

sprintf(buff, "%u", *_result);

35127

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35128

}

35129

return TCL_OK;

35130

}

35131

#define _ibsm_node_info_num_ports_get(_swigobj) (&_swigobj->num_ports)

35132

static int _wrap_smNodeInfo_num_ports_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35133

35134

uint8_t * _result;

35135

smNodeInfo * _arg0;

35136

Tcl_Obj * tcl_result;

35137

char * rettype;

35138

35139

clientData = clientData; objv = objv;

35140

tcl_result = Tcl_GetObjResult(interp);

35141

if ((objc < 2) || (objc > 2)) {

35142

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_num_ports_get { smNodeInfo * } ",-1);

35143

return TCL_ERROR;

35144

}

35145

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35146

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_num_ports_get. Expected _smNodeInfo_p, received ", -1);

35147

Tcl_AppendToObj(tcl_result, rettype, -1);

35148

return TCL_ERROR;

35149

}

35150

{

35151

/* we can check if IBIS was initialized here */

35152

if (!IbisObj.initialized)

35153

{

35154

Tcl_SetStringObj(

35155

Tcl_GetObjResult(interp),

35156

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35157

return TCL_ERROR;

35158

}

35159

35160

if (! IbisObj.port_guid)

35161

{

35162

Tcl_SetStringObj(

35163

Tcl_GetObjResult(interp),

35164

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35165

return TCL_ERROR;

35166

}

35167

35168

ibis_tcl_error = 0;

35169

_result = (uint8_t *)_ibsm_node_info_num_ports_get(_arg0);

35170

;

35171

if (ibis_tcl_error) {

35172

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35173

return TCL_ERROR;

35174

}

35175

} tcl_result = Tcl_GetObjResult(interp);

35176

{

35177

char buff[20];

35178

sprintf(buff, "%u", *_result);

35179

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35180

}

35181

return TCL_OK;

35182

}

35183

#define _ibsm_node_info_sys_guid_set(_swigobj,_swigval) (_swigobj->sys_guid = *(_swigval),_swigval)

35184

static int _wrap_smNodeInfo_sys_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35185

35186

ib_net64_t * _result;

35187

smNodeInfo * _arg0;

35188

ib_net64_t * _arg1;

35189

Tcl_Obj * tcl_result;

35190

char * rettype;

35191

uint64_t temp;

35192

35193

clientData = clientData; objv = objv;

35194

tcl_result = Tcl_GetObjResult(interp);

35195

if ((objc < 3) || (objc > 3)) {

35196

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_sys_guid_set { smNodeInfo * } { ib_net64_t * } ",-1);

35197

return TCL_ERROR;

35198

}

35199

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35200

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_sys_guid_set. Expected _smNodeInfo_p, received ", -1);

35201

Tcl_AppendToObj(tcl_result, rettype, -1);

35202

return TCL_ERROR;

35203

}

35204

{

35205

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

35206

_arg1 = &temp;

35207

}

35208

{

35209

/* we can check if IBIS was initialized here */

35210

if (!IbisObj.initialized)

35211

{

35212

Tcl_SetStringObj(

35213

Tcl_GetObjResult(interp),

35214

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35215

return TCL_ERROR;

35216

}

35217

35218

if (! IbisObj.port_guid)

35219

{

35220

Tcl_SetStringObj(

35221

Tcl_GetObjResult(interp),

35222

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35223

return TCL_ERROR;

35224

}

35225

35226

ibis_tcl_error = 0;

35227

_result = (ib_net64_t *)_ibsm_node_info_sys_guid_set(_arg0,_arg1);

35228

;

35229

if (ibis_tcl_error) {

35230

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35231

return TCL_ERROR;

35232

}

35233

} tcl_result = Tcl_GetObjResult(interp);

35234

{

35235

char buff[20];

35236

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35237

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35238

}

35239

return TCL_OK;

35240

}

35241

#define _ibsm_node_info_sys_guid_get(_swigobj) (&_swigobj->sys_guid)

35242

static int _wrap_smNodeInfo_sys_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35243

35244

ib_net64_t * _result;

35245

smNodeInfo * _arg0;

35246

Tcl_Obj * tcl_result;

35247

char * rettype;

35248

35249

clientData = clientData; objv = objv;

35250

tcl_result = Tcl_GetObjResult(interp);

35251

if ((objc < 2) || (objc > 2)) {

35252

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_sys_guid_get { smNodeInfo * } ",-1);

35253

return TCL_ERROR;

35254

}

35255

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35256

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_sys_guid_get. Expected _smNodeInfo_p, received ", -1);

35257

Tcl_AppendToObj(tcl_result, rettype, -1);

35258

return TCL_ERROR;

35259

}

35260

{

35261

/* we can check if IBIS was initialized here */

35262

if (!IbisObj.initialized)

35263

{

35264

Tcl_SetStringObj(

35265

Tcl_GetObjResult(interp),

35266

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35267

return TCL_ERROR;

35268

}

35269

35270

if (! IbisObj.port_guid)

35271

{

35272

Tcl_SetStringObj(

35273

Tcl_GetObjResult(interp),

35274

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35275

return TCL_ERROR;

35276

}

35277

35278

ibis_tcl_error = 0;

35279

_result = (ib_net64_t *)_ibsm_node_info_sys_guid_get(_arg0);

35280

;

35281

if (ibis_tcl_error) {

35282

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35283

return TCL_ERROR;

35284

}

35285

} tcl_result = Tcl_GetObjResult(interp);

35286

{

35287

char buff[20];

35288

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35289

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35290

}

35291

return TCL_OK;

35292

}

35293

#define _ibsm_node_info_node_guid_set(_swigobj,_swigval) (_swigobj->node_guid = *(_swigval),_swigval)

35294

static int _wrap_smNodeInfo_node_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35295

35296

ib_net64_t * _result;

35297

smNodeInfo * _arg0;

35298

ib_net64_t * _arg1;

35299

Tcl_Obj * tcl_result;

35300

char * rettype;

35301

uint64_t temp;

35302

35303

clientData = clientData; objv = objv;

35304

tcl_result = Tcl_GetObjResult(interp);

35305

if ((objc < 3) || (objc > 3)) {

35306

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_node_guid_set { smNodeInfo * } { ib_net64_t * } ",-1);

35307

return TCL_ERROR;

35308

}

35309

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35310

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_node_guid_set. Expected _smNodeInfo_p, received ", -1);

35311

Tcl_AppendToObj(tcl_result, rettype, -1);

35312

return TCL_ERROR;

35313

}

35314

{

35315

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

35316

_arg1 = &temp;

35317

}

35318

{

35319

/* we can check if IBIS was initialized here */

35320

if (!IbisObj.initialized)

35321

{

35322

Tcl_SetStringObj(

35323

Tcl_GetObjResult(interp),

35324

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35325

return TCL_ERROR;

35326

}

35327

35328

if (! IbisObj.port_guid)

35329

{

35330

Tcl_SetStringObj(

35331

Tcl_GetObjResult(interp),

35332

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35333

return TCL_ERROR;

35334

}

35335

35336

ibis_tcl_error = 0;

35337

_result = (ib_net64_t *)_ibsm_node_info_node_guid_set(_arg0,_arg1);

35338

;

35339

if (ibis_tcl_error) {

35340

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35341

return TCL_ERROR;

35342

}

35343

} tcl_result = Tcl_GetObjResult(interp);

35344

{

35345

char buff[20];

35346

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35347

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35348

}

35349

return TCL_OK;

35350

}

35351

#define _ibsm_node_info_node_guid_get(_swigobj) (&_swigobj->node_guid)

35352

static int _wrap_smNodeInfo_node_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35353

35354

ib_net64_t * _result;

35355

smNodeInfo * _arg0;

35356

Tcl_Obj * tcl_result;

35357

char * rettype;

35358

35359

clientData = clientData; objv = objv;

35360

tcl_result = Tcl_GetObjResult(interp);

35361

if ((objc < 2) || (objc > 2)) {

35362

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_node_guid_get { smNodeInfo * } ",-1);

35363

return TCL_ERROR;

35364

}

35365

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35366

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_node_guid_get. Expected _smNodeInfo_p, received ", -1);

35367

Tcl_AppendToObj(tcl_result, rettype, -1);

35368

return TCL_ERROR;

35369

}

35370

{

35371

/* we can check if IBIS was initialized here */

35372

if (!IbisObj.initialized)

35373

{

35374

Tcl_SetStringObj(

35375

Tcl_GetObjResult(interp),

35376

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35377

return TCL_ERROR;

35378

}

35379

35380

if (! IbisObj.port_guid)

35381

{

35382

Tcl_SetStringObj(

35383

Tcl_GetObjResult(interp),

35384

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35385

return TCL_ERROR;

35386

}

35387

35388

ibis_tcl_error = 0;

35389

_result = (ib_net64_t *)_ibsm_node_info_node_guid_get(_arg0);

35390

;

35391

if (ibis_tcl_error) {

35392

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35393

return TCL_ERROR;

35394

}

35395

} tcl_result = Tcl_GetObjResult(interp);

35396

{

35397

char buff[20];

35398

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35399

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35400

}

35401

return TCL_OK;

35402

}

35403

#define _ibsm_node_info_port_guid_set(_swigobj,_swigval) (_swigobj->port_guid = *(_swigval),_swigval)

35404

static int _wrap_smNodeInfo_port_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35405

35406

ib_net64_t * _result;

35407

smNodeInfo * _arg0;

35408

ib_net64_t * _arg1;

35409

Tcl_Obj * tcl_result;

35410

char * rettype;

35411

uint64_t temp;

35412

35413

clientData = clientData; objv = objv;

35414

tcl_result = Tcl_GetObjResult(interp);

35415

if ((objc < 3) || (objc > 3)) {

35416

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_port_guid_set { smNodeInfo * } { ib_net64_t * } ",-1);

35417

return TCL_ERROR;

35418

}

35419

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35420

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_port_guid_set. Expected _smNodeInfo_p, received ", -1);

35421

Tcl_AppendToObj(tcl_result, rettype, -1);

35422

return TCL_ERROR;

35423

}

35424

{

35425

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

35426

_arg1 = &temp;

35427

}

35428

{

35429

/* we can check if IBIS was initialized here */

35430

if (!IbisObj.initialized)

35431

{

35432

Tcl_SetStringObj(

35433

Tcl_GetObjResult(interp),

35434

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35435

return TCL_ERROR;

35436

}

35437

35438

if (! IbisObj.port_guid)

35439

{

35440

Tcl_SetStringObj(

35441

Tcl_GetObjResult(interp),

35442

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35443

return TCL_ERROR;

35444

}

35445

35446

ibis_tcl_error = 0;

35447

_result = (ib_net64_t *)_ibsm_node_info_port_guid_set(_arg0,_arg1);

35448

;

35449

if (ibis_tcl_error) {

35450

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35451

return TCL_ERROR;

35452

}

35453

} tcl_result = Tcl_GetObjResult(interp);

35454

{

35455

char buff[20];

35456

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35457

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35458

}

35459

return TCL_OK;

35460

}

35461

#define _ibsm_node_info_port_guid_get(_swigobj) (&_swigobj->port_guid)

35462

static int _wrap_smNodeInfo_port_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35463

35464

ib_net64_t * _result;

35465

smNodeInfo * _arg0;

35466

Tcl_Obj * tcl_result;

35467

char * rettype;

35468

35469

clientData = clientData; objv = objv;

35470

tcl_result = Tcl_GetObjResult(interp);

35471

if ((objc < 2) || (objc > 2)) {

35472

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_port_guid_get { smNodeInfo * } ",-1);

35473

return TCL_ERROR;

35474

}

35475

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35476

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_port_guid_get. Expected _smNodeInfo_p, received ", -1);

35477

Tcl_AppendToObj(tcl_result, rettype, -1);

35478

return TCL_ERROR;

35479

}

35480

{

35481

/* we can check if IBIS was initialized here */

35482

if (!IbisObj.initialized)

35483

{

35484

Tcl_SetStringObj(

35485

Tcl_GetObjResult(interp),

35486

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35487

return TCL_ERROR;

35488

}

35489

35490

if (! IbisObj.port_guid)

35491

{

35492

Tcl_SetStringObj(

35493

Tcl_GetObjResult(interp),

35494

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35495

return TCL_ERROR;

35496

}

35497

35498

ibis_tcl_error = 0;

35499

_result = (ib_net64_t *)_ibsm_node_info_port_guid_get(_arg0);

35500

;

35501

if (ibis_tcl_error) {

35502

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35503

return TCL_ERROR;

35504

}

35505

} tcl_result = Tcl_GetObjResult(interp);

35506

{

35507

char buff[20];

35508

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

35509

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35510

}

35511

return TCL_OK;

35512

}

35513

#define _ibsm_node_info_partition_cap_set(_swigobj,_swigval) (_swigobj->partition_cap = *(_swigval),_swigval)

35514

static int _wrap_smNodeInfo_partition_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35515

35516

ib_net16_t * _result;

35517

smNodeInfo * _arg0;

35518

ib_net16_t * _arg1;

35519

Tcl_Obj * tcl_result;

35520

char * rettype;

35521

ib_net16_t temp;

35522

35523

clientData = clientData; objv = objv;

35524

tcl_result = Tcl_GetObjResult(interp);

35525

if ((objc < 3) || (objc > 3)) {

35526

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_partition_cap_set { smNodeInfo * } { ib_net16_t * } ",-1);

35527

return TCL_ERROR;

35528

}

35529

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35530

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_partition_cap_set. Expected _smNodeInfo_p, received ", -1);

35531

Tcl_AppendToObj(tcl_result, rettype, -1);

35532

return TCL_ERROR;

35533

}

35534

{

35535

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

35536

_arg1 = &temp;

35537

}

35538

{

35539

/* we can check if IBIS was initialized here */

35540

if (!IbisObj.initialized)

35541

{

35542

Tcl_SetStringObj(

35543

Tcl_GetObjResult(interp),

35544

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35545

return TCL_ERROR;

35546

}

35547

35548

if (! IbisObj.port_guid)

35549

{

35550

Tcl_SetStringObj(

35551

Tcl_GetObjResult(interp),

35552

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35553

return TCL_ERROR;

35554

}

35555

35556

ibis_tcl_error = 0;

35557

_result = (ib_net16_t *)_ibsm_node_info_partition_cap_set(_arg0,_arg1);

35558

;

35559

if (ibis_tcl_error) {

35560

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35561

return TCL_ERROR;

35562

}

35563

} tcl_result = Tcl_GetObjResult(interp);

35564

{

35565

char buff[20];

35566

sprintf(buff, "%u", cl_hton16(*_result));

35567

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35568

}

35569

return TCL_OK;

35570

}

35571

#define _ibsm_node_info_partition_cap_get(_swigobj) (&_swigobj->partition_cap)

35572

static int _wrap_smNodeInfo_partition_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35573

35574

ib_net16_t * _result;

35575

smNodeInfo * _arg0;

35576

Tcl_Obj * tcl_result;

35577

char * rettype;

35578

35579

clientData = clientData; objv = objv;

35580

tcl_result = Tcl_GetObjResult(interp);

35581

if ((objc < 2) || (objc > 2)) {

35582

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_partition_cap_get { smNodeInfo * } ",-1);

35583

return TCL_ERROR;

35584

}

35585

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35586

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_partition_cap_get. Expected _smNodeInfo_p, received ", -1);

35587

Tcl_AppendToObj(tcl_result, rettype, -1);

35588

return TCL_ERROR;

35589

}

35590

{

35591

/* we can check if IBIS was initialized here */

35592

if (!IbisObj.initialized)

35593

{

35594

Tcl_SetStringObj(

35595

Tcl_GetObjResult(interp),

35596

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35597

return TCL_ERROR;

35598

}

35599

35600

if (! IbisObj.port_guid)

35601

{

35602

Tcl_SetStringObj(

35603

Tcl_GetObjResult(interp),

35604

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35605

return TCL_ERROR;

35606

}

35607

35608

ibis_tcl_error = 0;

35609

_result = (ib_net16_t *)_ibsm_node_info_partition_cap_get(_arg0);

35610

;

35611

if (ibis_tcl_error) {

35612

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35613

return TCL_ERROR;

35614

}

35615

} tcl_result = Tcl_GetObjResult(interp);

35616

{

35617

char buff[20];

35618

sprintf(buff, "%u", cl_hton16(*_result));

35619

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35620

}

35621

return TCL_OK;

35622

}

35623

#define _ibsm_node_info_device_id_set(_swigobj,_swigval) (_swigobj->device_id = *(_swigval),_swigval)

35624

static int _wrap_smNodeInfo_device_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35625

35626

ib_net16_t * _result;

35627

smNodeInfo * _arg0;

35628

ib_net16_t * _arg1;

35629

Tcl_Obj * tcl_result;

35630

char * rettype;

35631

ib_net16_t temp;

35632

35633

clientData = clientData; objv = objv;

35634

tcl_result = Tcl_GetObjResult(interp);

35635

if ((objc < 3) || (objc > 3)) {

35636

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_device_id_set { smNodeInfo * } { ib_net16_t * } ",-1);

35637

return TCL_ERROR;

35638

}

35639

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35640

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_device_id_set. Expected _smNodeInfo_p, received ", -1);

35641

Tcl_AppendToObj(tcl_result, rettype, -1);

35642

return TCL_ERROR;

35643

}

35644

{

35645

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

35646

_arg1 = &temp;

35647

}

35648

{

35649

/* we can check if IBIS was initialized here */

35650

if (!IbisObj.initialized)

35651

{

35652

Tcl_SetStringObj(

35653

Tcl_GetObjResult(interp),

35654

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35655

return TCL_ERROR;

35656

}

35657

35658

if (! IbisObj.port_guid)

35659

{

35660

Tcl_SetStringObj(

35661

Tcl_GetObjResult(interp),

35662

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35663

return TCL_ERROR;

35664

}

35665

35666

ibis_tcl_error = 0;

35667

_result = (ib_net16_t *)_ibsm_node_info_device_id_set(_arg0,_arg1);

35668

;

35669

if (ibis_tcl_error) {

35670

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35671

return TCL_ERROR;

35672

}

35673

} tcl_result = Tcl_GetObjResult(interp);

35674

{

35675

char buff[20];

35676

sprintf(buff, "%u", cl_hton16(*_result));

35677

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35678

}

35679

return TCL_OK;

35680

}

35681

#define _ibsm_node_info_device_id_get(_swigobj) (&_swigobj->device_id)

35682

static int _wrap_smNodeInfo_device_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35683

35684

ib_net16_t * _result;

35685

smNodeInfo * _arg0;

35686

Tcl_Obj * tcl_result;

35687

char * rettype;

35688

35689

clientData = clientData; objv = objv;

35690

tcl_result = Tcl_GetObjResult(interp);

35691

if ((objc < 2) || (objc > 2)) {

35692

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_device_id_get { smNodeInfo * } ",-1);

35693

return TCL_ERROR;

35694

}

35695

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35696

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_device_id_get. Expected _smNodeInfo_p, received ", -1);

35697

Tcl_AppendToObj(tcl_result, rettype, -1);

35698

return TCL_ERROR;

35699

}

35700

{

35701

/* we can check if IBIS was initialized here */

35702

if (!IbisObj.initialized)

35703

{

35704

Tcl_SetStringObj(

35705

Tcl_GetObjResult(interp),

35706

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35707

return TCL_ERROR;

35708

}

35709

35710

if (! IbisObj.port_guid)

35711

{

35712

Tcl_SetStringObj(

35713

Tcl_GetObjResult(interp),

35714

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35715

return TCL_ERROR;

35716

}

35717

35718

ibis_tcl_error = 0;

35719

_result = (ib_net16_t *)_ibsm_node_info_device_id_get(_arg0);

35720

;

35721

if (ibis_tcl_error) {

35722

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35723

return TCL_ERROR;

35724

}

35725

} tcl_result = Tcl_GetObjResult(interp);

35726

{

35727

char buff[20];

35728

sprintf(buff, "%u", cl_hton16(*_result));

35729

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35730

}

35731

return TCL_OK;

35732

}

35733

#define _ibsm_node_info_revision_set(_swigobj,_swigval) (_swigobj->revision = *(_swigval),_swigval)

35734

static int _wrap_smNodeInfo_revision_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35735

35736

ib_net32_t * _result;

35737

smNodeInfo * _arg0;

35738

ib_net32_t * _arg1;

35739

Tcl_Obj * tcl_result;

35740

char * rettype;

35741

ib_net32_t temp;

35742

35743

clientData = clientData; objv = objv;

35744

tcl_result = Tcl_GetObjResult(interp);

35745

if ((objc < 3) || (objc > 3)) {

35746

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_revision_set { smNodeInfo * } { ib_net32_t * } ",-1);

35747

return TCL_ERROR;

35748

}

35749

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35750

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_revision_set. Expected _smNodeInfo_p, received ", -1);

35751

Tcl_AppendToObj(tcl_result, rettype, -1);

35752

return TCL_ERROR;

35753

}

35754

{

35755

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

35756

_arg1 = &temp;

35757

}

35758

{

35759

/* we can check if IBIS was initialized here */

35760

if (!IbisObj.initialized)

35761

{

35762

Tcl_SetStringObj(

35763

Tcl_GetObjResult(interp),

35764

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35765

return TCL_ERROR;

35766

}

35767

35768

if (! IbisObj.port_guid)

35769

{

35770

Tcl_SetStringObj(

35771

Tcl_GetObjResult(interp),

35772

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35773

return TCL_ERROR;

35774

}

35775

35776

ibis_tcl_error = 0;

35777

_result = (ib_net32_t *)_ibsm_node_info_revision_set(_arg0,_arg1);

35778

;

35779

if (ibis_tcl_error) {

35780

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35781

return TCL_ERROR;

35782

}

35783

} tcl_result = Tcl_GetObjResult(interp);

35784

{

35785

char buff[20];

35786

sprintf(buff, "%u", cl_ntoh32(*_result));

35787

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35788

}

35789

return TCL_OK;

35790

}

35791

#define _ibsm_node_info_revision_get(_swigobj) (&_swigobj->revision)

35792

static int _wrap_smNodeInfo_revision_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35793

35794

ib_net32_t * _result;

35795

smNodeInfo * _arg0;

35796

Tcl_Obj * tcl_result;

35797

char * rettype;

35798

35799

clientData = clientData; objv = objv;

35800

tcl_result = Tcl_GetObjResult(interp);

35801

if ((objc < 2) || (objc > 2)) {

35802

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_revision_get { smNodeInfo * } ",-1);

35803

return TCL_ERROR;

35804

}

35805

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35806

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_revision_get. Expected _smNodeInfo_p, received ", -1);

35807

Tcl_AppendToObj(tcl_result, rettype, -1);

35808

return TCL_ERROR;

35809

}

35810

{

35811

/* we can check if IBIS was initialized here */

35812

if (!IbisObj.initialized)

35813

{

35814

Tcl_SetStringObj(

35815

Tcl_GetObjResult(interp),

35816

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35817

return TCL_ERROR;

35818

}

35819

35820

if (! IbisObj.port_guid)

35821

{

35822

Tcl_SetStringObj(

35823

Tcl_GetObjResult(interp),

35824

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35825

return TCL_ERROR;

35826

}

35827

35828

ibis_tcl_error = 0;

35829

_result = (ib_net32_t *)_ibsm_node_info_revision_get(_arg0);

35830

;

35831

if (ibis_tcl_error) {

35832

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35833

return TCL_ERROR;

35834

}

35835

} tcl_result = Tcl_GetObjResult(interp);

35836

{

35837

char buff[20];

35838

sprintf(buff, "%u", cl_ntoh32(*_result));

35839

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35840

}

35841

return TCL_OK;

35842

}

35843

#define _ibsm_node_info_port_num_vendor_id_set(_swigobj,_swigval) (_swigobj->port_num_vendor_id = *(_swigval),_swigval)

35844

static int _wrap_smNodeInfo_port_num_vendor_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35845

35846

ib_net32_t * _result;

35847

smNodeInfo * _arg0;

35848

ib_net32_t * _arg1;

35849

Tcl_Obj * tcl_result;

35850

char * rettype;

35851

ib_net32_t temp;

35852

35853

clientData = clientData; objv = objv;

35854

tcl_result = Tcl_GetObjResult(interp);

35855

if ((objc < 3) || (objc > 3)) {

35856

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_port_num_vendor_id_set { smNodeInfo * } { ib_net32_t * } ",-1);

35857

return TCL_ERROR;

35858

}

35859

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35860

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_port_num_vendor_id_set. Expected _smNodeInfo_p, received ", -1);

35861

Tcl_AppendToObj(tcl_result, rettype, -1);

35862

return TCL_ERROR;

35863

}

35864

{

35865

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

35866

_arg1 = &temp;

35867

}

35868

{

35869

/* we can check if IBIS was initialized here */

35870

if (!IbisObj.initialized)

35871

{

35872

Tcl_SetStringObj(

35873

Tcl_GetObjResult(interp),

35874

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35875

return TCL_ERROR;

35876

}

35877

35878

if (! IbisObj.port_guid)

35879

{

35880

Tcl_SetStringObj(

35881

Tcl_GetObjResult(interp),

35882

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35883

return TCL_ERROR;

35884

}

35885

35886

ibis_tcl_error = 0;

35887

_result = (ib_net32_t *)_ibsm_node_info_port_num_vendor_id_set(_arg0,_arg1);

35888

;

35889

if (ibis_tcl_error) {

35890

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35891

return TCL_ERROR;

35892

}

35893

} tcl_result = Tcl_GetObjResult(interp);

35894

{

35895

char buff[20];

35896

sprintf(buff, "%u", cl_ntoh32(*_result));

35897

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35898

}

35899

return TCL_OK;

35900

}

35901

#define _ibsm_node_info_port_num_vendor_id_get(_swigobj) (&_swigobj->port_num_vendor_id)

35902

static int _wrap_smNodeInfo_port_num_vendor_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35903

35904

ib_net32_t * _result;

35905

smNodeInfo * _arg0;

35906

Tcl_Obj * tcl_result;

35907

char * rettype;

35908

35909

clientData = clientData; objv = objv;

35910

tcl_result = Tcl_GetObjResult(interp);

35911

if ((objc < 2) || (objc > 2)) {

35912

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_port_num_vendor_id_get { smNodeInfo * } ",-1);

35913

return TCL_ERROR;

35914

}

35915

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35916

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_port_num_vendor_id_get. Expected _smNodeInfo_p, received ", -1);

35917

Tcl_AppendToObj(tcl_result, rettype, -1);

35918

return TCL_ERROR;

35919

}

35920

{

35921

/* we can check if IBIS was initialized here */

35922

if (!IbisObj.initialized)

35923

{

35924

Tcl_SetStringObj(

35925

Tcl_GetObjResult(interp),

35926

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

35927

return TCL_ERROR;

35928

}

35929

35930

if (! IbisObj.port_guid)

35931

{

35932

Tcl_SetStringObj(

35933

Tcl_GetObjResult(interp),

35934

" ibis was not yet initialized. please use ibis_set_port before.", -1);

35935

return TCL_ERROR;

35936

}

35937

35938

ibis_tcl_error = 0;

35939

_result = (ib_net32_t *)_ibsm_node_info_port_num_vendor_id_get(_arg0);

35940

;

35941

if (ibis_tcl_error) {

35942

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

35943

return TCL_ERROR;

35944

}

35945

} tcl_result = Tcl_GetObjResult(interp);

35946

{

35947

char buff[20];

35948

sprintf(buff, "%u", cl_ntoh32(*_result));

35949

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

35950

}

35951

return TCL_OK;

35952

}

35953

static int smNodeInfo_getByDr(smNodeInfo *self,ibsm_dr_path_t * dr) {

35954

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smNodeInfo),

35955

dr, CL_NTOH16(IB_MAD_ATTR_NODE_INFO), 0,

35956

IB_MAD_METHOD_GET));

35957

}

35958

static int _wrap_smNodeInfo_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

35959

35960

int _result;

35961

smNodeInfo * _arg0;

35962

ibsm_dr_path_t * _arg1;

35963

Tcl_Obj * tcl_result;

35964

char * rettype;

35965

ibsm_dr_path_t dr;

35966

35967

clientData = clientData; objv = objv;

35968

tcl_result = Tcl_GetObjResult(interp);

35969

if ((objc < 3) || (objc > 3)) {

35970

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_getByDr { smNodeInfo * } dr ",-1);

35971

return TCL_ERROR;

35972

}

35973

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

35974

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_getByDr. Expected _smNodeInfo_p, received ", -1);

35975

Tcl_AppendToObj(tcl_result, rettype, -1);

35976

return TCL_ERROR;

35977

}

35978

{

35979

char buf[1024];

35980

char *p_next;

35981

unsigned int port;

35982

int i;

35983

35984

dr.count = 1;

35985

dr.path[0] = 0;

35986

35987

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

35988

buf[1023] = '\0';

35989

p_next = strtok(buf," \t");

35990

while (p_next != NULL)

35991

{

35992

if (sscanf(p_next,"%u", &port) != 1)

35993

{

35994

printf("Error: bad format in directed route path index:%u : %s\n",

35995

dr.count, p_next);

35996

return TCL_ERROR;

35997

}

35998

dr.path[dr.count++] = port;

35999

p_next = strtok(NULL," \t");

36000

}

36001

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

36002

dr.count--;

36003

_arg1 = &dr;

36004

}

36005

{

36006

/* we can check if IBIS was initialized here */

36007

if (!IbisObj.initialized)

36008

{

36009

Tcl_SetStringObj(

36010

Tcl_GetObjResult(interp),

36011

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36012

return TCL_ERROR;

36013

}

36014

36015

if (! IbisObj.port_guid)

36016

{

36017

Tcl_SetStringObj(

36018

Tcl_GetObjResult(interp),

36019

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36020

return TCL_ERROR;

36021

}

36022

36023

ibis_tcl_error = 0;

36024

_result = (int )smNodeInfo_getByDr(_arg0,_arg1);

36025

;

36026

if (ibis_tcl_error) {

36027

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36028

return TCL_ERROR;

36029

}

36030

} tcl_result = Tcl_GetObjResult(interp);

36031

Tcl_SetIntObj(tcl_result,(long) _result);

36032

return TCL_OK;

36033

}

36034

static int smNodeInfo_setByDr(smNodeInfo *self,ibsm_dr_path_t * dr) {

36035

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smNodeInfo),

36036

dr, CL_NTOH16(IB_MAD_ATTR_NODE_INFO), 0,

36037

IB_MAD_METHOD_SET));

36038

}

36039

static int _wrap_smNodeInfo_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36040

36041

int _result;

36042

smNodeInfo * _arg0;

36043

ibsm_dr_path_t * _arg1;

36044

Tcl_Obj * tcl_result;

36045

char * rettype;

36046

ibsm_dr_path_t dr;

36047

36048

clientData = clientData; objv = objv;

36049

tcl_result = Tcl_GetObjResult(interp);

36050

if ((objc < 3) || (objc > 3)) {

36051

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_setByDr { smNodeInfo * } dr ",-1);

36052

return TCL_ERROR;

36053

}

36054

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

36055

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_setByDr. Expected _smNodeInfo_p, received ", -1);

36056

Tcl_AppendToObj(tcl_result, rettype, -1);

36057

return TCL_ERROR;

36058

}

36059

{

36060

char buf[1024];

36061

char *p_next;

36062

unsigned int port;

36063

int i;

36064

36065

dr.count = 1;

36066

dr.path[0] = 0;

36067

36068

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

36069

buf[1023] = '\0';

36070

p_next = strtok(buf," \t");

36071

while (p_next != NULL)

36072

{

36073

if (sscanf(p_next,"%u", &port) != 1)

36074

{

36075

printf("Error: bad format in directed route path index:%u : %s\n",

36076

dr.count, p_next);

36077

return TCL_ERROR;

36078

}

36079

dr.path[dr.count++] = port;

36080

p_next = strtok(NULL," \t");

36081

}

36082

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

36083

dr.count--;

36084

_arg1 = &dr;

36085

}

36086

{

36087

/* we can check if IBIS was initialized here */

36088

if (!IbisObj.initialized)

36089

{

36090

Tcl_SetStringObj(

36091

Tcl_GetObjResult(interp),

36092

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36093

return TCL_ERROR;

36094

}

36095

36096

if (! IbisObj.port_guid)

36097

{

36098

Tcl_SetStringObj(

36099

Tcl_GetObjResult(interp),

36100

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36101

return TCL_ERROR;

36102

}

36103

36104

ibis_tcl_error = 0;

36105

_result = (int )smNodeInfo_setByDr(_arg0,_arg1);

36106

;

36107

if (ibis_tcl_error) {

36108

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36109

return TCL_ERROR;

36110

}

36111

} tcl_result = Tcl_GetObjResult(interp);

36112

Tcl_SetIntObj(tcl_result,(long) _result);

36113

return TCL_OK;

36114

}

36115

static int smNodeInfo_getByLid(smNodeInfo *self,uint16_t lid) {

36116

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smNodeInfo),

36117

lid, CL_NTOH16(IB_MAD_ATTR_NODE_INFO), 0,

36118

IB_MAD_METHOD_GET));

36119

}

36120

static int _wrap_smNodeInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36121

36122

int _result;

36123

smNodeInfo * _arg0;

36124

uint16_t * _arg1;

36125

Tcl_Obj * tcl_result;

36126

char * rettype;

36127

uint16_t temp;

36128

36129

clientData = clientData; objv = objv;

36130

tcl_result = Tcl_GetObjResult(interp);

36131

if ((objc < 3) || (objc > 3)) {

36132

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_getByLid { smNodeInfo * } lid ",-1);

36133

return TCL_ERROR;

36134

}

36135

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

36136

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_getByLid. Expected _smNodeInfo_p, received ", -1);

36137

Tcl_AppendToObj(tcl_result, rettype, -1);

36138

return TCL_ERROR;

36139

}

36140

{

36141

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

36142

_arg1 = &temp;

36143

}

36144

{

36145

/* we can check if IBIS was initialized here */

36146

if (!IbisObj.initialized)

36147

{

36148

Tcl_SetStringObj(

36149

Tcl_GetObjResult(interp),

36150

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36151

return TCL_ERROR;

36152

}

36153

36154

if (! IbisObj.port_guid)

36155

{

36156

Tcl_SetStringObj(

36157

Tcl_GetObjResult(interp),

36158

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36159

return TCL_ERROR;

36160

}

36161

36162

ibis_tcl_error = 0;

36163

_result = (int )smNodeInfo_getByLid(_arg0,*_arg1);

36164

;

36165

if (ibis_tcl_error) {

36166

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36167

return TCL_ERROR;

36168

}

36169

} tcl_result = Tcl_GetObjResult(interp);

36170

Tcl_SetIntObj(tcl_result,(long) _result);

36171

return TCL_OK;

36172

}

36173

static int smNodeInfo_setByLid(smNodeInfo *self,uint16_t lid) {

36174

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smNodeInfo),

36175

lid, CL_NTOH16(IB_MAD_ATTR_NODE_INFO), 0,

36176

IB_MAD_METHOD_SET));

36177

}

36178

static int _wrap_smNodeInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36179

36180

int _result;

36181

smNodeInfo * _arg0;

36182

uint16_t * _arg1;

36183

Tcl_Obj * tcl_result;

36184

char * rettype;

36185

uint16_t temp;

36186

36187

clientData = clientData; objv = objv;

36188

tcl_result = Tcl_GetObjResult(interp);

36189

if ((objc < 3) || (objc > 3)) {

36190

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeInfo_setByLid { smNodeInfo * } lid ",-1);

36191

return TCL_ERROR;

36192

}

36193

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeInfo_p"))) {

36194

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeInfo_setByLid. Expected _smNodeInfo_p, received ", -1);

36195

Tcl_AppendToObj(tcl_result, rettype, -1);

36196

return TCL_ERROR;

36197

}

36198

{

36199

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

36200

_arg1 = &temp;

36201

}

36202

{

36203

/* we can check if IBIS was initialized here */

36204

if (!IbisObj.initialized)

36205

{

36206

Tcl_SetStringObj(

36207

Tcl_GetObjResult(interp),

36208

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36209

return TCL_ERROR;

36210

}

36211

36212

if (! IbisObj.port_guid)

36213

{

36214

Tcl_SetStringObj(

36215

Tcl_GetObjResult(interp),

36216

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36217

return TCL_ERROR;

36218

}

36219

36220

ibis_tcl_error = 0;

36221

_result = (int )smNodeInfo_setByLid(_arg0,*_arg1);

36222

;

36223

if (ibis_tcl_error) {

36224

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36225

return TCL_ERROR;

36226

}

36227

} tcl_result = Tcl_GetObjResult(interp);

36228

Tcl_SetIntObj(tcl_result,(long) _result);

36229

return TCL_OK;

36230

}

36231

/* methodcmd8.swg : Tcl8.x method invocation */

36232

36233

static int TclsmNodeInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

36234

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

36235

char *_str;

36236

int rcode;

36237

Tcl_Obj **objv;

36238

Tcl_Obj *oldarg,*tcl_result,*obj;

36239

int length;

36240

char c;

36241

36242

tcl_result = Tcl_GetObjResult(interp);

36243

objv = (Tcl_Obj **) _objv;

36244

if (objc < 2) {

36245

Tcl_SetStringObj(tcl_result,"smNodeInfo methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

36246

return TCL_ERROR;

36247

}

36248

obj = Tcl_NewObj();

36249

SWIG_SetPointerObj(obj,(void *) clientData,"_smNodeInfo_p");

36250

_str = Tcl_GetStringFromObj(objv[1],&length);

36251

c = *_str;

36252

if (0);

36253

if (strcmp(_str,"getByDr") == 0) {

36254

cmd = _wrap_smNodeInfo_getByDr;

36255

} else if (strcmp(_str,"setByDr") == 0) {

36256

cmd = _wrap_smNodeInfo_setByDr;

36257

} else if (strcmp(_str,"getByLid") == 0) {

36258

cmd = _wrap_smNodeInfo_getByLid;

36259

} else if (strcmp(_str,"setByLid") == 0) {

36260

cmd = _wrap_smNodeInfo_setByLid;

36261

}

36262

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

36263

int i = 2;

36264

cmd = 0;

36265

while (i+1 < objc) {

36266

_str = Tcl_GetStringFromObj(objv[i],&length);

36267

if (strcmp(_str,"-base_version") == 0) {

36268

cmd = _wrap_smNodeInfo_base_version_set;

36269

} else if (strcmp(_str,"-class_version") == 0) {

36270

cmd = _wrap_smNodeInfo_class_version_set;

36271

} else if (strcmp(_str,"-node_type") == 0) {

36272

cmd = _wrap_smNodeInfo_node_type_set;

36273

} else if (strcmp(_str,"-num_ports") == 0) {

36274

cmd = _wrap_smNodeInfo_num_ports_set;

36275

} else if (strcmp(_str,"-sys_guid") == 0) {

36276

cmd = _wrap_smNodeInfo_sys_guid_set;

36277

} else if (strcmp(_str,"-node_guid") == 0) {

36278

cmd = _wrap_smNodeInfo_node_guid_set;

36279

} else if (strcmp(_str,"-port_guid") == 0) {

36280

cmd = _wrap_smNodeInfo_port_guid_set;

36281

} else if (strcmp(_str,"-partition_cap") == 0) {

36282

cmd = _wrap_smNodeInfo_partition_cap_set;

36283

} else if (strcmp(_str,"-device_id") == 0) {

36284

cmd = _wrap_smNodeInfo_device_id_set;

36285

} else if (strcmp(_str,"-revision") == 0) {

36286

cmd = _wrap_smNodeInfo_revision_set;

36287

} else if (strcmp(_str,"-port_num_vendor_id") == 0) {

36288

cmd = _wrap_smNodeInfo_port_num_vendor_id_set;

36289

}

36290

if (cmd) {

36291

oldarg = objv[i];

36292

objv[i] = obj;

36293

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

36294

objv[i] = oldarg;

36295

if (rcode == TCL_ERROR) return rcode;

36296

cmd = 0;

36297

} else {

36298

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

36299

return TCL_ERROR;

36300

}

36301

i+=2;

36302

}

36303

if ((i < objc) || (i == 2)) {

36304

Tcl_SetStringObj(tcl_result,"{ -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

36305

return TCL_ERROR;

36306

}

36307

return TCL_OK;

36308

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

36309

if (objc == 3) {

36310

_str = Tcl_GetStringFromObj(objv[2],&length);

36311

if (0) {}

36312

if (strcmp(_str,"-base_version") == 0) {

36313

cmd = _wrap_smNodeInfo_base_version_get;

36314

} else if (strcmp(_str,"-class_version") == 0) {

36315

cmd = _wrap_smNodeInfo_class_version_get;

36316

} else if (strcmp(_str,"-node_type") == 0) {

36317

cmd = _wrap_smNodeInfo_node_type_get;

36318

} else if (strcmp(_str,"-num_ports") == 0) {

36319

cmd = _wrap_smNodeInfo_num_ports_get;

36320

} else if (strcmp(_str,"-sys_guid") == 0) {

36321

cmd = _wrap_smNodeInfo_sys_guid_get;

36322

} else if (strcmp(_str,"-node_guid") == 0) {

36323

cmd = _wrap_smNodeInfo_node_guid_get;

36324

} else if (strcmp(_str,"-port_guid") == 0) {

36325

cmd = _wrap_smNodeInfo_port_guid_get;

36326

} else if (strcmp(_str,"-partition_cap") == 0) {

36327

cmd = _wrap_smNodeInfo_partition_cap_get;

36328

} else if (strcmp(_str,"-device_id") == 0) {

36329

cmd = _wrap_smNodeInfo_device_id_get;

36330

} else if (strcmp(_str,"-revision") == 0) {

36331

cmd = _wrap_smNodeInfo_revision_get;

36332

} else if (strcmp(_str,"-port_num_vendor_id") == 0) {

36333

cmd = _wrap_smNodeInfo_port_num_vendor_id_get;

36334

}

36335

else if (strcmp(_str,"-this") == 0) {

36336

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNodeInfo_p");

36337

return TCL_OK;

36338

}

36339

if (cmd) {

36340

oldarg = objv[2];

36341

objv[2] = obj;

36342

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

36343

objv[2] = oldarg;

36344

return rcode;

36345

} else {

36346

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }",-1);

36347

return TCL_ERROR;

36348

}

36349

} else {

36350

Tcl_SetStringObj(tcl_result,"{ -this -base_version -class_version -node_type -num_ports -sys_guid -node_guid -port_guid -partition_cap -device_id -revision -port_num_vendor_id }", -1);

36351

return TCL_ERROR;

36352

}

36353

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

36354

if (objc == 2) {

36355

Tcl_Obj *pDumpObj;

36356

pDumpObj = Tcl_NewStringObj("",-1);

36357

Tcl_IncrRefCount(pDumpObj);

36358

cmd = _wrap_smNodeInfo_base_version_get;

36359

oldarg = objv[2];

36360

objv[2] = obj;

36361

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36362

objv[2] = oldarg;

36363

Tcl_AppendStringsToObj(pDumpObj, "-base_version ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36364

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36365

cmd = _wrap_smNodeInfo_class_version_get;

36366

oldarg = objv[2];

36367

objv[2] = obj;

36368

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36369

objv[2] = oldarg;

36370

Tcl_AppendStringsToObj(pDumpObj, "-class_version ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36371

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36372

cmd = _wrap_smNodeInfo_node_type_get;

36373

oldarg = objv[2];

36374

objv[2] = obj;

36375

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36376

objv[2] = oldarg;

36377

Tcl_AppendStringsToObj(pDumpObj, "-node_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36378

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36379

cmd = _wrap_smNodeInfo_num_ports_get;

36380

oldarg = objv[2];

36381

objv[2] = obj;

36382

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36383

objv[2] = oldarg;

36384

Tcl_AppendStringsToObj(pDumpObj, "-num_ports ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36385

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36386

cmd = _wrap_smNodeInfo_sys_guid_get;

36387

oldarg = objv[2];

36388

objv[2] = obj;

36389

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36390

objv[2] = oldarg;

36391

Tcl_AppendStringsToObj(pDumpObj, "-sys_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36392

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36393

cmd = _wrap_smNodeInfo_node_guid_get;

36394

oldarg = objv[2];

36395

objv[2] = obj;

36396

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36397

objv[2] = oldarg;

36398

Tcl_AppendStringsToObj(pDumpObj, "-node_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36399

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36400

cmd = _wrap_smNodeInfo_port_guid_get;

36401

oldarg = objv[2];

36402

objv[2] = obj;

36403

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36404

objv[2] = oldarg;

36405

Tcl_AppendStringsToObj(pDumpObj, "-port_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36406

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36407

cmd = _wrap_smNodeInfo_partition_cap_get;

36408

oldarg = objv[2];

36409

objv[2] = obj;

36410

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36411

objv[2] = oldarg;

36412

Tcl_AppendStringsToObj(pDumpObj, "-partition_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36413

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36414

cmd = _wrap_smNodeInfo_device_id_get;

36415

oldarg = objv[2];

36416

objv[2] = obj;

36417

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36418

objv[2] = oldarg;

36419

Tcl_AppendStringsToObj(pDumpObj, "-device_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36420

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36421

cmd = _wrap_smNodeInfo_revision_get;

36422

oldarg = objv[2];

36423

objv[2] = obj;

36424

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36425

objv[2] = oldarg;

36426

Tcl_AppendStringsToObj(pDumpObj, "-revision ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36427

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36428

cmd = _wrap_smNodeInfo_port_num_vendor_id_get;

36429

oldarg = objv[2];

36430

objv[2] = obj;

36431

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

36432

objv[2] = oldarg;

36433

Tcl_AppendStringsToObj(pDumpObj, "-port_num_vendor_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

36434

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

36435

36436

Tcl_DecrRefCount(pDumpObj);

36437

return TCL_OK;

36438

} else {

36439

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

36440

return TCL_ERROR;

36441

}

36442

}

36443

if (!cmd) {

36444

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

36445

return TCL_ERROR;

36446

}

36447

oldarg = objv[1];

36448

objv[1] = obj;

36449

rcode = (*cmd)(clientData,interp,objc,objv);

36450

objv[1] = oldarg;

36451

return rcode;

36452

}

36453

36454

36455

36456

/* objcmd8.swg : Tcl 8.x object creation */

36457

36458

static int TclsmNodeInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36459

void (*del)(ClientData) = 0;

36460

char *name = 0;

36461

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

36462

smNodeInfo * newObj = 0;

36463

int firstarg = 0;

36464

int thisarg = 0;

36465

int length;

36466

char *_str;

36467

Tcl_Obj *tcl_result;

36468

36469

tcl_result = Tcl_GetObjResult(interp);

36470

if (objc == 1) {

36471

cmd = 0;

36472

} else {

36473

_str = Tcl_GetStringFromObj(objv[1],&length);

36474

if (strcmp(_str,"-this") == 0) thisarg = 2;

36475

else if (strcmp(_str,"-args") == 0) {

36476

firstarg = 1;

36477

cmd = 0;

36478

} else if (objc == 2) {

36479

firstarg = 1;

36480

name = _str;

36481

cmd = 0;

36482

} else if (objc >= 3) {

36483

name = _str;

36484

_str = Tcl_GetStringFromObj(objv[2],&length);

36485

if (strcmp(_str,"-this") == 0) thisarg = 3;

36486

else {

36487

firstarg = 1;

36488

cmd = 0;

36489

}

36490

}

36491

}

36492

if (cmd) {

36493

int result;

36494

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

36495

if (result == TCL_OK) {

36496

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNodeInfo_p");

36497

} else { return result; }

36498

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

36499

del = 0;

36500

} else if (thisarg > 0) {

36501

if (thisarg < objc) {

36502

char *r;

36503

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNodeInfo_p");

36504

if (r) {

36505

Tcl_SetStringObj(tcl_result,"Type error. not a smNodeInfo object.",-1);

36506

return TCL_ERROR;

36507

}

36508

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

36509

Tcl_SetStringObj(tcl_result,name,-1);

36510

} else {

36511

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

36512

return TCL_ERROR;

36513

}

36514

} else {

36515

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

36516

return TCL_ERROR;

36517

}

36518

{

36519

Tcl_CmdInfo dummy;

36520

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

36521

Tcl_CreateObjCommand(interp,name, TclsmNodeInfoMethodCmd, (ClientData) newObj, del);

36522

return TCL_OK;

36523

} else {

36524

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

36525

return TCL_ERROR;

36526

}

36527

}

36528

}

36529

36530

36531

#define _ibsm_port_info_m_key_set(_swigobj,_swigval) (_swigobj->m_key = *(_swigval),_swigval)

36532

static int _wrap_smPortInfo_m_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36533

36534

ib_net64_t * _result;

36535

smPortInfo * _arg0;

36536

ib_net64_t * _arg1;

36537

Tcl_Obj * tcl_result;

36538

char * rettype;

36539

uint64_t temp;

36540

36541

clientData = clientData; objv = objv;

36542

tcl_result = Tcl_GetObjResult(interp);

36543

if ((objc < 3) || (objc > 3)) {

36544

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_set { smPortInfo * } { ib_net64_t * } ",-1);

36545

return TCL_ERROR;

36546

}

36547

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36548

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_set. Expected _smPortInfo_p, received ", -1);

36549

Tcl_AppendToObj(tcl_result, rettype, -1);

36550

return TCL_ERROR;

36551

}

36552

{

36553

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

36554

_arg1 = &temp;

36555

}

36556

{

36557

/* we can check if IBIS was initialized here */

36558

if (!IbisObj.initialized)

36559

{

36560

Tcl_SetStringObj(

36561

Tcl_GetObjResult(interp),

36562

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36563

return TCL_ERROR;

36564

}

36565

36566

if (! IbisObj.port_guid)

36567

{

36568

Tcl_SetStringObj(

36569

Tcl_GetObjResult(interp),

36570

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36571

return TCL_ERROR;

36572

}

36573

36574

ibis_tcl_error = 0;

36575

_result = (ib_net64_t *)_ibsm_port_info_m_key_set(_arg0,_arg1);

36576

;

36577

if (ibis_tcl_error) {

36578

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36579

return TCL_ERROR;

36580

}

36581

} tcl_result = Tcl_GetObjResult(interp);

36582

{

36583

char buff[20];

36584

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

36585

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36586

}

36587

return TCL_OK;

36588

}

36589

#define _ibsm_port_info_m_key_get(_swigobj) (&_swigobj->m_key)

36590

static int _wrap_smPortInfo_m_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36591

36592

ib_net64_t * _result;

36593

smPortInfo * _arg0;

36594

Tcl_Obj * tcl_result;

36595

char * rettype;

36596

36597

clientData = clientData; objv = objv;

36598

tcl_result = Tcl_GetObjResult(interp);

36599

if ((objc < 2) || (objc > 2)) {

36600

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_get { smPortInfo * } ",-1);

36601

return TCL_ERROR;

36602

}

36603

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36604

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_get. Expected _smPortInfo_p, received ", -1);

36605

Tcl_AppendToObj(tcl_result, rettype, -1);

36606

return TCL_ERROR;

36607

}

36608

{

36609

/* we can check if IBIS was initialized here */

36610

if (!IbisObj.initialized)

36611

{

36612

Tcl_SetStringObj(

36613

Tcl_GetObjResult(interp),

36614

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36615

return TCL_ERROR;

36616

}

36617

36618

if (! IbisObj.port_guid)

36619

{

36620

Tcl_SetStringObj(

36621

Tcl_GetObjResult(interp),

36622

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36623

return TCL_ERROR;

36624

}

36625

36626

ibis_tcl_error = 0;

36627

_result = (ib_net64_t *)_ibsm_port_info_m_key_get(_arg0);

36628

;

36629

if (ibis_tcl_error) {

36630

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36631

return TCL_ERROR;

36632

}

36633

} tcl_result = Tcl_GetObjResult(interp);

36634

{

36635

char buff[20];

36636

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

36637

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36638

}

36639

return TCL_OK;

36640

}

36641

#define _ibsm_port_info_subnet_prefix_set(_swigobj,_swigval) (_swigobj->subnet_prefix = *(_swigval),_swigval)

36642

static int _wrap_smPortInfo_subnet_prefix_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36643

36644

ib_net64_t * _result;

36645

smPortInfo * _arg0;

36646

ib_net64_t * _arg1;

36647

Tcl_Obj * tcl_result;

36648

char * rettype;

36649

uint64_t temp;

36650

36651

clientData = clientData; objv = objv;

36652

tcl_result = Tcl_GetObjResult(interp);

36653

if ((objc < 3) || (objc > 3)) {

36654

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_subnet_prefix_set { smPortInfo * } { ib_net64_t * } ",-1);

36655

return TCL_ERROR;

36656

}

36657

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36658

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_subnet_prefix_set. Expected _smPortInfo_p, received ", -1);

36659

Tcl_AppendToObj(tcl_result, rettype, -1);

36660

return TCL_ERROR;

36661

}

36662

{

36663

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

36664

_arg1 = &temp;

36665

}

36666

{

36667

/* we can check if IBIS was initialized here */

36668

if (!IbisObj.initialized)

36669

{

36670

Tcl_SetStringObj(

36671

Tcl_GetObjResult(interp),

36672

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36673

return TCL_ERROR;

36674

}

36675

36676

if (! IbisObj.port_guid)

36677

{

36678

Tcl_SetStringObj(

36679

Tcl_GetObjResult(interp),

36680

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36681

return TCL_ERROR;

36682

}

36683

36684

ibis_tcl_error = 0;

36685

_result = (ib_net64_t *)_ibsm_port_info_subnet_prefix_set(_arg0,_arg1);

36686

;

36687

if (ibis_tcl_error) {

36688

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36689

return TCL_ERROR;

36690

}

36691

} tcl_result = Tcl_GetObjResult(interp);

36692

{

36693

char buff[20];

36694

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

36695

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36696

}

36697

return TCL_OK;

36698

}

36699

#define _ibsm_port_info_subnet_prefix_get(_swigobj) (&_swigobj->subnet_prefix)

36700

static int _wrap_smPortInfo_subnet_prefix_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36701

36702

ib_net64_t * _result;

36703

smPortInfo * _arg0;

36704

Tcl_Obj * tcl_result;

36705

char * rettype;

36706

36707

clientData = clientData; objv = objv;

36708

tcl_result = Tcl_GetObjResult(interp);

36709

if ((objc < 2) || (objc > 2)) {

36710

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_subnet_prefix_get { smPortInfo * } ",-1);

36711

return TCL_ERROR;

36712

}

36713

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36714

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_subnet_prefix_get. Expected _smPortInfo_p, received ", -1);

36715

Tcl_AppendToObj(tcl_result, rettype, -1);

36716

return TCL_ERROR;

36717

}

36718

{

36719

/* we can check if IBIS was initialized here */

36720

if (!IbisObj.initialized)

36721

{

36722

Tcl_SetStringObj(

36723

Tcl_GetObjResult(interp),

36724

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36725

return TCL_ERROR;

36726

}

36727

36728

if (! IbisObj.port_guid)

36729

{

36730

Tcl_SetStringObj(

36731

Tcl_GetObjResult(interp),

36732

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36733

return TCL_ERROR;

36734

}

36735

36736

ibis_tcl_error = 0;

36737

_result = (ib_net64_t *)_ibsm_port_info_subnet_prefix_get(_arg0);

36738

;

36739

if (ibis_tcl_error) {

36740

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36741

return TCL_ERROR;

36742

}

36743

} tcl_result = Tcl_GetObjResult(interp);

36744

{

36745

char buff[20];

36746

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

36747

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36748

}

36749

return TCL_OK;

36750

}

36751

#define _ibsm_port_info_base_lid_set(_swigobj,_swigval) (_swigobj->base_lid = *(_swigval),_swigval)

36752

static int _wrap_smPortInfo_base_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36753

36754

ib_net16_t * _result;

36755

smPortInfo * _arg0;

36756

ib_net16_t * _arg1;

36757

Tcl_Obj * tcl_result;

36758

char * rettype;

36759

ib_net16_t temp;

36760

36761

clientData = clientData; objv = objv;

36762

tcl_result = Tcl_GetObjResult(interp);

36763

if ((objc < 3) || (objc > 3)) {

36764

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_base_lid_set { smPortInfo * } { ib_net16_t * } ",-1);

36765

return TCL_ERROR;

36766

}

36767

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36768

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_base_lid_set. Expected _smPortInfo_p, received ", -1);

36769

Tcl_AppendToObj(tcl_result, rettype, -1);

36770

return TCL_ERROR;

36771

}

36772

{

36773

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

36774

_arg1 = &temp;

36775

}

36776

{

36777

/* we can check if IBIS was initialized here */

36778

if (!IbisObj.initialized)

36779

{

36780

Tcl_SetStringObj(

36781

Tcl_GetObjResult(interp),

36782

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36783

return TCL_ERROR;

36784

}

36785

36786

if (! IbisObj.port_guid)

36787

{

36788

Tcl_SetStringObj(

36789

Tcl_GetObjResult(interp),

36790

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36791

return TCL_ERROR;

36792

}

36793

36794

ibis_tcl_error = 0;

36795

_result = (ib_net16_t *)_ibsm_port_info_base_lid_set(_arg0,_arg1);

36796

;

36797

if (ibis_tcl_error) {

36798

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36799

return TCL_ERROR;

36800

}

36801

} tcl_result = Tcl_GetObjResult(interp);

36802

{

36803

char buff[20];

36804

sprintf(buff, "%u", cl_hton16(*_result));

36805

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36806

}

36807

return TCL_OK;

36808

}

36809

#define _ibsm_port_info_base_lid_get(_swigobj) (&_swigobj->base_lid)

36810

static int _wrap_smPortInfo_base_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36811

36812

ib_net16_t * _result;

36813

smPortInfo * _arg0;

36814

Tcl_Obj * tcl_result;

36815

char * rettype;

36816

36817

clientData = clientData; objv = objv;

36818

tcl_result = Tcl_GetObjResult(interp);

36819

if ((objc < 2) || (objc > 2)) {

36820

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_base_lid_get { smPortInfo * } ",-1);

36821

return TCL_ERROR;

36822

}

36823

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36824

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_base_lid_get. Expected _smPortInfo_p, received ", -1);

36825

Tcl_AppendToObj(tcl_result, rettype, -1);

36826

return TCL_ERROR;

36827

}

36828

{

36829

/* we can check if IBIS was initialized here */

36830

if (!IbisObj.initialized)

36831

{

36832

Tcl_SetStringObj(

36833

Tcl_GetObjResult(interp),

36834

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36835

return TCL_ERROR;

36836

}

36837

36838

if (! IbisObj.port_guid)

36839

{

36840

Tcl_SetStringObj(

36841

Tcl_GetObjResult(interp),

36842

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36843

return TCL_ERROR;

36844

}

36845

36846

ibis_tcl_error = 0;

36847

_result = (ib_net16_t *)_ibsm_port_info_base_lid_get(_arg0);

36848

;

36849

if (ibis_tcl_error) {

36850

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36851

return TCL_ERROR;

36852

}

36853

} tcl_result = Tcl_GetObjResult(interp);

36854

{

36855

char buff[20];

36856

sprintf(buff, "%u", cl_hton16(*_result));

36857

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36858

}

36859

return TCL_OK;

36860

}

36861

#define _ibsm_port_info_master_sm_base_lid_set(_swigobj,_swigval) (_swigobj->master_sm_base_lid = *(_swigval),_swigval)

36862

static int _wrap_smPortInfo_master_sm_base_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36863

36864

ib_net16_t * _result;

36865

smPortInfo * _arg0;

36866

ib_net16_t * _arg1;

36867

Tcl_Obj * tcl_result;

36868

char * rettype;

36869

ib_net16_t temp;

36870

36871

clientData = clientData; objv = objv;

36872

tcl_result = Tcl_GetObjResult(interp);

36873

if ((objc < 3) || (objc > 3)) {

36874

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_master_sm_base_lid_set { smPortInfo * } { ib_net16_t * } ",-1);

36875

return TCL_ERROR;

36876

}

36877

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36878

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_master_sm_base_lid_set. Expected _smPortInfo_p, received ", -1);

36879

Tcl_AppendToObj(tcl_result, rettype, -1);

36880

return TCL_ERROR;

36881

}

36882

{

36883

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

36884

_arg1 = &temp;

36885

}

36886

{

36887

/* we can check if IBIS was initialized here */

36888

if (!IbisObj.initialized)

36889

{

36890

Tcl_SetStringObj(

36891

Tcl_GetObjResult(interp),

36892

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36893

return TCL_ERROR;

36894

}

36895

36896

if (! IbisObj.port_guid)

36897

{

36898

Tcl_SetStringObj(

36899

Tcl_GetObjResult(interp),

36900

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36901

return TCL_ERROR;

36902

}

36903

36904

ibis_tcl_error = 0;

36905

_result = (ib_net16_t *)_ibsm_port_info_master_sm_base_lid_set(_arg0,_arg1);

36906

;

36907

if (ibis_tcl_error) {

36908

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36909

return TCL_ERROR;

36910

}

36911

} tcl_result = Tcl_GetObjResult(interp);

36912

{

36913

char buff[20];

36914

sprintf(buff, "%u", cl_hton16(*_result));

36915

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36916

}

36917

return TCL_OK;

36918

}

36919

#define _ibsm_port_info_master_sm_base_lid_get(_swigobj) (&_swigobj->master_sm_base_lid)

36920

static int _wrap_smPortInfo_master_sm_base_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36921

36922

ib_net16_t * _result;

36923

smPortInfo * _arg0;

36924

Tcl_Obj * tcl_result;

36925

char * rettype;

36926

36927

clientData = clientData; objv = objv;

36928

tcl_result = Tcl_GetObjResult(interp);

36929

if ((objc < 2) || (objc > 2)) {

36930

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_master_sm_base_lid_get { smPortInfo * } ",-1);

36931

return TCL_ERROR;

36932

}

36933

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36934

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_master_sm_base_lid_get. Expected _smPortInfo_p, received ", -1);

36935

Tcl_AppendToObj(tcl_result, rettype, -1);

36936

return TCL_ERROR;

36937

}

36938

{

36939

/* we can check if IBIS was initialized here */

36940

if (!IbisObj.initialized)

36941

{

36942

Tcl_SetStringObj(

36943

Tcl_GetObjResult(interp),

36944

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

36945

return TCL_ERROR;

36946

}

36947

36948

if (! IbisObj.port_guid)

36949

{

36950

Tcl_SetStringObj(

36951

Tcl_GetObjResult(interp),

36952

" ibis was not yet initialized. please use ibis_set_port before.", -1);

36953

return TCL_ERROR;

36954

}

36955

36956

ibis_tcl_error = 0;

36957

_result = (ib_net16_t *)_ibsm_port_info_master_sm_base_lid_get(_arg0);

36958

;

36959

if (ibis_tcl_error) {

36960

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

36961

return TCL_ERROR;

36962

}

36963

} tcl_result = Tcl_GetObjResult(interp);

36964

{

36965

char buff[20];

36966

sprintf(buff, "%u", cl_hton16(*_result));

36967

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

36968

}

36969

return TCL_OK;

36970

}

36971

#define _ibsm_port_info_capability_mask_set(_swigobj,_swigval) (_swigobj->capability_mask = *(_swigval),_swigval)

36972

static int _wrap_smPortInfo_capability_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

36973

36974

ib_net32_t * _result;

36975

smPortInfo * _arg0;

36976

ib_net32_t * _arg1;

36977

Tcl_Obj * tcl_result;

36978

char * rettype;

36979

ib_net32_t temp;

36980

36981

clientData = clientData; objv = objv;

36982

tcl_result = Tcl_GetObjResult(interp);

36983

if ((objc < 3) || (objc > 3)) {

36984

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_capability_mask_set { smPortInfo * } { ib_net32_t * } ",-1);

36985

return TCL_ERROR;

36986

}

36987

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

36988

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_capability_mask_set. Expected _smPortInfo_p, received ", -1);

36989

Tcl_AppendToObj(tcl_result, rettype, -1);

36990

return TCL_ERROR;

36991

}

36992

{

36993

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

36994

_arg1 = &temp;

36995

}

36996

{

36997

/* we can check if IBIS was initialized here */

36998

if (!IbisObj.initialized)

36999

{

37000

Tcl_SetStringObj(

37001

Tcl_GetObjResult(interp),

37002

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37003

return TCL_ERROR;

37004

}

37005

37006

if (! IbisObj.port_guid)

37007

{

37008

Tcl_SetStringObj(

37009

Tcl_GetObjResult(interp),

37010

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37011

return TCL_ERROR;

37012

}

37013

37014

ibis_tcl_error = 0;

37015

_result = (ib_net32_t *)_ibsm_port_info_capability_mask_set(_arg0,_arg1);

37016

;

37017

if (ibis_tcl_error) {

37018

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37019

return TCL_ERROR;

37020

}

37021

} tcl_result = Tcl_GetObjResult(interp);

37022

{

37023

char buff[20];

37024

sprintf(buff, "%u", cl_ntoh32(*_result));

37025

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37026

}

37027

return TCL_OK;

37028

}

37029

#define _ibsm_port_info_capability_mask_get(_swigobj) (&_swigobj->capability_mask)

37030

static int _wrap_smPortInfo_capability_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37031

37032

ib_net32_t * _result;

37033

smPortInfo * _arg0;

37034

Tcl_Obj * tcl_result;

37035

char * rettype;

37036

37037

clientData = clientData; objv = objv;

37038

tcl_result = Tcl_GetObjResult(interp);

37039

if ((objc < 2) || (objc > 2)) {

37040

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_capability_mask_get { smPortInfo * } ",-1);

37041

return TCL_ERROR;

37042

}

37043

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37044

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_capability_mask_get. Expected _smPortInfo_p, received ", -1);

37045

Tcl_AppendToObj(tcl_result, rettype, -1);

37046

return TCL_ERROR;

37047

}

37048

{

37049

/* we can check if IBIS was initialized here */

37050

if (!IbisObj.initialized)

37051

{

37052

Tcl_SetStringObj(

37053

Tcl_GetObjResult(interp),

37054

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37055

return TCL_ERROR;

37056

}

37057

37058

if (! IbisObj.port_guid)

37059

{

37060

Tcl_SetStringObj(

37061

Tcl_GetObjResult(interp),

37062

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37063

return TCL_ERROR;

37064

}

37065

37066

ibis_tcl_error = 0;

37067

_result = (ib_net32_t *)_ibsm_port_info_capability_mask_get(_arg0);

37068

;

37069

if (ibis_tcl_error) {

37070

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37071

return TCL_ERROR;

37072

}

37073

} tcl_result = Tcl_GetObjResult(interp);

37074

{

37075

char buff[20];

37076

sprintf(buff, "%u", cl_ntoh32(*_result));

37077

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37078

}

37079

return TCL_OK;

37080

}

37081

#define _ibsm_port_info_diag_code_set(_swigobj,_swigval) (_swigobj->diag_code = *(_swigval),_swigval)

37082

static int _wrap_smPortInfo_diag_code_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37083

37084

ib_net16_t * _result;

37085

smPortInfo * _arg0;

37086

ib_net16_t * _arg1;

37087

Tcl_Obj * tcl_result;

37088

char * rettype;

37089

ib_net16_t temp;

37090

37091

clientData = clientData; objv = objv;

37092

tcl_result = Tcl_GetObjResult(interp);

37093

if ((objc < 3) || (objc > 3)) {

37094

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_diag_code_set { smPortInfo * } { ib_net16_t * } ",-1);

37095

return TCL_ERROR;

37096

}

37097

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37098

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_diag_code_set. Expected _smPortInfo_p, received ", -1);

37099

Tcl_AppendToObj(tcl_result, rettype, -1);

37100

return TCL_ERROR;

37101

}

37102

{

37103

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

37104

_arg1 = &temp;

37105

}

37106

{

37107

/* we can check if IBIS was initialized here */

37108

if (!IbisObj.initialized)

37109

{

37110

Tcl_SetStringObj(

37111

Tcl_GetObjResult(interp),

37112

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37113

return TCL_ERROR;

37114

}

37115

37116

if (! IbisObj.port_guid)

37117

{

37118

Tcl_SetStringObj(

37119

Tcl_GetObjResult(interp),

37120

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37121

return TCL_ERROR;

37122

}

37123

37124

ibis_tcl_error = 0;

37125

_result = (ib_net16_t *)_ibsm_port_info_diag_code_set(_arg0,_arg1);

37126

;

37127

if (ibis_tcl_error) {

37128

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37129

return TCL_ERROR;

37130

}

37131

} tcl_result = Tcl_GetObjResult(interp);

37132

{

37133

char buff[20];

37134

sprintf(buff, "%u", cl_hton16(*_result));

37135

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37136

}

37137

return TCL_OK;

37138

}

37139

#define _ibsm_port_info_diag_code_get(_swigobj) (&_swigobj->diag_code)

37140

static int _wrap_smPortInfo_diag_code_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37141

37142

ib_net16_t * _result;

37143

smPortInfo * _arg0;

37144

Tcl_Obj * tcl_result;

37145

char * rettype;

37146

37147

clientData = clientData; objv = objv;

37148

tcl_result = Tcl_GetObjResult(interp);

37149

if ((objc < 2) || (objc > 2)) {

37150

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_diag_code_get { smPortInfo * } ",-1);

37151

return TCL_ERROR;

37152

}

37153

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37154

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_diag_code_get. Expected _smPortInfo_p, received ", -1);

37155

Tcl_AppendToObj(tcl_result, rettype, -1);

37156

return TCL_ERROR;

37157

}

37158

{

37159

/* we can check if IBIS was initialized here */

37160

if (!IbisObj.initialized)

37161

{

37162

Tcl_SetStringObj(

37163

Tcl_GetObjResult(interp),

37164

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37165

return TCL_ERROR;

37166

}

37167

37168

if (! IbisObj.port_guid)

37169

{

37170

Tcl_SetStringObj(

37171

Tcl_GetObjResult(interp),

37172

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37173

return TCL_ERROR;

37174

}

37175

37176

ibis_tcl_error = 0;

37177

_result = (ib_net16_t *)_ibsm_port_info_diag_code_get(_arg0);

37178

;

37179

if (ibis_tcl_error) {

37180

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37181

return TCL_ERROR;

37182

}

37183

} tcl_result = Tcl_GetObjResult(interp);

37184

{

37185

char buff[20];

37186

sprintf(buff, "%u", cl_hton16(*_result));

37187

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37188

}

37189

return TCL_OK;

37190

}

37191

#define _ibsm_port_info_m_key_lease_period_set(_swigobj,_swigval) (_swigobj->m_key_lease_period = *(_swigval),_swigval)

37192

static int _wrap_smPortInfo_m_key_lease_period_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37193

37194

ib_net16_t * _result;

37195

smPortInfo * _arg0;

37196

ib_net16_t * _arg1;

37197

Tcl_Obj * tcl_result;

37198

char * rettype;

37199

ib_net16_t temp;

37200

37201

clientData = clientData; objv = objv;

37202

tcl_result = Tcl_GetObjResult(interp);

37203

if ((objc < 3) || (objc > 3)) {

37204

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_lease_period_set { smPortInfo * } { ib_net16_t * } ",-1);

37205

return TCL_ERROR;

37206

}

37207

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37208

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_lease_period_set. Expected _smPortInfo_p, received ", -1);

37209

Tcl_AppendToObj(tcl_result, rettype, -1);

37210

return TCL_ERROR;

37211

}

37212

{

37213

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

37214

_arg1 = &temp;

37215

}

37216

{

37217

/* we can check if IBIS was initialized here */

37218

if (!IbisObj.initialized)

37219

{

37220

Tcl_SetStringObj(

37221

Tcl_GetObjResult(interp),

37222

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37223

return TCL_ERROR;

37224

}

37225

37226

if (! IbisObj.port_guid)

37227

{

37228

Tcl_SetStringObj(

37229

Tcl_GetObjResult(interp),

37230

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37231

return TCL_ERROR;

37232

}

37233

37234

ibis_tcl_error = 0;

37235

_result = (ib_net16_t *)_ibsm_port_info_m_key_lease_period_set(_arg0,_arg1);

37236

;

37237

if (ibis_tcl_error) {

37238

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37239

return TCL_ERROR;

37240

}

37241

} tcl_result = Tcl_GetObjResult(interp);

37242

{

37243

char buff[20];

37244

sprintf(buff, "%u", cl_hton16(*_result));

37245

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37246

}

37247

return TCL_OK;

37248

}

37249

#define _ibsm_port_info_m_key_lease_period_get(_swigobj) (&_swigobj->m_key_lease_period)

37250

static int _wrap_smPortInfo_m_key_lease_period_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37251

37252

ib_net16_t * _result;

37253

smPortInfo * _arg0;

37254

Tcl_Obj * tcl_result;

37255

char * rettype;

37256

37257

clientData = clientData; objv = objv;

37258

tcl_result = Tcl_GetObjResult(interp);

37259

if ((objc < 2) || (objc > 2)) {

37260

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_lease_period_get { smPortInfo * } ",-1);

37261

return TCL_ERROR;

37262

}

37263

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37264

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_lease_period_get. Expected _smPortInfo_p, received ", -1);

37265

Tcl_AppendToObj(tcl_result, rettype, -1);

37266

return TCL_ERROR;

37267

}

37268

{

37269

/* we can check if IBIS was initialized here */

37270

if (!IbisObj.initialized)

37271

{

37272

Tcl_SetStringObj(

37273

Tcl_GetObjResult(interp),

37274

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37275

return TCL_ERROR;

37276

}

37277

37278

if (! IbisObj.port_guid)

37279

{

37280

Tcl_SetStringObj(

37281

Tcl_GetObjResult(interp),

37282

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37283

return TCL_ERROR;

37284

}

37285

37286

ibis_tcl_error = 0;

37287

_result = (ib_net16_t *)_ibsm_port_info_m_key_lease_period_get(_arg0);

37288

;

37289

if (ibis_tcl_error) {

37290

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37291

return TCL_ERROR;

37292

}

37293

} tcl_result = Tcl_GetObjResult(interp);

37294

{

37295

char buff[20];

37296

sprintf(buff, "%u", cl_hton16(*_result));

37297

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37298

}

37299

return TCL_OK;

37300

}

37301

#define _ibsm_port_info_local_port_num_set(_swigobj,_swigval) (_swigobj->local_port_num = *(_swigval),_swigval)

37302

static int _wrap_smPortInfo_local_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37303

37304

uint8_t * _result;

37305

smPortInfo * _arg0;

37306

uint8_t * _arg1;

37307

Tcl_Obj * tcl_result;

37308

char * rettype;

37309

uint8_t temp;

37310

37311

clientData = clientData; objv = objv;

37312

tcl_result = Tcl_GetObjResult(interp);

37313

if ((objc < 3) || (objc > 3)) {

37314

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_local_port_num_set { smPortInfo * } { uint8_t * } ",-1);

37315

return TCL_ERROR;

37316

}

37317

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37318

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_local_port_num_set. Expected _smPortInfo_p, received ", -1);

37319

Tcl_AppendToObj(tcl_result, rettype, -1);

37320

return TCL_ERROR;

37321

}

37322

{

37323

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37324

_arg1 = &temp;

37325

}

37326

{

37327

/* we can check if IBIS was initialized here */

37328

if (!IbisObj.initialized)

37329

{

37330

Tcl_SetStringObj(

37331

Tcl_GetObjResult(interp),

37332

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37333

return TCL_ERROR;

37334

}

37335

37336

if (! IbisObj.port_guid)

37337

{

37338

Tcl_SetStringObj(

37339

Tcl_GetObjResult(interp),

37340

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37341

return TCL_ERROR;

37342

}

37343

37344

ibis_tcl_error = 0;

37345

_result = (uint8_t *)_ibsm_port_info_local_port_num_set(_arg0,_arg1);

37346

;

37347

if (ibis_tcl_error) {

37348

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37349

return TCL_ERROR;

37350

}

37351

} tcl_result = Tcl_GetObjResult(interp);

37352

{

37353

char buff[20];

37354

sprintf(buff, "%u", *_result);

37355

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37356

}

37357

return TCL_OK;

37358

}

37359

#define _ibsm_port_info_local_port_num_get(_swigobj) (&_swigobj->local_port_num)

37360

static int _wrap_smPortInfo_local_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37361

37362

uint8_t * _result;

37363

smPortInfo * _arg0;

37364

Tcl_Obj * tcl_result;

37365

char * rettype;

37366

37367

clientData = clientData; objv = objv;

37368

tcl_result = Tcl_GetObjResult(interp);

37369

if ((objc < 2) || (objc > 2)) {

37370

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_local_port_num_get { smPortInfo * } ",-1);

37371

return TCL_ERROR;

37372

}

37373

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37374

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_local_port_num_get. Expected _smPortInfo_p, received ", -1);

37375

Tcl_AppendToObj(tcl_result, rettype, -1);

37376

return TCL_ERROR;

37377

}

37378

{

37379

/* we can check if IBIS was initialized here */

37380

if (!IbisObj.initialized)

37381

{

37382

Tcl_SetStringObj(

37383

Tcl_GetObjResult(interp),

37384

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37385

return TCL_ERROR;

37386

}

37387

37388

if (! IbisObj.port_guid)

37389

{

37390

Tcl_SetStringObj(

37391

Tcl_GetObjResult(interp),

37392

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37393

return TCL_ERROR;

37394

}

37395

37396

ibis_tcl_error = 0;

37397

_result = (uint8_t *)_ibsm_port_info_local_port_num_get(_arg0);

37398

;

37399

if (ibis_tcl_error) {

37400

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37401

return TCL_ERROR;

37402

}

37403

} tcl_result = Tcl_GetObjResult(interp);

37404

{

37405

char buff[20];

37406

sprintf(buff, "%u", *_result);

37407

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37408

}

37409

return TCL_OK;

37410

}

37411

#define _ibsm_port_info_link_width_enabled_set(_swigobj,_swigval) (_swigobj->link_width_enabled = *(_swigval),_swigval)

37412

static int _wrap_smPortInfo_link_width_enabled_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37413

37414

uint8_t * _result;

37415

smPortInfo * _arg0;

37416

uint8_t * _arg1;

37417

Tcl_Obj * tcl_result;

37418

char * rettype;

37419

uint8_t temp;

37420

37421

clientData = clientData; objv = objv;

37422

tcl_result = Tcl_GetObjResult(interp);

37423

if ((objc < 3) || (objc > 3)) {

37424

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_enabled_set { smPortInfo * } { uint8_t * } ",-1);

37425

return TCL_ERROR;

37426

}

37427

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37428

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_enabled_set. Expected _smPortInfo_p, received ", -1);

37429

Tcl_AppendToObj(tcl_result, rettype, -1);

37430

return TCL_ERROR;

37431

}

37432

{

37433

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37434

_arg1 = &temp;

37435

}

37436

{

37437

/* we can check if IBIS was initialized here */

37438

if (!IbisObj.initialized)

37439

{

37440

Tcl_SetStringObj(

37441

Tcl_GetObjResult(interp),

37442

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37443

return TCL_ERROR;

37444

}

37445

37446

if (! IbisObj.port_guid)

37447

{

37448

Tcl_SetStringObj(

37449

Tcl_GetObjResult(interp),

37450

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37451

return TCL_ERROR;

37452

}

37453

37454

ibis_tcl_error = 0;

37455

_result = (uint8_t *)_ibsm_port_info_link_width_enabled_set(_arg0,_arg1);

37456

;

37457

if (ibis_tcl_error) {

37458

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37459

return TCL_ERROR;

37460

}

37461

} tcl_result = Tcl_GetObjResult(interp);

37462

{

37463

char buff[20];

37464

sprintf(buff, "%u", *_result);

37465

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37466

}

37467

return TCL_OK;

37468

}

37469

#define _ibsm_port_info_link_width_enabled_get(_swigobj) (&_swigobj->link_width_enabled)

37470

static int _wrap_smPortInfo_link_width_enabled_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37471

37472

uint8_t * _result;

37473

smPortInfo * _arg0;

37474

Tcl_Obj * tcl_result;

37475

char * rettype;

37476

37477

clientData = clientData; objv = objv;

37478

tcl_result = Tcl_GetObjResult(interp);

37479

if ((objc < 2) || (objc > 2)) {

37480

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_enabled_get { smPortInfo * } ",-1);

37481

return TCL_ERROR;

37482

}

37483

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37484

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_enabled_get. Expected _smPortInfo_p, received ", -1);

37485

Tcl_AppendToObj(tcl_result, rettype, -1);

37486

return TCL_ERROR;

37487

}

37488

{

37489

/* we can check if IBIS was initialized here */

37490

if (!IbisObj.initialized)

37491

{

37492

Tcl_SetStringObj(

37493

Tcl_GetObjResult(interp),

37494

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37495

return TCL_ERROR;

37496

}

37497

37498

if (! IbisObj.port_guid)

37499

{

37500

Tcl_SetStringObj(

37501

Tcl_GetObjResult(interp),

37502

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37503

return TCL_ERROR;

37504

}

37505

37506

ibis_tcl_error = 0;

37507

_result = (uint8_t *)_ibsm_port_info_link_width_enabled_get(_arg0);

37508

;

37509

if (ibis_tcl_error) {

37510

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37511

return TCL_ERROR;

37512

}

37513

} tcl_result = Tcl_GetObjResult(interp);

37514

{

37515

char buff[20];

37516

sprintf(buff, "%u", *_result);

37517

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37518

}

37519

return TCL_OK;

37520

}

37521

#define _ibsm_port_info_link_width_supported_set(_swigobj,_swigval) (_swigobj->link_width_supported = *(_swigval),_swigval)

37522

static int _wrap_smPortInfo_link_width_supported_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37523

37524

uint8_t * _result;

37525

smPortInfo * _arg0;

37526

uint8_t * _arg1;

37527

Tcl_Obj * tcl_result;

37528

char * rettype;

37529

uint8_t temp;

37530

37531

clientData = clientData; objv = objv;

37532

tcl_result = Tcl_GetObjResult(interp);

37533

if ((objc < 3) || (objc > 3)) {

37534

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_supported_set { smPortInfo * } { uint8_t * } ",-1);

37535

return TCL_ERROR;

37536

}

37537

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37538

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_supported_set. Expected _smPortInfo_p, received ", -1);

37539

Tcl_AppendToObj(tcl_result, rettype, -1);

37540

return TCL_ERROR;

37541

}

37542

{

37543

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37544

_arg1 = &temp;

37545

}

37546

{

37547

/* we can check if IBIS was initialized here */

37548

if (!IbisObj.initialized)

37549

{

37550

Tcl_SetStringObj(

37551

Tcl_GetObjResult(interp),

37552

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37553

return TCL_ERROR;

37554

}

37555

37556

if (! IbisObj.port_guid)

37557

{

37558

Tcl_SetStringObj(

37559

Tcl_GetObjResult(interp),

37560

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37561

return TCL_ERROR;

37562

}

37563

37564

ibis_tcl_error = 0;

37565

_result = (uint8_t *)_ibsm_port_info_link_width_supported_set(_arg0,_arg1);

37566

;

37567

if (ibis_tcl_error) {

37568

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37569

return TCL_ERROR;

37570

}

37571

} tcl_result = Tcl_GetObjResult(interp);

37572

{

37573

char buff[20];

37574

sprintf(buff, "%u", *_result);

37575

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37576

}

37577

return TCL_OK;

37578

}

37579

#define _ibsm_port_info_link_width_supported_get(_swigobj) (&_swigobj->link_width_supported)

37580

static int _wrap_smPortInfo_link_width_supported_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37581

37582

uint8_t * _result;

37583

smPortInfo * _arg0;

37584

Tcl_Obj * tcl_result;

37585

char * rettype;

37586

37587

clientData = clientData; objv = objv;

37588

tcl_result = Tcl_GetObjResult(interp);

37589

if ((objc < 2) || (objc > 2)) {

37590

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_supported_get { smPortInfo * } ",-1);

37591

return TCL_ERROR;

37592

}

37593

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37594

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_supported_get. Expected _smPortInfo_p, received ", -1);

37595

Tcl_AppendToObj(tcl_result, rettype, -1);

37596

return TCL_ERROR;

37597

}

37598

{

37599

/* we can check if IBIS was initialized here */

37600

if (!IbisObj.initialized)

37601

{

37602

Tcl_SetStringObj(

37603

Tcl_GetObjResult(interp),

37604

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37605

return TCL_ERROR;

37606

}

37607

37608

if (! IbisObj.port_guid)

37609

{

37610

Tcl_SetStringObj(

37611

Tcl_GetObjResult(interp),

37612

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37613

return TCL_ERROR;

37614

}

37615

37616

ibis_tcl_error = 0;

37617

_result = (uint8_t *)_ibsm_port_info_link_width_supported_get(_arg0);

37618

;

37619

if (ibis_tcl_error) {

37620

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37621

return TCL_ERROR;

37622

}

37623

} tcl_result = Tcl_GetObjResult(interp);

37624

{

37625

char buff[20];

37626

sprintf(buff, "%u", *_result);

37627

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37628

}

37629

return TCL_OK;

37630

}

37631

#define _ibsm_port_info_link_width_active_set(_swigobj,_swigval) (_swigobj->link_width_active = *(_swigval),_swigval)

37632

static int _wrap_smPortInfo_link_width_active_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37633

37634

uint8_t * _result;

37635

smPortInfo * _arg0;

37636

uint8_t * _arg1;

37637

Tcl_Obj * tcl_result;

37638

char * rettype;

37639

uint8_t temp;

37640

37641

clientData = clientData; objv = objv;

37642

tcl_result = Tcl_GetObjResult(interp);

37643

if ((objc < 3) || (objc > 3)) {

37644

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_active_set { smPortInfo * } { uint8_t * } ",-1);

37645

return TCL_ERROR;

37646

}

37647

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37648

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_active_set. Expected _smPortInfo_p, received ", -1);

37649

Tcl_AppendToObj(tcl_result, rettype, -1);

37650

return TCL_ERROR;

37651

}

37652

{

37653

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37654

_arg1 = &temp;

37655

}

37656

{

37657

/* we can check if IBIS was initialized here */

37658

if (!IbisObj.initialized)

37659

{

37660

Tcl_SetStringObj(

37661

Tcl_GetObjResult(interp),

37662

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37663

return TCL_ERROR;

37664

}

37665

37666

if (! IbisObj.port_guid)

37667

{

37668

Tcl_SetStringObj(

37669

Tcl_GetObjResult(interp),

37670

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37671

return TCL_ERROR;

37672

}

37673

37674

ibis_tcl_error = 0;

37675

_result = (uint8_t *)_ibsm_port_info_link_width_active_set(_arg0,_arg1);

37676

;

37677

if (ibis_tcl_error) {

37678

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37679

return TCL_ERROR;

37680

}

37681

} tcl_result = Tcl_GetObjResult(interp);

37682

{

37683

char buff[20];

37684

sprintf(buff, "%u", *_result);

37685

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37686

}

37687

return TCL_OK;

37688

}

37689

#define _ibsm_port_info_link_width_active_get(_swigobj) (&_swigobj->link_width_active)

37690

static int _wrap_smPortInfo_link_width_active_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37691

37692

uint8_t * _result;

37693

smPortInfo * _arg0;

37694

Tcl_Obj * tcl_result;

37695

char * rettype;

37696

37697

clientData = clientData; objv = objv;

37698

tcl_result = Tcl_GetObjResult(interp);

37699

if ((objc < 2) || (objc > 2)) {

37700

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_width_active_get { smPortInfo * } ",-1);

37701

return TCL_ERROR;

37702

}

37703

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37704

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_width_active_get. Expected _smPortInfo_p, received ", -1);

37705

Tcl_AppendToObj(tcl_result, rettype, -1);

37706

return TCL_ERROR;

37707

}

37708

{

37709

/* we can check if IBIS was initialized here */

37710

if (!IbisObj.initialized)

37711

{

37712

Tcl_SetStringObj(

37713

Tcl_GetObjResult(interp),

37714

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37715

return TCL_ERROR;

37716

}

37717

37718

if (! IbisObj.port_guid)

37719

{

37720

Tcl_SetStringObj(

37721

Tcl_GetObjResult(interp),

37722

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37723

return TCL_ERROR;

37724

}

37725

37726

ibis_tcl_error = 0;

37727

_result = (uint8_t *)_ibsm_port_info_link_width_active_get(_arg0);

37728

;

37729

if (ibis_tcl_error) {

37730

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37731

return TCL_ERROR;

37732

}

37733

} tcl_result = Tcl_GetObjResult(interp);

37734

{

37735

char buff[20];

37736

sprintf(buff, "%u", *_result);

37737

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37738

}

37739

return TCL_OK;

37740

}

37741

#define _ibsm_port_info_state_info1_set(_swigobj,_swigval) (_swigobj->state_info1 = *(_swigval),_swigval)

37742

static int _wrap_smPortInfo_state_info1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37743

37744

uint8_t * _result;

37745

smPortInfo * _arg0;

37746

uint8_t * _arg1;

37747

Tcl_Obj * tcl_result;

37748

char * rettype;

37749

uint8_t temp;

37750

37751

clientData = clientData; objv = objv;

37752

tcl_result = Tcl_GetObjResult(interp);

37753

if ((objc < 3) || (objc > 3)) {

37754

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_state_info1_set { smPortInfo * } { uint8_t * } ",-1);

37755

return TCL_ERROR;

37756

}

37757

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37758

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_state_info1_set. Expected _smPortInfo_p, received ", -1);

37759

Tcl_AppendToObj(tcl_result, rettype, -1);

37760

return TCL_ERROR;

37761

}

37762

{

37763

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37764

_arg1 = &temp;

37765

}

37766

{

37767

/* we can check if IBIS was initialized here */

37768

if (!IbisObj.initialized)

37769

{

37770

Tcl_SetStringObj(

37771

Tcl_GetObjResult(interp),

37772

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37773

return TCL_ERROR;

37774

}

37775

37776

if (! IbisObj.port_guid)

37777

{

37778

Tcl_SetStringObj(

37779

Tcl_GetObjResult(interp),

37780

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37781

return TCL_ERROR;

37782

}

37783

37784

ibis_tcl_error = 0;

37785

_result = (uint8_t *)_ibsm_port_info_state_info1_set(_arg0,_arg1);

37786

;

37787

if (ibis_tcl_error) {

37788

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37789

return TCL_ERROR;

37790

}

37791

} tcl_result = Tcl_GetObjResult(interp);

37792

{

37793

char buff[20];

37794

sprintf(buff, "%u", *_result);

37795

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37796

}

37797

return TCL_OK;

37798

}

37799

#define _ibsm_port_info_state_info1_get(_swigobj) (&_swigobj->state_info1)

37800

static int _wrap_smPortInfo_state_info1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37801

37802

uint8_t * _result;

37803

smPortInfo * _arg0;

37804

Tcl_Obj * tcl_result;

37805

char * rettype;

37806

37807

clientData = clientData; objv = objv;

37808

tcl_result = Tcl_GetObjResult(interp);

37809

if ((objc < 2) || (objc > 2)) {

37810

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_state_info1_get { smPortInfo * } ",-1);

37811

return TCL_ERROR;

37812

}

37813

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37814

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_state_info1_get. Expected _smPortInfo_p, received ", -1);

37815

Tcl_AppendToObj(tcl_result, rettype, -1);

37816

return TCL_ERROR;

37817

}

37818

{

37819

/* we can check if IBIS was initialized here */

37820

if (!IbisObj.initialized)

37821

{

37822

Tcl_SetStringObj(

37823

Tcl_GetObjResult(interp),

37824

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37825

return TCL_ERROR;

37826

}

37827

37828

if (! IbisObj.port_guid)

37829

{

37830

Tcl_SetStringObj(

37831

Tcl_GetObjResult(interp),

37832

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37833

return TCL_ERROR;

37834

}

37835

37836

ibis_tcl_error = 0;

37837

_result = (uint8_t *)_ibsm_port_info_state_info1_get(_arg0);

37838

;

37839

if (ibis_tcl_error) {

37840

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37841

return TCL_ERROR;

37842

}

37843

} tcl_result = Tcl_GetObjResult(interp);

37844

{

37845

char buff[20];

37846

sprintf(buff, "%u", *_result);

37847

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37848

}

37849

return TCL_OK;

37850

}

37851

#define _ibsm_port_info_state_info2_set(_swigobj,_swigval) (_swigobj->state_info2 = *(_swigval),_swigval)

37852

static int _wrap_smPortInfo_state_info2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37853

37854

uint8_t * _result;

37855

smPortInfo * _arg0;

37856

uint8_t * _arg1;

37857

Tcl_Obj * tcl_result;

37858

char * rettype;

37859

uint8_t temp;

37860

37861

clientData = clientData; objv = objv;

37862

tcl_result = Tcl_GetObjResult(interp);

37863

if ((objc < 3) || (objc > 3)) {

37864

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_state_info2_set { smPortInfo * } { uint8_t * } ",-1);

37865

return TCL_ERROR;

37866

}

37867

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37868

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_state_info2_set. Expected _smPortInfo_p, received ", -1);

37869

Tcl_AppendToObj(tcl_result, rettype, -1);

37870

return TCL_ERROR;

37871

}

37872

{

37873

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37874

_arg1 = &temp;

37875

}

37876

{

37877

/* we can check if IBIS was initialized here */

37878

if (!IbisObj.initialized)

37879

{

37880

Tcl_SetStringObj(

37881

Tcl_GetObjResult(interp),

37882

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37883

return TCL_ERROR;

37884

}

37885

37886

if (! IbisObj.port_guid)

37887

{

37888

Tcl_SetStringObj(

37889

Tcl_GetObjResult(interp),

37890

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37891

return TCL_ERROR;

37892

}

37893

37894

ibis_tcl_error = 0;

37895

_result = (uint8_t *)_ibsm_port_info_state_info2_set(_arg0,_arg1);

37896

;

37897

if (ibis_tcl_error) {

37898

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37899

return TCL_ERROR;

37900

}

37901

} tcl_result = Tcl_GetObjResult(interp);

37902

{

37903

char buff[20];

37904

sprintf(buff, "%u", *_result);

37905

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37906

}

37907

return TCL_OK;

37908

}

37909

#define _ibsm_port_info_state_info2_get(_swigobj) (&_swigobj->state_info2)

37910

static int _wrap_smPortInfo_state_info2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37911

37912

uint8_t * _result;

37913

smPortInfo * _arg0;

37914

Tcl_Obj * tcl_result;

37915

char * rettype;

37916

37917

clientData = clientData; objv = objv;

37918

tcl_result = Tcl_GetObjResult(interp);

37919

if ((objc < 2) || (objc > 2)) {

37920

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_state_info2_get { smPortInfo * } ",-1);

37921

return TCL_ERROR;

37922

}

37923

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37924

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_state_info2_get. Expected _smPortInfo_p, received ", -1);

37925

Tcl_AppendToObj(tcl_result, rettype, -1);

37926

return TCL_ERROR;

37927

}

37928

{

37929

/* we can check if IBIS was initialized here */

37930

if (!IbisObj.initialized)

37931

{

37932

Tcl_SetStringObj(

37933

Tcl_GetObjResult(interp),

37934

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37935

return TCL_ERROR;

37936

}

37937

37938

if (! IbisObj.port_guid)

37939

{

37940

Tcl_SetStringObj(

37941

Tcl_GetObjResult(interp),

37942

" ibis was not yet initialized. please use ibis_set_port before.", -1);

37943

return TCL_ERROR;

37944

}

37945

37946

ibis_tcl_error = 0;

37947

_result = (uint8_t *)_ibsm_port_info_state_info2_get(_arg0);

37948

;

37949

if (ibis_tcl_error) {

37950

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

37951

return TCL_ERROR;

37952

}

37953

} tcl_result = Tcl_GetObjResult(interp);

37954

{

37955

char buff[20];

37956

sprintf(buff, "%u", *_result);

37957

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

37958

}

37959

return TCL_OK;

37960

}

37961

#define _ibsm_port_info_mkey_lmc_set(_swigobj,_swigval) (_swigobj->mkey_lmc = *(_swigval),_swigval)

37962

static int _wrap_smPortInfo_mkey_lmc_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

37963

37964

uint8_t * _result;

37965

smPortInfo * _arg0;

37966

uint8_t * _arg1;

37967

Tcl_Obj * tcl_result;

37968

char * rettype;

37969

uint8_t temp;

37970

37971

clientData = clientData; objv = objv;

37972

tcl_result = Tcl_GetObjResult(interp);

37973

if ((objc < 3) || (objc > 3)) {

37974

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mkey_lmc_set { smPortInfo * } { uint8_t * } ",-1);

37975

return TCL_ERROR;

37976

}

37977

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

37978

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mkey_lmc_set. Expected _smPortInfo_p, received ", -1);

37979

Tcl_AppendToObj(tcl_result, rettype, -1);

37980

return TCL_ERROR;

37981

}

37982

{

37983

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

37984

_arg1 = &temp;

37985

}

37986

{

37987

/* we can check if IBIS was initialized here */

37988

if (!IbisObj.initialized)

37989

{

37990

Tcl_SetStringObj(

37991

Tcl_GetObjResult(interp),

37992

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

37993

return TCL_ERROR;

37994

}

37995

37996

if (! IbisObj.port_guid)

37997

{

37998

Tcl_SetStringObj(

37999

Tcl_GetObjResult(interp),

38000

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38001

return TCL_ERROR;

38002

}

38003

38004

ibis_tcl_error = 0;

38005

_result = (uint8_t *)_ibsm_port_info_mkey_lmc_set(_arg0,_arg1);

38006

;

38007

if (ibis_tcl_error) {

38008

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38009

return TCL_ERROR;

38010

}

38011

} tcl_result = Tcl_GetObjResult(interp);

38012

{

38013

char buff[20];

38014

sprintf(buff, "%u", *_result);

38015

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38016

}

38017

return TCL_OK;

38018

}

38019

#define _ibsm_port_info_mkey_lmc_get(_swigobj) (&_swigobj->mkey_lmc)

38020

static int _wrap_smPortInfo_mkey_lmc_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38021

38022

uint8_t * _result;

38023

smPortInfo * _arg0;

38024

Tcl_Obj * tcl_result;

38025

char * rettype;

38026

38027

clientData = clientData; objv = objv;

38028

tcl_result = Tcl_GetObjResult(interp);

38029

if ((objc < 2) || (objc > 2)) {

38030

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mkey_lmc_get { smPortInfo * } ",-1);

38031

return TCL_ERROR;

38032

}

38033

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38034

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mkey_lmc_get. Expected _smPortInfo_p, received ", -1);

38035

Tcl_AppendToObj(tcl_result, rettype, -1);

38036

return TCL_ERROR;

38037

}

38038

{

38039

/* we can check if IBIS was initialized here */

38040

if (!IbisObj.initialized)

38041

{

38042

Tcl_SetStringObj(

38043

Tcl_GetObjResult(interp),

38044

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38045

return TCL_ERROR;

38046

}

38047

38048

if (! IbisObj.port_guid)

38049

{

38050

Tcl_SetStringObj(

38051

Tcl_GetObjResult(interp),

38052

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38053

return TCL_ERROR;

38054

}

38055

38056

ibis_tcl_error = 0;

38057

_result = (uint8_t *)_ibsm_port_info_mkey_lmc_get(_arg0);

38058

;

38059

if (ibis_tcl_error) {

38060

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38061

return TCL_ERROR;

38062

}

38063

} tcl_result = Tcl_GetObjResult(interp);

38064

{

38065

char buff[20];

38066

sprintf(buff, "%u", *_result);

38067

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38068

}

38069

return TCL_OK;

38070

}

38071

#define _ibsm_port_info_link_speed_set(_swigobj,_swigval) (_swigobj->link_speed = *(_swigval),_swigval)

38072

static int _wrap_smPortInfo_link_speed_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38073

38074

uint8_t * _result;

38075

smPortInfo * _arg0;

38076

uint8_t * _arg1;

38077

Tcl_Obj * tcl_result;

38078

char * rettype;

38079

uint8_t temp;

38080

38081

clientData = clientData; objv = objv;

38082

tcl_result = Tcl_GetObjResult(interp);

38083

if ((objc < 3) || (objc > 3)) {

38084

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_speed_set { smPortInfo * } { uint8_t * } ",-1);

38085

return TCL_ERROR;

38086

}

38087

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38088

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_speed_set. Expected _smPortInfo_p, received ", -1);

38089

Tcl_AppendToObj(tcl_result, rettype, -1);

38090

return TCL_ERROR;

38091

}

38092

{

38093

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38094

_arg1 = &temp;

38095

}

38096

{

38097

/* we can check if IBIS was initialized here */

38098

if (!IbisObj.initialized)

38099

{

38100

Tcl_SetStringObj(

38101

Tcl_GetObjResult(interp),

38102

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38103

return TCL_ERROR;

38104

}

38105

38106

if (! IbisObj.port_guid)

38107

{

38108

Tcl_SetStringObj(

38109

Tcl_GetObjResult(interp),

38110

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38111

return TCL_ERROR;

38112

}

38113

38114

ibis_tcl_error = 0;

38115

_result = (uint8_t *)_ibsm_port_info_link_speed_set(_arg0,_arg1);

38116

;

38117

if (ibis_tcl_error) {

38118

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38119

return TCL_ERROR;

38120

}

38121

} tcl_result = Tcl_GetObjResult(interp);

38122

{

38123

char buff[20];

38124

sprintf(buff, "%u", *_result);

38125

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38126

}

38127

return TCL_OK;

38128

}

38129

#define _ibsm_port_info_link_speed_get(_swigobj) (&_swigobj->link_speed)

38130

static int _wrap_smPortInfo_link_speed_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38131

38132

uint8_t * _result;

38133

smPortInfo * _arg0;

38134

Tcl_Obj * tcl_result;

38135

char * rettype;

38136

38137

clientData = clientData; objv = objv;

38138

tcl_result = Tcl_GetObjResult(interp);

38139

if ((objc < 2) || (objc > 2)) {

38140

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_link_speed_get { smPortInfo * } ",-1);

38141

return TCL_ERROR;

38142

}

38143

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38144

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_link_speed_get. Expected _smPortInfo_p, received ", -1);

38145

Tcl_AppendToObj(tcl_result, rettype, -1);

38146

return TCL_ERROR;

38147

}

38148

{

38149

/* we can check if IBIS was initialized here */

38150

if (!IbisObj.initialized)

38151

{

38152

Tcl_SetStringObj(

38153

Tcl_GetObjResult(interp),

38154

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38155

return TCL_ERROR;

38156

}

38157

38158

if (! IbisObj.port_guid)

38159

{

38160

Tcl_SetStringObj(

38161

Tcl_GetObjResult(interp),

38162

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38163

return TCL_ERROR;

38164

}

38165

38166

ibis_tcl_error = 0;

38167

_result = (uint8_t *)_ibsm_port_info_link_speed_get(_arg0);

38168

;

38169

if (ibis_tcl_error) {

38170

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38171

return TCL_ERROR;

38172

}

38173

} tcl_result = Tcl_GetObjResult(interp);

38174

{

38175

char buff[20];

38176

sprintf(buff, "%u", *_result);

38177

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38178

}

38179

return TCL_OK;

38180

}

38181

#define _ibsm_port_info_mtu_smsl_set(_swigobj,_swigval) (_swigobj->mtu_smsl = *(_swigval),_swigval)

38182

static int _wrap_smPortInfo_mtu_smsl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38183

38184

uint8_t * _result;

38185

smPortInfo * _arg0;

38186

uint8_t * _arg1;

38187

Tcl_Obj * tcl_result;

38188

char * rettype;

38189

uint8_t temp;

38190

38191

clientData = clientData; objv = objv;

38192

tcl_result = Tcl_GetObjResult(interp);

38193

if ((objc < 3) || (objc > 3)) {

38194

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mtu_smsl_set { smPortInfo * } { uint8_t * } ",-1);

38195

return TCL_ERROR;

38196

}

38197

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38198

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mtu_smsl_set. Expected _smPortInfo_p, received ", -1);

38199

Tcl_AppendToObj(tcl_result, rettype, -1);

38200

return TCL_ERROR;

38201

}

38202

{

38203

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38204

_arg1 = &temp;

38205

}

38206

{

38207

/* we can check if IBIS was initialized here */

38208

if (!IbisObj.initialized)

38209

{

38210

Tcl_SetStringObj(

38211

Tcl_GetObjResult(interp),

38212

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38213

return TCL_ERROR;

38214

}

38215

38216

if (! IbisObj.port_guid)

38217

{

38218

Tcl_SetStringObj(

38219

Tcl_GetObjResult(interp),

38220

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38221

return TCL_ERROR;

38222

}

38223

38224

ibis_tcl_error = 0;

38225

_result = (uint8_t *)_ibsm_port_info_mtu_smsl_set(_arg0,_arg1);

38226

;

38227

if (ibis_tcl_error) {

38228

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38229

return TCL_ERROR;

38230

}

38231

} tcl_result = Tcl_GetObjResult(interp);

38232

{

38233

char buff[20];

38234

sprintf(buff, "%u", *_result);

38235

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38236

}

38237

return TCL_OK;

38238

}

38239

#define _ibsm_port_info_mtu_smsl_get(_swigobj) (&_swigobj->mtu_smsl)

38240

static int _wrap_smPortInfo_mtu_smsl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38241

38242

uint8_t * _result;

38243

smPortInfo * _arg0;

38244

Tcl_Obj * tcl_result;

38245

char * rettype;

38246

38247

clientData = clientData; objv = objv;

38248

tcl_result = Tcl_GetObjResult(interp);

38249

if ((objc < 2) || (objc > 2)) {

38250

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mtu_smsl_get { smPortInfo * } ",-1);

38251

return TCL_ERROR;

38252

}

38253

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38254

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mtu_smsl_get. Expected _smPortInfo_p, received ", -1);

38255

Tcl_AppendToObj(tcl_result, rettype, -1);

38256

return TCL_ERROR;

38257

}

38258

{

38259

/* we can check if IBIS was initialized here */

38260

if (!IbisObj.initialized)

38261

{

38262

Tcl_SetStringObj(

38263

Tcl_GetObjResult(interp),

38264

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38265

return TCL_ERROR;

38266

}

38267

38268

if (! IbisObj.port_guid)

38269

{

38270

Tcl_SetStringObj(

38271

Tcl_GetObjResult(interp),

38272

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38273

return TCL_ERROR;

38274

}

38275

38276

ibis_tcl_error = 0;

38277

_result = (uint8_t *)_ibsm_port_info_mtu_smsl_get(_arg0);

38278

;

38279

if (ibis_tcl_error) {

38280

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38281

return TCL_ERROR;

38282

}

38283

} tcl_result = Tcl_GetObjResult(interp);

38284

{

38285

char buff[20];

38286

sprintf(buff, "%u", *_result);

38287

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38288

}

38289

return TCL_OK;

38290

}

38291

#define _ibsm_port_info_vl_cap_set(_swigobj,_swigval) (_swigobj->vl_cap = *(_swigval),_swigval)

38292

static int _wrap_smPortInfo_vl_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38293

38294

uint8_t * _result;

38295

smPortInfo * _arg0;

38296

uint8_t * _arg1;

38297

Tcl_Obj * tcl_result;

38298

char * rettype;

38299

uint8_t temp;

38300

38301

clientData = clientData; objv = objv;

38302

tcl_result = Tcl_GetObjResult(interp);

38303

if ((objc < 3) || (objc > 3)) {

38304

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_cap_set { smPortInfo * } { uint8_t * } ",-1);

38305

return TCL_ERROR;

38306

}

38307

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38308

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_cap_set. Expected _smPortInfo_p, received ", -1);

38309

Tcl_AppendToObj(tcl_result, rettype, -1);

38310

return TCL_ERROR;

38311

}

38312

{

38313

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38314

_arg1 = &temp;

38315

}

38316

{

38317

/* we can check if IBIS was initialized here */

38318

if (!IbisObj.initialized)

38319

{

38320

Tcl_SetStringObj(

38321

Tcl_GetObjResult(interp),

38322

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38323

return TCL_ERROR;

38324

}

38325

38326

if (! IbisObj.port_guid)

38327

{

38328

Tcl_SetStringObj(

38329

Tcl_GetObjResult(interp),

38330

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38331

return TCL_ERROR;

38332

}

38333

38334

ibis_tcl_error = 0;

38335

_result = (uint8_t *)_ibsm_port_info_vl_cap_set(_arg0,_arg1);

38336

;

38337

if (ibis_tcl_error) {

38338

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38339

return TCL_ERROR;

38340

}

38341

} tcl_result = Tcl_GetObjResult(interp);

38342

{

38343

char buff[20];

38344

sprintf(buff, "%u", *_result);

38345

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38346

}

38347

return TCL_OK;

38348

}

38349

#define _ibsm_port_info_vl_cap_get(_swigobj) (&_swigobj->vl_cap)

38350

static int _wrap_smPortInfo_vl_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38351

38352

uint8_t * _result;

38353

smPortInfo * _arg0;

38354

Tcl_Obj * tcl_result;

38355

char * rettype;

38356

38357

clientData = clientData; objv = objv;

38358

tcl_result = Tcl_GetObjResult(interp);

38359

if ((objc < 2) || (objc > 2)) {

38360

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_cap_get { smPortInfo * } ",-1);

38361

return TCL_ERROR;

38362

}

38363

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38364

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_cap_get. Expected _smPortInfo_p, received ", -1);

38365

Tcl_AppendToObj(tcl_result, rettype, -1);

38366

return TCL_ERROR;

38367

}

38368

{

38369

/* we can check if IBIS was initialized here */

38370

if (!IbisObj.initialized)

38371

{

38372

Tcl_SetStringObj(

38373

Tcl_GetObjResult(interp),

38374

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38375

return TCL_ERROR;

38376

}

38377

38378

if (! IbisObj.port_guid)

38379

{

38380

Tcl_SetStringObj(

38381

Tcl_GetObjResult(interp),

38382

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38383

return TCL_ERROR;

38384

}

38385

38386

ibis_tcl_error = 0;

38387

_result = (uint8_t *)_ibsm_port_info_vl_cap_get(_arg0);

38388

;

38389

if (ibis_tcl_error) {

38390

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38391

return TCL_ERROR;

38392

}

38393

} tcl_result = Tcl_GetObjResult(interp);

38394

{

38395

char buff[20];

38396

sprintf(buff, "%u", *_result);

38397

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38398

}

38399

return TCL_OK;

38400

}

38401

#define _ibsm_port_info_vl_high_limit_set(_swigobj,_swigval) (_swigobj->vl_high_limit = *(_swigval),_swigval)

38402

static int _wrap_smPortInfo_vl_high_limit_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38403

38404

uint8_t * _result;

38405

smPortInfo * _arg0;

38406

uint8_t * _arg1;

38407

Tcl_Obj * tcl_result;

38408

char * rettype;

38409

uint8_t temp;

38410

38411

clientData = clientData; objv = objv;

38412

tcl_result = Tcl_GetObjResult(interp);

38413

if ((objc < 3) || (objc > 3)) {

38414

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_high_limit_set { smPortInfo * } { uint8_t * } ",-1);

38415

return TCL_ERROR;

38416

}

38417

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38418

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_high_limit_set. Expected _smPortInfo_p, received ", -1);

38419

Tcl_AppendToObj(tcl_result, rettype, -1);

38420

return TCL_ERROR;

38421

}

38422

{

38423

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38424

_arg1 = &temp;

38425

}

38426

{

38427

/* we can check if IBIS was initialized here */

38428

if (!IbisObj.initialized)

38429

{

38430

Tcl_SetStringObj(

38431

Tcl_GetObjResult(interp),

38432

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38433

return TCL_ERROR;

38434

}

38435

38436

if (! IbisObj.port_guid)

38437

{

38438

Tcl_SetStringObj(

38439

Tcl_GetObjResult(interp),

38440

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38441

return TCL_ERROR;

38442

}

38443

38444

ibis_tcl_error = 0;

38445

_result = (uint8_t *)_ibsm_port_info_vl_high_limit_set(_arg0,_arg1);

38446

;

38447

if (ibis_tcl_error) {

38448

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38449

return TCL_ERROR;

38450

}

38451

} tcl_result = Tcl_GetObjResult(interp);

38452

{

38453

char buff[20];

38454

sprintf(buff, "%u", *_result);

38455

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38456

}

38457

return TCL_OK;

38458

}

38459

#define _ibsm_port_info_vl_high_limit_get(_swigobj) (&_swigobj->vl_high_limit)

38460

static int _wrap_smPortInfo_vl_high_limit_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38461

38462

uint8_t * _result;

38463

smPortInfo * _arg0;

38464

Tcl_Obj * tcl_result;

38465

char * rettype;

38466

38467

clientData = clientData; objv = objv;

38468

tcl_result = Tcl_GetObjResult(interp);

38469

if ((objc < 2) || (objc > 2)) {

38470

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_high_limit_get { smPortInfo * } ",-1);

38471

return TCL_ERROR;

38472

}

38473

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38474

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_high_limit_get. Expected _smPortInfo_p, received ", -1);

38475

Tcl_AppendToObj(tcl_result, rettype, -1);

38476

return TCL_ERROR;

38477

}

38478

{

38479

/* we can check if IBIS was initialized here */

38480

if (!IbisObj.initialized)

38481

{

38482

Tcl_SetStringObj(

38483

Tcl_GetObjResult(interp),

38484

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38485

return TCL_ERROR;

38486

}

38487

38488

if (! IbisObj.port_guid)

38489

{

38490

Tcl_SetStringObj(

38491

Tcl_GetObjResult(interp),

38492

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38493

return TCL_ERROR;

38494

}

38495

38496

ibis_tcl_error = 0;

38497

_result = (uint8_t *)_ibsm_port_info_vl_high_limit_get(_arg0);

38498

;

38499

if (ibis_tcl_error) {

38500

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38501

return TCL_ERROR;

38502

}

38503

} tcl_result = Tcl_GetObjResult(interp);

38504

{

38505

char buff[20];

38506

sprintf(buff, "%u", *_result);

38507

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38508

}

38509

return TCL_OK;

38510

}

38511

#define _ibsm_port_info_vl_arb_high_cap_set(_swigobj,_swigval) (_swigobj->vl_arb_high_cap = *(_swigval),_swigval)

38512

static int _wrap_smPortInfo_vl_arb_high_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38513

38514

uint8_t * _result;

38515

smPortInfo * _arg0;

38516

uint8_t * _arg1;

38517

Tcl_Obj * tcl_result;

38518

char * rettype;

38519

uint8_t temp;

38520

38521

clientData = clientData; objv = objv;

38522

tcl_result = Tcl_GetObjResult(interp);

38523

if ((objc < 3) || (objc > 3)) {

38524

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_arb_high_cap_set { smPortInfo * } { uint8_t * } ",-1);

38525

return TCL_ERROR;

38526

}

38527

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38528

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_arb_high_cap_set. Expected _smPortInfo_p, received ", -1);

38529

Tcl_AppendToObj(tcl_result, rettype, -1);

38530

return TCL_ERROR;

38531

}

38532

{

38533

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38534

_arg1 = &temp;

38535

}

38536

{

38537

/* we can check if IBIS was initialized here */

38538

if (!IbisObj.initialized)

38539

{

38540

Tcl_SetStringObj(

38541

Tcl_GetObjResult(interp),

38542

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38543

return TCL_ERROR;

38544

}

38545

38546

if (! IbisObj.port_guid)

38547

{

38548

Tcl_SetStringObj(

38549

Tcl_GetObjResult(interp),

38550

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38551

return TCL_ERROR;

38552

}

38553

38554

ibis_tcl_error = 0;

38555

_result = (uint8_t *)_ibsm_port_info_vl_arb_high_cap_set(_arg0,_arg1);

38556

;

38557

if (ibis_tcl_error) {

38558

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38559

return TCL_ERROR;

38560

}

38561

} tcl_result = Tcl_GetObjResult(interp);

38562

{

38563

char buff[20];

38564

sprintf(buff, "%u", *_result);

38565

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38566

}

38567

return TCL_OK;

38568

}

38569

#define _ibsm_port_info_vl_arb_high_cap_get(_swigobj) (&_swigobj->vl_arb_high_cap)

38570

static int _wrap_smPortInfo_vl_arb_high_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38571

38572

uint8_t * _result;

38573

smPortInfo * _arg0;

38574

Tcl_Obj * tcl_result;

38575

char * rettype;

38576

38577

clientData = clientData; objv = objv;

38578

tcl_result = Tcl_GetObjResult(interp);

38579

if ((objc < 2) || (objc > 2)) {

38580

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_arb_high_cap_get { smPortInfo * } ",-1);

38581

return TCL_ERROR;

38582

}

38583

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38584

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_arb_high_cap_get. Expected _smPortInfo_p, received ", -1);

38585

Tcl_AppendToObj(tcl_result, rettype, -1);

38586

return TCL_ERROR;

38587

}

38588

{

38589

/* we can check if IBIS was initialized here */

38590

if (!IbisObj.initialized)

38591

{

38592

Tcl_SetStringObj(

38593

Tcl_GetObjResult(interp),

38594

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38595

return TCL_ERROR;

38596

}

38597

38598

if (! IbisObj.port_guid)

38599

{

38600

Tcl_SetStringObj(

38601

Tcl_GetObjResult(interp),

38602

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38603

return TCL_ERROR;

38604

}

38605

38606

ibis_tcl_error = 0;

38607

_result = (uint8_t *)_ibsm_port_info_vl_arb_high_cap_get(_arg0);

38608

;

38609

if (ibis_tcl_error) {

38610

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38611

return TCL_ERROR;

38612

}

38613

} tcl_result = Tcl_GetObjResult(interp);

38614

{

38615

char buff[20];

38616

sprintf(buff, "%u", *_result);

38617

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38618

}

38619

return TCL_OK;

38620

}

38621

#define _ibsm_port_info_vl_arb_low_cap_set(_swigobj,_swigval) (_swigobj->vl_arb_low_cap = *(_swigval),_swigval)

38622

static int _wrap_smPortInfo_vl_arb_low_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38623

38624

uint8_t * _result;

38625

smPortInfo * _arg0;

38626

uint8_t * _arg1;

38627

Tcl_Obj * tcl_result;

38628

char * rettype;

38629

uint8_t temp;

38630

38631

clientData = clientData; objv = objv;

38632

tcl_result = Tcl_GetObjResult(interp);

38633

if ((objc < 3) || (objc > 3)) {

38634

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_arb_low_cap_set { smPortInfo * } { uint8_t * } ",-1);

38635

return TCL_ERROR;

38636

}

38637

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38638

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_arb_low_cap_set. Expected _smPortInfo_p, received ", -1);

38639

Tcl_AppendToObj(tcl_result, rettype, -1);

38640

return TCL_ERROR;

38641

}

38642

{

38643

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38644

_arg1 = &temp;

38645

}

38646

{

38647

/* we can check if IBIS was initialized here */

38648

if (!IbisObj.initialized)

38649

{

38650

Tcl_SetStringObj(

38651

Tcl_GetObjResult(interp),

38652

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38653

return TCL_ERROR;

38654

}

38655

38656

if (! IbisObj.port_guid)

38657

{

38658

Tcl_SetStringObj(

38659

Tcl_GetObjResult(interp),

38660

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38661

return TCL_ERROR;

38662

}

38663

38664

ibis_tcl_error = 0;

38665

_result = (uint8_t *)_ibsm_port_info_vl_arb_low_cap_set(_arg0,_arg1);

38666

;

38667

if (ibis_tcl_error) {

38668

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38669

return TCL_ERROR;

38670

}

38671

} tcl_result = Tcl_GetObjResult(interp);

38672

{

38673

char buff[20];

38674

sprintf(buff, "%u", *_result);

38675

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38676

}

38677

return TCL_OK;

38678

}

38679

#define _ibsm_port_info_vl_arb_low_cap_get(_swigobj) (&_swigobj->vl_arb_low_cap)

38680

static int _wrap_smPortInfo_vl_arb_low_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38681

38682

uint8_t * _result;

38683

smPortInfo * _arg0;

38684

Tcl_Obj * tcl_result;

38685

char * rettype;

38686

38687

clientData = clientData; objv = objv;

38688

tcl_result = Tcl_GetObjResult(interp);

38689

if ((objc < 2) || (objc > 2)) {

38690

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_arb_low_cap_get { smPortInfo * } ",-1);

38691

return TCL_ERROR;

38692

}

38693

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38694

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_arb_low_cap_get. Expected _smPortInfo_p, received ", -1);

38695

Tcl_AppendToObj(tcl_result, rettype, -1);

38696

return TCL_ERROR;

38697

}

38698

{

38699

/* we can check if IBIS was initialized here */

38700

if (!IbisObj.initialized)

38701

{

38702

Tcl_SetStringObj(

38703

Tcl_GetObjResult(interp),

38704

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38705

return TCL_ERROR;

38706

}

38707

38708

if (! IbisObj.port_guid)

38709

{

38710

Tcl_SetStringObj(

38711

Tcl_GetObjResult(interp),

38712

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38713

return TCL_ERROR;

38714

}

38715

38716

ibis_tcl_error = 0;

38717

_result = (uint8_t *)_ibsm_port_info_vl_arb_low_cap_get(_arg0);

38718

;

38719

if (ibis_tcl_error) {

38720

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38721

return TCL_ERROR;

38722

}

38723

} tcl_result = Tcl_GetObjResult(interp);

38724

{

38725

char buff[20];

38726

sprintf(buff, "%u", *_result);

38727

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38728

}

38729

return TCL_OK;

38730

}

38731

#define _ibsm_port_info_mtu_cap_set(_swigobj,_swigval) (_swigobj->mtu_cap = *(_swigval),_swigval)

38732

static int _wrap_smPortInfo_mtu_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38733

38734

uint8_t * _result;

38735

smPortInfo * _arg0;

38736

uint8_t * _arg1;

38737

Tcl_Obj * tcl_result;

38738

char * rettype;

38739

uint8_t temp;

38740

38741

clientData = clientData; objv = objv;

38742

tcl_result = Tcl_GetObjResult(interp);

38743

if ((objc < 3) || (objc > 3)) {

38744

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mtu_cap_set { smPortInfo * } { uint8_t * } ",-1);

38745

return TCL_ERROR;

38746

}

38747

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38748

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mtu_cap_set. Expected _smPortInfo_p, received ", -1);

38749

Tcl_AppendToObj(tcl_result, rettype, -1);

38750

return TCL_ERROR;

38751

}

38752

{

38753

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38754

_arg1 = &temp;

38755

}

38756

{

38757

/* we can check if IBIS was initialized here */

38758

if (!IbisObj.initialized)

38759

{

38760

Tcl_SetStringObj(

38761

Tcl_GetObjResult(interp),

38762

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38763

return TCL_ERROR;

38764

}

38765

38766

if (! IbisObj.port_guid)

38767

{

38768

Tcl_SetStringObj(

38769

Tcl_GetObjResult(interp),

38770

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38771

return TCL_ERROR;

38772

}

38773

38774

ibis_tcl_error = 0;

38775

_result = (uint8_t *)_ibsm_port_info_mtu_cap_set(_arg0,_arg1);

38776

;

38777

if (ibis_tcl_error) {

38778

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38779

return TCL_ERROR;

38780

}

38781

} tcl_result = Tcl_GetObjResult(interp);

38782

{

38783

char buff[20];

38784

sprintf(buff, "%u", *_result);

38785

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38786

}

38787

return TCL_OK;

38788

}

38789

#define _ibsm_port_info_mtu_cap_get(_swigobj) (&_swigobj->mtu_cap)

38790

static int _wrap_smPortInfo_mtu_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38791

38792

uint8_t * _result;

38793

smPortInfo * _arg0;

38794

Tcl_Obj * tcl_result;

38795

char * rettype;

38796

38797

clientData = clientData; objv = objv;

38798

tcl_result = Tcl_GetObjResult(interp);

38799

if ((objc < 2) || (objc > 2)) {

38800

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_mtu_cap_get { smPortInfo * } ",-1);

38801

return TCL_ERROR;

38802

}

38803

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38804

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_mtu_cap_get. Expected _smPortInfo_p, received ", -1);

38805

Tcl_AppendToObj(tcl_result, rettype, -1);

38806

return TCL_ERROR;

38807

}

38808

{

38809

/* we can check if IBIS was initialized here */

38810

if (!IbisObj.initialized)

38811

{

38812

Tcl_SetStringObj(

38813

Tcl_GetObjResult(interp),

38814

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38815

return TCL_ERROR;

38816

}

38817

38818

if (! IbisObj.port_guid)

38819

{

38820

Tcl_SetStringObj(

38821

Tcl_GetObjResult(interp),

38822

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38823

return TCL_ERROR;

38824

}

38825

38826

ibis_tcl_error = 0;

38827

_result = (uint8_t *)_ibsm_port_info_mtu_cap_get(_arg0);

38828

;

38829

if (ibis_tcl_error) {

38830

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38831

return TCL_ERROR;

38832

}

38833

} tcl_result = Tcl_GetObjResult(interp);

38834

{

38835

char buff[20];

38836

sprintf(buff, "%u", *_result);

38837

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38838

}

38839

return TCL_OK;

38840

}

38841

#define _ibsm_port_info_vl_stall_life_set(_swigobj,_swigval) (_swigobj->vl_stall_life = *(_swigval),_swigval)

38842

static int _wrap_smPortInfo_vl_stall_life_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38843

38844

uint8_t * _result;

38845

smPortInfo * _arg0;

38846

uint8_t * _arg1;

38847

Tcl_Obj * tcl_result;

38848

char * rettype;

38849

uint8_t temp;

38850

38851

clientData = clientData; objv = objv;

38852

tcl_result = Tcl_GetObjResult(interp);

38853

if ((objc < 3) || (objc > 3)) {

38854

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_stall_life_set { smPortInfo * } { uint8_t * } ",-1);

38855

return TCL_ERROR;

38856

}

38857

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38858

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_stall_life_set. Expected _smPortInfo_p, received ", -1);

38859

Tcl_AppendToObj(tcl_result, rettype, -1);

38860

return TCL_ERROR;

38861

}

38862

{

38863

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38864

_arg1 = &temp;

38865

}

38866

{

38867

/* we can check if IBIS was initialized here */

38868

if (!IbisObj.initialized)

38869

{

38870

Tcl_SetStringObj(

38871

Tcl_GetObjResult(interp),

38872

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38873

return TCL_ERROR;

38874

}

38875

38876

if (! IbisObj.port_guid)

38877

{

38878

Tcl_SetStringObj(

38879

Tcl_GetObjResult(interp),

38880

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38881

return TCL_ERROR;

38882

}

38883

38884

ibis_tcl_error = 0;

38885

_result = (uint8_t *)_ibsm_port_info_vl_stall_life_set(_arg0,_arg1);

38886

;

38887

if (ibis_tcl_error) {

38888

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38889

return TCL_ERROR;

38890

}

38891

} tcl_result = Tcl_GetObjResult(interp);

38892

{

38893

char buff[20];

38894

sprintf(buff, "%u", *_result);

38895

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38896

}

38897

return TCL_OK;

38898

}

38899

#define _ibsm_port_info_vl_stall_life_get(_swigobj) (&_swigobj->vl_stall_life)

38900

static int _wrap_smPortInfo_vl_stall_life_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38901

38902

uint8_t * _result;

38903

smPortInfo * _arg0;

38904

Tcl_Obj * tcl_result;

38905

char * rettype;

38906

38907

clientData = clientData; objv = objv;

38908

tcl_result = Tcl_GetObjResult(interp);

38909

if ((objc < 2) || (objc > 2)) {

38910

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_stall_life_get { smPortInfo * } ",-1);

38911

return TCL_ERROR;

38912

}

38913

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38914

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_stall_life_get. Expected _smPortInfo_p, received ", -1);

38915

Tcl_AppendToObj(tcl_result, rettype, -1);

38916

return TCL_ERROR;

38917

}

38918

{

38919

/* we can check if IBIS was initialized here */

38920

if (!IbisObj.initialized)

38921

{

38922

Tcl_SetStringObj(

38923

Tcl_GetObjResult(interp),

38924

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38925

return TCL_ERROR;

38926

}

38927

38928

if (! IbisObj.port_guid)

38929

{

38930

Tcl_SetStringObj(

38931

Tcl_GetObjResult(interp),

38932

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38933

return TCL_ERROR;

38934

}

38935

38936

ibis_tcl_error = 0;

38937

_result = (uint8_t *)_ibsm_port_info_vl_stall_life_get(_arg0);

38938

;

38939

if (ibis_tcl_error) {

38940

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38941

return TCL_ERROR;

38942

}

38943

} tcl_result = Tcl_GetObjResult(interp);

38944

{

38945

char buff[20];

38946

sprintf(buff, "%u", *_result);

38947

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

38948

}

38949

return TCL_OK;

38950

}

38951

#define _ibsm_port_info_vl_enforce_set(_swigobj,_swigval) (_swigobj->vl_enforce = *(_swigval),_swigval)

38952

static int _wrap_smPortInfo_vl_enforce_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

38953

38954

uint8_t * _result;

38955

smPortInfo * _arg0;

38956

uint8_t * _arg1;

38957

Tcl_Obj * tcl_result;

38958

char * rettype;

38959

uint8_t temp;

38960

38961

clientData = clientData; objv = objv;

38962

tcl_result = Tcl_GetObjResult(interp);

38963

if ((objc < 3) || (objc > 3)) {

38964

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_enforce_set { smPortInfo * } { uint8_t * } ",-1);

38965

return TCL_ERROR;

38966

}

38967

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

38968

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_enforce_set. Expected _smPortInfo_p, received ", -1);

38969

Tcl_AppendToObj(tcl_result, rettype, -1);

38970

return TCL_ERROR;

38971

}

38972

{

38973

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

38974

_arg1 = &temp;

38975

}

38976

{

38977

/* we can check if IBIS was initialized here */

38978

if (!IbisObj.initialized)

38979

{

38980

Tcl_SetStringObj(

38981

Tcl_GetObjResult(interp),

38982

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

38983

return TCL_ERROR;

38984

}

38985

38986

if (! IbisObj.port_guid)

38987

{

38988

Tcl_SetStringObj(

38989

Tcl_GetObjResult(interp),

38990

" ibis was not yet initialized. please use ibis_set_port before.", -1);

38991

return TCL_ERROR;

38992

}

38993

38994

ibis_tcl_error = 0;

38995

_result = (uint8_t *)_ibsm_port_info_vl_enforce_set(_arg0,_arg1);

38996

;

38997

if (ibis_tcl_error) {

38998

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

38999

return TCL_ERROR;

39000

}

39001

} tcl_result = Tcl_GetObjResult(interp);

39002

{

39003

char buff[20];

39004

sprintf(buff, "%u", *_result);

39005

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39006

}

39007

return TCL_OK;

39008

}

39009

#define _ibsm_port_info_vl_enforce_get(_swigobj) (&_swigobj->vl_enforce)

39010

static int _wrap_smPortInfo_vl_enforce_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39011

39012

uint8_t * _result;

39013

smPortInfo * _arg0;

39014

Tcl_Obj * tcl_result;

39015

char * rettype;

39016

39017

clientData = clientData; objv = objv;

39018

tcl_result = Tcl_GetObjResult(interp);

39019

if ((objc < 2) || (objc > 2)) {

39020

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_vl_enforce_get { smPortInfo * } ",-1);

39021

return TCL_ERROR;

39022

}

39023

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39024

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_vl_enforce_get. Expected _smPortInfo_p, received ", -1);

39025

Tcl_AppendToObj(tcl_result, rettype, -1);

39026

return TCL_ERROR;

39027

}

39028

{

39029

/* we can check if IBIS was initialized here */

39030

if (!IbisObj.initialized)

39031

{

39032

Tcl_SetStringObj(

39033

Tcl_GetObjResult(interp),

39034

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39035

return TCL_ERROR;

39036

}

39037

39038

if (! IbisObj.port_guid)

39039

{

39040

Tcl_SetStringObj(

39041

Tcl_GetObjResult(interp),

39042

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39043

return TCL_ERROR;

39044

}

39045

39046

ibis_tcl_error = 0;

39047

_result = (uint8_t *)_ibsm_port_info_vl_enforce_get(_arg0);

39048

;

39049

if (ibis_tcl_error) {

39050

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39051

return TCL_ERROR;

39052

}

39053

} tcl_result = Tcl_GetObjResult(interp);

39054

{

39055

char buff[20];

39056

sprintf(buff, "%u", *_result);

39057

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39058

}

39059

return TCL_OK;

39060

}

39061

#define _ibsm_port_info_m_key_violations_set(_swigobj,_swigval) (_swigobj->m_key_violations = *(_swigval),_swigval)

39062

static int _wrap_smPortInfo_m_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39063

39064

ib_net16_t * _result;

39065

smPortInfo * _arg0;

39066

ib_net16_t * _arg1;

39067

Tcl_Obj * tcl_result;

39068

char * rettype;

39069

ib_net16_t temp;

39070

39071

clientData = clientData; objv = objv;

39072

tcl_result = Tcl_GetObjResult(interp);

39073

if ((objc < 3) || (objc > 3)) {

39074

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_violations_set { smPortInfo * } { ib_net16_t * } ",-1);

39075

return TCL_ERROR;

39076

}

39077

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39078

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_violations_set. Expected _smPortInfo_p, received ", -1);

39079

Tcl_AppendToObj(tcl_result, rettype, -1);

39080

return TCL_ERROR;

39081

}

39082

{

39083

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

39084

_arg1 = &temp;

39085

}

39086

{

39087

/* we can check if IBIS was initialized here */

39088

if (!IbisObj.initialized)

39089

{

39090

Tcl_SetStringObj(

39091

Tcl_GetObjResult(interp),

39092

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39093

return TCL_ERROR;

39094

}

39095

39096

if (! IbisObj.port_guid)

39097

{

39098

Tcl_SetStringObj(

39099

Tcl_GetObjResult(interp),

39100

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39101

return TCL_ERROR;

39102

}

39103

39104

ibis_tcl_error = 0;

39105

_result = (ib_net16_t *)_ibsm_port_info_m_key_violations_set(_arg0,_arg1);

39106

;

39107

if (ibis_tcl_error) {

39108

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39109

return TCL_ERROR;

39110

}

39111

} tcl_result = Tcl_GetObjResult(interp);

39112

{

39113

char buff[20];

39114

sprintf(buff, "%u", cl_hton16(*_result));

39115

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39116

}

39117

return TCL_OK;

39118

}

39119

#define _ibsm_port_info_m_key_violations_get(_swigobj) (&_swigobj->m_key_violations)

39120

static int _wrap_smPortInfo_m_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39121

39122

ib_net16_t * _result;

39123

smPortInfo * _arg0;

39124

Tcl_Obj * tcl_result;

39125

char * rettype;

39126

39127

clientData = clientData; objv = objv;

39128

tcl_result = Tcl_GetObjResult(interp);

39129

if ((objc < 2) || (objc > 2)) {

39130

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_m_key_violations_get { smPortInfo * } ",-1);

39131

return TCL_ERROR;

39132

}

39133

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39134

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_m_key_violations_get. Expected _smPortInfo_p, received ", -1);

39135

Tcl_AppendToObj(tcl_result, rettype, -1);

39136

return TCL_ERROR;

39137

}

39138

{

39139

/* we can check if IBIS was initialized here */

39140

if (!IbisObj.initialized)

39141

{

39142

Tcl_SetStringObj(

39143

Tcl_GetObjResult(interp),

39144

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39145

return TCL_ERROR;

39146

}

39147

39148

if (! IbisObj.port_guid)

39149

{

39150

Tcl_SetStringObj(

39151

Tcl_GetObjResult(interp),

39152

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39153

return TCL_ERROR;

39154

}

39155

39156

ibis_tcl_error = 0;

39157

_result = (ib_net16_t *)_ibsm_port_info_m_key_violations_get(_arg0);

39158

;

39159

if (ibis_tcl_error) {

39160

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39161

return TCL_ERROR;

39162

}

39163

} tcl_result = Tcl_GetObjResult(interp);

39164

{

39165

char buff[20];

39166

sprintf(buff, "%u", cl_hton16(*_result));

39167

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39168

}

39169

return TCL_OK;

39170

}

39171

#define _ibsm_port_info_p_key_violations_set(_swigobj,_swigval) (_swigobj->p_key_violations = *(_swigval),_swigval)

39172

static int _wrap_smPortInfo_p_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39173

39174

ib_net16_t * _result;

39175

smPortInfo * _arg0;

39176

ib_net16_t * _arg1;

39177

Tcl_Obj * tcl_result;

39178

char * rettype;

39179

ib_net16_t temp;

39180

39181

clientData = clientData; objv = objv;

39182

tcl_result = Tcl_GetObjResult(interp);

39183

if ((objc < 3) || (objc > 3)) {

39184

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_p_key_violations_set { smPortInfo * } { ib_net16_t * } ",-1);

39185

return TCL_ERROR;

39186

}

39187

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39188

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_p_key_violations_set. Expected _smPortInfo_p, received ", -1);

39189

Tcl_AppendToObj(tcl_result, rettype, -1);

39190

return TCL_ERROR;

39191

}

39192

{

39193

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

39194

_arg1 = &temp;

39195

}

39196

{

39197

/* we can check if IBIS was initialized here */

39198

if (!IbisObj.initialized)

39199

{

39200

Tcl_SetStringObj(

39201

Tcl_GetObjResult(interp),

39202

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39203

return TCL_ERROR;

39204

}

39205

39206

if (! IbisObj.port_guid)

39207

{

39208

Tcl_SetStringObj(

39209

Tcl_GetObjResult(interp),

39210

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39211

return TCL_ERROR;

39212

}

39213

39214

ibis_tcl_error = 0;

39215

_result = (ib_net16_t *)_ibsm_port_info_p_key_violations_set(_arg0,_arg1);

39216

;

39217

if (ibis_tcl_error) {

39218

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39219

return TCL_ERROR;

39220

}

39221

} tcl_result = Tcl_GetObjResult(interp);

39222

{

39223

char buff[20];

39224

sprintf(buff, "%u", cl_hton16(*_result));

39225

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39226

}

39227

return TCL_OK;

39228

}

39229

#define _ibsm_port_info_p_key_violations_get(_swigobj) (&_swigobj->p_key_violations)

39230

static int _wrap_smPortInfo_p_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39231

39232

ib_net16_t * _result;

39233

smPortInfo * _arg0;

39234

Tcl_Obj * tcl_result;

39235

char * rettype;

39236

39237

clientData = clientData; objv = objv;

39238

tcl_result = Tcl_GetObjResult(interp);

39239

if ((objc < 2) || (objc > 2)) {

39240

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_p_key_violations_get { smPortInfo * } ",-1);

39241

return TCL_ERROR;

39242

}

39243

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39244

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_p_key_violations_get. Expected _smPortInfo_p, received ", -1);

39245

Tcl_AppendToObj(tcl_result, rettype, -1);

39246

return TCL_ERROR;

39247

}

39248

{

39249

/* we can check if IBIS was initialized here */

39250

if (!IbisObj.initialized)

39251

{

39252

Tcl_SetStringObj(

39253

Tcl_GetObjResult(interp),

39254

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39255

return TCL_ERROR;

39256

}

39257

39258

if (! IbisObj.port_guid)

39259

{

39260

Tcl_SetStringObj(

39261

Tcl_GetObjResult(interp),

39262

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39263

return TCL_ERROR;

39264

}

39265

39266

ibis_tcl_error = 0;

39267

_result = (ib_net16_t *)_ibsm_port_info_p_key_violations_get(_arg0);

39268

;

39269

if (ibis_tcl_error) {

39270

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39271

return TCL_ERROR;

39272

}

39273

} tcl_result = Tcl_GetObjResult(interp);

39274

{

39275

char buff[20];

39276

sprintf(buff, "%u", cl_hton16(*_result));

39277

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39278

}

39279

return TCL_OK;

39280

}

39281

#define _ibsm_port_info_q_key_violations_set(_swigobj,_swigval) (_swigobj->q_key_violations = *(_swigval),_swigval)

39282

static int _wrap_smPortInfo_q_key_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39283

39284

ib_net16_t * _result;

39285

smPortInfo * _arg0;

39286

ib_net16_t * _arg1;

39287

Tcl_Obj * tcl_result;

39288

char * rettype;

39289

ib_net16_t temp;

39290

39291

clientData = clientData; objv = objv;

39292

tcl_result = Tcl_GetObjResult(interp);

39293

if ((objc < 3) || (objc > 3)) {

39294

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_q_key_violations_set { smPortInfo * } { ib_net16_t * } ",-1);

39295

return TCL_ERROR;

39296

}

39297

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39298

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_q_key_violations_set. Expected _smPortInfo_p, received ", -1);

39299

Tcl_AppendToObj(tcl_result, rettype, -1);

39300

return TCL_ERROR;

39301

}

39302

{

39303

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

39304

_arg1 = &temp;

39305

}

39306

{

39307

/* we can check if IBIS was initialized here */

39308

if (!IbisObj.initialized)

39309

{

39310

Tcl_SetStringObj(

39311

Tcl_GetObjResult(interp),

39312

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39313

return TCL_ERROR;

39314

}

39315

39316

if (! IbisObj.port_guid)

39317

{

39318

Tcl_SetStringObj(

39319

Tcl_GetObjResult(interp),

39320

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39321

return TCL_ERROR;

39322

}

39323

39324

ibis_tcl_error = 0;

39325

_result = (ib_net16_t *)_ibsm_port_info_q_key_violations_set(_arg0,_arg1);

39326

;

39327

if (ibis_tcl_error) {

39328

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39329

return TCL_ERROR;

39330

}

39331

} tcl_result = Tcl_GetObjResult(interp);

39332

{

39333

char buff[20];

39334

sprintf(buff, "%u", cl_hton16(*_result));

39335

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39336

}

39337

return TCL_OK;

39338

}

39339

#define _ibsm_port_info_q_key_violations_get(_swigobj) (&_swigobj->q_key_violations)

39340

static int _wrap_smPortInfo_q_key_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39341

39342

ib_net16_t * _result;

39343

smPortInfo * _arg0;

39344

Tcl_Obj * tcl_result;

39345

char * rettype;

39346

39347

clientData = clientData; objv = objv;

39348

tcl_result = Tcl_GetObjResult(interp);

39349

if ((objc < 2) || (objc > 2)) {

39350

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_q_key_violations_get { smPortInfo * } ",-1);

39351

return TCL_ERROR;

39352

}

39353

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39354

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_q_key_violations_get. Expected _smPortInfo_p, received ", -1);

39355

Tcl_AppendToObj(tcl_result, rettype, -1);

39356

return TCL_ERROR;

39357

}

39358

{

39359

/* we can check if IBIS was initialized here */

39360

if (!IbisObj.initialized)

39361

{

39362

Tcl_SetStringObj(

39363

Tcl_GetObjResult(interp),

39364

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39365

return TCL_ERROR;

39366

}

39367

39368

if (! IbisObj.port_guid)

39369

{

39370

Tcl_SetStringObj(

39371

Tcl_GetObjResult(interp),

39372

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39373

return TCL_ERROR;

39374

}

39375

39376

ibis_tcl_error = 0;

39377

_result = (ib_net16_t *)_ibsm_port_info_q_key_violations_get(_arg0);

39378

;

39379

if (ibis_tcl_error) {

39380

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39381

return TCL_ERROR;

39382

}

39383

} tcl_result = Tcl_GetObjResult(interp);

39384

{

39385

char buff[20];

39386

sprintf(buff, "%u", cl_hton16(*_result));

39387

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39388

}

39389

return TCL_OK;

39390

}

39391

#define _ibsm_port_info_guid_cap_set(_swigobj,_swigval) (_swigobj->guid_cap = *(_swigval),_swigval)

39392

static int _wrap_smPortInfo_guid_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39393

39394

uint8_t * _result;

39395

smPortInfo * _arg0;

39396

uint8_t * _arg1;

39397

Tcl_Obj * tcl_result;

39398

char * rettype;

39399

uint8_t temp;

39400

39401

clientData = clientData; objv = objv;

39402

tcl_result = Tcl_GetObjResult(interp);

39403

if ((objc < 3) || (objc > 3)) {

39404

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_guid_cap_set { smPortInfo * } { uint8_t * } ",-1);

39405

return TCL_ERROR;

39406

}

39407

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39408

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_guid_cap_set. Expected _smPortInfo_p, received ", -1);

39409

Tcl_AppendToObj(tcl_result, rettype, -1);

39410

return TCL_ERROR;

39411

}

39412

{

39413

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

39414

_arg1 = &temp;

39415

}

39416

{

39417

/* we can check if IBIS was initialized here */

39418

if (!IbisObj.initialized)

39419

{

39420

Tcl_SetStringObj(

39421

Tcl_GetObjResult(interp),

39422

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39423

return TCL_ERROR;

39424

}

39425

39426

if (! IbisObj.port_guid)

39427

{

39428

Tcl_SetStringObj(

39429

Tcl_GetObjResult(interp),

39430

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39431

return TCL_ERROR;

39432

}

39433

39434

ibis_tcl_error = 0;

39435

_result = (uint8_t *)_ibsm_port_info_guid_cap_set(_arg0,_arg1);

39436

;

39437

if (ibis_tcl_error) {

39438

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39439

return TCL_ERROR;

39440

}

39441

} tcl_result = Tcl_GetObjResult(interp);

39442

{

39443

char buff[20];

39444

sprintf(buff, "%u", *_result);

39445

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39446

}

39447

return TCL_OK;

39448

}

39449

#define _ibsm_port_info_guid_cap_get(_swigobj) (&_swigobj->guid_cap)

39450

static int _wrap_smPortInfo_guid_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39451

39452

uint8_t * _result;

39453

smPortInfo * _arg0;

39454

Tcl_Obj * tcl_result;

39455

char * rettype;

39456

39457

clientData = clientData; objv = objv;

39458

tcl_result = Tcl_GetObjResult(interp);

39459

if ((objc < 2) || (objc > 2)) {

39460

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_guid_cap_get { smPortInfo * } ",-1);

39461

return TCL_ERROR;

39462

}

39463

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39464

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_guid_cap_get. Expected _smPortInfo_p, received ", -1);

39465

Tcl_AppendToObj(tcl_result, rettype, -1);

39466

return TCL_ERROR;

39467

}

39468

{

39469

/* we can check if IBIS was initialized here */

39470

if (!IbisObj.initialized)

39471

{

39472

Tcl_SetStringObj(

39473

Tcl_GetObjResult(interp),

39474

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39475

return TCL_ERROR;

39476

}

39477

39478

if (! IbisObj.port_guid)

39479

{

39480

Tcl_SetStringObj(

39481

Tcl_GetObjResult(interp),

39482

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39483

return TCL_ERROR;

39484

}

39485

39486

ibis_tcl_error = 0;

39487

_result = (uint8_t *)_ibsm_port_info_guid_cap_get(_arg0);

39488

;

39489

if (ibis_tcl_error) {

39490

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39491

return TCL_ERROR;

39492

}

39493

} tcl_result = Tcl_GetObjResult(interp);

39494

{

39495

char buff[20];

39496

sprintf(buff, "%u", *_result);

39497

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39498

}

39499

return TCL_OK;

39500

}

39501

#define _ibsm_port_info_subnet_timeout_set(_swigobj,_swigval) (_swigobj->subnet_timeout = *(_swigval),_swigval)

39502

static int _wrap_smPortInfo_subnet_timeout_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39503

39504

uint8_t * _result;

39505

smPortInfo * _arg0;

39506

uint8_t * _arg1;

39507

Tcl_Obj * tcl_result;

39508

char * rettype;

39509

uint8_t temp;

39510

39511

clientData = clientData; objv = objv;

39512

tcl_result = Tcl_GetObjResult(interp);

39513

if ((objc < 3) || (objc > 3)) {

39514

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_subnet_timeout_set { smPortInfo * } { uint8_t * } ",-1);

39515

return TCL_ERROR;

39516

}

39517

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39518

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_subnet_timeout_set. Expected _smPortInfo_p, received ", -1);

39519

Tcl_AppendToObj(tcl_result, rettype, -1);

39520

return TCL_ERROR;

39521

}

39522

{

39523

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

39524

_arg1 = &temp;

39525

}

39526

{

39527

/* we can check if IBIS was initialized here */

39528

if (!IbisObj.initialized)

39529

{

39530

Tcl_SetStringObj(

39531

Tcl_GetObjResult(interp),

39532

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39533

return TCL_ERROR;

39534

}

39535

39536

if (! IbisObj.port_guid)

39537

{

39538

Tcl_SetStringObj(

39539

Tcl_GetObjResult(interp),

39540

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39541

return TCL_ERROR;

39542

}

39543

39544

ibis_tcl_error = 0;

39545

_result = (uint8_t *)_ibsm_port_info_subnet_timeout_set(_arg0,_arg1);

39546

;

39547

if (ibis_tcl_error) {

39548

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39549

return TCL_ERROR;

39550

}

39551

} tcl_result = Tcl_GetObjResult(interp);

39552

{

39553

char buff[20];

39554

sprintf(buff, "%u", *_result);

39555

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39556

}

39557

return TCL_OK;

39558

}

39559

#define _ibsm_port_info_subnet_timeout_get(_swigobj) (&_swigobj->subnet_timeout)

39560

static int _wrap_smPortInfo_subnet_timeout_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39561

39562

uint8_t * _result;

39563

smPortInfo * _arg0;

39564

Tcl_Obj * tcl_result;

39565

char * rettype;

39566

39567

clientData = clientData; objv = objv;

39568

tcl_result = Tcl_GetObjResult(interp);

39569

if ((objc < 2) || (objc > 2)) {

39570

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_subnet_timeout_get { smPortInfo * } ",-1);

39571

return TCL_ERROR;

39572

}

39573

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39574

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_subnet_timeout_get. Expected _smPortInfo_p, received ", -1);

39575

Tcl_AppendToObj(tcl_result, rettype, -1);

39576

return TCL_ERROR;

39577

}

39578

{

39579

/* we can check if IBIS was initialized here */

39580

if (!IbisObj.initialized)

39581

{

39582

Tcl_SetStringObj(

39583

Tcl_GetObjResult(interp),

39584

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39585

return TCL_ERROR;

39586

}

39587

39588

if (! IbisObj.port_guid)

39589

{

39590

Tcl_SetStringObj(

39591

Tcl_GetObjResult(interp),

39592

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39593

return TCL_ERROR;

39594

}

39595

39596

ibis_tcl_error = 0;

39597

_result = (uint8_t *)_ibsm_port_info_subnet_timeout_get(_arg0);

39598

;

39599

if (ibis_tcl_error) {

39600

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39601

return TCL_ERROR;

39602

}

39603

} tcl_result = Tcl_GetObjResult(interp);

39604

{

39605

char buff[20];

39606

sprintf(buff, "%u", *_result);

39607

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39608

}

39609

return TCL_OK;

39610

}

39611

#define _ibsm_port_info_resp_time_value_set(_swigobj,_swigval) (_swigobj->resp_time_value = *(_swigval),_swigval)

39612

static int _wrap_smPortInfo_resp_time_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39613

39614

uint8_t * _result;

39615

smPortInfo * _arg0;

39616

uint8_t * _arg1;

39617

Tcl_Obj * tcl_result;

39618

char * rettype;

39619

uint8_t temp;

39620

39621

clientData = clientData; objv = objv;

39622

tcl_result = Tcl_GetObjResult(interp);

39623

if ((objc < 3) || (objc > 3)) {

39624

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_resp_time_value_set { smPortInfo * } { uint8_t * } ",-1);

39625

return TCL_ERROR;

39626

}

39627

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39628

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_resp_time_value_set. Expected _smPortInfo_p, received ", -1);

39629

Tcl_AppendToObj(tcl_result, rettype, -1);

39630

return TCL_ERROR;

39631

}

39632

{

39633

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

39634

_arg1 = &temp;

39635

}

39636

{

39637

/* we can check if IBIS was initialized here */

39638

if (!IbisObj.initialized)

39639

{

39640

Tcl_SetStringObj(

39641

Tcl_GetObjResult(interp),

39642

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39643

return TCL_ERROR;

39644

}

39645

39646

if (! IbisObj.port_guid)

39647

{

39648

Tcl_SetStringObj(

39649

Tcl_GetObjResult(interp),

39650

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39651

return TCL_ERROR;

39652

}

39653

39654

ibis_tcl_error = 0;

39655

_result = (uint8_t *)_ibsm_port_info_resp_time_value_set(_arg0,_arg1);

39656

;

39657

if (ibis_tcl_error) {

39658

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39659

return TCL_ERROR;

39660

}

39661

} tcl_result = Tcl_GetObjResult(interp);

39662

{

39663

char buff[20];

39664

sprintf(buff, "%u", *_result);

39665

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39666

}

39667

return TCL_OK;

39668

}

39669

#define _ibsm_port_info_resp_time_value_get(_swigobj) (&_swigobj->resp_time_value)

39670

static int _wrap_smPortInfo_resp_time_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39671

39672

uint8_t * _result;

39673

smPortInfo * _arg0;

39674

Tcl_Obj * tcl_result;

39675

char * rettype;

39676

39677

clientData = clientData; objv = objv;

39678

tcl_result = Tcl_GetObjResult(interp);

39679

if ((objc < 2) || (objc > 2)) {

39680

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_resp_time_value_get { smPortInfo * } ",-1);

39681

return TCL_ERROR;

39682

}

39683

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39684

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_resp_time_value_get. Expected _smPortInfo_p, received ", -1);

39685

Tcl_AppendToObj(tcl_result, rettype, -1);

39686

return TCL_ERROR;

39687

}

39688

{

39689

/* we can check if IBIS was initialized here */

39690

if (!IbisObj.initialized)

39691

{

39692

Tcl_SetStringObj(

39693

Tcl_GetObjResult(interp),

39694

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39695

return TCL_ERROR;

39696

}

39697

39698

if (! IbisObj.port_guid)

39699

{

39700

Tcl_SetStringObj(

39701

Tcl_GetObjResult(interp),

39702

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39703

return TCL_ERROR;

39704

}

39705

39706

ibis_tcl_error = 0;

39707

_result = (uint8_t *)_ibsm_port_info_resp_time_value_get(_arg0);

39708

;

39709

if (ibis_tcl_error) {

39710

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39711

return TCL_ERROR;

39712

}

39713

} tcl_result = Tcl_GetObjResult(interp);

39714

{

39715

char buff[20];

39716

sprintf(buff, "%u", *_result);

39717

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39718

}

39719

return TCL_OK;

39720

}

39721

#define _ibsm_port_info_error_threshold_set(_swigobj,_swigval) (_swigobj->error_threshold = *(_swigval),_swigval)

39722

static int _wrap_smPortInfo_error_threshold_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39723

39724

uint8_t * _result;

39725

smPortInfo * _arg0;

39726

uint8_t * _arg1;

39727

Tcl_Obj * tcl_result;

39728

char * rettype;

39729

uint8_t temp;

39730

39731

clientData = clientData; objv = objv;

39732

tcl_result = Tcl_GetObjResult(interp);

39733

if ((objc < 3) || (objc > 3)) {

39734

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_error_threshold_set { smPortInfo * } { uint8_t * } ",-1);

39735

return TCL_ERROR;

39736

}

39737

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39738

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_error_threshold_set. Expected _smPortInfo_p, received ", -1);

39739

Tcl_AppendToObj(tcl_result, rettype, -1);

39740

return TCL_ERROR;

39741

}

39742

{

39743

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

39744

_arg1 = &temp;

39745

}

39746

{

39747

/* we can check if IBIS was initialized here */

39748

if (!IbisObj.initialized)

39749

{

39750

Tcl_SetStringObj(

39751

Tcl_GetObjResult(interp),

39752

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39753

return TCL_ERROR;

39754

}

39755

39756

if (! IbisObj.port_guid)

39757

{

39758

Tcl_SetStringObj(

39759

Tcl_GetObjResult(interp),

39760

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39761

return TCL_ERROR;

39762

}

39763

39764

ibis_tcl_error = 0;

39765

_result = (uint8_t *)_ibsm_port_info_error_threshold_set(_arg0,_arg1);

39766

;

39767

if (ibis_tcl_error) {

39768

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39769

return TCL_ERROR;

39770

}

39771

} tcl_result = Tcl_GetObjResult(interp);

39772

{

39773

char buff[20];

39774

sprintf(buff, "%u", *_result);

39775

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39776

}

39777

return TCL_OK;

39778

}

39779

#define _ibsm_port_info_error_threshold_get(_swigobj) (&_swigobj->error_threshold)

39780

static int _wrap_smPortInfo_error_threshold_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39781

39782

uint8_t * _result;

39783

smPortInfo * _arg0;

39784

Tcl_Obj * tcl_result;

39785

char * rettype;

39786

39787

clientData = clientData; objv = objv;

39788

tcl_result = Tcl_GetObjResult(interp);

39789

if ((objc < 2) || (objc > 2)) {

39790

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_error_threshold_get { smPortInfo * } ",-1);

39791

return TCL_ERROR;

39792

}

39793

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39794

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_error_threshold_get. Expected _smPortInfo_p, received ", -1);

39795

Tcl_AppendToObj(tcl_result, rettype, -1);

39796

return TCL_ERROR;

39797

}

39798

{

39799

/* we can check if IBIS was initialized here */

39800

if (!IbisObj.initialized)

39801

{

39802

Tcl_SetStringObj(

39803

Tcl_GetObjResult(interp),

39804

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39805

return TCL_ERROR;

39806

}

39807

39808

if (! IbisObj.port_guid)

39809

{

39810

Tcl_SetStringObj(

39811

Tcl_GetObjResult(interp),

39812

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39813

return TCL_ERROR;

39814

}

39815

39816

ibis_tcl_error = 0;

39817

_result = (uint8_t *)_ibsm_port_info_error_threshold_get(_arg0);

39818

;

39819

if (ibis_tcl_error) {

39820

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39821

return TCL_ERROR;

39822

}

39823

} tcl_result = Tcl_GetObjResult(interp);

39824

{

39825

char buff[20];

39826

sprintf(buff, "%u", *_result);

39827

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

39828

}

39829

return TCL_OK;

39830

}

39831

static int smPortInfo_getByDr(smPortInfo *self,ibsm_dr_path_t * dr,uint8_t portNum) {

39832

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smPortInfo),

39833

dr, CL_NTOH16(IB_MAD_ATTR_PORT_INFO), portNum, IB_MAD_METHOD_GET));

39834

}

39835

static int _wrap_smPortInfo_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39836

39837

int _result;

39838

smPortInfo * _arg0;

39839

ibsm_dr_path_t * _arg1;

39840

uint8_t * _arg2;

39841

Tcl_Obj * tcl_result;

39842

char * rettype;

39843

ibsm_dr_path_t dr;

39844

uint8_t temp;

39845

39846

clientData = clientData; objv = objv;

39847

tcl_result = Tcl_GetObjResult(interp);

39848

if ((objc < 4) || (objc > 4)) {

39849

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_getByDr { smPortInfo * } dr portNum ",-1);

39850

return TCL_ERROR;

39851

}

39852

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39853

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_getByDr. Expected _smPortInfo_p, received ", -1);

39854

Tcl_AppendToObj(tcl_result, rettype, -1);

39855

return TCL_ERROR;

39856

}

39857

{

39858

char buf[1024];

39859

char *p_next;

39860

unsigned int port;

39861

int i;

39862

39863

dr.count = 1;

39864

dr.path[0] = 0;

39865

39866

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

39867

buf[1023] = '\0';

39868

p_next = strtok(buf," \t");

39869

while (p_next != NULL)

39870

{

39871

if (sscanf(p_next,"%u", &port) != 1)

39872

{

39873

printf("Error: bad format in directed route path index:%u : %s\n",

39874

dr.count, p_next);

39875

return TCL_ERROR;

39876

}

39877

dr.path[dr.count++] = port;

39878

p_next = strtok(NULL," \t");

39879

}

39880

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

39881

dr.count--;

39882

_arg1 = &dr;

39883

}

39884

{

39885

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

39886

_arg2 = &temp;

39887

}

39888

{

39889

/* we can check if IBIS was initialized here */

39890

if (!IbisObj.initialized)

39891

{

39892

Tcl_SetStringObj(

39893

Tcl_GetObjResult(interp),

39894

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39895

return TCL_ERROR;

39896

}

39897

39898

if (! IbisObj.port_guid)

39899

{

39900

Tcl_SetStringObj(

39901

Tcl_GetObjResult(interp),

39902

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39903

return TCL_ERROR;

39904

}

39905

39906

ibis_tcl_error = 0;

39907

_result = (int )smPortInfo_getByDr(_arg0,_arg1,*_arg2);

39908

;

39909

if (ibis_tcl_error) {

39910

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39911

return TCL_ERROR;

39912

}

39913

} tcl_result = Tcl_GetObjResult(interp);

39914

Tcl_SetIntObj(tcl_result,(long) _result);

39915

return TCL_OK;

39916

}

39917

static int smPortInfo_setByDr(smPortInfo *self,ibsm_dr_path_t * dr,uint8_t portNum) {

39918

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smPortInfo),

39919

dr, CL_NTOH16(IB_MAD_ATTR_PORT_INFO), portNum, IB_MAD_METHOD_SET));

39920

}

39921

static int _wrap_smPortInfo_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

39922

39923

int _result;

39924

smPortInfo * _arg0;

39925

ibsm_dr_path_t * _arg1;

39926

uint8_t * _arg2;

39927

Tcl_Obj * tcl_result;

39928

char * rettype;

39929

ibsm_dr_path_t dr;

39930

uint8_t temp;

39931

39932

clientData = clientData; objv = objv;

39933

tcl_result = Tcl_GetObjResult(interp);

39934

if ((objc < 4) || (objc > 4)) {

39935

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_setByDr { smPortInfo * } dr portNum ",-1);

39936

return TCL_ERROR;

39937

}

39938

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

39939

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_setByDr. Expected _smPortInfo_p, received ", -1);

39940

Tcl_AppendToObj(tcl_result, rettype, -1);

39941

return TCL_ERROR;

39942

}

39943

{

39944

char buf[1024];

39945

char *p_next;

39946

unsigned int port;

39947

int i;

39948

39949

dr.count = 1;

39950

dr.path[0] = 0;

39951

39952

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

39953

buf[1023] = '\0';

39954

p_next = strtok(buf," \t");

39955

while (p_next != NULL)

39956

{

39957

if (sscanf(p_next,"%u", &port) != 1)

39958

{

39959

printf("Error: bad format in directed route path index:%u : %s\n",

39960

dr.count, p_next);

39961

return TCL_ERROR;

39962

}

39963

dr.path[dr.count++] = port;

39964

p_next = strtok(NULL," \t");

39965

}

39966

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

39967

dr.count--;

39968

_arg1 = &dr;

39969

}

39970

{

39971

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

39972

_arg2 = &temp;

39973

}

39974

{

39975

/* we can check if IBIS was initialized here */

39976

if (!IbisObj.initialized)

39977

{

39978

Tcl_SetStringObj(

39979

Tcl_GetObjResult(interp),

39980

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

39981

return TCL_ERROR;

39982

}

39983

39984

if (! IbisObj.port_guid)

39985

{

39986

Tcl_SetStringObj(

39987

Tcl_GetObjResult(interp),

39988

" ibis was not yet initialized. please use ibis_set_port before.", -1);

39989

return TCL_ERROR;

39990

}

39991

39992

ibis_tcl_error = 0;

39993

_result = (int )smPortInfo_setByDr(_arg0,_arg1,*_arg2);

39994

;

39995

if (ibis_tcl_error) {

39996

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

39997

return TCL_ERROR;

39998

}

39999

} tcl_result = Tcl_GetObjResult(interp);

40000

Tcl_SetIntObj(tcl_result,(long) _result);

40001

return TCL_OK;

40002

}

40003

static int smPortInfo_getByLid(smPortInfo *self,uint16_t lid,uint8_t portNum) {

40004

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smPortInfo),

40005

lid, CL_NTOH16(IB_MAD_ATTR_PORT_INFO), portNum, IB_MAD_METHOD_GET));

40006

}

40007

static int _wrap_smPortInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40008

40009

int _result;

40010

smPortInfo * _arg0;

40011

uint16_t * _arg1;

40012

uint8_t * _arg2;

40013

Tcl_Obj * tcl_result;

40014

char * rettype;

40015

uint16_t temp;

40016

uint8_t temp0;

40017

40018

clientData = clientData; objv = objv;

40019

tcl_result = Tcl_GetObjResult(interp);

40020

if ((objc < 4) || (objc > 4)) {

40021

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_getByLid { smPortInfo * } lid portNum ",-1);

40022

return TCL_ERROR;

40023

}

40024

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

40025

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_getByLid. Expected _smPortInfo_p, received ", -1);

40026

Tcl_AppendToObj(tcl_result, rettype, -1);

40027

return TCL_ERROR;

40028

}

40029

{

40030

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

40031

_arg1 = &temp;

40032

}

40033

{

40034

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

40035

_arg2 = &temp0;

40036

}

40037

{

40038

/* we can check if IBIS was initialized here */

40039

if (!IbisObj.initialized)

40040

{

40041

Tcl_SetStringObj(

40042

Tcl_GetObjResult(interp),

40043

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40044

return TCL_ERROR;

40045

}

40046

40047

if (! IbisObj.port_guid)

40048

{

40049

Tcl_SetStringObj(

40050

Tcl_GetObjResult(interp),

40051

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40052

return TCL_ERROR;

40053

}

40054

40055

ibis_tcl_error = 0;

40056

_result = (int )smPortInfo_getByLid(_arg0,*_arg1,*_arg2);

40057

;

40058

if (ibis_tcl_error) {

40059

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40060

return TCL_ERROR;

40061

}

40062

} tcl_result = Tcl_GetObjResult(interp);

40063

Tcl_SetIntObj(tcl_result,(long) _result);

40064

return TCL_OK;

40065

}

40066

static int smPortInfo_setByLid(smPortInfo *self,uint16_t lid,uint8_t portNum) {

40067

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smPortInfo),

40068

lid, CL_NTOH16(IB_MAD_ATTR_PORT_INFO), portNum, IB_MAD_METHOD_SET));

40069

}

40070

static int _wrap_smPortInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40071

40072

int _result;

40073

smPortInfo * _arg0;

40074

uint16_t * _arg1;

40075

uint8_t * _arg2;

40076

Tcl_Obj * tcl_result;

40077

char * rettype;

40078

uint16_t temp;

40079

uint8_t temp0;

40080

40081

clientData = clientData; objv = objv;

40082

tcl_result = Tcl_GetObjResult(interp);

40083

if ((objc < 4) || (objc > 4)) {

40084

Tcl_SetStringObj(tcl_result,"Wrong # args. smPortInfo_setByLid { smPortInfo * } lid portNum ",-1);

40085

return TCL_ERROR;

40086

}

40087

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPortInfo_p"))) {

40088

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPortInfo_setByLid. Expected _smPortInfo_p, received ", -1);

40089

Tcl_AppendToObj(tcl_result, rettype, -1);

40090

return TCL_ERROR;

40091

}

40092

{

40093

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

40094

_arg1 = &temp;

40095

}

40096

{

40097

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

40098

_arg2 = &temp0;

40099

}

40100

{

40101

/* we can check if IBIS was initialized here */

40102

if (!IbisObj.initialized)

40103

{

40104

Tcl_SetStringObj(

40105

Tcl_GetObjResult(interp),

40106

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40107

return TCL_ERROR;

40108

}

40109

40110

if (! IbisObj.port_guid)

40111

{

40112

Tcl_SetStringObj(

40113

Tcl_GetObjResult(interp),

40114

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40115

return TCL_ERROR;

40116

}

40117

40118

ibis_tcl_error = 0;

40119

_result = (int )smPortInfo_setByLid(_arg0,*_arg1,*_arg2);

40120

;

40121

if (ibis_tcl_error) {

40122

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40123

return TCL_ERROR;

40124

}

40125

} tcl_result = Tcl_GetObjResult(interp);

40126

Tcl_SetIntObj(tcl_result,(long) _result);

40127

return TCL_OK;

40128

}

40129

/* methodcmd8.swg : Tcl8.x method invocation */

40130

40131

static int TclsmPortInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

40132

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

40133

char *_str;

40134

int rcode;

40135

Tcl_Obj **objv;

40136

Tcl_Obj *oldarg,*tcl_result,*obj;

40137

int length;

40138

char c;

40139

40140

tcl_result = Tcl_GetObjResult(interp);

40141

objv = (Tcl_Obj **) _objv;

40142

if (objc < 2) {

40143

Tcl_SetStringObj(tcl_result,"smPortInfo methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

40144

return TCL_ERROR;

40145

}

40146

obj = Tcl_NewObj();

40147

SWIG_SetPointerObj(obj,(void *) clientData,"_smPortInfo_p");

40148

_str = Tcl_GetStringFromObj(objv[1],&length);

40149

c = *_str;

40150

if (0);

40151

if (strcmp(_str,"getByDr") == 0) {

40152

cmd = _wrap_smPortInfo_getByDr;

40153

} else if (strcmp(_str,"setByDr") == 0) {

40154

cmd = _wrap_smPortInfo_setByDr;

40155

} else if (strcmp(_str,"getByLid") == 0) {

40156

cmd = _wrap_smPortInfo_getByLid;

40157

} else if (strcmp(_str,"setByLid") == 0) {

40158

cmd = _wrap_smPortInfo_setByLid;

40159

}

40160

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

40161

int i = 2;

40162

cmd = 0;

40163

while (i+1 < objc) {

40164

_str = Tcl_GetStringFromObj(objv[i],&length);

40165

if (strcmp(_str,"-m_key") == 0) {

40166

cmd = _wrap_smPortInfo_m_key_set;

40167

} else if (strcmp(_str,"-subnet_prefix") == 0) {

40168

cmd = _wrap_smPortInfo_subnet_prefix_set;

40169

} else if (strcmp(_str,"-base_lid") == 0) {

40170

cmd = _wrap_smPortInfo_base_lid_set;

40171

} else if (strcmp(_str,"-master_sm_base_lid") == 0) {

40172

cmd = _wrap_smPortInfo_master_sm_base_lid_set;

40173

} else if (strcmp(_str,"-capability_mask") == 0) {

40174

cmd = _wrap_smPortInfo_capability_mask_set;

40175

} else if (strcmp(_str,"-diag_code") == 0) {

40176

cmd = _wrap_smPortInfo_diag_code_set;

40177

} else if (strcmp(_str,"-m_key_lease_period") == 0) {

40178

cmd = _wrap_smPortInfo_m_key_lease_period_set;

40179

} else if (strcmp(_str,"-local_port_num") == 0) {

40180

cmd = _wrap_smPortInfo_local_port_num_set;

40181

} else if (strcmp(_str,"-link_width_enabled") == 0) {

40182

cmd = _wrap_smPortInfo_link_width_enabled_set;

40183

} else if (strcmp(_str,"-link_width_supported") == 0) {

40184

cmd = _wrap_smPortInfo_link_width_supported_set;

40185

} else if (strcmp(_str,"-link_width_active") == 0) {

40186

cmd = _wrap_smPortInfo_link_width_active_set;

40187

} else if (strcmp(_str,"-state_info1") == 0) {

40188

cmd = _wrap_smPortInfo_state_info1_set;

40189

} else if (strcmp(_str,"-state_info2") == 0) {

40190

cmd = _wrap_smPortInfo_state_info2_set;

40191

} else if (strcmp(_str,"-mkey_lmc") == 0) {

40192

cmd = _wrap_smPortInfo_mkey_lmc_set;

40193

} else if (strcmp(_str,"-link_speed") == 0) {

40194

cmd = _wrap_smPortInfo_link_speed_set;

40195

} else if (strcmp(_str,"-mtu_smsl") == 0) {

40196

cmd = _wrap_smPortInfo_mtu_smsl_set;

40197

} else if (strcmp(_str,"-vl_cap") == 0) {

40198

cmd = _wrap_smPortInfo_vl_cap_set;

40199

} else if (strcmp(_str,"-vl_high_limit") == 0) {

40200

cmd = _wrap_smPortInfo_vl_high_limit_set;

40201

} else if (strcmp(_str,"-vl_arb_high_cap") == 0) {

40202

cmd = _wrap_smPortInfo_vl_arb_high_cap_set;

40203

} else if (strcmp(_str,"-vl_arb_low_cap") == 0) {

40204

cmd = _wrap_smPortInfo_vl_arb_low_cap_set;

40205

} else if (strcmp(_str,"-mtu_cap") == 0) {

40206

cmd = _wrap_smPortInfo_mtu_cap_set;

40207

} else if (strcmp(_str,"-vl_stall_life") == 0) {

40208

cmd = _wrap_smPortInfo_vl_stall_life_set;

40209

} else if (strcmp(_str,"-vl_enforce") == 0) {

40210

cmd = _wrap_smPortInfo_vl_enforce_set;

40211

} else if (strcmp(_str,"-m_key_violations") == 0) {

40212

cmd = _wrap_smPortInfo_m_key_violations_set;

40213

} else if (strcmp(_str,"-p_key_violations") == 0) {

40214

cmd = _wrap_smPortInfo_p_key_violations_set;

40215

} else if (strcmp(_str,"-q_key_violations") == 0) {

40216

cmd = _wrap_smPortInfo_q_key_violations_set;

40217

} else if (strcmp(_str,"-guid_cap") == 0) {

40218

cmd = _wrap_smPortInfo_guid_cap_set;

40219

} else if (strcmp(_str,"-subnet_timeout") == 0) {

40220

cmd = _wrap_smPortInfo_subnet_timeout_set;

40221

} else if (strcmp(_str,"-resp_time_value") == 0) {

40222

cmd = _wrap_smPortInfo_resp_time_value_set;

40223

} else if (strcmp(_str,"-error_threshold") == 0) {

40224

cmd = _wrap_smPortInfo_error_threshold_set;

40225

}

40226

if (cmd) {

40227

oldarg = objv[i];

40228

objv[i] = obj;

40229

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

40230

objv[i] = oldarg;

40231

if (rcode == TCL_ERROR) return rcode;

40232

cmd = 0;

40233

} else {

40234

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

40235

return TCL_ERROR;

40236

}

40237

i+=2;

40238

}

40239

if ((i < objc) || (i == 2)) {

40240

Tcl_SetStringObj(tcl_result,"{ -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

40241

return TCL_ERROR;

40242

}

40243

return TCL_OK;

40244

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

40245

if (objc == 3) {

40246

_str = Tcl_GetStringFromObj(objv[2],&length);

40247

if (0) {}

40248

if (strcmp(_str,"-m_key") == 0) {

40249

cmd = _wrap_smPortInfo_m_key_get;

40250

} else if (strcmp(_str,"-subnet_prefix") == 0) {

40251

cmd = _wrap_smPortInfo_subnet_prefix_get;

40252

} else if (strcmp(_str,"-base_lid") == 0) {

40253

cmd = _wrap_smPortInfo_base_lid_get;

40254

} else if (strcmp(_str,"-master_sm_base_lid") == 0) {

40255

cmd = _wrap_smPortInfo_master_sm_base_lid_get;

40256

} else if (strcmp(_str,"-capability_mask") == 0) {

40257

cmd = _wrap_smPortInfo_capability_mask_get;

40258

} else if (strcmp(_str,"-diag_code") == 0) {

40259

cmd = _wrap_smPortInfo_diag_code_get;

40260

} else if (strcmp(_str,"-m_key_lease_period") == 0) {

40261

cmd = _wrap_smPortInfo_m_key_lease_period_get;

40262

} else if (strcmp(_str,"-local_port_num") == 0) {

40263

cmd = _wrap_smPortInfo_local_port_num_get;

40264

} else if (strcmp(_str,"-link_width_enabled") == 0) {

40265

cmd = _wrap_smPortInfo_link_width_enabled_get;

40266

} else if (strcmp(_str,"-link_width_supported") == 0) {

40267

cmd = _wrap_smPortInfo_link_width_supported_get;

40268

} else if (strcmp(_str,"-link_width_active") == 0) {

40269

cmd = _wrap_smPortInfo_link_width_active_get;

40270

} else if (strcmp(_str,"-state_info1") == 0) {

40271

cmd = _wrap_smPortInfo_state_info1_get;

40272

} else if (strcmp(_str,"-state_info2") == 0) {

40273

cmd = _wrap_smPortInfo_state_info2_get;

40274

} else if (strcmp(_str,"-mkey_lmc") == 0) {

40275

cmd = _wrap_smPortInfo_mkey_lmc_get;

40276

} else if (strcmp(_str,"-link_speed") == 0) {

40277

cmd = _wrap_smPortInfo_link_speed_get;

40278

} else if (strcmp(_str,"-mtu_smsl") == 0) {

40279

cmd = _wrap_smPortInfo_mtu_smsl_get;

40280

} else if (strcmp(_str,"-vl_cap") == 0) {

40281

cmd = _wrap_smPortInfo_vl_cap_get;

40282

} else if (strcmp(_str,"-vl_high_limit") == 0) {

40283

cmd = _wrap_smPortInfo_vl_high_limit_get;

40284

} else if (strcmp(_str,"-vl_arb_high_cap") == 0) {

40285

cmd = _wrap_smPortInfo_vl_arb_high_cap_get;

40286

} else if (strcmp(_str,"-vl_arb_low_cap") == 0) {

40287

cmd = _wrap_smPortInfo_vl_arb_low_cap_get;

40288

} else if (strcmp(_str,"-mtu_cap") == 0) {

40289

cmd = _wrap_smPortInfo_mtu_cap_get;

40290

} else if (strcmp(_str,"-vl_stall_life") == 0) {

40291

cmd = _wrap_smPortInfo_vl_stall_life_get;

40292

} else if (strcmp(_str,"-vl_enforce") == 0) {

40293

cmd = _wrap_smPortInfo_vl_enforce_get;

40294

} else if (strcmp(_str,"-m_key_violations") == 0) {

40295

cmd = _wrap_smPortInfo_m_key_violations_get;

40296

} else if (strcmp(_str,"-p_key_violations") == 0) {

40297

cmd = _wrap_smPortInfo_p_key_violations_get;

40298

} else if (strcmp(_str,"-q_key_violations") == 0) {

40299

cmd = _wrap_smPortInfo_q_key_violations_get;

40300

} else if (strcmp(_str,"-guid_cap") == 0) {

40301

cmd = _wrap_smPortInfo_guid_cap_get;

40302

} else if (strcmp(_str,"-subnet_timeout") == 0) {

40303

cmd = _wrap_smPortInfo_subnet_timeout_get;

40304

} else if (strcmp(_str,"-resp_time_value") == 0) {

40305

cmd = _wrap_smPortInfo_resp_time_value_get;

40306

} else if (strcmp(_str,"-error_threshold") == 0) {

40307

cmd = _wrap_smPortInfo_error_threshold_get;

40308

}

40309

else if (strcmp(_str,"-this") == 0) {

40310

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smPortInfo_p");

40311

return TCL_OK;

40312

}

40313

if (cmd) {

40314

oldarg = objv[2];

40315

objv[2] = obj;

40316

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

40317

objv[2] = oldarg;

40318

return rcode;

40319

} else {

40320

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }",-1);

40321

return TCL_ERROR;

40322

}

40323

} else {

40324

Tcl_SetStringObj(tcl_result,"{ -this -m_key -subnet_prefix -base_lid -master_sm_base_lid -capability_mask -diag_code -m_key_lease_period -local_port_num -link_width_enabled -link_width_supported -link_width_active -state_info1 -state_info2 -mkey_lmc -link_speed -mtu_smsl -vl_cap -vl_high_limit -vl_arb_high_cap -vl_arb_low_cap -mtu_cap -vl_stall_life -vl_enforce -m_key_violations -p_key_violations -q_key_violations -guid_cap -subnet_timeout -resp_time_value -error_threshold }", -1);

40325

return TCL_ERROR;

40326

}

40327

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

40328

if (objc == 2) {

40329

Tcl_Obj *pDumpObj;

40330

pDumpObj = Tcl_NewStringObj("",-1);

40331

Tcl_IncrRefCount(pDumpObj);

40332

cmd = _wrap_smPortInfo_m_key_get;

40333

oldarg = objv[2];

40334

objv[2] = obj;

40335

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40336

objv[2] = oldarg;

40337

Tcl_AppendStringsToObj(pDumpObj, "-m_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40338

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40339

cmd = _wrap_smPortInfo_subnet_prefix_get;

40340

oldarg = objv[2];

40341

objv[2] = obj;

40342

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40343

objv[2] = oldarg;

40344

Tcl_AppendStringsToObj(pDumpObj, "-subnet_prefix ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40345

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40346

cmd = _wrap_smPortInfo_base_lid_get;

40347

oldarg = objv[2];

40348

objv[2] = obj;

40349

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40350

objv[2] = oldarg;

40351

Tcl_AppendStringsToObj(pDumpObj, "-base_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40352

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40353

cmd = _wrap_smPortInfo_master_sm_base_lid_get;

40354

oldarg = objv[2];

40355

objv[2] = obj;

40356

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40357

objv[2] = oldarg;

40358

Tcl_AppendStringsToObj(pDumpObj, "-master_sm_base_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40359

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40360

cmd = _wrap_smPortInfo_capability_mask_get;

40361

oldarg = objv[2];

40362

objv[2] = obj;

40363

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40364

objv[2] = oldarg;

40365

Tcl_AppendStringsToObj(pDumpObj, "-capability_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40366

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40367

cmd = _wrap_smPortInfo_diag_code_get;

40368

oldarg = objv[2];

40369

objv[2] = obj;

40370

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40371

objv[2] = oldarg;

40372

Tcl_AppendStringsToObj(pDumpObj, "-diag_code ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40373

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40374

cmd = _wrap_smPortInfo_m_key_lease_period_get;

40375

oldarg = objv[2];

40376

objv[2] = obj;

40377

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40378

objv[2] = oldarg;

40379

Tcl_AppendStringsToObj(pDumpObj, "-m_key_lease_period ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40380

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40381

cmd = _wrap_smPortInfo_local_port_num_get;

40382

oldarg = objv[2];

40383

objv[2] = obj;

40384

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40385

objv[2] = oldarg;

40386

Tcl_AppendStringsToObj(pDumpObj, "-local_port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40387

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40388

cmd = _wrap_smPortInfo_link_width_enabled_get;

40389

oldarg = objv[2];

40390

objv[2] = obj;

40391

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40392

objv[2] = oldarg;

40393

Tcl_AppendStringsToObj(pDumpObj, "-link_width_enabled ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40394

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40395

cmd = _wrap_smPortInfo_link_width_supported_get;

40396

oldarg = objv[2];

40397

objv[2] = obj;

40398

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40399

objv[2] = oldarg;

40400

Tcl_AppendStringsToObj(pDumpObj, "-link_width_supported ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40401

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40402

cmd = _wrap_smPortInfo_link_width_active_get;

40403

oldarg = objv[2];

40404

objv[2] = obj;

40405

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40406

objv[2] = oldarg;

40407

Tcl_AppendStringsToObj(pDumpObj, "-link_width_active ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40408

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40409

cmd = _wrap_smPortInfo_state_info1_get;

40410

oldarg = objv[2];

40411

objv[2] = obj;

40412

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40413

objv[2] = oldarg;

40414

Tcl_AppendStringsToObj(pDumpObj, "-state_info1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40415

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40416

cmd = _wrap_smPortInfo_state_info2_get;

40417

oldarg = objv[2];

40418

objv[2] = obj;

40419

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40420

objv[2] = oldarg;

40421

Tcl_AppendStringsToObj(pDumpObj, "-state_info2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40422

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40423

cmd = _wrap_smPortInfo_mkey_lmc_get;

40424

oldarg = objv[2];

40425

objv[2] = obj;

40426

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40427

objv[2] = oldarg;

40428

Tcl_AppendStringsToObj(pDumpObj, "-mkey_lmc ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40429

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40430

cmd = _wrap_smPortInfo_link_speed_get;

40431

oldarg = objv[2];

40432

objv[2] = obj;

40433

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40434

objv[2] = oldarg;

40435

Tcl_AppendStringsToObj(pDumpObj, "-link_speed ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40436

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40437

cmd = _wrap_smPortInfo_mtu_smsl_get;

40438

oldarg = objv[2];

40439

objv[2] = obj;

40440

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40441

objv[2] = oldarg;

40442

Tcl_AppendStringsToObj(pDumpObj, "-mtu_smsl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40443

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40444

cmd = _wrap_smPortInfo_vl_cap_get;

40445

oldarg = objv[2];

40446

objv[2] = obj;

40447

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40448

objv[2] = oldarg;

40449

Tcl_AppendStringsToObj(pDumpObj, "-vl_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40450

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40451

cmd = _wrap_smPortInfo_vl_high_limit_get;

40452

oldarg = objv[2];

40453

objv[2] = obj;

40454

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40455

objv[2] = oldarg;

40456

Tcl_AppendStringsToObj(pDumpObj, "-vl_high_limit ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40457

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40458

cmd = _wrap_smPortInfo_vl_arb_high_cap_get;

40459

oldarg = objv[2];

40460

objv[2] = obj;

40461

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40462

objv[2] = oldarg;

40463

Tcl_AppendStringsToObj(pDumpObj, "-vl_arb_high_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40464

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40465

cmd = _wrap_smPortInfo_vl_arb_low_cap_get;

40466

oldarg = objv[2];

40467

objv[2] = obj;

40468

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40469

objv[2] = oldarg;

40470

Tcl_AppendStringsToObj(pDumpObj, "-vl_arb_low_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40471

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40472

cmd = _wrap_smPortInfo_mtu_cap_get;

40473

oldarg = objv[2];

40474

objv[2] = obj;

40475

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40476

objv[2] = oldarg;

40477

Tcl_AppendStringsToObj(pDumpObj, "-mtu_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40478

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40479

cmd = _wrap_smPortInfo_vl_stall_life_get;

40480

oldarg = objv[2];

40481

objv[2] = obj;

40482

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40483

objv[2] = oldarg;

40484

Tcl_AppendStringsToObj(pDumpObj, "-vl_stall_life ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40485

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40486

cmd = _wrap_smPortInfo_vl_enforce_get;

40487

oldarg = objv[2];

40488

objv[2] = obj;

40489

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40490

objv[2] = oldarg;

40491

Tcl_AppendStringsToObj(pDumpObj, "-vl_enforce ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40492

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40493

cmd = _wrap_smPortInfo_m_key_violations_get;

40494

oldarg = objv[2];

40495

objv[2] = obj;

40496

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40497

objv[2] = oldarg;

40498

Tcl_AppendStringsToObj(pDumpObj, "-m_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40499

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40500

cmd = _wrap_smPortInfo_p_key_violations_get;

40501

oldarg = objv[2];

40502

objv[2] = obj;

40503

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40504

objv[2] = oldarg;

40505

Tcl_AppendStringsToObj(pDumpObj, "-p_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40506

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40507

cmd = _wrap_smPortInfo_q_key_violations_get;

40508

oldarg = objv[2];

40509

objv[2] = obj;

40510

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40511

objv[2] = oldarg;

40512

Tcl_AppendStringsToObj(pDumpObj, "-q_key_violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40513

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40514

cmd = _wrap_smPortInfo_guid_cap_get;

40515

oldarg = objv[2];

40516

objv[2] = obj;

40517

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40518

objv[2] = oldarg;

40519

Tcl_AppendStringsToObj(pDumpObj, "-guid_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40520

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40521

cmd = _wrap_smPortInfo_subnet_timeout_get;

40522

oldarg = objv[2];

40523

objv[2] = obj;

40524

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40525

objv[2] = oldarg;

40526

Tcl_AppendStringsToObj(pDumpObj, "-subnet_timeout ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40527

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40528

cmd = _wrap_smPortInfo_resp_time_value_get;

40529

oldarg = objv[2];

40530

objv[2] = obj;

40531

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40532

objv[2] = oldarg;

40533

Tcl_AppendStringsToObj(pDumpObj, "-resp_time_value ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40534

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40535

cmd = _wrap_smPortInfo_error_threshold_get;

40536

oldarg = objv[2];

40537

objv[2] = obj;

40538

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

40539

objv[2] = oldarg;

40540

Tcl_AppendStringsToObj(pDumpObj, "-error_threshold ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

40541

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

40542

40543

Tcl_DecrRefCount(pDumpObj);

40544

return TCL_OK;

40545

} else {

40546

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

40547

return TCL_ERROR;

40548

}

40549

}

40550

if (!cmd) {

40551

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

40552

return TCL_ERROR;

40553

}

40554

oldarg = objv[1];

40555

objv[1] = obj;

40556

rcode = (*cmd)(clientData,interp,objc,objv);

40557

objv[1] = oldarg;

40558

return rcode;

40559

}

40560

40561

40562

40563

/* objcmd8.swg : Tcl 8.x object creation */

40564

40565

static int TclsmPortInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40566

void (*del)(ClientData) = 0;

40567

char *name = 0;

40568

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

40569

smPortInfo * newObj = 0;

40570

int firstarg = 0;

40571

int thisarg = 0;

40572

int length;

40573

char *_str;

40574

Tcl_Obj *tcl_result;

40575

40576

tcl_result = Tcl_GetObjResult(interp);

40577

if (objc == 1) {

40578

cmd = 0;

40579

} else {

40580

_str = Tcl_GetStringFromObj(objv[1],&length);

40581

if (strcmp(_str,"-this") == 0) thisarg = 2;

40582

else if (strcmp(_str,"-args") == 0) {

40583

firstarg = 1;

40584

cmd = 0;

40585

} else if (objc == 2) {

40586

firstarg = 1;

40587

name = _str;

40588

cmd = 0;

40589

} else if (objc >= 3) {

40590

name = _str;

40591

_str = Tcl_GetStringFromObj(objv[2],&length);

40592

if (strcmp(_str,"-this") == 0) thisarg = 3;

40593

else {

40594

firstarg = 1;

40595

cmd = 0;

40596

}

40597

}

40598

}

40599

if (cmd) {

40600

int result;

40601

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

40602

if (result == TCL_OK) {

40603

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smPortInfo_p");

40604

} else { return result; }

40605

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

40606

del = 0;

40607

} else if (thisarg > 0) {

40608

if (thisarg < objc) {

40609

char *r;

40610

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smPortInfo_p");

40611

if (r) {

40612

Tcl_SetStringObj(tcl_result,"Type error. not a smPortInfo object.",-1);

40613

return TCL_ERROR;

40614

}

40615

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

40616

Tcl_SetStringObj(tcl_result,name,-1);

40617

} else {

40618

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

40619

return TCL_ERROR;

40620

}

40621

} else {

40622

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

40623

return TCL_ERROR;

40624

}

40625

{

40626

Tcl_CmdInfo dummy;

40627

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

40628

Tcl_CreateObjCommand(interp,name, TclsmPortInfoMethodCmd, (ClientData) newObj, del);

40629

return TCL_OK;

40630

} else {

40631

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

40632

return TCL_ERROR;

40633

}

40634

}

40635

}

40636

40637

40638

#define _ibsm_switch_info_lin_cap_set(_swigobj,_swigval) (_swigobj->lin_cap = *(_swigval),_swigval)

40639

static int _wrap_smSwInfo_lin_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40640

40641

ib_net16_t * _result;

40642

smSwInfo * _arg0;

40643

ib_net16_t * _arg1;

40644

Tcl_Obj * tcl_result;

40645

char * rettype;

40646

ib_net16_t temp;

40647

40648

clientData = clientData; objv = objv;

40649

tcl_result = Tcl_GetObjResult(interp);

40650

if ((objc < 3) || (objc > 3)) {

40651

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lin_cap_set { smSwInfo * } { ib_net16_t * } ",-1);

40652

return TCL_ERROR;

40653

}

40654

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40655

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lin_cap_set. Expected _smSwInfo_p, received ", -1);

40656

Tcl_AppendToObj(tcl_result, rettype, -1);

40657

return TCL_ERROR;

40658

}

40659

{

40660

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

40661

_arg1 = &temp;

40662

}

40663

{

40664

/* we can check if IBIS was initialized here */

40665

if (!IbisObj.initialized)

40666

{

40667

Tcl_SetStringObj(

40668

Tcl_GetObjResult(interp),

40669

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40670

return TCL_ERROR;

40671

}

40672

40673

if (! IbisObj.port_guid)

40674

{

40675

Tcl_SetStringObj(

40676

Tcl_GetObjResult(interp),

40677

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40678

return TCL_ERROR;

40679

}

40680

40681

ibis_tcl_error = 0;

40682

_result = (ib_net16_t *)_ibsm_switch_info_lin_cap_set(_arg0,_arg1);

40683

;

40684

if (ibis_tcl_error) {

40685

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40686

return TCL_ERROR;

40687

}

40688

} tcl_result = Tcl_GetObjResult(interp);

40689

{

40690

char buff[20];

40691

sprintf(buff, "%u", cl_hton16(*_result));

40692

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40693

}

40694

return TCL_OK;

40695

}

40696

#define _ibsm_switch_info_lin_cap_get(_swigobj) (&_swigobj->lin_cap)

40697

static int _wrap_smSwInfo_lin_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40698

40699

ib_net16_t * _result;

40700

smSwInfo * _arg0;

40701

Tcl_Obj * tcl_result;

40702

char * rettype;

40703

40704

clientData = clientData; objv = objv;

40705

tcl_result = Tcl_GetObjResult(interp);

40706

if ((objc < 2) || (objc > 2)) {

40707

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lin_cap_get { smSwInfo * } ",-1);

40708

return TCL_ERROR;

40709

}

40710

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40711

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lin_cap_get. Expected _smSwInfo_p, received ", -1);

40712

Tcl_AppendToObj(tcl_result, rettype, -1);

40713

return TCL_ERROR;

40714

}

40715

{

40716

/* we can check if IBIS was initialized here */

40717

if (!IbisObj.initialized)

40718

{

40719

Tcl_SetStringObj(

40720

Tcl_GetObjResult(interp),

40721

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40722

return TCL_ERROR;

40723

}

40724

40725

if (! IbisObj.port_guid)

40726

{

40727

Tcl_SetStringObj(

40728

Tcl_GetObjResult(interp),

40729

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40730

return TCL_ERROR;

40731

}

40732

40733

ibis_tcl_error = 0;

40734

_result = (ib_net16_t *)_ibsm_switch_info_lin_cap_get(_arg0);

40735

;

40736

if (ibis_tcl_error) {

40737

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40738

return TCL_ERROR;

40739

}

40740

} tcl_result = Tcl_GetObjResult(interp);

40741

{

40742

char buff[20];

40743

sprintf(buff, "%u", cl_hton16(*_result));

40744

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40745

}

40746

return TCL_OK;

40747

}

40748

#define _ibsm_switch_info_rand_cap_set(_swigobj,_swigval) (_swigobj->rand_cap = *(_swigval),_swigval)

40749

static int _wrap_smSwInfo_rand_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40750

40751

ib_net16_t * _result;

40752

smSwInfo * _arg0;

40753

ib_net16_t * _arg1;

40754

Tcl_Obj * tcl_result;

40755

char * rettype;

40756

ib_net16_t temp;

40757

40758

clientData = clientData; objv = objv;

40759

tcl_result = Tcl_GetObjResult(interp);

40760

if ((objc < 3) || (objc > 3)) {

40761

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_rand_cap_set { smSwInfo * } { ib_net16_t * } ",-1);

40762

return TCL_ERROR;

40763

}

40764

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40765

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_rand_cap_set. Expected _smSwInfo_p, received ", -1);

40766

Tcl_AppendToObj(tcl_result, rettype, -1);

40767

return TCL_ERROR;

40768

}

40769

{

40770

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

40771

_arg1 = &temp;

40772

}

40773

{

40774

/* we can check if IBIS was initialized here */

40775

if (!IbisObj.initialized)

40776

{

40777

Tcl_SetStringObj(

40778

Tcl_GetObjResult(interp),

40779

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40780

return TCL_ERROR;

40781

}

40782

40783

if (! IbisObj.port_guid)

40784

{

40785

Tcl_SetStringObj(

40786

Tcl_GetObjResult(interp),

40787

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40788

return TCL_ERROR;

40789

}

40790

40791

ibis_tcl_error = 0;

40792

_result = (ib_net16_t *)_ibsm_switch_info_rand_cap_set(_arg0,_arg1);

40793

;

40794

if (ibis_tcl_error) {

40795

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40796

return TCL_ERROR;

40797

}

40798

} tcl_result = Tcl_GetObjResult(interp);

40799

{

40800

char buff[20];

40801

sprintf(buff, "%u", cl_hton16(*_result));

40802

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40803

}

40804

return TCL_OK;

40805

}

40806

#define _ibsm_switch_info_rand_cap_get(_swigobj) (&_swigobj->rand_cap)

40807

static int _wrap_smSwInfo_rand_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40808

40809

ib_net16_t * _result;

40810

smSwInfo * _arg0;

40811

Tcl_Obj * tcl_result;

40812

char * rettype;

40813

40814

clientData = clientData; objv = objv;

40815

tcl_result = Tcl_GetObjResult(interp);

40816

if ((objc < 2) || (objc > 2)) {

40817

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_rand_cap_get { smSwInfo * } ",-1);

40818

return TCL_ERROR;

40819

}

40820

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40821

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_rand_cap_get. Expected _smSwInfo_p, received ", -1);

40822

Tcl_AppendToObj(tcl_result, rettype, -1);

40823

return TCL_ERROR;

40824

}

40825

{

40826

/* we can check if IBIS was initialized here */

40827

if (!IbisObj.initialized)

40828

{

40829

Tcl_SetStringObj(

40830

Tcl_GetObjResult(interp),

40831

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40832

return TCL_ERROR;

40833

}

40834

40835

if (! IbisObj.port_guid)

40836

{

40837

Tcl_SetStringObj(

40838

Tcl_GetObjResult(interp),

40839

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40840

return TCL_ERROR;

40841

}

40842

40843

ibis_tcl_error = 0;

40844

_result = (ib_net16_t *)_ibsm_switch_info_rand_cap_get(_arg0);

40845

;

40846

if (ibis_tcl_error) {

40847

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40848

return TCL_ERROR;

40849

}

40850

} tcl_result = Tcl_GetObjResult(interp);

40851

{

40852

char buff[20];

40853

sprintf(buff, "%u", cl_hton16(*_result));

40854

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40855

}

40856

return TCL_OK;

40857

}

40858

#define _ibsm_switch_info_mcast_cap_set(_swigobj,_swigval) (_swigobj->mcast_cap = *(_swigval),_swigval)

40859

static int _wrap_smSwInfo_mcast_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40860

40861

ib_net16_t * _result;

40862

smSwInfo * _arg0;

40863

ib_net16_t * _arg1;

40864

Tcl_Obj * tcl_result;

40865

char * rettype;

40866

ib_net16_t temp;

40867

40868

clientData = clientData; objv = objv;

40869

tcl_result = Tcl_GetObjResult(interp);

40870

if ((objc < 3) || (objc > 3)) {

40871

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_mcast_cap_set { smSwInfo * } { ib_net16_t * } ",-1);

40872

return TCL_ERROR;

40873

}

40874

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40875

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_mcast_cap_set. Expected _smSwInfo_p, received ", -1);

40876

Tcl_AppendToObj(tcl_result, rettype, -1);

40877

return TCL_ERROR;

40878

}

40879

{

40880

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

40881

_arg1 = &temp;

40882

}

40883

{

40884

/* we can check if IBIS was initialized here */

40885

if (!IbisObj.initialized)

40886

{

40887

Tcl_SetStringObj(

40888

Tcl_GetObjResult(interp),

40889

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40890

return TCL_ERROR;

40891

}

40892

40893

if (! IbisObj.port_guid)

40894

{

40895

Tcl_SetStringObj(

40896

Tcl_GetObjResult(interp),

40897

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40898

return TCL_ERROR;

40899

}

40900

40901

ibis_tcl_error = 0;

40902

_result = (ib_net16_t *)_ibsm_switch_info_mcast_cap_set(_arg0,_arg1);

40903

;

40904

if (ibis_tcl_error) {

40905

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40906

return TCL_ERROR;

40907

}

40908

} tcl_result = Tcl_GetObjResult(interp);

40909

{

40910

char buff[20];

40911

sprintf(buff, "%u", cl_hton16(*_result));

40912

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40913

}

40914

return TCL_OK;

40915

}

40916

#define _ibsm_switch_info_mcast_cap_get(_swigobj) (&_swigobj->mcast_cap)

40917

static int _wrap_smSwInfo_mcast_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40918

40919

ib_net16_t * _result;

40920

smSwInfo * _arg0;

40921

Tcl_Obj * tcl_result;

40922

char * rettype;

40923

40924

clientData = clientData; objv = objv;

40925

tcl_result = Tcl_GetObjResult(interp);

40926

if ((objc < 2) || (objc > 2)) {

40927

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_mcast_cap_get { smSwInfo * } ",-1);

40928

return TCL_ERROR;

40929

}

40930

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40931

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_mcast_cap_get. Expected _smSwInfo_p, received ", -1);

40932

Tcl_AppendToObj(tcl_result, rettype, -1);

40933

return TCL_ERROR;

40934

}

40935

{

40936

/* we can check if IBIS was initialized here */

40937

if (!IbisObj.initialized)

40938

{

40939

Tcl_SetStringObj(

40940

Tcl_GetObjResult(interp),

40941

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

40942

return TCL_ERROR;

40943

}

40944

40945

if (! IbisObj.port_guid)

40946

{

40947

Tcl_SetStringObj(

40948

Tcl_GetObjResult(interp),

40949

" ibis was not yet initialized. please use ibis_set_port before.", -1);

40950

return TCL_ERROR;

40951

}

40952

40953

ibis_tcl_error = 0;

40954

_result = (ib_net16_t *)_ibsm_switch_info_mcast_cap_get(_arg0);

40955

;

40956

if (ibis_tcl_error) {

40957

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

40958

return TCL_ERROR;

40959

}

40960

} tcl_result = Tcl_GetObjResult(interp);

40961

{

40962

char buff[20];

40963

sprintf(buff, "%u", cl_hton16(*_result));

40964

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

40965

}

40966

return TCL_OK;

40967

}

40968

#define _ibsm_switch_info_lin_top_set(_swigobj,_swigval) (_swigobj->lin_top = *(_swigval),_swigval)

40969

static int _wrap_smSwInfo_lin_top_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

40970

40971

ib_net16_t * _result;

40972

smSwInfo * _arg0;

40973

ib_net16_t * _arg1;

40974

Tcl_Obj * tcl_result;

40975

char * rettype;

40976

ib_net16_t temp;

40977

40978

clientData = clientData; objv = objv;

40979

tcl_result = Tcl_GetObjResult(interp);

40980

if ((objc < 3) || (objc > 3)) {

40981

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lin_top_set { smSwInfo * } { ib_net16_t * } ",-1);

40982

return TCL_ERROR;

40983

}

40984

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

40985

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lin_top_set. Expected _smSwInfo_p, received ", -1);

40986

Tcl_AppendToObj(tcl_result, rettype, -1);

40987

return TCL_ERROR;

40988

}

40989

{

40990

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

40991

_arg1 = &temp;

40992

}

40993

{

40994

/* we can check if IBIS was initialized here */

40995

if (!IbisObj.initialized)

40996

{

40997

Tcl_SetStringObj(

40998

Tcl_GetObjResult(interp),

40999

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41000

return TCL_ERROR;

41001

}

41002

41003

if (! IbisObj.port_guid)

41004

{

41005

Tcl_SetStringObj(

41006

Tcl_GetObjResult(interp),

41007

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41008

return TCL_ERROR;

41009

}

41010

41011

ibis_tcl_error = 0;

41012

_result = (ib_net16_t *)_ibsm_switch_info_lin_top_set(_arg0,_arg1);

41013

;

41014

if (ibis_tcl_error) {

41015

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41016

return TCL_ERROR;

41017

}

41018

} tcl_result = Tcl_GetObjResult(interp);

41019

{

41020

char buff[20];

41021

sprintf(buff, "%u", cl_hton16(*_result));

41022

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41023

}

41024

return TCL_OK;

41025

}

41026

#define _ibsm_switch_info_lin_top_get(_swigobj) (&_swigobj->lin_top)

41027

static int _wrap_smSwInfo_lin_top_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41028

41029

ib_net16_t * _result;

41030

smSwInfo * _arg0;

41031

Tcl_Obj * tcl_result;

41032

char * rettype;

41033

41034

clientData = clientData; objv = objv;

41035

tcl_result = Tcl_GetObjResult(interp);

41036

if ((objc < 2) || (objc > 2)) {

41037

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lin_top_get { smSwInfo * } ",-1);

41038

return TCL_ERROR;

41039

}

41040

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41041

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lin_top_get. Expected _smSwInfo_p, received ", -1);

41042

Tcl_AppendToObj(tcl_result, rettype, -1);

41043

return TCL_ERROR;

41044

}

41045

{

41046

/* we can check if IBIS was initialized here */

41047

if (!IbisObj.initialized)

41048

{

41049

Tcl_SetStringObj(

41050

Tcl_GetObjResult(interp),

41051

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41052

return TCL_ERROR;

41053

}

41054

41055

if (! IbisObj.port_guid)

41056

{

41057

Tcl_SetStringObj(

41058

Tcl_GetObjResult(interp),

41059

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41060

return TCL_ERROR;

41061

}

41062

41063

ibis_tcl_error = 0;

41064

_result = (ib_net16_t *)_ibsm_switch_info_lin_top_get(_arg0);

41065

;

41066

if (ibis_tcl_error) {

41067

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41068

return TCL_ERROR;

41069

}

41070

} tcl_result = Tcl_GetObjResult(interp);

41071

{

41072

char buff[20];

41073

sprintf(buff, "%u", cl_hton16(*_result));

41074

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41075

}

41076

return TCL_OK;

41077

}

41078

#define _ibsm_switch_info_def_port_set(_swigobj,_swigval) (_swigobj->def_port = *(_swigval),_swigval)

41079

static int _wrap_smSwInfo_def_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41080

41081

uint8_t * _result;

41082

smSwInfo * _arg0;

41083

uint8_t * _arg1;

41084

Tcl_Obj * tcl_result;

41085

char * rettype;

41086

uint8_t temp;

41087

41088

clientData = clientData; objv = objv;

41089

tcl_result = Tcl_GetObjResult(interp);

41090

if ((objc < 3) || (objc > 3)) {

41091

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_port_set { smSwInfo * } { uint8_t * } ",-1);

41092

return TCL_ERROR;

41093

}

41094

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41095

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_port_set. Expected _smSwInfo_p, received ", -1);

41096

Tcl_AppendToObj(tcl_result, rettype, -1);

41097

return TCL_ERROR;

41098

}

41099

{

41100

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

41101

_arg1 = &temp;

41102

}

41103

{

41104

/* we can check if IBIS was initialized here */

41105

if (!IbisObj.initialized)

41106

{

41107

Tcl_SetStringObj(

41108

Tcl_GetObjResult(interp),

41109

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41110

return TCL_ERROR;

41111

}

41112

41113

if (! IbisObj.port_guid)

41114

{

41115

Tcl_SetStringObj(

41116

Tcl_GetObjResult(interp),

41117

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41118

return TCL_ERROR;

41119

}

41120

41121

ibis_tcl_error = 0;

41122

_result = (uint8_t *)_ibsm_switch_info_def_port_set(_arg0,_arg1);

41123

;

41124

if (ibis_tcl_error) {

41125

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41126

return TCL_ERROR;

41127

}

41128

} tcl_result = Tcl_GetObjResult(interp);

41129

{

41130

char buff[20];

41131

sprintf(buff, "%u", *_result);

41132

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41133

}

41134

return TCL_OK;

41135

}

41136

#define _ibsm_switch_info_def_port_get(_swigobj) (&_swigobj->def_port)

41137

static int _wrap_smSwInfo_def_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41138

41139

uint8_t * _result;

41140

smSwInfo * _arg0;

41141

Tcl_Obj * tcl_result;

41142

char * rettype;

41143

41144

clientData = clientData; objv = objv;

41145

tcl_result = Tcl_GetObjResult(interp);

41146

if ((objc < 2) || (objc > 2)) {

41147

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_port_get { smSwInfo * } ",-1);

41148

return TCL_ERROR;

41149

}

41150

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41151

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_port_get. Expected _smSwInfo_p, received ", -1);

41152

Tcl_AppendToObj(tcl_result, rettype, -1);

41153

return TCL_ERROR;

41154

}

41155

{

41156

/* we can check if IBIS was initialized here */

41157

if (!IbisObj.initialized)

41158

{

41159

Tcl_SetStringObj(

41160

Tcl_GetObjResult(interp),

41161

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41162

return TCL_ERROR;

41163

}

41164

41165

if (! IbisObj.port_guid)

41166

{

41167

Tcl_SetStringObj(

41168

Tcl_GetObjResult(interp),

41169

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41170

return TCL_ERROR;

41171

}

41172

41173

ibis_tcl_error = 0;

41174

_result = (uint8_t *)_ibsm_switch_info_def_port_get(_arg0);

41175

;

41176

if (ibis_tcl_error) {

41177

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41178

return TCL_ERROR;

41179

}

41180

} tcl_result = Tcl_GetObjResult(interp);

41181

{

41182

char buff[20];

41183

sprintf(buff, "%u", *_result);

41184

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41185

}

41186

return TCL_OK;

41187

}

41188

#define _ibsm_switch_info_def_mcast_pri_port_set(_swigobj,_swigval) (_swigobj->def_mcast_pri_port = *(_swigval),_swigval)

41189

static int _wrap_smSwInfo_def_mcast_pri_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41190

41191

uint8_t * _result;

41192

smSwInfo * _arg0;

41193

uint8_t * _arg1;

41194

Tcl_Obj * tcl_result;

41195

char * rettype;

41196

uint8_t temp;

41197

41198

clientData = clientData; objv = objv;

41199

tcl_result = Tcl_GetObjResult(interp);

41200

if ((objc < 3) || (objc > 3)) {

41201

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_mcast_pri_port_set { smSwInfo * } { uint8_t * } ",-1);

41202

return TCL_ERROR;

41203

}

41204

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41205

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_mcast_pri_port_set. Expected _smSwInfo_p, received ", -1);

41206

Tcl_AppendToObj(tcl_result, rettype, -1);

41207

return TCL_ERROR;

41208

}

41209

{

41210

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

41211

_arg1 = &temp;

41212

}

41213

{

41214

/* we can check if IBIS was initialized here */

41215

if (!IbisObj.initialized)

41216

{

41217

Tcl_SetStringObj(

41218

Tcl_GetObjResult(interp),

41219

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41220

return TCL_ERROR;

41221

}

41222

41223

if (! IbisObj.port_guid)

41224

{

41225

Tcl_SetStringObj(

41226

Tcl_GetObjResult(interp),

41227

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41228

return TCL_ERROR;

41229

}

41230

41231

ibis_tcl_error = 0;

41232

_result = (uint8_t *)_ibsm_switch_info_def_mcast_pri_port_set(_arg0,_arg1);

41233

;

41234

if (ibis_tcl_error) {

41235

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41236

return TCL_ERROR;

41237

}

41238

} tcl_result = Tcl_GetObjResult(interp);

41239

{

41240

char buff[20];

41241

sprintf(buff, "%u", *_result);

41242

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41243

}

41244

return TCL_OK;

41245

}

41246

#define _ibsm_switch_info_def_mcast_pri_port_get(_swigobj) (&_swigobj->def_mcast_pri_port)

41247

static int _wrap_smSwInfo_def_mcast_pri_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41248

41249

uint8_t * _result;

41250

smSwInfo * _arg0;

41251

Tcl_Obj * tcl_result;

41252

char * rettype;

41253

41254

clientData = clientData; objv = objv;

41255

tcl_result = Tcl_GetObjResult(interp);

41256

if ((objc < 2) || (objc > 2)) {

41257

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_mcast_pri_port_get { smSwInfo * } ",-1);

41258

return TCL_ERROR;

41259

}

41260

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41261

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_mcast_pri_port_get. Expected _smSwInfo_p, received ", -1);

41262

Tcl_AppendToObj(tcl_result, rettype, -1);

41263

return TCL_ERROR;

41264

}

41265

{

41266

/* we can check if IBIS was initialized here */

41267

if (!IbisObj.initialized)

41268

{

41269

Tcl_SetStringObj(

41270

Tcl_GetObjResult(interp),

41271

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41272

return TCL_ERROR;

41273

}

41274

41275

if (! IbisObj.port_guid)

41276

{

41277

Tcl_SetStringObj(

41278

Tcl_GetObjResult(interp),

41279

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41280

return TCL_ERROR;

41281

}

41282

41283

ibis_tcl_error = 0;

41284

_result = (uint8_t *)_ibsm_switch_info_def_mcast_pri_port_get(_arg0);

41285

;

41286

if (ibis_tcl_error) {

41287

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41288

return TCL_ERROR;

41289

}

41290

} tcl_result = Tcl_GetObjResult(interp);

41291

{

41292

char buff[20];

41293

sprintf(buff, "%u", *_result);

41294

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41295

}

41296

return TCL_OK;

41297

}

41298

#define _ibsm_switch_info_def_mcast_not_port_set(_swigobj,_swigval) (_swigobj->def_mcast_not_port = *(_swigval),_swigval)

41299

static int _wrap_smSwInfo_def_mcast_not_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41300

41301

uint8_t * _result;

41302

smSwInfo * _arg0;

41303

uint8_t * _arg1;

41304

Tcl_Obj * tcl_result;

41305

char * rettype;

41306

uint8_t temp;

41307

41308

clientData = clientData; objv = objv;

41309

tcl_result = Tcl_GetObjResult(interp);

41310

if ((objc < 3) || (objc > 3)) {

41311

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_mcast_not_port_set { smSwInfo * } { uint8_t * } ",-1);

41312

return TCL_ERROR;

41313

}

41314

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41315

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_mcast_not_port_set. Expected _smSwInfo_p, received ", -1);

41316

Tcl_AppendToObj(tcl_result, rettype, -1);

41317

return TCL_ERROR;

41318

}

41319

{

41320

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

41321

_arg1 = &temp;

41322

}

41323

{

41324

/* we can check if IBIS was initialized here */

41325

if (!IbisObj.initialized)

41326

{

41327

Tcl_SetStringObj(

41328

Tcl_GetObjResult(interp),

41329

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41330

return TCL_ERROR;

41331

}

41332

41333

if (! IbisObj.port_guid)

41334

{

41335

Tcl_SetStringObj(

41336

Tcl_GetObjResult(interp),

41337

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41338

return TCL_ERROR;

41339

}

41340

41341

ibis_tcl_error = 0;

41342

_result = (uint8_t *)_ibsm_switch_info_def_mcast_not_port_set(_arg0,_arg1);

41343

;

41344

if (ibis_tcl_error) {

41345

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41346

return TCL_ERROR;

41347

}

41348

} tcl_result = Tcl_GetObjResult(interp);

41349

{

41350

char buff[20];

41351

sprintf(buff, "%u", *_result);

41352

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41353

}

41354

return TCL_OK;

41355

}

41356

#define _ibsm_switch_info_def_mcast_not_port_get(_swigobj) (&_swigobj->def_mcast_not_port)

41357

static int _wrap_smSwInfo_def_mcast_not_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41358

41359

uint8_t * _result;

41360

smSwInfo * _arg0;

41361

Tcl_Obj * tcl_result;

41362

char * rettype;

41363

41364

clientData = clientData; objv = objv;

41365

tcl_result = Tcl_GetObjResult(interp);

41366

if ((objc < 2) || (objc > 2)) {

41367

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_def_mcast_not_port_get { smSwInfo * } ",-1);

41368

return TCL_ERROR;

41369

}

41370

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41371

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_def_mcast_not_port_get. Expected _smSwInfo_p, received ", -1);

41372

Tcl_AppendToObj(tcl_result, rettype, -1);

41373

return TCL_ERROR;

41374

}

41375

{

41376

/* we can check if IBIS was initialized here */

41377

if (!IbisObj.initialized)

41378

{

41379

Tcl_SetStringObj(

41380

Tcl_GetObjResult(interp),

41381

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41382

return TCL_ERROR;

41383

}

41384

41385

if (! IbisObj.port_guid)

41386

{

41387

Tcl_SetStringObj(

41388

Tcl_GetObjResult(interp),

41389

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41390

return TCL_ERROR;

41391

}

41392

41393

ibis_tcl_error = 0;

41394

_result = (uint8_t *)_ibsm_switch_info_def_mcast_not_port_get(_arg0);

41395

;

41396

if (ibis_tcl_error) {

41397

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41398

return TCL_ERROR;

41399

}

41400

} tcl_result = Tcl_GetObjResult(interp);

41401

{

41402

char buff[20];

41403

sprintf(buff, "%u", *_result);

41404

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41405

}

41406

return TCL_OK;

41407

}

41408

#define _ibsm_switch_info_life_state_set(_swigobj,_swigval) (_swigobj->life_state = *(_swigval),_swigval)

41409

static int _wrap_smSwInfo_life_state_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41410

41411

uint8_t * _result;

41412

smSwInfo * _arg0;

41413

uint8_t * _arg1;

41414

Tcl_Obj * tcl_result;

41415

char * rettype;

41416

uint8_t temp;

41417

41418

clientData = clientData; objv = objv;

41419

tcl_result = Tcl_GetObjResult(interp);

41420

if ((objc < 3) || (objc > 3)) {

41421

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_life_state_set { smSwInfo * } { uint8_t * } ",-1);

41422

return TCL_ERROR;

41423

}

41424

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41425

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_life_state_set. Expected _smSwInfo_p, received ", -1);

41426

Tcl_AppendToObj(tcl_result, rettype, -1);

41427

return TCL_ERROR;

41428

}

41429

{

41430

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

41431

_arg1 = &temp;

41432

}

41433

{

41434

/* we can check if IBIS was initialized here */

41435

if (!IbisObj.initialized)

41436

{

41437

Tcl_SetStringObj(

41438

Tcl_GetObjResult(interp),

41439

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41440

return TCL_ERROR;

41441

}

41442

41443

if (! IbisObj.port_guid)

41444

{

41445

Tcl_SetStringObj(

41446

Tcl_GetObjResult(interp),

41447

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41448

return TCL_ERROR;

41449

}

41450

41451

ibis_tcl_error = 0;

41452

_result = (uint8_t *)_ibsm_switch_info_life_state_set(_arg0,_arg1);

41453

;

41454

if (ibis_tcl_error) {

41455

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41456

return TCL_ERROR;

41457

}

41458

} tcl_result = Tcl_GetObjResult(interp);

41459

{

41460

char buff[20];

41461

sprintf(buff, "%u", *_result);

41462

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41463

}

41464

return TCL_OK;

41465

}

41466

#define _ibsm_switch_info_life_state_get(_swigobj) (&_swigobj->life_state)

41467

static int _wrap_smSwInfo_life_state_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41468

41469

uint8_t * _result;

41470

smSwInfo * _arg0;

41471

Tcl_Obj * tcl_result;

41472

char * rettype;

41473

41474

clientData = clientData; objv = objv;

41475

tcl_result = Tcl_GetObjResult(interp);

41476

if ((objc < 2) || (objc > 2)) {

41477

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_life_state_get { smSwInfo * } ",-1);

41478

return TCL_ERROR;

41479

}

41480

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41481

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_life_state_get. Expected _smSwInfo_p, received ", -1);

41482

Tcl_AppendToObj(tcl_result, rettype, -1);

41483

return TCL_ERROR;

41484

}

41485

{

41486

/* we can check if IBIS was initialized here */

41487

if (!IbisObj.initialized)

41488

{

41489

Tcl_SetStringObj(

41490

Tcl_GetObjResult(interp),

41491

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41492

return TCL_ERROR;

41493

}

41494

41495

if (! IbisObj.port_guid)

41496

{

41497

Tcl_SetStringObj(

41498

Tcl_GetObjResult(interp),

41499

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41500

return TCL_ERROR;

41501

}

41502

41503

ibis_tcl_error = 0;

41504

_result = (uint8_t *)_ibsm_switch_info_life_state_get(_arg0);

41505

;

41506

if (ibis_tcl_error) {

41507

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41508

return TCL_ERROR;

41509

}

41510

} tcl_result = Tcl_GetObjResult(interp);

41511

{

41512

char buff[20];

41513

sprintf(buff, "%u", *_result);

41514

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41515

}

41516

return TCL_OK;

41517

}

41518

#define _ibsm_switch_info_lids_per_port_set(_swigobj,_swigval) (_swigobj->lids_per_port = *(_swigval),_swigval)

41519

static int _wrap_smSwInfo_lids_per_port_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41520

41521

ib_net16_t * _result;

41522

smSwInfo * _arg0;

41523

ib_net16_t * _arg1;

41524

Tcl_Obj * tcl_result;

41525

char * rettype;

41526

ib_net16_t temp;

41527

41528

clientData = clientData; objv = objv;

41529

tcl_result = Tcl_GetObjResult(interp);

41530

if ((objc < 3) || (objc > 3)) {

41531

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lids_per_port_set { smSwInfo * } { ib_net16_t * } ",-1);

41532

return TCL_ERROR;

41533

}

41534

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41535

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lids_per_port_set. Expected _smSwInfo_p, received ", -1);

41536

Tcl_AppendToObj(tcl_result, rettype, -1);

41537

return TCL_ERROR;

41538

}

41539

{

41540

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

41541

_arg1 = &temp;

41542

}

41543

{

41544

/* we can check if IBIS was initialized here */

41545

if (!IbisObj.initialized)

41546

{

41547

Tcl_SetStringObj(

41548

Tcl_GetObjResult(interp),

41549

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41550

return TCL_ERROR;

41551

}

41552

41553

if (! IbisObj.port_guid)

41554

{

41555

Tcl_SetStringObj(

41556

Tcl_GetObjResult(interp),

41557

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41558

return TCL_ERROR;

41559

}

41560

41561

ibis_tcl_error = 0;

41562

_result = (ib_net16_t *)_ibsm_switch_info_lids_per_port_set(_arg0,_arg1);

41563

;

41564

if (ibis_tcl_error) {

41565

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41566

return TCL_ERROR;

41567

}

41568

} tcl_result = Tcl_GetObjResult(interp);

41569

{

41570

char buff[20];

41571

sprintf(buff, "%u", cl_hton16(*_result));

41572

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41573

}

41574

return TCL_OK;

41575

}

41576

#define _ibsm_switch_info_lids_per_port_get(_swigobj) (&_swigobj->lids_per_port)

41577

static int _wrap_smSwInfo_lids_per_port_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41578

41579

ib_net16_t * _result;

41580

smSwInfo * _arg0;

41581

Tcl_Obj * tcl_result;

41582

char * rettype;

41583

41584

clientData = clientData; objv = objv;

41585

tcl_result = Tcl_GetObjResult(interp);

41586

if ((objc < 2) || (objc > 2)) {

41587

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_lids_per_port_get { smSwInfo * } ",-1);

41588

return TCL_ERROR;

41589

}

41590

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41591

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_lids_per_port_get. Expected _smSwInfo_p, received ", -1);

41592

Tcl_AppendToObj(tcl_result, rettype, -1);

41593

return TCL_ERROR;

41594

}

41595

{

41596

/* we can check if IBIS was initialized here */

41597

if (!IbisObj.initialized)

41598

{

41599

Tcl_SetStringObj(

41600

Tcl_GetObjResult(interp),

41601

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41602

return TCL_ERROR;

41603

}

41604

41605

if (! IbisObj.port_guid)

41606

{

41607

Tcl_SetStringObj(

41608

Tcl_GetObjResult(interp),

41609

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41610

return TCL_ERROR;

41611

}

41612

41613

ibis_tcl_error = 0;

41614

_result = (ib_net16_t *)_ibsm_switch_info_lids_per_port_get(_arg0);

41615

;

41616

if (ibis_tcl_error) {

41617

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41618

return TCL_ERROR;

41619

}

41620

} tcl_result = Tcl_GetObjResult(interp);

41621

{

41622

char buff[20];

41623

sprintf(buff, "%u", cl_hton16(*_result));

41624

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41625

}

41626

return TCL_OK;

41627

}

41628

#define _ibsm_switch_info_enforce_cap_set(_swigobj,_swigval) (_swigobj->enforce_cap = *(_swigval),_swigval)

41629

static int _wrap_smSwInfo_enforce_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41630

41631

ib_net16_t * _result;

41632

smSwInfo * _arg0;

41633

ib_net16_t * _arg1;

41634

Tcl_Obj * tcl_result;

41635

char * rettype;

41636

ib_net16_t temp;

41637

41638

clientData = clientData; objv = objv;

41639

tcl_result = Tcl_GetObjResult(interp);

41640

if ((objc < 3) || (objc > 3)) {

41641

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_enforce_cap_set { smSwInfo * } { ib_net16_t * } ",-1);

41642

return TCL_ERROR;

41643

}

41644

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41645

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_enforce_cap_set. Expected _smSwInfo_p, received ", -1);

41646

Tcl_AppendToObj(tcl_result, rettype, -1);

41647

return TCL_ERROR;

41648

}

41649

{

41650

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

41651

_arg1 = &temp;

41652

}

41653

{

41654

/* we can check if IBIS was initialized here */

41655

if (!IbisObj.initialized)

41656

{

41657

Tcl_SetStringObj(

41658

Tcl_GetObjResult(interp),

41659

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41660

return TCL_ERROR;

41661

}

41662

41663

if (! IbisObj.port_guid)

41664

{

41665

Tcl_SetStringObj(

41666

Tcl_GetObjResult(interp),

41667

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41668

return TCL_ERROR;

41669

}

41670

41671

ibis_tcl_error = 0;

41672

_result = (ib_net16_t *)_ibsm_switch_info_enforce_cap_set(_arg0,_arg1);

41673

;

41674

if (ibis_tcl_error) {

41675

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41676

return TCL_ERROR;

41677

}

41678

} tcl_result = Tcl_GetObjResult(interp);

41679

{

41680

char buff[20];

41681

sprintf(buff, "%u", cl_hton16(*_result));

41682

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41683

}

41684

return TCL_OK;

41685

}

41686

#define _ibsm_switch_info_enforce_cap_get(_swigobj) (&_swigobj->enforce_cap)

41687

static int _wrap_smSwInfo_enforce_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41688

41689

ib_net16_t * _result;

41690

smSwInfo * _arg0;

41691

Tcl_Obj * tcl_result;

41692

char * rettype;

41693

41694

clientData = clientData; objv = objv;

41695

tcl_result = Tcl_GetObjResult(interp);

41696

if ((objc < 2) || (objc > 2)) {

41697

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_enforce_cap_get { smSwInfo * } ",-1);

41698

return TCL_ERROR;

41699

}

41700

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41701

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_enforce_cap_get. Expected _smSwInfo_p, received ", -1);

41702

Tcl_AppendToObj(tcl_result, rettype, -1);

41703

return TCL_ERROR;

41704

}

41705

{

41706

/* we can check if IBIS was initialized here */

41707

if (!IbisObj.initialized)

41708

{

41709

Tcl_SetStringObj(

41710

Tcl_GetObjResult(interp),

41711

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41712

return TCL_ERROR;

41713

}

41714

41715

if (! IbisObj.port_guid)

41716

{

41717

Tcl_SetStringObj(

41718

Tcl_GetObjResult(interp),

41719

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41720

return TCL_ERROR;

41721

}

41722

41723

ibis_tcl_error = 0;

41724

_result = (ib_net16_t *)_ibsm_switch_info_enforce_cap_get(_arg0);

41725

;

41726

if (ibis_tcl_error) {

41727

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41728

return TCL_ERROR;

41729

}

41730

} tcl_result = Tcl_GetObjResult(interp);

41731

{

41732

char buff[20];

41733

sprintf(buff, "%u", cl_hton16(*_result));

41734

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41735

}

41736

return TCL_OK;

41737

}

41738

#define _ibsm_switch_info_flags_set(_swigobj,_swigval) (_swigobj->flags = *(_swigval),_swigval)

41739

static int _wrap_smSwInfo_flags_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41740

41741

uint8_t * _result;

41742

smSwInfo * _arg0;

41743

uint8_t * _arg1;

41744

Tcl_Obj * tcl_result;

41745

char * rettype;

41746

uint8_t temp;

41747

41748

clientData = clientData; objv = objv;

41749

tcl_result = Tcl_GetObjResult(interp);

41750

if ((objc < 3) || (objc > 3)) {

41751

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_flags_set { smSwInfo * } { uint8_t * } ",-1);

41752

return TCL_ERROR;

41753

}

41754

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41755

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_flags_set. Expected _smSwInfo_p, received ", -1);

41756

Tcl_AppendToObj(tcl_result, rettype, -1);

41757

return TCL_ERROR;

41758

}

41759

{

41760

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

41761

_arg1 = &temp;

41762

}

41763

{

41764

/* we can check if IBIS was initialized here */

41765

if (!IbisObj.initialized)

41766

{

41767

Tcl_SetStringObj(

41768

Tcl_GetObjResult(interp),

41769

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41770

return TCL_ERROR;

41771

}

41772

41773

if (! IbisObj.port_guid)

41774

{

41775

Tcl_SetStringObj(

41776

Tcl_GetObjResult(interp),

41777

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41778

return TCL_ERROR;

41779

}

41780

41781

ibis_tcl_error = 0;

41782

_result = (uint8_t *)_ibsm_switch_info_flags_set(_arg0,_arg1);

41783

;

41784

if (ibis_tcl_error) {

41785

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41786

return TCL_ERROR;

41787

}

41788

} tcl_result = Tcl_GetObjResult(interp);

41789

{

41790

char buff[20];

41791

sprintf(buff, "%u", *_result);

41792

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41793

}

41794

return TCL_OK;

41795

}

41796

#define _ibsm_switch_info_flags_get(_swigobj) (&_swigobj->flags)

41797

static int _wrap_smSwInfo_flags_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41798

41799

uint8_t * _result;

41800

smSwInfo * _arg0;

41801

Tcl_Obj * tcl_result;

41802

char * rettype;

41803

41804

clientData = clientData; objv = objv;

41805

tcl_result = Tcl_GetObjResult(interp);

41806

if ((objc < 2) || (objc > 2)) {

41807

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_flags_get { smSwInfo * } ",-1);

41808

return TCL_ERROR;

41809

}

41810

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41811

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_flags_get. Expected _smSwInfo_p, received ", -1);

41812

Tcl_AppendToObj(tcl_result, rettype, -1);

41813

return TCL_ERROR;

41814

}

41815

{

41816

/* we can check if IBIS was initialized here */

41817

if (!IbisObj.initialized)

41818

{

41819

Tcl_SetStringObj(

41820

Tcl_GetObjResult(interp),

41821

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41822

return TCL_ERROR;

41823

}

41824

41825

if (! IbisObj.port_guid)

41826

{

41827

Tcl_SetStringObj(

41828

Tcl_GetObjResult(interp),

41829

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41830

return TCL_ERROR;

41831

}

41832

41833

ibis_tcl_error = 0;

41834

_result = (uint8_t *)_ibsm_switch_info_flags_get(_arg0);

41835

;

41836

if (ibis_tcl_error) {

41837

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41838

return TCL_ERROR;

41839

}

41840

} tcl_result = Tcl_GetObjResult(interp);

41841

{

41842

char buff[20];

41843

sprintf(buff, "%u", *_result);

41844

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

41845

}

41846

return TCL_OK;

41847

}

41848

static int smSwInfo_getByDr(smSwInfo *self,ibsm_dr_path_t * dr) {

41849

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSwInfo),

41850

dr, CL_NTOH16(IB_MAD_ATTR_SWITCH_INFO), 0,

41851

IB_MAD_METHOD_GET));

41852

}

41853

static int _wrap_smSwInfo_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41854

41855

int _result;

41856

smSwInfo * _arg0;

41857

ibsm_dr_path_t * _arg1;

41858

Tcl_Obj * tcl_result;

41859

char * rettype;

41860

ibsm_dr_path_t dr;

41861

41862

clientData = clientData; objv = objv;

41863

tcl_result = Tcl_GetObjResult(interp);

41864

if ((objc < 3) || (objc > 3)) {

41865

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_getByDr { smSwInfo * } dr ",-1);

41866

return TCL_ERROR;

41867

}

41868

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41869

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_getByDr. Expected _smSwInfo_p, received ", -1);

41870

Tcl_AppendToObj(tcl_result, rettype, -1);

41871

return TCL_ERROR;

41872

}

41873

{

41874

char buf[1024];

41875

char *p_next;

41876

unsigned int port;

41877

int i;

41878

41879

dr.count = 1;

41880

dr.path[0] = 0;

41881

41882

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

41883

buf[1023] = '\0';

41884

p_next = strtok(buf," \t");

41885

while (p_next != NULL)

41886

{

41887

if (sscanf(p_next,"%u", &port) != 1)

41888

{

41889

printf("Error: bad format in directed route path index:%u : %s\n",

41890

dr.count, p_next);

41891

return TCL_ERROR;

41892

}

41893

dr.path[dr.count++] = port;

41894

p_next = strtok(NULL," \t");

41895

}

41896

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

41897

dr.count--;

41898

_arg1 = &dr;

41899

}

41900

{

41901

/* we can check if IBIS was initialized here */

41902

if (!IbisObj.initialized)

41903

{

41904

Tcl_SetStringObj(

41905

Tcl_GetObjResult(interp),

41906

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41907

return TCL_ERROR;

41908

}

41909

41910

if (! IbisObj.port_guid)

41911

{

41912

Tcl_SetStringObj(

41913

Tcl_GetObjResult(interp),

41914

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41915

return TCL_ERROR;

41916

}

41917

41918

ibis_tcl_error = 0;

41919

_result = (int )smSwInfo_getByDr(_arg0,_arg1);

41920

;

41921

if (ibis_tcl_error) {

41922

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

41923

return TCL_ERROR;

41924

}

41925

} tcl_result = Tcl_GetObjResult(interp);

41926

Tcl_SetIntObj(tcl_result,(long) _result);

41927

return TCL_OK;

41928

}

41929

static int smSwInfo_setByDr(smSwInfo *self,ibsm_dr_path_t * dr) {

41930

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSwInfo),

41931

dr, CL_NTOH16(IB_MAD_ATTR_SWITCH_INFO), 0,

41932

IB_MAD_METHOD_SET));

41933

}

41934

static int _wrap_smSwInfo_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

41935

41936

int _result;

41937

smSwInfo * _arg0;

41938

ibsm_dr_path_t * _arg1;

41939

Tcl_Obj * tcl_result;

41940

char * rettype;

41941

ibsm_dr_path_t dr;

41942

41943

clientData = clientData; objv = objv;

41944

tcl_result = Tcl_GetObjResult(interp);

41945

if ((objc < 3) || (objc > 3)) {

41946

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_setByDr { smSwInfo * } dr ",-1);

41947

return TCL_ERROR;

41948

}

41949

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

41950

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_setByDr. Expected _smSwInfo_p, received ", -1);

41951

Tcl_AppendToObj(tcl_result, rettype, -1);

41952

return TCL_ERROR;

41953

}

41954

{

41955

char buf[1024];

41956

char *p_next;

41957

unsigned int port;

41958

int i;

41959

41960

dr.count = 1;

41961

dr.path[0] = 0;

41962

41963

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

41964

buf[1023] = '\0';

41965

p_next = strtok(buf," \t");

41966

while (p_next != NULL)

41967

{

41968

if (sscanf(p_next,"%u", &port) != 1)

41969

{

41970

printf("Error: bad format in directed route path index:%u : %s\n",

41971

dr.count, p_next);

41972

return TCL_ERROR;

41973

}

41974

dr.path[dr.count++] = port;

41975

p_next = strtok(NULL," \t");

41976

}

41977

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

41978

dr.count--;

41979

_arg1 = &dr;

41980

}

41981

{

41982

/* we can check if IBIS was initialized here */

41983

if (!IbisObj.initialized)

41984

{

41985

Tcl_SetStringObj(

41986

Tcl_GetObjResult(interp),

41987

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

41988

return TCL_ERROR;

41989

}

41990

41991

if (! IbisObj.port_guid)

41992

{

41993

Tcl_SetStringObj(

41994

Tcl_GetObjResult(interp),

41995

" ibis was not yet initialized. please use ibis_set_port before.", -1);

41996

return TCL_ERROR;

41997

}

41998

41999

ibis_tcl_error = 0;

42000

_result = (int )smSwInfo_setByDr(_arg0,_arg1);

42001

;

42002

if (ibis_tcl_error) {

42003

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42004

return TCL_ERROR;

42005

}

42006

} tcl_result = Tcl_GetObjResult(interp);

42007

Tcl_SetIntObj(tcl_result,(long) _result);

42008

return TCL_OK;

42009

}

42010

static int smSwInfo_getByLid(smSwInfo *self,uint16_t lid) {

42011

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSwInfo),

42012

lid, CL_NTOH16(IB_MAD_ATTR_SWITCH_INFO), 0,

42013

IB_MAD_METHOD_GET));

42014

}

42015

static int _wrap_smSwInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42016

42017

int _result;

42018

smSwInfo * _arg0;

42019

uint16_t * _arg1;

42020

Tcl_Obj * tcl_result;

42021

char * rettype;

42022

uint16_t temp;

42023

42024

clientData = clientData; objv = objv;

42025

tcl_result = Tcl_GetObjResult(interp);

42026

if ((objc < 3) || (objc > 3)) {

42027

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_getByLid { smSwInfo * } lid ",-1);

42028

return TCL_ERROR;

42029

}

42030

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

42031

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_getByLid. Expected _smSwInfo_p, received ", -1);

42032

Tcl_AppendToObj(tcl_result, rettype, -1);

42033

return TCL_ERROR;

42034

}

42035

{

42036

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

42037

_arg1 = &temp;

42038

}

42039

{

42040

/* we can check if IBIS was initialized here */

42041

if (!IbisObj.initialized)

42042

{

42043

Tcl_SetStringObj(

42044

Tcl_GetObjResult(interp),

42045

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42046

return TCL_ERROR;

42047

}

42048

42049

if (! IbisObj.port_guid)

42050

{

42051

Tcl_SetStringObj(

42052

Tcl_GetObjResult(interp),

42053

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42054

return TCL_ERROR;

42055

}

42056

42057

ibis_tcl_error = 0;

42058

_result = (int )smSwInfo_getByLid(_arg0,*_arg1);

42059

;

42060

if (ibis_tcl_error) {

42061

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42062

return TCL_ERROR;

42063

}

42064

} tcl_result = Tcl_GetObjResult(interp);

42065

Tcl_SetIntObj(tcl_result,(long) _result);

42066

return TCL_OK;

42067

}

42068

static int smSwInfo_setByLid(smSwInfo *self,uint16_t lid) {

42069

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSwInfo),

42070

lid, CL_NTOH16(IB_MAD_ATTR_SWITCH_INFO), 0,

42071

IB_MAD_METHOD_SET));

42072

}

42073

static int _wrap_smSwInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42074

42075

int _result;

42076

smSwInfo * _arg0;

42077

uint16_t * _arg1;

42078

Tcl_Obj * tcl_result;

42079

char * rettype;

42080

uint16_t temp;

42081

42082

clientData = clientData; objv = objv;

42083

tcl_result = Tcl_GetObjResult(interp);

42084

if ((objc < 3) || (objc > 3)) {

42085

Tcl_SetStringObj(tcl_result,"Wrong # args. smSwInfo_setByLid { smSwInfo * } lid ",-1);

42086

return TCL_ERROR;

42087

}

42088

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSwInfo_p"))) {

42089

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSwInfo_setByLid. Expected _smSwInfo_p, received ", -1);

42090

Tcl_AppendToObj(tcl_result, rettype, -1);

42091

return TCL_ERROR;

42092

}

42093

{

42094

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

42095

_arg1 = &temp;

42096

}

42097

{

42098

/* we can check if IBIS was initialized here */

42099

if (!IbisObj.initialized)

42100

{

42101

Tcl_SetStringObj(

42102

Tcl_GetObjResult(interp),

42103

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42104

return TCL_ERROR;

42105

}

42106

42107

if (! IbisObj.port_guid)

42108

{

42109

Tcl_SetStringObj(

42110

Tcl_GetObjResult(interp),

42111

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42112

return TCL_ERROR;

42113

}

42114

42115

ibis_tcl_error = 0;

42116

_result = (int )smSwInfo_setByLid(_arg0,*_arg1);

42117

;

42118

if (ibis_tcl_error) {

42119

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42120

return TCL_ERROR;

42121

}

42122

} tcl_result = Tcl_GetObjResult(interp);

42123

Tcl_SetIntObj(tcl_result,(long) _result);

42124

return TCL_OK;

42125

}

42126

/* methodcmd8.swg : Tcl8.x method invocation */

42127

42128

static int TclsmSwInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

42129

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

42130

char *_str;

42131

int rcode;

42132

Tcl_Obj **objv;

42133

Tcl_Obj *oldarg,*tcl_result,*obj;

42134

int length;

42135

char c;

42136

42137

tcl_result = Tcl_GetObjResult(interp);

42138

objv = (Tcl_Obj **) _objv;

42139

if (objc < 2) {

42140

Tcl_SetStringObj(tcl_result,"smSwInfo methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

42141

return TCL_ERROR;

42142

}

42143

obj = Tcl_NewObj();

42144

SWIG_SetPointerObj(obj,(void *) clientData,"_smSwInfo_p");

42145

_str = Tcl_GetStringFromObj(objv[1],&length);

42146

c = *_str;

42147

if (0);

42148

if (strcmp(_str,"getByDr") == 0) {

42149

cmd = _wrap_smSwInfo_getByDr;

42150

} else if (strcmp(_str,"setByDr") == 0) {

42151

cmd = _wrap_smSwInfo_setByDr;

42152

} else if (strcmp(_str,"getByLid") == 0) {

42153

cmd = _wrap_smSwInfo_getByLid;

42154

} else if (strcmp(_str,"setByLid") == 0) {

42155

cmd = _wrap_smSwInfo_setByLid;

42156

}

42157

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

42158

int i = 2;

42159

cmd = 0;

42160

while (i+1 < objc) {

42161

_str = Tcl_GetStringFromObj(objv[i],&length);

42162

if (strcmp(_str,"-lin_cap") == 0) {

42163

cmd = _wrap_smSwInfo_lin_cap_set;

42164

} else if (strcmp(_str,"-rand_cap") == 0) {

42165

cmd = _wrap_smSwInfo_rand_cap_set;

42166

} else if (strcmp(_str,"-mcast_cap") == 0) {

42167

cmd = _wrap_smSwInfo_mcast_cap_set;

42168

} else if (strcmp(_str,"-lin_top") == 0) {

42169

cmd = _wrap_smSwInfo_lin_top_set;

42170

} else if (strcmp(_str,"-def_port") == 0) {

42171

cmd = _wrap_smSwInfo_def_port_set;

42172

} else if (strcmp(_str,"-def_mcast_pri_port") == 0) {

42173

cmd = _wrap_smSwInfo_def_mcast_pri_port_set;

42174

} else if (strcmp(_str,"-def_mcast_not_port") == 0) {

42175

cmd = _wrap_smSwInfo_def_mcast_not_port_set;

42176

} else if (strcmp(_str,"-life_state") == 0) {

42177

cmd = _wrap_smSwInfo_life_state_set;

42178

} else if (strcmp(_str,"-lids_per_port") == 0) {

42179

cmd = _wrap_smSwInfo_lids_per_port_set;

42180

} else if (strcmp(_str,"-enforce_cap") == 0) {

42181

cmd = _wrap_smSwInfo_enforce_cap_set;

42182

} else if (strcmp(_str,"-flags") == 0) {

42183

cmd = _wrap_smSwInfo_flags_set;

42184

}

42185

if (cmd) {

42186

oldarg = objv[i];

42187

objv[i] = obj;

42188

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

42189

objv[i] = oldarg;

42190

if (rcode == TCL_ERROR) return rcode;

42191

cmd = 0;

42192

} else {

42193

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

42194

return TCL_ERROR;

42195

}

42196

i+=2;

42197

}

42198

if ((i < objc) || (i == 2)) {

42199

Tcl_SetStringObj(tcl_result,"{ -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

42200

return TCL_ERROR;

42201

}

42202

return TCL_OK;

42203

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

42204

if (objc == 3) {

42205

_str = Tcl_GetStringFromObj(objv[2],&length);

42206

if (0) {}

42207

if (strcmp(_str,"-lin_cap") == 0) {

42208

cmd = _wrap_smSwInfo_lin_cap_get;

42209

} else if (strcmp(_str,"-rand_cap") == 0) {

42210

cmd = _wrap_smSwInfo_rand_cap_get;

42211

} else if (strcmp(_str,"-mcast_cap") == 0) {

42212

cmd = _wrap_smSwInfo_mcast_cap_get;

42213

} else if (strcmp(_str,"-lin_top") == 0) {

42214

cmd = _wrap_smSwInfo_lin_top_get;

42215

} else if (strcmp(_str,"-def_port") == 0) {

42216

cmd = _wrap_smSwInfo_def_port_get;

42217

} else if (strcmp(_str,"-def_mcast_pri_port") == 0) {

42218

cmd = _wrap_smSwInfo_def_mcast_pri_port_get;

42219

} else if (strcmp(_str,"-def_mcast_not_port") == 0) {

42220

cmd = _wrap_smSwInfo_def_mcast_not_port_get;

42221

} else if (strcmp(_str,"-life_state") == 0) {

42222

cmd = _wrap_smSwInfo_life_state_get;

42223

} else if (strcmp(_str,"-lids_per_port") == 0) {

42224

cmd = _wrap_smSwInfo_lids_per_port_get;

42225

} else if (strcmp(_str,"-enforce_cap") == 0) {

42226

cmd = _wrap_smSwInfo_enforce_cap_get;

42227

} else if (strcmp(_str,"-flags") == 0) {

42228

cmd = _wrap_smSwInfo_flags_get;

42229

}

42230

else if (strcmp(_str,"-this") == 0) {

42231

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smSwInfo_p");

42232

return TCL_OK;

42233

}

42234

if (cmd) {

42235

oldarg = objv[2];

42236

objv[2] = obj;

42237

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

42238

objv[2] = oldarg;

42239

return rcode;

42240

} else {

42241

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }",-1);

42242

return TCL_ERROR;

42243

}

42244

} else {

42245

Tcl_SetStringObj(tcl_result,"{ -this -lin_cap -rand_cap -mcast_cap -lin_top -def_port -def_mcast_pri_port -def_mcast_not_port -life_state -lids_per_port -enforce_cap -flags }", -1);

42246

return TCL_ERROR;

42247

}

42248

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

42249

if (objc == 2) {

42250

Tcl_Obj *pDumpObj;

42251

pDumpObj = Tcl_NewStringObj("",-1);

42252

Tcl_IncrRefCount(pDumpObj);

42253

cmd = _wrap_smSwInfo_lin_cap_get;

42254

oldarg = objv[2];

42255

objv[2] = obj;

42256

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42257

objv[2] = oldarg;

42258

Tcl_AppendStringsToObj(pDumpObj, "-lin_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42259

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42260

cmd = _wrap_smSwInfo_rand_cap_get;

42261

oldarg = objv[2];

42262

objv[2] = obj;

42263

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42264

objv[2] = oldarg;

42265

Tcl_AppendStringsToObj(pDumpObj, "-rand_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42266

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42267

cmd = _wrap_smSwInfo_mcast_cap_get;

42268

oldarg = objv[2];

42269

objv[2] = obj;

42270

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42271

objv[2] = oldarg;

42272

Tcl_AppendStringsToObj(pDumpObj, "-mcast_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42273

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42274

cmd = _wrap_smSwInfo_lin_top_get;

42275

oldarg = objv[2];

42276

objv[2] = obj;

42277

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42278

objv[2] = oldarg;

42279

Tcl_AppendStringsToObj(pDumpObj, "-lin_top ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42280

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42281

cmd = _wrap_smSwInfo_def_port_get;

42282

oldarg = objv[2];

42283

objv[2] = obj;

42284

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42285

objv[2] = oldarg;

42286

Tcl_AppendStringsToObj(pDumpObj, "-def_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42287

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42288

cmd = _wrap_smSwInfo_def_mcast_pri_port_get;

42289

oldarg = objv[2];

42290

objv[2] = obj;

42291

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42292

objv[2] = oldarg;

42293

Tcl_AppendStringsToObj(pDumpObj, "-def_mcast_pri_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42294

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42295

cmd = _wrap_smSwInfo_def_mcast_not_port_get;

42296

oldarg = objv[2];

42297

objv[2] = obj;

42298

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42299

objv[2] = oldarg;

42300

Tcl_AppendStringsToObj(pDumpObj, "-def_mcast_not_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42301

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42302

cmd = _wrap_smSwInfo_life_state_get;

42303

oldarg = objv[2];

42304

objv[2] = obj;

42305

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42306

objv[2] = oldarg;

42307

Tcl_AppendStringsToObj(pDumpObj, "-life_state ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42308

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42309

cmd = _wrap_smSwInfo_lids_per_port_get;

42310

oldarg = objv[2];

42311

objv[2] = obj;

42312

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42313

objv[2] = oldarg;

42314

Tcl_AppendStringsToObj(pDumpObj, "-lids_per_port ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42315

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42316

cmd = _wrap_smSwInfo_enforce_cap_get;

42317

oldarg = objv[2];

42318

objv[2] = obj;

42319

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42320

objv[2] = oldarg;

42321

Tcl_AppendStringsToObj(pDumpObj, "-enforce_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42322

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42323

cmd = _wrap_smSwInfo_flags_get;

42324

oldarg = objv[2];

42325

objv[2] = obj;

42326

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42327

objv[2] = oldarg;

42328

Tcl_AppendStringsToObj(pDumpObj, "-flags ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42329

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42330

42331

Tcl_DecrRefCount(pDumpObj);

42332

return TCL_OK;

42333

} else {

42334

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

42335

return TCL_ERROR;

42336

}

42337

}

42338

if (!cmd) {

42339

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

42340

return TCL_ERROR;

42341

}

42342

oldarg = objv[1];

42343

objv[1] = obj;

42344

rcode = (*cmd)(clientData,interp,objc,objv);

42345

objv[1] = oldarg;

42346

return rcode;

42347

}

42348

42349

42350

42351

/* objcmd8.swg : Tcl 8.x object creation */

42352

42353

static int TclsmSwInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42354

void (*del)(ClientData) = 0;

42355

char *name = 0;

42356

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

42357

smSwInfo * newObj = 0;

42358

int firstarg = 0;

42359

int thisarg = 0;

42360

int length;

42361

char *_str;

42362

Tcl_Obj *tcl_result;

42363

42364

tcl_result = Tcl_GetObjResult(interp);

42365

if (objc == 1) {

42366

cmd = 0;

42367

} else {

42368

_str = Tcl_GetStringFromObj(objv[1],&length);

42369

if (strcmp(_str,"-this") == 0) thisarg = 2;

42370

else if (strcmp(_str,"-args") == 0) {

42371

firstarg = 1;

42372

cmd = 0;

42373

} else if (objc == 2) {

42374

firstarg = 1;

42375

name = _str;

42376

cmd = 0;

42377

} else if (objc >= 3) {

42378

name = _str;

42379

_str = Tcl_GetStringFromObj(objv[2],&length);

42380

if (strcmp(_str,"-this") == 0) thisarg = 3;

42381

else {

42382

firstarg = 1;

42383

cmd = 0;

42384

}

42385

}

42386

}

42387

if (cmd) {

42388

int result;

42389

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

42390

if (result == TCL_OK) {

42391

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smSwInfo_p");

42392

} else { return result; }

42393

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

42394

del = 0;

42395

} else if (thisarg > 0) {

42396

if (thisarg < objc) {

42397

char *r;

42398

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smSwInfo_p");

42399

if (r) {

42400

Tcl_SetStringObj(tcl_result,"Type error. not a smSwInfo object.",-1);

42401

return TCL_ERROR;

42402

}

42403

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

42404

Tcl_SetStringObj(tcl_result,name,-1);

42405

} else {

42406

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

42407

return TCL_ERROR;

42408

}

42409

} else {

42410

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

42411

return TCL_ERROR;

42412

}

42413

{

42414

Tcl_CmdInfo dummy;

42415

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

42416

Tcl_CreateObjCommand(interp,name, TclsmSwInfoMethodCmd, (ClientData) newObj, del);

42417

return TCL_OK;

42418

} else {

42419

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

42420

return TCL_ERROR;

42421

}

42422

}

42423

}

42424

42425

42426

static uint8_array_t * _ibsm_lft_block_lft_set(smLftBlock *obj, uint8_array_t val[64]) {

42427

{

42428

int i;

42429

for (i=0; i <64 ; i++) {

42430

obj->lft[i] = *(val+i);

42431

}

42432

}

42433

return (uint8_array_t *) val;

42434

}

42435

static int _wrap_smLftBlock_lft_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42436

42437

uint8_array_t * _result;

42438

smLftBlock * _arg0;

42439

uint8_array_t * _arg1;

42440

Tcl_Obj * tcl_result;

42441

char * rettype;

42442

uint8_t entrys[64];

42443

42444

clientData = clientData; objv = objv;

42445

tcl_result = Tcl_GetObjResult(interp);

42446

if ((objc < 3) || (objc > 3)) {

42447

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_lft_set { smLftBlock * } { uint8_array_t * } ",-1);

42448

return TCL_ERROR;

42449

}

42450

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42451

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_lft_set. Expected _smLftBlock_p, received ", -1);

42452

Tcl_AppendToObj(tcl_result, rettype, -1);

42453

return TCL_ERROR;

42454

}

42455

{

42456

char *buff;

42457

char *p_ch;

42458

char *last;

42459

long int entry;

42460

42461

int i = 0;

42462

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

42463

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

42464

p_ch = strtok_r(buff, " \t",&last);

42465

while (p_ch && (i < 64))

42466

{

42467

entry = strtol(p_ch, NULL, 0);

42468

if (entry > 0xff)

42469

{

42470

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

42471

return TCL_ERROR;

42472

}

42473

entrys[i++] = entry;

42474

p_ch = strtok_r(NULL, " \t", &last);

42475

}

42476

for (; i < 64; i++) entrys[i] = 0;

42477

42478

free(buff);

42479

_arg1 = entrys;

42480

}

42481

{

42482

/* we can check if IBIS was initialized here */

42483

if (!IbisObj.initialized)

42484

{

42485

Tcl_SetStringObj(

42486

Tcl_GetObjResult(interp),

42487

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42488

return TCL_ERROR;

42489

}

42490

42491

if (! IbisObj.port_guid)

42492

{

42493

Tcl_SetStringObj(

42494

Tcl_GetObjResult(interp),

42495

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42496

return TCL_ERROR;

42497

}

42498

42499

ibis_tcl_error = 0;

42500

_result = (uint8_array_t *)_ibsm_lft_block_lft_set(_arg0,_arg1);

42501

;

42502

if (ibis_tcl_error) {

42503

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42504

return TCL_ERROR;

42505

}

42506

} tcl_result = Tcl_GetObjResult(interp);

42507

{

42508

int i;

42509

char buff[8];

42510

for (i=0; i <64 ; i++) {

42511

sprintf(buff, "0x%02x ", *(_result+i));

42512

Tcl_AppendResult(interp, buff, NULL);

42513

}

42514

}

42515

return TCL_OK;

42516

}

42517

#define _ibsm_lft_block_lft_get(_swigobj) ((uint8_array_t *) _swigobj->lft)

42518

static int _wrap_smLftBlock_lft_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42519

42520

uint8_array_t * _result;

42521

smLftBlock * _arg0;

42522

Tcl_Obj * tcl_result;

42523

char * rettype;

42524

42525

clientData = clientData; objv = objv;

42526

tcl_result = Tcl_GetObjResult(interp);

42527

if ((objc < 2) || (objc > 2)) {

42528

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_lft_get { smLftBlock * } ",-1);

42529

return TCL_ERROR;

42530

}

42531

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42532

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_lft_get. Expected _smLftBlock_p, received ", -1);

42533

Tcl_AppendToObj(tcl_result, rettype, -1);

42534

return TCL_ERROR;

42535

}

42536

{

42537

/* we can check if IBIS was initialized here */

42538

if (!IbisObj.initialized)

42539

{

42540

Tcl_SetStringObj(

42541

Tcl_GetObjResult(interp),

42542

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42543

return TCL_ERROR;

42544

}

42545

42546

if (! IbisObj.port_guid)

42547

{

42548

Tcl_SetStringObj(

42549

Tcl_GetObjResult(interp),

42550

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42551

return TCL_ERROR;

42552

}

42553

42554

ibis_tcl_error = 0;

42555

_result = (uint8_array_t *)_ibsm_lft_block_lft_get(_arg0);

42556

;

42557

if (ibis_tcl_error) {

42558

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42559

return TCL_ERROR;

42560

}

42561

} tcl_result = Tcl_GetObjResult(interp);

42562

{

42563

int i;

42564

char buff[8];

42565

for (i=0; i <64 ; i++) {

42566

sprintf(buff, "0x%02x ", *(_result+i));

42567

Tcl_AppendResult(interp, buff, NULL);

42568

}

42569

}

42570

return TCL_OK;

42571

}

42572

static int smLftBlock_getByDr(smLftBlock *self,ibsm_dr_path_t * dr,uint16_t blockNum) {

42573

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smLftBlock),

42574

dr, CL_NTOH16(IB_MAD_ATTR_LIN_FWD_TBL), blockNum, IB_MAD_METHOD_GET));

42575

}

42576

static int _wrap_smLftBlock_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42577

42578

int _result;

42579

smLftBlock * _arg0;

42580

ibsm_dr_path_t * _arg1;

42581

uint16_t * _arg2;

42582

Tcl_Obj * tcl_result;

42583

char * rettype;

42584

ibsm_dr_path_t dr;

42585

uint16_t temp;

42586

42587

clientData = clientData; objv = objv;

42588

tcl_result = Tcl_GetObjResult(interp);

42589

if ((objc < 4) || (objc > 4)) {

42590

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_getByDr { smLftBlock * } dr blockNum ",-1);

42591

return TCL_ERROR;

42592

}

42593

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42594

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_getByDr. Expected _smLftBlock_p, received ", -1);

42595

Tcl_AppendToObj(tcl_result, rettype, -1);

42596

return TCL_ERROR;

42597

}

42598

{

42599

char buf[1024];

42600

char *p_next;

42601

unsigned int port;

42602

int i;

42603

42604

dr.count = 1;

42605

dr.path[0] = 0;

42606

42607

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

42608

buf[1023] = '\0';

42609

p_next = strtok(buf," \t");

42610

while (p_next != NULL)

42611

{

42612

if (sscanf(p_next,"%u", &port) != 1)

42613

{

42614

printf("Error: bad format in directed route path index:%u : %s\n",

42615

dr.count, p_next);

42616

return TCL_ERROR;

42617

}

42618

dr.path[dr.count++] = port;

42619

p_next = strtok(NULL," \t");

42620

}

42621

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

42622

dr.count--;

42623

_arg1 = &dr;

42624

}

42625

{

42626

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

42627

_arg2 = &temp;

42628

}

42629

{

42630

/* we can check if IBIS was initialized here */

42631

if (!IbisObj.initialized)

42632

{

42633

Tcl_SetStringObj(

42634

Tcl_GetObjResult(interp),

42635

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42636

return TCL_ERROR;

42637

}

42638

42639

if (! IbisObj.port_guid)

42640

{

42641

Tcl_SetStringObj(

42642

Tcl_GetObjResult(interp),

42643

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42644

return TCL_ERROR;

42645

}

42646

42647

ibis_tcl_error = 0;

42648

_result = (int )smLftBlock_getByDr(_arg0,_arg1,*_arg2);

42649

;

42650

if (ibis_tcl_error) {

42651

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42652

return TCL_ERROR;

42653

}

42654

} tcl_result = Tcl_GetObjResult(interp);

42655

Tcl_SetIntObj(tcl_result,(long) _result);

42656

return TCL_OK;

42657

}

42658

static int smLftBlock_setByDr(smLftBlock *self,ibsm_dr_path_t * dr,uint16_t blockNum) {

42659

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smLftBlock),

42660

dr, CL_NTOH16(IB_MAD_ATTR_LIN_FWD_TBL), blockNum, IB_MAD_METHOD_SET));

42661

}

42662

static int _wrap_smLftBlock_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42663

42664

int _result;

42665

smLftBlock * _arg0;

42666

ibsm_dr_path_t * _arg1;

42667

uint16_t * _arg2;

42668

Tcl_Obj * tcl_result;

42669

char * rettype;

42670

ibsm_dr_path_t dr;

42671

uint16_t temp;

42672

42673

clientData = clientData; objv = objv;

42674

tcl_result = Tcl_GetObjResult(interp);

42675

if ((objc < 4) || (objc > 4)) {

42676

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_setByDr { smLftBlock * } dr blockNum ",-1);

42677

return TCL_ERROR;

42678

}

42679

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42680

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_setByDr. Expected _smLftBlock_p, received ", -1);

42681

Tcl_AppendToObj(tcl_result, rettype, -1);

42682

return TCL_ERROR;

42683

}

42684

{

42685

char buf[1024];

42686

char *p_next;

42687

unsigned int port;

42688

int i;

42689

42690

dr.count = 1;

42691

dr.path[0] = 0;

42692

42693

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

42694

buf[1023] = '\0';

42695

p_next = strtok(buf," \t");

42696

while (p_next != NULL)

42697

{

42698

if (sscanf(p_next,"%u", &port) != 1)

42699

{

42700

printf("Error: bad format in directed route path index:%u : %s\n",

42701

dr.count, p_next);

42702

return TCL_ERROR;

42703

}

42704

dr.path[dr.count++] = port;

42705

p_next = strtok(NULL," \t");

42706

}

42707

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

42708

dr.count--;

42709

_arg1 = &dr;

42710

}

42711

{

42712

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

42713

_arg2 = &temp;

42714

}

42715

{

42716

/* we can check if IBIS was initialized here */

42717

if (!IbisObj.initialized)

42718

{

42719

Tcl_SetStringObj(

42720

Tcl_GetObjResult(interp),

42721

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42722

return TCL_ERROR;

42723

}

42724

42725

if (! IbisObj.port_guid)

42726

{

42727

Tcl_SetStringObj(

42728

Tcl_GetObjResult(interp),

42729

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42730

return TCL_ERROR;

42731

}

42732

42733

ibis_tcl_error = 0;

42734

_result = (int )smLftBlock_setByDr(_arg0,_arg1,*_arg2);

42735

;

42736

if (ibis_tcl_error) {

42737

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42738

return TCL_ERROR;

42739

}

42740

} tcl_result = Tcl_GetObjResult(interp);

42741

Tcl_SetIntObj(tcl_result,(long) _result);

42742

return TCL_OK;

42743

}

42744

static int smLftBlock_getByLid(smLftBlock *self,uint16_t lid,uint16_t blockNum) {

42745

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smLftBlock),

42746

lid, CL_NTOH16(IB_MAD_ATTR_LIN_FWD_TBL), blockNum, IB_MAD_METHOD_GET));

42747

}

42748

static int _wrap_smLftBlock_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42749

42750

int _result;

42751

smLftBlock * _arg0;

42752

uint16_t * _arg1;

42753

uint16_t * _arg2;

42754

Tcl_Obj * tcl_result;

42755

char * rettype;

42756

uint16_t temp;

42757

uint16_t temp0;

42758

42759

clientData = clientData; objv = objv;

42760

tcl_result = Tcl_GetObjResult(interp);

42761

if ((objc < 4) || (objc > 4)) {

42762

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_getByLid { smLftBlock * } lid blockNum ",-1);

42763

return TCL_ERROR;

42764

}

42765

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42766

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_getByLid. Expected _smLftBlock_p, received ", -1);

42767

Tcl_AppendToObj(tcl_result, rettype, -1);

42768

return TCL_ERROR;

42769

}

42770

{

42771

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

42772

_arg1 = &temp;

42773

}

42774

{

42775

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

42776

_arg2 = &temp0;

42777

}

42778

{

42779

/* we can check if IBIS was initialized here */

42780

if (!IbisObj.initialized)

42781

{

42782

Tcl_SetStringObj(

42783

Tcl_GetObjResult(interp),

42784

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42785

return TCL_ERROR;

42786

}

42787

42788

if (! IbisObj.port_guid)

42789

{

42790

Tcl_SetStringObj(

42791

Tcl_GetObjResult(interp),

42792

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42793

return TCL_ERROR;

42794

}

42795

42796

ibis_tcl_error = 0;

42797

_result = (int )smLftBlock_getByLid(_arg0,*_arg1,*_arg2);

42798

;

42799

if (ibis_tcl_error) {

42800

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42801

return TCL_ERROR;

42802

}

42803

} tcl_result = Tcl_GetObjResult(interp);

42804

Tcl_SetIntObj(tcl_result,(long) _result);

42805

return TCL_OK;

42806

}

42807

static int smLftBlock_setByLid(smLftBlock *self,uint16_t lid,uint16_t blockNum) {

42808

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smLftBlock),

42809

lid, CL_NTOH16(IB_MAD_ATTR_LIN_FWD_TBL), blockNum, IB_MAD_METHOD_SET));

42810

}

42811

static int _wrap_smLftBlock_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42812

42813

int _result;

42814

smLftBlock * _arg0;

42815

uint16_t * _arg1;

42816

uint16_t * _arg2;

42817

Tcl_Obj * tcl_result;

42818

char * rettype;

42819

uint16_t temp;

42820

uint16_t temp0;

42821

42822

clientData = clientData; objv = objv;

42823

tcl_result = Tcl_GetObjResult(interp);

42824

if ((objc < 4) || (objc > 4)) {

42825

Tcl_SetStringObj(tcl_result,"Wrong # args. smLftBlock_setByLid { smLftBlock * } lid blockNum ",-1);

42826

return TCL_ERROR;

42827

}

42828

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smLftBlock_p"))) {

42829

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smLftBlock_setByLid. Expected _smLftBlock_p, received ", -1);

42830

Tcl_AppendToObj(tcl_result, rettype, -1);

42831

return TCL_ERROR;

42832

}

42833

{

42834

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

42835

_arg1 = &temp;

42836

}

42837

{

42838

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

42839

_arg2 = &temp0;

42840

}

42841

{

42842

/* we can check if IBIS was initialized here */

42843

if (!IbisObj.initialized)

42844

{

42845

Tcl_SetStringObj(

42846

Tcl_GetObjResult(interp),

42847

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

42848

return TCL_ERROR;

42849

}

42850

42851

if (! IbisObj.port_guid)

42852

{

42853

Tcl_SetStringObj(

42854

Tcl_GetObjResult(interp),

42855

" ibis was not yet initialized. please use ibis_set_port before.", -1);

42856

return TCL_ERROR;

42857

}

42858

42859

ibis_tcl_error = 0;

42860

_result = (int )smLftBlock_setByLid(_arg0,*_arg1,*_arg2);

42861

;

42862

if (ibis_tcl_error) {

42863

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

42864

return TCL_ERROR;

42865

}

42866

} tcl_result = Tcl_GetObjResult(interp);

42867

Tcl_SetIntObj(tcl_result,(long) _result);

42868

return TCL_OK;

42869

}

42870

/* methodcmd8.swg : Tcl8.x method invocation */

42871

42872

static int TclsmLftBlockMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

42873

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

42874

char *_str;

42875

int rcode;

42876

Tcl_Obj **objv;

42877

Tcl_Obj *oldarg,*tcl_result,*obj;

42878

int length;

42879

char c;

42880

42881

tcl_result = Tcl_GetObjResult(interp);

42882

objv = (Tcl_Obj **) _objv;

42883

if (objc < 2) {

42884

Tcl_SetStringObj(tcl_result,"smLftBlock methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

42885

return TCL_ERROR;

42886

}

42887

obj = Tcl_NewObj();

42888

SWIG_SetPointerObj(obj,(void *) clientData,"_smLftBlock_p");

42889

_str = Tcl_GetStringFromObj(objv[1],&length);

42890

c = *_str;

42891

if (0);

42892

if (strcmp(_str,"getByDr") == 0) {

42893

cmd = _wrap_smLftBlock_getByDr;

42894

} else if (strcmp(_str,"setByDr") == 0) {

42895

cmd = _wrap_smLftBlock_setByDr;

42896

} else if (strcmp(_str,"getByLid") == 0) {

42897

cmd = _wrap_smLftBlock_getByLid;

42898

} else if (strcmp(_str,"setByLid") == 0) {

42899

cmd = _wrap_smLftBlock_setByLid;

42900

}

42901

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

42902

int i = 2;

42903

cmd = 0;

42904

while (i+1 < objc) {

42905

_str = Tcl_GetStringFromObj(objv[i],&length);

42906

if (strcmp(_str,"-lft") == 0) {

42907

cmd = _wrap_smLftBlock_lft_set;

42908

}

42909

if (cmd) {

42910

oldarg = objv[i];

42911

objv[i] = obj;

42912

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

42913

objv[i] = oldarg;

42914

if (rcode == TCL_ERROR) return rcode;

42915

cmd = 0;

42916

} else {

42917

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -lft }",-1);

42918

return TCL_ERROR;

42919

}

42920

i+=2;

42921

}

42922

if ((i < objc) || (i == 2)) {

42923

Tcl_SetStringObj(tcl_result,"{ -lft }",-1);

42924

return TCL_ERROR;

42925

}

42926

return TCL_OK;

42927

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

42928

if (objc == 3) {

42929

_str = Tcl_GetStringFromObj(objv[2],&length);

42930

if (0) {}

42931

if (strcmp(_str,"-lft") == 0) {

42932

cmd = _wrap_smLftBlock_lft_get;

42933

}

42934

else if (strcmp(_str,"-this") == 0) {

42935

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smLftBlock_p");

42936

return TCL_OK;

42937

}

42938

if (cmd) {

42939

oldarg = objv[2];

42940

objv[2] = obj;

42941

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

42942

objv[2] = oldarg;

42943

return rcode;

42944

} else {

42945

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -lft }",-1);

42946

return TCL_ERROR;

42947

}

42948

} else {

42949

Tcl_SetStringObj(tcl_result,"{ -this -lft }", -1);

42950

return TCL_ERROR;

42951

}

42952

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

42953

if (objc == 2) {

42954

Tcl_Obj *pDumpObj;

42955

pDumpObj = Tcl_NewStringObj("",-1);

42956

Tcl_IncrRefCount(pDumpObj);

42957

cmd = _wrap_smLftBlock_lft_get;

42958

oldarg = objv[2];

42959

objv[2] = obj;

42960

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

42961

objv[2] = oldarg;

42962

Tcl_AppendStringsToObj(pDumpObj, "-lft ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

42963

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

42964

42965

Tcl_DecrRefCount(pDumpObj);

42966

return TCL_OK;

42967

} else {

42968

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

42969

return TCL_ERROR;

42970

}

42971

}

42972

if (!cmd) {

42973

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

42974

return TCL_ERROR;

42975

}

42976

oldarg = objv[1];

42977

objv[1] = obj;

42978

rcode = (*cmd)(clientData,interp,objc,objv);

42979

objv[1] = oldarg;

42980

return rcode;

42981

}

42982

42983

42984

42985

/* objcmd8.swg : Tcl 8.x object creation */

42986

42987

static int TclsmLftBlockCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

42988

void (*del)(ClientData) = 0;

42989

char *name = 0;

42990

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

42991

smLftBlock * newObj = 0;

42992

int firstarg = 0;

42993

int thisarg = 0;

42994

int length;

42995

char *_str;

42996

Tcl_Obj *tcl_result;

42997

42998

tcl_result = Tcl_GetObjResult(interp);

42999

if (objc == 1) {

43000

cmd = 0;

43001

} else {

43002

_str = Tcl_GetStringFromObj(objv[1],&length);

43003

if (strcmp(_str,"-this") == 0) thisarg = 2;

43004

else if (strcmp(_str,"-args") == 0) {

43005

firstarg = 1;

43006

cmd = 0;

43007

} else if (objc == 2) {

43008

firstarg = 1;

43009

name = _str;

43010

cmd = 0;

43011

} else if (objc >= 3) {

43012

name = _str;

43013

_str = Tcl_GetStringFromObj(objv[2],&length);

43014

if (strcmp(_str,"-this") == 0) thisarg = 3;

43015

else {

43016

firstarg = 1;

43017

cmd = 0;

43018

}

43019

}

43020

}

43021

if (cmd) {

43022

int result;

43023

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

43024

if (result == TCL_OK) {

43025

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smLftBlock_p");

43026

} else { return result; }

43027

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

43028

del = 0;

43029

} else if (thisarg > 0) {

43030

if (thisarg < objc) {

43031

char *r;

43032

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smLftBlock_p");

43033

if (r) {

43034

Tcl_SetStringObj(tcl_result,"Type error. not a smLftBlock object.",-1);

43035

return TCL_ERROR;

43036

}

43037

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

43038

Tcl_SetStringObj(tcl_result,name,-1);

43039

} else {

43040

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

43041

return TCL_ERROR;

43042

}

43043

} else {

43044

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

43045

return TCL_ERROR;

43046

}

43047

{

43048

Tcl_CmdInfo dummy;

43049

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

43050

Tcl_CreateObjCommand(interp,name, TclsmLftBlockMethodCmd, (ClientData) newObj, del);

43051

return TCL_OK;

43052

} else {

43053

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

43054

return TCL_ERROR;

43055

}

43056

}

43057

}

43058

43059

43060

static ib_net16_array_t * _ibsm_mft_block_mft_set(smMftBlock *obj, ib_net16_array_t val[32]) {

43061

{

43062

int i;

43063

for (i=0; i <32 ; i++) {

43064

obj->mft[i] = *(val+i);

43065

}

43066

}

43067

return (ib_net16_array_t *) val;

43068

}

43069

static int _wrap_smMftBlock_mft_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43070

43071

ib_net16_array_t * _result;

43072

smMftBlock * _arg0;

43073

ib_net16_array_t * _arg1;

43074

Tcl_Obj * tcl_result;

43075

char * rettype;

43076

ib_net16_t entrys[32];

43077

43078

clientData = clientData; objv = objv;

43079

tcl_result = Tcl_GetObjResult(interp);

43080

if ((objc < 3) || (objc > 3)) {

43081

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_mft_set { smMftBlock * } { ib_net16_array_t * } ",-1);

43082

return TCL_ERROR;

43083

}

43084

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43085

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_mft_set. Expected _smMftBlock_p, received ", -1);

43086

Tcl_AppendToObj(tcl_result, rettype, -1);

43087

return TCL_ERROR;

43088

}

43089

{

43090

char *buff;

43091

char *p_ch;

43092

char *last;

43093

long int entry;

43094

43095

int i = 0;

43096

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

43097

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

43098

p_ch = strtok_r(buff, " \t",&last);

43099

while (p_ch && (i < 32))

43100

{

43101

entry = strtol(p_ch, NULL, 0);

43102

if (entry > 65535)

43103

{

43104

printf("Error: wrong format or out of range value for expected ib_net16_t entry: %s\n", p_ch);

43105

return TCL_ERROR;

43106

}

43107

entrys[i++] = cl_hton16(entry);

43108

p_ch = strtok_r(NULL, " \t", &last);

43109

}

43110

for (; i < 32; i++) entrys[i] = 0;

43111

43112

free(buff);

43113

_arg1 = entrys;

43114

}

43115

{

43116

/* we can check if IBIS was initialized here */

43117

if (!IbisObj.initialized)

43118

{

43119

Tcl_SetStringObj(

43120

Tcl_GetObjResult(interp),

43121

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43122

return TCL_ERROR;

43123

}

43124

43125

if (! IbisObj.port_guid)

43126

{

43127

Tcl_SetStringObj(

43128

Tcl_GetObjResult(interp),

43129

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43130

return TCL_ERROR;

43131

}

43132

43133

ibis_tcl_error = 0;

43134

_result = (ib_net16_array_t *)_ibsm_mft_block_mft_set(_arg0,_arg1);

43135

;

43136

if (ibis_tcl_error) {

43137

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43138

return TCL_ERROR;

43139

}

43140

} tcl_result = Tcl_GetObjResult(interp);

43141

{

43142

int i;

43143

char buff[8];

43144

for (i=0; i <32 ; i++) {

43145

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

43146

Tcl_AppendResult(interp, buff, NULL);

43147

}

43148

}

43149

return TCL_OK;

43150

}

43151

#define _ibsm_mft_block_mft_get(_swigobj) ((ib_net16_array_t *) _swigobj->mft)

43152

static int _wrap_smMftBlock_mft_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43153

43154

ib_net16_array_t * _result;

43155

smMftBlock * _arg0;

43156

Tcl_Obj * tcl_result;

43157

char * rettype;

43158

43159

clientData = clientData; objv = objv;

43160

tcl_result = Tcl_GetObjResult(interp);

43161

if ((objc < 2) || (objc > 2)) {

43162

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_mft_get { smMftBlock * } ",-1);

43163

return TCL_ERROR;

43164

}

43165

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43166

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_mft_get. Expected _smMftBlock_p, received ", -1);

43167

Tcl_AppendToObj(tcl_result, rettype, -1);

43168

return TCL_ERROR;

43169

}

43170

{

43171

/* we can check if IBIS was initialized here */

43172

if (!IbisObj.initialized)

43173

{

43174

Tcl_SetStringObj(

43175

Tcl_GetObjResult(interp),

43176

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43177

return TCL_ERROR;

43178

}

43179

43180

if (! IbisObj.port_guid)

43181

{

43182

Tcl_SetStringObj(

43183

Tcl_GetObjResult(interp),

43184

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43185

return TCL_ERROR;

43186

}

43187

43188

ibis_tcl_error = 0;

43189

_result = (ib_net16_array_t *)_ibsm_mft_block_mft_get(_arg0);

43190

;

43191

if (ibis_tcl_error) {

43192

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43193

return TCL_ERROR;

43194

}

43195

} tcl_result = Tcl_GetObjResult(interp);

43196

{

43197

int i;

43198

char buff[8];

43199

for (i=0; i <32 ; i++) {

43200

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

43201

Tcl_AppendResult(interp, buff, NULL);

43202

}

43203

}

43204

return TCL_OK;

43205

}

43206

static int smMftBlock_getByDr(smMftBlock *self,ibsm_dr_path_t * dr,uint16_t startLid,uint8_t startPort) {

43207

uint32_t attrMod;

43208

if (smMftGetAttrMod(startLid, startPort, &attrMod) != TCL_OK)

43209

return TCL_ERROR;

43210

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smMftBlock),

43211

dr, CL_NTOH16(IB_MAD_ATTR_MCAST_FWD_TBL), attrMod, IB_MAD_METHOD_GET));

43212

}

43213

static int _wrap_smMftBlock_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43214

43215

int _result;

43216

smMftBlock * _arg0;

43217

ibsm_dr_path_t * _arg1;

43218

uint16_t * _arg2;

43219

uint8_t * _arg3;

43220

Tcl_Obj * tcl_result;

43221

char * rettype;

43222

ibsm_dr_path_t dr;

43223

uint16_t temp;

43224

uint8_t temp0;

43225

43226

clientData = clientData; objv = objv;

43227

tcl_result = Tcl_GetObjResult(interp);

43228

if ((objc < 5) || (objc > 5)) {

43229

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_getByDr { smMftBlock * } dr startLid startPort ",-1);

43230

return TCL_ERROR;

43231

}

43232

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43233

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_getByDr. Expected _smMftBlock_p, received ", -1);

43234

Tcl_AppendToObj(tcl_result, rettype, -1);

43235

return TCL_ERROR;

43236

}

43237

{

43238

char buf[1024];

43239

char *p_next;

43240

unsigned int port;

43241

int i;

43242

43243

dr.count = 1;

43244

dr.path[0] = 0;

43245

43246

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

43247

buf[1023] = '\0';

43248

p_next = strtok(buf," \t");

43249

while (p_next != NULL)

43250

{

43251

if (sscanf(p_next,"%u", &port) != 1)

43252

{

43253

printf("Error: bad format in directed route path index:%u : %s\n",

43254

dr.count, p_next);

43255

return TCL_ERROR;

43256

}

43257

dr.path[dr.count++] = port;

43258

p_next = strtok(NULL," \t");

43259

}

43260

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

43261

dr.count--;

43262

_arg1 = &dr;

43263

}

43264

{

43265

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

43266

_arg2 = &temp;

43267

}

43268

{

43269

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

43270

_arg3 = &temp0;

43271

}

43272

{

43273

/* we can check if IBIS was initialized here */

43274

if (!IbisObj.initialized)

43275

{

43276

Tcl_SetStringObj(

43277

Tcl_GetObjResult(interp),

43278

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43279

return TCL_ERROR;

43280

}

43281

43282

if (! IbisObj.port_guid)

43283

{

43284

Tcl_SetStringObj(

43285

Tcl_GetObjResult(interp),

43286

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43287

return TCL_ERROR;

43288

}

43289

43290

ibis_tcl_error = 0;

43291

_result = (int )smMftBlock_getByDr(_arg0,_arg1,*_arg2,*_arg3);

43292

;

43293

if (ibis_tcl_error) {

43294

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43295

return TCL_ERROR;

43296

}

43297

} tcl_result = Tcl_GetObjResult(interp);

43298

Tcl_SetIntObj(tcl_result,(long) _result);

43299

return TCL_OK;

43300

}

43301

static int smMftBlock_setByDr(smMftBlock *self,ibsm_dr_path_t * dr,uint16_t startLid,uint8_t startPort) {

43302

uint32_t attrMod;

43303

if (smMftGetAttrMod(startLid, startPort, &attrMod) != TCL_OK)

43304

return TCL_ERROR;

43305

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smMftBlock),

43306

dr, CL_NTOH16(IB_MAD_ATTR_MCAST_FWD_TBL), attrMod, IB_MAD_METHOD_SET));

43307

}

43308

static int _wrap_smMftBlock_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43309

43310

int _result;

43311

smMftBlock * _arg0;

43312

ibsm_dr_path_t * _arg1;

43313

uint16_t * _arg2;

43314

uint8_t * _arg3;

43315

Tcl_Obj * tcl_result;

43316

char * rettype;

43317

ibsm_dr_path_t dr;

43318

uint16_t temp;

43319

uint8_t temp0;

43320

43321

clientData = clientData; objv = objv;

43322

tcl_result = Tcl_GetObjResult(interp);

43323

if ((objc < 5) || (objc > 5)) {

43324

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_setByDr { smMftBlock * } dr startLid startPort ",-1);

43325

return TCL_ERROR;

43326

}

43327

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43328

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_setByDr. Expected _smMftBlock_p, received ", -1);

43329

Tcl_AppendToObj(tcl_result, rettype, -1);

43330

return TCL_ERROR;

43331

}

43332

{

43333

char buf[1024];

43334

char *p_next;

43335

unsigned int port;

43336

int i;

43337

43338

dr.count = 1;

43339

dr.path[0] = 0;

43340

43341

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

43342

buf[1023] = '\0';

43343

p_next = strtok(buf," \t");

43344

while (p_next != NULL)

43345

{

43346

if (sscanf(p_next,"%u", &port) != 1)

43347

{

43348

printf("Error: bad format in directed route path index:%u : %s\n",

43349

dr.count, p_next);

43350

return TCL_ERROR;

43351

}

43352

dr.path[dr.count++] = port;

43353

p_next = strtok(NULL," \t");

43354

}

43355

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

43356

dr.count--;

43357

_arg1 = &dr;

43358

}

43359

{

43360

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

43361

_arg2 = &temp;

43362

}

43363

{

43364

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

43365

_arg3 = &temp0;

43366

}

43367

{

43368

/* we can check if IBIS was initialized here */

43369

if (!IbisObj.initialized)

43370

{

43371

Tcl_SetStringObj(

43372

Tcl_GetObjResult(interp),

43373

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43374

return TCL_ERROR;

43375

}

43376

43377

if (! IbisObj.port_guid)

43378

{

43379

Tcl_SetStringObj(

43380

Tcl_GetObjResult(interp),

43381

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43382

return TCL_ERROR;

43383

}

43384

43385

ibis_tcl_error = 0;

43386

_result = (int )smMftBlock_setByDr(_arg0,_arg1,*_arg2,*_arg3);

43387

;

43388

if (ibis_tcl_error) {

43389

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43390

return TCL_ERROR;

43391

}

43392

} tcl_result = Tcl_GetObjResult(interp);

43393

Tcl_SetIntObj(tcl_result,(long) _result);

43394

return TCL_OK;

43395

}

43396

static int smMftBlock_getByLid(smMftBlock *self,uint16_t lid,uint16_t startLid,uint8_t startPort) {

43397

uint32_t attrMod;

43398

if (smMftGetAttrMod(startLid, startPort, &attrMod) != TCL_OK)

43399

return TCL_ERROR;

43400

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smMftBlock),

43401

lid, CL_NTOH16(IB_MAD_ATTR_MCAST_FWD_TBL), attrMod, IB_MAD_METHOD_GET));

43402

}

43403

static int _wrap_smMftBlock_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43404

43405

int _result;

43406

smMftBlock * _arg0;

43407

uint16_t * _arg1;

43408

uint16_t * _arg2;

43409

uint8_t * _arg3;

43410

Tcl_Obj * tcl_result;

43411

char * rettype;

43412

uint16_t temp;

43413

uint16_t temp0;

43414

uint8_t temp1;

43415

43416

clientData = clientData; objv = objv;

43417

tcl_result = Tcl_GetObjResult(interp);

43418

if ((objc < 5) || (objc > 5)) {

43419

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_getByLid { smMftBlock * } lid startLid startPort ",-1);

43420

return TCL_ERROR;

43421

}

43422

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43423

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_getByLid. Expected _smMftBlock_p, received ", -1);

43424

Tcl_AppendToObj(tcl_result, rettype, -1);

43425

return TCL_ERROR;

43426

}

43427

{

43428

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

43429

_arg1 = &temp;

43430

}

43431

{

43432

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

43433

_arg2 = &temp0;

43434

}

43435

{

43436

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

43437

_arg3 = &temp1;

43438

}

43439

{

43440

/* we can check if IBIS was initialized here */

43441

if (!IbisObj.initialized)

43442

{

43443

Tcl_SetStringObj(

43444

Tcl_GetObjResult(interp),

43445

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43446

return TCL_ERROR;

43447

}

43448

43449

if (! IbisObj.port_guid)

43450

{

43451

Tcl_SetStringObj(

43452

Tcl_GetObjResult(interp),

43453

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43454

return TCL_ERROR;

43455

}

43456

43457

ibis_tcl_error = 0;

43458

_result = (int )smMftBlock_getByLid(_arg0,*_arg1,*_arg2,*_arg3);

43459

;

43460

if (ibis_tcl_error) {

43461

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43462

return TCL_ERROR;

43463

}

43464

} tcl_result = Tcl_GetObjResult(interp);

43465

Tcl_SetIntObj(tcl_result,(long) _result);

43466

return TCL_OK;

43467

}

43468

static int smMftBlock_setByLid(smMftBlock *self,uint16_t lid,uint16_t startLid,uint8_t startPort) {

43469

uint32_t attrMod;

43470

if (smMftGetAttrMod(startLid, startPort, &attrMod) != TCL_OK)

43471

return TCL_ERROR;

43472

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smMftBlock),

43473

lid, CL_NTOH16(IB_MAD_ATTR_MCAST_FWD_TBL), attrMod, IB_MAD_METHOD_SET));

43474

}

43475

static int _wrap_smMftBlock_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43476

43477

int _result;

43478

smMftBlock * _arg0;

43479

uint16_t * _arg1;

43480

uint16_t * _arg2;

43481

uint8_t * _arg3;

43482

Tcl_Obj * tcl_result;

43483

char * rettype;

43484

uint16_t temp;

43485

uint16_t temp0;

43486

uint8_t temp1;

43487

43488

clientData = clientData; objv = objv;

43489

tcl_result = Tcl_GetObjResult(interp);

43490

if ((objc < 5) || (objc > 5)) {

43491

Tcl_SetStringObj(tcl_result,"Wrong # args. smMftBlock_setByLid { smMftBlock * } lid startLid startPort ",-1);

43492

return TCL_ERROR;

43493

}

43494

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smMftBlock_p"))) {

43495

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smMftBlock_setByLid. Expected _smMftBlock_p, received ", -1);

43496

Tcl_AppendToObj(tcl_result, rettype, -1);

43497

return TCL_ERROR;

43498

}

43499

{

43500

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

43501

_arg1 = &temp;

43502

}

43503

{

43504

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

43505

_arg2 = &temp0;

43506

}

43507

{

43508

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

43509

_arg3 = &temp1;

43510

}

43511

{

43512

/* we can check if IBIS was initialized here */

43513

if (!IbisObj.initialized)

43514

{

43515

Tcl_SetStringObj(

43516

Tcl_GetObjResult(interp),

43517

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43518

return TCL_ERROR;

43519

}

43520

43521

if (! IbisObj.port_guid)

43522

{

43523

Tcl_SetStringObj(

43524

Tcl_GetObjResult(interp),

43525

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43526

return TCL_ERROR;

43527

}

43528

43529

ibis_tcl_error = 0;

43530

_result = (int )smMftBlock_setByLid(_arg0,*_arg1,*_arg2,*_arg3);

43531

;

43532

if (ibis_tcl_error) {

43533

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43534

return TCL_ERROR;

43535

}

43536

} tcl_result = Tcl_GetObjResult(interp);

43537

Tcl_SetIntObj(tcl_result,(long) _result);

43538

return TCL_OK;

43539

}

43540

/* methodcmd8.swg : Tcl8.x method invocation */

43541

43542

static int TclsmMftBlockMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

43543

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

43544

char *_str;

43545

int rcode;

43546

Tcl_Obj **objv;

43547

Tcl_Obj *oldarg,*tcl_result,*obj;

43548

int length;

43549

char c;

43550

43551

tcl_result = Tcl_GetObjResult(interp);

43552

objv = (Tcl_Obj **) _objv;

43553

if (objc < 2) {

43554

Tcl_SetStringObj(tcl_result,"smMftBlock methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

43555

return TCL_ERROR;

43556

}

43557

obj = Tcl_NewObj();

43558

SWIG_SetPointerObj(obj,(void *) clientData,"_smMftBlock_p");

43559

_str = Tcl_GetStringFromObj(objv[1],&length);

43560

c = *_str;

43561

if (0);

43562

if (strcmp(_str,"getByDr") == 0) {

43563

cmd = _wrap_smMftBlock_getByDr;

43564

} else if (strcmp(_str,"setByDr") == 0) {

43565

cmd = _wrap_smMftBlock_setByDr;

43566

} else if (strcmp(_str,"getByLid") == 0) {

43567

cmd = _wrap_smMftBlock_getByLid;

43568

} else if (strcmp(_str,"setByLid") == 0) {

43569

cmd = _wrap_smMftBlock_setByLid;

43570

}

43571

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

43572

int i = 2;

43573

cmd = 0;

43574

while (i+1 < objc) {

43575

_str = Tcl_GetStringFromObj(objv[i],&length);

43576

if (strcmp(_str,"-mft") == 0) {

43577

cmd = _wrap_smMftBlock_mft_set;

43578

}

43579

if (cmd) {

43580

oldarg = objv[i];

43581

objv[i] = obj;

43582

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

43583

objv[i] = oldarg;

43584

if (rcode == TCL_ERROR) return rcode;

43585

cmd = 0;

43586

} else {

43587

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -mft }",-1);

43588

return TCL_ERROR;

43589

}

43590

i+=2;

43591

}

43592

if ((i < objc) || (i == 2)) {

43593

Tcl_SetStringObj(tcl_result,"{ -mft }",-1);

43594

return TCL_ERROR;

43595

}

43596

return TCL_OK;

43597

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

43598

if (objc == 3) {

43599

_str = Tcl_GetStringFromObj(objv[2],&length);

43600

if (0) {}

43601

if (strcmp(_str,"-mft") == 0) {

43602

cmd = _wrap_smMftBlock_mft_get;

43603

}

43604

else if (strcmp(_str,"-this") == 0) {

43605

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smMftBlock_p");

43606

return TCL_OK;

43607

}

43608

if (cmd) {

43609

oldarg = objv[2];

43610

objv[2] = obj;

43611

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

43612

objv[2] = oldarg;

43613

return rcode;

43614

} else {

43615

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -mft }",-1);

43616

return TCL_ERROR;

43617

}

43618

} else {

43619

Tcl_SetStringObj(tcl_result,"{ -this -mft }", -1);

43620

return TCL_ERROR;

43621

}

43622

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

43623

if (objc == 2) {

43624

Tcl_Obj *pDumpObj;

43625

pDumpObj = Tcl_NewStringObj("",-1);

43626

Tcl_IncrRefCount(pDumpObj);

43627

cmd = _wrap_smMftBlock_mft_get;

43628

oldarg = objv[2];

43629

objv[2] = obj;

43630

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

43631

objv[2] = oldarg;

43632

Tcl_AppendStringsToObj(pDumpObj, "-mft ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

43633

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

43634

43635

Tcl_DecrRefCount(pDumpObj);

43636

return TCL_OK;

43637

} else {

43638

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

43639

return TCL_ERROR;

43640

}

43641

}

43642

if (!cmd) {

43643

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

43644

return TCL_ERROR;

43645

}

43646

oldarg = objv[1];

43647

objv[1] = obj;

43648

rcode = (*cmd)(clientData,interp,objc,objv);

43649

objv[1] = oldarg;

43650

return rcode;

43651

}

43652

43653

43654

43655

/* objcmd8.swg : Tcl 8.x object creation */

43656

43657

static int TclsmMftBlockCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43658

void (*del)(ClientData) = 0;

43659

char *name = 0;

43660

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

43661

smMftBlock * newObj = 0;

43662

int firstarg = 0;

43663

int thisarg = 0;

43664

int length;

43665

char *_str;

43666

Tcl_Obj *tcl_result;

43667

43668

tcl_result = Tcl_GetObjResult(interp);

43669

if (objc == 1) {

43670

cmd = 0;

43671

} else {

43672

_str = Tcl_GetStringFromObj(objv[1],&length);

43673

if (strcmp(_str,"-this") == 0) thisarg = 2;

43674

else if (strcmp(_str,"-args") == 0) {

43675

firstarg = 1;

43676

cmd = 0;

43677

} else if (objc == 2) {

43678

firstarg = 1;

43679

name = _str;

43680

cmd = 0;

43681

} else if (objc >= 3) {

43682

name = _str;

43683

_str = Tcl_GetStringFromObj(objv[2],&length);

43684

if (strcmp(_str,"-this") == 0) thisarg = 3;

43685

else {

43686

firstarg = 1;

43687

cmd = 0;

43688

}

43689

}

43690

}

43691

if (cmd) {

43692

int result;

43693

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

43694

if (result == TCL_OK) {

43695

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smMftBlock_p");

43696

} else { return result; }

43697

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

43698

del = 0;

43699

} else if (thisarg > 0) {

43700

if (thisarg < objc) {

43701

char *r;

43702

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smMftBlock_p");

43703

if (r) {

43704

Tcl_SetStringObj(tcl_result,"Type error. not a smMftBlock object.",-1);

43705

return TCL_ERROR;

43706

}

43707

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

43708

Tcl_SetStringObj(tcl_result,name,-1);

43709

} else {

43710

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

43711

return TCL_ERROR;

43712

}

43713

} else {

43714

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

43715

return TCL_ERROR;

43716

}

43717

{

43718

Tcl_CmdInfo dummy;

43719

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

43720

Tcl_CreateObjCommand(interp,name, TclsmMftBlockMethodCmd, (ClientData) newObj, del);

43721

return TCL_OK;

43722

} else {

43723

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

43724

return TCL_ERROR;

43725

}

43726

}

43727

}

43728

43729

43730

static ib_net64_array_t * _ibsm_guid_info_guid_set(smGuidInfo *obj, ib_net64_array_t val[GUID_TABLE_MAX_ENTRIES]) {

43731

{

43732

int i;

43733

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

43734

obj->guid[i] = *(val+i);

43735

}

43736

}

43737

return (ib_net64_array_t *) val;

43738

}

43739

static int _wrap_smGuidInfo_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43740

43741

ib_net64_array_t * _result;

43742

smGuidInfo * _arg0;

43743

ib_net64_array_t * _arg1;

43744

Tcl_Obj * tcl_result;

43745

char * rettype;

43746

ib_net64_t entrys[GUID_TABLE_MAX_ENTRIES];

43747

43748

clientData = clientData; objv = objv;

43749

tcl_result = Tcl_GetObjResult(interp);

43750

if ((objc < 3) || (objc > 3)) {

43751

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_guid_set { smGuidInfo * } { ib_net64_array_t * } ",-1);

43752

return TCL_ERROR;

43753

}

43754

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

43755

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_guid_set. Expected _smGuidInfo_p, received ", -1);

43756

Tcl_AppendToObj(tcl_result, rettype, -1);

43757

return TCL_ERROR;

43758

}

43759

{

43760

char *buff;

43761

char *p_ch;

43762

char *last;

43763

uint64_t entry;

43764

43765

int i = 0;

43766

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

43767

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

43768

p_ch = strtok_r(buff, " \t",&last);

43769

while (p_ch && (i < GUID_TABLE_MAX_ENTRIES))

43770

{

43771

entry = strtoll(p_ch, NULL, 0);

43772

if (entry > 0xffffffffffffffffULL )

43773

{

43774

printf("Error: wrong format or out of range value for expected ib_net64_t entry: %s\n", p_ch);

43775

return TCL_ERROR;

43776

}

43777

entrys[i++] = cl_hton64(entry);

43778

p_ch = strtok_r(NULL, " \t", &last);

43779

}

43780

for (; i < GUID_TABLE_MAX_ENTRIES; i++) entrys[i] = 0;

43781

43782

free(buff);

43783

_arg1 = entrys;

43784

}

43785

{

43786

/* we can check if IBIS was initialized here */

43787

if (!IbisObj.initialized)

43788

{

43789

Tcl_SetStringObj(

43790

Tcl_GetObjResult(interp),

43791

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43792

return TCL_ERROR;

43793

}

43794

43795

if (! IbisObj.port_guid)

43796

{

43797

Tcl_SetStringObj(

43798

Tcl_GetObjResult(interp),

43799

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43800

return TCL_ERROR;

43801

}

43802

43803

ibis_tcl_error = 0;

43804

_result = (ib_net64_array_t *)_ibsm_guid_info_guid_set(_arg0,_arg1);

43805

;

43806

if (ibis_tcl_error) {

43807

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43808

return TCL_ERROR;

43809

}

43810

} tcl_result = Tcl_GetObjResult(interp);

43811

{

43812

int i;

43813

char buff[20];

43814

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

43815

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

43816

Tcl_AppendResult(interp, buff, NULL);

43817

}

43818

}

43819

return TCL_OK;

43820

}

43821

#define _ibsm_guid_info_guid_get(_swigobj) ((ib_net64_array_t *) _swigobj->guid)

43822

static int _wrap_smGuidInfo_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43823

43824

ib_net64_array_t * _result;

43825

smGuidInfo * _arg0;

43826

Tcl_Obj * tcl_result;

43827

char * rettype;

43828

43829

clientData = clientData; objv = objv;

43830

tcl_result = Tcl_GetObjResult(interp);

43831

if ((objc < 2) || (objc > 2)) {

43832

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_guid_get { smGuidInfo * } ",-1);

43833

return TCL_ERROR;

43834

}

43835

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

43836

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_guid_get. Expected _smGuidInfo_p, received ", -1);

43837

Tcl_AppendToObj(tcl_result, rettype, -1);

43838

return TCL_ERROR;

43839

}

43840

{

43841

/* we can check if IBIS was initialized here */

43842

if (!IbisObj.initialized)

43843

{

43844

Tcl_SetStringObj(

43845

Tcl_GetObjResult(interp),

43846

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43847

return TCL_ERROR;

43848

}

43849

43850

if (! IbisObj.port_guid)

43851

{

43852

Tcl_SetStringObj(

43853

Tcl_GetObjResult(interp),

43854

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43855

return TCL_ERROR;

43856

}

43857

43858

ibis_tcl_error = 0;

43859

_result = (ib_net64_array_t *)_ibsm_guid_info_guid_get(_arg0);

43860

;

43861

if (ibis_tcl_error) {

43862

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43863

return TCL_ERROR;

43864

}

43865

} tcl_result = Tcl_GetObjResult(interp);

43866

{

43867

int i;

43868

char buff[20];

43869

for (i=0; i <GUID_TABLE_MAX_ENTRIES ; i++) {

43870

sprintf(buff, "0x%016" PRIx64 " ", cl_ntoh64(*(_result+i)));

43871

Tcl_AppendResult(interp, buff, NULL);

43872

}

43873

}

43874

return TCL_OK;

43875

}

43876

static int smGuidInfo_getByDr(smGuidInfo *self,ibsm_dr_path_t * dr,uint16_t blockNum) {

43877

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smGuidInfo),

43878

dr, CL_NTOH16(IB_MAD_ATTR_GUID_INFO), blockNum,

43879

IB_MAD_METHOD_GET));

43880

}

43881

static int _wrap_smGuidInfo_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43882

43883

int _result;

43884

smGuidInfo * _arg0;

43885

ibsm_dr_path_t * _arg1;

43886

uint16_t * _arg2;

43887

Tcl_Obj * tcl_result;

43888

char * rettype;

43889

ibsm_dr_path_t dr;

43890

uint16_t temp;

43891

43892

clientData = clientData; objv = objv;

43893

tcl_result = Tcl_GetObjResult(interp);

43894

if ((objc < 4) || (objc > 4)) {

43895

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_getByDr { smGuidInfo * } dr blockNum ",-1);

43896

return TCL_ERROR;

43897

}

43898

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

43899

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_getByDr. Expected _smGuidInfo_p, received ", -1);

43900

Tcl_AppendToObj(tcl_result, rettype, -1);

43901

return TCL_ERROR;

43902

}

43903

{

43904

char buf[1024];

43905

char *p_next;

43906

unsigned int port;

43907

int i;

43908

43909

dr.count = 1;

43910

dr.path[0] = 0;

43911

43912

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

43913

buf[1023] = '\0';

43914

p_next = strtok(buf," \t");

43915

while (p_next != NULL)

43916

{

43917

if (sscanf(p_next,"%u", &port) != 1)

43918

{

43919

printf("Error: bad format in directed route path index:%u : %s\n",

43920

dr.count, p_next);

43921

return TCL_ERROR;

43922

}

43923

dr.path[dr.count++] = port;

43924

p_next = strtok(NULL," \t");

43925

}

43926

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

43927

dr.count--;

43928

_arg1 = &dr;

43929

}

43930

{

43931

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

43932

_arg2 = &temp;

43933

}

43934

{

43935

/* we can check if IBIS was initialized here */

43936

if (!IbisObj.initialized)

43937

{

43938

Tcl_SetStringObj(

43939

Tcl_GetObjResult(interp),

43940

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

43941

return TCL_ERROR;

43942

}

43943

43944

if (! IbisObj.port_guid)

43945

{

43946

Tcl_SetStringObj(

43947

Tcl_GetObjResult(interp),

43948

" ibis was not yet initialized. please use ibis_set_port before.", -1);

43949

return TCL_ERROR;

43950

}

43951

43952

ibis_tcl_error = 0;

43953

_result = (int )smGuidInfo_getByDr(_arg0,_arg1,*_arg2);

43954

;

43955

if (ibis_tcl_error) {

43956

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

43957

return TCL_ERROR;

43958

}

43959

} tcl_result = Tcl_GetObjResult(interp);

43960

Tcl_SetIntObj(tcl_result,(long) _result);

43961

return TCL_OK;

43962

}

43963

static int smGuidInfo_setByDr(smGuidInfo *self,ibsm_dr_path_t * dr,uint16_t blockNum) {

43964

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smGuidInfo),

43965

dr, CL_NTOH16(IB_MAD_ATTR_GUID_INFO), blockNum,

43966

IB_MAD_METHOD_SET));

43967

}

43968

static int _wrap_smGuidInfo_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

43969

43970

int _result;

43971

smGuidInfo * _arg0;

43972

ibsm_dr_path_t * _arg1;

43973

uint16_t * _arg2;

43974

Tcl_Obj * tcl_result;

43975

char * rettype;

43976

ibsm_dr_path_t dr;

43977

uint16_t temp;

43978

43979

clientData = clientData; objv = objv;

43980

tcl_result = Tcl_GetObjResult(interp);

43981

if ((objc < 4) || (objc > 4)) {

43982

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_setByDr { smGuidInfo * } dr blockNum ",-1);

43983

return TCL_ERROR;

43984

}

43985

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

43986

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_setByDr. Expected _smGuidInfo_p, received ", -1);

43987

Tcl_AppendToObj(tcl_result, rettype, -1);

43988

return TCL_ERROR;

43989

}

43990

{

43991

char buf[1024];

43992

char *p_next;

43993

unsigned int port;

43994

int i;

43995

43996

dr.count = 1;

43997

dr.path[0] = 0;

43998

43999

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

44000

buf[1023] = '\0';

44001

p_next = strtok(buf," \t");

44002

while (p_next != NULL)

44003

{

44004

if (sscanf(p_next,"%u", &port) != 1)

44005

{

44006

printf("Error: bad format in directed route path index:%u : %s\n",

44007

dr.count, p_next);

44008

return TCL_ERROR;

44009

}

44010

dr.path[dr.count++] = port;

44011

p_next = strtok(NULL," \t");

44012

}

44013

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

44014

dr.count--;

44015

_arg1 = &dr;

44016

}

44017

{

44018

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44019

_arg2 = &temp;

44020

}

44021

{

44022

/* we can check if IBIS was initialized here */

44023

if (!IbisObj.initialized)

44024

{

44025

Tcl_SetStringObj(

44026

Tcl_GetObjResult(interp),

44027

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44028

return TCL_ERROR;

44029

}

44030

44031

if (! IbisObj.port_guid)

44032

{

44033

Tcl_SetStringObj(

44034

Tcl_GetObjResult(interp),

44035

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44036

return TCL_ERROR;

44037

}

44038

44039

ibis_tcl_error = 0;

44040

_result = (int )smGuidInfo_setByDr(_arg0,_arg1,*_arg2);

44041

;

44042

if (ibis_tcl_error) {

44043

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44044

return TCL_ERROR;

44045

}

44046

} tcl_result = Tcl_GetObjResult(interp);

44047

Tcl_SetIntObj(tcl_result,(long) _result);

44048

return TCL_OK;

44049

}

44050

static int smGuidInfo_getByLid(smGuidInfo *self,uint16_t lid,uint16_t blockNum) {

44051

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smGuidInfo),

44052

lid, CL_NTOH16(IB_MAD_ATTR_GUID_INFO), blockNum,

44053

IB_MAD_METHOD_GET));

44054

}

44055

static int _wrap_smGuidInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44056

44057

int _result;

44058

smGuidInfo * _arg0;

44059

uint16_t * _arg1;

44060

uint16_t * _arg2;

44061

Tcl_Obj * tcl_result;

44062

char * rettype;

44063

uint16_t temp;

44064

uint16_t temp0;

44065

44066

clientData = clientData; objv = objv;

44067

tcl_result = Tcl_GetObjResult(interp);

44068

if ((objc < 4) || (objc > 4)) {

44069

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_getByLid { smGuidInfo * } lid blockNum ",-1);

44070

return TCL_ERROR;

44071

}

44072

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

44073

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_getByLid. Expected _smGuidInfo_p, received ", -1);

44074

Tcl_AppendToObj(tcl_result, rettype, -1);

44075

return TCL_ERROR;

44076

}

44077

{

44078

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

44079

_arg1 = &temp;

44080

}

44081

{

44082

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44083

_arg2 = &temp0;

44084

}

44085

{

44086

/* we can check if IBIS was initialized here */

44087

if (!IbisObj.initialized)

44088

{

44089

Tcl_SetStringObj(

44090

Tcl_GetObjResult(interp),

44091

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44092

return TCL_ERROR;

44093

}

44094

44095

if (! IbisObj.port_guid)

44096

{

44097

Tcl_SetStringObj(

44098

Tcl_GetObjResult(interp),

44099

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44100

return TCL_ERROR;

44101

}

44102

44103

ibis_tcl_error = 0;

44104

_result = (int )smGuidInfo_getByLid(_arg0,*_arg1,*_arg2);

44105

;

44106

if (ibis_tcl_error) {

44107

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44108

return TCL_ERROR;

44109

}

44110

} tcl_result = Tcl_GetObjResult(interp);

44111

Tcl_SetIntObj(tcl_result,(long) _result);

44112

return TCL_OK;

44113

}

44114

static int smGuidInfo_setByLid(smGuidInfo *self,uint16_t lid,uint16_t blockNum) {

44115

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smGuidInfo),

44116

lid, CL_NTOH16(IB_MAD_ATTR_GUID_INFO), blockNum,

44117

IB_MAD_METHOD_SET));

44118

}

44119

static int _wrap_smGuidInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44120

44121

int _result;

44122

smGuidInfo * _arg0;

44123

uint16_t * _arg1;

44124

uint16_t * _arg2;

44125

Tcl_Obj * tcl_result;

44126

char * rettype;

44127

uint16_t temp;

44128

uint16_t temp0;

44129

44130

clientData = clientData; objv = objv;

44131

tcl_result = Tcl_GetObjResult(interp);

44132

if ((objc < 4) || (objc > 4)) {

44133

Tcl_SetStringObj(tcl_result,"Wrong # args. smGuidInfo_setByLid { smGuidInfo * } lid blockNum ",-1);

44134

return TCL_ERROR;

44135

}

44136

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smGuidInfo_p"))) {

44137

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smGuidInfo_setByLid. Expected _smGuidInfo_p, received ", -1);

44138

Tcl_AppendToObj(tcl_result, rettype, -1);

44139

return TCL_ERROR;

44140

}

44141

{

44142

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

44143

_arg1 = &temp;

44144

}

44145

{

44146

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44147

_arg2 = &temp0;

44148

}

44149

{

44150

/* we can check if IBIS was initialized here */

44151

if (!IbisObj.initialized)

44152

{

44153

Tcl_SetStringObj(

44154

Tcl_GetObjResult(interp),

44155

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44156

return TCL_ERROR;

44157

}

44158

44159

if (! IbisObj.port_guid)

44160

{

44161

Tcl_SetStringObj(

44162

Tcl_GetObjResult(interp),

44163

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44164

return TCL_ERROR;

44165

}

44166

44167

ibis_tcl_error = 0;

44168

_result = (int )smGuidInfo_setByLid(_arg0,*_arg1,*_arg2);

44169

;

44170

if (ibis_tcl_error) {

44171

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44172

return TCL_ERROR;

44173

}

44174

} tcl_result = Tcl_GetObjResult(interp);

44175

Tcl_SetIntObj(tcl_result,(long) _result);

44176

return TCL_OK;

44177

}

44178

/* methodcmd8.swg : Tcl8.x method invocation */

44179

44180

static int TclsmGuidInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

44181

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

44182

char *_str;

44183

int rcode;

44184

Tcl_Obj **objv;

44185

Tcl_Obj *oldarg,*tcl_result,*obj;

44186

int length;

44187

char c;

44188

44189

tcl_result = Tcl_GetObjResult(interp);

44190

objv = (Tcl_Obj **) _objv;

44191

if (objc < 2) {

44192

Tcl_SetStringObj(tcl_result,"smGuidInfo methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

44193

return TCL_ERROR;

44194

}

44195

obj = Tcl_NewObj();

44196

SWIG_SetPointerObj(obj,(void *) clientData,"_smGuidInfo_p");

44197

_str = Tcl_GetStringFromObj(objv[1],&length);

44198

c = *_str;

44199

if (0);

44200

if (strcmp(_str,"getByDr") == 0) {

44201

cmd = _wrap_smGuidInfo_getByDr;

44202

} else if (strcmp(_str,"setByDr") == 0) {

44203

cmd = _wrap_smGuidInfo_setByDr;

44204

} else if (strcmp(_str,"getByLid") == 0) {

44205

cmd = _wrap_smGuidInfo_getByLid;

44206

} else if (strcmp(_str,"setByLid") == 0) {

44207

cmd = _wrap_smGuidInfo_setByLid;

44208

}

44209

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

44210

int i = 2;

44211

cmd = 0;

44212

while (i+1 < objc) {

44213

_str = Tcl_GetStringFromObj(objv[i],&length);

44214

if (strcmp(_str,"-guid") == 0) {

44215

cmd = _wrap_smGuidInfo_guid_set;

44216

}

44217

if (cmd) {

44218

oldarg = objv[i];

44219

objv[i] = obj;

44220

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

44221

objv[i] = oldarg;

44222

if (rcode == TCL_ERROR) return rcode;

44223

cmd = 0;

44224

} else {

44225

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -guid }",-1);

44226

return TCL_ERROR;

44227

}

44228

i+=2;

44229

}

44230

if ((i < objc) || (i == 2)) {

44231

Tcl_SetStringObj(tcl_result,"{ -guid }",-1);

44232

return TCL_ERROR;

44233

}

44234

return TCL_OK;

44235

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

44236

if (objc == 3) {

44237

_str = Tcl_GetStringFromObj(objv[2],&length);

44238

if (0) {}

44239

if (strcmp(_str,"-guid") == 0) {

44240

cmd = _wrap_smGuidInfo_guid_get;

44241

}

44242

else if (strcmp(_str,"-this") == 0) {

44243

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smGuidInfo_p");

44244

return TCL_OK;

44245

}

44246

if (cmd) {

44247

oldarg = objv[2];

44248

objv[2] = obj;

44249

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

44250

objv[2] = oldarg;

44251

return rcode;

44252

} else {

44253

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -guid }",-1);

44254

return TCL_ERROR;

44255

}

44256

} else {

44257

Tcl_SetStringObj(tcl_result,"{ -this -guid }", -1);

44258

return TCL_ERROR;

44259

}

44260

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

44261

if (objc == 2) {

44262

Tcl_Obj *pDumpObj;

44263

pDumpObj = Tcl_NewStringObj("",-1);

44264

Tcl_IncrRefCount(pDumpObj);

44265

cmd = _wrap_smGuidInfo_guid_get;

44266

oldarg = objv[2];

44267

objv[2] = obj;

44268

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

44269

objv[2] = oldarg;

44270

Tcl_AppendStringsToObj(pDumpObj, "-guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

44271

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

44272

44273

Tcl_DecrRefCount(pDumpObj);

44274

return TCL_OK;

44275

} else {

44276

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

44277

return TCL_ERROR;

44278

}

44279

}

44280

if (!cmd) {

44281

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

44282

return TCL_ERROR;

44283

}

44284

oldarg = objv[1];

44285

objv[1] = obj;

44286

rcode = (*cmd)(clientData,interp,objc,objv);

44287

objv[1] = oldarg;

44288

return rcode;

44289

}

44290

44291

44292

44293

/* objcmd8.swg : Tcl 8.x object creation */

44294

44295

static int TclsmGuidInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44296

void (*del)(ClientData) = 0;

44297

char *name = 0;

44298

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

44299

smGuidInfo * newObj = 0;

44300

int firstarg = 0;

44301

int thisarg = 0;

44302

int length;

44303

char *_str;

44304

Tcl_Obj *tcl_result;

44305

44306

tcl_result = Tcl_GetObjResult(interp);

44307

if (objc == 1) {

44308

cmd = 0;

44309

} else {

44310

_str = Tcl_GetStringFromObj(objv[1],&length);

44311

if (strcmp(_str,"-this") == 0) thisarg = 2;

44312

else if (strcmp(_str,"-args") == 0) {

44313

firstarg = 1;

44314

cmd = 0;

44315

} else if (objc == 2) {

44316

firstarg = 1;

44317

name = _str;

44318

cmd = 0;

44319

} else if (objc >= 3) {

44320

name = _str;

44321

_str = Tcl_GetStringFromObj(objv[2],&length);

44322

if (strcmp(_str,"-this") == 0) thisarg = 3;

44323

else {

44324

firstarg = 1;

44325

cmd = 0;

44326

}

44327

}

44328

}

44329

if (cmd) {

44330

int result;

44331

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

44332

if (result == TCL_OK) {

44333

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smGuidInfo_p");

44334

} else { return result; }

44335

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

44336

del = 0;

44337

} else if (thisarg > 0) {

44338

if (thisarg < objc) {

44339

char *r;

44340

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smGuidInfo_p");

44341

if (r) {

44342

Tcl_SetStringObj(tcl_result,"Type error. not a smGuidInfo object.",-1);

44343

return TCL_ERROR;

44344

}

44345

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

44346

Tcl_SetStringObj(tcl_result,name,-1);

44347

} else {

44348

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

44349

return TCL_ERROR;

44350

}

44351

} else {

44352

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

44353

return TCL_ERROR;

44354

}

44355

{

44356

Tcl_CmdInfo dummy;

44357

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

44358

Tcl_CreateObjCommand(interp,name, TclsmGuidInfoMethodCmd, (ClientData) newObj, del);

44359

return TCL_OK;

44360

} else {

44361

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

44362

return TCL_ERROR;

44363

}

44364

}

44365

}

44366

44367

44368

static ib_net16_array_t * _ibsm_pkey_table_pkey_entry_set(smPkeyTable *obj, ib_net16_array_t val[IB_NUM_PKEY_ELEMENTS_IN_BLOCK]) {

44369

{

44370

int i;

44371

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

44372

obj->pkey_entry[i] = *(val+i);

44373

}

44374

}

44375

return (ib_net16_array_t *) val;

44376

}

44377

static int _wrap_smPkeyTable_pkey_entry_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44378

44379

ib_net16_array_t * _result;

44380

smPkeyTable * _arg0;

44381

ib_net16_array_t * _arg1;

44382

Tcl_Obj * tcl_result;

44383

char * rettype;

44384

ib_net16_t entrys[IB_NUM_PKEY_ELEMENTS_IN_BLOCK];

44385

44386

clientData = clientData; objv = objv;

44387

tcl_result = Tcl_GetObjResult(interp);

44388

if ((objc < 3) || (objc > 3)) {

44389

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_pkey_entry_set { smPkeyTable * } { ib_net16_array_t * } ",-1);

44390

return TCL_ERROR;

44391

}

44392

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44393

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_pkey_entry_set. Expected _smPkeyTable_p, received ", -1);

44394

Tcl_AppendToObj(tcl_result, rettype, -1);

44395

return TCL_ERROR;

44396

}

44397

{

44398

char *buff;

44399

char *p_ch;

44400

char *last;

44401

long int entry;

44402

44403

int i = 0;

44404

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

44405

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

44406

p_ch = strtok_r(buff, " \t",&last);

44407

while (p_ch && (i < IB_NUM_PKEY_ELEMENTS_IN_BLOCK))

44408

{

44409

entry = strtol(p_ch, NULL, 0);

44410

if (entry > 65535)

44411

{

44412

printf("Error: wrong format or out of range value for expected ib_net16_t entry: %s\n", p_ch);

44413

return TCL_ERROR;

44414

}

44415

entrys[i++] = cl_hton16(entry);

44416

p_ch = strtok_r(NULL, " \t", &last);

44417

}

44418

for (; i < IB_NUM_PKEY_ELEMENTS_IN_BLOCK; i++) entrys[i] = 0;

44419

44420

free(buff);

44421

_arg1 = entrys;

44422

}

44423

{

44424

/* we can check if IBIS was initialized here */

44425

if (!IbisObj.initialized)

44426

{

44427

Tcl_SetStringObj(

44428

Tcl_GetObjResult(interp),

44429

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44430

return TCL_ERROR;

44431

}

44432

44433

if (! IbisObj.port_guid)

44434

{

44435

Tcl_SetStringObj(

44436

Tcl_GetObjResult(interp),

44437

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44438

return TCL_ERROR;

44439

}

44440

44441

ibis_tcl_error = 0;

44442

_result = (ib_net16_array_t *)_ibsm_pkey_table_pkey_entry_set(_arg0,_arg1);

44443

;

44444

if (ibis_tcl_error) {

44445

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44446

return TCL_ERROR;

44447

}

44448

} tcl_result = Tcl_GetObjResult(interp);

44449

{

44450

int i;

44451

char buff[8];

44452

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

44453

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

44454

Tcl_AppendResult(interp, buff, NULL);

44455

}

44456

}

44457

return TCL_OK;

44458

}

44459

#define _ibsm_pkey_table_pkey_entry_get(_swigobj) ((ib_net16_array_t *) _swigobj->pkey_entry)

44460

static int _wrap_smPkeyTable_pkey_entry_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44461

44462

ib_net16_array_t * _result;

44463

smPkeyTable * _arg0;

44464

Tcl_Obj * tcl_result;

44465

char * rettype;

44466

44467

clientData = clientData; objv = objv;

44468

tcl_result = Tcl_GetObjResult(interp);

44469

if ((objc < 2) || (objc > 2)) {

44470

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_pkey_entry_get { smPkeyTable * } ",-1);

44471

return TCL_ERROR;

44472

}

44473

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44474

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_pkey_entry_get. Expected _smPkeyTable_p, received ", -1);

44475

Tcl_AppendToObj(tcl_result, rettype, -1);

44476

return TCL_ERROR;

44477

}

44478

{

44479

/* we can check if IBIS was initialized here */

44480

if (!IbisObj.initialized)

44481

{

44482

Tcl_SetStringObj(

44483

Tcl_GetObjResult(interp),

44484

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44485

return TCL_ERROR;

44486

}

44487

44488

if (! IbisObj.port_guid)

44489

{

44490

Tcl_SetStringObj(

44491

Tcl_GetObjResult(interp),

44492

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44493

return TCL_ERROR;

44494

}

44495

44496

ibis_tcl_error = 0;

44497

_result = (ib_net16_array_t *)_ibsm_pkey_table_pkey_entry_get(_arg0);

44498

;

44499

if (ibis_tcl_error) {

44500

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44501

return TCL_ERROR;

44502

}

44503

} tcl_result = Tcl_GetObjResult(interp);

44504

{

44505

int i;

44506

char buff[8];

44507

for (i=0; i <IB_NUM_PKEY_ELEMENTS_IN_BLOCK ; i++) {

44508

sprintf(buff, "0x%04x ", cl_ntoh16(*(_result+i)));

44509

Tcl_AppendResult(interp, buff, NULL);

44510

}

44511

}

44512

return TCL_OK;

44513

}

44514

static int smPkeyTable_getByDr(smPkeyTable *self,ibsm_dr_path_t * dr,uint8_t portNum,uint16_t blockNum) {

44515

uint32_t attrMod = blockNum | (portNum << 16);

44516

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smPkeyTable),

44517

dr, CL_NTOH16(IB_MAD_ATTR_P_KEY_TABLE), attrMod,

44518

IB_MAD_METHOD_GET));

44519

}

44520

static int _wrap_smPkeyTable_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44521

44522

int _result;

44523

smPkeyTable * _arg0;

44524

ibsm_dr_path_t * _arg1;

44525

uint8_t * _arg2;

44526

uint16_t * _arg3;

44527

Tcl_Obj * tcl_result;

44528

char * rettype;

44529

ibsm_dr_path_t dr;

44530

uint8_t temp;

44531

uint16_t temp0;

44532

44533

clientData = clientData; objv = objv;

44534

tcl_result = Tcl_GetObjResult(interp);

44535

if ((objc < 5) || (objc > 5)) {

44536

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_getByDr { smPkeyTable * } dr portNum blockNum ",-1);

44537

return TCL_ERROR;

44538

}

44539

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44540

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_getByDr. Expected _smPkeyTable_p, received ", -1);

44541

Tcl_AppendToObj(tcl_result, rettype, -1);

44542

return TCL_ERROR;

44543

}

44544

{

44545

char buf[1024];

44546

char *p_next;

44547

unsigned int port;

44548

int i;

44549

44550

dr.count = 1;

44551

dr.path[0] = 0;

44552

44553

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

44554

buf[1023] = '\0';

44555

p_next = strtok(buf," \t");

44556

while (p_next != NULL)

44557

{

44558

if (sscanf(p_next,"%u", &port) != 1)

44559

{

44560

printf("Error: bad format in directed route path index:%u : %s\n",

44561

dr.count, p_next);

44562

return TCL_ERROR;

44563

}

44564

dr.path[dr.count++] = port;

44565

p_next = strtok(NULL," \t");

44566

}

44567

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

44568

dr.count--;

44569

_arg1 = &dr;

44570

}

44571

{

44572

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44573

_arg2 = &temp;

44574

}

44575

{

44576

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

44577

_arg3 = &temp0;

44578

}

44579

{

44580

/* we can check if IBIS was initialized here */

44581

if (!IbisObj.initialized)

44582

{

44583

Tcl_SetStringObj(

44584

Tcl_GetObjResult(interp),

44585

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44586

return TCL_ERROR;

44587

}

44588

44589

if (! IbisObj.port_guid)

44590

{

44591

Tcl_SetStringObj(

44592

Tcl_GetObjResult(interp),

44593

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44594

return TCL_ERROR;

44595

}

44596

44597

ibis_tcl_error = 0;

44598

_result = (int )smPkeyTable_getByDr(_arg0,_arg1,*_arg2,*_arg3);

44599

;

44600

if (ibis_tcl_error) {

44601

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44602

return TCL_ERROR;

44603

}

44604

} tcl_result = Tcl_GetObjResult(interp);

44605

Tcl_SetIntObj(tcl_result,(long) _result);

44606

return TCL_OK;

44607

}

44608

static int smPkeyTable_setByDr(smPkeyTable *self,ibsm_dr_path_t * dr,uint8_t portNum,uint16_t blockNum) {

44609

uint32_t attrMod = blockNum | (portNum << 16);

44610

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smPkeyTable),

44611

dr, CL_NTOH16(IB_MAD_ATTR_P_KEY_TABLE), attrMod,

44612

IB_MAD_METHOD_SET));

44613

}

44614

static int _wrap_smPkeyTable_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44615

44616

int _result;

44617

smPkeyTable * _arg0;

44618

ibsm_dr_path_t * _arg1;

44619

uint8_t * _arg2;

44620

uint16_t * _arg3;

44621

Tcl_Obj * tcl_result;

44622

char * rettype;

44623

ibsm_dr_path_t dr;

44624

uint8_t temp;

44625

uint16_t temp0;

44626

44627

clientData = clientData; objv = objv;

44628

tcl_result = Tcl_GetObjResult(interp);

44629

if ((objc < 5) || (objc > 5)) {

44630

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_setByDr { smPkeyTable * } dr portNum blockNum ",-1);

44631

return TCL_ERROR;

44632

}

44633

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44634

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_setByDr. Expected _smPkeyTable_p, received ", -1);

44635

Tcl_AppendToObj(tcl_result, rettype, -1);

44636

return TCL_ERROR;

44637

}

44638

{

44639

char buf[1024];

44640

char *p_next;

44641

unsigned int port;

44642

int i;

44643

44644

dr.count = 1;

44645

dr.path[0] = 0;

44646

44647

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

44648

buf[1023] = '\0';

44649

p_next = strtok(buf," \t");

44650

while (p_next != NULL)

44651

{

44652

if (sscanf(p_next,"%u", &port) != 1)

44653

{

44654

printf("Error: bad format in directed route path index:%u : %s\n",

44655

dr.count, p_next);

44656

return TCL_ERROR;

44657

}

44658

dr.path[dr.count++] = port;

44659

p_next = strtok(NULL," \t");

44660

}

44661

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

44662

dr.count--;

44663

_arg1 = &dr;

44664

}

44665

{

44666

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44667

_arg2 = &temp;

44668

}

44669

{

44670

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

44671

_arg3 = &temp0;

44672

}

44673

{

44674

/* we can check if IBIS was initialized here */

44675

if (!IbisObj.initialized)

44676

{

44677

Tcl_SetStringObj(

44678

Tcl_GetObjResult(interp),

44679

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44680

return TCL_ERROR;

44681

}

44682

44683

if (! IbisObj.port_guid)

44684

{

44685

Tcl_SetStringObj(

44686

Tcl_GetObjResult(interp),

44687

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44688

return TCL_ERROR;

44689

}

44690

44691

ibis_tcl_error = 0;

44692

_result = (int )smPkeyTable_setByDr(_arg0,_arg1,*_arg2,*_arg3);

44693

;

44694

if (ibis_tcl_error) {

44695

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44696

return TCL_ERROR;

44697

}

44698

} tcl_result = Tcl_GetObjResult(interp);

44699

Tcl_SetIntObj(tcl_result,(long) _result);

44700

return TCL_OK;

44701

}

44702

static int smPkeyTable_getByLid(smPkeyTable *self,uint16_t lid,uint8_t portNum,uint16_t blockNum) {

44703

uint32_t attrMod = blockNum | (portNum << 16);

44704

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smPkeyTable),

44705

lid, CL_NTOH16(IB_MAD_ATTR_P_KEY_TABLE), attrMod,

44706

IB_MAD_METHOD_GET));

44707

}

44708

static int _wrap_smPkeyTable_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44709

44710

int _result;

44711

smPkeyTable * _arg0;

44712

uint16_t * _arg1;

44713

uint8_t * _arg2;

44714

uint16_t * _arg3;

44715

Tcl_Obj * tcl_result;

44716

char * rettype;

44717

uint16_t temp;

44718

uint8_t temp0;

44719

uint16_t temp1;

44720

44721

clientData = clientData; objv = objv;

44722

tcl_result = Tcl_GetObjResult(interp);

44723

if ((objc < 5) || (objc > 5)) {

44724

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_getByLid { smPkeyTable * } lid portNum blockNum ",-1);

44725

return TCL_ERROR;

44726

}

44727

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44728

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_getByLid. Expected _smPkeyTable_p, received ", -1);

44729

Tcl_AppendToObj(tcl_result, rettype, -1);

44730

return TCL_ERROR;

44731

}

44732

{

44733

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

44734

_arg1 = &temp;

44735

}

44736

{

44737

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44738

_arg2 = &temp0;

44739

}

44740

{

44741

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

44742

_arg3 = &temp1;

44743

}

44744

{

44745

/* we can check if IBIS was initialized here */

44746

if (!IbisObj.initialized)

44747

{

44748

Tcl_SetStringObj(

44749

Tcl_GetObjResult(interp),

44750

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44751

return TCL_ERROR;

44752

}

44753

44754

if (! IbisObj.port_guid)

44755

{

44756

Tcl_SetStringObj(

44757

Tcl_GetObjResult(interp),

44758

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44759

return TCL_ERROR;

44760

}

44761

44762

ibis_tcl_error = 0;

44763

_result = (int )smPkeyTable_getByLid(_arg0,*_arg1,*_arg2,*_arg3);

44764

;

44765

if (ibis_tcl_error) {

44766

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44767

return TCL_ERROR;

44768

}

44769

} tcl_result = Tcl_GetObjResult(interp);

44770

Tcl_SetIntObj(tcl_result,(long) _result);

44771

return TCL_OK;

44772

}

44773

static int smPkeyTable_setByLid(smPkeyTable *self,uint16_t lid,uint8_t portNum,uint16_t blockNum) {

44774

uint32_t attrMod = blockNum | (portNum << 16);

44775

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smPkeyTable),

44776

lid, CL_NTOH16(IB_MAD_ATTR_P_KEY_TABLE), attrMod,

44777

IB_MAD_METHOD_SET));

44778

}

44779

static int _wrap_smPkeyTable_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44780

44781

int _result;

44782

smPkeyTable * _arg0;

44783

uint16_t * _arg1;

44784

uint8_t * _arg2;

44785

uint16_t * _arg3;

44786

Tcl_Obj * tcl_result;

44787

char * rettype;

44788

uint16_t temp;

44789

uint8_t temp0;

44790

uint16_t temp1;

44791

44792

clientData = clientData; objv = objv;

44793

tcl_result = Tcl_GetObjResult(interp);

44794

if ((objc < 5) || (objc > 5)) {

44795

Tcl_SetStringObj(tcl_result,"Wrong # args. smPkeyTable_setByLid { smPkeyTable * } lid portNum blockNum ",-1);

44796

return TCL_ERROR;

44797

}

44798

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smPkeyTable_p"))) {

44799

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smPkeyTable_setByLid. Expected _smPkeyTable_p, received ", -1);

44800

Tcl_AppendToObj(tcl_result, rettype, -1);

44801

return TCL_ERROR;

44802

}

44803

{

44804

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

44805

_arg1 = &temp;

44806

}

44807

{

44808

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

44809

_arg2 = &temp0;

44810

}

44811

{

44812

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

44813

_arg3 = &temp1;

44814

}

44815

{

44816

/* we can check if IBIS was initialized here */

44817

if (!IbisObj.initialized)

44818

{

44819

Tcl_SetStringObj(

44820

Tcl_GetObjResult(interp),

44821

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

44822

return TCL_ERROR;

44823

}

44824

44825

if (! IbisObj.port_guid)

44826

{

44827

Tcl_SetStringObj(

44828

Tcl_GetObjResult(interp),

44829

" ibis was not yet initialized. please use ibis_set_port before.", -1);

44830

return TCL_ERROR;

44831

}

44832

44833

ibis_tcl_error = 0;

44834

_result = (int )smPkeyTable_setByLid(_arg0,*_arg1,*_arg2,*_arg3);

44835

;

44836

if (ibis_tcl_error) {

44837

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

44838

return TCL_ERROR;

44839

}

44840

} tcl_result = Tcl_GetObjResult(interp);

44841

Tcl_SetIntObj(tcl_result,(long) _result);

44842

return TCL_OK;

44843

}

44844

/* methodcmd8.swg : Tcl8.x method invocation */

44845

44846

static int TclsmPkeyTableMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

44847

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

44848

char *_str;

44849

int rcode;

44850

Tcl_Obj **objv;

44851

Tcl_Obj *oldarg,*tcl_result,*obj;

44852

int length;

44853

char c;

44854

44855

tcl_result = Tcl_GetObjResult(interp);

44856

objv = (Tcl_Obj **) _objv;

44857

if (objc < 2) {

44858

Tcl_SetStringObj(tcl_result,"smPkeyTable methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

44859

return TCL_ERROR;

44860

}

44861

obj = Tcl_NewObj();

44862

SWIG_SetPointerObj(obj,(void *) clientData,"_smPkeyTable_p");

44863

_str = Tcl_GetStringFromObj(objv[1],&length);

44864

c = *_str;

44865

if (0);

44866

if (strcmp(_str,"getByDr") == 0) {

44867

cmd = _wrap_smPkeyTable_getByDr;

44868

} else if (strcmp(_str,"setByDr") == 0) {

44869

cmd = _wrap_smPkeyTable_setByDr;

44870

} else if (strcmp(_str,"getByLid") == 0) {

44871

cmd = _wrap_smPkeyTable_getByLid;

44872

} else if (strcmp(_str,"setByLid") == 0) {

44873

cmd = _wrap_smPkeyTable_setByLid;

44874

}

44875

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

44876

int i = 2;

44877

cmd = 0;

44878

while (i+1 < objc) {

44879

_str = Tcl_GetStringFromObj(objv[i],&length);

44880

if (strcmp(_str,"-pkey_entry") == 0) {

44881

cmd = _wrap_smPkeyTable_pkey_entry_set;

44882

}

44883

if (cmd) {

44884

oldarg = objv[i];

44885

objv[i] = obj;

44886

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

44887

objv[i] = oldarg;

44888

if (rcode == TCL_ERROR) return rcode;

44889

cmd = 0;

44890

} else {

44891

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pkey_entry }",-1);

44892

return TCL_ERROR;

44893

}

44894

i+=2;

44895

}

44896

if ((i < objc) || (i == 2)) {

44897

Tcl_SetStringObj(tcl_result,"{ -pkey_entry }",-1);

44898

return TCL_ERROR;

44899

}

44900

return TCL_OK;

44901

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

44902

if (objc == 3) {

44903

_str = Tcl_GetStringFromObj(objv[2],&length);

44904

if (0) {}

44905

if (strcmp(_str,"-pkey_entry") == 0) {

44906

cmd = _wrap_smPkeyTable_pkey_entry_get;

44907

}

44908

else if (strcmp(_str,"-this") == 0) {

44909

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smPkeyTable_p");

44910

return TCL_OK;

44911

}

44912

if (cmd) {

44913

oldarg = objv[2];

44914

objv[2] = obj;

44915

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

44916

objv[2] = oldarg;

44917

return rcode;

44918

} else {

44919

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pkey_entry }",-1);

44920

return TCL_ERROR;

44921

}

44922

} else {

44923

Tcl_SetStringObj(tcl_result,"{ -this -pkey_entry }", -1);

44924

return TCL_ERROR;

44925

}

44926

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

44927

if (objc == 2) {

44928

Tcl_Obj *pDumpObj;

44929

pDumpObj = Tcl_NewStringObj("",-1);

44930

Tcl_IncrRefCount(pDumpObj);

44931

cmd = _wrap_smPkeyTable_pkey_entry_get;

44932

oldarg = objv[2];

44933

objv[2] = obj;

44934

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

44935

objv[2] = oldarg;

44936

Tcl_AppendStringsToObj(pDumpObj, "-pkey_entry ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

44937

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

44938

44939

Tcl_DecrRefCount(pDumpObj);

44940

return TCL_OK;

44941

} else {

44942

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

44943

return TCL_ERROR;

44944

}

44945

}

44946

if (!cmd) {

44947

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

44948

return TCL_ERROR;

44949

}

44950

oldarg = objv[1];

44951

objv[1] = obj;

44952

rcode = (*cmd)(clientData,interp,objc,objv);

44953

objv[1] = oldarg;

44954

return rcode;

44955

}

44956

44957

44958

44959

/* objcmd8.swg : Tcl 8.x object creation */

44960

44961

static int TclsmPkeyTableCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

44962

void (*del)(ClientData) = 0;

44963

char *name = 0;

44964

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

44965

smPkeyTable * newObj = 0;

44966

int firstarg = 0;

44967

int thisarg = 0;

44968

int length;

44969

char *_str;

44970

Tcl_Obj *tcl_result;

44971

44972

tcl_result = Tcl_GetObjResult(interp);

44973

if (objc == 1) {

44974

cmd = 0;

44975

} else {

44976

_str = Tcl_GetStringFromObj(objv[1],&length);

44977

if (strcmp(_str,"-this") == 0) thisarg = 2;

44978

else if (strcmp(_str,"-args") == 0) {

44979

firstarg = 1;

44980

cmd = 0;

44981

} else if (objc == 2) {

44982

firstarg = 1;

44983

name = _str;

44984

cmd = 0;

44985

} else if (objc >= 3) {

44986

name = _str;

44987

_str = Tcl_GetStringFromObj(objv[2],&length);

44988

if (strcmp(_str,"-this") == 0) thisarg = 3;

44989

else {

44990

firstarg = 1;

44991

cmd = 0;

44992

}

44993

}

44994

}

44995

if (cmd) {

44996

int result;

44997

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

44998

if (result == TCL_OK) {

44999

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smPkeyTable_p");

45000

} else { return result; }

45001

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

45002

del = 0;

45003

} else if (thisarg > 0) {

45004

if (thisarg < objc) {

45005

char *r;

45006

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smPkeyTable_p");

45007

if (r) {

45008

Tcl_SetStringObj(tcl_result,"Type error. not a smPkeyTable object.",-1);

45009

return TCL_ERROR;

45010

}

45011

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

45012

Tcl_SetStringObj(tcl_result,name,-1);

45013

} else {

45014

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

45015

return TCL_ERROR;

45016

}

45017

} else {

45018

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

45019

return TCL_ERROR;

45020

}

45021

{

45022

Tcl_CmdInfo dummy;

45023

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

45024

Tcl_CreateObjCommand(interp,name, TclsmPkeyTableMethodCmd, (ClientData) newObj, del);

45025

return TCL_OK;

45026

} else {

45027

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

45028

return TCL_ERROR;

45029

}

45030

}

45031

}

45032

45033

45034

static uint8_array_t * _ibsm_slvl_table_raw_vl_by_sl_set(smSlVlTable *obj, uint8_array_t val[IB_MAX_NUM_VLS/2]) {

45035

{

45036

int i;

45037

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

45038

obj->raw_vl_by_sl[i] = *(val+i);

45039

}

45040

}

45041

return (uint8_array_t *) val;

45042

}

45043

static int _wrap_smSlVlTable_raw_vl_by_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45044

45045

uint8_array_t * _result;

45046

smSlVlTable * _arg0;

45047

uint8_array_t * _arg1;

45048

Tcl_Obj * tcl_result;

45049

char * rettype;

45050

uint8_t entrys[IB_MAX_NUM_VLS/2];

45051

45052

clientData = clientData; objv = objv;

45053

tcl_result = Tcl_GetObjResult(interp);

45054

if ((objc < 3) || (objc > 3)) {

45055

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_raw_vl_by_sl_set { smSlVlTable * } { uint8_array_t * } ",-1);

45056

return TCL_ERROR;

45057

}

45058

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45059

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_raw_vl_by_sl_set. Expected _smSlVlTable_p, received ", -1);

45060

Tcl_AppendToObj(tcl_result, rettype, -1);

45061

return TCL_ERROR;

45062

}

45063

{

45064

char *buff;

45065

char *p_ch;

45066

char *last;

45067

long int entry;

45068

45069

int i = 0;

45070

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

45071

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

45072

p_ch = strtok_r(buff, " \t",&last);

45073

while (p_ch && (i < IB_MAX_NUM_VLS/2))

45074

{

45075

entry = strtol(p_ch, NULL, 0);

45076

if (entry > 0xff)

45077

{

45078

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

45079

return TCL_ERROR;

45080

}

45081

entrys[i++] = entry;

45082

p_ch = strtok_r(NULL, " \t", &last);

45083

}

45084

for (; i < IB_MAX_NUM_VLS/2; i++) entrys[i] = 0;

45085

45086

free(buff);

45087

_arg1 = entrys;

45088

}

45089

{

45090

/* we can check if IBIS was initialized here */

45091

if (!IbisObj.initialized)

45092

{

45093

Tcl_SetStringObj(

45094

Tcl_GetObjResult(interp),

45095

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45096

return TCL_ERROR;

45097

}

45098

45099

if (! IbisObj.port_guid)

45100

{

45101

Tcl_SetStringObj(

45102

Tcl_GetObjResult(interp),

45103

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45104

return TCL_ERROR;

45105

}

45106

45107

ibis_tcl_error = 0;

45108

_result = (uint8_array_t *)_ibsm_slvl_table_raw_vl_by_sl_set(_arg0,_arg1);

45109

;

45110

if (ibis_tcl_error) {

45111

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45112

return TCL_ERROR;

45113

}

45114

} tcl_result = Tcl_GetObjResult(interp);

45115

{

45116

int i;

45117

char buff[8];

45118

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

45119

sprintf(buff, "0x%02x ", *(_result+i));

45120

Tcl_AppendResult(interp, buff, NULL);

45121

}

45122

}

45123

return TCL_OK;

45124

}

45125

#define _ibsm_slvl_table_raw_vl_by_sl_get(_swigobj) ((uint8_array_t *) _swigobj->raw_vl_by_sl)

45126

static int _wrap_smSlVlTable_raw_vl_by_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45127

45128

uint8_array_t * _result;

45129

smSlVlTable * _arg0;

45130

Tcl_Obj * tcl_result;

45131

char * rettype;

45132

45133

clientData = clientData; objv = objv;

45134

tcl_result = Tcl_GetObjResult(interp);

45135

if ((objc < 2) || (objc > 2)) {

45136

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_raw_vl_by_sl_get { smSlVlTable * } ",-1);

45137

return TCL_ERROR;

45138

}

45139

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45140

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_raw_vl_by_sl_get. Expected _smSlVlTable_p, received ", -1);

45141

Tcl_AppendToObj(tcl_result, rettype, -1);

45142

return TCL_ERROR;

45143

}

45144

{

45145

/* we can check if IBIS was initialized here */

45146

if (!IbisObj.initialized)

45147

{

45148

Tcl_SetStringObj(

45149

Tcl_GetObjResult(interp),

45150

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45151

return TCL_ERROR;

45152

}

45153

45154

if (! IbisObj.port_guid)

45155

{

45156

Tcl_SetStringObj(

45157

Tcl_GetObjResult(interp),

45158

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45159

return TCL_ERROR;

45160

}

45161

45162

ibis_tcl_error = 0;

45163

_result = (uint8_array_t *)_ibsm_slvl_table_raw_vl_by_sl_get(_arg0);

45164

;

45165

if (ibis_tcl_error) {

45166

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45167

return TCL_ERROR;

45168

}

45169

} tcl_result = Tcl_GetObjResult(interp);

45170

{

45171

int i;

45172

char buff[8];

45173

for (i=0; i <IB_MAX_NUM_VLS/2 ; i++) {

45174

sprintf(buff, "0x%02x ", *(_result+i));

45175

Tcl_AppendResult(interp, buff, NULL);

45176

}

45177

}

45178

return TCL_OK;

45179

}

45180

static int smSlVlTable_getByDr(smSlVlTable *self,ibsm_dr_path_t * dr,uint8_t inPortNum,uint8_t outPortNum) {

45181

uint32_t attrMod = outPortNum | (inPortNum << 8);

45182

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSlVlTable),

45183

dr, CL_NTOH16(IB_MAD_ATTR_SLVL_TABLE), attrMod,

45184

IB_MAD_METHOD_GET));

45185

}

45186

static int _wrap_smSlVlTable_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45187

45188

int _result;

45189

smSlVlTable * _arg0;

45190

ibsm_dr_path_t * _arg1;

45191

uint8_t * _arg2;

45192

uint8_t * _arg3;

45193

Tcl_Obj * tcl_result;

45194

char * rettype;

45195

ibsm_dr_path_t dr;

45196

uint8_t temp;

45197

uint8_t temp0;

45198

45199

clientData = clientData; objv = objv;

45200

tcl_result = Tcl_GetObjResult(interp);

45201

if ((objc < 5) || (objc > 5)) {

45202

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_getByDr { smSlVlTable * } dr inPortNum outPortNum ",-1);

45203

return TCL_ERROR;

45204

}

45205

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45206

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_getByDr. Expected _smSlVlTable_p, received ", -1);

45207

Tcl_AppendToObj(tcl_result, rettype, -1);

45208

return TCL_ERROR;

45209

}

45210

{

45211

char buf[1024];

45212

char *p_next;

45213

unsigned int port;

45214

int i;

45215

45216

dr.count = 1;

45217

dr.path[0] = 0;

45218

45219

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

45220

buf[1023] = '\0';

45221

p_next = strtok(buf," \t");

45222

while (p_next != NULL)

45223

{

45224

if (sscanf(p_next,"%u", &port) != 1)

45225

{

45226

printf("Error: bad format in directed route path index:%u : %s\n",

45227

dr.count, p_next);

45228

return TCL_ERROR;

45229

}

45230

dr.path[dr.count++] = port;

45231

p_next = strtok(NULL," \t");

45232

}

45233

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

45234

dr.count--;

45235

_arg1 = &dr;

45236

}

45237

{

45238

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

45239

_arg2 = &temp;

45240

}

45241

{

45242

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

45243

_arg3 = &temp0;

45244

}

45245

{

45246

/* we can check if IBIS was initialized here */

45247

if (!IbisObj.initialized)

45248

{

45249

Tcl_SetStringObj(

45250

Tcl_GetObjResult(interp),

45251

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45252

return TCL_ERROR;

45253

}

45254

45255

if (! IbisObj.port_guid)

45256

{

45257

Tcl_SetStringObj(

45258

Tcl_GetObjResult(interp),

45259

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45260

return TCL_ERROR;

45261

}

45262

45263

ibis_tcl_error = 0;

45264

_result = (int )smSlVlTable_getByDr(_arg0,_arg1,*_arg2,*_arg3);

45265

;

45266

if (ibis_tcl_error) {

45267

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45268

return TCL_ERROR;

45269

}

45270

} tcl_result = Tcl_GetObjResult(interp);

45271

Tcl_SetIntObj(tcl_result,(long) _result);

45272

return TCL_OK;

45273

}

45274

static int smSlVlTable_setByDr(smSlVlTable *self,ibsm_dr_path_t * dr,uint8_t inPortNum,uint8_t outPortNum) {

45275

uint32_t attrMod = outPortNum | (inPortNum << 8);

45276

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSlVlTable),

45277

dr, CL_NTOH16(IB_MAD_ATTR_SLVL_TABLE), attrMod,

45278

IB_MAD_METHOD_SET));

45279

}

45280

static int _wrap_smSlVlTable_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45281

45282

int _result;

45283

smSlVlTable * _arg0;

45284

ibsm_dr_path_t * _arg1;

45285

uint8_t * _arg2;

45286

uint8_t * _arg3;

45287

Tcl_Obj * tcl_result;

45288

char * rettype;

45289

ibsm_dr_path_t dr;

45290

uint8_t temp;

45291

uint8_t temp0;

45292

45293

clientData = clientData; objv = objv;

45294

tcl_result = Tcl_GetObjResult(interp);

45295

if ((objc < 5) || (objc > 5)) {

45296

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_setByDr { smSlVlTable * } dr inPortNum outPortNum ",-1);

45297

return TCL_ERROR;

45298

}

45299

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45300

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_setByDr. Expected _smSlVlTable_p, received ", -1);

45301

Tcl_AppendToObj(tcl_result, rettype, -1);

45302

return TCL_ERROR;

45303

}

45304

{

45305

char buf[1024];

45306

char *p_next;

45307

unsigned int port;

45308

int i;

45309

45310

dr.count = 1;

45311

dr.path[0] = 0;

45312

45313

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

45314

buf[1023] = '\0';

45315

p_next = strtok(buf," \t");

45316

while (p_next != NULL)

45317

{

45318

if (sscanf(p_next,"%u", &port) != 1)

45319

{

45320

printf("Error: bad format in directed route path index:%u : %s\n",

45321

dr.count, p_next);

45322

return TCL_ERROR;

45323

}

45324

dr.path[dr.count++] = port;

45325

p_next = strtok(NULL," \t");

45326

}

45327

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

45328

dr.count--;

45329

_arg1 = &dr;

45330

}

45331

{

45332

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

45333

_arg2 = &temp;

45334

}

45335

{

45336

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

45337

_arg3 = &temp0;

45338

}

45339

{

45340

/* we can check if IBIS was initialized here */

45341

if (!IbisObj.initialized)

45342

{

45343

Tcl_SetStringObj(

45344

Tcl_GetObjResult(interp),

45345

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45346

return TCL_ERROR;

45347

}

45348

45349

if (! IbisObj.port_guid)

45350

{

45351

Tcl_SetStringObj(

45352

Tcl_GetObjResult(interp),

45353

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45354

return TCL_ERROR;

45355

}

45356

45357

ibis_tcl_error = 0;

45358

_result = (int )smSlVlTable_setByDr(_arg0,_arg1,*_arg2,*_arg3);

45359

;

45360

if (ibis_tcl_error) {

45361

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45362

return TCL_ERROR;

45363

}

45364

} tcl_result = Tcl_GetObjResult(interp);

45365

Tcl_SetIntObj(tcl_result,(long) _result);

45366

return TCL_OK;

45367

}

45368

static int smSlVlTable_getByLid(smSlVlTable *self,uint16_t lid,uint8_t inPortNum,uint8_t outPortNum) {

45369

uint32_t attrMod = outPortNum | (inPortNum << 8);

45370

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSlVlTable),

45371

lid, CL_NTOH16(IB_MAD_ATTR_SLVL_TABLE), attrMod,

45372

IB_MAD_METHOD_GET));

45373

}

45374

static int _wrap_smSlVlTable_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45375

45376

int _result;

45377

smSlVlTable * _arg0;

45378

uint16_t * _arg1;

45379

uint8_t * _arg2;

45380

uint8_t * _arg3;

45381

Tcl_Obj * tcl_result;

45382

char * rettype;

45383

uint16_t temp;

45384

uint8_t temp0;

45385

uint8_t temp1;

45386

45387

clientData = clientData; objv = objv;

45388

tcl_result = Tcl_GetObjResult(interp);

45389

if ((objc < 5) || (objc > 5)) {

45390

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_getByLid { smSlVlTable * } lid inPortNum outPortNum ",-1);

45391

return TCL_ERROR;

45392

}

45393

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45394

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_getByLid. Expected _smSlVlTable_p, received ", -1);

45395

Tcl_AppendToObj(tcl_result, rettype, -1);

45396

return TCL_ERROR;

45397

}

45398

{

45399

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

45400

_arg1 = &temp;

45401

}

45402

{

45403

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

45404

_arg2 = &temp0;

45405

}

45406

{

45407

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

45408

_arg3 = &temp1;

45409

}

45410

{

45411

/* we can check if IBIS was initialized here */

45412

if (!IbisObj.initialized)

45413

{

45414

Tcl_SetStringObj(

45415

Tcl_GetObjResult(interp),

45416

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45417

return TCL_ERROR;

45418

}

45419

45420

if (! IbisObj.port_guid)

45421

{

45422

Tcl_SetStringObj(

45423

Tcl_GetObjResult(interp),

45424

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45425

return TCL_ERROR;

45426

}

45427

45428

ibis_tcl_error = 0;

45429

_result = (int )smSlVlTable_getByLid(_arg0,*_arg1,*_arg2,*_arg3);

45430

;

45431

if (ibis_tcl_error) {

45432

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45433

return TCL_ERROR;

45434

}

45435

} tcl_result = Tcl_GetObjResult(interp);

45436

Tcl_SetIntObj(tcl_result,(long) _result);

45437

return TCL_OK;

45438

}

45439

static int smSlVlTable_setByLid(smSlVlTable *self,uint16_t lid,uint8_t inPortNum,uint8_t outPortNum) {

45440

uint32_t attrMod = outPortNum | (inPortNum << 8);

45441

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSlVlTable),

45442

lid, CL_NTOH16(IB_MAD_ATTR_SLVL_TABLE), attrMod,

45443

IB_MAD_METHOD_SET));

45444

}

45445

static int _wrap_smSlVlTable_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45446

45447

int _result;

45448

smSlVlTable * _arg0;

45449

uint16_t * _arg1;

45450

uint8_t * _arg2;

45451

uint8_t * _arg3;

45452

Tcl_Obj * tcl_result;

45453

char * rettype;

45454

uint16_t temp;

45455

uint8_t temp0;

45456

uint8_t temp1;

45457

45458

clientData = clientData; objv = objv;

45459

tcl_result = Tcl_GetObjResult(interp);

45460

if ((objc < 5) || (objc > 5)) {

45461

Tcl_SetStringObj(tcl_result,"Wrong # args. smSlVlTable_setByLid { smSlVlTable * } lid inPortNum outPortNum ",-1);

45462

return TCL_ERROR;

45463

}

45464

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSlVlTable_p"))) {

45465

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSlVlTable_setByLid. Expected _smSlVlTable_p, received ", -1);

45466

Tcl_AppendToObj(tcl_result, rettype, -1);

45467

return TCL_ERROR;

45468

}

45469

{

45470

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

45471

_arg1 = &temp;

45472

}

45473

{

45474

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

45475

_arg2 = &temp0;

45476

}

45477

{

45478

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

45479

_arg3 = &temp1;

45480

}

45481

{

45482

/* we can check if IBIS was initialized here */

45483

if (!IbisObj.initialized)

45484

{

45485

Tcl_SetStringObj(

45486

Tcl_GetObjResult(interp),

45487

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45488

return TCL_ERROR;

45489

}

45490

45491

if (! IbisObj.port_guid)

45492

{

45493

Tcl_SetStringObj(

45494

Tcl_GetObjResult(interp),

45495

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45496

return TCL_ERROR;

45497

}

45498

45499

ibis_tcl_error = 0;

45500

_result = (int )smSlVlTable_setByLid(_arg0,*_arg1,*_arg2,*_arg3);

45501

;

45502

if (ibis_tcl_error) {

45503

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45504

return TCL_ERROR;

45505

}

45506

} tcl_result = Tcl_GetObjResult(interp);

45507

Tcl_SetIntObj(tcl_result,(long) _result);

45508

return TCL_OK;

45509

}

45510

/* methodcmd8.swg : Tcl8.x method invocation */

45511

45512

static int TclsmSlVlTableMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

45513

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

45514

char *_str;

45515

int rcode;

45516

Tcl_Obj **objv;

45517

Tcl_Obj *oldarg,*tcl_result,*obj;

45518

int length;

45519

char c;

45520

45521

tcl_result = Tcl_GetObjResult(interp);

45522

objv = (Tcl_Obj **) _objv;

45523

if (objc < 2) {

45524

Tcl_SetStringObj(tcl_result,"smSlVlTable methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

45525

return TCL_ERROR;

45526

}

45527

obj = Tcl_NewObj();

45528

SWIG_SetPointerObj(obj,(void *) clientData,"_smSlVlTable_p");

45529

_str = Tcl_GetStringFromObj(objv[1],&length);

45530

c = *_str;

45531

if (0);

45532

if (strcmp(_str,"getByDr") == 0) {

45533

cmd = _wrap_smSlVlTable_getByDr;

45534

} else if (strcmp(_str,"setByDr") == 0) {

45535

cmd = _wrap_smSlVlTable_setByDr;

45536

} else if (strcmp(_str,"getByLid") == 0) {

45537

cmd = _wrap_smSlVlTable_getByLid;

45538

} else if (strcmp(_str,"setByLid") == 0) {

45539

cmd = _wrap_smSlVlTable_setByLid;

45540

}

45541

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

45542

int i = 2;

45543

cmd = 0;

45544

while (i+1 < objc) {

45545

_str = Tcl_GetStringFromObj(objv[i],&length);

45546

if (strcmp(_str,"-raw_vl_by_sl") == 0) {

45547

cmd = _wrap_smSlVlTable_raw_vl_by_sl_set;

45548

}

45549

if (cmd) {

45550

oldarg = objv[i];

45551

objv[i] = obj;

45552

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

45553

objv[i] = oldarg;

45554

if (rcode == TCL_ERROR) return rcode;

45555

cmd = 0;

45556

} else {

45557

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -raw_vl_by_sl }",-1);

45558

return TCL_ERROR;

45559

}

45560

i+=2;

45561

}

45562

if ((i < objc) || (i == 2)) {

45563

Tcl_SetStringObj(tcl_result,"{ -raw_vl_by_sl }",-1);

45564

return TCL_ERROR;

45565

}

45566

return TCL_OK;

45567

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

45568

if (objc == 3) {

45569

_str = Tcl_GetStringFromObj(objv[2],&length);

45570

if (0) {}

45571

if (strcmp(_str,"-raw_vl_by_sl") == 0) {

45572

cmd = _wrap_smSlVlTable_raw_vl_by_sl_get;

45573

}

45574

else if (strcmp(_str,"-this") == 0) {

45575

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smSlVlTable_p");

45576

return TCL_OK;

45577

}

45578

if (cmd) {

45579

oldarg = objv[2];

45580

objv[2] = obj;

45581

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

45582

objv[2] = oldarg;

45583

return rcode;

45584

} else {

45585

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -raw_vl_by_sl }",-1);

45586

return TCL_ERROR;

45587

}

45588

} else {

45589

Tcl_SetStringObj(tcl_result,"{ -this -raw_vl_by_sl }", -1);

45590

return TCL_ERROR;

45591

}

45592

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

45593

if (objc == 2) {

45594

Tcl_Obj *pDumpObj;

45595

pDumpObj = Tcl_NewStringObj("",-1);

45596

Tcl_IncrRefCount(pDumpObj);

45597

cmd = _wrap_smSlVlTable_raw_vl_by_sl_get;

45598

oldarg = objv[2];

45599

objv[2] = obj;

45600

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

45601

objv[2] = oldarg;

45602

Tcl_AppendStringsToObj(pDumpObj, "-raw_vl_by_sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

45603

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

45604

45605

Tcl_DecrRefCount(pDumpObj);

45606

return TCL_OK;

45607

} else {

45608

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

45609

return TCL_ERROR;

45610

}

45611

}

45612

if (!cmd) {

45613

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

45614

return TCL_ERROR;

45615

}

45616

oldarg = objv[1];

45617

objv[1] = obj;

45618

rcode = (*cmd)(clientData,interp,objc,objv);

45619

objv[1] = oldarg;

45620

return rcode;

45621

}

45622

45623

45624

45625

/* objcmd8.swg : Tcl 8.x object creation */

45626

45627

static int TclsmSlVlTableCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45628

void (*del)(ClientData) = 0;

45629

char *name = 0;

45630

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

45631

smSlVlTable * newObj = 0;

45632

int firstarg = 0;

45633

int thisarg = 0;

45634

int length;

45635

char *_str;

45636

Tcl_Obj *tcl_result;

45637

45638

tcl_result = Tcl_GetObjResult(interp);

45639

if (objc == 1) {

45640

cmd = 0;

45641

} else {

45642

_str = Tcl_GetStringFromObj(objv[1],&length);

45643

if (strcmp(_str,"-this") == 0) thisarg = 2;

45644

else if (strcmp(_str,"-args") == 0) {

45645

firstarg = 1;

45646

cmd = 0;

45647

} else if (objc == 2) {

45648

firstarg = 1;

45649

name = _str;

45650

cmd = 0;

45651

} else if (objc >= 3) {

45652

name = _str;

45653

_str = Tcl_GetStringFromObj(objv[2],&length);

45654

if (strcmp(_str,"-this") == 0) thisarg = 3;

45655

else {

45656

firstarg = 1;

45657

cmd = 0;

45658

}

45659

}

45660

}

45661

if (cmd) {

45662

int result;

45663

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

45664

if (result == TCL_OK) {

45665

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smSlVlTable_p");

45666

} else { return result; }

45667

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

45668

del = 0;

45669

} else if (thisarg > 0) {

45670

if (thisarg < objc) {

45671

char *r;

45672

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smSlVlTable_p");

45673

if (r) {

45674

Tcl_SetStringObj(tcl_result,"Type error. not a smSlVlTable object.",-1);

45675

return TCL_ERROR;

45676

}

45677

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

45678

Tcl_SetStringObj(tcl_result,name,-1);

45679

} else {

45680

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

45681

return TCL_ERROR;

45682

}

45683

} else {

45684

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

45685

return TCL_ERROR;

45686

}

45687

{

45688

Tcl_CmdInfo dummy;

45689

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

45690

Tcl_CreateObjCommand(interp,name, TclsmSlVlTableMethodCmd, (ClientData) newObj, del);

45691

return TCL_OK;

45692

} else {

45693

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

45694

return TCL_ERROR;

45695

}

45696

}

45697

}

45698

45699

45700

static ib_vl_arb_element_t * _ibsm_vl_arb_table_vl_entry_set(smVlArbTable *obj, ib_vl_arb_element_t val[IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK]) {

45701

{

45702

int i;

45703

for (i=0; i <IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK ; i++) {

45704

obj->vl_entry[i] = *(val+i);

45705

}

45706

}

45707

return (ib_vl_arb_element_t *) val;

45708

}

45709

static int _wrap_smVlArbTable_vl_entry_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45710

45711

ib_vl_arb_element_t * _result;

45712

smVlArbTable * _arg0;

45713

ib_vl_arb_element_t * _arg1;

45714

Tcl_Obj * tcl_result;

45715

char * rettype;

45716

ib_vl_arb_element_t entrys[IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK];

45717

45718

clientData = clientData; objv = objv;

45719

tcl_result = Tcl_GetObjResult(interp);

45720

if ((objc < 3) || (objc > 3)) {

45721

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_vl_entry_set { smVlArbTable * } { ib_vl_arb_element_t * } ",-1);

45722

return TCL_ERROR;

45723

}

45724

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

45725

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_vl_entry_set. Expected _smVlArbTable_p, received ", -1);

45726

Tcl_AppendToObj(tcl_result, rettype, -1);

45727

return TCL_ERROR;

45728

}

45729

{

45730

char *p_ch;

45731

char *last;

45732

long int vl, weight;

45733

int countSubLists, idx, numElements;

45734

int i = 0;

45735

Tcl_Obj **subListObjArray;

45736

Tcl_Obj *tclObj;

45737

45738

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

45739

{

45740

printf("Error: wrong format for VL Arb Table: %s\n",

45741

Tcl_GetStringFromObj(objv[2],NULL));

45742

return TCL_ERROR;

45743

}

45744

45745

/* go over all sub lists and convert them */

45746

for (idx = 0; idx < countSubLists; idx++) {

45747

if (Tcl_ListObjLength(interp, subListObjArray[idx], &numElements) != TCL_OK)

45748

{

45749

printf("Error: wrong format for VL Arb Table Entry: %s\n",

45750

Tcl_GetStringFromObj(subListObjArray[idx],NULL));

45751

return TCL_ERROR;

45752

}

45753

45754

if (numElements != 2)

45755

{

45756

printf("Error: wrong number of elements for VL Arb Table Entry: %s\n",

45757

Tcl_GetStringFromObj(subListObjArray[idx],NULL));

45758

return TCL_ERROR;

45759

}

45760

45761

if (Tcl_ListObjIndex(interp, subListObjArray[idx], 0, &tclObj) != TCL_OK)

45762

{

45763

printf("Error: Fail to obtain first element of VL Arb Table Entry: %s\n",

45764

Tcl_GetStringFromObj(subListObjArray[idx],NULL));

45765

return TCL_ERROR;

45766

}

45767

45768

vl = strtol(Tcl_GetStringFromObj( tclObj, NULL ), NULL, 0);

45769

if (Tcl_ListObjIndex(interp, subListObjArray[idx], 1, &tclObj) != TCL_OK)

45770

{

45771

printf("Error: Fail to obtain second element of VL Arb Table Entry: %s\n",

45772

Tcl_GetStringFromObj(subListObjArray[idx],NULL));

45773

return TCL_ERROR;

45774

}

45775

45776

weight = strtol(Tcl_GetStringFromObj( tclObj, NULL ), NULL, 0);

45777

45778

entrys[i].vl = vl;

45779

entrys[i++].weight = weight;

45780

45781

p_ch = strtok_r(NULL, " \t", &last);

45782

}

45783

45784

for (; i < IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK; i++)

45785

{

45786

entrys[i].vl = 0;

45787

entrys[i].weight = 0;

45788

}

45789

45790

_arg1 = entrys;

45791

}

45792

{

45793

/* we can check if IBIS was initialized here */

45794

if (!IbisObj.initialized)

45795

{

45796

Tcl_SetStringObj(

45797

Tcl_GetObjResult(interp),

45798

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45799

return TCL_ERROR;

45800

}

45801

45802

if (! IbisObj.port_guid)

45803

{

45804

Tcl_SetStringObj(

45805

Tcl_GetObjResult(interp),

45806

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45807

return TCL_ERROR;

45808

}

45809

45810

ibis_tcl_error = 0;

45811

_result = (ib_vl_arb_element_t *)_ibsm_vl_arb_table_vl_entry_set(_arg0,_arg1);

45812

;

45813

if (ibis_tcl_error) {

45814

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45815

return TCL_ERROR;

45816

}

45817

} tcl_result = Tcl_GetObjResult(interp);

45818

{

45819

int i;

45820

char buff[16];

45821

for (i=0; i <IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK ; i++) {

45822

sprintf(buff, "{0x%x 0x%02x} ", _result[i].vl, _result[i].weight);

45823

Tcl_AppendResult(interp, buff, NULL);

45824

}

45825

}

45826

return TCL_OK;

45827

}

45828

#define _ibsm_vl_arb_table_vl_entry_get(_swigobj) ((ib_vl_arb_element_t *) _swigobj->vl_entry)

45829

static int _wrap_smVlArbTable_vl_entry_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45830

45831

ib_vl_arb_element_t * _result;

45832

smVlArbTable * _arg0;

45833

Tcl_Obj * tcl_result;

45834

char * rettype;

45835

45836

clientData = clientData; objv = objv;

45837

tcl_result = Tcl_GetObjResult(interp);

45838

if ((objc < 2) || (objc > 2)) {

45839

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_vl_entry_get { smVlArbTable * } ",-1);

45840

return TCL_ERROR;

45841

}

45842

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

45843

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_vl_entry_get. Expected _smVlArbTable_p, received ", -1);

45844

Tcl_AppendToObj(tcl_result, rettype, -1);

45845

return TCL_ERROR;

45846

}

45847

{

45848

/* we can check if IBIS was initialized here */

45849

if (!IbisObj.initialized)

45850

{

45851

Tcl_SetStringObj(

45852

Tcl_GetObjResult(interp),

45853

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45854

return TCL_ERROR;

45855

}

45856

45857

if (! IbisObj.port_guid)

45858

{

45859

Tcl_SetStringObj(

45860

Tcl_GetObjResult(interp),

45861

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45862

return TCL_ERROR;

45863

}

45864

45865

ibis_tcl_error = 0;

45866

_result = (ib_vl_arb_element_t *)_ibsm_vl_arb_table_vl_entry_get(_arg0);

45867

;

45868

if (ibis_tcl_error) {

45869

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45870

return TCL_ERROR;

45871

}

45872

} tcl_result = Tcl_GetObjResult(interp);

45873

{

45874

int i;

45875

char buff[16];

45876

for (i=0; i <IB_NUM_VL_ARB_ELEMENTS_IN_BLOCK ; i++) {

45877

sprintf(buff, "{0x%x 0x%02x} ", _result[i].vl, _result[i].weight);

45878

Tcl_AppendResult(interp, buff, NULL);

45879

}

45880

}

45881

return TCL_OK;

45882

}

45883

static int smVlArbTable_getByDr(smVlArbTable *self,ibsm_dr_path_t * dr,uint8_t portNum,uint8_t block) {

45884

uint32_t attrMod = (block <<16) | portNum;

45885

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smVlArbTable),

45886

dr, CL_NTOH16(IB_MAD_ATTR_VL_ARBITRATION), attrMod,

45887

IB_MAD_METHOD_GET));

45888

}

45889

static int _wrap_smVlArbTable_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45890

45891

int _result;

45892

smVlArbTable * _arg0;

45893

ibsm_dr_path_t * _arg1;

45894

uint8_t * _arg2;

45895

uint8_t * _arg3;

45896

Tcl_Obj * tcl_result;

45897

char * rettype;

45898

ibsm_dr_path_t dr;

45899

uint8_t temp;

45900

uint8_t temp0;

45901

45902

clientData = clientData; objv = objv;

45903

tcl_result = Tcl_GetObjResult(interp);

45904

if ((objc < 5) || (objc > 5)) {

45905

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_getByDr { smVlArbTable * } dr portNum block ",-1);

45906

return TCL_ERROR;

45907

}

45908

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

45909

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_getByDr. Expected _smVlArbTable_p, received ", -1);

45910

Tcl_AppendToObj(tcl_result, rettype, -1);

45911

return TCL_ERROR;

45912

}

45913

{

45914

char buf[1024];

45915

char *p_next;

45916

unsigned int port;

45917

int i;

45918

45919

dr.count = 1;

45920

dr.path[0] = 0;

45921

45922

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

45923

buf[1023] = '\0';

45924

p_next = strtok(buf," \t");

45925

while (p_next != NULL)

45926

{

45927

if (sscanf(p_next,"%u", &port) != 1)

45928

{

45929

printf("Error: bad format in directed route path index:%u : %s\n",

45930

dr.count, p_next);

45931

return TCL_ERROR;

45932

}

45933

dr.path[dr.count++] = port;

45934

p_next = strtok(NULL," \t");

45935

}

45936

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

45937

dr.count--;

45938

_arg1 = &dr;

45939

}

45940

{

45941

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

45942

_arg2 = &temp;

45943

}

45944

{

45945

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

45946

_arg3 = &temp0;

45947

}

45948

{

45949

/* we can check if IBIS was initialized here */

45950

if (!IbisObj.initialized)

45951

{

45952

Tcl_SetStringObj(

45953

Tcl_GetObjResult(interp),

45954

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

45955

return TCL_ERROR;

45956

}

45957

45958

if (! IbisObj.port_guid)

45959

{

45960

Tcl_SetStringObj(

45961

Tcl_GetObjResult(interp),

45962

" ibis was not yet initialized. please use ibis_set_port before.", -1);

45963

return TCL_ERROR;

45964

}

45965

45966

ibis_tcl_error = 0;

45967

_result = (int )smVlArbTable_getByDr(_arg0,_arg1,*_arg2,*_arg3);

45968

;

45969

if (ibis_tcl_error) {

45970

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

45971

return TCL_ERROR;

45972

}

45973

} tcl_result = Tcl_GetObjResult(interp);

45974

Tcl_SetIntObj(tcl_result,(long) _result);

45975

return TCL_OK;

45976

}

45977

static int smVlArbTable_setByDr(smVlArbTable *self,ibsm_dr_path_t * dr,uint8_t portNum,uint8_t block) {

45978

uint32_t attrMod = (block <<16) | portNum;

45979

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smVlArbTable),

45980

dr, CL_NTOH16(IB_MAD_ATTR_VL_ARBITRATION), attrMod,

45981

IB_MAD_METHOD_SET));

45982

}

45983

static int _wrap_smVlArbTable_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

45984

45985

int _result;

45986

smVlArbTable * _arg0;

45987

ibsm_dr_path_t * _arg1;

45988

uint8_t * _arg2;

45989

uint8_t * _arg3;

45990

Tcl_Obj * tcl_result;

45991

char * rettype;

45992

ibsm_dr_path_t dr;

45993

uint8_t temp;

45994

uint8_t temp0;

45995

45996

clientData = clientData; objv = objv;

45997

tcl_result = Tcl_GetObjResult(interp);

45998

if ((objc < 5) || (objc > 5)) {

45999

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_setByDr { smVlArbTable * } dr portNum block ",-1);

46000

return TCL_ERROR;

46001

}

46002

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

46003

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_setByDr. Expected _smVlArbTable_p, received ", -1);

46004

Tcl_AppendToObj(tcl_result, rettype, -1);

46005

return TCL_ERROR;

46006

}

46007

{

46008

char buf[1024];

46009

char *p_next;

46010

unsigned int port;

46011

int i;

46012

46013

dr.count = 1;

46014

dr.path[0] = 0;

46015

46016

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

46017

buf[1023] = '\0';

46018

p_next = strtok(buf," \t");

46019

while (p_next != NULL)

46020

{

46021

if (sscanf(p_next,"%u", &port) != 1)

46022

{

46023

printf("Error: bad format in directed route path index:%u : %s\n",

46024

dr.count, p_next);

46025

return TCL_ERROR;

46026

}

46027

dr.path[dr.count++] = port;

46028

p_next = strtok(NULL," \t");

46029

}

46030

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

46031

dr.count--;

46032

_arg1 = &dr;

46033

}

46034

{

46035

temp = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

46036

_arg2 = &temp;

46037

}

46038

{

46039

temp0 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

46040

_arg3 = &temp0;

46041

}

46042

{

46043

/* we can check if IBIS was initialized here */

46044

if (!IbisObj.initialized)

46045

{

46046

Tcl_SetStringObj(

46047

Tcl_GetObjResult(interp),

46048

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46049

return TCL_ERROR;

46050

}

46051

46052

if (! IbisObj.port_guid)

46053

{

46054

Tcl_SetStringObj(

46055

Tcl_GetObjResult(interp),

46056

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46057

return TCL_ERROR;

46058

}

46059

46060

ibis_tcl_error = 0;

46061

_result = (int )smVlArbTable_setByDr(_arg0,_arg1,*_arg2,*_arg3);

46062

;

46063

if (ibis_tcl_error) {

46064

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46065

return TCL_ERROR;

46066

}

46067

} tcl_result = Tcl_GetObjResult(interp);

46068

Tcl_SetIntObj(tcl_result,(long) _result);

46069

return TCL_OK;

46070

}

46071

static int smVlArbTable_getByLid(smVlArbTable *self,uint16_t lid,uint8_t portNum,uint8_t block) {

46072

uint32_t attrMod = (block <<16) | portNum;

46073

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smVlArbTable),

46074

lid, CL_NTOH16(IB_MAD_ATTR_VL_ARBITRATION), attrMod,

46075

IB_MAD_METHOD_GET));

46076

}

46077

static int _wrap_smVlArbTable_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46078

46079

int _result;

46080

smVlArbTable * _arg0;

46081

uint16_t * _arg1;

46082

uint8_t * _arg2;

46083

uint8_t * _arg3;

46084

Tcl_Obj * tcl_result;

46085

char * rettype;

46086

uint16_t temp;

46087

uint8_t temp0;

46088

uint8_t temp1;

46089

46090

clientData = clientData; objv = objv;

46091

tcl_result = Tcl_GetObjResult(interp);

46092

if ((objc < 5) || (objc > 5)) {

46093

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_getByLid { smVlArbTable * } lid portNum block ",-1);

46094

return TCL_ERROR;

46095

}

46096

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

46097

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_getByLid. Expected _smVlArbTable_p, received ", -1);

46098

Tcl_AppendToObj(tcl_result, rettype, -1);

46099

return TCL_ERROR;

46100

}

46101

{

46102

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

46103

_arg1 = &temp;

46104

}

46105

{

46106

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

46107

_arg2 = &temp0;

46108

}

46109

{

46110

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

46111

_arg3 = &temp1;

46112

}

46113

{

46114

/* we can check if IBIS was initialized here */

46115

if (!IbisObj.initialized)

46116

{

46117

Tcl_SetStringObj(

46118

Tcl_GetObjResult(interp),

46119

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46120

return TCL_ERROR;

46121

}

46122

46123

if (! IbisObj.port_guid)

46124

{

46125

Tcl_SetStringObj(

46126

Tcl_GetObjResult(interp),

46127

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46128

return TCL_ERROR;

46129

}

46130

46131

ibis_tcl_error = 0;

46132

_result = (int )smVlArbTable_getByLid(_arg0,*_arg1,*_arg2,*_arg3);

46133

;

46134

if (ibis_tcl_error) {

46135

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46136

return TCL_ERROR;

46137

}

46138

} tcl_result = Tcl_GetObjResult(interp);

46139

Tcl_SetIntObj(tcl_result,(long) _result);

46140

return TCL_OK;

46141

}

46142

static int smVlArbTable_setByLid(smVlArbTable *self,uint16_t lid,uint8_t portNum,uint8_t block) {

46143

uint32_t attrMod = (block <<16) | portNum;

46144

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smVlArbTable),

46145

lid, CL_NTOH16(IB_MAD_ATTR_VL_ARBITRATION), attrMod,

46146

IB_MAD_METHOD_SET));

46147

}

46148

static int _wrap_smVlArbTable_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46149

46150

int _result;

46151

smVlArbTable * _arg0;

46152

uint16_t * _arg1;

46153

uint8_t * _arg2;

46154

uint8_t * _arg3;

46155

Tcl_Obj * tcl_result;

46156

char * rettype;

46157

uint16_t temp;

46158

uint8_t temp0;

46159

uint8_t temp1;

46160

46161

clientData = clientData; objv = objv;

46162

tcl_result = Tcl_GetObjResult(interp);

46163

if ((objc < 5) || (objc > 5)) {

46164

Tcl_SetStringObj(tcl_result,"Wrong # args. smVlArbTable_setByLid { smVlArbTable * } lid portNum block ",-1);

46165

return TCL_ERROR;

46166

}

46167

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smVlArbTable_p"))) {

46168

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smVlArbTable_setByLid. Expected _smVlArbTable_p, received ", -1);

46169

Tcl_AppendToObj(tcl_result, rettype, -1);

46170

return TCL_ERROR;

46171

}

46172

{

46173

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

46174

_arg1 = &temp;

46175

}

46176

{

46177

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

46178

_arg2 = &temp0;

46179

}

46180

{

46181

temp1 = strtoul(Tcl_GetStringFromObj(objv[4],NULL), NULL, 0);

46182

_arg3 = &temp1;

46183

}

46184

{

46185

/* we can check if IBIS was initialized here */

46186

if (!IbisObj.initialized)

46187

{

46188

Tcl_SetStringObj(

46189

Tcl_GetObjResult(interp),

46190

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46191

return TCL_ERROR;

46192

}

46193

46194

if (! IbisObj.port_guid)

46195

{

46196

Tcl_SetStringObj(

46197

Tcl_GetObjResult(interp),

46198

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46199

return TCL_ERROR;

46200

}

46201

46202

ibis_tcl_error = 0;

46203

_result = (int )smVlArbTable_setByLid(_arg0,*_arg1,*_arg2,*_arg3);

46204

;

46205

if (ibis_tcl_error) {

46206

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46207

return TCL_ERROR;

46208

}

46209

} tcl_result = Tcl_GetObjResult(interp);

46210

Tcl_SetIntObj(tcl_result,(long) _result);

46211

return TCL_OK;

46212

}

46213

/* methodcmd8.swg : Tcl8.x method invocation */

46214

46215

static int TclsmVlArbTableMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

46216

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

46217

char *_str;

46218

int rcode;

46219

Tcl_Obj **objv;

46220

Tcl_Obj *oldarg,*tcl_result,*obj;

46221

int length;

46222

char c;

46223

46224

tcl_result = Tcl_GetObjResult(interp);

46225

objv = (Tcl_Obj **) _objv;

46226

if (objc < 2) {

46227

Tcl_SetStringObj(tcl_result,"smVlArbTable methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

46228

return TCL_ERROR;

46229

}

46230

obj = Tcl_NewObj();

46231

SWIG_SetPointerObj(obj,(void *) clientData,"_smVlArbTable_p");

46232

_str = Tcl_GetStringFromObj(objv[1],&length);

46233

c = *_str;

46234

if (0);

46235

if (strcmp(_str,"getByDr") == 0) {

46236

cmd = _wrap_smVlArbTable_getByDr;

46237

} else if (strcmp(_str,"setByDr") == 0) {

46238

cmd = _wrap_smVlArbTable_setByDr;

46239

} else if (strcmp(_str,"getByLid") == 0) {

46240

cmd = _wrap_smVlArbTable_getByLid;

46241

} else if (strcmp(_str,"setByLid") == 0) {

46242

cmd = _wrap_smVlArbTable_setByLid;

46243

}

46244

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

46245

int i = 2;

46246

cmd = 0;

46247

while (i+1 < objc) {

46248

_str = Tcl_GetStringFromObj(objv[i],&length);

46249

if (strcmp(_str,"-vl_entry") == 0) {

46250

cmd = _wrap_smVlArbTable_vl_entry_set;

46251

}

46252

if (cmd) {

46253

oldarg = objv[i];

46254

objv[i] = obj;

46255

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

46256

objv[i] = oldarg;

46257

if (rcode == TCL_ERROR) return rcode;

46258

cmd = 0;

46259

} else {

46260

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -vl_entry }",-1);

46261

return TCL_ERROR;

46262

}

46263

i+=2;

46264

}

46265

if ((i < objc) || (i == 2)) {

46266

Tcl_SetStringObj(tcl_result,"{ -vl_entry }",-1);

46267

return TCL_ERROR;

46268

}

46269

return TCL_OK;

46270

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

46271

if (objc == 3) {

46272

_str = Tcl_GetStringFromObj(objv[2],&length);

46273

if (0) {}

46274

if (strcmp(_str,"-vl_entry") == 0) {

46275

cmd = _wrap_smVlArbTable_vl_entry_get;

46276

}

46277

else if (strcmp(_str,"-this") == 0) {

46278

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smVlArbTable_p");

46279

return TCL_OK;

46280

}

46281

if (cmd) {

46282

oldarg = objv[2];

46283

objv[2] = obj;

46284

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

46285

objv[2] = oldarg;

46286

return rcode;

46287

} else {

46288

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -vl_entry }",-1);

46289

return TCL_ERROR;

46290

}

46291

} else {

46292

Tcl_SetStringObj(tcl_result,"{ -this -vl_entry }", -1);

46293

return TCL_ERROR;

46294

}

46295

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

46296

if (objc == 2) {

46297

Tcl_Obj *pDumpObj;

46298

pDumpObj = Tcl_NewStringObj("",-1);

46299

Tcl_IncrRefCount(pDumpObj);

46300

cmd = _wrap_smVlArbTable_vl_entry_get;

46301

oldarg = objv[2];

46302

objv[2] = obj;

46303

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

46304

objv[2] = oldarg;

46305

Tcl_AppendStringsToObj(pDumpObj, "-vl_entry ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

46306

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

46307

46308

Tcl_DecrRefCount(pDumpObj);

46309

return TCL_OK;

46310

} else {

46311

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

46312

return TCL_ERROR;

46313

}

46314

}

46315

if (!cmd) {

46316

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

46317

return TCL_ERROR;

46318

}

46319

oldarg = objv[1];

46320

objv[1] = obj;

46321

rcode = (*cmd)(clientData,interp,objc,objv);

46322

objv[1] = oldarg;

46323

return rcode;

46324

}

46325

46326

46327

46328

/* objcmd8.swg : Tcl 8.x object creation */

46329

46330

static int TclsmVlArbTableCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46331

void (*del)(ClientData) = 0;

46332

char *name = 0;

46333

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

46334

smVlArbTable * newObj = 0;

46335

int firstarg = 0;

46336

int thisarg = 0;

46337

int length;

46338

char *_str;

46339

Tcl_Obj *tcl_result;

46340

46341

tcl_result = Tcl_GetObjResult(interp);

46342

if (objc == 1) {

46343

cmd = 0;

46344

} else {

46345

_str = Tcl_GetStringFromObj(objv[1],&length);

46346

if (strcmp(_str,"-this") == 0) thisarg = 2;

46347

else if (strcmp(_str,"-args") == 0) {

46348

firstarg = 1;

46349

cmd = 0;

46350

} else if (objc == 2) {

46351

firstarg = 1;

46352

name = _str;

46353

cmd = 0;

46354

} else if (objc >= 3) {

46355

name = _str;

46356

_str = Tcl_GetStringFromObj(objv[2],&length);

46357

if (strcmp(_str,"-this") == 0) thisarg = 3;

46358

else {

46359

firstarg = 1;

46360

cmd = 0;

46361

}

46362

}

46363

}

46364

if (cmd) {

46365

int result;

46366

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

46367

if (result == TCL_OK) {

46368

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smVlArbTable_p");

46369

} else { return result; }

46370

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

46371

del = 0;

46372

} else if (thisarg > 0) {

46373

if (thisarg < objc) {

46374

char *r;

46375

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smVlArbTable_p");

46376

if (r) {

46377

Tcl_SetStringObj(tcl_result,"Type error. not a smVlArbTable object.",-1);

46378

return TCL_ERROR;

46379

}

46380

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

46381

Tcl_SetStringObj(tcl_result,name,-1);

46382

} else {

46383

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

46384

return TCL_ERROR;

46385

}

46386

} else {

46387

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

46388

return TCL_ERROR;

46389

}

46390

{

46391

Tcl_CmdInfo dummy;

46392

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

46393

Tcl_CreateObjCommand(interp,name, TclsmVlArbTableMethodCmd, (ClientData) newObj, del);

46394

return TCL_OK;

46395

} else {

46396

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

46397

return TCL_ERROR;

46398

}

46399

}

46400

}

46401

46402

46403

static ibsm_node_desc_str_t * _ibsm_node_desc_description_set(smNodeDesc *obj, ibsm_node_desc_str_t val[IB_NODE_DESCRIPTION_SIZE]) {

46404

{

46405

strncpy((char *)obj->description,(char *)val,IB_NODE_DESCRIPTION_SIZE - 1);

46406

obj->description[IB_NODE_DESCRIPTION_SIZE - 1] = '\0';

46407

}

46408

return (ibsm_node_desc_str_t *) val;

46409

}

46410

static int _wrap_smNodeDesc_description_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46411

46412

ibsm_node_desc_str_t * _result;

46413

smNodeDesc * _arg0;

46414

ibsm_node_desc_str_t * _arg1;

46415

Tcl_Obj * tcl_result;

46416

char * rettype;

46417

uint8_t temp[IB_NODE_DESCRIPTION_SIZE];

46418

46419

clientData = clientData; objv = objv;

46420

tcl_result = Tcl_GetObjResult(interp);

46421

if ((objc < 3) || (objc > 3)) {

46422

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_description_set { smNodeDesc * } { ibsm_node_desc_str_t * } ",-1);

46423

return TCL_ERROR;

46424

}

46425

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46426

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_description_set. Expected _smNodeDesc_p, received ", -1);

46427

Tcl_AppendToObj(tcl_result, rettype, -1);

46428

return TCL_ERROR;

46429

}

46430

{

46431

strcpy((char *)temp, Tcl_GetStringFromObj(objv[2],NULL));

46432

_arg1 = temp;

46433

}

46434

{

46435

/* we can check if IBIS was initialized here */

46436

if (!IbisObj.initialized)

46437

{

46438

Tcl_SetStringObj(

46439

Tcl_GetObjResult(interp),

46440

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46441

return TCL_ERROR;

46442

}

46443

46444

if (! IbisObj.port_guid)

46445

{

46446

Tcl_SetStringObj(

46447

Tcl_GetObjResult(interp),

46448

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46449

return TCL_ERROR;

46450

}

46451

46452

ibis_tcl_error = 0;

46453

_result = (ibsm_node_desc_str_t *)_ibsm_node_desc_description_set(_arg0,_arg1);

46454

;

46455

if (ibis_tcl_error) {

46456

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46457

return TCL_ERROR;

46458

}

46459

} tcl_result = Tcl_GetObjResult(interp);

46460

{

46461

/* we must make sure we do not overflow the node desc length */

46462

char buff[IB_NODE_DESCRIPTION_SIZE];

46463

strncpy(buff,(char *)_result,IB_NODE_DESCRIPTION_SIZE - 1);

46464

buff[IB_NODE_DESCRIPTION_SIZE - 1] = '\0';

46465

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

46466

}

46467

return TCL_OK;

46468

}

46469

#define _ibsm_node_desc_description_get(_swigobj) ((ibsm_node_desc_str_t *) _swigobj->description)

46470

static int _wrap_smNodeDesc_description_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46471

46472

ibsm_node_desc_str_t * _result;

46473

smNodeDesc * _arg0;

46474

Tcl_Obj * tcl_result;

46475

char * rettype;

46476

46477

clientData = clientData; objv = objv;

46478

tcl_result = Tcl_GetObjResult(interp);

46479

if ((objc < 2) || (objc > 2)) {

46480

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_description_get { smNodeDesc * } ",-1);

46481

return TCL_ERROR;

46482

}

46483

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46484

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_description_get. Expected _smNodeDesc_p, received ", -1);

46485

Tcl_AppendToObj(tcl_result, rettype, -1);

46486

return TCL_ERROR;

46487

}

46488

{

46489

/* we can check if IBIS was initialized here */

46490

if (!IbisObj.initialized)

46491

{

46492

Tcl_SetStringObj(

46493

Tcl_GetObjResult(interp),

46494

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46495

return TCL_ERROR;

46496

}

46497

46498

if (! IbisObj.port_guid)

46499

{

46500

Tcl_SetStringObj(

46501

Tcl_GetObjResult(interp),

46502

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46503

return TCL_ERROR;

46504

}

46505

46506

ibis_tcl_error = 0;

46507

_result = (ibsm_node_desc_str_t *)_ibsm_node_desc_description_get(_arg0);

46508

;

46509

if (ibis_tcl_error) {

46510

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46511

return TCL_ERROR;

46512

}

46513

} tcl_result = Tcl_GetObjResult(interp);

46514

{

46515

/* we must make sure we do not overflow the node desc length */

46516

char buff[IB_NODE_DESCRIPTION_SIZE];

46517

strncpy(buff,(char *)_result,IB_NODE_DESCRIPTION_SIZE - 1);

46518

buff[IB_NODE_DESCRIPTION_SIZE - 1] = '\0';

46519

Tcl_SetStringObj(tcl_result, buff, strlen(buff));

46520

}

46521

return TCL_OK;

46522

}

46523

static int smNodeDesc_getByDr(smNodeDesc *self,ibsm_dr_path_t * dr) {

46524

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smNodeDesc),

46525

dr, CL_NTOH16(IB_MAD_ATTR_NODE_DESC), 0,

46526

IB_MAD_METHOD_GET));

46527

}

46528

static int _wrap_smNodeDesc_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46529

46530

int _result;

46531

smNodeDesc * _arg0;

46532

ibsm_dr_path_t * _arg1;

46533

Tcl_Obj * tcl_result;

46534

char * rettype;

46535

ibsm_dr_path_t dr;

46536

46537

clientData = clientData; objv = objv;

46538

tcl_result = Tcl_GetObjResult(interp);

46539

if ((objc < 3) || (objc > 3)) {

46540

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_getByDr { smNodeDesc * } dr ",-1);

46541

return TCL_ERROR;

46542

}

46543

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46544

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_getByDr. Expected _smNodeDesc_p, received ", -1);

46545

Tcl_AppendToObj(tcl_result, rettype, -1);

46546

return TCL_ERROR;

46547

}

46548

{

46549

char buf[1024];

46550

char *p_next;

46551

unsigned int port;

46552

int i;

46553

46554

dr.count = 1;

46555

dr.path[0] = 0;

46556

46557

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

46558

buf[1023] = '\0';

46559

p_next = strtok(buf," \t");

46560

while (p_next != NULL)

46561

{

46562

if (sscanf(p_next,"%u", &port) != 1)

46563

{

46564

printf("Error: bad format in directed route path index:%u : %s\n",

46565

dr.count, p_next);

46566

return TCL_ERROR;

46567

}

46568

dr.path[dr.count++] = port;

46569

p_next = strtok(NULL," \t");

46570

}

46571

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

46572

dr.count--;

46573

_arg1 = &dr;

46574

}

46575

{

46576

/* we can check if IBIS was initialized here */

46577

if (!IbisObj.initialized)

46578

{

46579

Tcl_SetStringObj(

46580

Tcl_GetObjResult(interp),

46581

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46582

return TCL_ERROR;

46583

}

46584

46585

if (! IbisObj.port_guid)

46586

{

46587

Tcl_SetStringObj(

46588

Tcl_GetObjResult(interp),

46589

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46590

return TCL_ERROR;

46591

}

46592

46593

ibis_tcl_error = 0;

46594

_result = (int )smNodeDesc_getByDr(_arg0,_arg1);

46595

;

46596

if (ibis_tcl_error) {

46597

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46598

return TCL_ERROR;

46599

}

46600

} tcl_result = Tcl_GetObjResult(interp);

46601

Tcl_SetIntObj(tcl_result,(long) _result);

46602

return TCL_OK;

46603

}

46604

static int smNodeDesc_setByDr(smNodeDesc *self,ibsm_dr_path_t * dr) {

46605

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smNodeDesc),

46606

dr, CL_NTOH16(IB_MAD_ATTR_NODE_DESC), 0,

46607

IB_MAD_METHOD_SET));

46608

}

46609

static int _wrap_smNodeDesc_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46610

46611

int _result;

46612

smNodeDesc * _arg0;

46613

ibsm_dr_path_t * _arg1;

46614

Tcl_Obj * tcl_result;

46615

char * rettype;

46616

ibsm_dr_path_t dr;

46617

46618

clientData = clientData; objv = objv;

46619

tcl_result = Tcl_GetObjResult(interp);

46620

if ((objc < 3) || (objc > 3)) {

46621

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_setByDr { smNodeDesc * } dr ",-1);

46622

return TCL_ERROR;

46623

}

46624

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46625

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_setByDr. Expected _smNodeDesc_p, received ", -1);

46626

Tcl_AppendToObj(tcl_result, rettype, -1);

46627

return TCL_ERROR;

46628

}

46629

{

46630

char buf[1024];

46631

char *p_next;

46632

unsigned int port;

46633

int i;

46634

46635

dr.count = 1;

46636

dr.path[0] = 0;

46637

46638

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

46639

buf[1023] = '\0';

46640

p_next = strtok(buf," \t");

46641

while (p_next != NULL)

46642

{

46643

if (sscanf(p_next,"%u", &port) != 1)

46644

{

46645

printf("Error: bad format in directed route path index:%u : %s\n",

46646

dr.count, p_next);

46647

return TCL_ERROR;

46648

}

46649

dr.path[dr.count++] = port;

46650

p_next = strtok(NULL," \t");

46651

}

46652

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

46653

dr.count--;

46654

_arg1 = &dr;

46655

}

46656

{

46657

/* we can check if IBIS was initialized here */

46658

if (!IbisObj.initialized)

46659

{

46660

Tcl_SetStringObj(

46661

Tcl_GetObjResult(interp),

46662

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46663

return TCL_ERROR;

46664

}

46665

46666

if (! IbisObj.port_guid)

46667

{

46668

Tcl_SetStringObj(

46669

Tcl_GetObjResult(interp),

46670

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46671

return TCL_ERROR;

46672

}

46673

46674

ibis_tcl_error = 0;

46675

_result = (int )smNodeDesc_setByDr(_arg0,_arg1);

46676

;

46677

if (ibis_tcl_error) {

46678

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46679

return TCL_ERROR;

46680

}

46681

} tcl_result = Tcl_GetObjResult(interp);

46682

Tcl_SetIntObj(tcl_result,(long) _result);

46683

return TCL_OK;

46684

}

46685

static int smNodeDesc_getByLid(smNodeDesc *self,uint16_t lid) {

46686

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smNodeDesc),

46687

lid, CL_NTOH16(IB_MAD_ATTR_NODE_DESC), 0,

46688

IB_MAD_METHOD_GET));

46689

}

46690

static int _wrap_smNodeDesc_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46691

46692

int _result;

46693

smNodeDesc * _arg0;

46694

uint16_t * _arg1;

46695

Tcl_Obj * tcl_result;

46696

char * rettype;

46697

uint16_t temp;

46698

46699

clientData = clientData; objv = objv;

46700

tcl_result = Tcl_GetObjResult(interp);

46701

if ((objc < 3) || (objc > 3)) {

46702

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_getByLid { smNodeDesc * } lid ",-1);

46703

return TCL_ERROR;

46704

}

46705

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46706

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_getByLid. Expected _smNodeDesc_p, received ", -1);

46707

Tcl_AppendToObj(tcl_result, rettype, -1);

46708

return TCL_ERROR;

46709

}

46710

{

46711

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

46712

_arg1 = &temp;

46713

}

46714

{

46715

/* we can check if IBIS was initialized here */

46716

if (!IbisObj.initialized)

46717

{

46718

Tcl_SetStringObj(

46719

Tcl_GetObjResult(interp),

46720

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46721

return TCL_ERROR;

46722

}

46723

46724

if (! IbisObj.port_guid)

46725

{

46726

Tcl_SetStringObj(

46727

Tcl_GetObjResult(interp),

46728

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46729

return TCL_ERROR;

46730

}

46731

46732

ibis_tcl_error = 0;

46733

_result = (int )smNodeDesc_getByLid(_arg0,*_arg1);

46734

;

46735

if (ibis_tcl_error) {

46736

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46737

return TCL_ERROR;

46738

}

46739

} tcl_result = Tcl_GetObjResult(interp);

46740

Tcl_SetIntObj(tcl_result,(long) _result);

46741

return TCL_OK;

46742

}

46743

static int smNodeDesc_setByLid(smNodeDesc *self,uint16_t lid) {

46744

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smNodeDesc),

46745

lid, CL_NTOH16(IB_MAD_ATTR_NODE_DESC), 0,

46746

IB_MAD_METHOD_SET));

46747

}

46748

static int _wrap_smNodeDesc_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46749

46750

int _result;

46751

smNodeDesc * _arg0;

46752

uint16_t * _arg1;

46753

Tcl_Obj * tcl_result;

46754

char * rettype;

46755

uint16_t temp;

46756

46757

clientData = clientData; objv = objv;

46758

tcl_result = Tcl_GetObjResult(interp);

46759

if ((objc < 3) || (objc > 3)) {

46760

Tcl_SetStringObj(tcl_result,"Wrong # args. smNodeDesc_setByLid { smNodeDesc * } lid ",-1);

46761

return TCL_ERROR;

46762

}

46763

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNodeDesc_p"))) {

46764

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNodeDesc_setByLid. Expected _smNodeDesc_p, received ", -1);

46765

Tcl_AppendToObj(tcl_result, rettype, -1);

46766

return TCL_ERROR;

46767

}

46768

{

46769

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

46770

_arg1 = &temp;

46771

}

46772

{

46773

/* we can check if IBIS was initialized here */

46774

if (!IbisObj.initialized)

46775

{

46776

Tcl_SetStringObj(

46777

Tcl_GetObjResult(interp),

46778

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

46779

return TCL_ERROR;

46780

}

46781

46782

if (! IbisObj.port_guid)

46783

{

46784

Tcl_SetStringObj(

46785

Tcl_GetObjResult(interp),

46786

" ibis was not yet initialized. please use ibis_set_port before.", -1);

46787

return TCL_ERROR;

46788

}

46789

46790

ibis_tcl_error = 0;

46791

_result = (int )smNodeDesc_setByLid(_arg0,*_arg1);

46792

;

46793

if (ibis_tcl_error) {

46794

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

46795

return TCL_ERROR;

46796

}

46797

} tcl_result = Tcl_GetObjResult(interp);

46798

Tcl_SetIntObj(tcl_result,(long) _result);

46799

return TCL_OK;

46800

}

46801

/* methodcmd8.swg : Tcl8.x method invocation */

46802

46803

static int TclsmNodeDescMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

46804

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

46805

char *_str;

46806

int rcode;

46807

Tcl_Obj **objv;

46808

Tcl_Obj *oldarg,*tcl_result,*obj;

46809

int length;

46810

char c;

46811

46812

tcl_result = Tcl_GetObjResult(interp);

46813

objv = (Tcl_Obj **) _objv;

46814

if (objc < 2) {

46815

Tcl_SetStringObj(tcl_result,"smNodeDesc methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

46816

return TCL_ERROR;

46817

}

46818

obj = Tcl_NewObj();

46819

SWIG_SetPointerObj(obj,(void *) clientData,"_smNodeDesc_p");

46820

_str = Tcl_GetStringFromObj(objv[1],&length);

46821

c = *_str;

46822

if (0);

46823

if (strcmp(_str,"getByDr") == 0) {

46824

cmd = _wrap_smNodeDesc_getByDr;

46825

} else if (strcmp(_str,"setByDr") == 0) {

46826

cmd = _wrap_smNodeDesc_setByDr;

46827

} else if (strcmp(_str,"getByLid") == 0) {

46828

cmd = _wrap_smNodeDesc_getByLid;

46829

} else if (strcmp(_str,"setByLid") == 0) {

46830

cmd = _wrap_smNodeDesc_setByLid;

46831

}

46832

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

46833

int i = 2;

46834

cmd = 0;

46835

while (i+1 < objc) {

46836

_str = Tcl_GetStringFromObj(objv[i],&length);

46837

if (strcmp(_str,"-description") == 0) {

46838

cmd = _wrap_smNodeDesc_description_set;

46839

}

46840

if (cmd) {

46841

oldarg = objv[i];

46842

objv[i] = obj;

46843

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

46844

objv[i] = oldarg;

46845

if (rcode == TCL_ERROR) return rcode;

46846

cmd = 0;

46847

} else {

46848

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -description }",-1);

46849

return TCL_ERROR;

46850

}

46851

i+=2;

46852

}

46853

if ((i < objc) || (i == 2)) {

46854

Tcl_SetStringObj(tcl_result,"{ -description }",-1);

46855

return TCL_ERROR;

46856

}

46857

return TCL_OK;

46858

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

46859

if (objc == 3) {

46860

_str = Tcl_GetStringFromObj(objv[2],&length);

46861

if (0) {}

46862

if (strcmp(_str,"-description") == 0) {

46863

cmd = _wrap_smNodeDesc_description_get;

46864

}

46865

else if (strcmp(_str,"-this") == 0) {

46866

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNodeDesc_p");

46867

return TCL_OK;

46868

}

46869

if (cmd) {

46870

oldarg = objv[2];

46871

objv[2] = obj;

46872

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

46873

objv[2] = oldarg;

46874

return rcode;

46875

} else {

46876

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -description }",-1);

46877

return TCL_ERROR;

46878

}

46879

} else {

46880

Tcl_SetStringObj(tcl_result,"{ -this -description }", -1);

46881

return TCL_ERROR;

46882

}

46883

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

46884

if (objc == 2) {

46885

Tcl_Obj *pDumpObj;

46886

pDumpObj = Tcl_NewStringObj("",-1);

46887

Tcl_IncrRefCount(pDumpObj);

46888

cmd = _wrap_smNodeDesc_description_get;

46889

oldarg = objv[2];

46890

objv[2] = obj;

46891

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

46892

objv[2] = oldarg;

46893

Tcl_AppendStringsToObj(pDumpObj, "-description ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

46894

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

46895

46896

Tcl_DecrRefCount(pDumpObj);

46897

return TCL_OK;

46898

} else {

46899

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

46900

return TCL_ERROR;

46901

}

46902

}

46903

if (!cmd) {

46904

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

46905

return TCL_ERROR;

46906

}

46907

oldarg = objv[1];

46908

objv[1] = obj;

46909

rcode = (*cmd)(clientData,interp,objc,objv);

46910

objv[1] = oldarg;

46911

return rcode;

46912

}

46913

46914

46915

46916

/* objcmd8.swg : Tcl 8.x object creation */

46917

46918

static int TclsmNodeDescCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46919

void (*del)(ClientData) = 0;

46920

char *name = 0;

46921

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

46922

smNodeDesc * newObj = 0;

46923

int firstarg = 0;

46924

int thisarg = 0;

46925

int length;

46926

char *_str;

46927

Tcl_Obj *tcl_result;

46928

46929

tcl_result = Tcl_GetObjResult(interp);

46930

if (objc == 1) {

46931

cmd = 0;

46932

} else {

46933

_str = Tcl_GetStringFromObj(objv[1],&length);

46934

if (strcmp(_str,"-this") == 0) thisarg = 2;

46935

else if (strcmp(_str,"-args") == 0) {

46936

firstarg = 1;

46937

cmd = 0;

46938

} else if (objc == 2) {

46939

firstarg = 1;

46940

name = _str;

46941

cmd = 0;

46942

} else if (objc >= 3) {

46943

name = _str;

46944

_str = Tcl_GetStringFromObj(objv[2],&length);

46945

if (strcmp(_str,"-this") == 0) thisarg = 3;

46946

else {

46947

firstarg = 1;

46948

cmd = 0;

46949

}

46950

}

46951

}

46952

if (cmd) {

46953

int result;

46954

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

46955

if (result == TCL_OK) {

46956

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNodeDesc_p");

46957

} else { return result; }

46958

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

46959

del = 0;

46960

} else if (thisarg > 0) {

46961

if (thisarg < objc) {

46962

char *r;

46963

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNodeDesc_p");

46964

if (r) {

46965

Tcl_SetStringObj(tcl_result,"Type error. not a smNodeDesc object.",-1);

46966

return TCL_ERROR;

46967

}

46968

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

46969

Tcl_SetStringObj(tcl_result,name,-1);

46970

} else {

46971

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

46972

return TCL_ERROR;

46973

}

46974

} else {

46975

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

46976

return TCL_ERROR;

46977

}

46978

{

46979

Tcl_CmdInfo dummy;

46980

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

46981

Tcl_CreateObjCommand(interp,name, TclsmNodeDescMethodCmd, (ClientData) newObj, del);

46982

return TCL_OK;

46983

} else {

46984

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

46985

return TCL_ERROR;

46986

}

46987

}

46988

}

46989

46990

46991

#define _ibsm_sm_info_guid_set(_swigobj,_swigval) (_swigobj->guid = *(_swigval),_swigval)

46992

static int _wrap_smSMInfo_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

46993

46994

ib_net64_t * _result;

46995

smSMInfo * _arg0;

46996

ib_net64_t * _arg1;

46997

Tcl_Obj * tcl_result;

46998

char * rettype;

46999

uint64_t temp;

47000

47001

clientData = clientData; objv = objv;

47002

tcl_result = Tcl_GetObjResult(interp);

47003

if ((objc < 3) || (objc > 3)) {

47004

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_guid_set { smSMInfo * } { ib_net64_t * } ",-1);

47005

return TCL_ERROR;

47006

}

47007

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47008

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_guid_set. Expected _smSMInfo_p, received ", -1);

47009

Tcl_AppendToObj(tcl_result, rettype, -1);

47010

return TCL_ERROR;

47011

}

47012

{

47013

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

47014

_arg1 = &temp;

47015

}

47016

{

47017

/* we can check if IBIS was initialized here */

47018

if (!IbisObj.initialized)

47019

{

47020

Tcl_SetStringObj(

47021

Tcl_GetObjResult(interp),

47022

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47023

return TCL_ERROR;

47024

}

47025

47026

if (! IbisObj.port_guid)

47027

{

47028

Tcl_SetStringObj(

47029

Tcl_GetObjResult(interp),

47030

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47031

return TCL_ERROR;

47032

}

47033

47034

ibis_tcl_error = 0;

47035

_result = (ib_net64_t *)_ibsm_sm_info_guid_set(_arg0,_arg1);

47036

;

47037

if (ibis_tcl_error) {

47038

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47039

return TCL_ERROR;

47040

}

47041

} tcl_result = Tcl_GetObjResult(interp);

47042

{

47043

char buff[20];

47044

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

47045

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47046

}

47047

return TCL_OK;

47048

}

47049

#define _ibsm_sm_info_guid_get(_swigobj) (&_swigobj->guid)

47050

static int _wrap_smSMInfo_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47051

47052

ib_net64_t * _result;

47053

smSMInfo * _arg0;

47054

Tcl_Obj * tcl_result;

47055

char * rettype;

47056

47057

clientData = clientData; objv = objv;

47058

tcl_result = Tcl_GetObjResult(interp);

47059

if ((objc < 2) || (objc > 2)) {

47060

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_guid_get { smSMInfo * } ",-1);

47061

return TCL_ERROR;

47062

}

47063

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47064

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_guid_get. Expected _smSMInfo_p, received ", -1);

47065

Tcl_AppendToObj(tcl_result, rettype, -1);

47066

return TCL_ERROR;

47067

}

47068

{

47069

/* we can check if IBIS was initialized here */

47070

if (!IbisObj.initialized)

47071

{

47072

Tcl_SetStringObj(

47073

Tcl_GetObjResult(interp),

47074

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47075

return TCL_ERROR;

47076

}

47077

47078

if (! IbisObj.port_guid)

47079

{

47080

Tcl_SetStringObj(

47081

Tcl_GetObjResult(interp),

47082

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47083

return TCL_ERROR;

47084

}

47085

47086

ibis_tcl_error = 0;

47087

_result = (ib_net64_t *)_ibsm_sm_info_guid_get(_arg0);

47088

;

47089

if (ibis_tcl_error) {

47090

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47091

return TCL_ERROR;

47092

}

47093

} tcl_result = Tcl_GetObjResult(interp);

47094

{

47095

char buff[20];

47096

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

47097

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47098

}

47099

return TCL_OK;

47100

}

47101

#define _ibsm_sm_info_sm_key_set(_swigobj,_swigval) (_swigobj->sm_key = *(_swigval),_swigval)

47102

static int _wrap_smSMInfo_sm_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47103

47104

ib_net64_t * _result;

47105

smSMInfo * _arg0;

47106

ib_net64_t * _arg1;

47107

Tcl_Obj * tcl_result;

47108

char * rettype;

47109

uint64_t temp;

47110

47111

clientData = clientData; objv = objv;

47112

tcl_result = Tcl_GetObjResult(interp);

47113

if ((objc < 3) || (objc > 3)) {

47114

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_sm_key_set { smSMInfo * } { ib_net64_t * } ",-1);

47115

return TCL_ERROR;

47116

}

47117

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47118

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_sm_key_set. Expected _smSMInfo_p, received ", -1);

47119

Tcl_AppendToObj(tcl_result, rettype, -1);

47120

return TCL_ERROR;

47121

}

47122

{

47123

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

47124

_arg1 = &temp;

47125

}

47126

{

47127

/* we can check if IBIS was initialized here */

47128

if (!IbisObj.initialized)

47129

{

47130

Tcl_SetStringObj(

47131

Tcl_GetObjResult(interp),

47132

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47133

return TCL_ERROR;

47134

}

47135

47136

if (! IbisObj.port_guid)

47137

{

47138

Tcl_SetStringObj(

47139

Tcl_GetObjResult(interp),

47140

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47141

return TCL_ERROR;

47142

}

47143

47144

ibis_tcl_error = 0;

47145

_result = (ib_net64_t *)_ibsm_sm_info_sm_key_set(_arg0,_arg1);

47146

;

47147

if (ibis_tcl_error) {

47148

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47149

return TCL_ERROR;

47150

}

47151

} tcl_result = Tcl_GetObjResult(interp);

47152

{

47153

char buff[20];

47154

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

47155

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47156

}

47157

return TCL_OK;

47158

}

47159

#define _ibsm_sm_info_sm_key_get(_swigobj) (&_swigobj->sm_key)

47160

static int _wrap_smSMInfo_sm_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47161

47162

ib_net64_t * _result;

47163

smSMInfo * _arg0;

47164

Tcl_Obj * tcl_result;

47165

char * rettype;

47166

47167

clientData = clientData; objv = objv;

47168

tcl_result = Tcl_GetObjResult(interp);

47169

if ((objc < 2) || (objc > 2)) {

47170

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_sm_key_get { smSMInfo * } ",-1);

47171

return TCL_ERROR;

47172

}

47173

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47174

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_sm_key_get. Expected _smSMInfo_p, received ", -1);

47175

Tcl_AppendToObj(tcl_result, rettype, -1);

47176

return TCL_ERROR;

47177

}

47178

{

47179

/* we can check if IBIS was initialized here */

47180

if (!IbisObj.initialized)

47181

{

47182

Tcl_SetStringObj(

47183

Tcl_GetObjResult(interp),

47184

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47185

return TCL_ERROR;

47186

}

47187

47188

if (! IbisObj.port_guid)

47189

{

47190

Tcl_SetStringObj(

47191

Tcl_GetObjResult(interp),

47192

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47193

return TCL_ERROR;

47194

}

47195

47196

ibis_tcl_error = 0;

47197

_result = (ib_net64_t *)_ibsm_sm_info_sm_key_get(_arg0);

47198

;

47199

if (ibis_tcl_error) {

47200

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47201

return TCL_ERROR;

47202

}

47203

} tcl_result = Tcl_GetObjResult(interp);

47204

{

47205

char buff[20];

47206

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

47207

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47208

}

47209

return TCL_OK;

47210

}

47211

#define _ibsm_sm_info_act_count_set(_swigobj,_swigval) (_swigobj->act_count = *(_swigval),_swigval)

47212

static int _wrap_smSMInfo_act_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47213

47214

ib_net32_t * _result;

47215

smSMInfo * _arg0;

47216

ib_net32_t * _arg1;

47217

Tcl_Obj * tcl_result;

47218

char * rettype;

47219

ib_net32_t temp;

47220

47221

clientData = clientData; objv = objv;

47222

tcl_result = Tcl_GetObjResult(interp);

47223

if ((objc < 3) || (objc > 3)) {

47224

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_act_count_set { smSMInfo * } { ib_net32_t * } ",-1);

47225

return TCL_ERROR;

47226

}

47227

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47228

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_act_count_set. Expected _smSMInfo_p, received ", -1);

47229

Tcl_AppendToObj(tcl_result, rettype, -1);

47230

return TCL_ERROR;

47231

}

47232

{

47233

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

47234

_arg1 = &temp;

47235

}

47236

{

47237

/* we can check if IBIS was initialized here */

47238

if (!IbisObj.initialized)

47239

{

47240

Tcl_SetStringObj(

47241

Tcl_GetObjResult(interp),

47242

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47243

return TCL_ERROR;

47244

}

47245

47246

if (! IbisObj.port_guid)

47247

{

47248

Tcl_SetStringObj(

47249

Tcl_GetObjResult(interp),

47250

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47251

return TCL_ERROR;

47252

}

47253

47254

ibis_tcl_error = 0;

47255

_result = (ib_net32_t *)_ibsm_sm_info_act_count_set(_arg0,_arg1);

47256

;

47257

if (ibis_tcl_error) {

47258

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47259

return TCL_ERROR;

47260

}

47261

} tcl_result = Tcl_GetObjResult(interp);

47262

{

47263

char buff[20];

47264

sprintf(buff, "%u", cl_ntoh32(*_result));

47265

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47266

}

47267

return TCL_OK;

47268

}

47269

#define _ibsm_sm_info_act_count_get(_swigobj) (&_swigobj->act_count)

47270

static int _wrap_smSMInfo_act_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47271

47272

ib_net32_t * _result;

47273

smSMInfo * _arg0;

47274

Tcl_Obj * tcl_result;

47275

char * rettype;

47276

47277

clientData = clientData; objv = objv;

47278

tcl_result = Tcl_GetObjResult(interp);

47279

if ((objc < 2) || (objc > 2)) {

47280

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_act_count_get { smSMInfo * } ",-1);

47281

return TCL_ERROR;

47282

}

47283

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47284

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_act_count_get. Expected _smSMInfo_p, received ", -1);

47285

Tcl_AppendToObj(tcl_result, rettype, -1);

47286

return TCL_ERROR;

47287

}

47288

{

47289

/* we can check if IBIS was initialized here */

47290

if (!IbisObj.initialized)

47291

{

47292

Tcl_SetStringObj(

47293

Tcl_GetObjResult(interp),

47294

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47295

return TCL_ERROR;

47296

}

47297

47298

if (! IbisObj.port_guid)

47299

{

47300

Tcl_SetStringObj(

47301

Tcl_GetObjResult(interp),

47302

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47303

return TCL_ERROR;

47304

}

47305

47306

ibis_tcl_error = 0;

47307

_result = (ib_net32_t *)_ibsm_sm_info_act_count_get(_arg0);

47308

;

47309

if (ibis_tcl_error) {

47310

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47311

return TCL_ERROR;

47312

}

47313

} tcl_result = Tcl_GetObjResult(interp);

47314

{

47315

char buff[20];

47316

sprintf(buff, "%u", cl_ntoh32(*_result));

47317

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47318

}

47319

return TCL_OK;

47320

}

47321

#define _ibsm_sm_info_pri_state_set(_swigobj,_swigval) (_swigobj->pri_state = *(_swigval),_swigval)

47322

static int _wrap_smSMInfo_pri_state_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47323

47324

uint8_t * _result;

47325

smSMInfo * _arg0;

47326

uint8_t * _arg1;

47327

Tcl_Obj * tcl_result;

47328

char * rettype;

47329

uint8_t temp;

47330

47331

clientData = clientData; objv = objv;

47332

tcl_result = Tcl_GetObjResult(interp);

47333

if ((objc < 3) || (objc > 3)) {

47334

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_pri_state_set { smSMInfo * } { uint8_t * } ",-1);

47335

return TCL_ERROR;

47336

}

47337

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47338

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_pri_state_set. Expected _smSMInfo_p, received ", -1);

47339

Tcl_AppendToObj(tcl_result, rettype, -1);

47340

return TCL_ERROR;

47341

}

47342

{

47343

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

47344

_arg1 = &temp;

47345

}

47346

{

47347

/* we can check if IBIS was initialized here */

47348

if (!IbisObj.initialized)

47349

{

47350

Tcl_SetStringObj(

47351

Tcl_GetObjResult(interp),

47352

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47353

return TCL_ERROR;

47354

}

47355

47356

if (! IbisObj.port_guid)

47357

{

47358

Tcl_SetStringObj(

47359

Tcl_GetObjResult(interp),

47360

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47361

return TCL_ERROR;

47362

}

47363

47364

ibis_tcl_error = 0;

47365

_result = (uint8_t *)_ibsm_sm_info_pri_state_set(_arg0,_arg1);

47366

;

47367

if (ibis_tcl_error) {

47368

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47369

return TCL_ERROR;

47370

}

47371

} tcl_result = Tcl_GetObjResult(interp);

47372

{

47373

char buff[20];

47374

sprintf(buff, "%u", *_result);

47375

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47376

}

47377

return TCL_OK;

47378

}

47379

#define _ibsm_sm_info_pri_state_get(_swigobj) (&_swigobj->pri_state)

47380

static int _wrap_smSMInfo_pri_state_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47381

47382

uint8_t * _result;

47383

smSMInfo * _arg0;

47384

Tcl_Obj * tcl_result;

47385

char * rettype;

47386

47387

clientData = clientData; objv = objv;

47388

tcl_result = Tcl_GetObjResult(interp);

47389

if ((objc < 2) || (objc > 2)) {

47390

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_pri_state_get { smSMInfo * } ",-1);

47391

return TCL_ERROR;

47392

}

47393

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47394

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_pri_state_get. Expected _smSMInfo_p, received ", -1);

47395

Tcl_AppendToObj(tcl_result, rettype, -1);

47396

return TCL_ERROR;

47397

}

47398

{

47399

/* we can check if IBIS was initialized here */

47400

if (!IbisObj.initialized)

47401

{

47402

Tcl_SetStringObj(

47403

Tcl_GetObjResult(interp),

47404

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47405

return TCL_ERROR;

47406

}

47407

47408

if (! IbisObj.port_guid)

47409

{

47410

Tcl_SetStringObj(

47411

Tcl_GetObjResult(interp),

47412

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47413

return TCL_ERROR;

47414

}

47415

47416

ibis_tcl_error = 0;

47417

_result = (uint8_t *)_ibsm_sm_info_pri_state_get(_arg0);

47418

;

47419

if (ibis_tcl_error) {

47420

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47421

return TCL_ERROR;

47422

}

47423

} tcl_result = Tcl_GetObjResult(interp);

47424

{

47425

char buff[20];

47426

sprintf(buff, "%u", *_result);

47427

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47428

}

47429

return TCL_OK;

47430

}

47431

static int smSMInfo_getByDr(smSMInfo *self,ibsm_dr_path_t * dr) {

47432

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSMInfo),

47433

dr, CL_NTOH16(IB_MAD_ATTR_SM_INFO), 0,

47434

IB_MAD_METHOD_GET));

47435

}

47436

static int _wrap_smSMInfo_getByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47437

47438

int _result;

47439

smSMInfo * _arg0;

47440

ibsm_dr_path_t * _arg1;

47441

Tcl_Obj * tcl_result;

47442

char * rettype;

47443

ibsm_dr_path_t dr;

47444

47445

clientData = clientData; objv = objv;

47446

tcl_result = Tcl_GetObjResult(interp);

47447

if ((objc < 3) || (objc > 3)) {

47448

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_getByDr { smSMInfo * } dr ",-1);

47449

return TCL_ERROR;

47450

}

47451

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47452

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_getByDr. Expected _smSMInfo_p, received ", -1);

47453

Tcl_AppendToObj(tcl_result, rettype, -1);

47454

return TCL_ERROR;

47455

}

47456

{

47457

char buf[1024];

47458

char *p_next;

47459

unsigned int port;

47460

int i;

47461

47462

dr.count = 1;

47463

dr.path[0] = 0;

47464

47465

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

47466

buf[1023] = '\0';

47467

p_next = strtok(buf," \t");

47468

while (p_next != NULL)

47469

{

47470

if (sscanf(p_next,"%u", &port) != 1)

47471

{

47472

printf("Error: bad format in directed route path index:%u : %s\n",

47473

dr.count, p_next);

47474

return TCL_ERROR;

47475

}

47476

dr.path[dr.count++] = port;

47477

p_next = strtok(NULL," \t");

47478

}

47479

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

47480

dr.count--;

47481

_arg1 = &dr;

47482

}

47483

{

47484

/* we can check if IBIS was initialized here */

47485

if (!IbisObj.initialized)

47486

{

47487

Tcl_SetStringObj(

47488

Tcl_GetObjResult(interp),

47489

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47490

return TCL_ERROR;

47491

}

47492

47493

if (! IbisObj.port_guid)

47494

{

47495

Tcl_SetStringObj(

47496

Tcl_GetObjResult(interp),

47497

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47498

return TCL_ERROR;

47499

}

47500

47501

ibis_tcl_error = 0;

47502

_result = (int )smSMInfo_getByDr(_arg0,_arg1);

47503

;

47504

if (ibis_tcl_error) {

47505

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47506

return TCL_ERROR;

47507

}

47508

} tcl_result = Tcl_GetObjResult(interp);

47509

Tcl_SetIntObj(tcl_result,(long) _result);

47510

return TCL_OK;

47511

}

47512

static int smSMInfo_setByDr(smSMInfo *self,ibsm_dr_path_t * dr) {

47513

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self, sizeof(smSMInfo),

47514

dr, CL_NTOH16(IB_MAD_ATTR_SM_INFO), 0,

47515

IB_MAD_METHOD_SET));

47516

}

47517

static int _wrap_smSMInfo_setByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47518

47519

int _result;

47520

smSMInfo * _arg0;

47521

ibsm_dr_path_t * _arg1;

47522

Tcl_Obj * tcl_result;

47523

char * rettype;

47524

ibsm_dr_path_t dr;

47525

47526

clientData = clientData; objv = objv;

47527

tcl_result = Tcl_GetObjResult(interp);

47528

if ((objc < 3) || (objc > 3)) {

47529

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_setByDr { smSMInfo * } dr ",-1);

47530

return TCL_ERROR;

47531

}

47532

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47533

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_setByDr. Expected _smSMInfo_p, received ", -1);

47534

Tcl_AppendToObj(tcl_result, rettype, -1);

47535

return TCL_ERROR;

47536

}

47537

{

47538

char buf[1024];

47539

char *p_next;

47540

unsigned int port;

47541

int i;

47542

47543

dr.count = 1;

47544

dr.path[0] = 0;

47545

47546

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

47547

buf[1023] = '\0';

47548

p_next = strtok(buf," \t");

47549

while (p_next != NULL)

47550

{

47551

if (sscanf(p_next,"%u", &port) != 1)

47552

{

47553

printf("Error: bad format in directed route path index:%u : %s\n",

47554

dr.count, p_next);

47555

return TCL_ERROR;

47556

}

47557

dr.path[dr.count++] = port;

47558

p_next = strtok(NULL," \t");

47559

}

47560

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

47561

dr.count--;

47562

_arg1 = &dr;

47563

}

47564

{

47565

/* we can check if IBIS was initialized here */

47566

if (!IbisObj.initialized)

47567

{

47568

Tcl_SetStringObj(

47569

Tcl_GetObjResult(interp),

47570

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47571

return TCL_ERROR;

47572

}

47573

47574

if (! IbisObj.port_guid)

47575

{

47576

Tcl_SetStringObj(

47577

Tcl_GetObjResult(interp),

47578

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47579

return TCL_ERROR;

47580

}

47581

47582

ibis_tcl_error = 0;

47583

_result = (int )smSMInfo_setByDr(_arg0,_arg1);

47584

;

47585

if (ibis_tcl_error) {

47586

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47587

return TCL_ERROR;

47588

}

47589

} tcl_result = Tcl_GetObjResult(interp);

47590

Tcl_SetIntObj(tcl_result,(long) _result);

47591

return TCL_OK;

47592

}

47593

static int smSMInfo_getByLid(smSMInfo *self,uint16_t lid) {

47594

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSMInfo),

47595

lid, CL_NTOH16(IB_MAD_ATTR_SM_INFO), 0,

47596

IB_MAD_METHOD_GET));

47597

}

47598

static int _wrap_smSMInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47599

47600

int _result;

47601

smSMInfo * _arg0;

47602

uint16_t * _arg1;

47603

Tcl_Obj * tcl_result;

47604

char * rettype;

47605

uint16_t temp;

47606

47607

clientData = clientData; objv = objv;

47608

tcl_result = Tcl_GetObjResult(interp);

47609

if ((objc < 3) || (objc > 3)) {

47610

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_getByLid { smSMInfo * } lid ",-1);

47611

return TCL_ERROR;

47612

}

47613

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47614

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_getByLid. Expected _smSMInfo_p, received ", -1);

47615

Tcl_AppendToObj(tcl_result, rettype, -1);

47616

return TCL_ERROR;

47617

}

47618

{

47619

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

47620

_arg1 = &temp;

47621

}

47622

{

47623

/* we can check if IBIS was initialized here */

47624

if (!IbisObj.initialized)

47625

{

47626

Tcl_SetStringObj(

47627

Tcl_GetObjResult(interp),

47628

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47629

return TCL_ERROR;

47630

}

47631

47632

if (! IbisObj.port_guid)

47633

{

47634

Tcl_SetStringObj(

47635

Tcl_GetObjResult(interp),

47636

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47637

return TCL_ERROR;

47638

}

47639

47640

ibis_tcl_error = 0;

47641

_result = (int )smSMInfo_getByLid(_arg0,*_arg1);

47642

;

47643

if (ibis_tcl_error) {

47644

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47645

return TCL_ERROR;

47646

}

47647

} tcl_result = Tcl_GetObjResult(interp);

47648

Tcl_SetIntObj(tcl_result,(long) _result);

47649

return TCL_OK;

47650

}

47651

static int smSMInfo_setByLid(smSMInfo *self,uint16_t lid) {

47652

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self, sizeof(smSMInfo),

47653

lid, CL_NTOH16(IB_MAD_ATTR_SM_INFO), 0,

47654

IB_MAD_METHOD_SET));

47655

}

47656

static int _wrap_smSMInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47657

47658

int _result;

47659

smSMInfo * _arg0;

47660

uint16_t * _arg1;

47661

Tcl_Obj * tcl_result;

47662

char * rettype;

47663

uint16_t temp;

47664

47665

clientData = clientData; objv = objv;

47666

tcl_result = Tcl_GetObjResult(interp);

47667

if ((objc < 3) || (objc > 3)) {

47668

Tcl_SetStringObj(tcl_result,"Wrong # args. smSMInfo_setByLid { smSMInfo * } lid ",-1);

47669

return TCL_ERROR;

47670

}

47671

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smSMInfo_p"))) {

47672

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smSMInfo_setByLid. Expected _smSMInfo_p, received ", -1);

47673

Tcl_AppendToObj(tcl_result, rettype, -1);

47674

return TCL_ERROR;

47675

}

47676

{

47677

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

47678

_arg1 = &temp;

47679

}

47680

{

47681

/* we can check if IBIS was initialized here */

47682

if (!IbisObj.initialized)

47683

{

47684

Tcl_SetStringObj(

47685

Tcl_GetObjResult(interp),

47686

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47687

return TCL_ERROR;

47688

}

47689

47690

if (! IbisObj.port_guid)

47691

{

47692

Tcl_SetStringObj(

47693

Tcl_GetObjResult(interp),

47694

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47695

return TCL_ERROR;

47696

}

47697

47698

ibis_tcl_error = 0;

47699

_result = (int )smSMInfo_setByLid(_arg0,*_arg1);

47700

;

47701

if (ibis_tcl_error) {

47702

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47703

return TCL_ERROR;

47704

}

47705

} tcl_result = Tcl_GetObjResult(interp);

47706

Tcl_SetIntObj(tcl_result,(long) _result);

47707

return TCL_OK;

47708

}

47709

/* methodcmd8.swg : Tcl8.x method invocation */

47710

47711

static int TclsmSMInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

47712

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

47713

char *_str;

47714

int rcode;

47715

Tcl_Obj **objv;

47716

Tcl_Obj *oldarg,*tcl_result,*obj;

47717

int length;

47718

char c;

47719

47720

tcl_result = Tcl_GetObjResult(interp);

47721

objv = (Tcl_Obj **) _objv;

47722

if (objc < 2) {

47723

Tcl_SetStringObj(tcl_result,"smSMInfo methods : { dump cget configure getByDr setByDr getByLid setByLid }",-1);

47724

return TCL_ERROR;

47725

}

47726

obj = Tcl_NewObj();

47727

SWIG_SetPointerObj(obj,(void *) clientData,"_smSMInfo_p");

47728

_str = Tcl_GetStringFromObj(objv[1],&length);

47729

c = *_str;

47730

if (0);

47731

if (strcmp(_str,"getByDr") == 0) {

47732

cmd = _wrap_smSMInfo_getByDr;

47733

} else if (strcmp(_str,"setByDr") == 0) {

47734

cmd = _wrap_smSMInfo_setByDr;

47735

} else if (strcmp(_str,"getByLid") == 0) {

47736

cmd = _wrap_smSMInfo_getByLid;

47737

} else if (strcmp(_str,"setByLid") == 0) {

47738

cmd = _wrap_smSMInfo_setByLid;

47739

}

47740

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

47741

int i = 2;

47742

cmd = 0;

47743

while (i+1 < objc) {

47744

_str = Tcl_GetStringFromObj(objv[i],&length);

47745

if (strcmp(_str,"-guid") == 0) {

47746

cmd = _wrap_smSMInfo_guid_set;

47747

} else if (strcmp(_str,"-sm_key") == 0) {

47748

cmd = _wrap_smSMInfo_sm_key_set;

47749

} else if (strcmp(_str,"-act_count") == 0) {

47750

cmd = _wrap_smSMInfo_act_count_set;

47751

} else if (strcmp(_str,"-pri_state") == 0) {

47752

cmd = _wrap_smSMInfo_pri_state_set;

47753

}

47754

if (cmd) {

47755

oldarg = objv[i];

47756

objv[i] = obj;

47757

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

47758

objv[i] = oldarg;

47759

if (rcode == TCL_ERROR) return rcode;

47760

cmd = 0;

47761

} else {

47762

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -guid -sm_key -act_count -pri_state }",-1);

47763

return TCL_ERROR;

47764

}

47765

i+=2;

47766

}

47767

if ((i < objc) || (i == 2)) {

47768

Tcl_SetStringObj(tcl_result,"{ -guid -sm_key -act_count -pri_state }",-1);

47769

return TCL_ERROR;

47770

}

47771

return TCL_OK;

47772

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

47773

if (objc == 3) {

47774

_str = Tcl_GetStringFromObj(objv[2],&length);

47775

if (0) {}

47776

if (strcmp(_str,"-guid") == 0) {

47777

cmd = _wrap_smSMInfo_guid_get;

47778

} else if (strcmp(_str,"-sm_key") == 0) {

47779

cmd = _wrap_smSMInfo_sm_key_get;

47780

} else if (strcmp(_str,"-act_count") == 0) {

47781

cmd = _wrap_smSMInfo_act_count_get;

47782

} else if (strcmp(_str,"-pri_state") == 0) {

47783

cmd = _wrap_smSMInfo_pri_state_get;

47784

}

47785

else if (strcmp(_str,"-this") == 0) {

47786

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smSMInfo_p");

47787

return TCL_OK;

47788

}

47789

if (cmd) {

47790

oldarg = objv[2];

47791

objv[2] = obj;

47792

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

47793

objv[2] = oldarg;

47794

return rcode;

47795

} else {

47796

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -guid -sm_key -act_count -pri_state }",-1);

47797

return TCL_ERROR;

47798

}

47799

} else {

47800

Tcl_SetStringObj(tcl_result,"{ -this -guid -sm_key -act_count -pri_state }", -1);

47801

return TCL_ERROR;

47802

}

47803

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

47804

if (objc == 2) {

47805

Tcl_Obj *pDumpObj;

47806

pDumpObj = Tcl_NewStringObj("",-1);

47807

Tcl_IncrRefCount(pDumpObj);

47808

cmd = _wrap_smSMInfo_guid_get;

47809

oldarg = objv[2];

47810

objv[2] = obj;

47811

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

47812

objv[2] = oldarg;

47813

Tcl_AppendStringsToObj(pDumpObj, "-guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

47814

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

47815

cmd = _wrap_smSMInfo_sm_key_get;

47816

oldarg = objv[2];

47817

objv[2] = obj;

47818

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

47819

objv[2] = oldarg;

47820

Tcl_AppendStringsToObj(pDumpObj, "-sm_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

47821

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

47822

cmd = _wrap_smSMInfo_act_count_get;

47823

oldarg = objv[2];

47824

objv[2] = obj;

47825

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

47826

objv[2] = oldarg;

47827

Tcl_AppendStringsToObj(pDumpObj, "-act_count ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

47828

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

47829

cmd = _wrap_smSMInfo_pri_state_get;

47830

oldarg = objv[2];

47831

objv[2] = obj;

47832

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

47833

objv[2] = oldarg;

47834

Tcl_AppendStringsToObj(pDumpObj, "-pri_state ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

47835

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

47836

47837

Tcl_DecrRefCount(pDumpObj);

47838

return TCL_OK;

47839

} else {

47840

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

47841

return TCL_ERROR;

47842

}

47843

}

47844

if (!cmd) {

47845

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByDr setByDr getByLid setByLid }",-1);

47846

return TCL_ERROR;

47847

}

47848

oldarg = objv[1];

47849

objv[1] = obj;

47850

rcode = (*cmd)(clientData,interp,objc,objv);

47851

objv[1] = oldarg;

47852

return rcode;

47853

}

47854

47855

47856

47857

/* objcmd8.swg : Tcl 8.x object creation */

47858

47859

static int TclsmSMInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47860

void (*del)(ClientData) = 0;

47861

char *name = 0;

47862

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

47863

smSMInfo * newObj = 0;

47864

int firstarg = 0;

47865

int thisarg = 0;

47866

int length;

47867

char *_str;

47868

Tcl_Obj *tcl_result;

47869

47870

tcl_result = Tcl_GetObjResult(interp);

47871

if (objc == 1) {

47872

cmd = 0;

47873

} else {

47874

_str = Tcl_GetStringFromObj(objv[1],&length);

47875

if (strcmp(_str,"-this") == 0) thisarg = 2;

47876

else if (strcmp(_str,"-args") == 0) {

47877

firstarg = 1;

47878

cmd = 0;

47879

} else if (objc == 2) {

47880

firstarg = 1;

47881

name = _str;

47882

cmd = 0;

47883

} else if (objc >= 3) {

47884

name = _str;

47885

_str = Tcl_GetStringFromObj(objv[2],&length);

47886

if (strcmp(_str,"-this") == 0) thisarg = 3;

47887

else {

47888

firstarg = 1;

47889

cmd = 0;

47890

}

47891

}

47892

}

47893

if (cmd) {

47894

int result;

47895

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

47896

if (result == TCL_OK) {

47897

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smSMInfo_p");

47898

} else { return result; }

47899

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

47900

del = 0;

47901

} else if (thisarg > 0) {

47902

if (thisarg < objc) {

47903

char *r;

47904

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smSMInfo_p");

47905

if (r) {

47906

Tcl_SetStringObj(tcl_result,"Type error. not a smSMInfo object.",-1);

47907

return TCL_ERROR;

47908

}

47909

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

47910

Tcl_SetStringObj(tcl_result,name,-1);

47911

} else {

47912

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

47913

return TCL_ERROR;

47914

}

47915

} else {

47916

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

47917

return TCL_ERROR;

47918

}

47919

{

47920

Tcl_CmdInfo dummy;

47921

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

47922

Tcl_CreateObjCommand(interp,name, TclsmSMInfoMethodCmd, (ClientData) newObj, del);

47923

return TCL_OK;

47924

} else {

47925

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

47926

return TCL_ERROR;

47927

}

47928

}

47929

}

47930

47931

47932

#define _ibsm_notice_generic_type_set(_swigobj,_swigval) (_swigobj->generic_type = *(_swigval),_swigval)

47933

static int _wrap_smNotice_generic_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47934

47935

uint8_t * _result;

47936

smNotice * _arg0;

47937

uint8_t * _arg1;

47938

Tcl_Obj * tcl_result;

47939

char * rettype;

47940

uint8_t temp;

47941

47942

clientData = clientData; objv = objv;

47943

tcl_result = Tcl_GetObjResult(interp);

47944

if ((objc < 3) || (objc > 3)) {

47945

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_generic_type_set { smNotice * } { uint8_t * } ",-1);

47946

return TCL_ERROR;

47947

}

47948

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

47949

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_generic_type_set. Expected _smNotice_p, received ", -1);

47950

Tcl_AppendToObj(tcl_result, rettype, -1);

47951

return TCL_ERROR;

47952

}

47953

{

47954

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

47955

_arg1 = &temp;

47956

}

47957

{

47958

/* we can check if IBIS was initialized here */

47959

if (!IbisObj.initialized)

47960

{

47961

Tcl_SetStringObj(

47962

Tcl_GetObjResult(interp),

47963

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

47964

return TCL_ERROR;

47965

}

47966

47967

if (! IbisObj.port_guid)

47968

{

47969

Tcl_SetStringObj(

47970

Tcl_GetObjResult(interp),

47971

" ibis was not yet initialized. please use ibis_set_port before.", -1);

47972

return TCL_ERROR;

47973

}

47974

47975

ibis_tcl_error = 0;

47976

_result = (uint8_t *)_ibsm_notice_generic_type_set(_arg0,_arg1);

47977

;

47978

if (ibis_tcl_error) {

47979

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

47980

return TCL_ERROR;

47981

}

47982

} tcl_result = Tcl_GetObjResult(interp);

47983

{

47984

char buff[20];

47985

sprintf(buff, "%u", *_result);

47986

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

47987

}

47988

return TCL_OK;

47989

}

47990

#define _ibsm_notice_generic_type_get(_swigobj) (&_swigobj->generic_type)

47991

static int _wrap_smNotice_generic_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

47992

47993

uint8_t * _result;

47994

smNotice * _arg0;

47995

Tcl_Obj * tcl_result;

47996

char * rettype;

47997

47998

clientData = clientData; objv = objv;

47999

tcl_result = Tcl_GetObjResult(interp);

48000

if ((objc < 2) || (objc > 2)) {

48001

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_generic_type_get { smNotice * } ",-1);

48002

return TCL_ERROR;

48003

}

48004

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48005

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_generic_type_get. Expected _smNotice_p, received ", -1);

48006

Tcl_AppendToObj(tcl_result, rettype, -1);

48007

return TCL_ERROR;

48008

}

48009

{

48010

/* we can check if IBIS was initialized here */

48011

if (!IbisObj.initialized)

48012

{

48013

Tcl_SetStringObj(

48014

Tcl_GetObjResult(interp),

48015

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48016

return TCL_ERROR;

48017

}

48018

48019

if (! IbisObj.port_guid)

48020

{

48021

Tcl_SetStringObj(

48022

Tcl_GetObjResult(interp),

48023

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48024

return TCL_ERROR;

48025

}

48026

48027

ibis_tcl_error = 0;

48028

_result = (uint8_t *)_ibsm_notice_generic_type_get(_arg0);

48029

;

48030

if (ibis_tcl_error) {

48031

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48032

return TCL_ERROR;

48033

}

48034

} tcl_result = Tcl_GetObjResult(interp);

48035

{

48036

char buff[20];

48037

sprintf(buff, "%u", *_result);

48038

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48039

}

48040

return TCL_OK;

48041

}

48042

#define _ibsm_notice_issuer_lid_set(_swigobj,_swigval) (_swigobj->issuer_lid = *(_swigval),_swigval)

48043

static int _wrap_smNotice_issuer_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48044

48045

ib_net16_t * _result;

48046

smNotice * _arg0;

48047

ib_net16_t * _arg1;

48048

Tcl_Obj * tcl_result;

48049

char * rettype;

48050

ib_net16_t temp;

48051

48052

clientData = clientData; objv = objv;

48053

tcl_result = Tcl_GetObjResult(interp);

48054

if ((objc < 3) || (objc > 3)) {

48055

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_issuer_lid_set { smNotice * } { ib_net16_t * } ",-1);

48056

return TCL_ERROR;

48057

}

48058

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48059

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_issuer_lid_set. Expected _smNotice_p, received ", -1);

48060

Tcl_AppendToObj(tcl_result, rettype, -1);

48061

return TCL_ERROR;

48062

}

48063

{

48064

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

48065

_arg1 = &temp;

48066

}

48067

{

48068

/* we can check if IBIS was initialized here */

48069

if (!IbisObj.initialized)

48070

{

48071

Tcl_SetStringObj(

48072

Tcl_GetObjResult(interp),

48073

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48074

return TCL_ERROR;

48075

}

48076

48077

if (! IbisObj.port_guid)

48078

{

48079

Tcl_SetStringObj(

48080

Tcl_GetObjResult(interp),

48081

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48082

return TCL_ERROR;

48083

}

48084

48085

ibis_tcl_error = 0;

48086

_result = (ib_net16_t *)_ibsm_notice_issuer_lid_set(_arg0,_arg1);

48087

;

48088

if (ibis_tcl_error) {

48089

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48090

return TCL_ERROR;

48091

}

48092

} tcl_result = Tcl_GetObjResult(interp);

48093

{

48094

char buff[20];

48095

sprintf(buff, "%u", cl_hton16(*_result));

48096

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48097

}

48098

return TCL_OK;

48099

}

48100

#define _ibsm_notice_issuer_lid_get(_swigobj) (&_swigobj->issuer_lid)

48101

static int _wrap_smNotice_issuer_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48102

48103

ib_net16_t * _result;

48104

smNotice * _arg0;

48105

Tcl_Obj * tcl_result;

48106

char * rettype;

48107

48108

clientData = clientData; objv = objv;

48109

tcl_result = Tcl_GetObjResult(interp);

48110

if ((objc < 2) || (objc > 2)) {

48111

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_issuer_lid_get { smNotice * } ",-1);

48112

return TCL_ERROR;

48113

}

48114

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48115

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_issuer_lid_get. Expected _smNotice_p, received ", -1);

48116

Tcl_AppendToObj(tcl_result, rettype, -1);

48117

return TCL_ERROR;

48118

}

48119

{

48120

/* we can check if IBIS was initialized here */

48121

if (!IbisObj.initialized)

48122

{

48123

Tcl_SetStringObj(

48124

Tcl_GetObjResult(interp),

48125

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48126

return TCL_ERROR;

48127

}

48128

48129

if (! IbisObj.port_guid)

48130

{

48131

Tcl_SetStringObj(

48132

Tcl_GetObjResult(interp),

48133

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48134

return TCL_ERROR;

48135

}

48136

48137

ibis_tcl_error = 0;

48138

_result = (ib_net16_t *)_ibsm_notice_issuer_lid_get(_arg0);

48139

;

48140

if (ibis_tcl_error) {

48141

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48142

return TCL_ERROR;

48143

}

48144

} tcl_result = Tcl_GetObjResult(interp);

48145

{

48146

char buff[20];

48147

sprintf(buff, "%u", cl_hton16(*_result));

48148

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48149

}

48150

return TCL_OK;

48151

}

48152

#define _ibsm_notice_toggle_count_set(_swigobj,_swigval) (_swigobj->toggle_count = *(_swigval),_swigval)

48153

static int _wrap_smNotice_toggle_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48154

48155

ib_net16_t * _result;

48156

smNotice * _arg0;

48157

ib_net16_t * _arg1;

48158

Tcl_Obj * tcl_result;

48159

char * rettype;

48160

ib_net16_t temp;

48161

48162

clientData = clientData; objv = objv;

48163

tcl_result = Tcl_GetObjResult(interp);

48164

if ((objc < 3) || (objc > 3)) {

48165

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_toggle_count_set { smNotice * } { ib_net16_t * } ",-1);

48166

return TCL_ERROR;

48167

}

48168

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48169

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_toggle_count_set. Expected _smNotice_p, received ", -1);

48170

Tcl_AppendToObj(tcl_result, rettype, -1);

48171

return TCL_ERROR;

48172

}

48173

{

48174

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

48175

_arg1 = &temp;

48176

}

48177

{

48178

/* we can check if IBIS was initialized here */

48179

if (!IbisObj.initialized)

48180

{

48181

Tcl_SetStringObj(

48182

Tcl_GetObjResult(interp),

48183

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48184

return TCL_ERROR;

48185

}

48186

48187

if (! IbisObj.port_guid)

48188

{

48189

Tcl_SetStringObj(

48190

Tcl_GetObjResult(interp),

48191

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48192

return TCL_ERROR;

48193

}

48194

48195

ibis_tcl_error = 0;

48196

_result = (ib_net16_t *)_ibsm_notice_toggle_count_set(_arg0,_arg1);

48197

;

48198

if (ibis_tcl_error) {

48199

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48200

return TCL_ERROR;

48201

}

48202

} tcl_result = Tcl_GetObjResult(interp);

48203

{

48204

char buff[20];

48205

sprintf(buff, "%u", cl_hton16(*_result));

48206

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48207

}

48208

return TCL_OK;

48209

}

48210

#define _ibsm_notice_toggle_count_get(_swigobj) (&_swigobj->toggle_count)

48211

static int _wrap_smNotice_toggle_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48212

48213

ib_net16_t * _result;

48214

smNotice * _arg0;

48215

Tcl_Obj * tcl_result;

48216

char * rettype;

48217

48218

clientData = clientData; objv = objv;

48219

tcl_result = Tcl_GetObjResult(interp);

48220

if ((objc < 2) || (objc > 2)) {

48221

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_toggle_count_get { smNotice * } ",-1);

48222

return TCL_ERROR;

48223

}

48224

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48225

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_toggle_count_get. Expected _smNotice_p, received ", -1);

48226

Tcl_AppendToObj(tcl_result, rettype, -1);

48227

return TCL_ERROR;

48228

}

48229

{

48230

/* we can check if IBIS was initialized here */

48231

if (!IbisObj.initialized)

48232

{

48233

Tcl_SetStringObj(

48234

Tcl_GetObjResult(interp),

48235

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48236

return TCL_ERROR;

48237

}

48238

48239

if (! IbisObj.port_guid)

48240

{

48241

Tcl_SetStringObj(

48242

Tcl_GetObjResult(interp),

48243

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48244

return TCL_ERROR;

48245

}

48246

48247

ibis_tcl_error = 0;

48248

_result = (ib_net16_t *)_ibsm_notice_toggle_count_get(_arg0);

48249

;

48250

if (ibis_tcl_error) {

48251

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48252

return TCL_ERROR;

48253

}

48254

} tcl_result = Tcl_GetObjResult(interp);

48255

{

48256

char buff[20];

48257

sprintf(buff, "%u", cl_hton16(*_result));

48258

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48259

}

48260

return TCL_OK;

48261

}

48262

#define _ibsm_notice_issuer_gid_set(_swigobj,_swigval) (_swigobj->issuer_gid = *(_swigval),_swigval)

48263

static int _wrap_smNotice_issuer_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48264

48265

ib_gid_t * _result;

48266

smNotice * _arg0;

48267

ib_gid_t * _arg1;

48268

Tcl_Obj * tcl_result;

48269

char * rettype;

48270

ib_gid_t temp;

48271

48272

clientData = clientData; objv = objv;

48273

tcl_result = Tcl_GetObjResult(interp);

48274

if ((objc < 3) || (objc > 3)) {

48275

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_issuer_gid_set { smNotice * } { ib_gid_t * } ",-1);

48276

return TCL_ERROR;

48277

}

48278

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48279

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_issuer_gid_set. Expected _smNotice_p, received ", -1);

48280

Tcl_AppendToObj(tcl_result, rettype, -1);

48281

return TCL_ERROR;

48282

}

48283

{

48284

char buf[38];

48285

char *p_prefix, *p_guid;

48286

char *str_token = NULL;

48287

48288

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

48289

p_prefix = strtok_r(buf,":", &str_token);

48290

p_guid = strtok_r(NULL, " ", &str_token);

48291

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

48292

errno = 0;

48293

if (errno) {

48294

printf("Wrong format for gid prefix:%s\n", p_prefix);

48295

return TCL_ERROR;

48296

}

48297

48298

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

48299

if (errno) {

48300

printf("Wrong format for gid guid:%s\n", p_guid);

48301

return TCL_ERROR;

48302

}

48303

48304

_arg1 = &temp;

48305

}

48306

{

48307

/* we can check if IBIS was initialized here */

48308

if (!IbisObj.initialized)

48309

{

48310

Tcl_SetStringObj(

48311

Tcl_GetObjResult(interp),

48312

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48313

return TCL_ERROR;

48314

}

48315

48316

if (! IbisObj.port_guid)

48317

{

48318

Tcl_SetStringObj(

48319

Tcl_GetObjResult(interp),

48320

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48321

return TCL_ERROR;

48322

}

48323

48324

ibis_tcl_error = 0;

48325

_result = (ib_gid_t *)_ibsm_notice_issuer_gid_set(_arg0,_arg1);

48326

;

48327

if (ibis_tcl_error) {

48328

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48329

return TCL_ERROR;

48330

}

48331

} tcl_result = Tcl_GetObjResult(interp);

48332

{

48333

char buff[38];

48334

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

48335

cl_ntoh64(_result->unicast.prefix),

48336

cl_ntoh64(_result->unicast.interface_id)

48337

);

48338

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48339

}

48340

return TCL_OK;

48341

}

48342

#define _ibsm_notice_issuer_gid_get(_swigobj) (&_swigobj->issuer_gid)

48343

static int _wrap_smNotice_issuer_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48344

48345

ib_gid_t * _result;

48346

smNotice * _arg0;

48347

Tcl_Obj * tcl_result;

48348

char * rettype;

48349

48350

clientData = clientData; objv = objv;

48351

tcl_result = Tcl_GetObjResult(interp);

48352

if ((objc < 2) || (objc > 2)) {

48353

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_issuer_gid_get { smNotice * } ",-1);

48354

return TCL_ERROR;

48355

}

48356

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48357

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_issuer_gid_get. Expected _smNotice_p, received ", -1);

48358

Tcl_AppendToObj(tcl_result, rettype, -1);

48359

return TCL_ERROR;

48360

}

48361

{

48362

/* we can check if IBIS was initialized here */

48363

if (!IbisObj.initialized)

48364

{

48365

Tcl_SetStringObj(

48366

Tcl_GetObjResult(interp),

48367

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48368

return TCL_ERROR;

48369

}

48370

48371

if (! IbisObj.port_guid)

48372

{

48373

Tcl_SetStringObj(

48374

Tcl_GetObjResult(interp),

48375

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48376

return TCL_ERROR;

48377

}

48378

48379

ibis_tcl_error = 0;

48380

_result = (ib_gid_t *)_ibsm_notice_issuer_gid_get(_arg0);

48381

;

48382

if (ibis_tcl_error) {

48383

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48384

return TCL_ERROR;

48385

}

48386

} tcl_result = Tcl_GetObjResult(interp);

48387

{

48388

char buff[38];

48389

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

48390

cl_ntoh64(_result->unicast.prefix),

48391

cl_ntoh64(_result->unicast.interface_id)

48392

);

48393

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

48394

}

48395

return TCL_OK;

48396

}

48397

#define _ibsm_notice_g_or_v_get(_swigobj) (&_swigobj->g_or_v)

48398

static int _wrap_smNotice_g_or_v_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48399

48400

smNotice_g_or_v * _result;

48401

smNotice * _arg0;

48402

Tcl_Obj * tcl_result;

48403

char * rettype;

48404

48405

clientData = clientData; objv = objv;

48406

tcl_result = Tcl_GetObjResult(interp);

48407

if ((objc < 2) || (objc > 2)) {

48408

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_get { smNotice * } ",-1);

48409

return TCL_ERROR;

48410

}

48411

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48412

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_get. Expected _smNotice_p, received ", -1);

48413

Tcl_AppendToObj(tcl_result, rettype, -1);

48414

return TCL_ERROR;

48415

}

48416

{

48417

/* we can check if IBIS was initialized here */

48418

if (!IbisObj.initialized)

48419

{

48420

Tcl_SetStringObj(

48421

Tcl_GetObjResult(interp),

48422

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48423

return TCL_ERROR;

48424

}

48425

48426

if (! IbisObj.port_guid)

48427

{

48428

Tcl_SetStringObj(

48429

Tcl_GetObjResult(interp),

48430

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48431

return TCL_ERROR;

48432

}

48433

48434

ibis_tcl_error = 0;

48435

_result = (smNotice_g_or_v *)_ibsm_notice_g_or_v_get(_arg0);

48436

;

48437

if (ibis_tcl_error) {

48438

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48439

return TCL_ERROR;

48440

}

48441

} tcl_result = Tcl_GetObjResult(interp);

48442

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_g_or_v_p");

48443

return TCL_OK;

48444

}

48445

#define _ibsm_notice_data_details_get(_swigobj) (&_swigobj->data_details)

48446

static int _wrap_smNotice_data_details_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48447

48448

smNotice_data_details * _result;

48449

smNotice * _arg0;

48450

Tcl_Obj * tcl_result;

48451

char * rettype;

48452

48453

clientData = clientData; objv = objv;

48454

tcl_result = Tcl_GetObjResult(interp);

48455

if ((objc < 2) || (objc > 2)) {

48456

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_get { smNotice * } ",-1);

48457

return TCL_ERROR;

48458

}

48459

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48460

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_get. Expected _smNotice_p, received ", -1);

48461

Tcl_AppendToObj(tcl_result, rettype, -1);

48462

return TCL_ERROR;

48463

}

48464

{

48465

/* we can check if IBIS was initialized here */

48466

if (!IbisObj.initialized)

48467

{

48468

Tcl_SetStringObj(

48469

Tcl_GetObjResult(interp),

48470

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48471

return TCL_ERROR;

48472

}

48473

48474

if (! IbisObj.port_guid)

48475

{

48476

Tcl_SetStringObj(

48477

Tcl_GetObjResult(interp),

48478

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48479

return TCL_ERROR;

48480

}

48481

48482

ibis_tcl_error = 0;

48483

_result = (smNotice_data_details *)_ibsm_notice_data_details_get(_arg0);

48484

;

48485

if (ibis_tcl_error) {

48486

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48487

return TCL_ERROR;

48488

}

48489

} tcl_result = Tcl_GetObjResult(interp);

48490

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_p");

48491

return TCL_OK;

48492

}

48493

static int smNotice_trapByDr(smNotice *self,ibsm_dr_path_t * dr) {

48494

return(ibsm_send_mad_by_dr(gp_ibsm, (uint8_t *)self,

48495

sizeof(smNotice),

48496

dr, CL_NTOH16(IB_MAD_ATTR_NOTICE), 0,

48497

IB_MAD_METHOD_TRAP));

48498

}

48499

static int _wrap_smNotice_trapByDr(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48500

48501

int _result;

48502

smNotice * _arg0;

48503

ibsm_dr_path_t * _arg1;

48504

Tcl_Obj * tcl_result;

48505

char * rettype;

48506

ibsm_dr_path_t dr;

48507

48508

clientData = clientData; objv = objv;

48509

tcl_result = Tcl_GetObjResult(interp);

48510

if ((objc < 3) || (objc > 3)) {

48511

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_trapByDr { smNotice * } dr ",-1);

48512

return TCL_ERROR;

48513

}

48514

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48515

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_trapByDr. Expected _smNotice_p, received ", -1);

48516

Tcl_AppendToObj(tcl_result, rettype, -1);

48517

return TCL_ERROR;

48518

}

48519

{

48520

char buf[1024];

48521

char *p_next;

48522

unsigned int port;

48523

int i;

48524

48525

dr.count = 1;

48526

dr.path[0] = 0;

48527

48528

strncpy(buf, Tcl_GetStringFromObj(objv[2],NULL), 1023);

48529

buf[1023] = '\0';

48530

p_next = strtok(buf," \t");

48531

while (p_next != NULL)

48532

{

48533

if (sscanf(p_next,"%u", &port) != 1)

48534

{

48535

printf("Error: bad format in directed route path index:%u : %s\n",

48536

dr.count, p_next);

48537

return TCL_ERROR;

48538

}

48539

dr.path[dr.count++] = port;

48540

p_next = strtok(NULL," \t");

48541

}

48542

for (i = dr.count; i < 64; i++) dr.path[i] = 0;

48543

dr.count--;

48544

_arg1 = &dr;

48545

}

48546

{

48547

/* we can check if IBIS was initialized here */

48548

if (!IbisObj.initialized)

48549

{

48550

Tcl_SetStringObj(

48551

Tcl_GetObjResult(interp),

48552

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48553

return TCL_ERROR;

48554

}

48555

48556

if (! IbisObj.port_guid)

48557

{

48558

Tcl_SetStringObj(

48559

Tcl_GetObjResult(interp),

48560

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48561

return TCL_ERROR;

48562

}

48563

48564

ibis_tcl_error = 0;

48565

_result = (int )smNotice_trapByDr(_arg0,_arg1);

48566

;

48567

if (ibis_tcl_error) {

48568

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48569

return TCL_ERROR;

48570

}

48571

} tcl_result = Tcl_GetObjResult(interp);

48572

Tcl_SetIntObj(tcl_result,(long) _result);

48573

return TCL_OK;

48574

}

48575

static int smNotice_trapByLid(smNotice *self,uint16_t lid) {

48576

return(ibsm_send_mad_by_lid(gp_ibsm, (uint8_t *)self,

48577

sizeof(smNotice),

48578

lid, CL_NTOH16(IB_MAD_ATTR_NOTICE), 0,

48579

IB_MAD_METHOD_TRAP));

48580

}

48581

static int _wrap_smNotice_trapByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48582

48583

int _result;

48584

smNotice * _arg0;

48585

uint16_t * _arg1;

48586

Tcl_Obj * tcl_result;

48587

char * rettype;

48588

uint16_t temp;

48589

48590

clientData = clientData; objv = objv;

48591

tcl_result = Tcl_GetObjResult(interp);

48592

if ((objc < 3) || (objc > 3)) {

48593

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_trapByLid { smNotice * } lid ",-1);

48594

return TCL_ERROR;

48595

}

48596

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_p"))) {

48597

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_trapByLid. Expected _smNotice_p, received ", -1);

48598

Tcl_AppendToObj(tcl_result, rettype, -1);

48599

return TCL_ERROR;

48600

}

48601

{

48602

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

48603

_arg1 = &temp;

48604

}

48605

{

48606

/* we can check if IBIS was initialized here */

48607

if (!IbisObj.initialized)

48608

{

48609

Tcl_SetStringObj(

48610

Tcl_GetObjResult(interp),

48611

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48612

return TCL_ERROR;

48613

}

48614

48615

if (! IbisObj.port_guid)

48616

{

48617

Tcl_SetStringObj(

48618

Tcl_GetObjResult(interp),

48619

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48620

return TCL_ERROR;

48621

}

48622

48623

ibis_tcl_error = 0;

48624

_result = (int )smNotice_trapByLid(_arg0,*_arg1);

48625

;

48626

if (ibis_tcl_error) {

48627

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48628

return TCL_ERROR;

48629

}

48630

} tcl_result = Tcl_GetObjResult(interp);

48631

Tcl_SetIntObj(tcl_result,(long) _result);

48632

return TCL_OK;

48633

}

48634

/* methodcmd8.swg : Tcl8.x method invocation */

48635

48636

static int TclsmNoticeMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

48637

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

48638

char *_str;

48639

int rcode;

48640

Tcl_Obj **objv;

48641

Tcl_Obj *oldarg,*tcl_result,*obj;

48642

int length;

48643

char c;

48644

48645

tcl_result = Tcl_GetObjResult(interp);

48646

objv = (Tcl_Obj **) _objv;

48647

if (objc < 2) {

48648

Tcl_SetStringObj(tcl_result,"smNotice methods : { dump cget configure trapByDr trapByLid }",-1);

48649

return TCL_ERROR;

48650

}

48651

obj = Tcl_NewObj();

48652

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_p");

48653

_str = Tcl_GetStringFromObj(objv[1],&length);

48654

c = *_str;

48655

if (0);

48656

if (strcmp(_str,"trapByDr") == 0) {

48657

cmd = _wrap_smNotice_trapByDr;

48658

} else if (strcmp(_str,"trapByLid") == 0) {

48659

cmd = _wrap_smNotice_trapByLid;

48660

}

48661

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

48662

int i = 2;

48663

cmd = 0;

48664

while (i+1 < objc) {

48665

_str = Tcl_GetStringFromObj(objv[i],&length);

48666

if (strcmp(_str,"-generic_type") == 0) {

48667

cmd = _wrap_smNotice_generic_type_set;

48668

} else if (strcmp(_str,"-issuer_lid") == 0) {

48669

cmd = _wrap_smNotice_issuer_lid_set;

48670

} else if (strcmp(_str,"-toggle_count") == 0) {

48671

cmd = _wrap_smNotice_toggle_count_set;

48672

} else if (strcmp(_str,"-issuer_gid") == 0) {

48673

cmd = _wrap_smNotice_issuer_gid_set;

48674

}

48675

if (cmd) {

48676

oldarg = objv[i];

48677

objv[i] = obj;

48678

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

48679

objv[i] = oldarg;

48680

if (rcode == TCL_ERROR) return rcode;

48681

cmd = 0;

48682

} else {

48683

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -generic_type -issuer_lid -toggle_count -issuer_gid }",-1);

48684

return TCL_ERROR;

48685

}

48686

i+=2;

48687

}

48688

if ((i < objc) || (i == 2)) {

48689

Tcl_SetStringObj(tcl_result,"{ -generic_type -issuer_lid -toggle_count -issuer_gid }",-1);

48690

return TCL_ERROR;

48691

}

48692

return TCL_OK;

48693

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

48694

if (objc == 3) {

48695

_str = Tcl_GetStringFromObj(objv[2],&length);

48696

if (0) {}

48697

if (strcmp(_str,"-generic_type") == 0) {

48698

cmd = _wrap_smNotice_generic_type_get;

48699

} else if (strcmp(_str,"-issuer_lid") == 0) {

48700

cmd = _wrap_smNotice_issuer_lid_get;

48701

} else if (strcmp(_str,"-toggle_count") == 0) {

48702

cmd = _wrap_smNotice_toggle_count_get;

48703

} else if (strcmp(_str,"-issuer_gid") == 0) {

48704

cmd = _wrap_smNotice_issuer_gid_get;

48705

} else if (strcmp(_str,"-g_or_v") == 0) {

48706

cmd = _wrap_smNotice_g_or_v_get;

48707

} else if (strcmp(_str,"-data_details") == 0) {

48708

cmd = _wrap_smNotice_data_details_get;

48709

}

48710

else if (strcmp(_str,"-this") == 0) {

48711

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_p");

48712

return TCL_OK;

48713

}

48714

if (cmd) {

48715

oldarg = objv[2];

48716

objv[2] = obj;

48717

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

48718

objv[2] = oldarg;

48719

return rcode;

48720

} else {

48721

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -generic_type -issuer_lid -toggle_count -issuer_gid -g_or_v -data_details }",-1);

48722

return TCL_ERROR;

48723

}

48724

} else {

48725

Tcl_SetStringObj(tcl_result,"{ -this -generic_type -issuer_lid -toggle_count -issuer_gid -g_or_v -data_details }", -1);

48726

return TCL_ERROR;

48727

}

48728

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

48729

if (objc == 2) {

48730

Tcl_Obj *pDumpObj;

48731

pDumpObj = Tcl_NewStringObj("",-1);

48732

Tcl_IncrRefCount(pDumpObj);

48733

cmd = _wrap_smNotice_generic_type_get;

48734

oldarg = objv[2];

48735

objv[2] = obj;

48736

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48737

objv[2] = oldarg;

48738

Tcl_AppendStringsToObj(pDumpObj, "-generic_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48739

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48740

cmd = _wrap_smNotice_issuer_lid_get;

48741

oldarg = objv[2];

48742

objv[2] = obj;

48743

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48744

objv[2] = oldarg;

48745

Tcl_AppendStringsToObj(pDumpObj, "-issuer_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48746

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48747

cmd = _wrap_smNotice_toggle_count_get;

48748

oldarg = objv[2];

48749

objv[2] = obj;

48750

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48751

objv[2] = oldarg;

48752

Tcl_AppendStringsToObj(pDumpObj, "-toggle_count ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48753

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48754

cmd = _wrap_smNotice_issuer_gid_get;

48755

oldarg = objv[2];

48756

objv[2] = obj;

48757

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48758

objv[2] = oldarg;

48759

Tcl_AppendStringsToObj(pDumpObj, "-issuer_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48760

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48761

cmd = _wrap_smNotice_g_or_v_get;

48762

oldarg = objv[2];

48763

objv[2] = obj;

48764

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48765

objv[2] = oldarg;

48766

Tcl_AppendStringsToObj(pDumpObj, "-g_or_v ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48767

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48768

cmd = _wrap_smNotice_data_details_get;

48769

oldarg = objv[2];

48770

objv[2] = obj;

48771

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

48772

objv[2] = oldarg;

48773

Tcl_AppendStringsToObj(pDumpObj, "-data_details ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

48774

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

48775

48776

Tcl_DecrRefCount(pDumpObj);

48777

return TCL_OK;

48778

} else {

48779

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

48780

return TCL_ERROR;

48781

}

48782

}

48783

if (!cmd) {

48784

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure trapByDr trapByLid }",-1);

48785

return TCL_ERROR;

48786

}

48787

oldarg = objv[1];

48788

objv[1] = obj;

48789

rcode = (*cmd)(clientData,interp,objc,objv);

48790

objv[1] = oldarg;

48791

return rcode;

48792

}

48793

48794

48795

48796

/* objcmd8.swg : Tcl 8.x object creation */

48797

48798

static int TclsmNoticeCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48799

void (*del)(ClientData) = 0;

48800

char *name = 0;

48801

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

48802

smNotice * newObj = 0;

48803

int firstarg = 0;

48804

int thisarg = 0;

48805

int length;

48806

char *_str;

48807

Tcl_Obj *tcl_result;

48808

48809

tcl_result = Tcl_GetObjResult(interp);

48810

if (objc == 1) {

48811

cmd = 0;

48812

} else {

48813

_str = Tcl_GetStringFromObj(objv[1],&length);

48814

if (strcmp(_str,"-this") == 0) thisarg = 2;

48815

else if (strcmp(_str,"-args") == 0) {

48816

firstarg = 1;

48817

cmd = 0;

48818

} else if (objc == 2) {

48819

firstarg = 1;

48820

name = _str;

48821

cmd = 0;

48822

} else if (objc >= 3) {

48823

name = _str;

48824

_str = Tcl_GetStringFromObj(objv[2],&length);

48825

if (strcmp(_str,"-this") == 0) thisarg = 3;

48826

else {

48827

firstarg = 1;

48828

cmd = 0;

48829

}

48830

}

48831

}

48832

if (cmd) {

48833

int result;

48834

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

48835

if (result == TCL_OK) {

48836

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_p");

48837

} else { return result; }

48838

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

48839

del = 0;

48840

} else if (thisarg > 0) {

48841

if (thisarg < objc) {

48842

char *r;

48843

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_p");

48844

if (r) {

48845

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice object.",-1);

48846

return TCL_ERROR;

48847

}

48848

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

48849

Tcl_SetStringObj(tcl_result,name,-1);

48850

} else {

48851

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

48852

return TCL_ERROR;

48853

}

48854

} else {

48855

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

48856

return TCL_ERROR;

48857

}

48858

{

48859

Tcl_CmdInfo dummy;

48860

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

48861

Tcl_CreateObjCommand(interp,name, TclsmNoticeMethodCmd, (ClientData) newObj, del);

48862

return TCL_OK;

48863

} else {

48864

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

48865

return TCL_ERROR;

48866

}

48867

}

48868

}

48869

48870

48871

#define smNotice_g_or_v_generic_get(_swigobj) (&_swigobj->generic)

48872

static int _wrap_smNotice_g_or_v_generic_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48873

48874

smNotice_g_or_v_generic * _result;

48875

smNotice_g_or_v * _arg0;

48876

Tcl_Obj * tcl_result;

48877

char * rettype;

48878

48879

clientData = clientData; objv = objv;

48880

tcl_result = Tcl_GetObjResult(interp);

48881

if ((objc < 2) || (objc > 2)) {

48882

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_get { smNotice_g_or_v * } ",-1);

48883

return TCL_ERROR;

48884

}

48885

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_p"))) {

48886

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_get. Expected _smNotice_g_or_v_p, received ", -1);

48887

Tcl_AppendToObj(tcl_result, rettype, -1);

48888

return TCL_ERROR;

48889

}

48890

{

48891

/* we can check if IBIS was initialized here */

48892

if (!IbisObj.initialized)

48893

{

48894

Tcl_SetStringObj(

48895

Tcl_GetObjResult(interp),

48896

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48897

return TCL_ERROR;

48898

}

48899

48900

if (! IbisObj.port_guid)

48901

{

48902

Tcl_SetStringObj(

48903

Tcl_GetObjResult(interp),

48904

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48905

return TCL_ERROR;

48906

}

48907

48908

ibis_tcl_error = 0;

48909

_result = (smNotice_g_or_v_generic *)smNotice_g_or_v_generic_get(_arg0);

48910

;

48911

if (ibis_tcl_error) {

48912

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48913

return TCL_ERROR;

48914

}

48915

} tcl_result = Tcl_GetObjResult(interp);

48916

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_g_or_v_generic_p");

48917

return TCL_OK;

48918

}

48919

#define smNotice_g_or_v_vend_get(_swigobj) (&_swigobj->vend)

48920

static int _wrap_smNotice_g_or_v_vend_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

48921

48922

smNotice_g_or_v_vend * _result;

48923

smNotice_g_or_v * _arg0;

48924

Tcl_Obj * tcl_result;

48925

char * rettype;

48926

48927

clientData = clientData; objv = objv;

48928

tcl_result = Tcl_GetObjResult(interp);

48929

if ((objc < 2) || (objc > 2)) {

48930

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_get { smNotice_g_or_v * } ",-1);

48931

return TCL_ERROR;

48932

}

48933

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_p"))) {

48934

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_get. Expected _smNotice_g_or_v_p, received ", -1);

48935

Tcl_AppendToObj(tcl_result, rettype, -1);

48936

return TCL_ERROR;

48937

}

48938

{

48939

/* we can check if IBIS was initialized here */

48940

if (!IbisObj.initialized)

48941

{

48942

Tcl_SetStringObj(

48943

Tcl_GetObjResult(interp),

48944

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

48945

return TCL_ERROR;

48946

}

48947

48948

if (! IbisObj.port_guid)

48949

{

48950

Tcl_SetStringObj(

48951

Tcl_GetObjResult(interp),

48952

" ibis was not yet initialized. please use ibis_set_port before.", -1);

48953

return TCL_ERROR;

48954

}

48955

48956

ibis_tcl_error = 0;

48957

_result = (smNotice_g_or_v_vend *)smNotice_g_or_v_vend_get(_arg0);

48958

;

48959

if (ibis_tcl_error) {

48960

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

48961

return TCL_ERROR;

48962

}

48963

} tcl_result = Tcl_GetObjResult(interp);

48964

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_g_or_v_vend_p");

48965

return TCL_OK;

48966

}

48967

/* methodcmd8.swg : Tcl8.x method invocation */

48968

48969

static int TclsmNotice_g_or_vMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

48970

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

48971

char *_str;

48972

int rcode;

48973

Tcl_Obj **objv;

48974

Tcl_Obj *oldarg,*tcl_result,*obj;

48975

int length;

48976

char c;

48977

48978

tcl_result = Tcl_GetObjResult(interp);

48979

objv = (Tcl_Obj **) _objv;

48980

if (objc < 2) {

48981

Tcl_SetStringObj(tcl_result,"smNotice_g_or_v methods : { dump cget configure }",-1);

48982

return TCL_ERROR;

48983

}

48984

obj = Tcl_NewObj();

48985

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_g_or_v_p");

48986

_str = Tcl_GetStringFromObj(objv[1],&length);

48987

c = *_str;

48988

if (0);

48989

48990

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

48991

int i = 2;

48992

cmd = 0;

48993

while (i+1 < objc) {

48994

_str = Tcl_GetStringFromObj(objv[i],&length);

48995

48996

if (cmd) {

48997

oldarg = objv[i];

48998

objv[i] = obj;

48999

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

49000

objv[i] = oldarg;

49001

if (rcode == TCL_ERROR) return rcode;

49002

cmd = 0;

49003

} else {

49004

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { }",-1);

49005

return TCL_ERROR;

49006

}

49007

i+=2;

49008

}

49009

if ((i < objc) || (i == 2)) {

49010

Tcl_SetStringObj(tcl_result,"{ }",-1);

49011

return TCL_ERROR;

49012

}

49013

return TCL_OK;

49014

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

49015

if (objc == 3) {

49016

_str = Tcl_GetStringFromObj(objv[2],&length);

49017

if (0) {}

49018

if (strcmp(_str,"-generic") == 0) {

49019

cmd = _wrap_smNotice_g_or_v_generic_get;

49020

} else if (strcmp(_str,"-vend") == 0) {

49021

cmd = _wrap_smNotice_g_or_v_vend_get;

49022

}

49023

else if (strcmp(_str,"-this") == 0) {

49024

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_g_or_v_p");

49025

return TCL_OK;

49026

}

49027

if (cmd) {

49028

oldarg = objv[2];

49029

objv[2] = obj;

49030

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

49031

objv[2] = oldarg;

49032

return rcode;

49033

} else {

49034

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -generic -vend }",-1);

49035

return TCL_ERROR;

49036

}

49037

} else {

49038

Tcl_SetStringObj(tcl_result,"{ -this -generic -vend }", -1);

49039

return TCL_ERROR;

49040

}

49041

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

49042

if (objc == 2) {

49043

Tcl_Obj *pDumpObj;

49044

pDumpObj = Tcl_NewStringObj("",-1);

49045

Tcl_IncrRefCount(pDumpObj);

49046

cmd = _wrap_smNotice_g_or_v_generic_get;

49047

oldarg = objv[2];

49048

objv[2] = obj;

49049

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49050

objv[2] = oldarg;

49051

Tcl_AppendStringsToObj(pDumpObj, "-generic ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49052

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49053

cmd = _wrap_smNotice_g_or_v_vend_get;

49054

oldarg = objv[2];

49055

objv[2] = obj;

49056

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49057

objv[2] = oldarg;

49058

Tcl_AppendStringsToObj(pDumpObj, "-vend ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49059

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49060

49061

Tcl_DecrRefCount(pDumpObj);

49062

return TCL_OK;

49063

} else {

49064

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

49065

return TCL_ERROR;

49066

}

49067

}

49068

if (!cmd) {

49069

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

49070

return TCL_ERROR;

49071

}

49072

oldarg = objv[1];

49073

objv[1] = obj;

49074

rcode = (*cmd)(clientData,interp,objc,objv);

49075

objv[1] = oldarg;

49076

return rcode;

49077

}

49078

49079

49080

49081

/* objcmd8.swg : Tcl 8.x object creation */

49082

49083

static int TclsmNotice_g_or_vCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49084

void (*del)(ClientData) = 0;

49085

char *name = 0;

49086

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

49087

smNotice_g_or_v * newObj = 0;

49088

int firstarg = 0;

49089

int thisarg = 0;

49090

int length;

49091

char *_str;

49092

Tcl_Obj *tcl_result;

49093

49094

tcl_result = Tcl_GetObjResult(interp);

49095

if (objc == 1) {

49096

cmd = 0;

49097

} else {

49098

_str = Tcl_GetStringFromObj(objv[1],&length);

49099

if (strcmp(_str,"-this") == 0) thisarg = 2;

49100

else if (strcmp(_str,"-args") == 0) {

49101

firstarg = 1;

49102

cmd = 0;

49103

} else if (objc == 2) {

49104

firstarg = 1;

49105

name = _str;

49106

cmd = 0;

49107

} else if (objc >= 3) {

49108

name = _str;

49109

_str = Tcl_GetStringFromObj(objv[2],&length);

49110

if (strcmp(_str,"-this") == 0) thisarg = 3;

49111

else {

49112

firstarg = 1;

49113

cmd = 0;

49114

}

49115

}

49116

}

49117

if (cmd) {

49118

int result;

49119

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

49120

if (result == TCL_OK) {

49121

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_g_or_v_p");

49122

} else { return result; }

49123

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

49124

del = 0;

49125

} else if (thisarg > 0) {

49126

if (thisarg < objc) {

49127

char *r;

49128

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_g_or_v_p");

49129

if (r) {

49130

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_g_or_v object.",-1);

49131

return TCL_ERROR;

49132

}

49133

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

49134

Tcl_SetStringObj(tcl_result,name,-1);

49135

} else {

49136

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

49137

return TCL_ERROR;

49138

}

49139

} else {

49140

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

49141

return TCL_ERROR;

49142

}

49143

{

49144

Tcl_CmdInfo dummy;

49145

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

49146

Tcl_CreateObjCommand(interp,name, TclsmNotice_g_or_vMethodCmd, (ClientData) newObj, del);

49147

return TCL_OK;

49148

} else {

49149

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

49150

return TCL_ERROR;

49151

}

49152

}

49153

}

49154

49155

49156

#define smNotice_data_details_raw_data_get(_swigobj) (&_swigobj->raw_data)

49157

static int _wrap_smNotice_data_details_raw_data_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49158

49159

smNotice_data_details_raw_data * _result;

49160

smNotice_data_details * _arg0;

49161

Tcl_Obj * tcl_result;

49162

char * rettype;

49163

49164

clientData = clientData; objv = objv;

49165

tcl_result = Tcl_GetObjResult(interp);

49166

if ((objc < 2) || (objc > 2)) {

49167

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_raw_data_get { smNotice_data_details * } ",-1);

49168

return TCL_ERROR;

49169

}

49170

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49171

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_raw_data_get. Expected _smNotice_data_details_p, received ", -1);

49172

Tcl_AppendToObj(tcl_result, rettype, -1);

49173

return TCL_ERROR;

49174

}

49175

{

49176

/* we can check if IBIS was initialized here */

49177

if (!IbisObj.initialized)

49178

{

49179

Tcl_SetStringObj(

49180

Tcl_GetObjResult(interp),

49181

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49182

return TCL_ERROR;

49183

}

49184

49185

if (! IbisObj.port_guid)

49186

{

49187

Tcl_SetStringObj(

49188

Tcl_GetObjResult(interp),

49189

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49190

return TCL_ERROR;

49191

}

49192

49193

ibis_tcl_error = 0;

49194

_result = (smNotice_data_details_raw_data *)smNotice_data_details_raw_data_get(_arg0);

49195

;

49196

if (ibis_tcl_error) {

49197

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49198

return TCL_ERROR;

49199

}

49200

} tcl_result = Tcl_GetObjResult(interp);

49201

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_raw_data_p");

49202

return TCL_OK;

49203

}

49204

#define smNotice_data_details_ntc_64_67_get(_swigobj) (&_swigobj->ntc_64_67)

49205

static int _wrap_smNotice_data_details_ntc_64_67_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49206

49207

smNotice_data_details_ntc_64_67 * _result;

49208

smNotice_data_details * _arg0;

49209

Tcl_Obj * tcl_result;

49210

char * rettype;

49211

49212

clientData = clientData; objv = objv;

49213

tcl_result = Tcl_GetObjResult(interp);

49214

if ((objc < 2) || (objc > 2)) {

49215

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_64_67_get { smNotice_data_details * } ",-1);

49216

return TCL_ERROR;

49217

}

49218

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49219

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_64_67_get. Expected _smNotice_data_details_p, received ", -1);

49220

Tcl_AppendToObj(tcl_result, rettype, -1);

49221

return TCL_ERROR;

49222

}

49223

{

49224

/* we can check if IBIS was initialized here */

49225

if (!IbisObj.initialized)

49226

{

49227

Tcl_SetStringObj(

49228

Tcl_GetObjResult(interp),

49229

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49230

return TCL_ERROR;

49231

}

49232

49233

if (! IbisObj.port_guid)

49234

{

49235

Tcl_SetStringObj(

49236

Tcl_GetObjResult(interp),

49237

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49238

return TCL_ERROR;

49239

}

49240

49241

ibis_tcl_error = 0;

49242

_result = (smNotice_data_details_ntc_64_67 *)smNotice_data_details_ntc_64_67_get(_arg0);

49243

;

49244

if (ibis_tcl_error) {

49245

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49246

return TCL_ERROR;

49247

}

49248

} tcl_result = Tcl_GetObjResult(interp);

49249

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_64_67_p");

49250

return TCL_OK;

49251

}

49252

#define smNotice_data_details_ntc_128_get(_swigobj) (&_swigobj->ntc_128)

49253

static int _wrap_smNotice_data_details_ntc_128_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49254

49255

smNotice_data_details_ntc_128 * _result;

49256

smNotice_data_details * _arg0;

49257

Tcl_Obj * tcl_result;

49258

char * rettype;

49259

49260

clientData = clientData; objv = objv;

49261

tcl_result = Tcl_GetObjResult(interp);

49262

if ((objc < 2) || (objc > 2)) {

49263

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_128_get { smNotice_data_details * } ",-1);

49264

return TCL_ERROR;

49265

}

49266

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49267

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_128_get. Expected _smNotice_data_details_p, received ", -1);

49268

Tcl_AppendToObj(tcl_result, rettype, -1);

49269

return TCL_ERROR;

49270

}

49271

{

49272

/* we can check if IBIS was initialized here */

49273

if (!IbisObj.initialized)

49274

{

49275

Tcl_SetStringObj(

49276

Tcl_GetObjResult(interp),

49277

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49278

return TCL_ERROR;

49279

}

49280

49281

if (! IbisObj.port_guid)

49282

{

49283

Tcl_SetStringObj(

49284

Tcl_GetObjResult(interp),

49285

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49286

return TCL_ERROR;

49287

}

49288

49289

ibis_tcl_error = 0;

49290

_result = (smNotice_data_details_ntc_128 *)smNotice_data_details_ntc_128_get(_arg0);

49291

;

49292

if (ibis_tcl_error) {

49293

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49294

return TCL_ERROR;

49295

}

49296

} tcl_result = Tcl_GetObjResult(interp);

49297

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_128_p");

49298

return TCL_OK;

49299

}

49300

#define smNotice_data_details_ntc_129_131_get(_swigobj) (&_swigobj->ntc_129_131)

49301

static int _wrap_smNotice_data_details_ntc_129_131_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49302

49303

smNotice_data_details_ntc_129_131 * _result;

49304

smNotice_data_details * _arg0;

49305

Tcl_Obj * tcl_result;

49306

char * rettype;

49307

49308

clientData = clientData; objv = objv;

49309

tcl_result = Tcl_GetObjResult(interp);

49310

if ((objc < 2) || (objc > 2)) {

49311

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_get { smNotice_data_details * } ",-1);

49312

return TCL_ERROR;

49313

}

49314

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49315

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_get. Expected _smNotice_data_details_p, received ", -1);

49316

Tcl_AppendToObj(tcl_result, rettype, -1);

49317

return TCL_ERROR;

49318

}

49319

{

49320

/* we can check if IBIS was initialized here */

49321

if (!IbisObj.initialized)

49322

{

49323

Tcl_SetStringObj(

49324

Tcl_GetObjResult(interp),

49325

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49326

return TCL_ERROR;

49327

}

49328

49329

if (! IbisObj.port_guid)

49330

{

49331

Tcl_SetStringObj(

49332

Tcl_GetObjResult(interp),

49333

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49334

return TCL_ERROR;

49335

}

49336

49337

ibis_tcl_error = 0;

49338

_result = (smNotice_data_details_ntc_129_131 *)smNotice_data_details_ntc_129_131_get(_arg0);

49339

;

49340

if (ibis_tcl_error) {

49341

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49342

return TCL_ERROR;

49343

}

49344

} tcl_result = Tcl_GetObjResult(interp);

49345

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_129_131_p");

49346

return TCL_OK;

49347

}

49348

#define smNotice_data_details_ntc_144_get(_swigobj) (&_swigobj->ntc_144)

49349

static int _wrap_smNotice_data_details_ntc_144_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49350

49351

smNotice_data_details_ntc_144 * _result;

49352

smNotice_data_details * _arg0;

49353

Tcl_Obj * tcl_result;

49354

char * rettype;

49355

49356

clientData = clientData; objv = objv;

49357

tcl_result = Tcl_GetObjResult(interp);

49358

if ((objc < 2) || (objc > 2)) {

49359

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_get { smNotice_data_details * } ",-1);

49360

return TCL_ERROR;

49361

}

49362

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49363

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_get. Expected _smNotice_data_details_p, received ", -1);

49364

Tcl_AppendToObj(tcl_result, rettype, -1);

49365

return TCL_ERROR;

49366

}

49367

{

49368

/* we can check if IBIS was initialized here */

49369

if (!IbisObj.initialized)

49370

{

49371

Tcl_SetStringObj(

49372

Tcl_GetObjResult(interp),

49373

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49374

return TCL_ERROR;

49375

}

49376

49377

if (! IbisObj.port_guid)

49378

{

49379

Tcl_SetStringObj(

49380

Tcl_GetObjResult(interp),

49381

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49382

return TCL_ERROR;

49383

}

49384

49385

ibis_tcl_error = 0;

49386

_result = (smNotice_data_details_ntc_144 *)smNotice_data_details_ntc_144_get(_arg0);

49387

;

49388

if (ibis_tcl_error) {

49389

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49390

return TCL_ERROR;

49391

}

49392

} tcl_result = Tcl_GetObjResult(interp);

49393

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_144_p");

49394

return TCL_OK;

49395

}

49396

#define smNotice_data_details_ntc_145_get(_swigobj) (&_swigobj->ntc_145)

49397

static int _wrap_smNotice_data_details_ntc_145_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49398

49399

smNotice_data_details_ntc_145 * _result;

49400

smNotice_data_details * _arg0;

49401

Tcl_Obj * tcl_result;

49402

char * rettype;

49403

49404

clientData = clientData; objv = objv;

49405

tcl_result = Tcl_GetObjResult(interp);

49406

if ((objc < 2) || (objc > 2)) {

49407

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_get { smNotice_data_details * } ",-1);

49408

return TCL_ERROR;

49409

}

49410

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49411

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_get. Expected _smNotice_data_details_p, received ", -1);

49412

Tcl_AppendToObj(tcl_result, rettype, -1);

49413

return TCL_ERROR;

49414

}

49415

{

49416

/* we can check if IBIS was initialized here */

49417

if (!IbisObj.initialized)

49418

{

49419

Tcl_SetStringObj(

49420

Tcl_GetObjResult(interp),

49421

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49422

return TCL_ERROR;

49423

}

49424

49425

if (! IbisObj.port_guid)

49426

{

49427

Tcl_SetStringObj(

49428

Tcl_GetObjResult(interp),

49429

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49430

return TCL_ERROR;

49431

}

49432

49433

ibis_tcl_error = 0;

49434

_result = (smNotice_data_details_ntc_145 *)smNotice_data_details_ntc_145_get(_arg0);

49435

;

49436

if (ibis_tcl_error) {

49437

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49438

return TCL_ERROR;

49439

}

49440

} tcl_result = Tcl_GetObjResult(interp);

49441

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_145_p");

49442

return TCL_OK;

49443

}

49444

#define smNotice_data_details_ntc_256_get(_swigobj) (&_swigobj->ntc_256)

49445

static int _wrap_smNotice_data_details_ntc_256_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49446

49447

smNotice_data_details_ntc_256 * _result;

49448

smNotice_data_details * _arg0;

49449

Tcl_Obj * tcl_result;

49450

char * rettype;

49451

49452

clientData = clientData; objv = objv;

49453

tcl_result = Tcl_GetObjResult(interp);

49454

if ((objc < 2) || (objc > 2)) {

49455

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_get { smNotice_data_details * } ",-1);

49456

return TCL_ERROR;

49457

}

49458

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49459

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_get. Expected _smNotice_data_details_p, received ", -1);

49460

Tcl_AppendToObj(tcl_result, rettype, -1);

49461

return TCL_ERROR;

49462

}

49463

{

49464

/* we can check if IBIS was initialized here */

49465

if (!IbisObj.initialized)

49466

{

49467

Tcl_SetStringObj(

49468

Tcl_GetObjResult(interp),

49469

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49470

return TCL_ERROR;

49471

}

49472

49473

if (! IbisObj.port_guid)

49474

{

49475

Tcl_SetStringObj(

49476

Tcl_GetObjResult(interp),

49477

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49478

return TCL_ERROR;

49479

}

49480

49481

ibis_tcl_error = 0;

49482

_result = (smNotice_data_details_ntc_256 *)smNotice_data_details_ntc_256_get(_arg0);

49483

;

49484

if (ibis_tcl_error) {

49485

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49486

return TCL_ERROR;

49487

}

49488

} tcl_result = Tcl_GetObjResult(interp);

49489

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_256_p");

49490

return TCL_OK;

49491

}

49492

#define smNotice_data_details_ntc_257_258_get(_swigobj) (&_swigobj->ntc_257_258)

49493

static int _wrap_smNotice_data_details_ntc_257_258_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49494

49495

smNotice_data_details_ntc_257_258 * _result;

49496

smNotice_data_details * _arg0;

49497

Tcl_Obj * tcl_result;

49498

char * rettype;

49499

49500

clientData = clientData; objv = objv;

49501

tcl_result = Tcl_GetObjResult(interp);

49502

if ((objc < 2) || (objc > 2)) {

49503

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_get { smNotice_data_details * } ",-1);

49504

return TCL_ERROR;

49505

}

49506

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49507

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_get. Expected _smNotice_data_details_p, received ", -1);

49508

Tcl_AppendToObj(tcl_result, rettype, -1);

49509

return TCL_ERROR;

49510

}

49511

{

49512

/* we can check if IBIS was initialized here */

49513

if (!IbisObj.initialized)

49514

{

49515

Tcl_SetStringObj(

49516

Tcl_GetObjResult(interp),

49517

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49518

return TCL_ERROR;

49519

}

49520

49521

if (! IbisObj.port_guid)

49522

{

49523

Tcl_SetStringObj(

49524

Tcl_GetObjResult(interp),

49525

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49526

return TCL_ERROR;

49527

}

49528

49529

ibis_tcl_error = 0;

49530

_result = (smNotice_data_details_ntc_257_258 *)smNotice_data_details_ntc_257_258_get(_arg0);

49531

;

49532

if (ibis_tcl_error) {

49533

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49534

return TCL_ERROR;

49535

}

49536

} tcl_result = Tcl_GetObjResult(interp);

49537

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_257_258_p");

49538

return TCL_OK;

49539

}

49540

#define smNotice_data_details_ntc_259_get(_swigobj) (&_swigobj->ntc_259)

49541

static int _wrap_smNotice_data_details_ntc_259_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49542

49543

smNotice_data_details_ntc_259 * _result;

49544

smNotice_data_details * _arg0;

49545

Tcl_Obj * tcl_result;

49546

char * rettype;

49547

49548

clientData = clientData; objv = objv;

49549

tcl_result = Tcl_GetObjResult(interp);

49550

if ((objc < 2) || (objc > 2)) {

49551

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_get { smNotice_data_details * } ",-1);

49552

return TCL_ERROR;

49553

}

49554

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_p"))) {

49555

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_get. Expected _smNotice_data_details_p, received ", -1);

49556

Tcl_AppendToObj(tcl_result, rettype, -1);

49557

return TCL_ERROR;

49558

}

49559

{

49560

/* we can check if IBIS was initialized here */

49561

if (!IbisObj.initialized)

49562

{

49563

Tcl_SetStringObj(

49564

Tcl_GetObjResult(interp),

49565

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49566

return TCL_ERROR;

49567

}

49568

49569

if (! IbisObj.port_guid)

49570

{

49571

Tcl_SetStringObj(

49572

Tcl_GetObjResult(interp),

49573

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49574

return TCL_ERROR;

49575

}

49576

49577

ibis_tcl_error = 0;

49578

_result = (smNotice_data_details_ntc_259 *)smNotice_data_details_ntc_259_get(_arg0);

49579

;

49580

if (ibis_tcl_error) {

49581

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49582

return TCL_ERROR;

49583

}

49584

} tcl_result = Tcl_GetObjResult(interp);

49585

SWIG_SetPointerObj(tcl_result,(void *) _result,"_smNotice_data_details_ntc_259_p");

49586

return TCL_OK;

49587

}

49588

/* methodcmd8.swg : Tcl8.x method invocation */

49589

49590

static int TclsmNotice_data_detailsMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

49591

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

49592

char *_str;

49593

int rcode;

49594

Tcl_Obj **objv;

49595

Tcl_Obj *oldarg,*tcl_result,*obj;

49596

int length;

49597

char c;

49598

49599

tcl_result = Tcl_GetObjResult(interp);

49600

objv = (Tcl_Obj **) _objv;

49601

if (objc < 2) {

49602

Tcl_SetStringObj(tcl_result,"smNotice_data_details methods : { dump cget configure }",-1);

49603

return TCL_ERROR;

49604

}

49605

obj = Tcl_NewObj();

49606

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_p");

49607

_str = Tcl_GetStringFromObj(objv[1],&length);

49608

c = *_str;

49609

if (0);

49610

49611

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

49612

int i = 2;

49613

cmd = 0;

49614

while (i+1 < objc) {

49615

_str = Tcl_GetStringFromObj(objv[i],&length);

49616

49617

if (cmd) {

49618

oldarg = objv[i];

49619

objv[i] = obj;

49620

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

49621

objv[i] = oldarg;

49622

if (rcode == TCL_ERROR) return rcode;

49623

cmd = 0;

49624

} else {

49625

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { }",-1);

49626

return TCL_ERROR;

49627

}

49628

i+=2;

49629

}

49630

if ((i < objc) || (i == 2)) {

49631

Tcl_SetStringObj(tcl_result,"{ }",-1);

49632

return TCL_ERROR;

49633

}

49634

return TCL_OK;

49635

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

49636

if (objc == 3) {

49637

_str = Tcl_GetStringFromObj(objv[2],&length);

49638

if (0) {}

49639

if (strcmp(_str,"-raw_data") == 0) {

49640

cmd = _wrap_smNotice_data_details_raw_data_get;

49641

} else if (strcmp(_str,"-ntc_64_67") == 0) {

49642

cmd = _wrap_smNotice_data_details_ntc_64_67_get;

49643

} else if (strcmp(_str,"-ntc_128") == 0) {

49644

cmd = _wrap_smNotice_data_details_ntc_128_get;

49645

} else if (strcmp(_str,"-ntc_129_131") == 0) {

49646

cmd = _wrap_smNotice_data_details_ntc_129_131_get;

49647

} else if (strcmp(_str,"-ntc_144") == 0) {

49648

cmd = _wrap_smNotice_data_details_ntc_144_get;

49649

} else if (strcmp(_str,"-ntc_145") == 0) {

49650

cmd = _wrap_smNotice_data_details_ntc_145_get;

49651

} else if (strcmp(_str,"-ntc_256") == 0) {

49652

cmd = _wrap_smNotice_data_details_ntc_256_get;

49653

} else if (strcmp(_str,"-ntc_257_258") == 0) {

49654

cmd = _wrap_smNotice_data_details_ntc_257_258_get;

49655

} else if (strcmp(_str,"-ntc_259") == 0) {

49656

cmd = _wrap_smNotice_data_details_ntc_259_get;

49657

}

49658

else if (strcmp(_str,"-this") == 0) {

49659

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_p");

49660

return TCL_OK;

49661

}

49662

if (cmd) {

49663

oldarg = objv[2];

49664

objv[2] = obj;

49665

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

49666

objv[2] = oldarg;

49667

return rcode;

49668

} else {

49669

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -raw_data -ntc_64_67 -ntc_128 -ntc_129_131 -ntc_144 -ntc_145 -ntc_256 -ntc_257_258 -ntc_259 }",-1);

49670

return TCL_ERROR;

49671

}

49672

} else {

49673

Tcl_SetStringObj(tcl_result,"{ -this -raw_data -ntc_64_67 -ntc_128 -ntc_129_131 -ntc_144 -ntc_145 -ntc_256 -ntc_257_258 -ntc_259 }", -1);

49674

return TCL_ERROR;

49675

}

49676

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

49677

if (objc == 2) {

49678

Tcl_Obj *pDumpObj;

49679

pDumpObj = Tcl_NewStringObj("",-1);

49680

Tcl_IncrRefCount(pDumpObj);

49681

cmd = _wrap_smNotice_data_details_raw_data_get;

49682

oldarg = objv[2];

49683

objv[2] = obj;

49684

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49685

objv[2] = oldarg;

49686

Tcl_AppendStringsToObj(pDumpObj, "-raw_data ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49687

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49688

cmd = _wrap_smNotice_data_details_ntc_64_67_get;

49689

oldarg = objv[2];

49690

objv[2] = obj;

49691

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49692

objv[2] = oldarg;

49693

Tcl_AppendStringsToObj(pDumpObj, "-ntc_64_67 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49694

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49695

cmd = _wrap_smNotice_data_details_ntc_128_get;

49696

oldarg = objv[2];

49697

objv[2] = obj;

49698

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49699

objv[2] = oldarg;

49700

Tcl_AppendStringsToObj(pDumpObj, "-ntc_128 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49701

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49702

cmd = _wrap_smNotice_data_details_ntc_129_131_get;

49703

oldarg = objv[2];

49704

objv[2] = obj;

49705

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49706

objv[2] = oldarg;

49707

Tcl_AppendStringsToObj(pDumpObj, "-ntc_129_131 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49708

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49709

cmd = _wrap_smNotice_data_details_ntc_144_get;

49710

oldarg = objv[2];

49711

objv[2] = obj;

49712

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49713

objv[2] = oldarg;

49714

Tcl_AppendStringsToObj(pDumpObj, "-ntc_144 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49715

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49716

cmd = _wrap_smNotice_data_details_ntc_145_get;

49717

oldarg = objv[2];

49718

objv[2] = obj;

49719

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49720

objv[2] = oldarg;

49721

Tcl_AppendStringsToObj(pDumpObj, "-ntc_145 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49722

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49723

cmd = _wrap_smNotice_data_details_ntc_256_get;

49724

oldarg = objv[2];

49725

objv[2] = obj;

49726

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49727

objv[2] = oldarg;

49728

Tcl_AppendStringsToObj(pDumpObj, "-ntc_256 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49729

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49730

cmd = _wrap_smNotice_data_details_ntc_257_258_get;

49731

oldarg = objv[2];

49732

objv[2] = obj;

49733

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49734

objv[2] = oldarg;

49735

Tcl_AppendStringsToObj(pDumpObj, "-ntc_257_258 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49736

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49737

cmd = _wrap_smNotice_data_details_ntc_259_get;

49738

oldarg = objv[2];

49739

objv[2] = obj;

49740

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

49741

objv[2] = oldarg;

49742

Tcl_AppendStringsToObj(pDumpObj, "-ntc_259 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

49743

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

49744

49745

Tcl_DecrRefCount(pDumpObj);

49746

return TCL_OK;

49747

} else {

49748

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

49749

return TCL_ERROR;

49750

}

49751

}

49752

if (!cmd) {

49753

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

49754

return TCL_ERROR;

49755

}

49756

oldarg = objv[1];

49757

objv[1] = obj;

49758

rcode = (*cmd)(clientData,interp,objc,objv);

49759

objv[1] = oldarg;

49760

return rcode;

49761

}

49762

49763

49764

49765

/* objcmd8.swg : Tcl 8.x object creation */

49766

49767

static int TclsmNotice_data_detailsCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49768

void (*del)(ClientData) = 0;

49769

char *name = 0;

49770

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

49771

smNotice_data_details * newObj = 0;

49772

int firstarg = 0;

49773

int thisarg = 0;

49774

int length;

49775

char *_str;

49776

Tcl_Obj *tcl_result;

49777

49778

tcl_result = Tcl_GetObjResult(interp);

49779

if (objc == 1) {

49780

cmd = 0;

49781

} else {

49782

_str = Tcl_GetStringFromObj(objv[1],&length);

49783

if (strcmp(_str,"-this") == 0) thisarg = 2;

49784

else if (strcmp(_str,"-args") == 0) {

49785

firstarg = 1;

49786

cmd = 0;

49787

} else if (objc == 2) {

49788

firstarg = 1;

49789

name = _str;

49790

cmd = 0;

49791

} else if (objc >= 3) {

49792

name = _str;

49793

_str = Tcl_GetStringFromObj(objv[2],&length);

49794

if (strcmp(_str,"-this") == 0) thisarg = 3;

49795

else {

49796

firstarg = 1;

49797

cmd = 0;

49798

}

49799

}

49800

}

49801

if (cmd) {

49802

int result;

49803

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

49804

if (result == TCL_OK) {

49805

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_p");

49806

} else { return result; }

49807

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

49808

del = 0;

49809

} else if (thisarg > 0) {

49810

if (thisarg < objc) {

49811

char *r;

49812

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_p");

49813

if (r) {

49814

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details object.",-1);

49815

return TCL_ERROR;

49816

}

49817

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

49818

Tcl_SetStringObj(tcl_result,name,-1);

49819

} else {

49820

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

49821

return TCL_ERROR;

49822

}

49823

} else {

49824

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

49825

return TCL_ERROR;

49826

}

49827

{

49828

Tcl_CmdInfo dummy;

49829

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

49830

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_detailsMethodCmd, (ClientData) newObj, del);

49831

return TCL_OK;

49832

} else {

49833

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

49834

return TCL_ERROR;

49835

}

49836

}

49837

}

49838

49839

49840

#define smNotice_g_or_v_generic_prod_type_msb_set(_swigobj,_swigval) (_swigobj->prod_type_msb = *(_swigval),_swigval)

49841

static int _wrap_smNotice_g_or_v_generic_prod_type_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49842

49843

uint8_t * _result;

49844

smNotice_g_or_v_generic * _arg0;

49845

uint8_t * _arg1;

49846

Tcl_Obj * tcl_result;

49847

char * rettype;

49848

uint8_t temp;

49849

49850

clientData = clientData; objv = objv;

49851

tcl_result = Tcl_GetObjResult(interp);

49852

if ((objc < 3) || (objc > 3)) {

49853

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_prod_type_msb_set { smNotice_g_or_v_generic * } { uint8_t * } ",-1);

49854

return TCL_ERROR;

49855

}

49856

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

49857

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_prod_type_msb_set. Expected _smNotice_g_or_v_generic_p, received ", -1);

49858

Tcl_AppendToObj(tcl_result, rettype, -1);

49859

return TCL_ERROR;

49860

}

49861

{

49862

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

49863

_arg1 = &temp;

49864

}

49865

{

49866

/* we can check if IBIS was initialized here */

49867

if (!IbisObj.initialized)

49868

{

49869

Tcl_SetStringObj(

49870

Tcl_GetObjResult(interp),

49871

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49872

return TCL_ERROR;

49873

}

49874

49875

if (! IbisObj.port_guid)

49876

{

49877

Tcl_SetStringObj(

49878

Tcl_GetObjResult(interp),

49879

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49880

return TCL_ERROR;

49881

}

49882

49883

ibis_tcl_error = 0;

49884

_result = (uint8_t *)smNotice_g_or_v_generic_prod_type_msb_set(_arg0,_arg1);

49885

;

49886

if (ibis_tcl_error) {

49887

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49888

return TCL_ERROR;

49889

}

49890

} tcl_result = Tcl_GetObjResult(interp);

49891

{

49892

char buff[20];

49893

sprintf(buff, "%u", *_result);

49894

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

49895

}

49896

return TCL_OK;

49897

}

49898

#define smNotice_g_or_v_generic_prod_type_msb_get(_swigobj) (&_swigobj->prod_type_msb)

49899

static int _wrap_smNotice_g_or_v_generic_prod_type_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49900

49901

uint8_t * _result;

49902

smNotice_g_or_v_generic * _arg0;

49903

Tcl_Obj * tcl_result;

49904

char * rettype;

49905

49906

clientData = clientData; objv = objv;

49907

tcl_result = Tcl_GetObjResult(interp);

49908

if ((objc < 2) || (objc > 2)) {

49909

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_prod_type_msb_get { smNotice_g_or_v_generic * } ",-1);

49910

return TCL_ERROR;

49911

}

49912

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

49913

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_prod_type_msb_get. Expected _smNotice_g_or_v_generic_p, received ", -1);

49914

Tcl_AppendToObj(tcl_result, rettype, -1);

49915

return TCL_ERROR;

49916

}

49917

{

49918

/* we can check if IBIS was initialized here */

49919

if (!IbisObj.initialized)

49920

{

49921

Tcl_SetStringObj(

49922

Tcl_GetObjResult(interp),

49923

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49924

return TCL_ERROR;

49925

}

49926

49927

if (! IbisObj.port_guid)

49928

{

49929

Tcl_SetStringObj(

49930

Tcl_GetObjResult(interp),

49931

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49932

return TCL_ERROR;

49933

}

49934

49935

ibis_tcl_error = 0;

49936

_result = (uint8_t *)smNotice_g_or_v_generic_prod_type_msb_get(_arg0);

49937

;

49938

if (ibis_tcl_error) {

49939

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49940

return TCL_ERROR;

49941

}

49942

} tcl_result = Tcl_GetObjResult(interp);

49943

{

49944

char buff[20];

49945

sprintf(buff, "%u", *_result);

49946

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

49947

}

49948

return TCL_OK;

49949

}

49950

#define smNotice_g_or_v_generic_prod_type_lsb_set(_swigobj,_swigval) (_swigobj->prod_type_lsb = *(_swigval),_swigval)

49951

static int _wrap_smNotice_g_or_v_generic_prod_type_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

49952

49953

ib_net16_t * _result;

49954

smNotice_g_or_v_generic * _arg0;

49955

ib_net16_t * _arg1;

49956

Tcl_Obj * tcl_result;

49957

char * rettype;

49958

ib_net16_t temp;

49959

49960

clientData = clientData; objv = objv;

49961

tcl_result = Tcl_GetObjResult(interp);

49962

if ((objc < 3) || (objc > 3)) {

49963

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_prod_type_lsb_set { smNotice_g_or_v_generic * } { ib_net16_t * } ",-1);

49964

return TCL_ERROR;

49965

}

49966

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

49967

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_prod_type_lsb_set. Expected _smNotice_g_or_v_generic_p, received ", -1);

49968

Tcl_AppendToObj(tcl_result, rettype, -1);

49969

return TCL_ERROR;

49970

}

49971

{

49972

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

49973

_arg1 = &temp;

49974

}

49975

{

49976

/* we can check if IBIS was initialized here */

49977

if (!IbisObj.initialized)

49978

{

49979

Tcl_SetStringObj(

49980

Tcl_GetObjResult(interp),

49981

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

49982

return TCL_ERROR;

49983

}

49984

49985

if (! IbisObj.port_guid)

49986

{

49987

Tcl_SetStringObj(

49988

Tcl_GetObjResult(interp),

49989

" ibis was not yet initialized. please use ibis_set_port before.", -1);

49990

return TCL_ERROR;

49991

}

49992

49993

ibis_tcl_error = 0;

49994

_result = (ib_net16_t *)smNotice_g_or_v_generic_prod_type_lsb_set(_arg0,_arg1);

49995

;

49996

if (ibis_tcl_error) {

49997

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

49998

return TCL_ERROR;

49999

}

50000

} tcl_result = Tcl_GetObjResult(interp);

50001

{

50002

char buff[20];

50003

sprintf(buff, "%u", cl_hton16(*_result));

50004

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50005

}

50006

return TCL_OK;

50007

}

50008

#define smNotice_g_or_v_generic_prod_type_lsb_get(_swigobj) (&_swigobj->prod_type_lsb)

50009

static int _wrap_smNotice_g_or_v_generic_prod_type_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50010

50011

ib_net16_t * _result;

50012

smNotice_g_or_v_generic * _arg0;

50013

Tcl_Obj * tcl_result;

50014

char * rettype;

50015

50016

clientData = clientData; objv = objv;

50017

tcl_result = Tcl_GetObjResult(interp);

50018

if ((objc < 2) || (objc > 2)) {

50019

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_prod_type_lsb_get { smNotice_g_or_v_generic * } ",-1);

50020

return TCL_ERROR;

50021

}

50022

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

50023

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_prod_type_lsb_get. Expected _smNotice_g_or_v_generic_p, received ", -1);

50024

Tcl_AppendToObj(tcl_result, rettype, -1);

50025

return TCL_ERROR;

50026

}

50027

{

50028

/* we can check if IBIS was initialized here */

50029

if (!IbisObj.initialized)

50030

{

50031

Tcl_SetStringObj(

50032

Tcl_GetObjResult(interp),

50033

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50034

return TCL_ERROR;

50035

}

50036

50037

if (! IbisObj.port_guid)

50038

{

50039

Tcl_SetStringObj(

50040

Tcl_GetObjResult(interp),

50041

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50042

return TCL_ERROR;

50043

}

50044

50045

ibis_tcl_error = 0;

50046

_result = (ib_net16_t *)smNotice_g_or_v_generic_prod_type_lsb_get(_arg0);

50047

;

50048

if (ibis_tcl_error) {

50049

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50050

return TCL_ERROR;

50051

}

50052

} tcl_result = Tcl_GetObjResult(interp);

50053

{

50054

char buff[20];

50055

sprintf(buff, "%u", cl_hton16(*_result));

50056

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50057

}

50058

return TCL_OK;

50059

}

50060

#define smNotice_g_or_v_generic_trap_num_set(_swigobj,_swigval) (_swigobj->trap_num = *(_swigval),_swigval)

50061

static int _wrap_smNotice_g_or_v_generic_trap_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50062

50063

ib_net16_t * _result;

50064

smNotice_g_or_v_generic * _arg0;

50065

ib_net16_t * _arg1;

50066

Tcl_Obj * tcl_result;

50067

char * rettype;

50068

ib_net16_t temp;

50069

50070

clientData = clientData; objv = objv;

50071

tcl_result = Tcl_GetObjResult(interp);

50072

if ((objc < 3) || (objc > 3)) {

50073

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_trap_num_set { smNotice_g_or_v_generic * } { ib_net16_t * } ",-1);

50074

return TCL_ERROR;

50075

}

50076

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

50077

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_trap_num_set. Expected _smNotice_g_or_v_generic_p, received ", -1);

50078

Tcl_AppendToObj(tcl_result, rettype, -1);

50079

return TCL_ERROR;

50080

}

50081

{

50082

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

50083

_arg1 = &temp;

50084

}

50085

{

50086

/* we can check if IBIS was initialized here */

50087

if (!IbisObj.initialized)

50088

{

50089

Tcl_SetStringObj(

50090

Tcl_GetObjResult(interp),

50091

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50092

return TCL_ERROR;

50093

}

50094

50095

if (! IbisObj.port_guid)

50096

{

50097

Tcl_SetStringObj(

50098

Tcl_GetObjResult(interp),

50099

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50100

return TCL_ERROR;

50101

}

50102

50103

ibis_tcl_error = 0;

50104

_result = (ib_net16_t *)smNotice_g_or_v_generic_trap_num_set(_arg0,_arg1);

50105

;

50106

if (ibis_tcl_error) {

50107

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50108

return TCL_ERROR;

50109

}

50110

} tcl_result = Tcl_GetObjResult(interp);

50111

{

50112

char buff[20];

50113

sprintf(buff, "%u", cl_hton16(*_result));

50114

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50115

}

50116

return TCL_OK;

50117

}

50118

#define smNotice_g_or_v_generic_trap_num_get(_swigobj) (&_swigobj->trap_num)

50119

static int _wrap_smNotice_g_or_v_generic_trap_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50120

50121

ib_net16_t * _result;

50122

smNotice_g_or_v_generic * _arg0;

50123

Tcl_Obj * tcl_result;

50124

char * rettype;

50125

50126

clientData = clientData; objv = objv;

50127

tcl_result = Tcl_GetObjResult(interp);

50128

if ((objc < 2) || (objc > 2)) {

50129

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_generic_trap_num_get { smNotice_g_or_v_generic * } ",-1);

50130

return TCL_ERROR;

50131

}

50132

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_generic_p"))) {

50133

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_generic_trap_num_get. Expected _smNotice_g_or_v_generic_p, received ", -1);

50134

Tcl_AppendToObj(tcl_result, rettype, -1);

50135

return TCL_ERROR;

50136

}

50137

{

50138

/* we can check if IBIS was initialized here */

50139

if (!IbisObj.initialized)

50140

{

50141

Tcl_SetStringObj(

50142

Tcl_GetObjResult(interp),

50143

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50144

return TCL_ERROR;

50145

}

50146

50147

if (! IbisObj.port_guid)

50148

{

50149

Tcl_SetStringObj(

50150

Tcl_GetObjResult(interp),

50151

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50152

return TCL_ERROR;

50153

}

50154

50155

ibis_tcl_error = 0;

50156

_result = (ib_net16_t *)smNotice_g_or_v_generic_trap_num_get(_arg0);

50157

;

50158

if (ibis_tcl_error) {

50159

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50160

return TCL_ERROR;

50161

}

50162

} tcl_result = Tcl_GetObjResult(interp);

50163

{

50164

char buff[20];

50165

sprintf(buff, "%u", cl_hton16(*_result));

50166

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50167

}

50168

return TCL_OK;

50169

}

50170

/* methodcmd8.swg : Tcl8.x method invocation */

50171

50172

static int TclsmNotice_g_or_v_genericMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

50173

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

50174

char *_str;

50175

int rcode;

50176

Tcl_Obj **objv;

50177

Tcl_Obj *oldarg,*tcl_result,*obj;

50178

int length;

50179

char c;

50180

50181

tcl_result = Tcl_GetObjResult(interp);

50182

objv = (Tcl_Obj **) _objv;

50183

if (objc < 2) {

50184

Tcl_SetStringObj(tcl_result,"smNotice_g_or_v_generic methods : { dump cget configure }",-1);

50185

return TCL_ERROR;

50186

}

50187

obj = Tcl_NewObj();

50188

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_g_or_v_generic_p");

50189

_str = Tcl_GetStringFromObj(objv[1],&length);

50190

c = *_str;

50191

if (0);

50192

50193

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

50194

int i = 2;

50195

cmd = 0;

50196

while (i+1 < objc) {

50197

_str = Tcl_GetStringFromObj(objv[i],&length);

50198

if (strcmp(_str,"-prod_type_msb") == 0) {

50199

cmd = _wrap_smNotice_g_or_v_generic_prod_type_msb_set;

50200

} else if (strcmp(_str,"-prod_type_lsb") == 0) {

50201

cmd = _wrap_smNotice_g_or_v_generic_prod_type_lsb_set;

50202

} else if (strcmp(_str,"-trap_num") == 0) {

50203

cmd = _wrap_smNotice_g_or_v_generic_trap_num_set;

50204

}

50205

if (cmd) {

50206

oldarg = objv[i];

50207

objv[i] = obj;

50208

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

50209

objv[i] = oldarg;

50210

if (rcode == TCL_ERROR) return rcode;

50211

cmd = 0;

50212

} else {

50213

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -prod_type_msb -prod_type_lsb -trap_num }",-1);

50214

return TCL_ERROR;

50215

}

50216

i+=2;

50217

}

50218

if ((i < objc) || (i == 2)) {

50219

Tcl_SetStringObj(tcl_result,"{ -prod_type_msb -prod_type_lsb -trap_num }",-1);

50220

return TCL_ERROR;

50221

}

50222

return TCL_OK;

50223

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

50224

if (objc == 3) {

50225

_str = Tcl_GetStringFromObj(objv[2],&length);

50226

if (0) {}

50227

if (strcmp(_str,"-prod_type_msb") == 0) {

50228

cmd = _wrap_smNotice_g_or_v_generic_prod_type_msb_get;

50229

} else if (strcmp(_str,"-prod_type_lsb") == 0) {

50230

cmd = _wrap_smNotice_g_or_v_generic_prod_type_lsb_get;

50231

} else if (strcmp(_str,"-trap_num") == 0) {

50232

cmd = _wrap_smNotice_g_or_v_generic_trap_num_get;

50233

}

50234

else if (strcmp(_str,"-this") == 0) {

50235

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_g_or_v_generic_p");

50236

return TCL_OK;

50237

}

50238

if (cmd) {

50239

oldarg = objv[2];

50240

objv[2] = obj;

50241

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

50242

objv[2] = oldarg;

50243

return rcode;

50244

} else {

50245

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -prod_type_msb -prod_type_lsb -trap_num }",-1);

50246

return TCL_ERROR;

50247

}

50248

} else {

50249

Tcl_SetStringObj(tcl_result,"{ -this -prod_type_msb -prod_type_lsb -trap_num }", -1);

50250

return TCL_ERROR;

50251

}

50252

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

50253

if (objc == 2) {

50254

Tcl_Obj *pDumpObj;

50255

pDumpObj = Tcl_NewStringObj("",-1);

50256

Tcl_IncrRefCount(pDumpObj);

50257

cmd = _wrap_smNotice_g_or_v_generic_prod_type_msb_get;

50258

oldarg = objv[2];

50259

objv[2] = obj;

50260

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50261

objv[2] = oldarg;

50262

Tcl_AppendStringsToObj(pDumpObj, "-prod_type_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50263

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50264

cmd = _wrap_smNotice_g_or_v_generic_prod_type_lsb_get;

50265

oldarg = objv[2];

50266

objv[2] = obj;

50267

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50268

objv[2] = oldarg;

50269

Tcl_AppendStringsToObj(pDumpObj, "-prod_type_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50270

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50271

cmd = _wrap_smNotice_g_or_v_generic_trap_num_get;

50272

oldarg = objv[2];

50273

objv[2] = obj;

50274

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50275

objv[2] = oldarg;

50276

Tcl_AppendStringsToObj(pDumpObj, "-trap_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50277

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50278

50279

Tcl_DecrRefCount(pDumpObj);

50280

return TCL_OK;

50281

} else {

50282

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

50283

return TCL_ERROR;

50284

}

50285

}

50286

if (!cmd) {

50287

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

50288

return TCL_ERROR;

50289

}

50290

oldarg = objv[1];

50291

objv[1] = obj;

50292

rcode = (*cmd)(clientData,interp,objc,objv);

50293

objv[1] = oldarg;

50294

return rcode;

50295

}

50296

50297

50298

50299

/* objcmd8.swg : Tcl 8.x object creation */

50300

50301

static int TclsmNotice_g_or_v_genericCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50302

void (*del)(ClientData) = 0;

50303

char *name = 0;

50304

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

50305

smNotice_g_or_v_generic * newObj = 0;

50306

int firstarg = 0;

50307

int thisarg = 0;

50308

int length;

50309

char *_str;

50310

Tcl_Obj *tcl_result;

50311

50312

tcl_result = Tcl_GetObjResult(interp);

50313

if (objc == 1) {

50314

cmd = 0;

50315

} else {

50316

_str = Tcl_GetStringFromObj(objv[1],&length);

50317

if (strcmp(_str,"-this") == 0) thisarg = 2;

50318

else if (strcmp(_str,"-args") == 0) {

50319

firstarg = 1;

50320

cmd = 0;

50321

} else if (objc == 2) {

50322

firstarg = 1;

50323

name = _str;

50324

cmd = 0;

50325

} else if (objc >= 3) {

50326

name = _str;

50327

_str = Tcl_GetStringFromObj(objv[2],&length);

50328

if (strcmp(_str,"-this") == 0) thisarg = 3;

50329

else {

50330

firstarg = 1;

50331

cmd = 0;

50332

}

50333

}

50334

}

50335

if (cmd) {

50336

int result;

50337

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

50338

if (result == TCL_OK) {

50339

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_g_or_v_generic_p");

50340

} else { return result; }

50341

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

50342

del = 0;

50343

} else if (thisarg > 0) {

50344

if (thisarg < objc) {

50345

char *r;

50346

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_g_or_v_generic_p");

50347

if (r) {

50348

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_g_or_v_generic object.",-1);

50349

return TCL_ERROR;

50350

}

50351

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

50352

Tcl_SetStringObj(tcl_result,name,-1);

50353

} else {

50354

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

50355

return TCL_ERROR;

50356

}

50357

} else {

50358

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

50359

return TCL_ERROR;

50360

}

50361

{

50362

Tcl_CmdInfo dummy;

50363

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

50364

Tcl_CreateObjCommand(interp,name, TclsmNotice_g_or_v_genericMethodCmd, (ClientData) newObj, del);

50365

return TCL_OK;

50366

} else {

50367

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

50368

return TCL_ERROR;

50369

}

50370

}

50371

}

50372

50373

50374

#define smNotice_g_or_v_vend_vend_id_msb_set(_swigobj,_swigval) (_swigobj->vend_id_msb = *(_swigval),_swigval)

50375

static int _wrap_smNotice_g_or_v_vend_vend_id_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50376

50377

uint8_t * _result;

50378

smNotice_g_or_v_vend * _arg0;

50379

uint8_t * _arg1;

50380

Tcl_Obj * tcl_result;

50381

char * rettype;

50382

uint8_t temp;

50383

50384

clientData = clientData; objv = objv;

50385

tcl_result = Tcl_GetObjResult(interp);

50386

if ((objc < 3) || (objc > 3)) {

50387

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_vend_id_msb_set { smNotice_g_or_v_vend * } { uint8_t * } ",-1);

50388

return TCL_ERROR;

50389

}

50390

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50391

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_vend_id_msb_set. Expected _smNotice_g_or_v_vend_p, received ", -1);

50392

Tcl_AppendToObj(tcl_result, rettype, -1);

50393

return TCL_ERROR;

50394

}

50395

{

50396

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

50397

_arg1 = &temp;

50398

}

50399

{

50400

/* we can check if IBIS was initialized here */

50401

if (!IbisObj.initialized)

50402

{

50403

Tcl_SetStringObj(

50404

Tcl_GetObjResult(interp),

50405

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50406

return TCL_ERROR;

50407

}

50408

50409

if (! IbisObj.port_guid)

50410

{

50411

Tcl_SetStringObj(

50412

Tcl_GetObjResult(interp),

50413

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50414

return TCL_ERROR;

50415

}

50416

50417

ibis_tcl_error = 0;

50418

_result = (uint8_t *)smNotice_g_or_v_vend_vend_id_msb_set(_arg0,_arg1);

50419

;

50420

if (ibis_tcl_error) {

50421

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50422

return TCL_ERROR;

50423

}

50424

} tcl_result = Tcl_GetObjResult(interp);

50425

{

50426

char buff[20];

50427

sprintf(buff, "%u", *_result);

50428

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50429

}

50430

return TCL_OK;

50431

}

50432

#define smNotice_g_or_v_vend_vend_id_msb_get(_swigobj) (&_swigobj->vend_id_msb)

50433

static int _wrap_smNotice_g_or_v_vend_vend_id_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50434

50435

uint8_t * _result;

50436

smNotice_g_or_v_vend * _arg0;

50437

Tcl_Obj * tcl_result;

50438

char * rettype;

50439

50440

clientData = clientData; objv = objv;

50441

tcl_result = Tcl_GetObjResult(interp);

50442

if ((objc < 2) || (objc > 2)) {

50443

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_vend_id_msb_get { smNotice_g_or_v_vend * } ",-1);

50444

return TCL_ERROR;

50445

}

50446

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50447

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_vend_id_msb_get. Expected _smNotice_g_or_v_vend_p, received ", -1);

50448

Tcl_AppendToObj(tcl_result, rettype, -1);

50449

return TCL_ERROR;

50450

}

50451

{

50452

/* we can check if IBIS was initialized here */

50453

if (!IbisObj.initialized)

50454

{

50455

Tcl_SetStringObj(

50456

Tcl_GetObjResult(interp),

50457

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50458

return TCL_ERROR;

50459

}

50460

50461

if (! IbisObj.port_guid)

50462

{

50463

Tcl_SetStringObj(

50464

Tcl_GetObjResult(interp),

50465

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50466

return TCL_ERROR;

50467

}

50468

50469

ibis_tcl_error = 0;

50470

_result = (uint8_t *)smNotice_g_or_v_vend_vend_id_msb_get(_arg0);

50471

;

50472

if (ibis_tcl_error) {

50473

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50474

return TCL_ERROR;

50475

}

50476

} tcl_result = Tcl_GetObjResult(interp);

50477

{

50478

char buff[20];

50479

sprintf(buff, "%u", *_result);

50480

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50481

}

50482

return TCL_OK;

50483

}

50484

#define smNotice_g_or_v_vend_vend_id_lsb_set(_swigobj,_swigval) (_swigobj->vend_id_lsb = *(_swigval),_swigval)

50485

static int _wrap_smNotice_g_or_v_vend_vend_id_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50486

50487

ib_net16_t * _result;

50488

smNotice_g_or_v_vend * _arg0;

50489

ib_net16_t * _arg1;

50490

Tcl_Obj * tcl_result;

50491

char * rettype;

50492

ib_net16_t temp;

50493

50494

clientData = clientData; objv = objv;

50495

tcl_result = Tcl_GetObjResult(interp);

50496

if ((objc < 3) || (objc > 3)) {

50497

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_vend_id_lsb_set { smNotice_g_or_v_vend * } { ib_net16_t * } ",-1);

50498

return TCL_ERROR;

50499

}

50500

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50501

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_vend_id_lsb_set. Expected _smNotice_g_or_v_vend_p, received ", -1);

50502

Tcl_AppendToObj(tcl_result, rettype, -1);

50503

return TCL_ERROR;

50504

}

50505

{

50506

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

50507

_arg1 = &temp;

50508

}

50509

{

50510

/* we can check if IBIS was initialized here */

50511

if (!IbisObj.initialized)

50512

{

50513

Tcl_SetStringObj(

50514

Tcl_GetObjResult(interp),

50515

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50516

return TCL_ERROR;

50517

}

50518

50519

if (! IbisObj.port_guid)

50520

{

50521

Tcl_SetStringObj(

50522

Tcl_GetObjResult(interp),

50523

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50524

return TCL_ERROR;

50525

}

50526

50527

ibis_tcl_error = 0;

50528

_result = (ib_net16_t *)smNotice_g_or_v_vend_vend_id_lsb_set(_arg0,_arg1);

50529

;

50530

if (ibis_tcl_error) {

50531

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50532

return TCL_ERROR;

50533

}

50534

} tcl_result = Tcl_GetObjResult(interp);

50535

{

50536

char buff[20];

50537

sprintf(buff, "%u", cl_hton16(*_result));

50538

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50539

}

50540

return TCL_OK;

50541

}

50542

#define smNotice_g_or_v_vend_vend_id_lsb_get(_swigobj) (&_swigobj->vend_id_lsb)

50543

static int _wrap_smNotice_g_or_v_vend_vend_id_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50544

50545

ib_net16_t * _result;

50546

smNotice_g_or_v_vend * _arg0;

50547

Tcl_Obj * tcl_result;

50548

char * rettype;

50549

50550

clientData = clientData; objv = objv;

50551

tcl_result = Tcl_GetObjResult(interp);

50552

if ((objc < 2) || (objc > 2)) {

50553

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_vend_id_lsb_get { smNotice_g_or_v_vend * } ",-1);

50554

return TCL_ERROR;

50555

}

50556

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50557

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_vend_id_lsb_get. Expected _smNotice_g_or_v_vend_p, received ", -1);

50558

Tcl_AppendToObj(tcl_result, rettype, -1);

50559

return TCL_ERROR;

50560

}

50561

{

50562

/* we can check if IBIS was initialized here */

50563

if (!IbisObj.initialized)

50564

{

50565

Tcl_SetStringObj(

50566

Tcl_GetObjResult(interp),

50567

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50568

return TCL_ERROR;

50569

}

50570

50571

if (! IbisObj.port_guid)

50572

{

50573

Tcl_SetStringObj(

50574

Tcl_GetObjResult(interp),

50575

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50576

return TCL_ERROR;

50577

}

50578

50579

ibis_tcl_error = 0;

50580

_result = (ib_net16_t *)smNotice_g_or_v_vend_vend_id_lsb_get(_arg0);

50581

;

50582

if (ibis_tcl_error) {

50583

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50584

return TCL_ERROR;

50585

}

50586

} tcl_result = Tcl_GetObjResult(interp);

50587

{

50588

char buff[20];

50589

sprintf(buff, "%u", cl_hton16(*_result));

50590

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50591

}

50592

return TCL_OK;

50593

}

50594

#define smNotice_g_or_v_vend_dev_id_set(_swigobj,_swigval) (_swigobj->dev_id = *(_swigval),_swigval)

50595

static int _wrap_smNotice_g_or_v_vend_dev_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50596

50597

ib_net16_t * _result;

50598

smNotice_g_or_v_vend * _arg0;

50599

ib_net16_t * _arg1;

50600

Tcl_Obj * tcl_result;

50601

char * rettype;

50602

ib_net16_t temp;

50603

50604

clientData = clientData; objv = objv;

50605

tcl_result = Tcl_GetObjResult(interp);

50606

if ((objc < 3) || (objc > 3)) {

50607

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_dev_id_set { smNotice_g_or_v_vend * } { ib_net16_t * } ",-1);

50608

return TCL_ERROR;

50609

}

50610

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50611

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_dev_id_set. Expected _smNotice_g_or_v_vend_p, received ", -1);

50612

Tcl_AppendToObj(tcl_result, rettype, -1);

50613

return TCL_ERROR;

50614

}

50615

{

50616

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

50617

_arg1 = &temp;

50618

}

50619

{

50620

/* we can check if IBIS was initialized here */

50621

if (!IbisObj.initialized)

50622

{

50623

Tcl_SetStringObj(

50624

Tcl_GetObjResult(interp),

50625

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50626

return TCL_ERROR;

50627

}

50628

50629

if (! IbisObj.port_guid)

50630

{

50631

Tcl_SetStringObj(

50632

Tcl_GetObjResult(interp),

50633

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50634

return TCL_ERROR;

50635

}

50636

50637

ibis_tcl_error = 0;

50638

_result = (ib_net16_t *)smNotice_g_or_v_vend_dev_id_set(_arg0,_arg1);

50639

;

50640

if (ibis_tcl_error) {

50641

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50642

return TCL_ERROR;

50643

}

50644

} tcl_result = Tcl_GetObjResult(interp);

50645

{

50646

char buff[20];

50647

sprintf(buff, "%u", cl_hton16(*_result));

50648

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50649

}

50650

return TCL_OK;

50651

}

50652

#define smNotice_g_or_v_vend_dev_id_get(_swigobj) (&_swigobj->dev_id)

50653

static int _wrap_smNotice_g_or_v_vend_dev_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50654

50655

ib_net16_t * _result;

50656

smNotice_g_or_v_vend * _arg0;

50657

Tcl_Obj * tcl_result;

50658

char * rettype;

50659

50660

clientData = clientData; objv = objv;

50661

tcl_result = Tcl_GetObjResult(interp);

50662

if ((objc < 2) || (objc > 2)) {

50663

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_g_or_v_vend_dev_id_get { smNotice_g_or_v_vend * } ",-1);

50664

return TCL_ERROR;

50665

}

50666

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_g_or_v_vend_p"))) {

50667

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_g_or_v_vend_dev_id_get. Expected _smNotice_g_or_v_vend_p, received ", -1);

50668

Tcl_AppendToObj(tcl_result, rettype, -1);

50669

return TCL_ERROR;

50670

}

50671

{

50672

/* we can check if IBIS was initialized here */

50673

if (!IbisObj.initialized)

50674

{

50675

Tcl_SetStringObj(

50676

Tcl_GetObjResult(interp),

50677

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50678

return TCL_ERROR;

50679

}

50680

50681

if (! IbisObj.port_guid)

50682

{

50683

Tcl_SetStringObj(

50684

Tcl_GetObjResult(interp),

50685

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50686

return TCL_ERROR;

50687

}

50688

50689

ibis_tcl_error = 0;

50690

_result = (ib_net16_t *)smNotice_g_or_v_vend_dev_id_get(_arg0);

50691

;

50692

if (ibis_tcl_error) {

50693

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50694

return TCL_ERROR;

50695

}

50696

} tcl_result = Tcl_GetObjResult(interp);

50697

{

50698

char buff[20];

50699

sprintf(buff, "%u", cl_hton16(*_result));

50700

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

50701

}

50702

return TCL_OK;

50703

}

50704

/* methodcmd8.swg : Tcl8.x method invocation */

50705

50706

static int TclsmNotice_g_or_v_vendMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

50707

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

50708

char *_str;

50709

int rcode;

50710

Tcl_Obj **objv;

50711

Tcl_Obj *oldarg,*tcl_result,*obj;

50712

int length;

50713

char c;

50714

50715

tcl_result = Tcl_GetObjResult(interp);

50716

objv = (Tcl_Obj **) _objv;

50717

if (objc < 2) {

50718

Tcl_SetStringObj(tcl_result,"smNotice_g_or_v_vend methods : { dump cget configure }",-1);

50719

return TCL_ERROR;

50720

}

50721

obj = Tcl_NewObj();

50722

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_g_or_v_vend_p");

50723

_str = Tcl_GetStringFromObj(objv[1],&length);

50724

c = *_str;

50725

if (0);

50726

50727

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

50728

int i = 2;

50729

cmd = 0;

50730

while (i+1 < objc) {

50731

_str = Tcl_GetStringFromObj(objv[i],&length);

50732

if (strcmp(_str,"-vend_id_msb") == 0) {

50733

cmd = _wrap_smNotice_g_or_v_vend_vend_id_msb_set;

50734

} else if (strcmp(_str,"-vend_id_lsb") == 0) {

50735

cmd = _wrap_smNotice_g_or_v_vend_vend_id_lsb_set;

50736

} else if (strcmp(_str,"-dev_id") == 0) {

50737

cmd = _wrap_smNotice_g_or_v_vend_dev_id_set;

50738

}

50739

if (cmd) {

50740

oldarg = objv[i];

50741

objv[i] = obj;

50742

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

50743

objv[i] = oldarg;

50744

if (rcode == TCL_ERROR) return rcode;

50745

cmd = 0;

50746

} else {

50747

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -vend_id_msb -vend_id_lsb -dev_id }",-1);

50748

return TCL_ERROR;

50749

}

50750

i+=2;

50751

}

50752

if ((i < objc) || (i == 2)) {

50753

Tcl_SetStringObj(tcl_result,"{ -vend_id_msb -vend_id_lsb -dev_id }",-1);

50754

return TCL_ERROR;

50755

}

50756

return TCL_OK;

50757

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

50758

if (objc == 3) {

50759

_str = Tcl_GetStringFromObj(objv[2],&length);

50760

if (0) {}

50761

if (strcmp(_str,"-vend_id_msb") == 0) {

50762

cmd = _wrap_smNotice_g_or_v_vend_vend_id_msb_get;

50763

} else if (strcmp(_str,"-vend_id_lsb") == 0) {

50764

cmd = _wrap_smNotice_g_or_v_vend_vend_id_lsb_get;

50765

} else if (strcmp(_str,"-dev_id") == 0) {

50766

cmd = _wrap_smNotice_g_or_v_vend_dev_id_get;

50767

}

50768

else if (strcmp(_str,"-this") == 0) {

50769

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_g_or_v_vend_p");

50770

return TCL_OK;

50771

}

50772

if (cmd) {

50773

oldarg = objv[2];

50774

objv[2] = obj;

50775

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

50776

objv[2] = oldarg;

50777

return rcode;

50778

} else {

50779

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -vend_id_msb -vend_id_lsb -dev_id }",-1);

50780

return TCL_ERROR;

50781

}

50782

} else {

50783

Tcl_SetStringObj(tcl_result,"{ -this -vend_id_msb -vend_id_lsb -dev_id }", -1);

50784

return TCL_ERROR;

50785

}

50786

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

50787

if (objc == 2) {

50788

Tcl_Obj *pDumpObj;

50789

pDumpObj = Tcl_NewStringObj("",-1);

50790

Tcl_IncrRefCount(pDumpObj);

50791

cmd = _wrap_smNotice_g_or_v_vend_vend_id_msb_get;

50792

oldarg = objv[2];

50793

objv[2] = obj;

50794

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50795

objv[2] = oldarg;

50796

Tcl_AppendStringsToObj(pDumpObj, "-vend_id_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50797

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50798

cmd = _wrap_smNotice_g_or_v_vend_vend_id_lsb_get;

50799

oldarg = objv[2];

50800

objv[2] = obj;

50801

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50802

objv[2] = oldarg;

50803

Tcl_AppendStringsToObj(pDumpObj, "-vend_id_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50804

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50805

cmd = _wrap_smNotice_g_or_v_vend_dev_id_get;

50806

oldarg = objv[2];

50807

objv[2] = obj;

50808

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

50809

objv[2] = oldarg;

50810

Tcl_AppendStringsToObj(pDumpObj, "-dev_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

50811

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

50812

50813

Tcl_DecrRefCount(pDumpObj);

50814

return TCL_OK;

50815

} else {

50816

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

50817

return TCL_ERROR;

50818

}

50819

}

50820

if (!cmd) {

50821

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

50822

return TCL_ERROR;

50823

}

50824

oldarg = objv[1];

50825

objv[1] = obj;

50826

rcode = (*cmd)(clientData,interp,objc,objv);

50827

objv[1] = oldarg;

50828

return rcode;

50829

}

50830

50831

50832

50833

/* objcmd8.swg : Tcl 8.x object creation */

50834

50835

static int TclsmNotice_g_or_v_vendCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50836

void (*del)(ClientData) = 0;

50837

char *name = 0;

50838

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

50839

smNotice_g_or_v_vend * newObj = 0;

50840

int firstarg = 0;

50841

int thisarg = 0;

50842

int length;

50843

char *_str;

50844

Tcl_Obj *tcl_result;

50845

50846

tcl_result = Tcl_GetObjResult(interp);

50847

if (objc == 1) {

50848

cmd = 0;

50849

} else {

50850

_str = Tcl_GetStringFromObj(objv[1],&length);

50851

if (strcmp(_str,"-this") == 0) thisarg = 2;

50852

else if (strcmp(_str,"-args") == 0) {

50853

firstarg = 1;

50854

cmd = 0;

50855

} else if (objc == 2) {

50856

firstarg = 1;

50857

name = _str;

50858

cmd = 0;

50859

} else if (objc >= 3) {

50860

name = _str;

50861

_str = Tcl_GetStringFromObj(objv[2],&length);

50862

if (strcmp(_str,"-this") == 0) thisarg = 3;

50863

else {

50864

firstarg = 1;

50865

cmd = 0;

50866

}

50867

}

50868

}

50869

if (cmd) {

50870

int result;

50871

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

50872

if (result == TCL_OK) {

50873

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_g_or_v_vend_p");

50874

} else { return result; }

50875

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

50876

del = 0;

50877

} else if (thisarg > 0) {

50878

if (thisarg < objc) {

50879

char *r;

50880

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_g_or_v_vend_p");

50881

if (r) {

50882

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_g_or_v_vend object.",-1);

50883

return TCL_ERROR;

50884

}

50885

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

50886

Tcl_SetStringObj(tcl_result,name,-1);

50887

} else {

50888

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

50889

return TCL_ERROR;

50890

}

50891

} else {

50892

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

50893

return TCL_ERROR;

50894

}

50895

{

50896

Tcl_CmdInfo dummy;

50897

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

50898

Tcl_CreateObjCommand(interp,name, TclsmNotice_g_or_v_vendMethodCmd, (ClientData) newObj, del);

50899

return TCL_OK;

50900

} else {

50901

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

50902

return TCL_ERROR;

50903

}

50904

}

50905

}

50906

50907

50908

static uint8_array_t * smNotice_data_details_raw_data_details_set(smNotice_data_details_raw_data *obj, uint8_array_t val[54]) {

50909

{

50910

int i;

50911

for (i=0; i <54 ; i++) {

50912

obj->details[i] = *(val+i);

50913

}

50914

}

50915

return (uint8_array_t *) val;

50916

}

50917

static int _wrap_smNotice_data_details_raw_data_details_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

50918

50919

uint8_array_t * _result;

50920

smNotice_data_details_raw_data * _arg0;

50921

uint8_array_t * _arg1;

50922

Tcl_Obj * tcl_result;

50923

char * rettype;

50924

uint8_t entrys[54];

50925

50926

clientData = clientData; objv = objv;

50927

tcl_result = Tcl_GetObjResult(interp);

50928

if ((objc < 3) || (objc > 3)) {

50929

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_raw_data_details_set { smNotice_data_details_raw_data * } { uint8_array_t * } ",-1);

50930

return TCL_ERROR;

50931

}

50932

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_raw_data_p"))) {

50933

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_raw_data_details_set. Expected _smNotice_data_details_raw_data_p, received ", -1);

50934

Tcl_AppendToObj(tcl_result, rettype, -1);

50935

return TCL_ERROR;

50936

}

50937

{

50938

char *buff;

50939

char *p_ch;

50940

char *last;

50941

long int entry;

50942

50943

int i = 0;

50944

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

50945

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

50946

p_ch = strtok_r(buff, " \t",&last);

50947

while (p_ch && (i < 54))

50948

{

50949

entry = strtol(p_ch, NULL, 0);

50950

if (entry > 0xff)

50951

{

50952

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

50953

return TCL_ERROR;

50954

}

50955

entrys[i++] = entry;

50956

p_ch = strtok_r(NULL, " \t", &last);

50957

}

50958

for (; i < 54; i++) entrys[i] = 0;

50959

50960

free(buff);

50961

_arg1 = entrys;

50962

}

50963

{

50964

/* we can check if IBIS was initialized here */

50965

if (!IbisObj.initialized)

50966

{

50967

Tcl_SetStringObj(

50968

Tcl_GetObjResult(interp),

50969

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

50970

return TCL_ERROR;

50971

}

50972

50973

if (! IbisObj.port_guid)

50974

{

50975

Tcl_SetStringObj(

50976

Tcl_GetObjResult(interp),

50977

" ibis was not yet initialized. please use ibis_set_port before.", -1);

50978

return TCL_ERROR;

50979

}

50980

50981

ibis_tcl_error = 0;

50982

_result = (uint8_array_t *)smNotice_data_details_raw_data_details_set(_arg0,_arg1);

50983

;

50984

if (ibis_tcl_error) {

50985

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

50986

return TCL_ERROR;

50987

}

50988

} tcl_result = Tcl_GetObjResult(interp);

50989

{

50990

int i;

50991

char buff[8];

50992

for (i=0; i <54 ; i++) {

50993

sprintf(buff, "0x%02x ", *(_result+i));

50994

Tcl_AppendResult(interp, buff, NULL);

50995

}

50996

}

50997

return TCL_OK;

50998

}

50999

#define smNotice_data_details_raw_data_details_get(_swigobj) ((uint8_array_t *) _swigobj->details)

51000

static int _wrap_smNotice_data_details_raw_data_details_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51001

51002

uint8_array_t * _result;

51003

smNotice_data_details_raw_data * _arg0;

51004

Tcl_Obj * tcl_result;

51005

char * rettype;

51006

51007

clientData = clientData; objv = objv;

51008

tcl_result = Tcl_GetObjResult(interp);

51009

if ((objc < 2) || (objc > 2)) {

51010

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_raw_data_details_get { smNotice_data_details_raw_data * } ",-1);

51011

return TCL_ERROR;

51012

}

51013

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_raw_data_p"))) {

51014

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_raw_data_details_get. Expected _smNotice_data_details_raw_data_p, received ", -1);

51015

Tcl_AppendToObj(tcl_result, rettype, -1);

51016

return TCL_ERROR;

51017

}

51018

{

51019

/* we can check if IBIS was initialized here */

51020

if (!IbisObj.initialized)

51021

{

51022

Tcl_SetStringObj(

51023

Tcl_GetObjResult(interp),

51024

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51025

return TCL_ERROR;

51026

}

51027

51028

if (! IbisObj.port_guid)

51029

{

51030

Tcl_SetStringObj(

51031

Tcl_GetObjResult(interp),

51032

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51033

return TCL_ERROR;

51034

}

51035

51036

ibis_tcl_error = 0;

51037

_result = (uint8_array_t *)smNotice_data_details_raw_data_details_get(_arg0);

51038

;

51039

if (ibis_tcl_error) {

51040

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51041

return TCL_ERROR;

51042

}

51043

} tcl_result = Tcl_GetObjResult(interp);

51044

{

51045

int i;

51046

char buff[8];

51047

for (i=0; i <54 ; i++) {

51048

sprintf(buff, "0x%02x ", *(_result+i));

51049

Tcl_AppendResult(interp, buff, NULL);

51050

}

51051

}

51052

return TCL_OK;

51053

}

51054

/* methodcmd8.swg : Tcl8.x method invocation */

51055

51056

static int TclsmNotice_data_details_raw_dataMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

51057

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51058

char *_str;

51059

int rcode;

51060

Tcl_Obj **objv;

51061

Tcl_Obj *oldarg,*tcl_result,*obj;

51062

int length;

51063

char c;

51064

51065

tcl_result = Tcl_GetObjResult(interp);

51066

objv = (Tcl_Obj **) _objv;

51067

if (objc < 2) {

51068

Tcl_SetStringObj(tcl_result,"smNotice_data_details_raw_data methods : { dump cget configure }",-1);

51069

return TCL_ERROR;

51070

}

51071

obj = Tcl_NewObj();

51072

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_raw_data_p");

51073

_str = Tcl_GetStringFromObj(objv[1],&length);

51074

c = *_str;

51075

if (0);

51076

51077

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

51078

int i = 2;

51079

cmd = 0;

51080

while (i+1 < objc) {

51081

_str = Tcl_GetStringFromObj(objv[i],&length);

51082

if (strcmp(_str,"-details") == 0) {

51083

cmd = _wrap_smNotice_data_details_raw_data_details_set;

51084

}

51085

if (cmd) {

51086

oldarg = objv[i];

51087

objv[i] = obj;

51088

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

51089

objv[i] = oldarg;

51090

if (rcode == TCL_ERROR) return rcode;

51091

cmd = 0;

51092

} else {

51093

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -details }",-1);

51094

return TCL_ERROR;

51095

}

51096

i+=2;

51097

}

51098

if ((i < objc) || (i == 2)) {

51099

Tcl_SetStringObj(tcl_result,"{ -details }",-1);

51100

return TCL_ERROR;

51101

}

51102

return TCL_OK;

51103

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

51104

if (objc == 3) {

51105

_str = Tcl_GetStringFromObj(objv[2],&length);

51106

if (0) {}

51107

if (strcmp(_str,"-details") == 0) {

51108

cmd = _wrap_smNotice_data_details_raw_data_details_get;

51109

}

51110

else if (strcmp(_str,"-this") == 0) {

51111

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_raw_data_p");

51112

return TCL_OK;

51113

}

51114

if (cmd) {

51115

oldarg = objv[2];

51116

objv[2] = obj;

51117

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

51118

objv[2] = oldarg;

51119

return rcode;

51120

} else {

51121

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -details }",-1);

51122

return TCL_ERROR;

51123

}

51124

} else {

51125

Tcl_SetStringObj(tcl_result,"{ -this -details }", -1);

51126

return TCL_ERROR;

51127

}

51128

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

51129

if (objc == 2) {

51130

Tcl_Obj *pDumpObj;

51131

pDumpObj = Tcl_NewStringObj("",-1);

51132

Tcl_IncrRefCount(pDumpObj);

51133

cmd = _wrap_smNotice_data_details_raw_data_details_get;

51134

oldarg = objv[2];

51135

objv[2] = obj;

51136

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

51137

objv[2] = oldarg;

51138

Tcl_AppendStringsToObj(pDumpObj, "-details ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

51139

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

51140

51141

Tcl_DecrRefCount(pDumpObj);

51142

return TCL_OK;

51143

} else {

51144

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

51145

return TCL_ERROR;

51146

}

51147

}

51148

if (!cmd) {

51149

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

51150

return TCL_ERROR;

51151

}

51152

oldarg = objv[1];

51153

objv[1] = obj;

51154

rcode = (*cmd)(clientData,interp,objc,objv);

51155

objv[1] = oldarg;

51156

return rcode;

51157

}

51158

51159

51160

51161

/* objcmd8.swg : Tcl 8.x object creation */

51162

51163

static int TclsmNotice_data_details_raw_dataCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51164

void (*del)(ClientData) = 0;

51165

char *name = 0;

51166

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51167

smNotice_data_details_raw_data * newObj = 0;

51168

int firstarg = 0;

51169

int thisarg = 0;

51170

int length;

51171

char *_str;

51172

Tcl_Obj *tcl_result;

51173

51174

tcl_result = Tcl_GetObjResult(interp);

51175

if (objc == 1) {

51176

cmd = 0;

51177

} else {

51178

_str = Tcl_GetStringFromObj(objv[1],&length);

51179

if (strcmp(_str,"-this") == 0) thisarg = 2;

51180

else if (strcmp(_str,"-args") == 0) {

51181

firstarg = 1;

51182

cmd = 0;

51183

} else if (objc == 2) {

51184

firstarg = 1;

51185

name = _str;

51186

cmd = 0;

51187

} else if (objc >= 3) {

51188

name = _str;

51189

_str = Tcl_GetStringFromObj(objv[2],&length);

51190

if (strcmp(_str,"-this") == 0) thisarg = 3;

51191

else {

51192

firstarg = 1;

51193

cmd = 0;

51194

}

51195

}

51196

}

51197

if (cmd) {

51198

int result;

51199

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

51200

if (result == TCL_OK) {

51201

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_raw_data_p");

51202

} else { return result; }

51203

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

51204

del = 0;

51205

} else if (thisarg > 0) {

51206

if (thisarg < objc) {

51207

char *r;

51208

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_raw_data_p");

51209

if (r) {

51210

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_raw_data object.",-1);

51211

return TCL_ERROR;

51212

}

51213

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

51214

Tcl_SetStringObj(tcl_result,name,-1);

51215

} else {

51216

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

51217

return TCL_ERROR;

51218

}

51219

} else {

51220

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

51221

return TCL_ERROR;

51222

}

51223

{

51224

Tcl_CmdInfo dummy;

51225

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

51226

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_raw_dataMethodCmd, (ClientData) newObj, del);

51227

return TCL_OK;

51228

} else {

51229

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

51230

return TCL_ERROR;

51231

}

51232

}

51233

}

51234

51235

51236

static uint8_array_t * smNotice_data_details_ntc_64_67_res_set(smNotice_data_details_ntc_64_67 *obj, uint8_array_t val[6]) {

51237

{

51238

int i;

51239

for (i=0; i <6 ; i++) {

51240

obj->res[i] = *(val+i);

51241

}

51242

}

51243

return (uint8_array_t *) val;

51244

}

51245

static int _wrap_smNotice_data_details_ntc_64_67_res_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51246

51247

uint8_array_t * _result;

51248

smNotice_data_details_ntc_64_67 * _arg0;

51249

uint8_array_t * _arg1;

51250

Tcl_Obj * tcl_result;

51251

char * rettype;

51252

uint8_t entrys[6];

51253

51254

clientData = clientData; objv = objv;

51255

tcl_result = Tcl_GetObjResult(interp);

51256

if ((objc < 3) || (objc > 3)) {

51257

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_64_67_res_set { smNotice_data_details_ntc_64_67 * } { uint8_array_t * } ",-1);

51258

return TCL_ERROR;

51259

}

51260

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_64_67_p"))) {

51261

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_64_67_res_set. Expected _smNotice_data_details_ntc_64_67_p, received ", -1);

51262

Tcl_AppendToObj(tcl_result, rettype, -1);

51263

return TCL_ERROR;

51264

}

51265

{

51266

char *buff;

51267

char *p_ch;

51268

char *last;

51269

long int entry;

51270

51271

int i = 0;

51272

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

51273

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

51274

p_ch = strtok_r(buff, " \t",&last);

51275

while (p_ch && (i < 6))

51276

{

51277

entry = strtol(p_ch, NULL, 0);

51278

if (entry > 0xff)

51279

{

51280

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

51281

return TCL_ERROR;

51282

}

51283

entrys[i++] = entry;

51284

p_ch = strtok_r(NULL, " \t", &last);

51285

}

51286

for (; i < 6; i++) entrys[i] = 0;

51287

51288

free(buff);

51289

_arg1 = entrys;

51290

}

51291

{

51292

/* we can check if IBIS was initialized here */

51293

if (!IbisObj.initialized)

51294

{

51295

Tcl_SetStringObj(

51296

Tcl_GetObjResult(interp),

51297

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51298

return TCL_ERROR;

51299

}

51300

51301

if (! IbisObj.port_guid)

51302

{

51303

Tcl_SetStringObj(

51304

Tcl_GetObjResult(interp),

51305

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51306

return TCL_ERROR;

51307

}

51308

51309

ibis_tcl_error = 0;

51310

_result = (uint8_array_t *)smNotice_data_details_ntc_64_67_res_set(_arg0,_arg1);

51311

;

51312

if (ibis_tcl_error) {

51313

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51314

return TCL_ERROR;

51315

}

51316

} tcl_result = Tcl_GetObjResult(interp);

51317

{

51318

int i;

51319

char buff[8];

51320

for (i=0; i <6 ; i++) {

51321

sprintf(buff, "0x%02x ", *(_result+i));

51322

Tcl_AppendResult(interp, buff, NULL);

51323

}

51324

}

51325

return TCL_OK;

51326

}

51327

#define smNotice_data_details_ntc_64_67_res_get(_swigobj) ((uint8_array_t *) _swigobj->res)

51328

static int _wrap_smNotice_data_details_ntc_64_67_res_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51329

51330

uint8_array_t * _result;

51331

smNotice_data_details_ntc_64_67 * _arg0;

51332

Tcl_Obj * tcl_result;

51333

char * rettype;

51334

51335

clientData = clientData; objv = objv;

51336

tcl_result = Tcl_GetObjResult(interp);

51337

if ((objc < 2) || (objc > 2)) {

51338

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_64_67_res_get { smNotice_data_details_ntc_64_67 * } ",-1);

51339

return TCL_ERROR;

51340

}

51341

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_64_67_p"))) {

51342

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_64_67_res_get. Expected _smNotice_data_details_ntc_64_67_p, received ", -1);

51343

Tcl_AppendToObj(tcl_result, rettype, -1);

51344

return TCL_ERROR;

51345

}

51346

{

51347

/* we can check if IBIS was initialized here */

51348

if (!IbisObj.initialized)

51349

{

51350

Tcl_SetStringObj(

51351

Tcl_GetObjResult(interp),

51352

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51353

return TCL_ERROR;

51354

}

51355

51356

if (! IbisObj.port_guid)

51357

{

51358

Tcl_SetStringObj(

51359

Tcl_GetObjResult(interp),

51360

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51361

return TCL_ERROR;

51362

}

51363

51364

ibis_tcl_error = 0;

51365

_result = (uint8_array_t *)smNotice_data_details_ntc_64_67_res_get(_arg0);

51366

;

51367

if (ibis_tcl_error) {

51368

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51369

return TCL_ERROR;

51370

}

51371

} tcl_result = Tcl_GetObjResult(interp);

51372

{

51373

int i;

51374

char buff[8];

51375

for (i=0; i <6 ; i++) {

51376

sprintf(buff, "0x%02x ", *(_result+i));

51377

Tcl_AppendResult(interp, buff, NULL);

51378

}

51379

}

51380

return TCL_OK;

51381

}

51382

#define smNotice_data_details_ntc_64_67_gid_set(_swigobj,_swigval) (_swigobj->gid = *(_swigval),_swigval)

51383

static int _wrap_smNotice_data_details_ntc_64_67_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51384

51385

ib_gid_t * _result;

51386

smNotice_data_details_ntc_64_67 * _arg0;

51387

ib_gid_t * _arg1;

51388

Tcl_Obj * tcl_result;

51389

char * rettype;

51390

ib_gid_t temp;

51391

51392

clientData = clientData; objv = objv;

51393

tcl_result = Tcl_GetObjResult(interp);

51394

if ((objc < 3) || (objc > 3)) {

51395

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_64_67_gid_set { smNotice_data_details_ntc_64_67 * } { ib_gid_t * } ",-1);

51396

return TCL_ERROR;

51397

}

51398

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_64_67_p"))) {

51399

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_64_67_gid_set. Expected _smNotice_data_details_ntc_64_67_p, received ", -1);

51400

Tcl_AppendToObj(tcl_result, rettype, -1);

51401

return TCL_ERROR;

51402

}

51403

{

51404

char buf[38];

51405

char *p_prefix, *p_guid;

51406

char *str_token = NULL;

51407

51408

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

51409

p_prefix = strtok_r(buf,":", &str_token);

51410

p_guid = strtok_r(NULL, " ", &str_token);

51411

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

51412

errno = 0;

51413

if (errno) {

51414

printf("Wrong format for gid prefix:%s\n", p_prefix);

51415

return TCL_ERROR;

51416

}

51417

51418

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

51419

if (errno) {

51420

printf("Wrong format for gid guid:%s\n", p_guid);

51421

return TCL_ERROR;

51422

}

51423

51424

_arg1 = &temp;

51425

}

51426

{

51427

/* we can check if IBIS was initialized here */

51428

if (!IbisObj.initialized)

51429

{

51430

Tcl_SetStringObj(

51431

Tcl_GetObjResult(interp),

51432

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51433

return TCL_ERROR;

51434

}

51435

51436

if (! IbisObj.port_guid)

51437

{

51438

Tcl_SetStringObj(

51439

Tcl_GetObjResult(interp),

51440

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51441

return TCL_ERROR;

51442

}

51443

51444

ibis_tcl_error = 0;

51445

_result = (ib_gid_t *)smNotice_data_details_ntc_64_67_gid_set(_arg0,_arg1);

51446

;

51447

if (ibis_tcl_error) {

51448

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51449

return TCL_ERROR;

51450

}

51451

} tcl_result = Tcl_GetObjResult(interp);

51452

{

51453

char buff[38];

51454

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

51455

cl_ntoh64(_result->unicast.prefix),

51456

cl_ntoh64(_result->unicast.interface_id)

51457

);

51458

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

51459

}

51460

return TCL_OK;

51461

}

51462

#define smNotice_data_details_ntc_64_67_gid_get(_swigobj) (&_swigobj->gid)

51463

static int _wrap_smNotice_data_details_ntc_64_67_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51464

51465

ib_gid_t * _result;

51466

smNotice_data_details_ntc_64_67 * _arg0;

51467

Tcl_Obj * tcl_result;

51468

char * rettype;

51469

51470

clientData = clientData; objv = objv;

51471

tcl_result = Tcl_GetObjResult(interp);

51472

if ((objc < 2) || (objc > 2)) {

51473

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_64_67_gid_get { smNotice_data_details_ntc_64_67 * } ",-1);

51474

return TCL_ERROR;

51475

}

51476

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_64_67_p"))) {

51477

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_64_67_gid_get. Expected _smNotice_data_details_ntc_64_67_p, received ", -1);

51478

Tcl_AppendToObj(tcl_result, rettype, -1);

51479

return TCL_ERROR;

51480

}

51481

{

51482

/* we can check if IBIS was initialized here */

51483

if (!IbisObj.initialized)

51484

{

51485

Tcl_SetStringObj(

51486

Tcl_GetObjResult(interp),

51487

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51488

return TCL_ERROR;

51489

}

51490

51491

if (! IbisObj.port_guid)

51492

{

51493

Tcl_SetStringObj(

51494

Tcl_GetObjResult(interp),

51495

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51496

return TCL_ERROR;

51497

}

51498

51499

ibis_tcl_error = 0;

51500

_result = (ib_gid_t *)smNotice_data_details_ntc_64_67_gid_get(_arg0);

51501

;

51502

if (ibis_tcl_error) {

51503

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51504

return TCL_ERROR;

51505

}

51506

} tcl_result = Tcl_GetObjResult(interp);

51507

{

51508

char buff[38];

51509

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

51510

cl_ntoh64(_result->unicast.prefix),

51511

cl_ntoh64(_result->unicast.interface_id)

51512

);

51513

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

51514

}

51515

return TCL_OK;

51516

}

51517

/* methodcmd8.swg : Tcl8.x method invocation */

51518

51519

static int TclsmNotice_data_details_ntc_64_67MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

51520

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51521

char *_str;

51522

int rcode;

51523

Tcl_Obj **objv;

51524

Tcl_Obj *oldarg,*tcl_result,*obj;

51525

int length;

51526

char c;

51527

51528

tcl_result = Tcl_GetObjResult(interp);

51529

objv = (Tcl_Obj **) _objv;

51530

if (objc < 2) {

51531

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_64_67 methods : { dump cget configure }",-1);

51532

return TCL_ERROR;

51533

}

51534

obj = Tcl_NewObj();

51535

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_64_67_p");

51536

_str = Tcl_GetStringFromObj(objv[1],&length);

51537

c = *_str;

51538

if (0);

51539

51540

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

51541

int i = 2;

51542

cmd = 0;

51543

while (i+1 < objc) {

51544

_str = Tcl_GetStringFromObj(objv[i],&length);

51545

if (strcmp(_str,"-res") == 0) {

51546

cmd = _wrap_smNotice_data_details_ntc_64_67_res_set;

51547

} else if (strcmp(_str,"-gid") == 0) {

51548

cmd = _wrap_smNotice_data_details_ntc_64_67_gid_set;

51549

}

51550

if (cmd) {

51551

oldarg = objv[i];

51552

objv[i] = obj;

51553

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

51554

objv[i] = oldarg;

51555

if (rcode == TCL_ERROR) return rcode;

51556

cmd = 0;

51557

} else {

51558

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -res -gid }",-1);

51559

return TCL_ERROR;

51560

}

51561

i+=2;

51562

}

51563

if ((i < objc) || (i == 2)) {

51564

Tcl_SetStringObj(tcl_result,"{ -res -gid }",-1);

51565

return TCL_ERROR;

51566

}

51567

return TCL_OK;

51568

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

51569

if (objc == 3) {

51570

_str = Tcl_GetStringFromObj(objv[2],&length);

51571

if (0) {}

51572

if (strcmp(_str,"-res") == 0) {

51573

cmd = _wrap_smNotice_data_details_ntc_64_67_res_get;

51574

} else if (strcmp(_str,"-gid") == 0) {

51575

cmd = _wrap_smNotice_data_details_ntc_64_67_gid_get;

51576

}

51577

else if (strcmp(_str,"-this") == 0) {

51578

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_64_67_p");

51579

return TCL_OK;

51580

}

51581

if (cmd) {

51582

oldarg = objv[2];

51583

objv[2] = obj;

51584

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

51585

objv[2] = oldarg;

51586

return rcode;

51587

} else {

51588

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -res -gid }",-1);

51589

return TCL_ERROR;

51590

}

51591

} else {

51592

Tcl_SetStringObj(tcl_result,"{ -this -res -gid }", -1);

51593

return TCL_ERROR;

51594

}

51595

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

51596

if (objc == 2) {

51597

Tcl_Obj *pDumpObj;

51598

pDumpObj = Tcl_NewStringObj("",-1);

51599

Tcl_IncrRefCount(pDumpObj);

51600

cmd = _wrap_smNotice_data_details_ntc_64_67_res_get;

51601

oldarg = objv[2];

51602

objv[2] = obj;

51603

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

51604

objv[2] = oldarg;

51605

Tcl_AppendStringsToObj(pDumpObj, "-res ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

51606

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

51607

cmd = _wrap_smNotice_data_details_ntc_64_67_gid_get;

51608

oldarg = objv[2];

51609

objv[2] = obj;

51610

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

51611

objv[2] = oldarg;

51612

Tcl_AppendStringsToObj(pDumpObj, "-gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

51613

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

51614

51615

Tcl_DecrRefCount(pDumpObj);

51616

return TCL_OK;

51617

} else {

51618

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

51619

return TCL_ERROR;

51620

}

51621

}

51622

if (!cmd) {

51623

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

51624

return TCL_ERROR;

51625

}

51626

oldarg = objv[1];

51627

objv[1] = obj;

51628

rcode = (*cmd)(clientData,interp,objc,objv);

51629

objv[1] = oldarg;

51630

return rcode;

51631

}

51632

51633

51634

51635

/* objcmd8.swg : Tcl 8.x object creation */

51636

51637

static int TclsmNotice_data_details_ntc_64_67Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51638

void (*del)(ClientData) = 0;

51639

char *name = 0;

51640

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51641

smNotice_data_details_ntc_64_67 * newObj = 0;

51642

int firstarg = 0;

51643

int thisarg = 0;

51644

int length;

51645

char *_str;

51646

Tcl_Obj *tcl_result;

51647

51648

tcl_result = Tcl_GetObjResult(interp);

51649

if (objc == 1) {

51650

cmd = 0;

51651

} else {

51652

_str = Tcl_GetStringFromObj(objv[1],&length);

51653

if (strcmp(_str,"-this") == 0) thisarg = 2;

51654

else if (strcmp(_str,"-args") == 0) {

51655

firstarg = 1;

51656

cmd = 0;

51657

} else if (objc == 2) {

51658

firstarg = 1;

51659

name = _str;

51660

cmd = 0;

51661

} else if (objc >= 3) {

51662

name = _str;

51663

_str = Tcl_GetStringFromObj(objv[2],&length);

51664

if (strcmp(_str,"-this") == 0) thisarg = 3;

51665

else {

51666

firstarg = 1;

51667

cmd = 0;

51668

}

51669

}

51670

}

51671

if (cmd) {

51672

int result;

51673

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

51674

if (result == TCL_OK) {

51675

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_64_67_p");

51676

} else { return result; }

51677

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

51678

del = 0;

51679

} else if (thisarg > 0) {

51680

if (thisarg < objc) {

51681

char *r;

51682

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_64_67_p");

51683

if (r) {

51684

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_64_67 object.",-1);

51685

return TCL_ERROR;

51686

}

51687

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

51688

Tcl_SetStringObj(tcl_result,name,-1);

51689

} else {

51690

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

51691

return TCL_ERROR;

51692

}

51693

} else {

51694

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

51695

return TCL_ERROR;

51696

}

51697

{

51698

Tcl_CmdInfo dummy;

51699

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

51700

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_64_67MethodCmd, (ClientData) newObj, del);

51701

return TCL_OK;

51702

} else {

51703

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

51704

return TCL_ERROR;

51705

}

51706

}

51707

}

51708

51709

51710

#define smNotice_data_details_ntc_128_sw_lid_set(_swigobj,_swigval) (_swigobj->sw_lid = *(_swigval),_swigval)

51711

static int _wrap_smNotice_data_details_ntc_128_sw_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51712

51713

ib_net16_t * _result;

51714

smNotice_data_details_ntc_128 * _arg0;

51715

ib_net16_t * _arg1;

51716

Tcl_Obj * tcl_result;

51717

char * rettype;

51718

ib_net16_t temp;

51719

51720

clientData = clientData; objv = objv;

51721

tcl_result = Tcl_GetObjResult(interp);

51722

if ((objc < 3) || (objc > 3)) {

51723

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_128_sw_lid_set { smNotice_data_details_ntc_128 * } { ib_net16_t * } ",-1);

51724

return TCL_ERROR;

51725

}

51726

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_128_p"))) {

51727

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_128_sw_lid_set. Expected _smNotice_data_details_ntc_128_p, received ", -1);

51728

Tcl_AppendToObj(tcl_result, rettype, -1);

51729

return TCL_ERROR;

51730

}

51731

{

51732

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

51733

_arg1 = &temp;

51734

}

51735

{

51736

/* we can check if IBIS was initialized here */

51737

if (!IbisObj.initialized)

51738

{

51739

Tcl_SetStringObj(

51740

Tcl_GetObjResult(interp),

51741

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51742

return TCL_ERROR;

51743

}

51744

51745

if (! IbisObj.port_guid)

51746

{

51747

Tcl_SetStringObj(

51748

Tcl_GetObjResult(interp),

51749

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51750

return TCL_ERROR;

51751

}

51752

51753

ibis_tcl_error = 0;

51754

_result = (ib_net16_t *)smNotice_data_details_ntc_128_sw_lid_set(_arg0,_arg1);

51755

;

51756

if (ibis_tcl_error) {

51757

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51758

return TCL_ERROR;

51759

}

51760

} tcl_result = Tcl_GetObjResult(interp);

51761

{

51762

char buff[20];

51763

sprintf(buff, "%u", cl_hton16(*_result));

51764

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

51765

}

51766

return TCL_OK;

51767

}

51768

#define smNotice_data_details_ntc_128_sw_lid_get(_swigobj) (&_swigobj->sw_lid)

51769

static int _wrap_smNotice_data_details_ntc_128_sw_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51770

51771

ib_net16_t * _result;

51772

smNotice_data_details_ntc_128 * _arg0;

51773

Tcl_Obj * tcl_result;

51774

char * rettype;

51775

51776

clientData = clientData; objv = objv;

51777

tcl_result = Tcl_GetObjResult(interp);

51778

if ((objc < 2) || (objc > 2)) {

51779

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_128_sw_lid_get { smNotice_data_details_ntc_128 * } ",-1);

51780

return TCL_ERROR;

51781

}

51782

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_128_p"))) {

51783

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_128_sw_lid_get. Expected _smNotice_data_details_ntc_128_p, received ", -1);

51784

Tcl_AppendToObj(tcl_result, rettype, -1);

51785

return TCL_ERROR;

51786

}

51787

{

51788

/* we can check if IBIS was initialized here */

51789

if (!IbisObj.initialized)

51790

{

51791

Tcl_SetStringObj(

51792

Tcl_GetObjResult(interp),

51793

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

51794

return TCL_ERROR;

51795

}

51796

51797

if (! IbisObj.port_guid)

51798

{

51799

Tcl_SetStringObj(

51800

Tcl_GetObjResult(interp),

51801

" ibis was not yet initialized. please use ibis_set_port before.", -1);

51802

return TCL_ERROR;

51803

}

51804

51805

ibis_tcl_error = 0;

51806

_result = (ib_net16_t *)smNotice_data_details_ntc_128_sw_lid_get(_arg0);

51807

;

51808

if (ibis_tcl_error) {

51809

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

51810

return TCL_ERROR;

51811

}

51812

} tcl_result = Tcl_GetObjResult(interp);

51813

{

51814

char buff[20];

51815

sprintf(buff, "%u", cl_hton16(*_result));

51816

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

51817

}

51818

return TCL_OK;

51819

}

51820

/* methodcmd8.swg : Tcl8.x method invocation */

51821

51822

static int TclsmNotice_data_details_ntc_128MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

51823

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51824

char *_str;

51825

int rcode;

51826

Tcl_Obj **objv;

51827

Tcl_Obj *oldarg,*tcl_result,*obj;

51828

int length;

51829

char c;

51830

51831

tcl_result = Tcl_GetObjResult(interp);

51832

objv = (Tcl_Obj **) _objv;

51833

if (objc < 2) {

51834

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_128 methods : { dump cget configure }",-1);

51835

return TCL_ERROR;

51836

}

51837

obj = Tcl_NewObj();

51838

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_128_p");

51839

_str = Tcl_GetStringFromObj(objv[1],&length);

51840

c = *_str;

51841

if (0);

51842

51843

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

51844

int i = 2;

51845

cmd = 0;

51846

while (i+1 < objc) {

51847

_str = Tcl_GetStringFromObj(objv[i],&length);

51848

if (strcmp(_str,"-sw_lid") == 0) {

51849

cmd = _wrap_smNotice_data_details_ntc_128_sw_lid_set;

51850

}

51851

if (cmd) {

51852

oldarg = objv[i];

51853

objv[i] = obj;

51854

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

51855

objv[i] = oldarg;

51856

if (rcode == TCL_ERROR) return rcode;

51857

cmd = 0;

51858

} else {

51859

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -sw_lid }",-1);

51860

return TCL_ERROR;

51861

}

51862

i+=2;

51863

}

51864

if ((i < objc) || (i == 2)) {

51865

Tcl_SetStringObj(tcl_result,"{ -sw_lid }",-1);

51866

return TCL_ERROR;

51867

}

51868

return TCL_OK;

51869

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

51870

if (objc == 3) {

51871

_str = Tcl_GetStringFromObj(objv[2],&length);

51872

if (0) {}

51873

if (strcmp(_str,"-sw_lid") == 0) {

51874

cmd = _wrap_smNotice_data_details_ntc_128_sw_lid_get;

51875

}

51876

else if (strcmp(_str,"-this") == 0) {

51877

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_128_p");

51878

return TCL_OK;

51879

}

51880

if (cmd) {

51881

oldarg = objv[2];

51882

objv[2] = obj;

51883

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

51884

objv[2] = oldarg;

51885

return rcode;

51886

} else {

51887

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -sw_lid }",-1);

51888

return TCL_ERROR;

51889

}

51890

} else {

51891

Tcl_SetStringObj(tcl_result,"{ -this -sw_lid }", -1);

51892

return TCL_ERROR;

51893

}

51894

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

51895

if (objc == 2) {

51896

Tcl_Obj *pDumpObj;

51897

pDumpObj = Tcl_NewStringObj("",-1);

51898

Tcl_IncrRefCount(pDumpObj);

51899

cmd = _wrap_smNotice_data_details_ntc_128_sw_lid_get;

51900

oldarg = objv[2];

51901

objv[2] = obj;

51902

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

51903

objv[2] = oldarg;

51904

Tcl_AppendStringsToObj(pDumpObj, "-sw_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

51905

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

51906

51907

Tcl_DecrRefCount(pDumpObj);

51908

return TCL_OK;

51909

} else {

51910

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

51911

return TCL_ERROR;

51912

}

51913

}

51914

if (!cmd) {

51915

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

51916

return TCL_ERROR;

51917

}

51918

oldarg = objv[1];

51919

objv[1] = obj;

51920

rcode = (*cmd)(clientData,interp,objc,objv);

51921

objv[1] = oldarg;

51922

return rcode;

51923

}

51924

51925

51926

51927

/* objcmd8.swg : Tcl 8.x object creation */

51928

51929

static int TclsmNotice_data_details_ntc_128Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

51930

void (*del)(ClientData) = 0;

51931

char *name = 0;

51932

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

51933

smNotice_data_details_ntc_128 * newObj = 0;

51934

int firstarg = 0;

51935

int thisarg = 0;

51936

int length;

51937

char *_str;

51938

Tcl_Obj *tcl_result;

51939

51940

tcl_result = Tcl_GetObjResult(interp);

51941

if (objc == 1) {

51942

cmd = 0;

51943

} else {

51944

_str = Tcl_GetStringFromObj(objv[1],&length);

51945

if (strcmp(_str,"-this") == 0) thisarg = 2;

51946

else if (strcmp(_str,"-args") == 0) {

51947

firstarg = 1;

51948

cmd = 0;

51949

} else if (objc == 2) {

51950

firstarg = 1;

51951

name = _str;

51952

cmd = 0;

51953

} else if (objc >= 3) {

51954

name = _str;

51955

_str = Tcl_GetStringFromObj(objv[2],&length);

51956

if (strcmp(_str,"-this") == 0) thisarg = 3;

51957

else {

51958

firstarg = 1;

51959

cmd = 0;

51960

}

51961

}

51962

}

51963

if (cmd) {

51964

int result;

51965

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

51966

if (result == TCL_OK) {

51967

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_128_p");

51968

} else { return result; }

51969

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

51970

del = 0;

51971

} else if (thisarg > 0) {

51972

if (thisarg < objc) {

51973

char *r;

51974

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_128_p");

51975

if (r) {

51976

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_128 object.",-1);

51977

return TCL_ERROR;

51978

}

51979

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

51980

Tcl_SetStringObj(tcl_result,name,-1);

51981

} else {

51982

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

51983

return TCL_ERROR;

51984

}

51985

} else {

51986

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

51987

return TCL_ERROR;

51988

}

51989

{

51990

Tcl_CmdInfo dummy;

51991

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

51992

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_128MethodCmd, (ClientData) newObj, del);

51993

return TCL_OK;

51994

} else {

51995

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

51996

return TCL_ERROR;

51997

}

51998

}

51999

}

52000

52001

52002

#define smNotice_data_details_ntc_129_131_pad_set(_swigobj,_swigval) (_swigobj->pad = *(_swigval),_swigval)

52003

static int _wrap_smNotice_data_details_ntc_129_131_pad_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52004

52005

ib_net16_t * _result;

52006

smNotice_data_details_ntc_129_131 * _arg0;

52007

ib_net16_t * _arg1;

52008

Tcl_Obj * tcl_result;

52009

char * rettype;

52010

ib_net16_t temp;

52011

52012

clientData = clientData; objv = objv;

52013

tcl_result = Tcl_GetObjResult(interp);

52014

if ((objc < 3) || (objc > 3)) {

52015

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_pad_set { smNotice_data_details_ntc_129_131 * } { ib_net16_t * } ",-1);

52016

return TCL_ERROR;

52017

}

52018

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52019

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_pad_set. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52020

Tcl_AppendToObj(tcl_result, rettype, -1);

52021

return TCL_ERROR;

52022

}

52023

{

52024

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52025

_arg1 = &temp;

52026

}

52027

{

52028

/* we can check if IBIS was initialized here */

52029

if (!IbisObj.initialized)

52030

{

52031

Tcl_SetStringObj(

52032

Tcl_GetObjResult(interp),

52033

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52034

return TCL_ERROR;

52035

}

52036

52037

if (! IbisObj.port_guid)

52038

{

52039

Tcl_SetStringObj(

52040

Tcl_GetObjResult(interp),

52041

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52042

return TCL_ERROR;

52043

}

52044

52045

ibis_tcl_error = 0;

52046

_result = (ib_net16_t *)smNotice_data_details_ntc_129_131_pad_set(_arg0,_arg1);

52047

;

52048

if (ibis_tcl_error) {

52049

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52050

return TCL_ERROR;

52051

}

52052

} tcl_result = Tcl_GetObjResult(interp);

52053

{

52054

char buff[20];

52055

sprintf(buff, "%u", cl_hton16(*_result));

52056

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52057

}

52058

return TCL_OK;

52059

}

52060

#define smNotice_data_details_ntc_129_131_pad_get(_swigobj) (&_swigobj->pad)

52061

static int _wrap_smNotice_data_details_ntc_129_131_pad_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52062

52063

ib_net16_t * _result;

52064

smNotice_data_details_ntc_129_131 * _arg0;

52065

Tcl_Obj * tcl_result;

52066

char * rettype;

52067

52068

clientData = clientData; objv = objv;

52069

tcl_result = Tcl_GetObjResult(interp);

52070

if ((objc < 2) || (objc > 2)) {

52071

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_pad_get { smNotice_data_details_ntc_129_131 * } ",-1);

52072

return TCL_ERROR;

52073

}

52074

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52075

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_pad_get. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52076

Tcl_AppendToObj(tcl_result, rettype, -1);

52077

return TCL_ERROR;

52078

}

52079

{

52080

/* we can check if IBIS was initialized here */

52081

if (!IbisObj.initialized)

52082

{

52083

Tcl_SetStringObj(

52084

Tcl_GetObjResult(interp),

52085

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52086

return TCL_ERROR;

52087

}

52088

52089

if (! IbisObj.port_guid)

52090

{

52091

Tcl_SetStringObj(

52092

Tcl_GetObjResult(interp),

52093

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52094

return TCL_ERROR;

52095

}

52096

52097

ibis_tcl_error = 0;

52098

_result = (ib_net16_t *)smNotice_data_details_ntc_129_131_pad_get(_arg0);

52099

;

52100

if (ibis_tcl_error) {

52101

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52102

return TCL_ERROR;

52103

}

52104

} tcl_result = Tcl_GetObjResult(interp);

52105

{

52106

char buff[20];

52107

sprintf(buff, "%u", cl_hton16(*_result));

52108

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52109

}

52110

return TCL_OK;

52111

}

52112

#define smNotice_data_details_ntc_129_131_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

52113

static int _wrap_smNotice_data_details_ntc_129_131_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52114

52115

ib_net16_t * _result;

52116

smNotice_data_details_ntc_129_131 * _arg0;

52117

ib_net16_t * _arg1;

52118

Tcl_Obj * tcl_result;

52119

char * rettype;

52120

ib_net16_t temp;

52121

52122

clientData = clientData; objv = objv;

52123

tcl_result = Tcl_GetObjResult(interp);

52124

if ((objc < 3) || (objc > 3)) {

52125

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_lid_set { smNotice_data_details_ntc_129_131 * } { ib_net16_t * } ",-1);

52126

return TCL_ERROR;

52127

}

52128

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52129

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_lid_set. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52130

Tcl_AppendToObj(tcl_result, rettype, -1);

52131

return TCL_ERROR;

52132

}

52133

{

52134

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52135

_arg1 = &temp;

52136

}

52137

{

52138

/* we can check if IBIS was initialized here */

52139

if (!IbisObj.initialized)

52140

{

52141

Tcl_SetStringObj(

52142

Tcl_GetObjResult(interp),

52143

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52144

return TCL_ERROR;

52145

}

52146

52147

if (! IbisObj.port_guid)

52148

{

52149

Tcl_SetStringObj(

52150

Tcl_GetObjResult(interp),

52151

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52152

return TCL_ERROR;

52153

}

52154

52155

ibis_tcl_error = 0;

52156

_result = (ib_net16_t *)smNotice_data_details_ntc_129_131_lid_set(_arg0,_arg1);

52157

;

52158

if (ibis_tcl_error) {

52159

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52160

return TCL_ERROR;

52161

}

52162

} tcl_result = Tcl_GetObjResult(interp);

52163

{

52164

char buff[20];

52165

sprintf(buff, "%u", cl_hton16(*_result));

52166

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52167

}

52168

return TCL_OK;

52169

}

52170

#define smNotice_data_details_ntc_129_131_lid_get(_swigobj) (&_swigobj->lid)

52171

static int _wrap_smNotice_data_details_ntc_129_131_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52172

52173

ib_net16_t * _result;

52174

smNotice_data_details_ntc_129_131 * _arg0;

52175

Tcl_Obj * tcl_result;

52176

char * rettype;

52177

52178

clientData = clientData; objv = objv;

52179

tcl_result = Tcl_GetObjResult(interp);

52180

if ((objc < 2) || (objc > 2)) {

52181

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_lid_get { smNotice_data_details_ntc_129_131 * } ",-1);

52182

return TCL_ERROR;

52183

}

52184

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52185

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_lid_get. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52186

Tcl_AppendToObj(tcl_result, rettype, -1);

52187

return TCL_ERROR;

52188

}

52189

{

52190

/* we can check if IBIS was initialized here */

52191

if (!IbisObj.initialized)

52192

{

52193

Tcl_SetStringObj(

52194

Tcl_GetObjResult(interp),

52195

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52196

return TCL_ERROR;

52197

}

52198

52199

if (! IbisObj.port_guid)

52200

{

52201

Tcl_SetStringObj(

52202

Tcl_GetObjResult(interp),

52203

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52204

return TCL_ERROR;

52205

}

52206

52207

ibis_tcl_error = 0;

52208

_result = (ib_net16_t *)smNotice_data_details_ntc_129_131_lid_get(_arg0);

52209

;

52210

if (ibis_tcl_error) {

52211

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52212

return TCL_ERROR;

52213

}

52214

} tcl_result = Tcl_GetObjResult(interp);

52215

{

52216

char buff[20];

52217

sprintf(buff, "%u", cl_hton16(*_result));

52218

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52219

}

52220

return TCL_OK;

52221

}

52222

#define smNotice_data_details_ntc_129_131_port_num_set(_swigobj,_swigval) (_swigobj->port_num = *(_swigval),_swigval)

52223

static int _wrap_smNotice_data_details_ntc_129_131_port_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52224

52225

uint8_t * _result;

52226

smNotice_data_details_ntc_129_131 * _arg0;

52227

uint8_t * _arg1;

52228

Tcl_Obj * tcl_result;

52229

char * rettype;

52230

uint8_t temp;

52231

52232

clientData = clientData; objv = objv;

52233

tcl_result = Tcl_GetObjResult(interp);

52234

if ((objc < 3) || (objc > 3)) {

52235

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_port_num_set { smNotice_data_details_ntc_129_131 * } { uint8_t * } ",-1);

52236

return TCL_ERROR;

52237

}

52238

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52239

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_port_num_set. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52240

Tcl_AppendToObj(tcl_result, rettype, -1);

52241

return TCL_ERROR;

52242

}

52243

{

52244

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

52245

_arg1 = &temp;

52246

}

52247

{

52248

/* we can check if IBIS was initialized here */

52249

if (!IbisObj.initialized)

52250

{

52251

Tcl_SetStringObj(

52252

Tcl_GetObjResult(interp),

52253

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52254

return TCL_ERROR;

52255

}

52256

52257

if (! IbisObj.port_guid)

52258

{

52259

Tcl_SetStringObj(

52260

Tcl_GetObjResult(interp),

52261

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52262

return TCL_ERROR;

52263

}

52264

52265

ibis_tcl_error = 0;

52266

_result = (uint8_t *)smNotice_data_details_ntc_129_131_port_num_set(_arg0,_arg1);

52267

;

52268

if (ibis_tcl_error) {

52269

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52270

return TCL_ERROR;

52271

}

52272

} tcl_result = Tcl_GetObjResult(interp);

52273

{

52274

char buff[20];

52275

sprintf(buff, "%u", *_result);

52276

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52277

}

52278

return TCL_OK;

52279

}

52280

#define smNotice_data_details_ntc_129_131_port_num_get(_swigobj) (&_swigobj->port_num)

52281

static int _wrap_smNotice_data_details_ntc_129_131_port_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52282

52283

uint8_t * _result;

52284

smNotice_data_details_ntc_129_131 * _arg0;

52285

Tcl_Obj * tcl_result;

52286

char * rettype;

52287

52288

clientData = clientData; objv = objv;

52289

tcl_result = Tcl_GetObjResult(interp);

52290

if ((objc < 2) || (objc > 2)) {

52291

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_129_131_port_num_get { smNotice_data_details_ntc_129_131 * } ",-1);

52292

return TCL_ERROR;

52293

}

52294

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_129_131_p"))) {

52295

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_129_131_port_num_get. Expected _smNotice_data_details_ntc_129_131_p, received ", -1);

52296

Tcl_AppendToObj(tcl_result, rettype, -1);

52297

return TCL_ERROR;

52298

}

52299

{

52300

/* we can check if IBIS was initialized here */

52301

if (!IbisObj.initialized)

52302

{

52303

Tcl_SetStringObj(

52304

Tcl_GetObjResult(interp),

52305

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52306

return TCL_ERROR;

52307

}

52308

52309

if (! IbisObj.port_guid)

52310

{

52311

Tcl_SetStringObj(

52312

Tcl_GetObjResult(interp),

52313

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52314

return TCL_ERROR;

52315

}

52316

52317

ibis_tcl_error = 0;

52318

_result = (uint8_t *)smNotice_data_details_ntc_129_131_port_num_get(_arg0);

52319

;

52320

if (ibis_tcl_error) {

52321

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52322

return TCL_ERROR;

52323

}

52324

} tcl_result = Tcl_GetObjResult(interp);

52325

{

52326

char buff[20];

52327

sprintf(buff, "%u", *_result);

52328

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52329

}

52330

return TCL_OK;

52331

}

52332

/* methodcmd8.swg : Tcl8.x method invocation */

52333

52334

static int TclsmNotice_data_details_ntc_129_131MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

52335

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

52336

char *_str;

52337

int rcode;

52338

Tcl_Obj **objv;

52339

Tcl_Obj *oldarg,*tcl_result,*obj;

52340

int length;

52341

char c;

52342

52343

tcl_result = Tcl_GetObjResult(interp);

52344

objv = (Tcl_Obj **) _objv;

52345

if (objc < 2) {

52346

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_129_131 methods : { dump cget configure }",-1);

52347

return TCL_ERROR;

52348

}

52349

obj = Tcl_NewObj();

52350

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_129_131_p");

52351

_str = Tcl_GetStringFromObj(objv[1],&length);

52352

c = *_str;

52353

if (0);

52354

52355

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

52356

int i = 2;

52357

cmd = 0;

52358

while (i+1 < objc) {

52359

_str = Tcl_GetStringFromObj(objv[i],&length);

52360

if (strcmp(_str,"-pad") == 0) {

52361

cmd = _wrap_smNotice_data_details_ntc_129_131_pad_set;

52362

} else if (strcmp(_str,"-lid") == 0) {

52363

cmd = _wrap_smNotice_data_details_ntc_129_131_lid_set;

52364

} else if (strcmp(_str,"-port_num") == 0) {

52365

cmd = _wrap_smNotice_data_details_ntc_129_131_port_num_set;

52366

}

52367

if (cmd) {

52368

oldarg = objv[i];

52369

objv[i] = obj;

52370

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

52371

objv[i] = oldarg;

52372

if (rcode == TCL_ERROR) return rcode;

52373

cmd = 0;

52374

} else {

52375

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pad -lid -port_num }",-1);

52376

return TCL_ERROR;

52377

}

52378

i+=2;

52379

}

52380

if ((i < objc) || (i == 2)) {

52381

Tcl_SetStringObj(tcl_result,"{ -pad -lid -port_num }",-1);

52382

return TCL_ERROR;

52383

}

52384

return TCL_OK;

52385

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

52386

if (objc == 3) {

52387

_str = Tcl_GetStringFromObj(objv[2],&length);

52388

if (0) {}

52389

if (strcmp(_str,"-pad") == 0) {

52390

cmd = _wrap_smNotice_data_details_ntc_129_131_pad_get;

52391

} else if (strcmp(_str,"-lid") == 0) {

52392

cmd = _wrap_smNotice_data_details_ntc_129_131_lid_get;

52393

} else if (strcmp(_str,"-port_num") == 0) {

52394

cmd = _wrap_smNotice_data_details_ntc_129_131_port_num_get;

52395

}

52396

else if (strcmp(_str,"-this") == 0) {

52397

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_129_131_p");

52398

return TCL_OK;

52399

}

52400

if (cmd) {

52401

oldarg = objv[2];

52402

objv[2] = obj;

52403

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

52404

objv[2] = oldarg;

52405

return rcode;

52406

} else {

52407

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pad -lid -port_num }",-1);

52408

return TCL_ERROR;

52409

}

52410

} else {

52411

Tcl_SetStringObj(tcl_result,"{ -this -pad -lid -port_num }", -1);

52412

return TCL_ERROR;

52413

}

52414

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

52415

if (objc == 2) {

52416

Tcl_Obj *pDumpObj;

52417

pDumpObj = Tcl_NewStringObj("",-1);

52418

Tcl_IncrRefCount(pDumpObj);

52419

cmd = _wrap_smNotice_data_details_ntc_129_131_pad_get;

52420

oldarg = objv[2];

52421

objv[2] = obj;

52422

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

52423

objv[2] = oldarg;

52424

Tcl_AppendStringsToObj(pDumpObj, "-pad ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

52425

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

52426

cmd = _wrap_smNotice_data_details_ntc_129_131_lid_get;

52427

oldarg = objv[2];

52428

objv[2] = obj;

52429

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

52430

objv[2] = oldarg;

52431

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

52432

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

52433

cmd = _wrap_smNotice_data_details_ntc_129_131_port_num_get;

52434

oldarg = objv[2];

52435

objv[2] = obj;

52436

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

52437

objv[2] = oldarg;

52438

Tcl_AppendStringsToObj(pDumpObj, "-port_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

52439

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

52440

52441

Tcl_DecrRefCount(pDumpObj);

52442

return TCL_OK;

52443

} else {

52444

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

52445

return TCL_ERROR;

52446

}

52447

}

52448

if (!cmd) {

52449

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

52450

return TCL_ERROR;

52451

}

52452

oldarg = objv[1];

52453

objv[1] = obj;

52454

rcode = (*cmd)(clientData,interp,objc,objv);

52455

objv[1] = oldarg;

52456

return rcode;

52457

}

52458

52459

52460

52461

/* objcmd8.swg : Tcl 8.x object creation */

52462

52463

static int TclsmNotice_data_details_ntc_129_131Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52464

void (*del)(ClientData) = 0;

52465

char *name = 0;

52466

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

52467

smNotice_data_details_ntc_129_131 * newObj = 0;

52468

int firstarg = 0;

52469

int thisarg = 0;

52470

int length;

52471

char *_str;

52472

Tcl_Obj *tcl_result;

52473

52474

tcl_result = Tcl_GetObjResult(interp);

52475

if (objc == 1) {

52476

cmd = 0;

52477

} else {

52478

_str = Tcl_GetStringFromObj(objv[1],&length);

52479

if (strcmp(_str,"-this") == 0) thisarg = 2;

52480

else if (strcmp(_str,"-args") == 0) {

52481

firstarg = 1;

52482

cmd = 0;

52483

} else if (objc == 2) {

52484

firstarg = 1;

52485

name = _str;

52486

cmd = 0;

52487

} else if (objc >= 3) {

52488

name = _str;

52489

_str = Tcl_GetStringFromObj(objv[2],&length);

52490

if (strcmp(_str,"-this") == 0) thisarg = 3;

52491

else {

52492

firstarg = 1;

52493

cmd = 0;

52494

}

52495

}

52496

}

52497

if (cmd) {

52498

int result;

52499

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

52500

if (result == TCL_OK) {

52501

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_129_131_p");

52502

} else { return result; }

52503

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

52504

del = 0;

52505

} else if (thisarg > 0) {

52506

if (thisarg < objc) {

52507

char *r;

52508

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_129_131_p");

52509

if (r) {

52510

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_129_131 object.",-1);

52511

return TCL_ERROR;

52512

}

52513

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

52514

Tcl_SetStringObj(tcl_result,name,-1);

52515

} else {

52516

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

52517

return TCL_ERROR;

52518

}

52519

} else {

52520

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

52521

return TCL_ERROR;

52522

}

52523

{

52524

Tcl_CmdInfo dummy;

52525

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

52526

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_129_131MethodCmd, (ClientData) newObj, del);

52527

return TCL_OK;

52528

} else {

52529

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

52530

return TCL_ERROR;

52531

}

52532

}

52533

}

52534

52535

52536

#define smNotice_data_details_ntc_144_pad1_set(_swigobj,_swigval) (_swigobj->pad1 = *(_swigval),_swigval)

52537

static int _wrap_smNotice_data_details_ntc_144_pad1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52538

52539

ib_net16_t * _result;

52540

smNotice_data_details_ntc_144 * _arg0;

52541

ib_net16_t * _arg1;

52542

Tcl_Obj * tcl_result;

52543

char * rettype;

52544

ib_net16_t temp;

52545

52546

clientData = clientData; objv = objv;

52547

tcl_result = Tcl_GetObjResult(interp);

52548

if ((objc < 3) || (objc > 3)) {

52549

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_pad1_set { smNotice_data_details_ntc_144 * } { ib_net16_t * } ",-1);

52550

return TCL_ERROR;

52551

}

52552

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52553

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_pad1_set. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52554

Tcl_AppendToObj(tcl_result, rettype, -1);

52555

return TCL_ERROR;

52556

}

52557

{

52558

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52559

_arg1 = &temp;

52560

}

52561

{

52562

/* we can check if IBIS was initialized here */

52563

if (!IbisObj.initialized)

52564

{

52565

Tcl_SetStringObj(

52566

Tcl_GetObjResult(interp),

52567

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52568

return TCL_ERROR;

52569

}

52570

52571

if (! IbisObj.port_guid)

52572

{

52573

Tcl_SetStringObj(

52574

Tcl_GetObjResult(interp),

52575

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52576

return TCL_ERROR;

52577

}

52578

52579

ibis_tcl_error = 0;

52580

_result = (ib_net16_t *)smNotice_data_details_ntc_144_pad1_set(_arg0,_arg1);

52581

;

52582

if (ibis_tcl_error) {

52583

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52584

return TCL_ERROR;

52585

}

52586

} tcl_result = Tcl_GetObjResult(interp);

52587

{

52588

char buff[20];

52589

sprintf(buff, "%u", cl_hton16(*_result));

52590

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52591

}

52592

return TCL_OK;

52593

}

52594

#define smNotice_data_details_ntc_144_pad1_get(_swigobj) (&_swigobj->pad1)

52595

static int _wrap_smNotice_data_details_ntc_144_pad1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52596

52597

ib_net16_t * _result;

52598

smNotice_data_details_ntc_144 * _arg0;

52599

Tcl_Obj * tcl_result;

52600

char * rettype;

52601

52602

clientData = clientData; objv = objv;

52603

tcl_result = Tcl_GetObjResult(interp);

52604

if ((objc < 2) || (objc > 2)) {

52605

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_pad1_get { smNotice_data_details_ntc_144 * } ",-1);

52606

return TCL_ERROR;

52607

}

52608

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52609

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_pad1_get. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52610

Tcl_AppendToObj(tcl_result, rettype, -1);

52611

return TCL_ERROR;

52612

}

52613

{

52614

/* we can check if IBIS was initialized here */

52615

if (!IbisObj.initialized)

52616

{

52617

Tcl_SetStringObj(

52618

Tcl_GetObjResult(interp),

52619

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52620

return TCL_ERROR;

52621

}

52622

52623

if (! IbisObj.port_guid)

52624

{

52625

Tcl_SetStringObj(

52626

Tcl_GetObjResult(interp),

52627

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52628

return TCL_ERROR;

52629

}

52630

52631

ibis_tcl_error = 0;

52632

_result = (ib_net16_t *)smNotice_data_details_ntc_144_pad1_get(_arg0);

52633

;

52634

if (ibis_tcl_error) {

52635

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52636

return TCL_ERROR;

52637

}

52638

} tcl_result = Tcl_GetObjResult(interp);

52639

{

52640

char buff[20];

52641

sprintf(buff, "%u", cl_hton16(*_result));

52642

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52643

}

52644

return TCL_OK;

52645

}

52646

#define smNotice_data_details_ntc_144_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

52647

static int _wrap_smNotice_data_details_ntc_144_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52648

52649

ib_net16_t * _result;

52650

smNotice_data_details_ntc_144 * _arg0;

52651

ib_net16_t * _arg1;

52652

Tcl_Obj * tcl_result;

52653

char * rettype;

52654

ib_net16_t temp;

52655

52656

clientData = clientData; objv = objv;

52657

tcl_result = Tcl_GetObjResult(interp);

52658

if ((objc < 3) || (objc > 3)) {

52659

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_lid_set { smNotice_data_details_ntc_144 * } { ib_net16_t * } ",-1);

52660

return TCL_ERROR;

52661

}

52662

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52663

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_lid_set. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52664

Tcl_AppendToObj(tcl_result, rettype, -1);

52665

return TCL_ERROR;

52666

}

52667

{

52668

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52669

_arg1 = &temp;

52670

}

52671

{

52672

/* we can check if IBIS was initialized here */

52673

if (!IbisObj.initialized)

52674

{

52675

Tcl_SetStringObj(

52676

Tcl_GetObjResult(interp),

52677

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52678

return TCL_ERROR;

52679

}

52680

52681

if (! IbisObj.port_guid)

52682

{

52683

Tcl_SetStringObj(

52684

Tcl_GetObjResult(interp),

52685

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52686

return TCL_ERROR;

52687

}

52688

52689

ibis_tcl_error = 0;

52690

_result = (ib_net16_t *)smNotice_data_details_ntc_144_lid_set(_arg0,_arg1);

52691

;

52692

if (ibis_tcl_error) {

52693

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52694

return TCL_ERROR;

52695

}

52696

} tcl_result = Tcl_GetObjResult(interp);

52697

{

52698

char buff[20];

52699

sprintf(buff, "%u", cl_hton16(*_result));

52700

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52701

}

52702

return TCL_OK;

52703

}

52704

#define smNotice_data_details_ntc_144_lid_get(_swigobj) (&_swigobj->lid)

52705

static int _wrap_smNotice_data_details_ntc_144_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52706

52707

ib_net16_t * _result;

52708

smNotice_data_details_ntc_144 * _arg0;

52709

Tcl_Obj * tcl_result;

52710

char * rettype;

52711

52712

clientData = clientData; objv = objv;

52713

tcl_result = Tcl_GetObjResult(interp);

52714

if ((objc < 2) || (objc > 2)) {

52715

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_lid_get { smNotice_data_details_ntc_144 * } ",-1);

52716

return TCL_ERROR;

52717

}

52718

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52719

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_lid_get. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52720

Tcl_AppendToObj(tcl_result, rettype, -1);

52721

return TCL_ERROR;

52722

}

52723

{

52724

/* we can check if IBIS was initialized here */

52725

if (!IbisObj.initialized)

52726

{

52727

Tcl_SetStringObj(

52728

Tcl_GetObjResult(interp),

52729

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52730

return TCL_ERROR;

52731

}

52732

52733

if (! IbisObj.port_guid)

52734

{

52735

Tcl_SetStringObj(

52736

Tcl_GetObjResult(interp),

52737

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52738

return TCL_ERROR;

52739

}

52740

52741

ibis_tcl_error = 0;

52742

_result = (ib_net16_t *)smNotice_data_details_ntc_144_lid_get(_arg0);

52743

;

52744

if (ibis_tcl_error) {

52745

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52746

return TCL_ERROR;

52747

}

52748

} tcl_result = Tcl_GetObjResult(interp);

52749

{

52750

char buff[20];

52751

sprintf(buff, "%u", cl_hton16(*_result));

52752

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52753

}

52754

return TCL_OK;

52755

}

52756

#define smNotice_data_details_ntc_144_pad2_set(_swigobj,_swigval) (_swigobj->pad2 = *(_swigval),_swigval)

52757

static int _wrap_smNotice_data_details_ntc_144_pad2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52758

52759

ib_net16_t * _result;

52760

smNotice_data_details_ntc_144 * _arg0;

52761

ib_net16_t * _arg1;

52762

Tcl_Obj * tcl_result;

52763

char * rettype;

52764

ib_net16_t temp;

52765

52766

clientData = clientData; objv = objv;

52767

tcl_result = Tcl_GetObjResult(interp);

52768

if ((objc < 3) || (objc > 3)) {

52769

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_pad2_set { smNotice_data_details_ntc_144 * } { ib_net16_t * } ",-1);

52770

return TCL_ERROR;

52771

}

52772

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52773

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_pad2_set. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52774

Tcl_AppendToObj(tcl_result, rettype, -1);

52775

return TCL_ERROR;

52776

}

52777

{

52778

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52779

_arg1 = &temp;

52780

}

52781

{

52782

/* we can check if IBIS was initialized here */

52783

if (!IbisObj.initialized)

52784

{

52785

Tcl_SetStringObj(

52786

Tcl_GetObjResult(interp),

52787

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52788

return TCL_ERROR;

52789

}

52790

52791

if (! IbisObj.port_guid)

52792

{

52793

Tcl_SetStringObj(

52794

Tcl_GetObjResult(interp),

52795

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52796

return TCL_ERROR;

52797

}

52798

52799

ibis_tcl_error = 0;

52800

_result = (ib_net16_t *)smNotice_data_details_ntc_144_pad2_set(_arg0,_arg1);

52801

;

52802

if (ibis_tcl_error) {

52803

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52804

return TCL_ERROR;

52805

}

52806

} tcl_result = Tcl_GetObjResult(interp);

52807

{

52808

char buff[20];

52809

sprintf(buff, "%u", cl_hton16(*_result));

52810

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52811

}

52812

return TCL_OK;

52813

}

52814

#define smNotice_data_details_ntc_144_pad2_get(_swigobj) (&_swigobj->pad2)

52815

static int _wrap_smNotice_data_details_ntc_144_pad2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52816

52817

ib_net16_t * _result;

52818

smNotice_data_details_ntc_144 * _arg0;

52819

Tcl_Obj * tcl_result;

52820

char * rettype;

52821

52822

clientData = clientData; objv = objv;

52823

tcl_result = Tcl_GetObjResult(interp);

52824

if ((objc < 2) || (objc > 2)) {

52825

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_pad2_get { smNotice_data_details_ntc_144 * } ",-1);

52826

return TCL_ERROR;

52827

}

52828

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52829

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_pad2_get. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52830

Tcl_AppendToObj(tcl_result, rettype, -1);

52831

return TCL_ERROR;

52832

}

52833

{

52834

/* we can check if IBIS was initialized here */

52835

if (!IbisObj.initialized)

52836

{

52837

Tcl_SetStringObj(

52838

Tcl_GetObjResult(interp),

52839

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52840

return TCL_ERROR;

52841

}

52842

52843

if (! IbisObj.port_guid)

52844

{

52845

Tcl_SetStringObj(

52846

Tcl_GetObjResult(interp),

52847

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52848

return TCL_ERROR;

52849

}

52850

52851

ibis_tcl_error = 0;

52852

_result = (ib_net16_t *)smNotice_data_details_ntc_144_pad2_get(_arg0);

52853

;

52854

if (ibis_tcl_error) {

52855

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52856

return TCL_ERROR;

52857

}

52858

} tcl_result = Tcl_GetObjResult(interp);

52859

{

52860

char buff[20];

52861

sprintf(buff, "%u", cl_hton16(*_result));

52862

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52863

}

52864

return TCL_OK;

52865

}

52866

#define smNotice_data_details_ntc_144_new_cap_mask_set(_swigobj,_swigval) (_swigobj->new_cap_mask = *(_swigval),_swigval)

52867

static int _wrap_smNotice_data_details_ntc_144_new_cap_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52868

52869

ib_net32_t * _result;

52870

smNotice_data_details_ntc_144 * _arg0;

52871

ib_net32_t * _arg1;

52872

Tcl_Obj * tcl_result;

52873

char * rettype;

52874

ib_net32_t temp;

52875

52876

clientData = clientData; objv = objv;

52877

tcl_result = Tcl_GetObjResult(interp);

52878

if ((objc < 3) || (objc > 3)) {

52879

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_new_cap_mask_set { smNotice_data_details_ntc_144 * } { ib_net32_t * } ",-1);

52880

return TCL_ERROR;

52881

}

52882

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52883

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_new_cap_mask_set. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52884

Tcl_AppendToObj(tcl_result, rettype, -1);

52885

return TCL_ERROR;

52886

}

52887

{

52888

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

52889

_arg1 = &temp;

52890

}

52891

{

52892

/* we can check if IBIS was initialized here */

52893

if (!IbisObj.initialized)

52894

{

52895

Tcl_SetStringObj(

52896

Tcl_GetObjResult(interp),

52897

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52898

return TCL_ERROR;

52899

}

52900

52901

if (! IbisObj.port_guid)

52902

{

52903

Tcl_SetStringObj(

52904

Tcl_GetObjResult(interp),

52905

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52906

return TCL_ERROR;

52907

}

52908

52909

ibis_tcl_error = 0;

52910

_result = (ib_net32_t *)smNotice_data_details_ntc_144_new_cap_mask_set(_arg0,_arg1);

52911

;

52912

if (ibis_tcl_error) {

52913

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52914

return TCL_ERROR;

52915

}

52916

} tcl_result = Tcl_GetObjResult(interp);

52917

{

52918

char buff[20];

52919

sprintf(buff, "%u", cl_ntoh32(*_result));

52920

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52921

}

52922

return TCL_OK;

52923

}

52924

#define smNotice_data_details_ntc_144_new_cap_mask_get(_swigobj) (&_swigobj->new_cap_mask)

52925

static int _wrap_smNotice_data_details_ntc_144_new_cap_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

52926

52927

ib_net32_t * _result;

52928

smNotice_data_details_ntc_144 * _arg0;

52929

Tcl_Obj * tcl_result;

52930

char * rettype;

52931

52932

clientData = clientData; objv = objv;

52933

tcl_result = Tcl_GetObjResult(interp);

52934

if ((objc < 2) || (objc > 2)) {

52935

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_144_new_cap_mask_get { smNotice_data_details_ntc_144 * } ",-1);

52936

return TCL_ERROR;

52937

}

52938

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_144_p"))) {

52939

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_144_new_cap_mask_get. Expected _smNotice_data_details_ntc_144_p, received ", -1);

52940

Tcl_AppendToObj(tcl_result, rettype, -1);

52941

return TCL_ERROR;

52942

}

52943

{

52944

/* we can check if IBIS was initialized here */

52945

if (!IbisObj.initialized)

52946

{

52947

Tcl_SetStringObj(

52948

Tcl_GetObjResult(interp),

52949

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

52950

return TCL_ERROR;

52951

}

52952

52953

if (! IbisObj.port_guid)

52954

{

52955

Tcl_SetStringObj(

52956

Tcl_GetObjResult(interp),

52957

" ibis was not yet initialized. please use ibis_set_port before.", -1);

52958

return TCL_ERROR;

52959

}

52960

52961

ibis_tcl_error = 0;

52962

_result = (ib_net32_t *)smNotice_data_details_ntc_144_new_cap_mask_get(_arg0);

52963

;

52964

if (ibis_tcl_error) {

52965

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

52966

return TCL_ERROR;

52967

}

52968

} tcl_result = Tcl_GetObjResult(interp);

52969

{

52970

char buff[20];

52971

sprintf(buff, "%u", cl_ntoh32(*_result));

52972

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

52973

}

52974

return TCL_OK;

52975

}

52976

/* methodcmd8.swg : Tcl8.x method invocation */

52977

52978

static int TclsmNotice_data_details_ntc_144MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

52979

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

52980

char *_str;

52981

int rcode;

52982

Tcl_Obj **objv;

52983

Tcl_Obj *oldarg,*tcl_result,*obj;

52984

int length;

52985

char c;

52986

52987

tcl_result = Tcl_GetObjResult(interp);

52988

objv = (Tcl_Obj **) _objv;

52989

if (objc < 2) {

52990

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_144 methods : { dump cget configure }",-1);

52991

return TCL_ERROR;

52992

}

52993

obj = Tcl_NewObj();

52994

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_144_p");

52995

_str = Tcl_GetStringFromObj(objv[1],&length);

52996

c = *_str;

52997

if (0);

52998

52999

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

53000

int i = 2;

53001

cmd = 0;

53002

while (i+1 < objc) {

53003

_str = Tcl_GetStringFromObj(objv[i],&length);

53004

if (strcmp(_str,"-pad1") == 0) {

53005

cmd = _wrap_smNotice_data_details_ntc_144_pad1_set;

53006

} else if (strcmp(_str,"-lid") == 0) {

53007

cmd = _wrap_smNotice_data_details_ntc_144_lid_set;

53008

} else if (strcmp(_str,"-pad2") == 0) {

53009

cmd = _wrap_smNotice_data_details_ntc_144_pad2_set;

53010

} else if (strcmp(_str,"-new_cap_mask") == 0) {

53011

cmd = _wrap_smNotice_data_details_ntc_144_new_cap_mask_set;

53012

}

53013

if (cmd) {

53014

oldarg = objv[i];

53015

objv[i] = obj;

53016

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

53017

objv[i] = oldarg;

53018

if (rcode == TCL_ERROR) return rcode;

53019

cmd = 0;

53020

} else {

53021

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pad1 -lid -pad2 -new_cap_mask }",-1);

53022

return TCL_ERROR;

53023

}

53024

i+=2;

53025

}

53026

if ((i < objc) || (i == 2)) {

53027

Tcl_SetStringObj(tcl_result,"{ -pad1 -lid -pad2 -new_cap_mask }",-1);

53028

return TCL_ERROR;

53029

}

53030

return TCL_OK;

53031

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

53032

if (objc == 3) {

53033

_str = Tcl_GetStringFromObj(objv[2],&length);

53034

if (0) {}

53035

if (strcmp(_str,"-pad1") == 0) {

53036

cmd = _wrap_smNotice_data_details_ntc_144_pad1_get;

53037

} else if (strcmp(_str,"-lid") == 0) {

53038

cmd = _wrap_smNotice_data_details_ntc_144_lid_get;

53039

} else if (strcmp(_str,"-pad2") == 0) {

53040

cmd = _wrap_smNotice_data_details_ntc_144_pad2_get;

53041

} else if (strcmp(_str,"-new_cap_mask") == 0) {

53042

cmd = _wrap_smNotice_data_details_ntc_144_new_cap_mask_get;

53043

}

53044

else if (strcmp(_str,"-this") == 0) {

53045

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_144_p");

53046

return TCL_OK;

53047

}

53048

if (cmd) {

53049

oldarg = objv[2];

53050

objv[2] = obj;

53051

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

53052

objv[2] = oldarg;

53053

return rcode;

53054

} else {

53055

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pad1 -lid -pad2 -new_cap_mask }",-1);

53056

return TCL_ERROR;

53057

}

53058

} else {

53059

Tcl_SetStringObj(tcl_result,"{ -this -pad1 -lid -pad2 -new_cap_mask }", -1);

53060

return TCL_ERROR;

53061

}

53062

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

53063

if (objc == 2) {

53064

Tcl_Obj *pDumpObj;

53065

pDumpObj = Tcl_NewStringObj("",-1);

53066

Tcl_IncrRefCount(pDumpObj);

53067

cmd = _wrap_smNotice_data_details_ntc_144_pad1_get;

53068

oldarg = objv[2];

53069

objv[2] = obj;

53070

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53071

objv[2] = oldarg;

53072

Tcl_AppendStringsToObj(pDumpObj, "-pad1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53073

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53074

cmd = _wrap_smNotice_data_details_ntc_144_lid_get;

53075

oldarg = objv[2];

53076

objv[2] = obj;

53077

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53078

objv[2] = oldarg;

53079

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53080

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53081

cmd = _wrap_smNotice_data_details_ntc_144_pad2_get;

53082

oldarg = objv[2];

53083

objv[2] = obj;

53084

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53085

objv[2] = oldarg;

53086

Tcl_AppendStringsToObj(pDumpObj, "-pad2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53087

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53088

cmd = _wrap_smNotice_data_details_ntc_144_new_cap_mask_get;

53089

oldarg = objv[2];

53090

objv[2] = obj;

53091

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53092

objv[2] = oldarg;

53093

Tcl_AppendStringsToObj(pDumpObj, "-new_cap_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53094

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53095

53096

Tcl_DecrRefCount(pDumpObj);

53097

return TCL_OK;

53098

} else {

53099

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

53100

return TCL_ERROR;

53101

}

53102

}

53103

if (!cmd) {

53104

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

53105

return TCL_ERROR;

53106

}

53107

oldarg = objv[1];

53108

objv[1] = obj;

53109

rcode = (*cmd)(clientData,interp,objc,objv);

53110

objv[1] = oldarg;

53111

return rcode;

53112

}

53113

53114

53115

53116

/* objcmd8.swg : Tcl 8.x object creation */

53117

53118

static int TclsmNotice_data_details_ntc_144Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53119

void (*del)(ClientData) = 0;

53120

char *name = 0;

53121

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

53122

smNotice_data_details_ntc_144 * newObj = 0;

53123

int firstarg = 0;

53124

int thisarg = 0;

53125

int length;

53126

char *_str;

53127

Tcl_Obj *tcl_result;

53128

53129

tcl_result = Tcl_GetObjResult(interp);

53130

if (objc == 1) {

53131

cmd = 0;

53132

} else {

53133

_str = Tcl_GetStringFromObj(objv[1],&length);

53134

if (strcmp(_str,"-this") == 0) thisarg = 2;

53135

else if (strcmp(_str,"-args") == 0) {

53136

firstarg = 1;

53137

cmd = 0;

53138

} else if (objc == 2) {

53139

firstarg = 1;

53140

name = _str;

53141

cmd = 0;

53142

} else if (objc >= 3) {

53143

name = _str;

53144

_str = Tcl_GetStringFromObj(objv[2],&length);

53145

if (strcmp(_str,"-this") == 0) thisarg = 3;

53146

else {

53147

firstarg = 1;

53148

cmd = 0;

53149

}

53150

}

53151

}

53152

if (cmd) {

53153

int result;

53154

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

53155

if (result == TCL_OK) {

53156

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_144_p");

53157

} else { return result; }

53158

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

53159

del = 0;

53160

} else if (thisarg > 0) {

53161

if (thisarg < objc) {

53162

char *r;

53163

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_144_p");

53164

if (r) {

53165

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_144 object.",-1);

53166

return TCL_ERROR;

53167

}

53168

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

53169

Tcl_SetStringObj(tcl_result,name,-1);

53170

} else {

53171

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

53172

return TCL_ERROR;

53173

}

53174

} else {

53175

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

53176

return TCL_ERROR;

53177

}

53178

{

53179

Tcl_CmdInfo dummy;

53180

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

53181

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_144MethodCmd, (ClientData) newObj, del);

53182

return TCL_OK;

53183

} else {

53184

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

53185

return TCL_ERROR;

53186

}

53187

}

53188

}

53189

53190

53191

#define smNotice_data_details_ntc_145_pad1_set(_swigobj,_swigval) (_swigobj->pad1 = *(_swigval),_swigval)

53192

static int _wrap_smNotice_data_details_ntc_145_pad1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53193

53194

ib_net16_t * _result;

53195

smNotice_data_details_ntc_145 * _arg0;

53196

ib_net16_t * _arg1;

53197

Tcl_Obj * tcl_result;

53198

char * rettype;

53199

ib_net16_t temp;

53200

53201

clientData = clientData; objv = objv;

53202

tcl_result = Tcl_GetObjResult(interp);

53203

if ((objc < 3) || (objc > 3)) {

53204

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_pad1_set { smNotice_data_details_ntc_145 * } { ib_net16_t * } ",-1);

53205

return TCL_ERROR;

53206

}

53207

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53208

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_pad1_set. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53209

Tcl_AppendToObj(tcl_result, rettype, -1);

53210

return TCL_ERROR;

53211

}

53212

{

53213

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

53214

_arg1 = &temp;

53215

}

53216

{

53217

/* we can check if IBIS was initialized here */

53218

if (!IbisObj.initialized)

53219

{

53220

Tcl_SetStringObj(

53221

Tcl_GetObjResult(interp),

53222

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53223

return TCL_ERROR;

53224

}

53225

53226

if (! IbisObj.port_guid)

53227

{

53228

Tcl_SetStringObj(

53229

Tcl_GetObjResult(interp),

53230

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53231

return TCL_ERROR;

53232

}

53233

53234

ibis_tcl_error = 0;

53235

_result = (ib_net16_t *)smNotice_data_details_ntc_145_pad1_set(_arg0,_arg1);

53236

;

53237

if (ibis_tcl_error) {

53238

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53239

return TCL_ERROR;

53240

}

53241

} tcl_result = Tcl_GetObjResult(interp);

53242

{

53243

char buff[20];

53244

sprintf(buff, "%u", cl_hton16(*_result));

53245

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53246

}

53247

return TCL_OK;

53248

}

53249

#define smNotice_data_details_ntc_145_pad1_get(_swigobj) (&_swigobj->pad1)

53250

static int _wrap_smNotice_data_details_ntc_145_pad1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53251

53252

ib_net16_t * _result;

53253

smNotice_data_details_ntc_145 * _arg0;

53254

Tcl_Obj * tcl_result;

53255

char * rettype;

53256

53257

clientData = clientData; objv = objv;

53258

tcl_result = Tcl_GetObjResult(interp);

53259

if ((objc < 2) || (objc > 2)) {

53260

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_pad1_get { smNotice_data_details_ntc_145 * } ",-1);

53261

return TCL_ERROR;

53262

}

53263

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53264

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_pad1_get. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53265

Tcl_AppendToObj(tcl_result, rettype, -1);

53266

return TCL_ERROR;

53267

}

53268

{

53269

/* we can check if IBIS was initialized here */

53270

if (!IbisObj.initialized)

53271

{

53272

Tcl_SetStringObj(

53273

Tcl_GetObjResult(interp),

53274

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53275

return TCL_ERROR;

53276

}

53277

53278

if (! IbisObj.port_guid)

53279

{

53280

Tcl_SetStringObj(

53281

Tcl_GetObjResult(interp),

53282

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53283

return TCL_ERROR;

53284

}

53285

53286

ibis_tcl_error = 0;

53287

_result = (ib_net16_t *)smNotice_data_details_ntc_145_pad1_get(_arg0);

53288

;

53289

if (ibis_tcl_error) {

53290

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53291

return TCL_ERROR;

53292

}

53293

} tcl_result = Tcl_GetObjResult(interp);

53294

{

53295

char buff[20];

53296

sprintf(buff, "%u", cl_hton16(*_result));

53297

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53298

}

53299

return TCL_OK;

53300

}

53301

#define smNotice_data_details_ntc_145_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

53302

static int _wrap_smNotice_data_details_ntc_145_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53303

53304

ib_net16_t * _result;

53305

smNotice_data_details_ntc_145 * _arg0;

53306

ib_net16_t * _arg1;

53307

Tcl_Obj * tcl_result;

53308

char * rettype;

53309

ib_net16_t temp;

53310

53311

clientData = clientData; objv = objv;

53312

tcl_result = Tcl_GetObjResult(interp);

53313

if ((objc < 3) || (objc > 3)) {

53314

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_lid_set { smNotice_data_details_ntc_145 * } { ib_net16_t * } ",-1);

53315

return TCL_ERROR;

53316

}

53317

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53318

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_lid_set. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53319

Tcl_AppendToObj(tcl_result, rettype, -1);

53320

return TCL_ERROR;

53321

}

53322

{

53323

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

53324

_arg1 = &temp;

53325

}

53326

{

53327

/* we can check if IBIS was initialized here */

53328

if (!IbisObj.initialized)

53329

{

53330

Tcl_SetStringObj(

53331

Tcl_GetObjResult(interp),

53332

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53333

return TCL_ERROR;

53334

}

53335

53336

if (! IbisObj.port_guid)

53337

{

53338

Tcl_SetStringObj(

53339

Tcl_GetObjResult(interp),

53340

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53341

return TCL_ERROR;

53342

}

53343

53344

ibis_tcl_error = 0;

53345

_result = (ib_net16_t *)smNotice_data_details_ntc_145_lid_set(_arg0,_arg1);

53346

;

53347

if (ibis_tcl_error) {

53348

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53349

return TCL_ERROR;

53350

}

53351

} tcl_result = Tcl_GetObjResult(interp);

53352

{

53353

char buff[20];

53354

sprintf(buff, "%u", cl_hton16(*_result));

53355

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53356

}

53357

return TCL_OK;

53358

}

53359

#define smNotice_data_details_ntc_145_lid_get(_swigobj) (&_swigobj->lid)

53360

static int _wrap_smNotice_data_details_ntc_145_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53361

53362

ib_net16_t * _result;

53363

smNotice_data_details_ntc_145 * _arg0;

53364

Tcl_Obj * tcl_result;

53365

char * rettype;

53366

53367

clientData = clientData; objv = objv;

53368

tcl_result = Tcl_GetObjResult(interp);

53369

if ((objc < 2) || (objc > 2)) {

53370

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_lid_get { smNotice_data_details_ntc_145 * } ",-1);

53371

return TCL_ERROR;

53372

}

53373

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53374

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_lid_get. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53375

Tcl_AppendToObj(tcl_result, rettype, -1);

53376

return TCL_ERROR;

53377

}

53378

{

53379

/* we can check if IBIS was initialized here */

53380

if (!IbisObj.initialized)

53381

{

53382

Tcl_SetStringObj(

53383

Tcl_GetObjResult(interp),

53384

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53385

return TCL_ERROR;

53386

}

53387

53388

if (! IbisObj.port_guid)

53389

{

53390

Tcl_SetStringObj(

53391

Tcl_GetObjResult(interp),

53392

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53393

return TCL_ERROR;

53394

}

53395

53396

ibis_tcl_error = 0;

53397

_result = (ib_net16_t *)smNotice_data_details_ntc_145_lid_get(_arg0);

53398

;

53399

if (ibis_tcl_error) {

53400

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53401

return TCL_ERROR;

53402

}

53403

} tcl_result = Tcl_GetObjResult(interp);

53404

{

53405

char buff[20];

53406

sprintf(buff, "%u", cl_hton16(*_result));

53407

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53408

}

53409

return TCL_OK;

53410

}

53411

#define smNotice_data_details_ntc_145_pad2_set(_swigobj,_swigval) (_swigobj->pad2 = *(_swigval),_swigval)

53412

static int _wrap_smNotice_data_details_ntc_145_pad2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53413

53414

ib_net16_t * _result;

53415

smNotice_data_details_ntc_145 * _arg0;

53416

ib_net16_t * _arg1;

53417

Tcl_Obj * tcl_result;

53418

char * rettype;

53419

ib_net16_t temp;

53420

53421

clientData = clientData; objv = objv;

53422

tcl_result = Tcl_GetObjResult(interp);

53423

if ((objc < 3) || (objc > 3)) {

53424

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_pad2_set { smNotice_data_details_ntc_145 * } { ib_net16_t * } ",-1);

53425

return TCL_ERROR;

53426

}

53427

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53428

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_pad2_set. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53429

Tcl_AppendToObj(tcl_result, rettype, -1);

53430

return TCL_ERROR;

53431

}

53432

{

53433

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

53434

_arg1 = &temp;

53435

}

53436

{

53437

/* we can check if IBIS was initialized here */

53438

if (!IbisObj.initialized)

53439

{

53440

Tcl_SetStringObj(

53441

Tcl_GetObjResult(interp),

53442

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53443

return TCL_ERROR;

53444

}

53445

53446

if (! IbisObj.port_guid)

53447

{

53448

Tcl_SetStringObj(

53449

Tcl_GetObjResult(interp),

53450

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53451

return TCL_ERROR;

53452

}

53453

53454

ibis_tcl_error = 0;

53455

_result = (ib_net16_t *)smNotice_data_details_ntc_145_pad2_set(_arg0,_arg1);

53456

;

53457

if (ibis_tcl_error) {

53458

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53459

return TCL_ERROR;

53460

}

53461

} tcl_result = Tcl_GetObjResult(interp);

53462

{

53463

char buff[20];

53464

sprintf(buff, "%u", cl_hton16(*_result));

53465

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53466

}

53467

return TCL_OK;

53468

}

53469

#define smNotice_data_details_ntc_145_pad2_get(_swigobj) (&_swigobj->pad2)

53470

static int _wrap_smNotice_data_details_ntc_145_pad2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53471

53472

ib_net16_t * _result;

53473

smNotice_data_details_ntc_145 * _arg0;

53474

Tcl_Obj * tcl_result;

53475

char * rettype;

53476

53477

clientData = clientData; objv = objv;

53478

tcl_result = Tcl_GetObjResult(interp);

53479

if ((objc < 2) || (objc > 2)) {

53480

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_pad2_get { smNotice_data_details_ntc_145 * } ",-1);

53481

return TCL_ERROR;

53482

}

53483

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53484

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_pad2_get. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53485

Tcl_AppendToObj(tcl_result, rettype, -1);

53486

return TCL_ERROR;

53487

}

53488

{

53489

/* we can check if IBIS was initialized here */

53490

if (!IbisObj.initialized)

53491

{

53492

Tcl_SetStringObj(

53493

Tcl_GetObjResult(interp),

53494

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53495

return TCL_ERROR;

53496

}

53497

53498

if (! IbisObj.port_guid)

53499

{

53500

Tcl_SetStringObj(

53501

Tcl_GetObjResult(interp),

53502

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53503

return TCL_ERROR;

53504

}

53505

53506

ibis_tcl_error = 0;

53507

_result = (ib_net16_t *)smNotice_data_details_ntc_145_pad2_get(_arg0);

53508

;

53509

if (ibis_tcl_error) {

53510

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53511

return TCL_ERROR;

53512

}

53513

} tcl_result = Tcl_GetObjResult(interp);

53514

{

53515

char buff[20];

53516

sprintf(buff, "%u", cl_hton16(*_result));

53517

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53518

}

53519

return TCL_OK;

53520

}

53521

#define smNotice_data_details_ntc_145_new_sys_guid_set(_swigobj,_swigval) (_swigobj->new_sys_guid = *(_swigval),_swigval)

53522

static int _wrap_smNotice_data_details_ntc_145_new_sys_guid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53523

53524

ib_net64_t * _result;

53525

smNotice_data_details_ntc_145 * _arg0;

53526

ib_net64_t * _arg1;

53527

Tcl_Obj * tcl_result;

53528

char * rettype;

53529

uint64_t temp;

53530

53531

clientData = clientData; objv = objv;

53532

tcl_result = Tcl_GetObjResult(interp);

53533

if ((objc < 3) || (objc > 3)) {

53534

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_new_sys_guid_set { smNotice_data_details_ntc_145 * } { ib_net64_t * } ",-1);

53535

return TCL_ERROR;

53536

}

53537

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53538

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_new_sys_guid_set. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53539

Tcl_AppendToObj(tcl_result, rettype, -1);

53540

return TCL_ERROR;

53541

}

53542

{

53543

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

53544

_arg1 = &temp;

53545

}

53546

{

53547

/* we can check if IBIS was initialized here */

53548

if (!IbisObj.initialized)

53549

{

53550

Tcl_SetStringObj(

53551

Tcl_GetObjResult(interp),

53552

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53553

return TCL_ERROR;

53554

}

53555

53556

if (! IbisObj.port_guid)

53557

{

53558

Tcl_SetStringObj(

53559

Tcl_GetObjResult(interp),

53560

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53561

return TCL_ERROR;

53562

}

53563

53564

ibis_tcl_error = 0;

53565

_result = (ib_net64_t *)smNotice_data_details_ntc_145_new_sys_guid_set(_arg0,_arg1);

53566

;

53567

if (ibis_tcl_error) {

53568

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53569

return TCL_ERROR;

53570

}

53571

} tcl_result = Tcl_GetObjResult(interp);

53572

{

53573

char buff[20];

53574

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

53575

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53576

}

53577

return TCL_OK;

53578

}

53579

#define smNotice_data_details_ntc_145_new_sys_guid_get(_swigobj) (&_swigobj->new_sys_guid)

53580

static int _wrap_smNotice_data_details_ntc_145_new_sys_guid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53581

53582

ib_net64_t * _result;

53583

smNotice_data_details_ntc_145 * _arg0;

53584

Tcl_Obj * tcl_result;

53585

char * rettype;

53586

53587

clientData = clientData; objv = objv;

53588

tcl_result = Tcl_GetObjResult(interp);

53589

if ((objc < 2) || (objc > 2)) {

53590

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_145_new_sys_guid_get { smNotice_data_details_ntc_145 * } ",-1);

53591

return TCL_ERROR;

53592

}

53593

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_145_p"))) {

53594

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_145_new_sys_guid_get. Expected _smNotice_data_details_ntc_145_p, received ", -1);

53595

Tcl_AppendToObj(tcl_result, rettype, -1);

53596

return TCL_ERROR;

53597

}

53598

{

53599

/* we can check if IBIS was initialized here */

53600

if (!IbisObj.initialized)

53601

{

53602

Tcl_SetStringObj(

53603

Tcl_GetObjResult(interp),

53604

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53605

return TCL_ERROR;

53606

}

53607

53608

if (! IbisObj.port_guid)

53609

{

53610

Tcl_SetStringObj(

53611

Tcl_GetObjResult(interp),

53612

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53613

return TCL_ERROR;

53614

}

53615

53616

ibis_tcl_error = 0;

53617

_result = (ib_net64_t *)smNotice_data_details_ntc_145_new_sys_guid_get(_arg0);

53618

;

53619

if (ibis_tcl_error) {

53620

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53621

return TCL_ERROR;

53622

}

53623

} tcl_result = Tcl_GetObjResult(interp);

53624

{

53625

char buff[20];

53626

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

53627

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53628

}

53629

return TCL_OK;

53630

}

53631

/* methodcmd8.swg : Tcl8.x method invocation */

53632

53633

static int TclsmNotice_data_details_ntc_145MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

53634

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

53635

char *_str;

53636

int rcode;

53637

Tcl_Obj **objv;

53638

Tcl_Obj *oldarg,*tcl_result,*obj;

53639

int length;

53640

char c;

53641

53642

tcl_result = Tcl_GetObjResult(interp);

53643

objv = (Tcl_Obj **) _objv;

53644

if (objc < 2) {

53645

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_145 methods : { dump cget configure }",-1);

53646

return TCL_ERROR;

53647

}

53648

obj = Tcl_NewObj();

53649

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_145_p");

53650

_str = Tcl_GetStringFromObj(objv[1],&length);

53651

c = *_str;

53652

if (0);

53653

53654

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

53655

int i = 2;

53656

cmd = 0;

53657

while (i+1 < objc) {

53658

_str = Tcl_GetStringFromObj(objv[i],&length);

53659

if (strcmp(_str,"-pad1") == 0) {

53660

cmd = _wrap_smNotice_data_details_ntc_145_pad1_set;

53661

} else if (strcmp(_str,"-lid") == 0) {

53662

cmd = _wrap_smNotice_data_details_ntc_145_lid_set;

53663

} else if (strcmp(_str,"-pad2") == 0) {

53664

cmd = _wrap_smNotice_data_details_ntc_145_pad2_set;

53665

} else if (strcmp(_str,"-new_sys_guid") == 0) {

53666

cmd = _wrap_smNotice_data_details_ntc_145_new_sys_guid_set;

53667

}

53668

if (cmd) {

53669

oldarg = objv[i];

53670

objv[i] = obj;

53671

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

53672

objv[i] = oldarg;

53673

if (rcode == TCL_ERROR) return rcode;

53674

cmd = 0;

53675

} else {

53676

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pad1 -lid -pad2 -new_sys_guid }",-1);

53677

return TCL_ERROR;

53678

}

53679

i+=2;

53680

}

53681

if ((i < objc) || (i == 2)) {

53682

Tcl_SetStringObj(tcl_result,"{ -pad1 -lid -pad2 -new_sys_guid }",-1);

53683

return TCL_ERROR;

53684

}

53685

return TCL_OK;

53686

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

53687

if (objc == 3) {

53688

_str = Tcl_GetStringFromObj(objv[2],&length);

53689

if (0) {}

53690

if (strcmp(_str,"-pad1") == 0) {

53691

cmd = _wrap_smNotice_data_details_ntc_145_pad1_get;

53692

} else if (strcmp(_str,"-lid") == 0) {

53693

cmd = _wrap_smNotice_data_details_ntc_145_lid_get;

53694

} else if (strcmp(_str,"-pad2") == 0) {

53695

cmd = _wrap_smNotice_data_details_ntc_145_pad2_get;

53696

} else if (strcmp(_str,"-new_sys_guid") == 0) {

53697

cmd = _wrap_smNotice_data_details_ntc_145_new_sys_guid_get;

53698

}

53699

else if (strcmp(_str,"-this") == 0) {

53700

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_145_p");

53701

return TCL_OK;

53702

}

53703

if (cmd) {

53704

oldarg = objv[2];

53705

objv[2] = obj;

53706

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

53707

objv[2] = oldarg;

53708

return rcode;

53709

} else {

53710

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pad1 -lid -pad2 -new_sys_guid }",-1);

53711

return TCL_ERROR;

53712

}

53713

} else {

53714

Tcl_SetStringObj(tcl_result,"{ -this -pad1 -lid -pad2 -new_sys_guid }", -1);

53715

return TCL_ERROR;

53716

}

53717

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

53718

if (objc == 2) {

53719

Tcl_Obj *pDumpObj;

53720

pDumpObj = Tcl_NewStringObj("",-1);

53721

Tcl_IncrRefCount(pDumpObj);

53722

cmd = _wrap_smNotice_data_details_ntc_145_pad1_get;

53723

oldarg = objv[2];

53724

objv[2] = obj;

53725

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53726

objv[2] = oldarg;

53727

Tcl_AppendStringsToObj(pDumpObj, "-pad1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53728

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53729

cmd = _wrap_smNotice_data_details_ntc_145_lid_get;

53730

oldarg = objv[2];

53731

objv[2] = obj;

53732

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53733

objv[2] = oldarg;

53734

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53735

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53736

cmd = _wrap_smNotice_data_details_ntc_145_pad2_get;

53737

oldarg = objv[2];

53738

objv[2] = obj;

53739

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53740

objv[2] = oldarg;

53741

Tcl_AppendStringsToObj(pDumpObj, "-pad2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53742

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53743

cmd = _wrap_smNotice_data_details_ntc_145_new_sys_guid_get;

53744

oldarg = objv[2];

53745

objv[2] = obj;

53746

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

53747

objv[2] = oldarg;

53748

Tcl_AppendStringsToObj(pDumpObj, "-new_sys_guid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

53749

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

53750

53751

Tcl_DecrRefCount(pDumpObj);

53752

return TCL_OK;

53753

} else {

53754

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

53755

return TCL_ERROR;

53756

}

53757

}

53758

if (!cmd) {

53759

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

53760

return TCL_ERROR;

53761

}

53762

oldarg = objv[1];

53763

objv[1] = obj;

53764

rcode = (*cmd)(clientData,interp,objc,objv);

53765

objv[1] = oldarg;

53766

return rcode;

53767

}

53768

53769

53770

53771

/* objcmd8.swg : Tcl 8.x object creation */

53772

53773

static int TclsmNotice_data_details_ntc_145Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53774

void (*del)(ClientData) = 0;

53775

char *name = 0;

53776

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

53777

smNotice_data_details_ntc_145 * newObj = 0;

53778

int firstarg = 0;

53779

int thisarg = 0;

53780

int length;

53781

char *_str;

53782

Tcl_Obj *tcl_result;

53783

53784

tcl_result = Tcl_GetObjResult(interp);

53785

if (objc == 1) {

53786

cmd = 0;

53787

} else {

53788

_str = Tcl_GetStringFromObj(objv[1],&length);

53789

if (strcmp(_str,"-this") == 0) thisarg = 2;

53790

else if (strcmp(_str,"-args") == 0) {

53791

firstarg = 1;

53792

cmd = 0;

53793

} else if (objc == 2) {

53794

firstarg = 1;

53795

name = _str;

53796

cmd = 0;

53797

} else if (objc >= 3) {

53798

name = _str;

53799

_str = Tcl_GetStringFromObj(objv[2],&length);

53800

if (strcmp(_str,"-this") == 0) thisarg = 3;

53801

else {

53802

firstarg = 1;

53803

cmd = 0;

53804

}

53805

}

53806

}

53807

if (cmd) {

53808

int result;

53809

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

53810

if (result == TCL_OK) {

53811

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_145_p");

53812

} else { return result; }

53813

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

53814

del = 0;

53815

} else if (thisarg > 0) {

53816

if (thisarg < objc) {

53817

char *r;

53818

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_145_p");

53819

if (r) {

53820

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_145 object.",-1);

53821

return TCL_ERROR;

53822

}

53823

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

53824

Tcl_SetStringObj(tcl_result,name,-1);

53825

} else {

53826

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

53827

return TCL_ERROR;

53828

}

53829

} else {

53830

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

53831

return TCL_ERROR;

53832

}

53833

{

53834

Tcl_CmdInfo dummy;

53835

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

53836

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_145MethodCmd, (ClientData) newObj, del);

53837

return TCL_OK;

53838

} else {

53839

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

53840

return TCL_ERROR;

53841

}

53842

}

53843

}

53844

53845

53846

#define smNotice_data_details_ntc_256_pad1_set(_swigobj,_swigval) (_swigobj->pad1 = *(_swigval),_swigval)

53847

static int _wrap_smNotice_data_details_ntc_256_pad1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53848

53849

ib_net16_t * _result;

53850

smNotice_data_details_ntc_256 * _arg0;

53851

ib_net16_t * _arg1;

53852

Tcl_Obj * tcl_result;

53853

char * rettype;

53854

ib_net16_t temp;

53855

53856

clientData = clientData; objv = objv;

53857

tcl_result = Tcl_GetObjResult(interp);

53858

if ((objc < 3) || (objc > 3)) {

53859

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad1_set { smNotice_data_details_ntc_256 * } { ib_net16_t * } ",-1);

53860

return TCL_ERROR;

53861

}

53862

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

53863

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad1_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

53864

Tcl_AppendToObj(tcl_result, rettype, -1);

53865

return TCL_ERROR;

53866

}

53867

{

53868

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

53869

_arg1 = &temp;

53870

}

53871

{

53872

/* we can check if IBIS was initialized here */

53873

if (!IbisObj.initialized)

53874

{

53875

Tcl_SetStringObj(

53876

Tcl_GetObjResult(interp),

53877

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53878

return TCL_ERROR;

53879

}

53880

53881

if (! IbisObj.port_guid)

53882

{

53883

Tcl_SetStringObj(

53884

Tcl_GetObjResult(interp),

53885

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53886

return TCL_ERROR;

53887

}

53888

53889

ibis_tcl_error = 0;

53890

_result = (ib_net16_t *)smNotice_data_details_ntc_256_pad1_set(_arg0,_arg1);

53891

;

53892

if (ibis_tcl_error) {

53893

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53894

return TCL_ERROR;

53895

}

53896

} tcl_result = Tcl_GetObjResult(interp);

53897

{

53898

char buff[20];

53899

sprintf(buff, "%u", cl_hton16(*_result));

53900

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53901

}

53902

return TCL_OK;

53903

}

53904

#define smNotice_data_details_ntc_256_pad1_get(_swigobj) (&_swigobj->pad1)

53905

static int _wrap_smNotice_data_details_ntc_256_pad1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53906

53907

ib_net16_t * _result;

53908

smNotice_data_details_ntc_256 * _arg0;

53909

Tcl_Obj * tcl_result;

53910

char * rettype;

53911

53912

clientData = clientData; objv = objv;

53913

tcl_result = Tcl_GetObjResult(interp);

53914

if ((objc < 2) || (objc > 2)) {

53915

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad1_get { smNotice_data_details_ntc_256 * } ",-1);

53916

return TCL_ERROR;

53917

}

53918

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

53919

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad1_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

53920

Tcl_AppendToObj(tcl_result, rettype, -1);

53921

return TCL_ERROR;

53922

}

53923

{

53924

/* we can check if IBIS was initialized here */

53925

if (!IbisObj.initialized)

53926

{

53927

Tcl_SetStringObj(

53928

Tcl_GetObjResult(interp),

53929

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53930

return TCL_ERROR;

53931

}

53932

53933

if (! IbisObj.port_guid)

53934

{

53935

Tcl_SetStringObj(

53936

Tcl_GetObjResult(interp),

53937

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53938

return TCL_ERROR;

53939

}

53940

53941

ibis_tcl_error = 0;

53942

_result = (ib_net16_t *)smNotice_data_details_ntc_256_pad1_get(_arg0);

53943

;

53944

if (ibis_tcl_error) {

53945

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

53946

return TCL_ERROR;

53947

}

53948

} tcl_result = Tcl_GetObjResult(interp);

53949

{

53950

char buff[20];

53951

sprintf(buff, "%u", cl_hton16(*_result));

53952

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

53953

}

53954

return TCL_OK;

53955

}

53956

#define smNotice_data_details_ntc_256_lid_set(_swigobj,_swigval) (_swigobj->lid = *(_swigval),_swigval)

53957

static int _wrap_smNotice_data_details_ntc_256_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

53958

53959

ib_net16_t * _result;

53960

smNotice_data_details_ntc_256 * _arg0;

53961

ib_net16_t * _arg1;

53962

Tcl_Obj * tcl_result;

53963

char * rettype;

53964

ib_net16_t temp;

53965

53966

clientData = clientData; objv = objv;

53967

tcl_result = Tcl_GetObjResult(interp);

53968

if ((objc < 3) || (objc > 3)) {

53969

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_lid_set { smNotice_data_details_ntc_256 * } { ib_net16_t * } ",-1);

53970

return TCL_ERROR;

53971

}

53972

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

53973

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_lid_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

53974

Tcl_AppendToObj(tcl_result, rettype, -1);

53975

return TCL_ERROR;

53976

}

53977

{

53978

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

53979

_arg1 = &temp;

53980

}

53981

{

53982

/* we can check if IBIS was initialized here */

53983

if (!IbisObj.initialized)

53984

{

53985

Tcl_SetStringObj(

53986

Tcl_GetObjResult(interp),

53987

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

53988

return TCL_ERROR;

53989

}

53990

53991

if (! IbisObj.port_guid)

53992

{

53993

Tcl_SetStringObj(

53994

Tcl_GetObjResult(interp),

53995

" ibis was not yet initialized. please use ibis_set_port before.", -1);

53996

return TCL_ERROR;

53997

}

53998

53999

ibis_tcl_error = 0;

54000

_result = (ib_net16_t *)smNotice_data_details_ntc_256_lid_set(_arg0,_arg1);

54001

;

54002

if (ibis_tcl_error) {

54003

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54004

return TCL_ERROR;

54005

}

54006

} tcl_result = Tcl_GetObjResult(interp);

54007

{

54008

char buff[20];

54009

sprintf(buff, "%u", cl_hton16(*_result));

54010

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54011

}

54012

return TCL_OK;

54013

}

54014

#define smNotice_data_details_ntc_256_lid_get(_swigobj) (&_swigobj->lid)

54015

static int _wrap_smNotice_data_details_ntc_256_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54016

54017

ib_net16_t * _result;

54018

smNotice_data_details_ntc_256 * _arg0;

54019

Tcl_Obj * tcl_result;

54020

char * rettype;

54021

54022

clientData = clientData; objv = objv;

54023

tcl_result = Tcl_GetObjResult(interp);

54024

if ((objc < 2) || (objc > 2)) {

54025

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_lid_get { smNotice_data_details_ntc_256 * } ",-1);

54026

return TCL_ERROR;

54027

}

54028

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54029

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_lid_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54030

Tcl_AppendToObj(tcl_result, rettype, -1);

54031

return TCL_ERROR;

54032

}

54033

{

54034

/* we can check if IBIS was initialized here */

54035

if (!IbisObj.initialized)

54036

{

54037

Tcl_SetStringObj(

54038

Tcl_GetObjResult(interp),

54039

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54040

return TCL_ERROR;

54041

}

54042

54043

if (! IbisObj.port_guid)

54044

{

54045

Tcl_SetStringObj(

54046

Tcl_GetObjResult(interp),

54047

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54048

return TCL_ERROR;

54049

}

54050

54051

ibis_tcl_error = 0;

54052

_result = (ib_net16_t *)smNotice_data_details_ntc_256_lid_get(_arg0);

54053

;

54054

if (ibis_tcl_error) {

54055

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54056

return TCL_ERROR;

54057

}

54058

} tcl_result = Tcl_GetObjResult(interp);

54059

{

54060

char buff[20];

54061

sprintf(buff, "%u", cl_hton16(*_result));

54062

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54063

}

54064

return TCL_OK;

54065

}

54066

#define smNotice_data_details_ntc_256_pad2_set(_swigobj,_swigval) (_swigobj->pad2 = *(_swigval),_swigval)

54067

static int _wrap_smNotice_data_details_ntc_256_pad2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54068

54069

ib_net16_t * _result;

54070

smNotice_data_details_ntc_256 * _arg0;

54071

ib_net16_t * _arg1;

54072

Tcl_Obj * tcl_result;

54073

char * rettype;

54074

ib_net16_t temp;

54075

54076

clientData = clientData; objv = objv;

54077

tcl_result = Tcl_GetObjResult(interp);

54078

if ((objc < 3) || (objc > 3)) {

54079

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad2_set { smNotice_data_details_ntc_256 * } { ib_net16_t * } ",-1);

54080

return TCL_ERROR;

54081

}

54082

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54083

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad2_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54084

Tcl_AppendToObj(tcl_result, rettype, -1);

54085

return TCL_ERROR;

54086

}

54087

{

54088

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

54089

_arg1 = &temp;

54090

}

54091

{

54092

/* we can check if IBIS was initialized here */

54093

if (!IbisObj.initialized)

54094

{

54095

Tcl_SetStringObj(

54096

Tcl_GetObjResult(interp),

54097

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54098

return TCL_ERROR;

54099

}

54100

54101

if (! IbisObj.port_guid)

54102

{

54103

Tcl_SetStringObj(

54104

Tcl_GetObjResult(interp),

54105

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54106

return TCL_ERROR;

54107

}

54108

54109

ibis_tcl_error = 0;

54110

_result = (ib_net16_t *)smNotice_data_details_ntc_256_pad2_set(_arg0,_arg1);

54111

;

54112

if (ibis_tcl_error) {

54113

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54114

return TCL_ERROR;

54115

}

54116

} tcl_result = Tcl_GetObjResult(interp);

54117

{

54118

char buff[20];

54119

sprintf(buff, "%u", cl_hton16(*_result));

54120

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54121

}

54122

return TCL_OK;

54123

}

54124

#define smNotice_data_details_ntc_256_pad2_get(_swigobj) (&_swigobj->pad2)

54125

static int _wrap_smNotice_data_details_ntc_256_pad2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54126

54127

ib_net16_t * _result;

54128

smNotice_data_details_ntc_256 * _arg0;

54129

Tcl_Obj * tcl_result;

54130

char * rettype;

54131

54132

clientData = clientData; objv = objv;

54133

tcl_result = Tcl_GetObjResult(interp);

54134

if ((objc < 2) || (objc > 2)) {

54135

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad2_get { smNotice_data_details_ntc_256 * } ",-1);

54136

return TCL_ERROR;

54137

}

54138

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54139

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad2_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54140

Tcl_AppendToObj(tcl_result, rettype, -1);

54141

return TCL_ERROR;

54142

}

54143

{

54144

/* we can check if IBIS was initialized here */

54145

if (!IbisObj.initialized)

54146

{

54147

Tcl_SetStringObj(

54148

Tcl_GetObjResult(interp),

54149

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54150

return TCL_ERROR;

54151

}

54152

54153

if (! IbisObj.port_guid)

54154

{

54155

Tcl_SetStringObj(

54156

Tcl_GetObjResult(interp),

54157

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54158

return TCL_ERROR;

54159

}

54160

54161

ibis_tcl_error = 0;

54162

_result = (ib_net16_t *)smNotice_data_details_ntc_256_pad2_get(_arg0);

54163

;

54164

if (ibis_tcl_error) {

54165

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54166

return TCL_ERROR;

54167

}

54168

} tcl_result = Tcl_GetObjResult(interp);

54169

{

54170

char buff[20];

54171

sprintf(buff, "%u", cl_hton16(*_result));

54172

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54173

}

54174

return TCL_OK;

54175

}

54176

#define smNotice_data_details_ntc_256_method_set(_swigobj,_swigval) (_swigobj->method = *(_swigval),_swigval)

54177

static int _wrap_smNotice_data_details_ntc_256_method_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54178

54179

uint8_t * _result;

54180

smNotice_data_details_ntc_256 * _arg0;

54181

uint8_t * _arg1;

54182

Tcl_Obj * tcl_result;

54183

char * rettype;

54184

uint8_t temp;

54185

54186

clientData = clientData; objv = objv;

54187

tcl_result = Tcl_GetObjResult(interp);

54188

if ((objc < 3) || (objc > 3)) {

54189

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_method_set { smNotice_data_details_ntc_256 * } { uint8_t * } ",-1);

54190

return TCL_ERROR;

54191

}

54192

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54193

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_method_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54194

Tcl_AppendToObj(tcl_result, rettype, -1);

54195

return TCL_ERROR;

54196

}

54197

{

54198

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

54199

_arg1 = &temp;

54200

}

54201

{

54202

/* we can check if IBIS was initialized here */

54203

if (!IbisObj.initialized)

54204

{

54205

Tcl_SetStringObj(

54206

Tcl_GetObjResult(interp),

54207

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54208

return TCL_ERROR;

54209

}

54210

54211

if (! IbisObj.port_guid)

54212

{

54213

Tcl_SetStringObj(

54214

Tcl_GetObjResult(interp),

54215

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54216

return TCL_ERROR;

54217

}

54218

54219

ibis_tcl_error = 0;

54220

_result = (uint8_t *)smNotice_data_details_ntc_256_method_set(_arg0,_arg1);

54221

;

54222

if (ibis_tcl_error) {

54223

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54224

return TCL_ERROR;

54225

}

54226

} tcl_result = Tcl_GetObjResult(interp);

54227

{

54228

char buff[20];

54229

sprintf(buff, "%u", *_result);

54230

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54231

}

54232

return TCL_OK;

54233

}

54234

#define smNotice_data_details_ntc_256_method_get(_swigobj) (&_swigobj->method)

54235

static int _wrap_smNotice_data_details_ntc_256_method_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54236

54237

uint8_t * _result;

54238

smNotice_data_details_ntc_256 * _arg0;

54239

Tcl_Obj * tcl_result;

54240

char * rettype;

54241

54242

clientData = clientData; objv = objv;

54243

tcl_result = Tcl_GetObjResult(interp);

54244

if ((objc < 2) || (objc > 2)) {

54245

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_method_get { smNotice_data_details_ntc_256 * } ",-1);

54246

return TCL_ERROR;

54247

}

54248

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54249

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_method_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54250

Tcl_AppendToObj(tcl_result, rettype, -1);

54251

return TCL_ERROR;

54252

}

54253

{

54254

/* we can check if IBIS was initialized here */

54255

if (!IbisObj.initialized)

54256

{

54257

Tcl_SetStringObj(

54258

Tcl_GetObjResult(interp),

54259

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54260

return TCL_ERROR;

54261

}

54262

54263

if (! IbisObj.port_guid)

54264

{

54265

Tcl_SetStringObj(

54266

Tcl_GetObjResult(interp),

54267

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54268

return TCL_ERROR;

54269

}

54270

54271

ibis_tcl_error = 0;

54272

_result = (uint8_t *)smNotice_data_details_ntc_256_method_get(_arg0);

54273

;

54274

if (ibis_tcl_error) {

54275

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54276

return TCL_ERROR;

54277

}

54278

} tcl_result = Tcl_GetObjResult(interp);

54279

{

54280

char buff[20];

54281

sprintf(buff, "%u", *_result);

54282

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54283

}

54284

return TCL_OK;

54285

}

54286

#define smNotice_data_details_ntc_256_pad3_set(_swigobj,_swigval) (_swigobj->pad3 = *(_swigval),_swigval)

54287

static int _wrap_smNotice_data_details_ntc_256_pad3_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54288

54289

uint8_t * _result;

54290

smNotice_data_details_ntc_256 * _arg0;

54291

uint8_t * _arg1;

54292

Tcl_Obj * tcl_result;

54293

char * rettype;

54294

uint8_t temp;

54295

54296

clientData = clientData; objv = objv;

54297

tcl_result = Tcl_GetObjResult(interp);

54298

if ((objc < 3) || (objc > 3)) {

54299

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad3_set { smNotice_data_details_ntc_256 * } { uint8_t * } ",-1);

54300

return TCL_ERROR;

54301

}

54302

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54303

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad3_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54304

Tcl_AppendToObj(tcl_result, rettype, -1);

54305

return TCL_ERROR;

54306

}

54307

{

54308

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

54309

_arg1 = &temp;

54310

}

54311

{

54312

/* we can check if IBIS was initialized here */

54313

if (!IbisObj.initialized)

54314

{

54315

Tcl_SetStringObj(

54316

Tcl_GetObjResult(interp),

54317

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54318

return TCL_ERROR;

54319

}

54320

54321

if (! IbisObj.port_guid)

54322

{

54323

Tcl_SetStringObj(

54324

Tcl_GetObjResult(interp),

54325

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54326

return TCL_ERROR;

54327

}

54328

54329

ibis_tcl_error = 0;

54330

_result = (uint8_t *)smNotice_data_details_ntc_256_pad3_set(_arg0,_arg1);

54331

;

54332

if (ibis_tcl_error) {

54333

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54334

return TCL_ERROR;

54335

}

54336

} tcl_result = Tcl_GetObjResult(interp);

54337

{

54338

char buff[20];

54339

sprintf(buff, "%u", *_result);

54340

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54341

}

54342

return TCL_OK;

54343

}

54344

#define smNotice_data_details_ntc_256_pad3_get(_swigobj) (&_swigobj->pad3)

54345

static int _wrap_smNotice_data_details_ntc_256_pad3_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54346

54347

uint8_t * _result;

54348

smNotice_data_details_ntc_256 * _arg0;

54349

Tcl_Obj * tcl_result;

54350

char * rettype;

54351

54352

clientData = clientData; objv = objv;

54353

tcl_result = Tcl_GetObjResult(interp);

54354

if ((objc < 2) || (objc > 2)) {

54355

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_pad3_get { smNotice_data_details_ntc_256 * } ",-1);

54356

return TCL_ERROR;

54357

}

54358

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54359

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_pad3_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54360

Tcl_AppendToObj(tcl_result, rettype, -1);

54361

return TCL_ERROR;

54362

}

54363

{

54364

/* we can check if IBIS was initialized here */

54365

if (!IbisObj.initialized)

54366

{

54367

Tcl_SetStringObj(

54368

Tcl_GetObjResult(interp),

54369

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54370

return TCL_ERROR;

54371

}

54372

54373

if (! IbisObj.port_guid)

54374

{

54375

Tcl_SetStringObj(

54376

Tcl_GetObjResult(interp),

54377

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54378

return TCL_ERROR;

54379

}

54380

54381

ibis_tcl_error = 0;

54382

_result = (uint8_t *)smNotice_data_details_ntc_256_pad3_get(_arg0);

54383

;

54384

if (ibis_tcl_error) {

54385

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54386

return TCL_ERROR;

54387

}

54388

} tcl_result = Tcl_GetObjResult(interp);

54389

{

54390

char buff[20];

54391

sprintf(buff, "%u", *_result);

54392

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54393

}

54394

return TCL_OK;

54395

}

54396

#define smNotice_data_details_ntc_256_attr_id_set(_swigobj,_swigval) (_swigobj->attr_id = *(_swigval),_swigval)

54397

static int _wrap_smNotice_data_details_ntc_256_attr_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54398

54399

ib_net16_t * _result;

54400

smNotice_data_details_ntc_256 * _arg0;

54401

ib_net16_t * _arg1;

54402

Tcl_Obj * tcl_result;

54403

char * rettype;

54404

ib_net16_t temp;

54405

54406

clientData = clientData; objv = objv;

54407

tcl_result = Tcl_GetObjResult(interp);

54408

if ((objc < 3) || (objc > 3)) {

54409

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_attr_id_set { smNotice_data_details_ntc_256 * } { ib_net16_t * } ",-1);

54410

return TCL_ERROR;

54411

}

54412

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54413

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_attr_id_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54414

Tcl_AppendToObj(tcl_result, rettype, -1);

54415

return TCL_ERROR;

54416

}

54417

{

54418

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

54419

_arg1 = &temp;

54420

}

54421

{

54422

/* we can check if IBIS was initialized here */

54423

if (!IbisObj.initialized)

54424

{

54425

Tcl_SetStringObj(

54426

Tcl_GetObjResult(interp),

54427

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54428

return TCL_ERROR;

54429

}

54430

54431

if (! IbisObj.port_guid)

54432

{

54433

Tcl_SetStringObj(

54434

Tcl_GetObjResult(interp),

54435

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54436

return TCL_ERROR;

54437

}

54438

54439

ibis_tcl_error = 0;

54440

_result = (ib_net16_t *)smNotice_data_details_ntc_256_attr_id_set(_arg0,_arg1);

54441

;

54442

if (ibis_tcl_error) {

54443

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54444

return TCL_ERROR;

54445

}

54446

} tcl_result = Tcl_GetObjResult(interp);

54447

{

54448

char buff[20];

54449

sprintf(buff, "%u", cl_hton16(*_result));

54450

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54451

}

54452

return TCL_OK;

54453

}

54454

#define smNotice_data_details_ntc_256_attr_id_get(_swigobj) (&_swigobj->attr_id)

54455

static int _wrap_smNotice_data_details_ntc_256_attr_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54456

54457

ib_net16_t * _result;

54458

smNotice_data_details_ntc_256 * _arg0;

54459

Tcl_Obj * tcl_result;

54460

char * rettype;

54461

54462

clientData = clientData; objv = objv;

54463

tcl_result = Tcl_GetObjResult(interp);

54464

if ((objc < 2) || (objc > 2)) {

54465

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_attr_id_get { smNotice_data_details_ntc_256 * } ",-1);

54466

return TCL_ERROR;

54467

}

54468

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54469

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_attr_id_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54470

Tcl_AppendToObj(tcl_result, rettype, -1);

54471

return TCL_ERROR;

54472

}

54473

{

54474

/* we can check if IBIS was initialized here */

54475

if (!IbisObj.initialized)

54476

{

54477

Tcl_SetStringObj(

54478

Tcl_GetObjResult(interp),

54479

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54480

return TCL_ERROR;

54481

}

54482

54483

if (! IbisObj.port_guid)

54484

{

54485

Tcl_SetStringObj(

54486

Tcl_GetObjResult(interp),

54487

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54488

return TCL_ERROR;

54489

}

54490

54491

ibis_tcl_error = 0;

54492

_result = (ib_net16_t *)smNotice_data_details_ntc_256_attr_id_get(_arg0);

54493

;

54494

if (ibis_tcl_error) {

54495

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54496

return TCL_ERROR;

54497

}

54498

} tcl_result = Tcl_GetObjResult(interp);

54499

{

54500

char buff[20];

54501

sprintf(buff, "%u", cl_hton16(*_result));

54502

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54503

}

54504

return TCL_OK;

54505

}

54506

#define smNotice_data_details_ntc_256_attr_mod_set(_swigobj,_swigval) (_swigobj->attr_mod = *(_swigval),_swigval)

54507

static int _wrap_smNotice_data_details_ntc_256_attr_mod_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54508

54509

ib_net32_t * _result;

54510

smNotice_data_details_ntc_256 * _arg0;

54511

ib_net32_t * _arg1;

54512

Tcl_Obj * tcl_result;

54513

char * rettype;

54514

ib_net32_t temp;

54515

54516

clientData = clientData; objv = objv;

54517

tcl_result = Tcl_GetObjResult(interp);

54518

if ((objc < 3) || (objc > 3)) {

54519

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_attr_mod_set { smNotice_data_details_ntc_256 * } { ib_net32_t * } ",-1);

54520

return TCL_ERROR;

54521

}

54522

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54523

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_attr_mod_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54524

Tcl_AppendToObj(tcl_result, rettype, -1);

54525

return TCL_ERROR;

54526

}

54527

{

54528

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

54529

_arg1 = &temp;

54530

}

54531

{

54532

/* we can check if IBIS was initialized here */

54533

if (!IbisObj.initialized)

54534

{

54535

Tcl_SetStringObj(

54536

Tcl_GetObjResult(interp),

54537

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54538

return TCL_ERROR;

54539

}

54540

54541

if (! IbisObj.port_guid)

54542

{

54543

Tcl_SetStringObj(

54544

Tcl_GetObjResult(interp),

54545

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54546

return TCL_ERROR;

54547

}

54548

54549

ibis_tcl_error = 0;

54550

_result = (ib_net32_t *)smNotice_data_details_ntc_256_attr_mod_set(_arg0,_arg1);

54551

;

54552

if (ibis_tcl_error) {

54553

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54554

return TCL_ERROR;

54555

}

54556

} tcl_result = Tcl_GetObjResult(interp);

54557

{

54558

char buff[20];

54559

sprintf(buff, "%u", cl_ntoh32(*_result));

54560

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54561

}

54562

return TCL_OK;

54563

}

54564

#define smNotice_data_details_ntc_256_attr_mod_get(_swigobj) (&_swigobj->attr_mod)

54565

static int _wrap_smNotice_data_details_ntc_256_attr_mod_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54566

54567

ib_net32_t * _result;

54568

smNotice_data_details_ntc_256 * _arg0;

54569

Tcl_Obj * tcl_result;

54570

char * rettype;

54571

54572

clientData = clientData; objv = objv;

54573

tcl_result = Tcl_GetObjResult(interp);

54574

if ((objc < 2) || (objc > 2)) {

54575

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_attr_mod_get { smNotice_data_details_ntc_256 * } ",-1);

54576

return TCL_ERROR;

54577

}

54578

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54579

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_attr_mod_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54580

Tcl_AppendToObj(tcl_result, rettype, -1);

54581

return TCL_ERROR;

54582

}

54583

{

54584

/* we can check if IBIS was initialized here */

54585

if (!IbisObj.initialized)

54586

{

54587

Tcl_SetStringObj(

54588

Tcl_GetObjResult(interp),

54589

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54590

return TCL_ERROR;

54591

}

54592

54593

if (! IbisObj.port_guid)

54594

{

54595

Tcl_SetStringObj(

54596

Tcl_GetObjResult(interp),

54597

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54598

return TCL_ERROR;

54599

}

54600

54601

ibis_tcl_error = 0;

54602

_result = (ib_net32_t *)smNotice_data_details_ntc_256_attr_mod_get(_arg0);

54603

;

54604

if (ibis_tcl_error) {

54605

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54606

return TCL_ERROR;

54607

}

54608

} tcl_result = Tcl_GetObjResult(interp);

54609

{

54610

char buff[20];

54611

sprintf(buff, "%u", cl_ntoh32(*_result));

54612

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54613

}

54614

return TCL_OK;

54615

}

54616

#define smNotice_data_details_ntc_256_mkey_set(_swigobj,_swigval) (_swigobj->mkey = *(_swigval),_swigval)

54617

static int _wrap_smNotice_data_details_ntc_256_mkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54618

54619

ib_net64_t * _result;

54620

smNotice_data_details_ntc_256 * _arg0;

54621

ib_net64_t * _arg1;

54622

Tcl_Obj * tcl_result;

54623

char * rettype;

54624

uint64_t temp;

54625

54626

clientData = clientData; objv = objv;

54627

tcl_result = Tcl_GetObjResult(interp);

54628

if ((objc < 3) || (objc > 3)) {

54629

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_mkey_set { smNotice_data_details_ntc_256 * } { ib_net64_t * } ",-1);

54630

return TCL_ERROR;

54631

}

54632

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54633

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_mkey_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54634

Tcl_AppendToObj(tcl_result, rettype, -1);

54635

return TCL_ERROR;

54636

}

54637

{

54638

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

54639

_arg1 = &temp;

54640

}

54641

{

54642

/* we can check if IBIS was initialized here */

54643

if (!IbisObj.initialized)

54644

{

54645

Tcl_SetStringObj(

54646

Tcl_GetObjResult(interp),

54647

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54648

return TCL_ERROR;

54649

}

54650

54651

if (! IbisObj.port_guid)

54652

{

54653

Tcl_SetStringObj(

54654

Tcl_GetObjResult(interp),

54655

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54656

return TCL_ERROR;

54657

}

54658

54659

ibis_tcl_error = 0;

54660

_result = (ib_net64_t *)smNotice_data_details_ntc_256_mkey_set(_arg0,_arg1);

54661

;

54662

if (ibis_tcl_error) {

54663

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54664

return TCL_ERROR;

54665

}

54666

} tcl_result = Tcl_GetObjResult(interp);

54667

{

54668

char buff[20];

54669

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

54670

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54671

}

54672

return TCL_OK;

54673

}

54674

#define smNotice_data_details_ntc_256_mkey_get(_swigobj) (&_swigobj->mkey)

54675

static int _wrap_smNotice_data_details_ntc_256_mkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54676

54677

ib_net64_t * _result;

54678

smNotice_data_details_ntc_256 * _arg0;

54679

Tcl_Obj * tcl_result;

54680

char * rettype;

54681

54682

clientData = clientData; objv = objv;

54683

tcl_result = Tcl_GetObjResult(interp);

54684

if ((objc < 2) || (objc > 2)) {

54685

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_mkey_get { smNotice_data_details_ntc_256 * } ",-1);

54686

return TCL_ERROR;

54687

}

54688

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54689

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_mkey_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54690

Tcl_AppendToObj(tcl_result, rettype, -1);

54691

return TCL_ERROR;

54692

}

54693

{

54694

/* we can check if IBIS was initialized here */

54695

if (!IbisObj.initialized)

54696

{

54697

Tcl_SetStringObj(

54698

Tcl_GetObjResult(interp),

54699

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54700

return TCL_ERROR;

54701

}

54702

54703

if (! IbisObj.port_guid)

54704

{

54705

Tcl_SetStringObj(

54706

Tcl_GetObjResult(interp),

54707

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54708

return TCL_ERROR;

54709

}

54710

54711

ibis_tcl_error = 0;

54712

_result = (ib_net64_t *)smNotice_data_details_ntc_256_mkey_get(_arg0);

54713

;

54714

if (ibis_tcl_error) {

54715

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54716

return TCL_ERROR;

54717

}

54718

} tcl_result = Tcl_GetObjResult(interp);

54719

{

54720

char buff[20];

54721

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

54722

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54723

}

54724

return TCL_OK;

54725

}

54726

#define smNotice_data_details_ntc_256_dr_slid_set(_swigobj,_swigval) (_swigobj->dr_slid = *(_swigval),_swigval)

54727

static int _wrap_smNotice_data_details_ntc_256_dr_slid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54728

54729

uint8_t * _result;

54730

smNotice_data_details_ntc_256 * _arg0;

54731

uint8_t * _arg1;

54732

Tcl_Obj * tcl_result;

54733

char * rettype;

54734

uint8_t temp;

54735

54736

clientData = clientData; objv = objv;

54737

tcl_result = Tcl_GetObjResult(interp);

54738

if ((objc < 3) || (objc > 3)) {

54739

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_slid_set { smNotice_data_details_ntc_256 * } { uint8_t * } ",-1);

54740

return TCL_ERROR;

54741

}

54742

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54743

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_slid_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54744

Tcl_AppendToObj(tcl_result, rettype, -1);

54745

return TCL_ERROR;

54746

}

54747

{

54748

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

54749

_arg1 = &temp;

54750

}

54751

{

54752

/* we can check if IBIS was initialized here */

54753

if (!IbisObj.initialized)

54754

{

54755

Tcl_SetStringObj(

54756

Tcl_GetObjResult(interp),

54757

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54758

return TCL_ERROR;

54759

}

54760

54761

if (! IbisObj.port_guid)

54762

{

54763

Tcl_SetStringObj(

54764

Tcl_GetObjResult(interp),

54765

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54766

return TCL_ERROR;

54767

}

54768

54769

ibis_tcl_error = 0;

54770

_result = (uint8_t *)smNotice_data_details_ntc_256_dr_slid_set(_arg0,_arg1);

54771

;

54772

if (ibis_tcl_error) {

54773

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54774

return TCL_ERROR;

54775

}

54776

} tcl_result = Tcl_GetObjResult(interp);

54777

{

54778

char buff[20];

54779

sprintf(buff, "%u", *_result);

54780

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54781

}

54782

return TCL_OK;

54783

}

54784

#define smNotice_data_details_ntc_256_dr_slid_get(_swigobj) (&_swigobj->dr_slid)

54785

static int _wrap_smNotice_data_details_ntc_256_dr_slid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54786

54787

uint8_t * _result;

54788

smNotice_data_details_ntc_256 * _arg0;

54789

Tcl_Obj * tcl_result;

54790

char * rettype;

54791

54792

clientData = clientData; objv = objv;

54793

tcl_result = Tcl_GetObjResult(interp);

54794

if ((objc < 2) || (objc > 2)) {

54795

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_slid_get { smNotice_data_details_ntc_256 * } ",-1);

54796

return TCL_ERROR;

54797

}

54798

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54799

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_slid_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54800

Tcl_AppendToObj(tcl_result, rettype, -1);

54801

return TCL_ERROR;

54802

}

54803

{

54804

/* we can check if IBIS was initialized here */

54805

if (!IbisObj.initialized)

54806

{

54807

Tcl_SetStringObj(

54808

Tcl_GetObjResult(interp),

54809

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54810

return TCL_ERROR;

54811

}

54812

54813

if (! IbisObj.port_guid)

54814

{

54815

Tcl_SetStringObj(

54816

Tcl_GetObjResult(interp),

54817

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54818

return TCL_ERROR;

54819

}

54820

54821

ibis_tcl_error = 0;

54822

_result = (uint8_t *)smNotice_data_details_ntc_256_dr_slid_get(_arg0);

54823

;

54824

if (ibis_tcl_error) {

54825

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54826

return TCL_ERROR;

54827

}

54828

} tcl_result = Tcl_GetObjResult(interp);

54829

{

54830

char buff[20];

54831

sprintf(buff, "%u", *_result);

54832

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54833

}

54834

return TCL_OK;

54835

}

54836

#define smNotice_data_details_ntc_256_dr_trunc_hop_set(_swigobj,_swigval) (_swigobj->dr_trunc_hop = *(_swigval),_swigval)

54837

static int _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54838

54839

uint8_t * _result;

54840

smNotice_data_details_ntc_256 * _arg0;

54841

uint8_t * _arg1;

54842

Tcl_Obj * tcl_result;

54843

char * rettype;

54844

uint8_t temp;

54845

54846

clientData = clientData; objv = objv;

54847

tcl_result = Tcl_GetObjResult(interp);

54848

if ((objc < 3) || (objc > 3)) {

54849

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_trunc_hop_set { smNotice_data_details_ntc_256 * } { uint8_t * } ",-1);

54850

return TCL_ERROR;

54851

}

54852

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54853

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_trunc_hop_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54854

Tcl_AppendToObj(tcl_result, rettype, -1);

54855

return TCL_ERROR;

54856

}

54857

{

54858

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

54859

_arg1 = &temp;

54860

}

54861

{

54862

/* we can check if IBIS was initialized here */

54863

if (!IbisObj.initialized)

54864

{

54865

Tcl_SetStringObj(

54866

Tcl_GetObjResult(interp),

54867

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54868

return TCL_ERROR;

54869

}

54870

54871

if (! IbisObj.port_guid)

54872

{

54873

Tcl_SetStringObj(

54874

Tcl_GetObjResult(interp),

54875

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54876

return TCL_ERROR;

54877

}

54878

54879

ibis_tcl_error = 0;

54880

_result = (uint8_t *)smNotice_data_details_ntc_256_dr_trunc_hop_set(_arg0,_arg1);

54881

;

54882

if (ibis_tcl_error) {

54883

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54884

return TCL_ERROR;

54885

}

54886

} tcl_result = Tcl_GetObjResult(interp);

54887

{

54888

char buff[20];

54889

sprintf(buff, "%u", *_result);

54890

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54891

}

54892

return TCL_OK;

54893

}

54894

#define smNotice_data_details_ntc_256_dr_trunc_hop_get(_swigobj) (&_swigobj->dr_trunc_hop)

54895

static int _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54896

54897

uint8_t * _result;

54898

smNotice_data_details_ntc_256 * _arg0;

54899

Tcl_Obj * tcl_result;

54900

char * rettype;

54901

54902

clientData = clientData; objv = objv;

54903

tcl_result = Tcl_GetObjResult(interp);

54904

if ((objc < 2) || (objc > 2)) {

54905

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_trunc_hop_get { smNotice_data_details_ntc_256 * } ",-1);

54906

return TCL_ERROR;

54907

}

54908

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54909

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_trunc_hop_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54910

Tcl_AppendToObj(tcl_result, rettype, -1);

54911

return TCL_ERROR;

54912

}

54913

{

54914

/* we can check if IBIS was initialized here */

54915

if (!IbisObj.initialized)

54916

{

54917

Tcl_SetStringObj(

54918

Tcl_GetObjResult(interp),

54919

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

54920

return TCL_ERROR;

54921

}

54922

54923

if (! IbisObj.port_guid)

54924

{

54925

Tcl_SetStringObj(

54926

Tcl_GetObjResult(interp),

54927

" ibis was not yet initialized. please use ibis_set_port before.", -1);

54928

return TCL_ERROR;

54929

}

54930

54931

ibis_tcl_error = 0;

54932

_result = (uint8_t *)smNotice_data_details_ntc_256_dr_trunc_hop_get(_arg0);

54933

;

54934

if (ibis_tcl_error) {

54935

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

54936

return TCL_ERROR;

54937

}

54938

} tcl_result = Tcl_GetObjResult(interp);

54939

{

54940

char buff[20];

54941

sprintf(buff, "%u", *_result);

54942

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

54943

}

54944

return TCL_OK;

54945

}

54946

static uint8_array_t * smNotice_data_details_ntc_256_dr_rtn_path_set(smNotice_data_details_ntc_256 *obj, uint8_array_t val[30]) {

54947

{

54948

int i;

54949

for (i=0; i <30 ; i++) {

54950

obj->dr_rtn_path[i] = *(val+i);

54951

}

54952

}

54953

return (uint8_array_t *) val;

54954

}

54955

static int _wrap_smNotice_data_details_ntc_256_dr_rtn_path_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

54956

54957

uint8_array_t * _result;

54958

smNotice_data_details_ntc_256 * _arg0;

54959

uint8_array_t * _arg1;

54960

Tcl_Obj * tcl_result;

54961

char * rettype;

54962

uint8_t entrys[30];

54963

54964

clientData = clientData; objv = objv;

54965

tcl_result = Tcl_GetObjResult(interp);

54966

if ((objc < 3) || (objc > 3)) {

54967

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_rtn_path_set { smNotice_data_details_ntc_256 * } { uint8_array_t * } ",-1);

54968

return TCL_ERROR;

54969

}

54970

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

54971

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_rtn_path_set. Expected _smNotice_data_details_ntc_256_p, received ", -1);

54972

Tcl_AppendToObj(tcl_result, rettype, -1);

54973

return TCL_ERROR;

54974

}

54975

{

54976

char *buff;

54977

char *p_ch;

54978

char *last;

54979

long int entry;

54980

54981

int i = 0;

54982

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

54983

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

54984

p_ch = strtok_r(buff, " \t",&last);

54985

while (p_ch && (i < 30))

54986

{

54987

entry = strtol(p_ch, NULL, 0);

54988

if (entry > 0xff)

54989

{

54990

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

54991

return TCL_ERROR;

54992

}

54993

entrys[i++] = entry;

54994

p_ch = strtok_r(NULL, " \t", &last);

54995

}

54996

for (; i < 30; i++) entrys[i] = 0;

54997

54998

free(buff);

54999

_arg1 = entrys;

55000

}

55001

{

55002

/* we can check if IBIS was initialized here */

55003

if (!IbisObj.initialized)

55004

{

55005

Tcl_SetStringObj(

55006

Tcl_GetObjResult(interp),

55007

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55008

return TCL_ERROR;

55009

}

55010

55011

if (! IbisObj.port_guid)

55012

{

55013

Tcl_SetStringObj(

55014

Tcl_GetObjResult(interp),

55015

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55016

return TCL_ERROR;

55017

}

55018

55019

ibis_tcl_error = 0;

55020

_result = (uint8_array_t *)smNotice_data_details_ntc_256_dr_rtn_path_set(_arg0,_arg1);

55021

;

55022

if (ibis_tcl_error) {

55023

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55024

return TCL_ERROR;

55025

}

55026

} tcl_result = Tcl_GetObjResult(interp);

55027

{

55028

int i;

55029

char buff[8];

55030

for (i=0; i <30 ; i++) {

55031

sprintf(buff, "0x%02x ", *(_result+i));

55032

Tcl_AppendResult(interp, buff, NULL);

55033

}

55034

}

55035

return TCL_OK;

55036

}

55037

#define smNotice_data_details_ntc_256_dr_rtn_path_get(_swigobj) ((uint8_array_t *) _swigobj->dr_rtn_path)

55038

static int _wrap_smNotice_data_details_ntc_256_dr_rtn_path_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55039

55040

uint8_array_t * _result;

55041

smNotice_data_details_ntc_256 * _arg0;

55042

Tcl_Obj * tcl_result;

55043

char * rettype;

55044

55045

clientData = clientData; objv = objv;

55046

tcl_result = Tcl_GetObjResult(interp);

55047

if ((objc < 2) || (objc > 2)) {

55048

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_256_dr_rtn_path_get { smNotice_data_details_ntc_256 * } ",-1);

55049

return TCL_ERROR;

55050

}

55051

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_256_p"))) {

55052

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_256_dr_rtn_path_get. Expected _smNotice_data_details_ntc_256_p, received ", -1);

55053

Tcl_AppendToObj(tcl_result, rettype, -1);

55054

return TCL_ERROR;

55055

}

55056

{

55057

/* we can check if IBIS was initialized here */

55058

if (!IbisObj.initialized)

55059

{

55060

Tcl_SetStringObj(

55061

Tcl_GetObjResult(interp),

55062

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55063

return TCL_ERROR;

55064

}

55065

55066

if (! IbisObj.port_guid)

55067

{

55068

Tcl_SetStringObj(

55069

Tcl_GetObjResult(interp),

55070

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55071

return TCL_ERROR;

55072

}

55073

55074

ibis_tcl_error = 0;

55075

_result = (uint8_array_t *)smNotice_data_details_ntc_256_dr_rtn_path_get(_arg0);

55076

;

55077

if (ibis_tcl_error) {

55078

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55079

return TCL_ERROR;

55080

}

55081

} tcl_result = Tcl_GetObjResult(interp);

55082

{

55083

int i;

55084

char buff[8];

55085

for (i=0; i <30 ; i++) {

55086

sprintf(buff, "0x%02x ", *(_result+i));

55087

Tcl_AppendResult(interp, buff, NULL);

55088

}

55089

}

55090

return TCL_OK;

55091

}

55092

/* methodcmd8.swg : Tcl8.x method invocation */

55093

55094

static int TclsmNotice_data_details_ntc_256MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

55095

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

55096

char *_str;

55097

int rcode;

55098

Tcl_Obj **objv;

55099

Tcl_Obj *oldarg,*tcl_result,*obj;

55100

int length;

55101

char c;

55102

55103

tcl_result = Tcl_GetObjResult(interp);

55104

objv = (Tcl_Obj **) _objv;

55105

if (objc < 2) {

55106

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_256 methods : { dump cget configure }",-1);

55107

return TCL_ERROR;

55108

}

55109

obj = Tcl_NewObj();

55110

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_256_p");

55111

_str = Tcl_GetStringFromObj(objv[1],&length);

55112

c = *_str;

55113

if (0);

55114

55115

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

55116

int i = 2;

55117

cmd = 0;

55118

while (i+1 < objc) {

55119

_str = Tcl_GetStringFromObj(objv[i],&length);

55120

if (strcmp(_str,"-pad1") == 0) {

55121

cmd = _wrap_smNotice_data_details_ntc_256_pad1_set;

55122

} else if (strcmp(_str,"-lid") == 0) {

55123

cmd = _wrap_smNotice_data_details_ntc_256_lid_set;

55124

} else if (strcmp(_str,"-pad2") == 0) {

55125

cmd = _wrap_smNotice_data_details_ntc_256_pad2_set;

55126

} else if (strcmp(_str,"-method") == 0) {

55127

cmd = _wrap_smNotice_data_details_ntc_256_method_set;

55128

} else if (strcmp(_str,"-pad3") == 0) {

55129

cmd = _wrap_smNotice_data_details_ntc_256_pad3_set;

55130

} else if (strcmp(_str,"-attr_id") == 0) {

55131

cmd = _wrap_smNotice_data_details_ntc_256_attr_id_set;

55132

} else if (strcmp(_str,"-attr_mod") == 0) {

55133

cmd = _wrap_smNotice_data_details_ntc_256_attr_mod_set;

55134

} else if (strcmp(_str,"-mkey") == 0) {

55135

cmd = _wrap_smNotice_data_details_ntc_256_mkey_set;

55136

} else if (strcmp(_str,"-dr_slid") == 0) {

55137

cmd = _wrap_smNotice_data_details_ntc_256_dr_slid_set;

55138

} else if (strcmp(_str,"-dr_trunc_hop") == 0) {

55139

cmd = _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_set;

55140

} else if (strcmp(_str,"-dr_rtn_path") == 0) {

55141

cmd = _wrap_smNotice_data_details_ntc_256_dr_rtn_path_set;

55142

}

55143

if (cmd) {

55144

oldarg = objv[i];

55145

objv[i] = obj;

55146

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

55147

objv[i] = oldarg;

55148

if (rcode == TCL_ERROR) return rcode;

55149

cmd = 0;

55150

} else {

55151

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pad1 -lid -pad2 -method -pad3 -attr_id -attr_mod -mkey -dr_slid -dr_trunc_hop -dr_rtn_path }",-1);

55152

return TCL_ERROR;

55153

}

55154

i+=2;

55155

}

55156

if ((i < objc) || (i == 2)) {

55157

Tcl_SetStringObj(tcl_result,"{ -pad1 -lid -pad2 -method -pad3 -attr_id -attr_mod -mkey -dr_slid -dr_trunc_hop -dr_rtn_path }",-1);

55158

return TCL_ERROR;

55159

}

55160

return TCL_OK;

55161

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

55162

if (objc == 3) {

55163

_str = Tcl_GetStringFromObj(objv[2],&length);

55164

if (0) {}

55165

if (strcmp(_str,"-pad1") == 0) {

55166

cmd = _wrap_smNotice_data_details_ntc_256_pad1_get;

55167

} else if (strcmp(_str,"-lid") == 0) {

55168

cmd = _wrap_smNotice_data_details_ntc_256_lid_get;

55169

} else if (strcmp(_str,"-pad2") == 0) {

55170

cmd = _wrap_smNotice_data_details_ntc_256_pad2_get;

55171

} else if (strcmp(_str,"-method") == 0) {

55172

cmd = _wrap_smNotice_data_details_ntc_256_method_get;

55173

} else if (strcmp(_str,"-pad3") == 0) {

55174

cmd = _wrap_smNotice_data_details_ntc_256_pad3_get;

55175

} else if (strcmp(_str,"-attr_id") == 0) {

55176

cmd = _wrap_smNotice_data_details_ntc_256_attr_id_get;

55177

} else if (strcmp(_str,"-attr_mod") == 0) {

55178

cmd = _wrap_smNotice_data_details_ntc_256_attr_mod_get;

55179

} else if (strcmp(_str,"-mkey") == 0) {

55180

cmd = _wrap_smNotice_data_details_ntc_256_mkey_get;

55181

} else if (strcmp(_str,"-dr_slid") == 0) {

55182

cmd = _wrap_smNotice_data_details_ntc_256_dr_slid_get;

55183

} else if (strcmp(_str,"-dr_trunc_hop") == 0) {

55184

cmd = _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_get;

55185

} else if (strcmp(_str,"-dr_rtn_path") == 0) {

55186

cmd = _wrap_smNotice_data_details_ntc_256_dr_rtn_path_get;

55187

}

55188

else if (strcmp(_str,"-this") == 0) {

55189

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_256_p");

55190

return TCL_OK;

55191

}

55192

if (cmd) {

55193

oldarg = objv[2];

55194

objv[2] = obj;

55195

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

55196

objv[2] = oldarg;

55197

return rcode;

55198

} else {

55199

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pad1 -lid -pad2 -method -pad3 -attr_id -attr_mod -mkey -dr_slid -dr_trunc_hop -dr_rtn_path }",-1);

55200

return TCL_ERROR;

55201

}

55202

} else {

55203

Tcl_SetStringObj(tcl_result,"{ -this -pad1 -lid -pad2 -method -pad3 -attr_id -attr_mod -mkey -dr_slid -dr_trunc_hop -dr_rtn_path }", -1);

55204

return TCL_ERROR;

55205

}

55206

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

55207

if (objc == 2) {

55208

Tcl_Obj *pDumpObj;

55209

pDumpObj = Tcl_NewStringObj("",-1);

55210

Tcl_IncrRefCount(pDumpObj);

55211

cmd = _wrap_smNotice_data_details_ntc_256_pad1_get;

55212

oldarg = objv[2];

55213

objv[2] = obj;

55214

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55215

objv[2] = oldarg;

55216

Tcl_AppendStringsToObj(pDumpObj, "-pad1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55217

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55218

cmd = _wrap_smNotice_data_details_ntc_256_lid_get;

55219

oldarg = objv[2];

55220

objv[2] = obj;

55221

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55222

objv[2] = oldarg;

55223

Tcl_AppendStringsToObj(pDumpObj, "-lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55224

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55225

cmd = _wrap_smNotice_data_details_ntc_256_pad2_get;

55226

oldarg = objv[2];

55227

objv[2] = obj;

55228

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55229

objv[2] = oldarg;

55230

Tcl_AppendStringsToObj(pDumpObj, "-pad2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55231

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55232

cmd = _wrap_smNotice_data_details_ntc_256_method_get;

55233

oldarg = objv[2];

55234

objv[2] = obj;

55235

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55236

objv[2] = oldarg;

55237

Tcl_AppendStringsToObj(pDumpObj, "-method ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55238

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55239

cmd = _wrap_smNotice_data_details_ntc_256_pad3_get;

55240

oldarg = objv[2];

55241

objv[2] = obj;

55242

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55243

objv[2] = oldarg;

55244

Tcl_AppendStringsToObj(pDumpObj, "-pad3 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55245

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55246

cmd = _wrap_smNotice_data_details_ntc_256_attr_id_get;

55247

oldarg = objv[2];

55248

objv[2] = obj;

55249

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55250

objv[2] = oldarg;

55251

Tcl_AppendStringsToObj(pDumpObj, "-attr_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55252

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55253

cmd = _wrap_smNotice_data_details_ntc_256_attr_mod_get;

55254

oldarg = objv[2];

55255

objv[2] = obj;

55256

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55257

objv[2] = oldarg;

55258

Tcl_AppendStringsToObj(pDumpObj, "-attr_mod ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55259

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55260

cmd = _wrap_smNotice_data_details_ntc_256_mkey_get;

55261

oldarg = objv[2];

55262

objv[2] = obj;

55263

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55264

objv[2] = oldarg;

55265

Tcl_AppendStringsToObj(pDumpObj, "-mkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55266

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55267

cmd = _wrap_smNotice_data_details_ntc_256_dr_slid_get;

55268

oldarg = objv[2];

55269

objv[2] = obj;

55270

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55271

objv[2] = oldarg;

55272

Tcl_AppendStringsToObj(pDumpObj, "-dr_slid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55273

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55274

cmd = _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_get;

55275

oldarg = objv[2];

55276

objv[2] = obj;

55277

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55278

objv[2] = oldarg;

55279

Tcl_AppendStringsToObj(pDumpObj, "-dr_trunc_hop ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55280

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55281

cmd = _wrap_smNotice_data_details_ntc_256_dr_rtn_path_get;

55282

oldarg = objv[2];

55283

objv[2] = obj;

55284

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

55285

objv[2] = oldarg;

55286

Tcl_AppendStringsToObj(pDumpObj, "-dr_rtn_path ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

55287

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

55288

55289

Tcl_DecrRefCount(pDumpObj);

55290

return TCL_OK;

55291

} else {

55292

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

55293

return TCL_ERROR;

55294

}

55295

}

55296

if (!cmd) {

55297

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

55298

return TCL_ERROR;

55299

}

55300

oldarg = objv[1];

55301

objv[1] = obj;

55302

rcode = (*cmd)(clientData,interp,objc,objv);

55303

objv[1] = oldarg;

55304

return rcode;

55305

}

55306

55307

55308

55309

/* objcmd8.swg : Tcl 8.x object creation */

55310

55311

static int TclsmNotice_data_details_ntc_256Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55312

void (*del)(ClientData) = 0;

55313

char *name = 0;

55314

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

55315

smNotice_data_details_ntc_256 * newObj = 0;

55316

int firstarg = 0;

55317

int thisarg = 0;

55318

int length;

55319

char *_str;

55320

Tcl_Obj *tcl_result;

55321

55322

tcl_result = Tcl_GetObjResult(interp);

55323

if (objc == 1) {

55324

cmd = 0;

55325

} else {

55326

_str = Tcl_GetStringFromObj(objv[1],&length);

55327

if (strcmp(_str,"-this") == 0) thisarg = 2;

55328

else if (strcmp(_str,"-args") == 0) {

55329

firstarg = 1;

55330

cmd = 0;

55331

} else if (objc == 2) {

55332

firstarg = 1;

55333

name = _str;

55334

cmd = 0;

55335

} else if (objc >= 3) {

55336

name = _str;

55337

_str = Tcl_GetStringFromObj(objv[2],&length);

55338

if (strcmp(_str,"-this") == 0) thisarg = 3;

55339

else {

55340

firstarg = 1;

55341

cmd = 0;

55342

}

55343

}

55344

}

55345

if (cmd) {

55346

int result;

55347

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

55348

if (result == TCL_OK) {

55349

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_256_p");

55350

} else { return result; }

55351

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

55352

del = 0;

55353

} else if (thisarg > 0) {

55354

if (thisarg < objc) {

55355

char *r;

55356

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_256_p");

55357

if (r) {

55358

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_256 object.",-1);

55359

return TCL_ERROR;

55360

}

55361

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

55362

Tcl_SetStringObj(tcl_result,name,-1);

55363

} else {

55364

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

55365

return TCL_ERROR;

55366

}

55367

} else {

55368

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

55369

return TCL_ERROR;

55370

}

55371

{

55372

Tcl_CmdInfo dummy;

55373

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

55374

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_256MethodCmd, (ClientData) newObj, del);

55375

return TCL_OK;

55376

} else {

55377

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

55378

return TCL_ERROR;

55379

}

55380

}

55381

}

55382

55383

55384

#define smNotice_data_details_ntc_257_258_pad1_set(_swigobj,_swigval) (_swigobj->pad1 = *(_swigval),_swigval)

55385

static int _wrap_smNotice_data_details_ntc_257_258_pad1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55386

55387

ib_net16_t * _result;

55388

smNotice_data_details_ntc_257_258 * _arg0;

55389

ib_net16_t * _arg1;

55390

Tcl_Obj * tcl_result;

55391

char * rettype;

55392

ib_net16_t temp;

55393

55394

clientData = clientData; objv = objv;

55395

tcl_result = Tcl_GetObjResult(interp);

55396

if ((objc < 3) || (objc > 3)) {

55397

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_pad1_set { smNotice_data_details_ntc_257_258 * } { ib_net16_t * } ",-1);

55398

return TCL_ERROR;

55399

}

55400

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55401

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_pad1_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55402

Tcl_AppendToObj(tcl_result, rettype, -1);

55403

return TCL_ERROR;

55404

}

55405

{

55406

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

55407

_arg1 = &temp;

55408

}

55409

{

55410

/* we can check if IBIS was initialized here */

55411

if (!IbisObj.initialized)

55412

{

55413

Tcl_SetStringObj(

55414

Tcl_GetObjResult(interp),

55415

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55416

return TCL_ERROR;

55417

}

55418

55419

if (! IbisObj.port_guid)

55420

{

55421

Tcl_SetStringObj(

55422

Tcl_GetObjResult(interp),

55423

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55424

return TCL_ERROR;

55425

}

55426

55427

ibis_tcl_error = 0;

55428

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_pad1_set(_arg0,_arg1);

55429

;

55430

if (ibis_tcl_error) {

55431

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55432

return TCL_ERROR;

55433

}

55434

} tcl_result = Tcl_GetObjResult(interp);

55435

{

55436

char buff[20];

55437

sprintf(buff, "%u", cl_hton16(*_result));

55438

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55439

}

55440

return TCL_OK;

55441

}

55442

#define smNotice_data_details_ntc_257_258_pad1_get(_swigobj) (&_swigobj->pad1)

55443

static int _wrap_smNotice_data_details_ntc_257_258_pad1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55444

55445

ib_net16_t * _result;

55446

smNotice_data_details_ntc_257_258 * _arg0;

55447

Tcl_Obj * tcl_result;

55448

char * rettype;

55449

55450

clientData = clientData; objv = objv;

55451

tcl_result = Tcl_GetObjResult(interp);

55452

if ((objc < 2) || (objc > 2)) {

55453

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_pad1_get { smNotice_data_details_ntc_257_258 * } ",-1);

55454

return TCL_ERROR;

55455

}

55456

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55457

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_pad1_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55458

Tcl_AppendToObj(tcl_result, rettype, -1);

55459

return TCL_ERROR;

55460

}

55461

{

55462

/* we can check if IBIS was initialized here */

55463

if (!IbisObj.initialized)

55464

{

55465

Tcl_SetStringObj(

55466

Tcl_GetObjResult(interp),

55467

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55468

return TCL_ERROR;

55469

}

55470

55471

if (! IbisObj.port_guid)

55472

{

55473

Tcl_SetStringObj(

55474

Tcl_GetObjResult(interp),

55475

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55476

return TCL_ERROR;

55477

}

55478

55479

ibis_tcl_error = 0;

55480

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_pad1_get(_arg0);

55481

;

55482

if (ibis_tcl_error) {

55483

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55484

return TCL_ERROR;

55485

}

55486

} tcl_result = Tcl_GetObjResult(interp);

55487

{

55488

char buff[20];

55489

sprintf(buff, "%u", cl_hton16(*_result));

55490

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55491

}

55492

return TCL_OK;

55493

}

55494

#define smNotice_data_details_ntc_257_258_lid1_set(_swigobj,_swigval) (_swigobj->lid1 = *(_swigval),_swigval)

55495

static int _wrap_smNotice_data_details_ntc_257_258_lid1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55496

55497

ib_net16_t * _result;

55498

smNotice_data_details_ntc_257_258 * _arg0;

55499

ib_net16_t * _arg1;

55500

Tcl_Obj * tcl_result;

55501

char * rettype;

55502

ib_net16_t temp;

55503

55504

clientData = clientData; objv = objv;

55505

tcl_result = Tcl_GetObjResult(interp);

55506

if ((objc < 3) || (objc > 3)) {

55507

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_lid1_set { smNotice_data_details_ntc_257_258 * } { ib_net16_t * } ",-1);

55508

return TCL_ERROR;

55509

}

55510

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55511

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_lid1_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55512

Tcl_AppendToObj(tcl_result, rettype, -1);

55513

return TCL_ERROR;

55514

}

55515

{

55516

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

55517

_arg1 = &temp;

55518

}

55519

{

55520

/* we can check if IBIS was initialized here */

55521

if (!IbisObj.initialized)

55522

{

55523

Tcl_SetStringObj(

55524

Tcl_GetObjResult(interp),

55525

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55526

return TCL_ERROR;

55527

}

55528

55529

if (! IbisObj.port_guid)

55530

{

55531

Tcl_SetStringObj(

55532

Tcl_GetObjResult(interp),

55533

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55534

return TCL_ERROR;

55535

}

55536

55537

ibis_tcl_error = 0;

55538

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_lid1_set(_arg0,_arg1);

55539

;

55540

if (ibis_tcl_error) {

55541

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55542

return TCL_ERROR;

55543

}

55544

} tcl_result = Tcl_GetObjResult(interp);

55545

{

55546

char buff[20];

55547

sprintf(buff, "%u", cl_hton16(*_result));

55548

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55549

}

55550

return TCL_OK;

55551

}

55552

#define smNotice_data_details_ntc_257_258_lid1_get(_swigobj) (&_swigobj->lid1)

55553

static int _wrap_smNotice_data_details_ntc_257_258_lid1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55554

55555

ib_net16_t * _result;

55556

smNotice_data_details_ntc_257_258 * _arg0;

55557

Tcl_Obj * tcl_result;

55558

char * rettype;

55559

55560

clientData = clientData; objv = objv;

55561

tcl_result = Tcl_GetObjResult(interp);

55562

if ((objc < 2) || (objc > 2)) {

55563

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_lid1_get { smNotice_data_details_ntc_257_258 * } ",-1);

55564

return TCL_ERROR;

55565

}

55566

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55567

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_lid1_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55568

Tcl_AppendToObj(tcl_result, rettype, -1);

55569

return TCL_ERROR;

55570

}

55571

{

55572

/* we can check if IBIS was initialized here */

55573

if (!IbisObj.initialized)

55574

{

55575

Tcl_SetStringObj(

55576

Tcl_GetObjResult(interp),

55577

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55578

return TCL_ERROR;

55579

}

55580

55581

if (! IbisObj.port_guid)

55582

{

55583

Tcl_SetStringObj(

55584

Tcl_GetObjResult(interp),

55585

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55586

return TCL_ERROR;

55587

}

55588

55589

ibis_tcl_error = 0;

55590

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_lid1_get(_arg0);

55591

;

55592

if (ibis_tcl_error) {

55593

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55594

return TCL_ERROR;

55595

}

55596

} tcl_result = Tcl_GetObjResult(interp);

55597

{

55598

char buff[20];

55599

sprintf(buff, "%u", cl_hton16(*_result));

55600

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55601

}

55602

return TCL_OK;

55603

}

55604

#define smNotice_data_details_ntc_257_258_lid2_set(_swigobj,_swigval) (_swigobj->lid2 = *(_swigval),_swigval)

55605

static int _wrap_smNotice_data_details_ntc_257_258_lid2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55606

55607

ib_net16_t * _result;

55608

smNotice_data_details_ntc_257_258 * _arg0;

55609

ib_net16_t * _arg1;

55610

Tcl_Obj * tcl_result;

55611

char * rettype;

55612

ib_net16_t temp;

55613

55614

clientData = clientData; objv = objv;

55615

tcl_result = Tcl_GetObjResult(interp);

55616

if ((objc < 3) || (objc > 3)) {

55617

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_lid2_set { smNotice_data_details_ntc_257_258 * } { ib_net16_t * } ",-1);

55618

return TCL_ERROR;

55619

}

55620

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55621

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_lid2_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55622

Tcl_AppendToObj(tcl_result, rettype, -1);

55623

return TCL_ERROR;

55624

}

55625

{

55626

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

55627

_arg1 = &temp;

55628

}

55629

{

55630

/* we can check if IBIS was initialized here */

55631

if (!IbisObj.initialized)

55632

{

55633

Tcl_SetStringObj(

55634

Tcl_GetObjResult(interp),

55635

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55636

return TCL_ERROR;

55637

}

55638

55639

if (! IbisObj.port_guid)

55640

{

55641

Tcl_SetStringObj(

55642

Tcl_GetObjResult(interp),

55643

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55644

return TCL_ERROR;

55645

}

55646

55647

ibis_tcl_error = 0;

55648

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_lid2_set(_arg0,_arg1);

55649

;

55650

if (ibis_tcl_error) {

55651

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55652

return TCL_ERROR;

55653

}

55654

} tcl_result = Tcl_GetObjResult(interp);

55655

{

55656

char buff[20];

55657

sprintf(buff, "%u", cl_hton16(*_result));

55658

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55659

}

55660

return TCL_OK;

55661

}

55662

#define smNotice_data_details_ntc_257_258_lid2_get(_swigobj) (&_swigobj->lid2)

55663

static int _wrap_smNotice_data_details_ntc_257_258_lid2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55664

55665

ib_net16_t * _result;

55666

smNotice_data_details_ntc_257_258 * _arg0;

55667

Tcl_Obj * tcl_result;

55668

char * rettype;

55669

55670

clientData = clientData; objv = objv;

55671

tcl_result = Tcl_GetObjResult(interp);

55672

if ((objc < 2) || (objc > 2)) {

55673

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_lid2_get { smNotice_data_details_ntc_257_258 * } ",-1);

55674

return TCL_ERROR;

55675

}

55676

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55677

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_lid2_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55678

Tcl_AppendToObj(tcl_result, rettype, -1);

55679

return TCL_ERROR;

55680

}

55681

{

55682

/* we can check if IBIS was initialized here */

55683

if (!IbisObj.initialized)

55684

{

55685

Tcl_SetStringObj(

55686

Tcl_GetObjResult(interp),

55687

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55688

return TCL_ERROR;

55689

}

55690

55691

if (! IbisObj.port_guid)

55692

{

55693

Tcl_SetStringObj(

55694

Tcl_GetObjResult(interp),

55695

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55696

return TCL_ERROR;

55697

}

55698

55699

ibis_tcl_error = 0;

55700

_result = (ib_net16_t *)smNotice_data_details_ntc_257_258_lid2_get(_arg0);

55701

;

55702

if (ibis_tcl_error) {

55703

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55704

return TCL_ERROR;

55705

}

55706

} tcl_result = Tcl_GetObjResult(interp);

55707

{

55708

char buff[20];

55709

sprintf(buff, "%u", cl_hton16(*_result));

55710

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55711

}

55712

return TCL_OK;

55713

}

55714

#define smNotice_data_details_ntc_257_258_key_set(_swigobj,_swigval) (_swigobj->key = *(_swigval),_swigval)

55715

static int _wrap_smNotice_data_details_ntc_257_258_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55716

55717

ib_net32_t * _result;

55718

smNotice_data_details_ntc_257_258 * _arg0;

55719

ib_net32_t * _arg1;

55720

Tcl_Obj * tcl_result;

55721

char * rettype;

55722

ib_net32_t temp;

55723

55724

clientData = clientData; objv = objv;

55725

tcl_result = Tcl_GetObjResult(interp);

55726

if ((objc < 3) || (objc > 3)) {

55727

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_key_set { smNotice_data_details_ntc_257_258 * } { ib_net32_t * } ",-1);

55728

return TCL_ERROR;

55729

}

55730

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55731

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_key_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55732

Tcl_AppendToObj(tcl_result, rettype, -1);

55733

return TCL_ERROR;

55734

}

55735

{

55736

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

55737

_arg1 = &temp;

55738

}

55739

{

55740

/* we can check if IBIS was initialized here */

55741

if (!IbisObj.initialized)

55742

{

55743

Tcl_SetStringObj(

55744

Tcl_GetObjResult(interp),

55745

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55746

return TCL_ERROR;

55747

}

55748

55749

if (! IbisObj.port_guid)

55750

{

55751

Tcl_SetStringObj(

55752

Tcl_GetObjResult(interp),

55753

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55754

return TCL_ERROR;

55755

}

55756

55757

ibis_tcl_error = 0;

55758

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_key_set(_arg0,_arg1);

55759

;

55760

if (ibis_tcl_error) {

55761

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55762

return TCL_ERROR;

55763

}

55764

} tcl_result = Tcl_GetObjResult(interp);

55765

{

55766

char buff[20];

55767

sprintf(buff, "%u", cl_ntoh32(*_result));

55768

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55769

}

55770

return TCL_OK;

55771

}

55772

#define smNotice_data_details_ntc_257_258_key_get(_swigobj) (&_swigobj->key)

55773

static int _wrap_smNotice_data_details_ntc_257_258_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55774

55775

ib_net32_t * _result;

55776

smNotice_data_details_ntc_257_258 * _arg0;

55777

Tcl_Obj * tcl_result;

55778

char * rettype;

55779

55780

clientData = clientData; objv = objv;

55781

tcl_result = Tcl_GetObjResult(interp);

55782

if ((objc < 2) || (objc > 2)) {

55783

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_key_get { smNotice_data_details_ntc_257_258 * } ",-1);

55784

return TCL_ERROR;

55785

}

55786

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55787

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_key_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55788

Tcl_AppendToObj(tcl_result, rettype, -1);

55789

return TCL_ERROR;

55790

}

55791

{

55792

/* we can check if IBIS was initialized here */

55793

if (!IbisObj.initialized)

55794

{

55795

Tcl_SetStringObj(

55796

Tcl_GetObjResult(interp),

55797

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55798

return TCL_ERROR;

55799

}

55800

55801

if (! IbisObj.port_guid)

55802

{

55803

Tcl_SetStringObj(

55804

Tcl_GetObjResult(interp),

55805

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55806

return TCL_ERROR;

55807

}

55808

55809

ibis_tcl_error = 0;

55810

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_key_get(_arg0);

55811

;

55812

if (ibis_tcl_error) {

55813

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55814

return TCL_ERROR;

55815

}

55816

} tcl_result = Tcl_GetObjResult(interp);

55817

{

55818

char buff[20];

55819

sprintf(buff, "%u", cl_ntoh32(*_result));

55820

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55821

}

55822

return TCL_OK;

55823

}

55824

#define smNotice_data_details_ntc_257_258_sl_set(_swigobj,_swigval) (_swigobj->sl = *(_swigval),_swigval)

55825

static int _wrap_smNotice_data_details_ntc_257_258_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55826

55827

uint8_t * _result;

55828

smNotice_data_details_ntc_257_258 * _arg0;

55829

uint8_t * _arg1;

55830

Tcl_Obj * tcl_result;

55831

char * rettype;

55832

uint8_t temp;

55833

55834

clientData = clientData; objv = objv;

55835

tcl_result = Tcl_GetObjResult(interp);

55836

if ((objc < 3) || (objc > 3)) {

55837

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_sl_set { smNotice_data_details_ntc_257_258 * } { uint8_t * } ",-1);

55838

return TCL_ERROR;

55839

}

55840

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55841

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_sl_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55842

Tcl_AppendToObj(tcl_result, rettype, -1);

55843

return TCL_ERROR;

55844

}

55845

{

55846

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

55847

_arg1 = &temp;

55848

}

55849

{

55850

/* we can check if IBIS was initialized here */

55851

if (!IbisObj.initialized)

55852

{

55853

Tcl_SetStringObj(

55854

Tcl_GetObjResult(interp),

55855

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55856

return TCL_ERROR;

55857

}

55858

55859

if (! IbisObj.port_guid)

55860

{

55861

Tcl_SetStringObj(

55862

Tcl_GetObjResult(interp),

55863

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55864

return TCL_ERROR;

55865

}

55866

55867

ibis_tcl_error = 0;

55868

_result = (uint8_t *)smNotice_data_details_ntc_257_258_sl_set(_arg0,_arg1);

55869

;

55870

if (ibis_tcl_error) {

55871

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55872

return TCL_ERROR;

55873

}

55874

} tcl_result = Tcl_GetObjResult(interp);

55875

{

55876

char buff[20];

55877

sprintf(buff, "%u", *_result);

55878

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55879

}

55880

return TCL_OK;

55881

}

55882

#define smNotice_data_details_ntc_257_258_sl_get(_swigobj) (&_swigobj->sl)

55883

static int _wrap_smNotice_data_details_ntc_257_258_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55884

55885

uint8_t * _result;

55886

smNotice_data_details_ntc_257_258 * _arg0;

55887

Tcl_Obj * tcl_result;

55888

char * rettype;

55889

55890

clientData = clientData; objv = objv;

55891

tcl_result = Tcl_GetObjResult(interp);

55892

if ((objc < 2) || (objc > 2)) {

55893

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_sl_get { smNotice_data_details_ntc_257_258 * } ",-1);

55894

return TCL_ERROR;

55895

}

55896

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55897

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_sl_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55898

Tcl_AppendToObj(tcl_result, rettype, -1);

55899

return TCL_ERROR;

55900

}

55901

{

55902

/* we can check if IBIS was initialized here */

55903

if (!IbisObj.initialized)

55904

{

55905

Tcl_SetStringObj(

55906

Tcl_GetObjResult(interp),

55907

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55908

return TCL_ERROR;

55909

}

55910

55911

if (! IbisObj.port_guid)

55912

{

55913

Tcl_SetStringObj(

55914

Tcl_GetObjResult(interp),

55915

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55916

return TCL_ERROR;

55917

}

55918

55919

ibis_tcl_error = 0;

55920

_result = (uint8_t *)smNotice_data_details_ntc_257_258_sl_get(_arg0);

55921

;

55922

if (ibis_tcl_error) {

55923

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55924

return TCL_ERROR;

55925

}

55926

} tcl_result = Tcl_GetObjResult(interp);

55927

{

55928

char buff[20];

55929

sprintf(buff, "%u", *_result);

55930

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55931

}

55932

return TCL_OK;

55933

}

55934

#define smNotice_data_details_ntc_257_258_qp1_set(_swigobj,_swigval) (_swigobj->qp1 = *(_swigval),_swigval)

55935

static int _wrap_smNotice_data_details_ntc_257_258_qp1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55936

55937

ib_net32_t * _result;

55938

smNotice_data_details_ntc_257_258 * _arg0;

55939

ib_net32_t * _arg1;

55940

Tcl_Obj * tcl_result;

55941

char * rettype;

55942

ib_net32_t temp;

55943

55944

clientData = clientData; objv = objv;

55945

tcl_result = Tcl_GetObjResult(interp);

55946

if ((objc < 3) || (objc > 3)) {

55947

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_qp1_set { smNotice_data_details_ntc_257_258 * } { ib_net32_t * } ",-1);

55948

return TCL_ERROR;

55949

}

55950

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

55951

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_qp1_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

55952

Tcl_AppendToObj(tcl_result, rettype, -1);

55953

return TCL_ERROR;

55954

}

55955

{

55956

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

55957

_arg1 = &temp;

55958

}

55959

{

55960

/* we can check if IBIS was initialized here */

55961

if (!IbisObj.initialized)

55962

{

55963

Tcl_SetStringObj(

55964

Tcl_GetObjResult(interp),

55965

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

55966

return TCL_ERROR;

55967

}

55968

55969

if (! IbisObj.port_guid)

55970

{

55971

Tcl_SetStringObj(

55972

Tcl_GetObjResult(interp),

55973

" ibis was not yet initialized. please use ibis_set_port before.", -1);

55974

return TCL_ERROR;

55975

}

55976

55977

ibis_tcl_error = 0;

55978

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_qp1_set(_arg0,_arg1);

55979

;

55980

if (ibis_tcl_error) {

55981

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

55982

return TCL_ERROR;

55983

}

55984

} tcl_result = Tcl_GetObjResult(interp);

55985

{

55986

char buff[20];

55987

sprintf(buff, "%u", cl_ntoh32(*_result));

55988

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

55989

}

55990

return TCL_OK;

55991

}

55992

#define smNotice_data_details_ntc_257_258_qp1_get(_swigobj) (&_swigobj->qp1)

55993

static int _wrap_smNotice_data_details_ntc_257_258_qp1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

55994

55995

ib_net32_t * _result;

55996

smNotice_data_details_ntc_257_258 * _arg0;

55997

Tcl_Obj * tcl_result;

55998

char * rettype;

55999

56000

clientData = clientData; objv = objv;

56001

tcl_result = Tcl_GetObjResult(interp);

56002

if ((objc < 2) || (objc > 2)) {

56003

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_qp1_get { smNotice_data_details_ntc_257_258 * } ",-1);

56004

return TCL_ERROR;

56005

}

56006

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56007

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_qp1_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56008

Tcl_AppendToObj(tcl_result, rettype, -1);

56009

return TCL_ERROR;

56010

}

56011

{

56012

/* we can check if IBIS was initialized here */

56013

if (!IbisObj.initialized)

56014

{

56015

Tcl_SetStringObj(

56016

Tcl_GetObjResult(interp),

56017

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56018

return TCL_ERROR;

56019

}

56020

56021

if (! IbisObj.port_guid)

56022

{

56023

Tcl_SetStringObj(

56024

Tcl_GetObjResult(interp),

56025

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56026

return TCL_ERROR;

56027

}

56028

56029

ibis_tcl_error = 0;

56030

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_qp1_get(_arg0);

56031

;

56032

if (ibis_tcl_error) {

56033

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56034

return TCL_ERROR;

56035

}

56036

} tcl_result = Tcl_GetObjResult(interp);

56037

{

56038

char buff[20];

56039

sprintf(buff, "%u", cl_ntoh32(*_result));

56040

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56041

}

56042

return TCL_OK;

56043

}

56044

#define smNotice_data_details_ntc_257_258_qp2_set(_swigobj,_swigval) (_swigobj->qp2 = *(_swigval),_swigval)

56045

static int _wrap_smNotice_data_details_ntc_257_258_qp2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56046

56047

ib_net32_t * _result;

56048

smNotice_data_details_ntc_257_258 * _arg0;

56049

ib_net32_t * _arg1;

56050

Tcl_Obj * tcl_result;

56051

char * rettype;

56052

ib_net32_t temp;

56053

56054

clientData = clientData; objv = objv;

56055

tcl_result = Tcl_GetObjResult(interp);

56056

if ((objc < 3) || (objc > 3)) {

56057

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_qp2_set { smNotice_data_details_ntc_257_258 * } { ib_net32_t * } ",-1);

56058

return TCL_ERROR;

56059

}

56060

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56061

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_qp2_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56062

Tcl_AppendToObj(tcl_result, rettype, -1);

56063

return TCL_ERROR;

56064

}

56065

{

56066

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

56067

_arg1 = &temp;

56068

}

56069

{

56070

/* we can check if IBIS was initialized here */

56071

if (!IbisObj.initialized)

56072

{

56073

Tcl_SetStringObj(

56074

Tcl_GetObjResult(interp),

56075

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56076

return TCL_ERROR;

56077

}

56078

56079

if (! IbisObj.port_guid)

56080

{

56081

Tcl_SetStringObj(

56082

Tcl_GetObjResult(interp),

56083

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56084

return TCL_ERROR;

56085

}

56086

56087

ibis_tcl_error = 0;

56088

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_qp2_set(_arg0,_arg1);

56089

;

56090

if (ibis_tcl_error) {

56091

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56092

return TCL_ERROR;

56093

}

56094

} tcl_result = Tcl_GetObjResult(interp);

56095

{

56096

char buff[20];

56097

sprintf(buff, "%u", cl_ntoh32(*_result));

56098

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56099

}

56100

return TCL_OK;

56101

}

56102

#define smNotice_data_details_ntc_257_258_qp2_get(_swigobj) (&_swigobj->qp2)

56103

static int _wrap_smNotice_data_details_ntc_257_258_qp2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56104

56105

ib_net32_t * _result;

56106

smNotice_data_details_ntc_257_258 * _arg0;

56107

Tcl_Obj * tcl_result;

56108

char * rettype;

56109

56110

clientData = clientData; objv = objv;

56111

tcl_result = Tcl_GetObjResult(interp);

56112

if ((objc < 2) || (objc > 2)) {

56113

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_qp2_get { smNotice_data_details_ntc_257_258 * } ",-1);

56114

return TCL_ERROR;

56115

}

56116

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56117

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_qp2_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56118

Tcl_AppendToObj(tcl_result, rettype, -1);

56119

return TCL_ERROR;

56120

}

56121

{

56122

/* we can check if IBIS was initialized here */

56123

if (!IbisObj.initialized)

56124

{

56125

Tcl_SetStringObj(

56126

Tcl_GetObjResult(interp),

56127

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56128

return TCL_ERROR;

56129

}

56130

56131

if (! IbisObj.port_guid)

56132

{

56133

Tcl_SetStringObj(

56134

Tcl_GetObjResult(interp),

56135

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56136

return TCL_ERROR;

56137

}

56138

56139

ibis_tcl_error = 0;

56140

_result = (ib_net32_t *)smNotice_data_details_ntc_257_258_qp2_get(_arg0);

56141

;

56142

if (ibis_tcl_error) {

56143

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56144

return TCL_ERROR;

56145

}

56146

} tcl_result = Tcl_GetObjResult(interp);

56147

{

56148

char buff[20];

56149

sprintf(buff, "%u", cl_ntoh32(*_result));

56150

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56151

}

56152

return TCL_OK;

56153

}

56154

#define smNotice_data_details_ntc_257_258_gid1_set(_swigobj,_swigval) (_swigobj->gid1 = *(_swigval),_swigval)

56155

static int _wrap_smNotice_data_details_ntc_257_258_gid1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56156

56157

ib_gid_t * _result;

56158

smNotice_data_details_ntc_257_258 * _arg0;

56159

ib_gid_t * _arg1;

56160

Tcl_Obj * tcl_result;

56161

char * rettype;

56162

ib_gid_t temp;

56163

56164

clientData = clientData; objv = objv;

56165

tcl_result = Tcl_GetObjResult(interp);

56166

if ((objc < 3) || (objc > 3)) {

56167

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_gid1_set { smNotice_data_details_ntc_257_258 * } { ib_gid_t * } ",-1);

56168

return TCL_ERROR;

56169

}

56170

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56171

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_gid1_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56172

Tcl_AppendToObj(tcl_result, rettype, -1);

56173

return TCL_ERROR;

56174

}

56175

{

56176

char buf[38];

56177

char *p_prefix, *p_guid;

56178

char *str_token = NULL;

56179

56180

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

56181

p_prefix = strtok_r(buf,":", &str_token);

56182

p_guid = strtok_r(NULL, " ", &str_token);

56183

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

56184

errno = 0;

56185

if (errno) {

56186

printf("Wrong format for gid prefix:%s\n", p_prefix);

56187

return TCL_ERROR;

56188

}

56189

56190

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

56191

if (errno) {

56192

printf("Wrong format for gid guid:%s\n", p_guid);

56193

return TCL_ERROR;

56194

}

56195

56196

_arg1 = &temp;

56197

}

56198

{

56199

/* we can check if IBIS was initialized here */

56200

if (!IbisObj.initialized)

56201

{

56202

Tcl_SetStringObj(

56203

Tcl_GetObjResult(interp),

56204

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56205

return TCL_ERROR;

56206

}

56207

56208

if (! IbisObj.port_guid)

56209

{

56210

Tcl_SetStringObj(

56211

Tcl_GetObjResult(interp),

56212

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56213

return TCL_ERROR;

56214

}

56215

56216

ibis_tcl_error = 0;

56217

_result = (ib_gid_t *)smNotice_data_details_ntc_257_258_gid1_set(_arg0,_arg1);

56218

;

56219

if (ibis_tcl_error) {

56220

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56221

return TCL_ERROR;

56222

}

56223

} tcl_result = Tcl_GetObjResult(interp);

56224

{

56225

char buff[38];

56226

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

56227

cl_ntoh64(_result->unicast.prefix),

56228

cl_ntoh64(_result->unicast.interface_id)

56229

);

56230

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56231

}

56232

return TCL_OK;

56233

}

56234

#define smNotice_data_details_ntc_257_258_gid1_get(_swigobj) (&_swigobj->gid1)

56235

static int _wrap_smNotice_data_details_ntc_257_258_gid1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56236

56237

ib_gid_t * _result;

56238

smNotice_data_details_ntc_257_258 * _arg0;

56239

Tcl_Obj * tcl_result;

56240

char * rettype;

56241

56242

clientData = clientData; objv = objv;

56243

tcl_result = Tcl_GetObjResult(interp);

56244

if ((objc < 2) || (objc > 2)) {

56245

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_gid1_get { smNotice_data_details_ntc_257_258 * } ",-1);

56246

return TCL_ERROR;

56247

}

56248

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56249

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_gid1_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56250

Tcl_AppendToObj(tcl_result, rettype, -1);

56251

return TCL_ERROR;

56252

}

56253

{

56254

/* we can check if IBIS was initialized here */

56255

if (!IbisObj.initialized)

56256

{

56257

Tcl_SetStringObj(

56258

Tcl_GetObjResult(interp),

56259

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56260

return TCL_ERROR;

56261

}

56262

56263

if (! IbisObj.port_guid)

56264

{

56265

Tcl_SetStringObj(

56266

Tcl_GetObjResult(interp),

56267

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56268

return TCL_ERROR;

56269

}

56270

56271

ibis_tcl_error = 0;

56272

_result = (ib_gid_t *)smNotice_data_details_ntc_257_258_gid1_get(_arg0);

56273

;

56274

if (ibis_tcl_error) {

56275

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56276

return TCL_ERROR;

56277

}

56278

} tcl_result = Tcl_GetObjResult(interp);

56279

{

56280

char buff[38];

56281

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

56282

cl_ntoh64(_result->unicast.prefix),

56283

cl_ntoh64(_result->unicast.interface_id)

56284

);

56285

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56286

}

56287

return TCL_OK;

56288

}

56289

#define smNotice_data_details_ntc_257_258_gid2_set(_swigobj,_swigval) (_swigobj->gid2 = *(_swigval),_swigval)

56290

static int _wrap_smNotice_data_details_ntc_257_258_gid2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56291

56292

ib_gid_t * _result;

56293

smNotice_data_details_ntc_257_258 * _arg0;

56294

ib_gid_t * _arg1;

56295

Tcl_Obj * tcl_result;

56296

char * rettype;

56297

ib_gid_t temp;

56298

56299

clientData = clientData; objv = objv;

56300

tcl_result = Tcl_GetObjResult(interp);

56301

if ((objc < 3) || (objc > 3)) {

56302

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_gid2_set { smNotice_data_details_ntc_257_258 * } { ib_gid_t * } ",-1);

56303

return TCL_ERROR;

56304

}

56305

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56306

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_gid2_set. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56307

Tcl_AppendToObj(tcl_result, rettype, -1);

56308

return TCL_ERROR;

56309

}

56310

{

56311

char buf[38];

56312

char *p_prefix, *p_guid;

56313

char *str_token = NULL;

56314

56315

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

56316

p_prefix = strtok_r(buf,":", &str_token);

56317

p_guid = strtok_r(NULL, " ", &str_token);

56318

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

56319

errno = 0;

56320

if (errno) {

56321

printf("Wrong format for gid prefix:%s\n", p_prefix);

56322

return TCL_ERROR;

56323

}

56324

56325

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

56326

if (errno) {

56327

printf("Wrong format for gid guid:%s\n", p_guid);

56328

return TCL_ERROR;

56329

}

56330

56331

_arg1 = &temp;

56332

}

56333

{

56334

/* we can check if IBIS was initialized here */

56335

if (!IbisObj.initialized)

56336

{

56337

Tcl_SetStringObj(

56338

Tcl_GetObjResult(interp),

56339

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56340

return TCL_ERROR;

56341

}

56342

56343

if (! IbisObj.port_guid)

56344

{

56345

Tcl_SetStringObj(

56346

Tcl_GetObjResult(interp),

56347

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56348

return TCL_ERROR;

56349

}

56350

56351

ibis_tcl_error = 0;

56352

_result = (ib_gid_t *)smNotice_data_details_ntc_257_258_gid2_set(_arg0,_arg1);

56353

;

56354

if (ibis_tcl_error) {

56355

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56356

return TCL_ERROR;

56357

}

56358

} tcl_result = Tcl_GetObjResult(interp);

56359

{

56360

char buff[38];

56361

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

56362

cl_ntoh64(_result->unicast.prefix),

56363

cl_ntoh64(_result->unicast.interface_id)

56364

);

56365

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56366

}

56367

return TCL_OK;

56368

}

56369

#define smNotice_data_details_ntc_257_258_gid2_get(_swigobj) (&_swigobj->gid2)

56370

static int _wrap_smNotice_data_details_ntc_257_258_gid2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56371

56372

ib_gid_t * _result;

56373

smNotice_data_details_ntc_257_258 * _arg0;

56374

Tcl_Obj * tcl_result;

56375

char * rettype;

56376

56377

clientData = clientData; objv = objv;

56378

tcl_result = Tcl_GetObjResult(interp);

56379

if ((objc < 2) || (objc > 2)) {

56380

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_257_258_gid2_get { smNotice_data_details_ntc_257_258 * } ",-1);

56381

return TCL_ERROR;

56382

}

56383

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_257_258_p"))) {

56384

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_257_258_gid2_get. Expected _smNotice_data_details_ntc_257_258_p, received ", -1);

56385

Tcl_AppendToObj(tcl_result, rettype, -1);

56386

return TCL_ERROR;

56387

}

56388

{

56389

/* we can check if IBIS was initialized here */

56390

if (!IbisObj.initialized)

56391

{

56392

Tcl_SetStringObj(

56393

Tcl_GetObjResult(interp),

56394

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56395

return TCL_ERROR;

56396

}

56397

56398

if (! IbisObj.port_guid)

56399

{

56400

Tcl_SetStringObj(

56401

Tcl_GetObjResult(interp),

56402

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56403

return TCL_ERROR;

56404

}

56405

56406

ibis_tcl_error = 0;

56407

_result = (ib_gid_t *)smNotice_data_details_ntc_257_258_gid2_get(_arg0);

56408

;

56409

if (ibis_tcl_error) {

56410

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56411

return TCL_ERROR;

56412

}

56413

} tcl_result = Tcl_GetObjResult(interp);

56414

{

56415

char buff[38];

56416

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

56417

cl_ntoh64(_result->unicast.prefix),

56418

cl_ntoh64(_result->unicast.interface_id)

56419

);

56420

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56421

}

56422

return TCL_OK;

56423

}

56424

/* methodcmd8.swg : Tcl8.x method invocation */

56425

56426

static int TclsmNotice_data_details_ntc_257_258MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

56427

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

56428

char *_str;

56429

int rcode;

56430

Tcl_Obj **objv;

56431

Tcl_Obj *oldarg,*tcl_result,*obj;

56432

int length;

56433

char c;

56434

56435

tcl_result = Tcl_GetObjResult(interp);

56436

objv = (Tcl_Obj **) _objv;

56437

if (objc < 2) {

56438

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_257_258 methods : { dump cget configure }",-1);

56439

return TCL_ERROR;

56440

}

56441

obj = Tcl_NewObj();

56442

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_257_258_p");

56443

_str = Tcl_GetStringFromObj(objv[1],&length);

56444

c = *_str;

56445

if (0);

56446

56447

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

56448

int i = 2;

56449

cmd = 0;

56450

while (i+1 < objc) {

56451

_str = Tcl_GetStringFromObj(objv[i],&length);

56452

if (strcmp(_str,"-pad1") == 0) {

56453

cmd = _wrap_smNotice_data_details_ntc_257_258_pad1_set;

56454

} else if (strcmp(_str,"-lid1") == 0) {

56455

cmd = _wrap_smNotice_data_details_ntc_257_258_lid1_set;

56456

} else if (strcmp(_str,"-lid2") == 0) {

56457

cmd = _wrap_smNotice_data_details_ntc_257_258_lid2_set;

56458

} else if (strcmp(_str,"-key") == 0) {

56459

cmd = _wrap_smNotice_data_details_ntc_257_258_key_set;

56460

} else if (strcmp(_str,"-sl") == 0) {

56461

cmd = _wrap_smNotice_data_details_ntc_257_258_sl_set;

56462

} else if (strcmp(_str,"-qp1") == 0) {

56463

cmd = _wrap_smNotice_data_details_ntc_257_258_qp1_set;

56464

} else if (strcmp(_str,"-qp2") == 0) {

56465

cmd = _wrap_smNotice_data_details_ntc_257_258_qp2_set;

56466

} else if (strcmp(_str,"-gid1") == 0) {

56467

cmd = _wrap_smNotice_data_details_ntc_257_258_gid1_set;

56468

} else if (strcmp(_str,"-gid2") == 0) {

56469

cmd = _wrap_smNotice_data_details_ntc_257_258_gid2_set;

56470

}

56471

if (cmd) {

56472

oldarg = objv[i];

56473

objv[i] = obj;

56474

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

56475

objv[i] = oldarg;

56476

if (rcode == TCL_ERROR) return rcode;

56477

cmd = 0;

56478

} else {

56479

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -pad1 -lid1 -lid2 -key -sl -qp1 -qp2 -gid1 -gid2 }",-1);

56480

return TCL_ERROR;

56481

}

56482

i+=2;

56483

}

56484

if ((i < objc) || (i == 2)) {

56485

Tcl_SetStringObj(tcl_result,"{ -pad1 -lid1 -lid2 -key -sl -qp1 -qp2 -gid1 -gid2 }",-1);

56486

return TCL_ERROR;

56487

}

56488

return TCL_OK;

56489

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

56490

if (objc == 3) {

56491

_str = Tcl_GetStringFromObj(objv[2],&length);

56492

if (0) {}

56493

if (strcmp(_str,"-pad1") == 0) {

56494

cmd = _wrap_smNotice_data_details_ntc_257_258_pad1_get;

56495

} else if (strcmp(_str,"-lid1") == 0) {

56496

cmd = _wrap_smNotice_data_details_ntc_257_258_lid1_get;

56497

} else if (strcmp(_str,"-lid2") == 0) {

56498

cmd = _wrap_smNotice_data_details_ntc_257_258_lid2_get;

56499

} else if (strcmp(_str,"-key") == 0) {

56500

cmd = _wrap_smNotice_data_details_ntc_257_258_key_get;

56501

} else if (strcmp(_str,"-sl") == 0) {

56502

cmd = _wrap_smNotice_data_details_ntc_257_258_sl_get;

56503

} else if (strcmp(_str,"-qp1") == 0) {

56504

cmd = _wrap_smNotice_data_details_ntc_257_258_qp1_get;

56505

} else if (strcmp(_str,"-qp2") == 0) {

56506

cmd = _wrap_smNotice_data_details_ntc_257_258_qp2_get;

56507

} else if (strcmp(_str,"-gid1") == 0) {

56508

cmd = _wrap_smNotice_data_details_ntc_257_258_gid1_get;

56509

} else if (strcmp(_str,"-gid2") == 0) {

56510

cmd = _wrap_smNotice_data_details_ntc_257_258_gid2_get;

56511

}

56512

else if (strcmp(_str,"-this") == 0) {

56513

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_257_258_p");

56514

return TCL_OK;

56515

}

56516

if (cmd) {

56517

oldarg = objv[2];

56518

objv[2] = obj;

56519

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

56520

objv[2] = oldarg;

56521

return rcode;

56522

} else {

56523

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -pad1 -lid1 -lid2 -key -sl -qp1 -qp2 -gid1 -gid2 }",-1);

56524

return TCL_ERROR;

56525

}

56526

} else {

56527

Tcl_SetStringObj(tcl_result,"{ -this -pad1 -lid1 -lid2 -key -sl -qp1 -qp2 -gid1 -gid2 }", -1);

56528

return TCL_ERROR;

56529

}

56530

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

56531

if (objc == 2) {

56532

Tcl_Obj *pDumpObj;

56533

pDumpObj = Tcl_NewStringObj("",-1);

56534

Tcl_IncrRefCount(pDumpObj);

56535

cmd = _wrap_smNotice_data_details_ntc_257_258_pad1_get;

56536

oldarg = objv[2];

56537

objv[2] = obj;

56538

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56539

objv[2] = oldarg;

56540

Tcl_AppendStringsToObj(pDumpObj, "-pad1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56541

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56542

cmd = _wrap_smNotice_data_details_ntc_257_258_lid1_get;

56543

oldarg = objv[2];

56544

objv[2] = obj;

56545

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56546

objv[2] = oldarg;

56547

Tcl_AppendStringsToObj(pDumpObj, "-lid1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56548

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56549

cmd = _wrap_smNotice_data_details_ntc_257_258_lid2_get;

56550

oldarg = objv[2];

56551

objv[2] = obj;

56552

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56553

objv[2] = oldarg;

56554

Tcl_AppendStringsToObj(pDumpObj, "-lid2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56555

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56556

cmd = _wrap_smNotice_data_details_ntc_257_258_key_get;

56557

oldarg = objv[2];

56558

objv[2] = obj;

56559

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56560

objv[2] = oldarg;

56561

Tcl_AppendStringsToObj(pDumpObj, "-key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56562

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56563

cmd = _wrap_smNotice_data_details_ntc_257_258_sl_get;

56564

oldarg = objv[2];

56565

objv[2] = obj;

56566

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56567

objv[2] = oldarg;

56568

Tcl_AppendStringsToObj(pDumpObj, "-sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56569

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56570

cmd = _wrap_smNotice_data_details_ntc_257_258_qp1_get;

56571

oldarg = objv[2];

56572

objv[2] = obj;

56573

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56574

objv[2] = oldarg;

56575

Tcl_AppendStringsToObj(pDumpObj, "-qp1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56576

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56577

cmd = _wrap_smNotice_data_details_ntc_257_258_qp2_get;

56578

oldarg = objv[2];

56579

objv[2] = obj;

56580

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56581

objv[2] = oldarg;

56582

Tcl_AppendStringsToObj(pDumpObj, "-qp2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56583

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56584

cmd = _wrap_smNotice_data_details_ntc_257_258_gid1_get;

56585

oldarg = objv[2];

56586

objv[2] = obj;

56587

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56588

objv[2] = oldarg;

56589

Tcl_AppendStringsToObj(pDumpObj, "-gid1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56590

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56591

cmd = _wrap_smNotice_data_details_ntc_257_258_gid2_get;

56592

oldarg = objv[2];

56593

objv[2] = obj;

56594

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

56595

objv[2] = oldarg;

56596

Tcl_AppendStringsToObj(pDumpObj, "-gid2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

56597

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

56598

56599

Tcl_DecrRefCount(pDumpObj);

56600

return TCL_OK;

56601

} else {

56602

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

56603

return TCL_ERROR;

56604

}

56605

}

56606

if (!cmd) {

56607

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

56608

return TCL_ERROR;

56609

}

56610

oldarg = objv[1];

56611

objv[1] = obj;

56612

rcode = (*cmd)(clientData,interp,objc,objv);

56613

objv[1] = oldarg;

56614

return rcode;

56615

}

56616

56617

56618

56619

/* objcmd8.swg : Tcl 8.x object creation */

56620

56621

static int TclsmNotice_data_details_ntc_257_258Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56622

void (*del)(ClientData) = 0;

56623

char *name = 0;

56624

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

56625

smNotice_data_details_ntc_257_258 * newObj = 0;

56626

int firstarg = 0;

56627

int thisarg = 0;

56628

int length;

56629

char *_str;

56630

Tcl_Obj *tcl_result;

56631

56632

tcl_result = Tcl_GetObjResult(interp);

56633

if (objc == 1) {

56634

cmd = 0;

56635

} else {

56636

_str = Tcl_GetStringFromObj(objv[1],&length);

56637

if (strcmp(_str,"-this") == 0) thisarg = 2;

56638

else if (strcmp(_str,"-args") == 0) {

56639

firstarg = 1;

56640

cmd = 0;

56641

} else if (objc == 2) {

56642

firstarg = 1;

56643

name = _str;

56644

cmd = 0;

56645

} else if (objc >= 3) {

56646

name = _str;

56647

_str = Tcl_GetStringFromObj(objv[2],&length);

56648

if (strcmp(_str,"-this") == 0) thisarg = 3;

56649

else {

56650

firstarg = 1;

56651

cmd = 0;

56652

}

56653

}

56654

}

56655

if (cmd) {

56656

int result;

56657

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

56658

if (result == TCL_OK) {

56659

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_257_258_p");

56660

} else { return result; }

56661

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

56662

del = 0;

56663

} else if (thisarg > 0) {

56664

if (thisarg < objc) {

56665

char *r;

56666

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_257_258_p");

56667

if (r) {

56668

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_257_258 object.",-1);

56669

return TCL_ERROR;

56670

}

56671

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

56672

Tcl_SetStringObj(tcl_result,name,-1);

56673

} else {

56674

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

56675

return TCL_ERROR;

56676

}

56677

} else {

56678

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

56679

return TCL_ERROR;

56680

}

56681

{

56682

Tcl_CmdInfo dummy;

56683

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

56684

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_257_258MethodCmd, (ClientData) newObj, del);

56685

return TCL_OK;

56686

} else {

56687

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

56688

return TCL_ERROR;

56689

}

56690

}

56691

}

56692

56693

56694

#define smNotice_data_details_ntc_259_data_valid_set(_swigobj,_swigval) (_swigobj->data_valid = *(_swigval),_swigval)

56695

static int _wrap_smNotice_data_details_ntc_259_data_valid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56696

56697

ib_net16_t * _result;

56698

smNotice_data_details_ntc_259 * _arg0;

56699

ib_net16_t * _arg1;

56700

Tcl_Obj * tcl_result;

56701

char * rettype;

56702

ib_net16_t temp;

56703

56704

clientData = clientData; objv = objv;

56705

tcl_result = Tcl_GetObjResult(interp);

56706

if ((objc < 3) || (objc > 3)) {

56707

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_data_valid_set { smNotice_data_details_ntc_259 * } { ib_net16_t * } ",-1);

56708

return TCL_ERROR;

56709

}

56710

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56711

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_data_valid_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56712

Tcl_AppendToObj(tcl_result, rettype, -1);

56713

return TCL_ERROR;

56714

}

56715

{

56716

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

56717

_arg1 = &temp;

56718

}

56719

{

56720

/* we can check if IBIS was initialized here */

56721

if (!IbisObj.initialized)

56722

{

56723

Tcl_SetStringObj(

56724

Tcl_GetObjResult(interp),

56725

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56726

return TCL_ERROR;

56727

}

56728

56729

if (! IbisObj.port_guid)

56730

{

56731

Tcl_SetStringObj(

56732

Tcl_GetObjResult(interp),

56733

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56734

return TCL_ERROR;

56735

}

56736

56737

ibis_tcl_error = 0;

56738

_result = (ib_net16_t *)smNotice_data_details_ntc_259_data_valid_set(_arg0,_arg1);

56739

;

56740

if (ibis_tcl_error) {

56741

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56742

return TCL_ERROR;

56743

}

56744

} tcl_result = Tcl_GetObjResult(interp);

56745

{

56746

char buff[20];

56747

sprintf(buff, "%u", cl_hton16(*_result));

56748

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56749

}

56750

return TCL_OK;

56751

}

56752

#define smNotice_data_details_ntc_259_data_valid_get(_swigobj) (&_swigobj->data_valid)

56753

static int _wrap_smNotice_data_details_ntc_259_data_valid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56754

56755

ib_net16_t * _result;

56756

smNotice_data_details_ntc_259 * _arg0;

56757

Tcl_Obj * tcl_result;

56758

char * rettype;

56759

56760

clientData = clientData; objv = objv;

56761

tcl_result = Tcl_GetObjResult(interp);

56762

if ((objc < 2) || (objc > 2)) {

56763

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_data_valid_get { smNotice_data_details_ntc_259 * } ",-1);

56764

return TCL_ERROR;

56765

}

56766

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56767

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_data_valid_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56768

Tcl_AppendToObj(tcl_result, rettype, -1);

56769

return TCL_ERROR;

56770

}

56771

{

56772

/* we can check if IBIS was initialized here */

56773

if (!IbisObj.initialized)

56774

{

56775

Tcl_SetStringObj(

56776

Tcl_GetObjResult(interp),

56777

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56778

return TCL_ERROR;

56779

}

56780

56781

if (! IbisObj.port_guid)

56782

{

56783

Tcl_SetStringObj(

56784

Tcl_GetObjResult(interp),

56785

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56786

return TCL_ERROR;

56787

}

56788

56789

ibis_tcl_error = 0;

56790

_result = (ib_net16_t *)smNotice_data_details_ntc_259_data_valid_get(_arg0);

56791

;

56792

if (ibis_tcl_error) {

56793

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56794

return TCL_ERROR;

56795

}

56796

} tcl_result = Tcl_GetObjResult(interp);

56797

{

56798

char buff[20];

56799

sprintf(buff, "%u", cl_hton16(*_result));

56800

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56801

}

56802

return TCL_OK;

56803

}

56804

#define smNotice_data_details_ntc_259_lid1_set(_swigobj,_swigval) (_swigobj->lid1 = *(_swigval),_swigval)

56805

static int _wrap_smNotice_data_details_ntc_259_lid1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56806

56807

ib_net16_t * _result;

56808

smNotice_data_details_ntc_259 * _arg0;

56809

ib_net16_t * _arg1;

56810

Tcl_Obj * tcl_result;

56811

char * rettype;

56812

ib_net16_t temp;

56813

56814

clientData = clientData; objv = objv;

56815

tcl_result = Tcl_GetObjResult(interp);

56816

if ((objc < 3) || (objc > 3)) {

56817

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_lid1_set { smNotice_data_details_ntc_259 * } { ib_net16_t * } ",-1);

56818

return TCL_ERROR;

56819

}

56820

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56821

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_lid1_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56822

Tcl_AppendToObj(tcl_result, rettype, -1);

56823

return TCL_ERROR;

56824

}

56825

{

56826

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

56827

_arg1 = &temp;

56828

}

56829

{

56830

/* we can check if IBIS was initialized here */

56831

if (!IbisObj.initialized)

56832

{

56833

Tcl_SetStringObj(

56834

Tcl_GetObjResult(interp),

56835

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56836

return TCL_ERROR;

56837

}

56838

56839

if (! IbisObj.port_guid)

56840

{

56841

Tcl_SetStringObj(

56842

Tcl_GetObjResult(interp),

56843

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56844

return TCL_ERROR;

56845

}

56846

56847

ibis_tcl_error = 0;

56848

_result = (ib_net16_t *)smNotice_data_details_ntc_259_lid1_set(_arg0,_arg1);

56849

;

56850

if (ibis_tcl_error) {

56851

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56852

return TCL_ERROR;

56853

}

56854

} tcl_result = Tcl_GetObjResult(interp);

56855

{

56856

char buff[20];

56857

sprintf(buff, "%u", cl_hton16(*_result));

56858

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56859

}

56860

return TCL_OK;

56861

}

56862

#define smNotice_data_details_ntc_259_lid1_get(_swigobj) (&_swigobj->lid1)

56863

static int _wrap_smNotice_data_details_ntc_259_lid1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56864

56865

ib_net16_t * _result;

56866

smNotice_data_details_ntc_259 * _arg0;

56867

Tcl_Obj * tcl_result;

56868

char * rettype;

56869

56870

clientData = clientData; objv = objv;

56871

tcl_result = Tcl_GetObjResult(interp);

56872

if ((objc < 2) || (objc > 2)) {

56873

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_lid1_get { smNotice_data_details_ntc_259 * } ",-1);

56874

return TCL_ERROR;

56875

}

56876

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56877

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_lid1_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56878

Tcl_AppendToObj(tcl_result, rettype, -1);

56879

return TCL_ERROR;

56880

}

56881

{

56882

/* we can check if IBIS was initialized here */

56883

if (!IbisObj.initialized)

56884

{

56885

Tcl_SetStringObj(

56886

Tcl_GetObjResult(interp),

56887

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56888

return TCL_ERROR;

56889

}

56890

56891

if (! IbisObj.port_guid)

56892

{

56893

Tcl_SetStringObj(

56894

Tcl_GetObjResult(interp),

56895

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56896

return TCL_ERROR;

56897

}

56898

56899

ibis_tcl_error = 0;

56900

_result = (ib_net16_t *)smNotice_data_details_ntc_259_lid1_get(_arg0);

56901

;

56902

if (ibis_tcl_error) {

56903

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56904

return TCL_ERROR;

56905

}

56906

} tcl_result = Tcl_GetObjResult(interp);

56907

{

56908

char buff[20];

56909

sprintf(buff, "%u", cl_hton16(*_result));

56910

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56911

}

56912

return TCL_OK;

56913

}

56914

#define smNotice_data_details_ntc_259_lid2_set(_swigobj,_swigval) (_swigobj->lid2 = *(_swigval),_swigval)

56915

static int _wrap_smNotice_data_details_ntc_259_lid2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56916

56917

ib_net16_t * _result;

56918

smNotice_data_details_ntc_259 * _arg0;

56919

ib_net16_t * _arg1;

56920

Tcl_Obj * tcl_result;

56921

char * rettype;

56922

ib_net16_t temp;

56923

56924

clientData = clientData; objv = objv;

56925

tcl_result = Tcl_GetObjResult(interp);

56926

if ((objc < 3) || (objc > 3)) {

56927

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_lid2_set { smNotice_data_details_ntc_259 * } { ib_net16_t * } ",-1);

56928

return TCL_ERROR;

56929

}

56930

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56931

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_lid2_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56932

Tcl_AppendToObj(tcl_result, rettype, -1);

56933

return TCL_ERROR;

56934

}

56935

{

56936

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

56937

_arg1 = &temp;

56938

}

56939

{

56940

/* we can check if IBIS was initialized here */

56941

if (!IbisObj.initialized)

56942

{

56943

Tcl_SetStringObj(

56944

Tcl_GetObjResult(interp),

56945

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56946

return TCL_ERROR;

56947

}

56948

56949

if (! IbisObj.port_guid)

56950

{

56951

Tcl_SetStringObj(

56952

Tcl_GetObjResult(interp),

56953

" ibis was not yet initialized. please use ibis_set_port before.", -1);

56954

return TCL_ERROR;

56955

}

56956

56957

ibis_tcl_error = 0;

56958

_result = (ib_net16_t *)smNotice_data_details_ntc_259_lid2_set(_arg0,_arg1);

56959

;

56960

if (ibis_tcl_error) {

56961

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

56962

return TCL_ERROR;

56963

}

56964

} tcl_result = Tcl_GetObjResult(interp);

56965

{

56966

char buff[20];

56967

sprintf(buff, "%u", cl_hton16(*_result));

56968

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

56969

}

56970

return TCL_OK;

56971

}

56972

#define smNotice_data_details_ntc_259_lid2_get(_swigobj) (&_swigobj->lid2)

56973

static int _wrap_smNotice_data_details_ntc_259_lid2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

56974

56975

ib_net16_t * _result;

56976

smNotice_data_details_ntc_259 * _arg0;

56977

Tcl_Obj * tcl_result;

56978

char * rettype;

56979

56980

clientData = clientData; objv = objv;

56981

tcl_result = Tcl_GetObjResult(interp);

56982

if ((objc < 2) || (objc > 2)) {

56983

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_lid2_get { smNotice_data_details_ntc_259 * } ",-1);

56984

return TCL_ERROR;

56985

}

56986

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

56987

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_lid2_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

56988

Tcl_AppendToObj(tcl_result, rettype, -1);

56989

return TCL_ERROR;

56990

}

56991

{

56992

/* we can check if IBIS was initialized here */

56993

if (!IbisObj.initialized)

56994

{

56995

Tcl_SetStringObj(

56996

Tcl_GetObjResult(interp),

56997

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

56998

return TCL_ERROR;

56999

}

57000

57001

if (! IbisObj.port_guid)

57002

{

57003

Tcl_SetStringObj(

57004

Tcl_GetObjResult(interp),

57005

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57006

return TCL_ERROR;

57007

}

57008

57009

ibis_tcl_error = 0;

57010

_result = (ib_net16_t *)smNotice_data_details_ntc_259_lid2_get(_arg0);

57011

;

57012

if (ibis_tcl_error) {

57013

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57014

return TCL_ERROR;

57015

}

57016

} tcl_result = Tcl_GetObjResult(interp);

57017

{

57018

char buff[20];

57019

sprintf(buff, "%u", cl_hton16(*_result));

57020

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57021

}

57022

return TCL_OK;

57023

}

57024

#define smNotice_data_details_ntc_259_key_set(_swigobj,_swigval) (_swigobj->key = *(_swigval),_swigval)

57025

static int _wrap_smNotice_data_details_ntc_259_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57026

57027

ib_net32_t * _result;

57028

smNotice_data_details_ntc_259 * _arg0;

57029

ib_net32_t * _arg1;

57030

Tcl_Obj * tcl_result;

57031

char * rettype;

57032

ib_net32_t temp;

57033

57034

clientData = clientData; objv = objv;

57035

tcl_result = Tcl_GetObjResult(interp);

57036

if ((objc < 3) || (objc > 3)) {

57037

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_key_set { smNotice_data_details_ntc_259 * } { ib_net32_t * } ",-1);

57038

return TCL_ERROR;

57039

}

57040

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57041

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_key_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57042

Tcl_AppendToObj(tcl_result, rettype, -1);

57043

return TCL_ERROR;

57044

}

57045

{

57046

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

57047

_arg1 = &temp;

57048

}

57049

{

57050

/* we can check if IBIS was initialized here */

57051

if (!IbisObj.initialized)

57052

{

57053

Tcl_SetStringObj(

57054

Tcl_GetObjResult(interp),

57055

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57056

return TCL_ERROR;

57057

}

57058

57059

if (! IbisObj.port_guid)

57060

{

57061

Tcl_SetStringObj(

57062

Tcl_GetObjResult(interp),

57063

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57064

return TCL_ERROR;

57065

}

57066

57067

ibis_tcl_error = 0;

57068

_result = (ib_net32_t *)smNotice_data_details_ntc_259_key_set(_arg0,_arg1);

57069

;

57070

if (ibis_tcl_error) {

57071

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57072

return TCL_ERROR;

57073

}

57074

} tcl_result = Tcl_GetObjResult(interp);

57075

{

57076

char buff[20];

57077

sprintf(buff, "%u", cl_ntoh32(*_result));

57078

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57079

}

57080

return TCL_OK;

57081

}

57082

#define smNotice_data_details_ntc_259_key_get(_swigobj) (&_swigobj->key)

57083

static int _wrap_smNotice_data_details_ntc_259_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57084

57085

ib_net32_t * _result;

57086

smNotice_data_details_ntc_259 * _arg0;

57087

Tcl_Obj * tcl_result;

57088

char * rettype;

57089

57090

clientData = clientData; objv = objv;

57091

tcl_result = Tcl_GetObjResult(interp);

57092

if ((objc < 2) || (objc > 2)) {

57093

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_key_get { smNotice_data_details_ntc_259 * } ",-1);

57094

return TCL_ERROR;

57095

}

57096

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57097

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_key_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57098

Tcl_AppendToObj(tcl_result, rettype, -1);

57099

return TCL_ERROR;

57100

}

57101

{

57102

/* we can check if IBIS was initialized here */

57103

if (!IbisObj.initialized)

57104

{

57105

Tcl_SetStringObj(

57106

Tcl_GetObjResult(interp),

57107

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57108

return TCL_ERROR;

57109

}

57110

57111

if (! IbisObj.port_guid)

57112

{

57113

Tcl_SetStringObj(

57114

Tcl_GetObjResult(interp),

57115

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57116

return TCL_ERROR;

57117

}

57118

57119

ibis_tcl_error = 0;

57120

_result = (ib_net32_t *)smNotice_data_details_ntc_259_key_get(_arg0);

57121

;

57122

if (ibis_tcl_error) {

57123

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57124

return TCL_ERROR;

57125

}

57126

} tcl_result = Tcl_GetObjResult(interp);

57127

{

57128

char buff[20];

57129

sprintf(buff, "%u", cl_ntoh32(*_result));

57130

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57131

}

57132

return TCL_OK;

57133

}

57134

#define smNotice_data_details_ntc_259_sl_set(_swigobj,_swigval) (_swigobj->sl = *(_swigval),_swigval)

57135

static int _wrap_smNotice_data_details_ntc_259_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57136

57137

uint8_t * _result;

57138

smNotice_data_details_ntc_259 * _arg0;

57139

uint8_t * _arg1;

57140

Tcl_Obj * tcl_result;

57141

char * rettype;

57142

uint8_t temp;

57143

57144

clientData = clientData; objv = objv;

57145

tcl_result = Tcl_GetObjResult(interp);

57146

if ((objc < 3) || (objc > 3)) {

57147

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_sl_set { smNotice_data_details_ntc_259 * } { uint8_t * } ",-1);

57148

return TCL_ERROR;

57149

}

57150

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57151

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_sl_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57152

Tcl_AppendToObj(tcl_result, rettype, -1);

57153

return TCL_ERROR;

57154

}

57155

{

57156

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

57157

_arg1 = &temp;

57158

}

57159

{

57160

/* we can check if IBIS was initialized here */

57161

if (!IbisObj.initialized)

57162

{

57163

Tcl_SetStringObj(

57164

Tcl_GetObjResult(interp),

57165

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57166

return TCL_ERROR;

57167

}

57168

57169

if (! IbisObj.port_guid)

57170

{

57171

Tcl_SetStringObj(

57172

Tcl_GetObjResult(interp),

57173

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57174

return TCL_ERROR;

57175

}

57176

57177

ibis_tcl_error = 0;

57178

_result = (uint8_t *)smNotice_data_details_ntc_259_sl_set(_arg0,_arg1);

57179

;

57180

if (ibis_tcl_error) {

57181

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57182

return TCL_ERROR;

57183

}

57184

} tcl_result = Tcl_GetObjResult(interp);

57185

{

57186

char buff[20];

57187

sprintf(buff, "%u", *_result);

57188

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57189

}

57190

return TCL_OK;

57191

}

57192

#define smNotice_data_details_ntc_259_sl_get(_swigobj) (&_swigobj->sl)

57193

static int _wrap_smNotice_data_details_ntc_259_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57194

57195

uint8_t * _result;

57196

smNotice_data_details_ntc_259 * _arg0;

57197

Tcl_Obj * tcl_result;

57198

char * rettype;

57199

57200

clientData = clientData; objv = objv;

57201

tcl_result = Tcl_GetObjResult(interp);

57202

if ((objc < 2) || (objc > 2)) {

57203

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_sl_get { smNotice_data_details_ntc_259 * } ",-1);

57204

return TCL_ERROR;

57205

}

57206

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57207

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_sl_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57208

Tcl_AppendToObj(tcl_result, rettype, -1);

57209

return TCL_ERROR;

57210

}

57211

{

57212

/* we can check if IBIS was initialized here */

57213

if (!IbisObj.initialized)

57214

{

57215

Tcl_SetStringObj(

57216

Tcl_GetObjResult(interp),

57217

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57218

return TCL_ERROR;

57219

}

57220

57221

if (! IbisObj.port_guid)

57222

{

57223

Tcl_SetStringObj(

57224

Tcl_GetObjResult(interp),

57225

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57226

return TCL_ERROR;

57227

}

57228

57229

ibis_tcl_error = 0;

57230

_result = (uint8_t *)smNotice_data_details_ntc_259_sl_get(_arg0);

57231

;

57232

if (ibis_tcl_error) {

57233

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57234

return TCL_ERROR;

57235

}

57236

} tcl_result = Tcl_GetObjResult(interp);

57237

{

57238

char buff[20];

57239

sprintf(buff, "%u", *_result);

57240

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57241

}

57242

return TCL_OK;

57243

}

57244

#define smNotice_data_details_ntc_259_qp1_set(_swigobj,_swigval) (_swigobj->qp1 = *(_swigval),_swigval)

57245

static int _wrap_smNotice_data_details_ntc_259_qp1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57246

57247

ib_net32_t * _result;

57248

smNotice_data_details_ntc_259 * _arg0;

57249

ib_net32_t * _arg1;

57250

Tcl_Obj * tcl_result;

57251

char * rettype;

57252

ib_net32_t temp;

57253

57254

clientData = clientData; objv = objv;

57255

tcl_result = Tcl_GetObjResult(interp);

57256

if ((objc < 3) || (objc > 3)) {

57257

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp1_set { smNotice_data_details_ntc_259 * } { ib_net32_t * } ",-1);

57258

return TCL_ERROR;

57259

}

57260

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57261

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp1_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57262

Tcl_AppendToObj(tcl_result, rettype, -1);

57263

return TCL_ERROR;

57264

}

57265

{

57266

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

57267

_arg1 = &temp;

57268

}

57269

{

57270

/* we can check if IBIS was initialized here */

57271

if (!IbisObj.initialized)

57272

{

57273

Tcl_SetStringObj(

57274

Tcl_GetObjResult(interp),

57275

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57276

return TCL_ERROR;

57277

}

57278

57279

if (! IbisObj.port_guid)

57280

{

57281

Tcl_SetStringObj(

57282

Tcl_GetObjResult(interp),

57283

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57284

return TCL_ERROR;

57285

}

57286

57287

ibis_tcl_error = 0;

57288

_result = (ib_net32_t *)smNotice_data_details_ntc_259_qp1_set(_arg0,_arg1);

57289

;

57290

if (ibis_tcl_error) {

57291

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57292

return TCL_ERROR;

57293

}

57294

} tcl_result = Tcl_GetObjResult(interp);

57295

{

57296

char buff[20];

57297

sprintf(buff, "%u", cl_ntoh32(*_result));

57298

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57299

}

57300

return TCL_OK;

57301

}

57302

#define smNotice_data_details_ntc_259_qp1_get(_swigobj) (&_swigobj->qp1)

57303

static int _wrap_smNotice_data_details_ntc_259_qp1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57304

57305

ib_net32_t * _result;

57306

smNotice_data_details_ntc_259 * _arg0;

57307

Tcl_Obj * tcl_result;

57308

char * rettype;

57309

57310

clientData = clientData; objv = objv;

57311

tcl_result = Tcl_GetObjResult(interp);

57312

if ((objc < 2) || (objc > 2)) {

57313

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp1_get { smNotice_data_details_ntc_259 * } ",-1);

57314

return TCL_ERROR;

57315

}

57316

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57317

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp1_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57318

Tcl_AppendToObj(tcl_result, rettype, -1);

57319

return TCL_ERROR;

57320

}

57321

{

57322

/* we can check if IBIS was initialized here */

57323

if (!IbisObj.initialized)

57324

{

57325

Tcl_SetStringObj(

57326

Tcl_GetObjResult(interp),

57327

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57328

return TCL_ERROR;

57329

}

57330

57331

if (! IbisObj.port_guid)

57332

{

57333

Tcl_SetStringObj(

57334

Tcl_GetObjResult(interp),

57335

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57336

return TCL_ERROR;

57337

}

57338

57339

ibis_tcl_error = 0;

57340

_result = (ib_net32_t *)smNotice_data_details_ntc_259_qp1_get(_arg0);

57341

;

57342

if (ibis_tcl_error) {

57343

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57344

return TCL_ERROR;

57345

}

57346

} tcl_result = Tcl_GetObjResult(interp);

57347

{

57348

char buff[20];

57349

sprintf(buff, "%u", cl_ntoh32(*_result));

57350

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57351

}

57352

return TCL_OK;

57353

}

57354

#define smNotice_data_details_ntc_259_qp2_msb_set(_swigobj,_swigval) (_swigobj->qp2_msb = *(_swigval),_swigval)

57355

static int _wrap_smNotice_data_details_ntc_259_qp2_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57356

57357

uint8_t * _result;

57358

smNotice_data_details_ntc_259 * _arg0;

57359

uint8_t * _arg1;

57360

Tcl_Obj * tcl_result;

57361

char * rettype;

57362

uint8_t temp;

57363

57364

clientData = clientData; objv = objv;

57365

tcl_result = Tcl_GetObjResult(interp);

57366

if ((objc < 3) || (objc > 3)) {

57367

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp2_msb_set { smNotice_data_details_ntc_259 * } { uint8_t * } ",-1);

57368

return TCL_ERROR;

57369

}

57370

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57371

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp2_msb_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57372

Tcl_AppendToObj(tcl_result, rettype, -1);

57373

return TCL_ERROR;

57374

}

57375

{

57376

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

57377

_arg1 = &temp;

57378

}

57379

{

57380

/* we can check if IBIS was initialized here */

57381

if (!IbisObj.initialized)

57382

{

57383

Tcl_SetStringObj(

57384

Tcl_GetObjResult(interp),

57385

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57386

return TCL_ERROR;

57387

}

57388

57389

if (! IbisObj.port_guid)

57390

{

57391

Tcl_SetStringObj(

57392

Tcl_GetObjResult(interp),

57393

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57394

return TCL_ERROR;

57395

}

57396

57397

ibis_tcl_error = 0;

57398

_result = (uint8_t *)smNotice_data_details_ntc_259_qp2_msb_set(_arg0,_arg1);

57399

;

57400

if (ibis_tcl_error) {

57401

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57402

return TCL_ERROR;

57403

}

57404

} tcl_result = Tcl_GetObjResult(interp);

57405

{

57406

char buff[20];

57407

sprintf(buff, "%u", *_result);

57408

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57409

}

57410

return TCL_OK;

57411

}

57412

#define smNotice_data_details_ntc_259_qp2_msb_get(_swigobj) (&_swigobj->qp2_msb)

57413

static int _wrap_smNotice_data_details_ntc_259_qp2_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57414

57415

uint8_t * _result;

57416

smNotice_data_details_ntc_259 * _arg0;

57417

Tcl_Obj * tcl_result;

57418

char * rettype;

57419

57420

clientData = clientData; objv = objv;

57421

tcl_result = Tcl_GetObjResult(interp);

57422

if ((objc < 2) || (objc > 2)) {

57423

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp2_msb_get { smNotice_data_details_ntc_259 * } ",-1);

57424

return TCL_ERROR;

57425

}

57426

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57427

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp2_msb_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57428

Tcl_AppendToObj(tcl_result, rettype, -1);

57429

return TCL_ERROR;

57430

}

57431

{

57432

/* we can check if IBIS was initialized here */

57433

if (!IbisObj.initialized)

57434

{

57435

Tcl_SetStringObj(

57436

Tcl_GetObjResult(interp),

57437

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57438

return TCL_ERROR;

57439

}

57440

57441

if (! IbisObj.port_guid)

57442

{

57443

Tcl_SetStringObj(

57444

Tcl_GetObjResult(interp),

57445

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57446

return TCL_ERROR;

57447

}

57448

57449

ibis_tcl_error = 0;

57450

_result = (uint8_t *)smNotice_data_details_ntc_259_qp2_msb_get(_arg0);

57451

;

57452

if (ibis_tcl_error) {

57453

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57454

return TCL_ERROR;

57455

}

57456

} tcl_result = Tcl_GetObjResult(interp);

57457

{

57458

char buff[20];

57459

sprintf(buff, "%u", *_result);

57460

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57461

}

57462

return TCL_OK;

57463

}

57464

#define smNotice_data_details_ntc_259_qp2_lsb_set(_swigobj,_swigval) (_swigobj->qp2_lsb = *(_swigval),_swigval)

57465

static int _wrap_smNotice_data_details_ntc_259_qp2_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57466

57467

ib_net16_t * _result;

57468

smNotice_data_details_ntc_259 * _arg0;

57469

ib_net16_t * _arg1;

57470

Tcl_Obj * tcl_result;

57471

char * rettype;

57472

ib_net16_t temp;

57473

57474

clientData = clientData; objv = objv;

57475

tcl_result = Tcl_GetObjResult(interp);

57476

if ((objc < 3) || (objc > 3)) {

57477

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp2_lsb_set { smNotice_data_details_ntc_259 * } { ib_net16_t * } ",-1);

57478

return TCL_ERROR;

57479

}

57480

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57481

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp2_lsb_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57482

Tcl_AppendToObj(tcl_result, rettype, -1);

57483

return TCL_ERROR;

57484

}

57485

{

57486

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

57487

_arg1 = &temp;

57488

}

57489

{

57490

/* we can check if IBIS was initialized here */

57491

if (!IbisObj.initialized)

57492

{

57493

Tcl_SetStringObj(

57494

Tcl_GetObjResult(interp),

57495

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57496

return TCL_ERROR;

57497

}

57498

57499

if (! IbisObj.port_guid)

57500

{

57501

Tcl_SetStringObj(

57502

Tcl_GetObjResult(interp),

57503

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57504

return TCL_ERROR;

57505

}

57506

57507

ibis_tcl_error = 0;

57508

_result = (ib_net16_t *)smNotice_data_details_ntc_259_qp2_lsb_set(_arg0,_arg1);

57509

;

57510

if (ibis_tcl_error) {

57511

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57512

return TCL_ERROR;

57513

}

57514

} tcl_result = Tcl_GetObjResult(interp);

57515

{

57516

char buff[20];

57517

sprintf(buff, "%u", cl_hton16(*_result));

57518

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57519

}

57520

return TCL_OK;

57521

}

57522

#define smNotice_data_details_ntc_259_qp2_lsb_get(_swigobj) (&_swigobj->qp2_lsb)

57523

static int _wrap_smNotice_data_details_ntc_259_qp2_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57524

57525

ib_net16_t * _result;

57526

smNotice_data_details_ntc_259 * _arg0;

57527

Tcl_Obj * tcl_result;

57528

char * rettype;

57529

57530

clientData = clientData; objv = objv;

57531

tcl_result = Tcl_GetObjResult(interp);

57532

if ((objc < 2) || (objc > 2)) {

57533

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_qp2_lsb_get { smNotice_data_details_ntc_259 * } ",-1);

57534

return TCL_ERROR;

57535

}

57536

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57537

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_qp2_lsb_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57538

Tcl_AppendToObj(tcl_result, rettype, -1);

57539

return TCL_ERROR;

57540

}

57541

{

57542

/* we can check if IBIS was initialized here */

57543

if (!IbisObj.initialized)

57544

{

57545

Tcl_SetStringObj(

57546

Tcl_GetObjResult(interp),

57547

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57548

return TCL_ERROR;

57549

}

57550

57551

if (! IbisObj.port_guid)

57552

{

57553

Tcl_SetStringObj(

57554

Tcl_GetObjResult(interp),

57555

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57556

return TCL_ERROR;

57557

}

57558

57559

ibis_tcl_error = 0;

57560

_result = (ib_net16_t *)smNotice_data_details_ntc_259_qp2_lsb_get(_arg0);

57561

;

57562

if (ibis_tcl_error) {

57563

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57564

return TCL_ERROR;

57565

}

57566

} tcl_result = Tcl_GetObjResult(interp);

57567

{

57568

char buff[20];

57569

sprintf(buff, "%u", cl_hton16(*_result));

57570

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57571

}

57572

return TCL_OK;

57573

}

57574

#define smNotice_data_details_ntc_259_gid1_set(_swigobj,_swigval) (_swigobj->gid1 = *(_swigval),_swigval)

57575

static int _wrap_smNotice_data_details_ntc_259_gid1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57576

57577

ib_gid_t * _result;

57578

smNotice_data_details_ntc_259 * _arg0;

57579

ib_gid_t * _arg1;

57580

Tcl_Obj * tcl_result;

57581

char * rettype;

57582

ib_gid_t temp;

57583

57584

clientData = clientData; objv = objv;

57585

tcl_result = Tcl_GetObjResult(interp);

57586

if ((objc < 3) || (objc > 3)) {

57587

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_gid1_set { smNotice_data_details_ntc_259 * } { ib_gid_t * } ",-1);

57588

return TCL_ERROR;

57589

}

57590

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57591

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_gid1_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57592

Tcl_AppendToObj(tcl_result, rettype, -1);

57593

return TCL_ERROR;

57594

}

57595

{

57596

char buf[38];

57597

char *p_prefix, *p_guid;

57598

char *str_token = NULL;

57599

57600

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

57601

p_prefix = strtok_r(buf,":", &str_token);

57602

p_guid = strtok_r(NULL, " ", &str_token);

57603

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

57604

errno = 0;

57605

if (errno) {

57606

printf("Wrong format for gid prefix:%s\n", p_prefix);

57607

return TCL_ERROR;

57608

}

57609

57610

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

57611

if (errno) {

57612

printf("Wrong format for gid guid:%s\n", p_guid);

57613

return TCL_ERROR;

57614

}

57615

57616

_arg1 = &temp;

57617

}

57618

{

57619

/* we can check if IBIS was initialized here */

57620

if (!IbisObj.initialized)

57621

{

57622

Tcl_SetStringObj(

57623

Tcl_GetObjResult(interp),

57624

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57625

return TCL_ERROR;

57626

}

57627

57628

if (! IbisObj.port_guid)

57629

{

57630

Tcl_SetStringObj(

57631

Tcl_GetObjResult(interp),

57632

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57633

return TCL_ERROR;

57634

}

57635

57636

ibis_tcl_error = 0;

57637

_result = (ib_gid_t *)smNotice_data_details_ntc_259_gid1_set(_arg0,_arg1);

57638

;

57639

if (ibis_tcl_error) {

57640

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57641

return TCL_ERROR;

57642

}

57643

} tcl_result = Tcl_GetObjResult(interp);

57644

{

57645

char buff[38];

57646

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

57647

cl_ntoh64(_result->unicast.prefix),

57648

cl_ntoh64(_result->unicast.interface_id)

57649

);

57650

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57651

}

57652

return TCL_OK;

57653

}

57654

#define smNotice_data_details_ntc_259_gid1_get(_swigobj) (&_swigobj->gid1)

57655

static int _wrap_smNotice_data_details_ntc_259_gid1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57656

57657

ib_gid_t * _result;

57658

smNotice_data_details_ntc_259 * _arg0;

57659

Tcl_Obj * tcl_result;

57660

char * rettype;

57661

57662

clientData = clientData; objv = objv;

57663

tcl_result = Tcl_GetObjResult(interp);

57664

if ((objc < 2) || (objc > 2)) {

57665

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_gid1_get { smNotice_data_details_ntc_259 * } ",-1);

57666

return TCL_ERROR;

57667

}

57668

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57669

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_gid1_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57670

Tcl_AppendToObj(tcl_result, rettype, -1);

57671

return TCL_ERROR;

57672

}

57673

{

57674

/* we can check if IBIS was initialized here */

57675

if (!IbisObj.initialized)

57676

{

57677

Tcl_SetStringObj(

57678

Tcl_GetObjResult(interp),

57679

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57680

return TCL_ERROR;

57681

}

57682

57683

if (! IbisObj.port_guid)

57684

{

57685

Tcl_SetStringObj(

57686

Tcl_GetObjResult(interp),

57687

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57688

return TCL_ERROR;

57689

}

57690

57691

ibis_tcl_error = 0;

57692

_result = (ib_gid_t *)smNotice_data_details_ntc_259_gid1_get(_arg0);

57693

;

57694

if (ibis_tcl_error) {

57695

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57696

return TCL_ERROR;

57697

}

57698

} tcl_result = Tcl_GetObjResult(interp);

57699

{

57700

char buff[38];

57701

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

57702

cl_ntoh64(_result->unicast.prefix),

57703

cl_ntoh64(_result->unicast.interface_id)

57704

);

57705

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57706

}

57707

return TCL_OK;

57708

}

57709

#define smNotice_data_details_ntc_259_gid2_set(_swigobj,_swigval) (_swigobj->gid2 = *(_swigval),_swigval)

57710

static int _wrap_smNotice_data_details_ntc_259_gid2_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57711

57712

ib_gid_t * _result;

57713

smNotice_data_details_ntc_259 * _arg0;

57714

ib_gid_t * _arg1;

57715

Tcl_Obj * tcl_result;

57716

char * rettype;

57717

ib_gid_t temp;

57718

57719

clientData = clientData; objv = objv;

57720

tcl_result = Tcl_GetObjResult(interp);

57721

if ((objc < 3) || (objc > 3)) {

57722

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_gid2_set { smNotice_data_details_ntc_259 * } { ib_gid_t * } ",-1);

57723

return TCL_ERROR;

57724

}

57725

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57726

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_gid2_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57727

Tcl_AppendToObj(tcl_result, rettype, -1);

57728

return TCL_ERROR;

57729

}

57730

{

57731

char buf[38];

57732

char *p_prefix, *p_guid;

57733

char *str_token = NULL;

57734

57735

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

57736

p_prefix = strtok_r(buf,":", &str_token);

57737

p_guid = strtok_r(NULL, " ", &str_token);

57738

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

57739

errno = 0;

57740

if (errno) {

57741

printf("Wrong format for gid prefix:%s\n", p_prefix);

57742

return TCL_ERROR;

57743

}

57744

57745

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

57746

if (errno) {

57747

printf("Wrong format for gid guid:%s\n", p_guid);

57748

return TCL_ERROR;

57749

}

57750

57751

_arg1 = &temp;

57752

}

57753

{

57754

/* we can check if IBIS was initialized here */

57755

if (!IbisObj.initialized)

57756

{

57757

Tcl_SetStringObj(

57758

Tcl_GetObjResult(interp),

57759

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57760

return TCL_ERROR;

57761

}

57762

57763

if (! IbisObj.port_guid)

57764

{

57765

Tcl_SetStringObj(

57766

Tcl_GetObjResult(interp),

57767

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57768

return TCL_ERROR;

57769

}

57770

57771

ibis_tcl_error = 0;

57772

_result = (ib_gid_t *)smNotice_data_details_ntc_259_gid2_set(_arg0,_arg1);

57773

;

57774

if (ibis_tcl_error) {

57775

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57776

return TCL_ERROR;

57777

}

57778

} tcl_result = Tcl_GetObjResult(interp);

57779

{

57780

char buff[38];

57781

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

57782

cl_ntoh64(_result->unicast.prefix),

57783

cl_ntoh64(_result->unicast.interface_id)

57784

);

57785

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57786

}

57787

return TCL_OK;

57788

}

57789

#define smNotice_data_details_ntc_259_gid2_get(_swigobj) (&_swigobj->gid2)

57790

static int _wrap_smNotice_data_details_ntc_259_gid2_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57791

57792

ib_gid_t * _result;

57793

smNotice_data_details_ntc_259 * _arg0;

57794

Tcl_Obj * tcl_result;

57795

char * rettype;

57796

57797

clientData = clientData; objv = objv;

57798

tcl_result = Tcl_GetObjResult(interp);

57799

if ((objc < 2) || (objc > 2)) {

57800

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_gid2_get { smNotice_data_details_ntc_259 * } ",-1);

57801

return TCL_ERROR;

57802

}

57803

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57804

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_gid2_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57805

Tcl_AppendToObj(tcl_result, rettype, -1);

57806

return TCL_ERROR;

57807

}

57808

{

57809

/* we can check if IBIS was initialized here */

57810

if (!IbisObj.initialized)

57811

{

57812

Tcl_SetStringObj(

57813

Tcl_GetObjResult(interp),

57814

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57815

return TCL_ERROR;

57816

}

57817

57818

if (! IbisObj.port_guid)

57819

{

57820

Tcl_SetStringObj(

57821

Tcl_GetObjResult(interp),

57822

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57823

return TCL_ERROR;

57824

}

57825

57826

ibis_tcl_error = 0;

57827

_result = (ib_gid_t *)smNotice_data_details_ntc_259_gid2_get(_arg0);

57828

;

57829

if (ibis_tcl_error) {

57830

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57831

return TCL_ERROR;

57832

}

57833

} tcl_result = Tcl_GetObjResult(interp);

57834

{

57835

char buff[38];

57836

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

57837

cl_ntoh64(_result->unicast.prefix),

57838

cl_ntoh64(_result->unicast.interface_id)

57839

);

57840

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57841

}

57842

return TCL_OK;

57843

}

57844

#define smNotice_data_details_ntc_259_sw_lid_set(_swigobj,_swigval) (_swigobj->sw_lid = *(_swigval),_swigval)

57845

static int _wrap_smNotice_data_details_ntc_259_sw_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57846

57847

ib_net16_t * _result;

57848

smNotice_data_details_ntc_259 * _arg0;

57849

ib_net16_t * _arg1;

57850

Tcl_Obj * tcl_result;

57851

char * rettype;

57852

ib_net16_t temp;

57853

57854

clientData = clientData; objv = objv;

57855

tcl_result = Tcl_GetObjResult(interp);

57856

if ((objc < 3) || (objc > 3)) {

57857

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_sw_lid_set { smNotice_data_details_ntc_259 * } { ib_net16_t * } ",-1);

57858

return TCL_ERROR;

57859

}

57860

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57861

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_sw_lid_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57862

Tcl_AppendToObj(tcl_result, rettype, -1);

57863

return TCL_ERROR;

57864

}

57865

{

57866

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

57867

_arg1 = &temp;

57868

}

57869

{

57870

/* we can check if IBIS was initialized here */

57871

if (!IbisObj.initialized)

57872

{

57873

Tcl_SetStringObj(

57874

Tcl_GetObjResult(interp),

57875

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57876

return TCL_ERROR;

57877

}

57878

57879

if (! IbisObj.port_guid)

57880

{

57881

Tcl_SetStringObj(

57882

Tcl_GetObjResult(interp),

57883

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57884

return TCL_ERROR;

57885

}

57886

57887

ibis_tcl_error = 0;

57888

_result = (ib_net16_t *)smNotice_data_details_ntc_259_sw_lid_set(_arg0,_arg1);

57889

;

57890

if (ibis_tcl_error) {

57891

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57892

return TCL_ERROR;

57893

}

57894

} tcl_result = Tcl_GetObjResult(interp);

57895

{

57896

char buff[20];

57897

sprintf(buff, "%u", cl_hton16(*_result));

57898

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57899

}

57900

return TCL_OK;

57901

}

57902

#define smNotice_data_details_ntc_259_sw_lid_get(_swigobj) (&_swigobj->sw_lid)

57903

static int _wrap_smNotice_data_details_ntc_259_sw_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57904

57905

ib_net16_t * _result;

57906

smNotice_data_details_ntc_259 * _arg0;

57907

Tcl_Obj * tcl_result;

57908

char * rettype;

57909

57910

clientData = clientData; objv = objv;

57911

tcl_result = Tcl_GetObjResult(interp);

57912

if ((objc < 2) || (objc > 2)) {

57913

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_sw_lid_get { smNotice_data_details_ntc_259 * } ",-1);

57914

return TCL_ERROR;

57915

}

57916

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57917

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_sw_lid_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57918

Tcl_AppendToObj(tcl_result, rettype, -1);

57919

return TCL_ERROR;

57920

}

57921

{

57922

/* we can check if IBIS was initialized here */

57923

if (!IbisObj.initialized)

57924

{

57925

Tcl_SetStringObj(

57926

Tcl_GetObjResult(interp),

57927

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57928

return TCL_ERROR;

57929

}

57930

57931

if (! IbisObj.port_guid)

57932

{

57933

Tcl_SetStringObj(

57934

Tcl_GetObjResult(interp),

57935

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57936

return TCL_ERROR;

57937

}

57938

57939

ibis_tcl_error = 0;

57940

_result = (ib_net16_t *)smNotice_data_details_ntc_259_sw_lid_get(_arg0);

57941

;

57942

if (ibis_tcl_error) {

57943

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

57944

return TCL_ERROR;

57945

}

57946

} tcl_result = Tcl_GetObjResult(interp);

57947

{

57948

char buff[20];

57949

sprintf(buff, "%u", cl_hton16(*_result));

57950

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

57951

}

57952

return TCL_OK;

57953

}

57954

#define smNotice_data_details_ntc_259_port_no_set(_swigobj,_swigval) (_swigobj->port_no = *(_swigval),_swigval)

57955

static int _wrap_smNotice_data_details_ntc_259_port_no_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

57956

57957

uint8_t * _result;

57958

smNotice_data_details_ntc_259 * _arg0;

57959

uint8_t * _arg1;

57960

Tcl_Obj * tcl_result;

57961

char * rettype;

57962

uint8_t temp;

57963

57964

clientData = clientData; objv = objv;

57965

tcl_result = Tcl_GetObjResult(interp);

57966

if ((objc < 3) || (objc > 3)) {

57967

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_port_no_set { smNotice_data_details_ntc_259 * } { uint8_t * } ",-1);

57968

return TCL_ERROR;

57969

}

57970

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

57971

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_port_no_set. Expected _smNotice_data_details_ntc_259_p, received ", -1);

57972

Tcl_AppendToObj(tcl_result, rettype, -1);

57973

return TCL_ERROR;

57974

}

57975

{

57976

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

57977

_arg1 = &temp;

57978

}

57979

{

57980

/* we can check if IBIS was initialized here */

57981

if (!IbisObj.initialized)

57982

{

57983

Tcl_SetStringObj(

57984

Tcl_GetObjResult(interp),

57985

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

57986

return TCL_ERROR;

57987

}

57988

57989

if (! IbisObj.port_guid)

57990

{

57991

Tcl_SetStringObj(

57992

Tcl_GetObjResult(interp),

57993

" ibis was not yet initialized. please use ibis_set_port before.", -1);

57994

return TCL_ERROR;

57995

}

57996

57997

ibis_tcl_error = 0;

57998

_result = (uint8_t *)smNotice_data_details_ntc_259_port_no_set(_arg0,_arg1);

57999

;

58000

if (ibis_tcl_error) {

58001

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58002

return TCL_ERROR;

58003

}

58004

} tcl_result = Tcl_GetObjResult(interp);

58005

{

58006

char buff[20];

58007

sprintf(buff, "%u", *_result);

58008

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58009

}

58010

return TCL_OK;

58011

}

58012

#define smNotice_data_details_ntc_259_port_no_get(_swigobj) (&_swigobj->port_no)

58013

static int _wrap_smNotice_data_details_ntc_259_port_no_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58014

58015

uint8_t * _result;

58016

smNotice_data_details_ntc_259 * _arg0;

58017

Tcl_Obj * tcl_result;

58018

char * rettype;

58019

58020

clientData = clientData; objv = objv;

58021

tcl_result = Tcl_GetObjResult(interp);

58022

if ((objc < 2) || (objc > 2)) {

58023

Tcl_SetStringObj(tcl_result,"Wrong # args. smNotice_data_details_ntc_259_port_no_get { smNotice_data_details_ntc_259 * } ",-1);

58024

return TCL_ERROR;

58025

}

58026

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_smNotice_data_details_ntc_259_p"))) {

58027

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of smNotice_data_details_ntc_259_port_no_get. Expected _smNotice_data_details_ntc_259_p, received ", -1);

58028

Tcl_AppendToObj(tcl_result, rettype, -1);

58029

return TCL_ERROR;

58030

}

58031

{

58032

/* we can check if IBIS was initialized here */

58033

if (!IbisObj.initialized)

58034

{

58035

Tcl_SetStringObj(

58036

Tcl_GetObjResult(interp),

58037

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58038

return TCL_ERROR;

58039

}

58040

58041

if (! IbisObj.port_guid)

58042

{

58043

Tcl_SetStringObj(

58044

Tcl_GetObjResult(interp),

58045

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58046

return TCL_ERROR;

58047

}

58048

58049

ibis_tcl_error = 0;

58050

_result = (uint8_t *)smNotice_data_details_ntc_259_port_no_get(_arg0);

58051

;

58052

if (ibis_tcl_error) {

58053

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58054

return TCL_ERROR;

58055

}

58056

} tcl_result = Tcl_GetObjResult(interp);

58057

{

58058

char buff[20];

58059

sprintf(buff, "%u", *_result);

58060

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58061

}

58062

return TCL_OK;

58063

}

58064

/* methodcmd8.swg : Tcl8.x method invocation */

58065

58066

static int TclsmNotice_data_details_ntc_259MethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

58067

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

58068

char *_str;

58069

int rcode;

58070

Tcl_Obj **objv;

58071

Tcl_Obj *oldarg,*tcl_result,*obj;

58072

int length;

58073

char c;

58074

58075

tcl_result = Tcl_GetObjResult(interp);

58076

objv = (Tcl_Obj **) _objv;

58077

if (objc < 2) {

58078

Tcl_SetStringObj(tcl_result,"smNotice_data_details_ntc_259 methods : { dump cget configure }",-1);

58079

return TCL_ERROR;

58080

}

58081

obj = Tcl_NewObj();

58082

SWIG_SetPointerObj(obj,(void *) clientData,"_smNotice_data_details_ntc_259_p");

58083

_str = Tcl_GetStringFromObj(objv[1],&length);

58084

c = *_str;

58085

if (0);

58086

58087

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

58088

int i = 2;

58089

cmd = 0;

58090

while (i+1 < objc) {

58091

_str = Tcl_GetStringFromObj(objv[i],&length);

58092

if (strcmp(_str,"-data_valid") == 0) {

58093

cmd = _wrap_smNotice_data_details_ntc_259_data_valid_set;

58094

} else if (strcmp(_str,"-lid1") == 0) {

58095

cmd = _wrap_smNotice_data_details_ntc_259_lid1_set;

58096

} else if (strcmp(_str,"-lid2") == 0) {

58097

cmd = _wrap_smNotice_data_details_ntc_259_lid2_set;

58098

} else if (strcmp(_str,"-key") == 0) {

58099

cmd = _wrap_smNotice_data_details_ntc_259_key_set;

58100

} else if (strcmp(_str,"-sl") == 0) {

58101

cmd = _wrap_smNotice_data_details_ntc_259_sl_set;

58102

} else if (strcmp(_str,"-qp1") == 0) {

58103

cmd = _wrap_smNotice_data_details_ntc_259_qp1_set;

58104

} else if (strcmp(_str,"-qp2_msb") == 0) {

58105

cmd = _wrap_smNotice_data_details_ntc_259_qp2_msb_set;

58106

} else if (strcmp(_str,"-qp2_lsb") == 0) {

58107

cmd = _wrap_smNotice_data_details_ntc_259_qp2_lsb_set;

58108

} else if (strcmp(_str,"-gid1") == 0) {

58109

cmd = _wrap_smNotice_data_details_ntc_259_gid1_set;

58110

} else if (strcmp(_str,"-gid2") == 0) {

58111

cmd = _wrap_smNotice_data_details_ntc_259_gid2_set;

58112

} else if (strcmp(_str,"-sw_lid") == 0) {

58113

cmd = _wrap_smNotice_data_details_ntc_259_sw_lid_set;

58114

} else if (strcmp(_str,"-port_no") == 0) {

58115

cmd = _wrap_smNotice_data_details_ntc_259_port_no_set;

58116

}

58117

if (cmd) {

58118

oldarg = objv[i];

58119

objv[i] = obj;

58120

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

58121

objv[i] = oldarg;

58122

if (rcode == TCL_ERROR) return rcode;

58123

cmd = 0;

58124

} else {

58125

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -data_valid -lid1 -lid2 -key -sl -qp1 -qp2_msb -qp2_lsb -gid1 -gid2 -sw_lid -port_no }",-1);

58126

return TCL_ERROR;

58127

}

58128

i+=2;

58129

}

58130

if ((i < objc) || (i == 2)) {

58131

Tcl_SetStringObj(tcl_result,"{ -data_valid -lid1 -lid2 -key -sl -qp1 -qp2_msb -qp2_lsb -gid1 -gid2 -sw_lid -port_no }",-1);

58132

return TCL_ERROR;

58133

}

58134

return TCL_OK;

58135

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

58136

if (objc == 3) {

58137

_str = Tcl_GetStringFromObj(objv[2],&length);

58138

if (0) {}

58139

if (strcmp(_str,"-data_valid") == 0) {

58140

cmd = _wrap_smNotice_data_details_ntc_259_data_valid_get;

58141

} else if (strcmp(_str,"-lid1") == 0) {

58142

cmd = _wrap_smNotice_data_details_ntc_259_lid1_get;

58143

} else if (strcmp(_str,"-lid2") == 0) {

58144

cmd = _wrap_smNotice_data_details_ntc_259_lid2_get;

58145

} else if (strcmp(_str,"-key") == 0) {

58146

cmd = _wrap_smNotice_data_details_ntc_259_key_get;

58147

} else if (strcmp(_str,"-sl") == 0) {

58148

cmd = _wrap_smNotice_data_details_ntc_259_sl_get;

58149

} else if (strcmp(_str,"-qp1") == 0) {

58150

cmd = _wrap_smNotice_data_details_ntc_259_qp1_get;

58151

} else if (strcmp(_str,"-qp2_msb") == 0) {

58152

cmd = _wrap_smNotice_data_details_ntc_259_qp2_msb_get;

58153

} else if (strcmp(_str,"-qp2_lsb") == 0) {

58154

cmd = _wrap_smNotice_data_details_ntc_259_qp2_lsb_get;

58155

} else if (strcmp(_str,"-gid1") == 0) {

58156

cmd = _wrap_smNotice_data_details_ntc_259_gid1_get;

58157

} else if (strcmp(_str,"-gid2") == 0) {

58158

cmd = _wrap_smNotice_data_details_ntc_259_gid2_get;

58159

} else if (strcmp(_str,"-sw_lid") == 0) {

58160

cmd = _wrap_smNotice_data_details_ntc_259_sw_lid_get;

58161

} else if (strcmp(_str,"-port_no") == 0) {

58162

cmd = _wrap_smNotice_data_details_ntc_259_port_no_get;

58163

}

58164

else if (strcmp(_str,"-this") == 0) {

58165

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_smNotice_data_details_ntc_259_p");

58166

return TCL_OK;

58167

}

58168

if (cmd) {

58169

oldarg = objv[2];

58170

objv[2] = obj;

58171

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

58172

objv[2] = oldarg;

58173

return rcode;

58174

} else {

58175

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -data_valid -lid1 -lid2 -key -sl -qp1 -qp2_msb -qp2_lsb -gid1 -gid2 -sw_lid -port_no }",-1);

58176

return TCL_ERROR;

58177

}

58178

} else {

58179

Tcl_SetStringObj(tcl_result,"{ -this -data_valid -lid1 -lid2 -key -sl -qp1 -qp2_msb -qp2_lsb -gid1 -gid2 -sw_lid -port_no }", -1);

58180

return TCL_ERROR;

58181

}

58182

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

58183

if (objc == 2) {

58184

Tcl_Obj *pDumpObj;

58185

pDumpObj = Tcl_NewStringObj("",-1);

58186

Tcl_IncrRefCount(pDumpObj);

58187

cmd = _wrap_smNotice_data_details_ntc_259_data_valid_get;

58188

oldarg = objv[2];

58189

objv[2] = obj;

58190

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58191

objv[2] = oldarg;

58192

Tcl_AppendStringsToObj(pDumpObj, "-data_valid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58193

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58194

cmd = _wrap_smNotice_data_details_ntc_259_lid1_get;

58195

oldarg = objv[2];

58196

objv[2] = obj;

58197

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58198

objv[2] = oldarg;

58199

Tcl_AppendStringsToObj(pDumpObj, "-lid1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58200

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58201

cmd = _wrap_smNotice_data_details_ntc_259_lid2_get;

58202

oldarg = objv[2];

58203

objv[2] = obj;

58204

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58205

objv[2] = oldarg;

58206

Tcl_AppendStringsToObj(pDumpObj, "-lid2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58207

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58208

cmd = _wrap_smNotice_data_details_ntc_259_key_get;

58209

oldarg = objv[2];

58210

objv[2] = obj;

58211

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58212

objv[2] = oldarg;

58213

Tcl_AppendStringsToObj(pDumpObj, "-key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58214

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58215

cmd = _wrap_smNotice_data_details_ntc_259_sl_get;

58216

oldarg = objv[2];

58217

objv[2] = obj;

58218

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58219

objv[2] = oldarg;

58220

Tcl_AppendStringsToObj(pDumpObj, "-sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58221

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58222

cmd = _wrap_smNotice_data_details_ntc_259_qp1_get;

58223

oldarg = objv[2];

58224

objv[2] = obj;

58225

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58226

objv[2] = oldarg;

58227

Tcl_AppendStringsToObj(pDumpObj, "-qp1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58228

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58229

cmd = _wrap_smNotice_data_details_ntc_259_qp2_msb_get;

58230

oldarg = objv[2];

58231

objv[2] = obj;

58232

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58233

objv[2] = oldarg;

58234

Tcl_AppendStringsToObj(pDumpObj, "-qp2_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58235

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58236

cmd = _wrap_smNotice_data_details_ntc_259_qp2_lsb_get;

58237

oldarg = objv[2];

58238

objv[2] = obj;

58239

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58240

objv[2] = oldarg;

58241

Tcl_AppendStringsToObj(pDumpObj, "-qp2_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58242

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58243

cmd = _wrap_smNotice_data_details_ntc_259_gid1_get;

58244

oldarg = objv[2];

58245

objv[2] = obj;

58246

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58247

objv[2] = oldarg;

58248

Tcl_AppendStringsToObj(pDumpObj, "-gid1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58249

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58250

cmd = _wrap_smNotice_data_details_ntc_259_gid2_get;

58251

oldarg = objv[2];

58252

objv[2] = obj;

58253

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58254

objv[2] = oldarg;

58255

Tcl_AppendStringsToObj(pDumpObj, "-gid2 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58256

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58257

cmd = _wrap_smNotice_data_details_ntc_259_sw_lid_get;

58258

oldarg = objv[2];

58259

objv[2] = obj;

58260

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58261

objv[2] = oldarg;

58262

Tcl_AppendStringsToObj(pDumpObj, "-sw_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58263

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58264

cmd = _wrap_smNotice_data_details_ntc_259_port_no_get;

58265

oldarg = objv[2];

58266

objv[2] = obj;

58267

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

58268

objv[2] = oldarg;

58269

Tcl_AppendStringsToObj(pDumpObj, "-port_no ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

58270

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

58271

58272

Tcl_DecrRefCount(pDumpObj);

58273

return TCL_OK;

58274

} else {

58275

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

58276

return TCL_ERROR;

58277

}

58278

}

58279

if (!cmd) {

58280

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

58281

return TCL_ERROR;

58282

}

58283

oldarg = objv[1];

58284

objv[1] = obj;

58285

rcode = (*cmd)(clientData,interp,objc,objv);

58286

objv[1] = oldarg;

58287

return rcode;

58288

}

58289

58290

58291

58292

/* objcmd8.swg : Tcl 8.x object creation */

58293

58294

static int TclsmNotice_data_details_ntc_259Cmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58295

void (*del)(ClientData) = 0;

58296

char *name = 0;

58297

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

58298

smNotice_data_details_ntc_259 * newObj = 0;

58299

int firstarg = 0;

58300

int thisarg = 0;

58301

int length;

58302

char *_str;

58303

Tcl_Obj *tcl_result;

58304

58305

tcl_result = Tcl_GetObjResult(interp);

58306

if (objc == 1) {

58307

cmd = 0;

58308

} else {

58309

_str = Tcl_GetStringFromObj(objv[1],&length);

58310

if (strcmp(_str,"-this") == 0) thisarg = 2;

58311

else if (strcmp(_str,"-args") == 0) {

58312

firstarg = 1;

58313

cmd = 0;

58314

} else if (objc == 2) {

58315

firstarg = 1;

58316

name = _str;

58317

cmd = 0;

58318

} else if (objc >= 3) {

58319

name = _str;

58320

_str = Tcl_GetStringFromObj(objv[2],&length);

58321

if (strcmp(_str,"-this") == 0) thisarg = 3;

58322

else {

58323

firstarg = 1;

58324

cmd = 0;

58325

}

58326

}

58327

}

58328

if (cmd) {

58329

int result;

58330

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

58331

if (result == TCL_OK) {

58332

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_smNotice_data_details_ntc_259_p");

58333

} else { return result; }

58334

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

58335

del = 0;

58336

} else if (thisarg > 0) {

58337

if (thisarg < objc) {

58338

char *r;

58339

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_smNotice_data_details_ntc_259_p");

58340

if (r) {

58341

Tcl_SetStringObj(tcl_result,"Type error. not a smNotice_data_details_ntc_259 object.",-1);

58342

return TCL_ERROR;

58343

}

58344

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

58345

Tcl_SetStringObj(tcl_result,name,-1);

58346

} else {

58347

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

58348

return TCL_ERROR;

58349

}

58350

} else {

58351

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

58352

return TCL_ERROR;

58353

}

58354

{

58355

Tcl_CmdInfo dummy;

58356

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

58357

Tcl_CreateObjCommand(interp,name, TclsmNotice_data_details_ntc_259MethodCmd, (ClientData) newObj, del);

58358

return TCL_OK;

58359

} else {

58360

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

58361

return TCL_ERROR;

58362

}

58363

}

58364

}

58365

58366

58367

#define _ibcc_class_port_info_base_ver_set(_swigobj,_swigval) (_swigobj->base_ver = *(_swigval),_swigval)

58368

static int _wrap_ccClassPortInfo_base_ver_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58369

58370

uint8_t * _result;

58371

ccClassPortInfo * _arg0;

58372

uint8_t * _arg1;

58373

Tcl_Obj * tcl_result;

58374

char * rettype;

58375

uint8_t temp;

58376

58377

clientData = clientData; objv = objv;

58378

tcl_result = Tcl_GetObjResult(interp);

58379

if ((objc < 3) || (objc > 3)) {

58380

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_base_ver_set { ccClassPortInfo * } { uint8_t * } ",-1);

58381

return TCL_ERROR;

58382

}

58383

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58384

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_base_ver_set. Expected _ccClassPortInfo_p, received ", -1);

58385

Tcl_AppendToObj(tcl_result, rettype, -1);

58386

return TCL_ERROR;

58387

}

58388

{

58389

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

58390

_arg1 = &temp;

58391

}

58392

{

58393

/* we can check if IBIS was initialized here */

58394

if (!IbisObj.initialized)

58395

{

58396

Tcl_SetStringObj(

58397

Tcl_GetObjResult(interp),

58398

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58399

return TCL_ERROR;

58400

}

58401

58402

if (! IbisObj.port_guid)

58403

{

58404

Tcl_SetStringObj(

58405

Tcl_GetObjResult(interp),

58406

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58407

return TCL_ERROR;

58408

}

58409

58410

ibis_tcl_error = 0;

58411

_result = (uint8_t *)_ibcc_class_port_info_base_ver_set(_arg0,_arg1);

58412

;

58413

if (ibis_tcl_error) {

58414

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58415

return TCL_ERROR;

58416

}

58417

} tcl_result = Tcl_GetObjResult(interp);

58418

{

58419

char buff[20];

58420

sprintf(buff, "%u", *_result);

58421

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58422

}

58423

return TCL_OK;

58424

}

58425

#define _ibcc_class_port_info_base_ver_get(_swigobj) (&_swigobj->base_ver)

58426

static int _wrap_ccClassPortInfo_base_ver_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58427

58428

uint8_t * _result;

58429

ccClassPortInfo * _arg0;

58430

Tcl_Obj * tcl_result;

58431

char * rettype;

58432

58433

clientData = clientData; objv = objv;

58434

tcl_result = Tcl_GetObjResult(interp);

58435

if ((objc < 2) || (objc > 2)) {

58436

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_base_ver_get { ccClassPortInfo * } ",-1);

58437

return TCL_ERROR;

58438

}

58439

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58440

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_base_ver_get. Expected _ccClassPortInfo_p, received ", -1);

58441

Tcl_AppendToObj(tcl_result, rettype, -1);

58442

return TCL_ERROR;

58443

}

58444

{

58445

/* we can check if IBIS was initialized here */

58446

if (!IbisObj.initialized)

58447

{

58448

Tcl_SetStringObj(

58449

Tcl_GetObjResult(interp),

58450

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58451

return TCL_ERROR;

58452

}

58453

58454

if (! IbisObj.port_guid)

58455

{

58456

Tcl_SetStringObj(

58457

Tcl_GetObjResult(interp),

58458

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58459

return TCL_ERROR;

58460

}

58461

58462

ibis_tcl_error = 0;

58463

_result = (uint8_t *)_ibcc_class_port_info_base_ver_get(_arg0);

58464

;

58465

if (ibis_tcl_error) {

58466

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58467

return TCL_ERROR;

58468

}

58469

} tcl_result = Tcl_GetObjResult(interp);

58470

{

58471

char buff[20];

58472

sprintf(buff, "%u", *_result);

58473

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58474

}

58475

return TCL_OK;

58476

}

58477

#define _ibcc_class_port_info_class_ver_set(_swigobj,_swigval) (_swigobj->class_ver = *(_swigval),_swigval)

58478

static int _wrap_ccClassPortInfo_class_ver_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58479

58480

uint8_t * _result;

58481

ccClassPortInfo * _arg0;

58482

uint8_t * _arg1;

58483

Tcl_Obj * tcl_result;

58484

char * rettype;

58485

uint8_t temp;

58486

58487

clientData = clientData; objv = objv;

58488

tcl_result = Tcl_GetObjResult(interp);

58489

if ((objc < 3) || (objc > 3)) {

58490

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_class_ver_set { ccClassPortInfo * } { uint8_t * } ",-1);

58491

return TCL_ERROR;

58492

}

58493

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58494

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_class_ver_set. Expected _ccClassPortInfo_p, received ", -1);

58495

Tcl_AppendToObj(tcl_result, rettype, -1);

58496

return TCL_ERROR;

58497

}

58498

{

58499

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

58500

_arg1 = &temp;

58501

}

58502

{

58503

/* we can check if IBIS was initialized here */

58504

if (!IbisObj.initialized)

58505

{

58506

Tcl_SetStringObj(

58507

Tcl_GetObjResult(interp),

58508

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58509

return TCL_ERROR;

58510

}

58511

58512

if (! IbisObj.port_guid)

58513

{

58514

Tcl_SetStringObj(

58515

Tcl_GetObjResult(interp),

58516

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58517

return TCL_ERROR;

58518

}

58519

58520

ibis_tcl_error = 0;

58521

_result = (uint8_t *)_ibcc_class_port_info_class_ver_set(_arg0,_arg1);

58522

;

58523

if (ibis_tcl_error) {

58524

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58525

return TCL_ERROR;

58526

}

58527

} tcl_result = Tcl_GetObjResult(interp);

58528

{

58529

char buff[20];

58530

sprintf(buff, "%u", *_result);

58531

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58532

}

58533

return TCL_OK;

58534

}

58535

#define _ibcc_class_port_info_class_ver_get(_swigobj) (&_swigobj->class_ver)

58536

static int _wrap_ccClassPortInfo_class_ver_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58537

58538

uint8_t * _result;

58539

ccClassPortInfo * _arg0;

58540

Tcl_Obj * tcl_result;

58541

char * rettype;

58542

58543

clientData = clientData; objv = objv;

58544

tcl_result = Tcl_GetObjResult(interp);

58545

if ((objc < 2) || (objc > 2)) {

58546

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_class_ver_get { ccClassPortInfo * } ",-1);

58547

return TCL_ERROR;

58548

}

58549

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58550

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_class_ver_get. Expected _ccClassPortInfo_p, received ", -1);

58551

Tcl_AppendToObj(tcl_result, rettype, -1);

58552

return TCL_ERROR;

58553

}

58554

{

58555

/* we can check if IBIS was initialized here */

58556

if (!IbisObj.initialized)

58557

{

58558

Tcl_SetStringObj(

58559

Tcl_GetObjResult(interp),

58560

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58561

return TCL_ERROR;

58562

}

58563

58564

if (! IbisObj.port_guid)

58565

{

58566

Tcl_SetStringObj(

58567

Tcl_GetObjResult(interp),

58568

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58569

return TCL_ERROR;

58570

}

58571

58572

ibis_tcl_error = 0;

58573

_result = (uint8_t *)_ibcc_class_port_info_class_ver_get(_arg0);

58574

;

58575

if (ibis_tcl_error) {

58576

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58577

return TCL_ERROR;

58578

}

58579

} tcl_result = Tcl_GetObjResult(interp);

58580

{

58581

char buff[20];

58582

sprintf(buff, "%u", *_result);

58583

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58584

}

58585

return TCL_OK;

58586

}

58587

#define _ibcc_class_port_info_cap_mask_set(_swigobj,_swigval) (_swigobj->cap_mask = *(_swigval),_swigval)

58588

static int _wrap_ccClassPortInfo_cap_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58589

58590

ib_net16_t * _result;

58591

ccClassPortInfo * _arg0;

58592

ib_net16_t * _arg1;

58593

Tcl_Obj * tcl_result;

58594

char * rettype;

58595

ib_net16_t temp;

58596

58597

clientData = clientData; objv = objv;

58598

tcl_result = Tcl_GetObjResult(interp);

58599

if ((objc < 3) || (objc > 3)) {

58600

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_cap_mask_set { ccClassPortInfo * } { ib_net16_t * } ",-1);

58601

return TCL_ERROR;

58602

}

58603

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58604

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_cap_mask_set. Expected _ccClassPortInfo_p, received ", -1);

58605

Tcl_AppendToObj(tcl_result, rettype, -1);

58606

return TCL_ERROR;

58607

}

58608

{

58609

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

58610

_arg1 = &temp;

58611

}

58612

{

58613

/* we can check if IBIS was initialized here */

58614

if (!IbisObj.initialized)

58615

{

58616

Tcl_SetStringObj(

58617

Tcl_GetObjResult(interp),

58618

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58619

return TCL_ERROR;

58620

}

58621

58622

if (! IbisObj.port_guid)

58623

{

58624

Tcl_SetStringObj(

58625

Tcl_GetObjResult(interp),

58626

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58627

return TCL_ERROR;

58628

}

58629

58630

ibis_tcl_error = 0;

58631

_result = (ib_net16_t *)_ibcc_class_port_info_cap_mask_set(_arg0,_arg1);

58632

;

58633

if (ibis_tcl_error) {

58634

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58635

return TCL_ERROR;

58636

}

58637

} tcl_result = Tcl_GetObjResult(interp);

58638

{

58639

char buff[20];

58640

sprintf(buff, "%u", cl_hton16(*_result));

58641

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58642

}

58643

return TCL_OK;

58644

}

58645

#define _ibcc_class_port_info_cap_mask_get(_swigobj) (&_swigobj->cap_mask)

58646

static int _wrap_ccClassPortInfo_cap_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58647

58648

ib_net16_t * _result;

58649

ccClassPortInfo * _arg0;

58650

Tcl_Obj * tcl_result;

58651

char * rettype;

58652

58653

clientData = clientData; objv = objv;

58654

tcl_result = Tcl_GetObjResult(interp);

58655

if ((objc < 2) || (objc > 2)) {

58656

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_cap_mask_get { ccClassPortInfo * } ",-1);

58657

return TCL_ERROR;

58658

}

58659

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58660

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_cap_mask_get. Expected _ccClassPortInfo_p, received ", -1);

58661

Tcl_AppendToObj(tcl_result, rettype, -1);

58662

return TCL_ERROR;

58663

}

58664

{

58665

/* we can check if IBIS was initialized here */

58666

if (!IbisObj.initialized)

58667

{

58668

Tcl_SetStringObj(

58669

Tcl_GetObjResult(interp),

58670

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58671

return TCL_ERROR;

58672

}

58673

58674

if (! IbisObj.port_guid)

58675

{

58676

Tcl_SetStringObj(

58677

Tcl_GetObjResult(interp),

58678

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58679

return TCL_ERROR;

58680

}

58681

58682

ibis_tcl_error = 0;

58683

_result = (ib_net16_t *)_ibcc_class_port_info_cap_mask_get(_arg0);

58684

;

58685

if (ibis_tcl_error) {

58686

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58687

return TCL_ERROR;

58688

}

58689

} tcl_result = Tcl_GetObjResult(interp);

58690

{

58691

char buff[20];

58692

sprintf(buff, "%u", cl_hton16(*_result));

58693

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58694

}

58695

return TCL_OK;

58696

}

58697

#define _ibcc_class_port_info_cap_mask2_resp_time_set(_swigobj,_swigval) (_swigobj->cap_mask2_resp_time = *(_swigval),_swigval)

58698

static int _wrap_ccClassPortInfo_cap_mask2_resp_time_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58699

58700

ib_net32_t * _result;

58701

ccClassPortInfo * _arg0;

58702

ib_net32_t * _arg1;

58703

Tcl_Obj * tcl_result;

58704

char * rettype;

58705

ib_net32_t temp;

58706

58707

clientData = clientData; objv = objv;

58708

tcl_result = Tcl_GetObjResult(interp);

58709

if ((objc < 3) || (objc > 3)) {

58710

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_cap_mask2_resp_time_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

58711

return TCL_ERROR;

58712

}

58713

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58714

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_cap_mask2_resp_time_set. Expected _ccClassPortInfo_p, received ", -1);

58715

Tcl_AppendToObj(tcl_result, rettype, -1);

58716

return TCL_ERROR;

58717

}

58718

{

58719

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

58720

_arg1 = &temp;

58721

}

58722

{

58723

/* we can check if IBIS was initialized here */

58724

if (!IbisObj.initialized)

58725

{

58726

Tcl_SetStringObj(

58727

Tcl_GetObjResult(interp),

58728

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58729

return TCL_ERROR;

58730

}

58731

58732

if (! IbisObj.port_guid)

58733

{

58734

Tcl_SetStringObj(

58735

Tcl_GetObjResult(interp),

58736

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58737

return TCL_ERROR;

58738

}

58739

58740

ibis_tcl_error = 0;

58741

_result = (ib_net32_t *)_ibcc_class_port_info_cap_mask2_resp_time_set(_arg0,_arg1);

58742

;

58743

if (ibis_tcl_error) {

58744

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58745

return TCL_ERROR;

58746

}

58747

} tcl_result = Tcl_GetObjResult(interp);

58748

{

58749

char buff[20];

58750

sprintf(buff, "%u", cl_ntoh32(*_result));

58751

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58752

}

58753

return TCL_OK;

58754

}

58755

#define _ibcc_class_port_info_cap_mask2_resp_time_get(_swigobj) (&_swigobj->cap_mask2_resp_time)

58756

static int _wrap_ccClassPortInfo_cap_mask2_resp_time_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58757

58758

ib_net32_t * _result;

58759

ccClassPortInfo * _arg0;

58760

Tcl_Obj * tcl_result;

58761

char * rettype;

58762

58763

clientData = clientData; objv = objv;

58764

tcl_result = Tcl_GetObjResult(interp);

58765

if ((objc < 2) || (objc > 2)) {

58766

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_cap_mask2_resp_time_get { ccClassPortInfo * } ",-1);

58767

return TCL_ERROR;

58768

}

58769

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58770

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_cap_mask2_resp_time_get. Expected _ccClassPortInfo_p, received ", -1);

58771

Tcl_AppendToObj(tcl_result, rettype, -1);

58772

return TCL_ERROR;

58773

}

58774

{

58775

/* we can check if IBIS was initialized here */

58776

if (!IbisObj.initialized)

58777

{

58778

Tcl_SetStringObj(

58779

Tcl_GetObjResult(interp),

58780

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58781

return TCL_ERROR;

58782

}

58783

58784

if (! IbisObj.port_guid)

58785

{

58786

Tcl_SetStringObj(

58787

Tcl_GetObjResult(interp),

58788

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58789

return TCL_ERROR;

58790

}

58791

58792

ibis_tcl_error = 0;

58793

_result = (ib_net32_t *)_ibcc_class_port_info_cap_mask2_resp_time_get(_arg0);

58794

;

58795

if (ibis_tcl_error) {

58796

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58797

return TCL_ERROR;

58798

}

58799

} tcl_result = Tcl_GetObjResult(interp);

58800

{

58801

char buff[20];

58802

sprintf(buff, "%u", cl_ntoh32(*_result));

58803

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58804

}

58805

return TCL_OK;

58806

}

58807

#define _ibcc_class_port_info_redir_gid_set(_swigobj,_swigval) (_swigobj->redir_gid = *(_swigval),_swigval)

58808

static int _wrap_ccClassPortInfo_redir_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58809

58810

ib_gid_t * _result;

58811

ccClassPortInfo * _arg0;

58812

ib_gid_t * _arg1;

58813

Tcl_Obj * tcl_result;

58814

char * rettype;

58815

ib_gid_t temp;

58816

58817

clientData = clientData; objv = objv;

58818

tcl_result = Tcl_GetObjResult(interp);

58819

if ((objc < 3) || (objc > 3)) {

58820

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_gid_set { ccClassPortInfo * } { ib_gid_t * } ",-1);

58821

return TCL_ERROR;

58822

}

58823

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58824

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_gid_set. Expected _ccClassPortInfo_p, received ", -1);

58825

Tcl_AppendToObj(tcl_result, rettype, -1);

58826

return TCL_ERROR;

58827

}

58828

{

58829

char buf[38];

58830

char *p_prefix, *p_guid;

58831

char *str_token = NULL;

58832

58833

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

58834

p_prefix = strtok_r(buf,":", &str_token);

58835

p_guid = strtok_r(NULL, " ", &str_token);

58836

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

58837

errno = 0;

58838

if (errno) {

58839

printf("Wrong format for gid prefix:%s\n", p_prefix);

58840

return TCL_ERROR;

58841

}

58842

58843

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

58844

if (errno) {

58845

printf("Wrong format for gid guid:%s\n", p_guid);

58846

return TCL_ERROR;

58847

}

58848

58849

_arg1 = &temp;

58850

}

58851

{

58852

/* we can check if IBIS was initialized here */

58853

if (!IbisObj.initialized)

58854

{

58855

Tcl_SetStringObj(

58856

Tcl_GetObjResult(interp),

58857

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58858

return TCL_ERROR;

58859

}

58860

58861

if (! IbisObj.port_guid)

58862

{

58863

Tcl_SetStringObj(

58864

Tcl_GetObjResult(interp),

58865

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58866

return TCL_ERROR;

58867

}

58868

58869

ibis_tcl_error = 0;

58870

_result = (ib_gid_t *)_ibcc_class_port_info_redir_gid_set(_arg0,_arg1);

58871

;

58872

if (ibis_tcl_error) {

58873

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58874

return TCL_ERROR;

58875

}

58876

} tcl_result = Tcl_GetObjResult(interp);

58877

{

58878

char buff[38];

58879

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

58880

cl_ntoh64(_result->unicast.prefix),

58881

cl_ntoh64(_result->unicast.interface_id)

58882

);

58883

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58884

}

58885

return TCL_OK;

58886

}

58887

#define _ibcc_class_port_info_redir_gid_get(_swigobj) (&_swigobj->redir_gid)

58888

static int _wrap_ccClassPortInfo_redir_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58889

58890

ib_gid_t * _result;

58891

ccClassPortInfo * _arg0;

58892

Tcl_Obj * tcl_result;

58893

char * rettype;

58894

58895

clientData = clientData; objv = objv;

58896

tcl_result = Tcl_GetObjResult(interp);

58897

if ((objc < 2) || (objc > 2)) {

58898

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_gid_get { ccClassPortInfo * } ",-1);

58899

return TCL_ERROR;

58900

}

58901

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58902

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_gid_get. Expected _ccClassPortInfo_p, received ", -1);

58903

Tcl_AppendToObj(tcl_result, rettype, -1);

58904

return TCL_ERROR;

58905

}

58906

{

58907

/* we can check if IBIS was initialized here */

58908

if (!IbisObj.initialized)

58909

{

58910

Tcl_SetStringObj(

58911

Tcl_GetObjResult(interp),

58912

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58913

return TCL_ERROR;

58914

}

58915

58916

if (! IbisObj.port_guid)

58917

{

58918

Tcl_SetStringObj(

58919

Tcl_GetObjResult(interp),

58920

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58921

return TCL_ERROR;

58922

}

58923

58924

ibis_tcl_error = 0;

58925

_result = (ib_gid_t *)_ibcc_class_port_info_redir_gid_get(_arg0);

58926

;

58927

if (ibis_tcl_error) {

58928

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58929

return TCL_ERROR;

58930

}

58931

} tcl_result = Tcl_GetObjResult(interp);

58932

{

58933

char buff[38];

58934

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

58935

cl_ntoh64(_result->unicast.prefix),

58936

cl_ntoh64(_result->unicast.interface_id)

58937

);

58938

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58939

}

58940

return TCL_OK;

58941

}

58942

#define _ibcc_class_port_info_redir_tc_sl_fl_set(_swigobj,_swigval) (_swigobj->redir_tc_sl_fl = *(_swigval),_swigval)

58943

static int _wrap_ccClassPortInfo_redir_tc_sl_fl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

58944

58945

ib_net32_t * _result;

58946

ccClassPortInfo * _arg0;

58947

ib_net32_t * _arg1;

58948

Tcl_Obj * tcl_result;

58949

char * rettype;

58950

ib_net32_t temp;

58951

58952

clientData = clientData; objv = objv;

58953

tcl_result = Tcl_GetObjResult(interp);

58954

if ((objc < 3) || (objc > 3)) {

58955

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_tc_sl_fl_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

58956

return TCL_ERROR;

58957

}

58958

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

58959

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_tc_sl_fl_set. Expected _ccClassPortInfo_p, received ", -1);

58960

Tcl_AppendToObj(tcl_result, rettype, -1);

58961

return TCL_ERROR;

58962

}

58963

{

58964

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

58965

_arg1 = &temp;

58966

}

58967

{

58968

/* we can check if IBIS was initialized here */

58969

if (!IbisObj.initialized)

58970

{

58971

Tcl_SetStringObj(

58972

Tcl_GetObjResult(interp),

58973

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

58974

return TCL_ERROR;

58975

}

58976

58977

if (! IbisObj.port_guid)

58978

{

58979

Tcl_SetStringObj(

58980

Tcl_GetObjResult(interp),

58981

" ibis was not yet initialized. please use ibis_set_port before.", -1);

58982

return TCL_ERROR;

58983

}

58984

58985

ibis_tcl_error = 0;

58986

_result = (ib_net32_t *)_ibcc_class_port_info_redir_tc_sl_fl_set(_arg0,_arg1);

58987

;

58988

if (ibis_tcl_error) {

58989

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

58990

return TCL_ERROR;

58991

}

58992

} tcl_result = Tcl_GetObjResult(interp);

58993

{

58994

char buff[20];

58995

sprintf(buff, "%u", cl_ntoh32(*_result));

58996

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

58997

}

58998

return TCL_OK;

58999

}

59000

#define _ibcc_class_port_info_redir_tc_sl_fl_get(_swigobj) (&_swigobj->redir_tc_sl_fl)

59001

static int _wrap_ccClassPortInfo_redir_tc_sl_fl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59002

59003

ib_net32_t * _result;

59004

ccClassPortInfo * _arg0;

59005

Tcl_Obj * tcl_result;

59006

char * rettype;

59007

59008

clientData = clientData; objv = objv;

59009

tcl_result = Tcl_GetObjResult(interp);

59010

if ((objc < 2) || (objc > 2)) {

59011

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_tc_sl_fl_get { ccClassPortInfo * } ",-1);

59012

return TCL_ERROR;

59013

}

59014

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59015

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_tc_sl_fl_get. Expected _ccClassPortInfo_p, received ", -1);

59016

Tcl_AppendToObj(tcl_result, rettype, -1);

59017

return TCL_ERROR;

59018

}

59019

{

59020

/* we can check if IBIS was initialized here */

59021

if (!IbisObj.initialized)

59022

{

59023

Tcl_SetStringObj(

59024

Tcl_GetObjResult(interp),

59025

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59026

return TCL_ERROR;

59027

}

59028

59029

if (! IbisObj.port_guid)

59030

{

59031

Tcl_SetStringObj(

59032

Tcl_GetObjResult(interp),

59033

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59034

return TCL_ERROR;

59035

}

59036

59037

ibis_tcl_error = 0;

59038

_result = (ib_net32_t *)_ibcc_class_port_info_redir_tc_sl_fl_get(_arg0);

59039

;

59040

if (ibis_tcl_error) {

59041

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59042

return TCL_ERROR;

59043

}

59044

} tcl_result = Tcl_GetObjResult(interp);

59045

{

59046

char buff[20];

59047

sprintf(buff, "%u", cl_ntoh32(*_result));

59048

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59049

}

59050

return TCL_OK;

59051

}

59052

#define _ibcc_class_port_info_redir_lid_set(_swigobj,_swigval) (_swigobj->redir_lid = *(_swigval),_swigval)

59053

static int _wrap_ccClassPortInfo_redir_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59054

59055

ib_net16_t * _result;

59056

ccClassPortInfo * _arg0;

59057

ib_net16_t * _arg1;

59058

Tcl_Obj * tcl_result;

59059

char * rettype;

59060

ib_net16_t temp;

59061

59062

clientData = clientData; objv = objv;

59063

tcl_result = Tcl_GetObjResult(interp);

59064

if ((objc < 3) || (objc > 3)) {

59065

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_lid_set { ccClassPortInfo * } { ib_net16_t * } ",-1);

59066

return TCL_ERROR;

59067

}

59068

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59069

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_lid_set. Expected _ccClassPortInfo_p, received ", -1);

59070

Tcl_AppendToObj(tcl_result, rettype, -1);

59071

return TCL_ERROR;

59072

}

59073

{

59074

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59075

_arg1 = &temp;

59076

}

59077

{

59078

/* we can check if IBIS was initialized here */

59079

if (!IbisObj.initialized)

59080

{

59081

Tcl_SetStringObj(

59082

Tcl_GetObjResult(interp),

59083

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59084

return TCL_ERROR;

59085

}

59086

59087

if (! IbisObj.port_guid)

59088

{

59089

Tcl_SetStringObj(

59090

Tcl_GetObjResult(interp),

59091

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59092

return TCL_ERROR;

59093

}

59094

59095

ibis_tcl_error = 0;

59096

_result = (ib_net16_t *)_ibcc_class_port_info_redir_lid_set(_arg0,_arg1);

59097

;

59098

if (ibis_tcl_error) {

59099

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59100

return TCL_ERROR;

59101

}

59102

} tcl_result = Tcl_GetObjResult(interp);

59103

{

59104

char buff[20];

59105

sprintf(buff, "%u", cl_hton16(*_result));

59106

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59107

}

59108

return TCL_OK;

59109

}

59110

#define _ibcc_class_port_info_redir_lid_get(_swigobj) (&_swigobj->redir_lid)

59111

static int _wrap_ccClassPortInfo_redir_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59112

59113

ib_net16_t * _result;

59114

ccClassPortInfo * _arg0;

59115

Tcl_Obj * tcl_result;

59116

char * rettype;

59117

59118

clientData = clientData; objv = objv;

59119

tcl_result = Tcl_GetObjResult(interp);

59120

if ((objc < 2) || (objc > 2)) {

59121

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_lid_get { ccClassPortInfo * } ",-1);

59122

return TCL_ERROR;

59123

}

59124

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59125

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_lid_get. Expected _ccClassPortInfo_p, received ", -1);

59126

Tcl_AppendToObj(tcl_result, rettype, -1);

59127

return TCL_ERROR;

59128

}

59129

{

59130

/* we can check if IBIS was initialized here */

59131

if (!IbisObj.initialized)

59132

{

59133

Tcl_SetStringObj(

59134

Tcl_GetObjResult(interp),

59135

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59136

return TCL_ERROR;

59137

}

59138

59139

if (! IbisObj.port_guid)

59140

{

59141

Tcl_SetStringObj(

59142

Tcl_GetObjResult(interp),

59143

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59144

return TCL_ERROR;

59145

}

59146

59147

ibis_tcl_error = 0;

59148

_result = (ib_net16_t *)_ibcc_class_port_info_redir_lid_get(_arg0);

59149

;

59150

if (ibis_tcl_error) {

59151

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59152

return TCL_ERROR;

59153

}

59154

} tcl_result = Tcl_GetObjResult(interp);

59155

{

59156

char buff[20];

59157

sprintf(buff, "%u", cl_hton16(*_result));

59158

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59159

}

59160

return TCL_OK;

59161

}

59162

#define _ibcc_class_port_info_redir_pkey_set(_swigobj,_swigval) (_swigobj->redir_pkey = *(_swigval),_swigval)

59163

static int _wrap_ccClassPortInfo_redir_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59164

59165

ib_net16_t * _result;

59166

ccClassPortInfo * _arg0;

59167

ib_net16_t * _arg1;

59168

Tcl_Obj * tcl_result;

59169

char * rettype;

59170

ib_net16_t temp;

59171

59172

clientData = clientData; objv = objv;

59173

tcl_result = Tcl_GetObjResult(interp);

59174

if ((objc < 3) || (objc > 3)) {

59175

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_pkey_set { ccClassPortInfo * } { ib_net16_t * } ",-1);

59176

return TCL_ERROR;

59177

}

59178

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59179

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_pkey_set. Expected _ccClassPortInfo_p, received ", -1);

59180

Tcl_AppendToObj(tcl_result, rettype, -1);

59181

return TCL_ERROR;

59182

}

59183

{

59184

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59185

_arg1 = &temp;

59186

}

59187

{

59188

/* we can check if IBIS was initialized here */

59189

if (!IbisObj.initialized)

59190

{

59191

Tcl_SetStringObj(

59192

Tcl_GetObjResult(interp),

59193

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59194

return TCL_ERROR;

59195

}

59196

59197

if (! IbisObj.port_guid)

59198

{

59199

Tcl_SetStringObj(

59200

Tcl_GetObjResult(interp),

59201

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59202

return TCL_ERROR;

59203

}

59204

59205

ibis_tcl_error = 0;

59206

_result = (ib_net16_t *)_ibcc_class_port_info_redir_pkey_set(_arg0,_arg1);

59207

;

59208

if (ibis_tcl_error) {

59209

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59210

return TCL_ERROR;

59211

}

59212

} tcl_result = Tcl_GetObjResult(interp);

59213

{

59214

char buff[20];

59215

sprintf(buff, "%u", cl_hton16(*_result));

59216

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59217

}

59218

return TCL_OK;

59219

}

59220

#define _ibcc_class_port_info_redir_pkey_get(_swigobj) (&_swigobj->redir_pkey)

59221

static int _wrap_ccClassPortInfo_redir_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59222

59223

ib_net16_t * _result;

59224

ccClassPortInfo * _arg0;

59225

Tcl_Obj * tcl_result;

59226

char * rettype;

59227

59228

clientData = clientData; objv = objv;

59229

tcl_result = Tcl_GetObjResult(interp);

59230

if ((objc < 2) || (objc > 2)) {

59231

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_pkey_get { ccClassPortInfo * } ",-1);

59232

return TCL_ERROR;

59233

}

59234

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59235

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_pkey_get. Expected _ccClassPortInfo_p, received ", -1);

59236

Tcl_AppendToObj(tcl_result, rettype, -1);

59237

return TCL_ERROR;

59238

}

59239

{

59240

/* we can check if IBIS was initialized here */

59241

if (!IbisObj.initialized)

59242

{

59243

Tcl_SetStringObj(

59244

Tcl_GetObjResult(interp),

59245

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59246

return TCL_ERROR;

59247

}

59248

59249

if (! IbisObj.port_guid)

59250

{

59251

Tcl_SetStringObj(

59252

Tcl_GetObjResult(interp),

59253

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59254

return TCL_ERROR;

59255

}

59256

59257

ibis_tcl_error = 0;

59258

_result = (ib_net16_t *)_ibcc_class_port_info_redir_pkey_get(_arg0);

59259

;

59260

if (ibis_tcl_error) {

59261

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59262

return TCL_ERROR;

59263

}

59264

} tcl_result = Tcl_GetObjResult(interp);

59265

{

59266

char buff[20];

59267

sprintf(buff, "%u", cl_hton16(*_result));

59268

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59269

}

59270

return TCL_OK;

59271

}

59272

#define _ibcc_class_port_info_redir_qp_set(_swigobj,_swigval) (_swigobj->redir_qp = *(_swigval),_swigval)

59273

static int _wrap_ccClassPortInfo_redir_qp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59274

59275

ib_net32_t * _result;

59276

ccClassPortInfo * _arg0;

59277

ib_net32_t * _arg1;

59278

Tcl_Obj * tcl_result;

59279

char * rettype;

59280

ib_net32_t temp;

59281

59282

clientData = clientData; objv = objv;

59283

tcl_result = Tcl_GetObjResult(interp);

59284

if ((objc < 3) || (objc > 3)) {

59285

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_qp_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

59286

return TCL_ERROR;

59287

}

59288

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59289

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_qp_set. Expected _ccClassPortInfo_p, received ", -1);

59290

Tcl_AppendToObj(tcl_result, rettype, -1);

59291

return TCL_ERROR;

59292

}

59293

{

59294

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59295

_arg1 = &temp;

59296

}

59297

{

59298

/* we can check if IBIS was initialized here */

59299

if (!IbisObj.initialized)

59300

{

59301

Tcl_SetStringObj(

59302

Tcl_GetObjResult(interp),

59303

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59304

return TCL_ERROR;

59305

}

59306

59307

if (! IbisObj.port_guid)

59308

{

59309

Tcl_SetStringObj(

59310

Tcl_GetObjResult(interp),

59311

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59312

return TCL_ERROR;

59313

}

59314

59315

ibis_tcl_error = 0;

59316

_result = (ib_net32_t *)_ibcc_class_port_info_redir_qp_set(_arg0,_arg1);

59317

;

59318

if (ibis_tcl_error) {

59319

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59320

return TCL_ERROR;

59321

}

59322

} tcl_result = Tcl_GetObjResult(interp);

59323

{

59324

char buff[20];

59325

sprintf(buff, "%u", cl_ntoh32(*_result));

59326

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59327

}

59328

return TCL_OK;

59329

}

59330

#define _ibcc_class_port_info_redir_qp_get(_swigobj) (&_swigobj->redir_qp)

59331

static int _wrap_ccClassPortInfo_redir_qp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59332

59333

ib_net32_t * _result;

59334

ccClassPortInfo * _arg0;

59335

Tcl_Obj * tcl_result;

59336

char * rettype;

59337

59338

clientData = clientData; objv = objv;

59339

tcl_result = Tcl_GetObjResult(interp);

59340

if ((objc < 2) || (objc > 2)) {

59341

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_qp_get { ccClassPortInfo * } ",-1);

59342

return TCL_ERROR;

59343

}

59344

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59345

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_qp_get. Expected _ccClassPortInfo_p, received ", -1);

59346

Tcl_AppendToObj(tcl_result, rettype, -1);

59347

return TCL_ERROR;

59348

}

59349

{

59350

/* we can check if IBIS was initialized here */

59351

if (!IbisObj.initialized)

59352

{

59353

Tcl_SetStringObj(

59354

Tcl_GetObjResult(interp),

59355

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59356

return TCL_ERROR;

59357

}

59358

59359

if (! IbisObj.port_guid)

59360

{

59361

Tcl_SetStringObj(

59362

Tcl_GetObjResult(interp),

59363

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59364

return TCL_ERROR;

59365

}

59366

59367

ibis_tcl_error = 0;

59368

_result = (ib_net32_t *)_ibcc_class_port_info_redir_qp_get(_arg0);

59369

;

59370

if (ibis_tcl_error) {

59371

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59372

return TCL_ERROR;

59373

}

59374

} tcl_result = Tcl_GetObjResult(interp);

59375

{

59376

char buff[20];

59377

sprintf(buff, "%u", cl_ntoh32(*_result));

59378

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59379

}

59380

return TCL_OK;

59381

}

59382

#define _ibcc_class_port_info_redir_qkey_set(_swigobj,_swigval) (_swigobj->redir_qkey = *(_swigval),_swigval)

59383

static int _wrap_ccClassPortInfo_redir_qkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59384

59385

ib_net32_t * _result;

59386

ccClassPortInfo * _arg0;

59387

ib_net32_t * _arg1;

59388

Tcl_Obj * tcl_result;

59389

char * rettype;

59390

ib_net32_t temp;

59391

59392

clientData = clientData; objv = objv;

59393

tcl_result = Tcl_GetObjResult(interp);

59394

if ((objc < 3) || (objc > 3)) {

59395

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_qkey_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

59396

return TCL_ERROR;

59397

}

59398

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59399

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_qkey_set. Expected _ccClassPortInfo_p, received ", -1);

59400

Tcl_AppendToObj(tcl_result, rettype, -1);

59401

return TCL_ERROR;

59402

}

59403

{

59404

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59405

_arg1 = &temp;

59406

}

59407

{

59408

/* we can check if IBIS was initialized here */

59409

if (!IbisObj.initialized)

59410

{

59411

Tcl_SetStringObj(

59412

Tcl_GetObjResult(interp),

59413

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59414

return TCL_ERROR;

59415

}

59416

59417

if (! IbisObj.port_guid)

59418

{

59419

Tcl_SetStringObj(

59420

Tcl_GetObjResult(interp),

59421

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59422

return TCL_ERROR;

59423

}

59424

59425

ibis_tcl_error = 0;

59426

_result = (ib_net32_t *)_ibcc_class_port_info_redir_qkey_set(_arg0,_arg1);

59427

;

59428

if (ibis_tcl_error) {

59429

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59430

return TCL_ERROR;

59431

}

59432

} tcl_result = Tcl_GetObjResult(interp);

59433

{

59434

char buff[20];

59435

sprintf(buff, "%u", cl_ntoh32(*_result));

59436

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59437

}

59438

return TCL_OK;

59439

}

59440

#define _ibcc_class_port_info_redir_qkey_get(_swigobj) (&_swigobj->redir_qkey)

59441

static int _wrap_ccClassPortInfo_redir_qkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59442

59443

ib_net32_t * _result;

59444

ccClassPortInfo * _arg0;

59445

Tcl_Obj * tcl_result;

59446

char * rettype;

59447

59448

clientData = clientData; objv = objv;

59449

tcl_result = Tcl_GetObjResult(interp);

59450

if ((objc < 2) || (objc > 2)) {

59451

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_redir_qkey_get { ccClassPortInfo * } ",-1);

59452

return TCL_ERROR;

59453

}

59454

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59455

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_redir_qkey_get. Expected _ccClassPortInfo_p, received ", -1);

59456

Tcl_AppendToObj(tcl_result, rettype, -1);

59457

return TCL_ERROR;

59458

}

59459

{

59460

/* we can check if IBIS was initialized here */

59461

if (!IbisObj.initialized)

59462

{

59463

Tcl_SetStringObj(

59464

Tcl_GetObjResult(interp),

59465

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59466

return TCL_ERROR;

59467

}

59468

59469

if (! IbisObj.port_guid)

59470

{

59471

Tcl_SetStringObj(

59472

Tcl_GetObjResult(interp),

59473

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59474

return TCL_ERROR;

59475

}

59476

59477

ibis_tcl_error = 0;

59478

_result = (ib_net32_t *)_ibcc_class_port_info_redir_qkey_get(_arg0);

59479

;

59480

if (ibis_tcl_error) {

59481

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59482

return TCL_ERROR;

59483

}

59484

} tcl_result = Tcl_GetObjResult(interp);

59485

{

59486

char buff[20];

59487

sprintf(buff, "%u", cl_ntoh32(*_result));

59488

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59489

}

59490

return TCL_OK;

59491

}

59492

#define _ibcc_class_port_info_trap_gid_set(_swigobj,_swigval) (_swigobj->trap_gid = *(_swigval),_swigval)

59493

static int _wrap_ccClassPortInfo_trap_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59494

59495

ib_gid_t * _result;

59496

ccClassPortInfo * _arg0;

59497

ib_gid_t * _arg1;

59498

Tcl_Obj * tcl_result;

59499

char * rettype;

59500

ib_gid_t temp;

59501

59502

clientData = clientData; objv = objv;

59503

tcl_result = Tcl_GetObjResult(interp);

59504

if ((objc < 3) || (objc > 3)) {

59505

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_gid_set { ccClassPortInfo * } { ib_gid_t * } ",-1);

59506

return TCL_ERROR;

59507

}

59508

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59509

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_gid_set. Expected _ccClassPortInfo_p, received ", -1);

59510

Tcl_AppendToObj(tcl_result, rettype, -1);

59511

return TCL_ERROR;

59512

}

59513

{

59514

char buf[38];

59515

char *p_prefix, *p_guid;

59516

char *str_token = NULL;

59517

59518

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

59519

p_prefix = strtok_r(buf,":", &str_token);

59520

p_guid = strtok_r(NULL, " ", &str_token);

59521

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

59522

errno = 0;

59523

if (errno) {

59524

printf("Wrong format for gid prefix:%s\n", p_prefix);

59525

return TCL_ERROR;

59526

}

59527

59528

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

59529

if (errno) {

59530

printf("Wrong format for gid guid:%s\n", p_guid);

59531

return TCL_ERROR;

59532

}

59533

59534

_arg1 = &temp;

59535

}

59536

{

59537

/* we can check if IBIS was initialized here */

59538

if (!IbisObj.initialized)

59539

{

59540

Tcl_SetStringObj(

59541

Tcl_GetObjResult(interp),

59542

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59543

return TCL_ERROR;

59544

}

59545

59546

if (! IbisObj.port_guid)

59547

{

59548

Tcl_SetStringObj(

59549

Tcl_GetObjResult(interp),

59550

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59551

return TCL_ERROR;

59552

}

59553

59554

ibis_tcl_error = 0;

59555

_result = (ib_gid_t *)_ibcc_class_port_info_trap_gid_set(_arg0,_arg1);

59556

;

59557

if (ibis_tcl_error) {

59558

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59559

return TCL_ERROR;

59560

}

59561

} tcl_result = Tcl_GetObjResult(interp);

59562

{

59563

char buff[38];

59564

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

59565

cl_ntoh64(_result->unicast.prefix),

59566

cl_ntoh64(_result->unicast.interface_id)

59567

);

59568

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59569

}

59570

return TCL_OK;

59571

}

59572

#define _ibcc_class_port_info_trap_gid_get(_swigobj) (&_swigobj->trap_gid)

59573

static int _wrap_ccClassPortInfo_trap_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59574

59575

ib_gid_t * _result;

59576

ccClassPortInfo * _arg0;

59577

Tcl_Obj * tcl_result;

59578

char * rettype;

59579

59580

clientData = clientData; objv = objv;

59581

tcl_result = Tcl_GetObjResult(interp);

59582

if ((objc < 2) || (objc > 2)) {

59583

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_gid_get { ccClassPortInfo * } ",-1);

59584

return TCL_ERROR;

59585

}

59586

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59587

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_gid_get. Expected _ccClassPortInfo_p, received ", -1);

59588

Tcl_AppendToObj(tcl_result, rettype, -1);

59589

return TCL_ERROR;

59590

}

59591

{

59592

/* we can check if IBIS was initialized here */

59593

if (!IbisObj.initialized)

59594

{

59595

Tcl_SetStringObj(

59596

Tcl_GetObjResult(interp),

59597

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59598

return TCL_ERROR;

59599

}

59600

59601

if (! IbisObj.port_guid)

59602

{

59603

Tcl_SetStringObj(

59604

Tcl_GetObjResult(interp),

59605

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59606

return TCL_ERROR;

59607

}

59608

59609

ibis_tcl_error = 0;

59610

_result = (ib_gid_t *)_ibcc_class_port_info_trap_gid_get(_arg0);

59611

;

59612

if (ibis_tcl_error) {

59613

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59614

return TCL_ERROR;

59615

}

59616

} tcl_result = Tcl_GetObjResult(interp);

59617

{

59618

char buff[38];

59619

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

59620

cl_ntoh64(_result->unicast.prefix),

59621

cl_ntoh64(_result->unicast.interface_id)

59622

);

59623

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59624

}

59625

return TCL_OK;

59626

}

59627

#define _ibcc_class_port_info_trap_tc_sl_fl_set(_swigobj,_swigval) (_swigobj->trap_tc_sl_fl = *(_swigval),_swigval)

59628

static int _wrap_ccClassPortInfo_trap_tc_sl_fl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59629

59630

ib_net32_t * _result;

59631

ccClassPortInfo * _arg0;

59632

ib_net32_t * _arg1;

59633

Tcl_Obj * tcl_result;

59634

char * rettype;

59635

ib_net32_t temp;

59636

59637

clientData = clientData; objv = objv;

59638

tcl_result = Tcl_GetObjResult(interp);

59639

if ((objc < 3) || (objc > 3)) {

59640

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_tc_sl_fl_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

59641

return TCL_ERROR;

59642

}

59643

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59644

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_tc_sl_fl_set. Expected _ccClassPortInfo_p, received ", -1);

59645

Tcl_AppendToObj(tcl_result, rettype, -1);

59646

return TCL_ERROR;

59647

}

59648

{

59649

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59650

_arg1 = &temp;

59651

}

59652

{

59653

/* we can check if IBIS was initialized here */

59654

if (!IbisObj.initialized)

59655

{

59656

Tcl_SetStringObj(

59657

Tcl_GetObjResult(interp),

59658

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59659

return TCL_ERROR;

59660

}

59661

59662

if (! IbisObj.port_guid)

59663

{

59664

Tcl_SetStringObj(

59665

Tcl_GetObjResult(interp),

59666

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59667

return TCL_ERROR;

59668

}

59669

59670

ibis_tcl_error = 0;

59671

_result = (ib_net32_t *)_ibcc_class_port_info_trap_tc_sl_fl_set(_arg0,_arg1);

59672

;

59673

if (ibis_tcl_error) {

59674

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59675

return TCL_ERROR;

59676

}

59677

} tcl_result = Tcl_GetObjResult(interp);

59678

{

59679

char buff[20];

59680

sprintf(buff, "%u", cl_ntoh32(*_result));

59681

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59682

}

59683

return TCL_OK;

59684

}

59685

#define _ibcc_class_port_info_trap_tc_sl_fl_get(_swigobj) (&_swigobj->trap_tc_sl_fl)

59686

static int _wrap_ccClassPortInfo_trap_tc_sl_fl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59687

59688

ib_net32_t * _result;

59689

ccClassPortInfo * _arg0;

59690

Tcl_Obj * tcl_result;

59691

char * rettype;

59692

59693

clientData = clientData; objv = objv;

59694

tcl_result = Tcl_GetObjResult(interp);

59695

if ((objc < 2) || (objc > 2)) {

59696

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_tc_sl_fl_get { ccClassPortInfo * } ",-1);

59697

return TCL_ERROR;

59698

}

59699

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59700

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_tc_sl_fl_get. Expected _ccClassPortInfo_p, received ", -1);

59701

Tcl_AppendToObj(tcl_result, rettype, -1);

59702

return TCL_ERROR;

59703

}

59704

{

59705

/* we can check if IBIS was initialized here */

59706

if (!IbisObj.initialized)

59707

{

59708

Tcl_SetStringObj(

59709

Tcl_GetObjResult(interp),

59710

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59711

return TCL_ERROR;

59712

}

59713

59714

if (! IbisObj.port_guid)

59715

{

59716

Tcl_SetStringObj(

59717

Tcl_GetObjResult(interp),

59718

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59719

return TCL_ERROR;

59720

}

59721

59722

ibis_tcl_error = 0;

59723

_result = (ib_net32_t *)_ibcc_class_port_info_trap_tc_sl_fl_get(_arg0);

59724

;

59725

if (ibis_tcl_error) {

59726

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59727

return TCL_ERROR;

59728

}

59729

} tcl_result = Tcl_GetObjResult(interp);

59730

{

59731

char buff[20];

59732

sprintf(buff, "%u", cl_ntoh32(*_result));

59733

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59734

}

59735

return TCL_OK;

59736

}

59737

#define _ibcc_class_port_info_trap_lid_set(_swigobj,_swigval) (_swigobj->trap_lid = *(_swigval),_swigval)

59738

static int _wrap_ccClassPortInfo_trap_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59739

59740

ib_net16_t * _result;

59741

ccClassPortInfo * _arg0;

59742

ib_net16_t * _arg1;

59743

Tcl_Obj * tcl_result;

59744

char * rettype;

59745

ib_net16_t temp;

59746

59747

clientData = clientData; objv = objv;

59748

tcl_result = Tcl_GetObjResult(interp);

59749

if ((objc < 3) || (objc > 3)) {

59750

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_lid_set { ccClassPortInfo * } { ib_net16_t * } ",-1);

59751

return TCL_ERROR;

59752

}

59753

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59754

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_lid_set. Expected _ccClassPortInfo_p, received ", -1);

59755

Tcl_AppendToObj(tcl_result, rettype, -1);

59756

return TCL_ERROR;

59757

}

59758

{

59759

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59760

_arg1 = &temp;

59761

}

59762

{

59763

/* we can check if IBIS was initialized here */

59764

if (!IbisObj.initialized)

59765

{

59766

Tcl_SetStringObj(

59767

Tcl_GetObjResult(interp),

59768

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59769

return TCL_ERROR;

59770

}

59771

59772

if (! IbisObj.port_guid)

59773

{

59774

Tcl_SetStringObj(

59775

Tcl_GetObjResult(interp),

59776

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59777

return TCL_ERROR;

59778

}

59779

59780

ibis_tcl_error = 0;

59781

_result = (ib_net16_t *)_ibcc_class_port_info_trap_lid_set(_arg0,_arg1);

59782

;

59783

if (ibis_tcl_error) {

59784

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59785

return TCL_ERROR;

59786

}

59787

} tcl_result = Tcl_GetObjResult(interp);

59788

{

59789

char buff[20];

59790

sprintf(buff, "%u", cl_hton16(*_result));

59791

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59792

}

59793

return TCL_OK;

59794

}

59795

#define _ibcc_class_port_info_trap_lid_get(_swigobj) (&_swigobj->trap_lid)

59796

static int _wrap_ccClassPortInfo_trap_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59797

59798

ib_net16_t * _result;

59799

ccClassPortInfo * _arg0;

59800

Tcl_Obj * tcl_result;

59801

char * rettype;

59802

59803

clientData = clientData; objv = objv;

59804

tcl_result = Tcl_GetObjResult(interp);

59805

if ((objc < 2) || (objc > 2)) {

59806

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_lid_get { ccClassPortInfo * } ",-1);

59807

return TCL_ERROR;

59808

}

59809

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59810

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_lid_get. Expected _ccClassPortInfo_p, received ", -1);

59811

Tcl_AppendToObj(tcl_result, rettype, -1);

59812

return TCL_ERROR;

59813

}

59814

{

59815

/* we can check if IBIS was initialized here */

59816

if (!IbisObj.initialized)

59817

{

59818

Tcl_SetStringObj(

59819

Tcl_GetObjResult(interp),

59820

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59821

return TCL_ERROR;

59822

}

59823

59824

if (! IbisObj.port_guid)

59825

{

59826

Tcl_SetStringObj(

59827

Tcl_GetObjResult(interp),

59828

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59829

return TCL_ERROR;

59830

}

59831

59832

ibis_tcl_error = 0;

59833

_result = (ib_net16_t *)_ibcc_class_port_info_trap_lid_get(_arg0);

59834

;

59835

if (ibis_tcl_error) {

59836

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59837

return TCL_ERROR;

59838

}

59839

} tcl_result = Tcl_GetObjResult(interp);

59840

{

59841

char buff[20];

59842

sprintf(buff, "%u", cl_hton16(*_result));

59843

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59844

}

59845

return TCL_OK;

59846

}

59847

#define _ibcc_class_port_info_trap_pkey_set(_swigobj,_swigval) (_swigobj->trap_pkey = *(_swigval),_swigval)

59848

static int _wrap_ccClassPortInfo_trap_pkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59849

59850

ib_net16_t * _result;

59851

ccClassPortInfo * _arg0;

59852

ib_net16_t * _arg1;

59853

Tcl_Obj * tcl_result;

59854

char * rettype;

59855

ib_net16_t temp;

59856

59857

clientData = clientData; objv = objv;

59858

tcl_result = Tcl_GetObjResult(interp);

59859

if ((objc < 3) || (objc > 3)) {

59860

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_pkey_set { ccClassPortInfo * } { ib_net16_t * } ",-1);

59861

return TCL_ERROR;

59862

}

59863

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59864

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_pkey_set. Expected _ccClassPortInfo_p, received ", -1);

59865

Tcl_AppendToObj(tcl_result, rettype, -1);

59866

return TCL_ERROR;

59867

}

59868

{

59869

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59870

_arg1 = &temp;

59871

}

59872

{

59873

/* we can check if IBIS was initialized here */

59874

if (!IbisObj.initialized)

59875

{

59876

Tcl_SetStringObj(

59877

Tcl_GetObjResult(interp),

59878

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59879

return TCL_ERROR;

59880

}

59881

59882

if (! IbisObj.port_guid)

59883

{

59884

Tcl_SetStringObj(

59885

Tcl_GetObjResult(interp),

59886

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59887

return TCL_ERROR;

59888

}

59889

59890

ibis_tcl_error = 0;

59891

_result = (ib_net16_t *)_ibcc_class_port_info_trap_pkey_set(_arg0,_arg1);

59892

;

59893

if (ibis_tcl_error) {

59894

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59895

return TCL_ERROR;

59896

}

59897

} tcl_result = Tcl_GetObjResult(interp);

59898

{

59899

char buff[20];

59900

sprintf(buff, "%u", cl_hton16(*_result));

59901

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59902

}

59903

return TCL_OK;

59904

}

59905

#define _ibcc_class_port_info_trap_pkey_get(_swigobj) (&_swigobj->trap_pkey)

59906

static int _wrap_ccClassPortInfo_trap_pkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59907

59908

ib_net16_t * _result;

59909

ccClassPortInfo * _arg0;

59910

Tcl_Obj * tcl_result;

59911

char * rettype;

59912

59913

clientData = clientData; objv = objv;

59914

tcl_result = Tcl_GetObjResult(interp);

59915

if ((objc < 2) || (objc > 2)) {

59916

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_pkey_get { ccClassPortInfo * } ",-1);

59917

return TCL_ERROR;

59918

}

59919

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59920

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_pkey_get. Expected _ccClassPortInfo_p, received ", -1);

59921

Tcl_AppendToObj(tcl_result, rettype, -1);

59922

return TCL_ERROR;

59923

}

59924

{

59925

/* we can check if IBIS was initialized here */

59926

if (!IbisObj.initialized)

59927

{

59928

Tcl_SetStringObj(

59929

Tcl_GetObjResult(interp),

59930

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59931

return TCL_ERROR;

59932

}

59933

59934

if (! IbisObj.port_guid)

59935

{

59936

Tcl_SetStringObj(

59937

Tcl_GetObjResult(interp),

59938

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59939

return TCL_ERROR;

59940

}

59941

59942

ibis_tcl_error = 0;

59943

_result = (ib_net16_t *)_ibcc_class_port_info_trap_pkey_get(_arg0);

59944

;

59945

if (ibis_tcl_error) {

59946

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

59947

return TCL_ERROR;

59948

}

59949

} tcl_result = Tcl_GetObjResult(interp);

59950

{

59951

char buff[20];

59952

sprintf(buff, "%u", cl_hton16(*_result));

59953

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

59954

}

59955

return TCL_OK;

59956

}

59957

#define _ibcc_class_port_info_trap_hop_qp_set(_swigobj,_swigval) (_swigobj->trap_hop_qp = *(_swigval),_swigval)

59958

static int _wrap_ccClassPortInfo_trap_hop_qp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

59959

59960

ib_net32_t * _result;

59961

ccClassPortInfo * _arg0;

59962

ib_net32_t * _arg1;

59963

Tcl_Obj * tcl_result;

59964

char * rettype;

59965

ib_net32_t temp;

59966

59967

clientData = clientData; objv = objv;

59968

tcl_result = Tcl_GetObjResult(interp);

59969

if ((objc < 3) || (objc > 3)) {

59970

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_hop_qp_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

59971

return TCL_ERROR;

59972

}

59973

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

59974

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_hop_qp_set. Expected _ccClassPortInfo_p, received ", -1);

59975

Tcl_AppendToObj(tcl_result, rettype, -1);

59976

return TCL_ERROR;

59977

}

59978

{

59979

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

59980

_arg1 = &temp;

59981

}

59982

{

59983

/* we can check if IBIS was initialized here */

59984

if (!IbisObj.initialized)

59985

{

59986

Tcl_SetStringObj(

59987

Tcl_GetObjResult(interp),

59988

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

59989

return TCL_ERROR;

59990

}

59991

59992

if (! IbisObj.port_guid)

59993

{

59994

Tcl_SetStringObj(

59995

Tcl_GetObjResult(interp),

59996

" ibis was not yet initialized. please use ibis_set_port before.", -1);

59997

return TCL_ERROR;

59998

}

59999

60000

ibis_tcl_error = 0;

60001

_result = (ib_net32_t *)_ibcc_class_port_info_trap_hop_qp_set(_arg0,_arg1);

60002

;

60003

if (ibis_tcl_error) {

60004

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60005

return TCL_ERROR;

60006

}

60007

} tcl_result = Tcl_GetObjResult(interp);

60008

{

60009

char buff[20];

60010

sprintf(buff, "%u", cl_ntoh32(*_result));

60011

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60012

}

60013

return TCL_OK;

60014

}

60015

#define _ibcc_class_port_info_trap_hop_qp_get(_swigobj) (&_swigobj->trap_hop_qp)

60016

static int _wrap_ccClassPortInfo_trap_hop_qp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60017

60018

ib_net32_t * _result;

60019

ccClassPortInfo * _arg0;

60020

Tcl_Obj * tcl_result;

60021

char * rettype;

60022

60023

clientData = clientData; objv = objv;

60024

tcl_result = Tcl_GetObjResult(interp);

60025

if ((objc < 2) || (objc > 2)) {

60026

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_hop_qp_get { ccClassPortInfo * } ",-1);

60027

return TCL_ERROR;

60028

}

60029

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

60030

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_hop_qp_get. Expected _ccClassPortInfo_p, received ", -1);

60031

Tcl_AppendToObj(tcl_result, rettype, -1);

60032

return TCL_ERROR;

60033

}

60034

{

60035

/* we can check if IBIS was initialized here */

60036

if (!IbisObj.initialized)

60037

{

60038

Tcl_SetStringObj(

60039

Tcl_GetObjResult(interp),

60040

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60041

return TCL_ERROR;

60042

}

60043

60044

if (! IbisObj.port_guid)

60045

{

60046

Tcl_SetStringObj(

60047

Tcl_GetObjResult(interp),

60048

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60049

return TCL_ERROR;

60050

}

60051

60052

ibis_tcl_error = 0;

60053

_result = (ib_net32_t *)_ibcc_class_port_info_trap_hop_qp_get(_arg0);

60054

;

60055

if (ibis_tcl_error) {

60056

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60057

return TCL_ERROR;

60058

}

60059

} tcl_result = Tcl_GetObjResult(interp);

60060

{

60061

char buff[20];

60062

sprintf(buff, "%u", cl_ntoh32(*_result));

60063

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60064

}

60065

return TCL_OK;

60066

}

60067

#define _ibcc_class_port_info_trap_qkey_set(_swigobj,_swigval) (_swigobj->trap_qkey = *(_swigval),_swigval)

60068

static int _wrap_ccClassPortInfo_trap_qkey_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60069

60070

ib_net32_t * _result;

60071

ccClassPortInfo * _arg0;

60072

ib_net32_t * _arg1;

60073

Tcl_Obj * tcl_result;

60074

char * rettype;

60075

ib_net32_t temp;

60076

60077

clientData = clientData; objv = objv;

60078

tcl_result = Tcl_GetObjResult(interp);

60079

if ((objc < 3) || (objc > 3)) {

60080

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_qkey_set { ccClassPortInfo * } { ib_net32_t * } ",-1);

60081

return TCL_ERROR;

60082

}

60083

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

60084

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_qkey_set. Expected _ccClassPortInfo_p, received ", -1);

60085

Tcl_AppendToObj(tcl_result, rettype, -1);

60086

return TCL_ERROR;

60087

}

60088

{

60089

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

60090

_arg1 = &temp;

60091

}

60092

{

60093

/* we can check if IBIS was initialized here */

60094

if (!IbisObj.initialized)

60095

{

60096

Tcl_SetStringObj(

60097

Tcl_GetObjResult(interp),

60098

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60099

return TCL_ERROR;

60100

}

60101

60102

if (! IbisObj.port_guid)

60103

{

60104

Tcl_SetStringObj(

60105

Tcl_GetObjResult(interp),

60106

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60107

return TCL_ERROR;

60108

}

60109

60110

ibis_tcl_error = 0;

60111

_result = (ib_net32_t *)_ibcc_class_port_info_trap_qkey_set(_arg0,_arg1);

60112

;

60113

if (ibis_tcl_error) {

60114

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60115

return TCL_ERROR;

60116

}

60117

} tcl_result = Tcl_GetObjResult(interp);

60118

{

60119

char buff[20];

60120

sprintf(buff, "%u", cl_ntoh32(*_result));

60121

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60122

}

60123

return TCL_OK;

60124

}

60125

#define _ibcc_class_port_info_trap_qkey_get(_swigobj) (&_swigobj->trap_qkey)

60126

static int _wrap_ccClassPortInfo_trap_qkey_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60127

60128

ib_net32_t * _result;

60129

ccClassPortInfo * _arg0;

60130

Tcl_Obj * tcl_result;

60131

char * rettype;

60132

60133

clientData = clientData; objv = objv;

60134

tcl_result = Tcl_GetObjResult(interp);

60135

if ((objc < 2) || (objc > 2)) {

60136

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_trap_qkey_get { ccClassPortInfo * } ",-1);

60137

return TCL_ERROR;

60138

}

60139

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

60140

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_trap_qkey_get. Expected _ccClassPortInfo_p, received ", -1);

60141

Tcl_AppendToObj(tcl_result, rettype, -1);

60142

return TCL_ERROR;

60143

}

60144

{

60145

/* we can check if IBIS was initialized here */

60146

if (!IbisObj.initialized)

60147

{

60148

Tcl_SetStringObj(

60149

Tcl_GetObjResult(interp),

60150

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60151

return TCL_ERROR;

60152

}

60153

60154

if (! IbisObj.port_guid)

60155

{

60156

Tcl_SetStringObj(

60157

Tcl_GetObjResult(interp),

60158

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60159

return TCL_ERROR;

60160

}

60161

60162

ibis_tcl_error = 0;

60163

_result = (ib_net32_t *)_ibcc_class_port_info_trap_qkey_get(_arg0);

60164

;

60165

if (ibis_tcl_error) {

60166

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60167

return TCL_ERROR;

60168

}

60169

} tcl_result = Tcl_GetObjResult(interp);

60170

{

60171

char buff[20];

60172

sprintf(buff, "%u", cl_ntoh32(*_result));

60173

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60174

}

60175

return TCL_OK;

60176

}

60177

static int ccClassPortInfo_getByLid(ccClassPortInfo *self,uint16_t lid) {

60178

return ibcc_send_mad_by_lid (

60179

gp_ibcc,

60180

IBCC_DEAFULT_KEY,

60181

NULL, // log data

60182

0, // log data size

60183

(uint8_t *)self, // mgt data

60184

sizeof(ccClassPortInfo), // mgt data size

60185

lid,

60186

CL_NTOH16(IB_MAD_ATTR_CLASS_PORT_INFO),

60187

0, // attribute modifier

60188

IB_MAD_METHOD_GET);

60189

}

60190

static int _wrap_ccClassPortInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60191

60192

int _result;

60193

ccClassPortInfo * _arg0;

60194

uint16_t * _arg1;

60195

Tcl_Obj * tcl_result;

60196

char * rettype;

60197

uint16_t temp;

60198

60199

clientData = clientData; objv = objv;

60200

tcl_result = Tcl_GetObjResult(interp);

60201

if ((objc < 3) || (objc > 3)) {

60202

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_getByLid { ccClassPortInfo * } lid ",-1);

60203

return TCL_ERROR;

60204

}

60205

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

60206

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_getByLid. Expected _ccClassPortInfo_p, received ", -1);

60207

Tcl_AppendToObj(tcl_result, rettype, -1);

60208

return TCL_ERROR;

60209

}

60210

{

60211

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

60212

_arg1 = &temp;

60213

}

60214

{

60215

/* we can check if IBIS was initialized here */

60216

if (!IbisObj.initialized)

60217

{

60218

Tcl_SetStringObj(

60219

Tcl_GetObjResult(interp),

60220

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60221

return TCL_ERROR;

60222

}

60223

60224

if (! IbisObj.port_guid)

60225

{

60226

Tcl_SetStringObj(

60227

Tcl_GetObjResult(interp),

60228

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60229

return TCL_ERROR;

60230

}

60231

60232

ibis_tcl_error = 0;

60233

_result = (int )ccClassPortInfo_getByLid(_arg0,*_arg1);

60234

;

60235

if (ibis_tcl_error) {

60236

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60237

return TCL_ERROR;

60238

}

60239

} tcl_result = Tcl_GetObjResult(interp);

60240

Tcl_SetIntObj(tcl_result,(long) _result);

60241

return TCL_OK;

60242

}

60243

static int ccClassPortInfo_setByLid(ccClassPortInfo *self,uint16_t lid) {

60244

return ibcc_send_mad_by_lid(

60245

gp_ibcc,

60246

IBCC_DEAFULT_KEY,

60247

NULL, // log data

60248

0, // log data size

60249

(uint8_t *)self, // mgt data

60250

sizeof(ccClassPortInfo), // mgt data size

60251

lid,

60252

CL_NTOH16(IB_MAD_ATTR_CLASS_PORT_INFO),

60253

0, // attribute modifier

60254

IB_MAD_METHOD_SET);

60255

}

60256

static int _wrap_ccClassPortInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60257

60258

int _result;

60259

ccClassPortInfo * _arg0;

60260

uint16_t * _arg1;

60261

Tcl_Obj * tcl_result;

60262

char * rettype;

60263

uint16_t temp;

60264

60265

clientData = clientData; objv = objv;

60266

tcl_result = Tcl_GetObjResult(interp);

60267

if ((objc < 3) || (objc > 3)) {

60268

Tcl_SetStringObj(tcl_result,"Wrong # args. ccClassPortInfo_setByLid { ccClassPortInfo * } lid ",-1);

60269

return TCL_ERROR;

60270

}

60271

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccClassPortInfo_p"))) {

60272

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccClassPortInfo_setByLid. Expected _ccClassPortInfo_p, received ", -1);

60273

Tcl_AppendToObj(tcl_result, rettype, -1);

60274

return TCL_ERROR;

60275

}

60276

{

60277

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

60278

_arg1 = &temp;

60279

}

60280

{

60281

/* we can check if IBIS was initialized here */

60282

if (!IbisObj.initialized)

60283

{

60284

Tcl_SetStringObj(

60285

Tcl_GetObjResult(interp),

60286

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60287

return TCL_ERROR;

60288

}

60289

60290

if (! IbisObj.port_guid)

60291

{

60292

Tcl_SetStringObj(

60293

Tcl_GetObjResult(interp),

60294

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60295

return TCL_ERROR;

60296

}

60297

60298

ibis_tcl_error = 0;

60299

_result = (int )ccClassPortInfo_setByLid(_arg0,*_arg1);

60300

;

60301

if (ibis_tcl_error) {

60302

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60303

return TCL_ERROR;

60304

}

60305

} tcl_result = Tcl_GetObjResult(interp);

60306

Tcl_SetIntObj(tcl_result,(long) _result);

60307

return TCL_OK;

60308

}

60309

/* methodcmd8.swg : Tcl8.x method invocation */

60310

60311

static int TclccClassPortInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

60312

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

60313

char *_str;

60314

int rcode;

60315

Tcl_Obj **objv;

60316

Tcl_Obj *oldarg,*tcl_result,*obj;

60317

int length;

60318

char c;

60319

60320

tcl_result = Tcl_GetObjResult(interp);

60321

objv = (Tcl_Obj **) _objv;

60322

if (objc < 2) {

60323

Tcl_SetStringObj(tcl_result,"ccClassPortInfo methods : { dump cget configure getByLid setByLid }",-1);

60324

return TCL_ERROR;

60325

}

60326

obj = Tcl_NewObj();

60327

SWIG_SetPointerObj(obj,(void *) clientData,"_ccClassPortInfo_p");

60328

_str = Tcl_GetStringFromObj(objv[1],&length);

60329

c = *_str;

60330

if (0);

60331

if (strcmp(_str,"getByLid") == 0) {

60332

cmd = _wrap_ccClassPortInfo_getByLid;

60333

} else if (strcmp(_str,"setByLid") == 0) {

60334

cmd = _wrap_ccClassPortInfo_setByLid;

60335

}

60336

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

60337

int i = 2;

60338

cmd = 0;

60339

while (i+1 < objc) {

60340

_str = Tcl_GetStringFromObj(objv[i],&length);

60341

if (strcmp(_str,"-base_ver") == 0) {

60342

cmd = _wrap_ccClassPortInfo_base_ver_set;

60343

} else if (strcmp(_str,"-class_ver") == 0) {

60344

cmd = _wrap_ccClassPortInfo_class_ver_set;

60345

} else if (strcmp(_str,"-cap_mask") == 0) {

60346

cmd = _wrap_ccClassPortInfo_cap_mask_set;

60347

} else if (strcmp(_str,"-cap_mask2_resp_time") == 0) {

60348

cmd = _wrap_ccClassPortInfo_cap_mask2_resp_time_set;

60349

} else if (strcmp(_str,"-redir_gid") == 0) {

60350

cmd = _wrap_ccClassPortInfo_redir_gid_set;

60351

} else if (strcmp(_str,"-redir_tc_sl_fl") == 0) {

60352

cmd = _wrap_ccClassPortInfo_redir_tc_sl_fl_set;

60353

} else if (strcmp(_str,"-redir_lid") == 0) {

60354

cmd = _wrap_ccClassPortInfo_redir_lid_set;

60355

} else if (strcmp(_str,"-redir_pkey") == 0) {

60356

cmd = _wrap_ccClassPortInfo_redir_pkey_set;

60357

} else if (strcmp(_str,"-redir_qp") == 0) {

60358

cmd = _wrap_ccClassPortInfo_redir_qp_set;

60359

} else if (strcmp(_str,"-redir_qkey") == 0) {

60360

cmd = _wrap_ccClassPortInfo_redir_qkey_set;

60361

} else if (strcmp(_str,"-trap_gid") == 0) {

60362

cmd = _wrap_ccClassPortInfo_trap_gid_set;

60363

} else if (strcmp(_str,"-trap_tc_sl_fl") == 0) {

60364

cmd = _wrap_ccClassPortInfo_trap_tc_sl_fl_set;

60365

} else if (strcmp(_str,"-trap_lid") == 0) {

60366

cmd = _wrap_ccClassPortInfo_trap_lid_set;

60367

} else if (strcmp(_str,"-trap_pkey") == 0) {

60368

cmd = _wrap_ccClassPortInfo_trap_pkey_set;

60369

} else if (strcmp(_str,"-trap_hop_qp") == 0) {

60370

cmd = _wrap_ccClassPortInfo_trap_hop_qp_set;

60371

} else if (strcmp(_str,"-trap_qkey") == 0) {

60372

cmd = _wrap_ccClassPortInfo_trap_qkey_set;

60373

}

60374

if (cmd) {

60375

oldarg = objv[i];

60376

objv[i] = obj;

60377

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

60378

objv[i] = oldarg;

60379

if (rcode == TCL_ERROR) return rcode;

60380

cmd = 0;

60381

} else {

60382

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

60383

return TCL_ERROR;

60384

}

60385

i+=2;

60386

}

60387

if ((i < objc) || (i == 2)) {

60388

Tcl_SetStringObj(tcl_result,"{ -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

60389

return TCL_ERROR;

60390

}

60391

return TCL_OK;

60392

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

60393

if (objc == 3) {

60394

_str = Tcl_GetStringFromObj(objv[2],&length);

60395

if (0) {}

60396

if (strcmp(_str,"-base_ver") == 0) {

60397

cmd = _wrap_ccClassPortInfo_base_ver_get;

60398

} else if (strcmp(_str,"-class_ver") == 0) {

60399

cmd = _wrap_ccClassPortInfo_class_ver_get;

60400

} else if (strcmp(_str,"-cap_mask") == 0) {

60401

cmd = _wrap_ccClassPortInfo_cap_mask_get;

60402

} else if (strcmp(_str,"-cap_mask2_resp_time") == 0) {

60403

cmd = _wrap_ccClassPortInfo_cap_mask2_resp_time_get;

60404

} else if (strcmp(_str,"-redir_gid") == 0) {

60405

cmd = _wrap_ccClassPortInfo_redir_gid_get;

60406

} else if (strcmp(_str,"-redir_tc_sl_fl") == 0) {

60407

cmd = _wrap_ccClassPortInfo_redir_tc_sl_fl_get;

60408

} else if (strcmp(_str,"-redir_lid") == 0) {

60409

cmd = _wrap_ccClassPortInfo_redir_lid_get;

60410

} else if (strcmp(_str,"-redir_pkey") == 0) {

60411

cmd = _wrap_ccClassPortInfo_redir_pkey_get;

60412

} else if (strcmp(_str,"-redir_qp") == 0) {

60413

cmd = _wrap_ccClassPortInfo_redir_qp_get;

60414

} else if (strcmp(_str,"-redir_qkey") == 0) {

60415

cmd = _wrap_ccClassPortInfo_redir_qkey_get;

60416

} else if (strcmp(_str,"-trap_gid") == 0) {

60417

cmd = _wrap_ccClassPortInfo_trap_gid_get;

60418

} else if (strcmp(_str,"-trap_tc_sl_fl") == 0) {

60419

cmd = _wrap_ccClassPortInfo_trap_tc_sl_fl_get;

60420

} else if (strcmp(_str,"-trap_lid") == 0) {

60421

cmd = _wrap_ccClassPortInfo_trap_lid_get;

60422

} else if (strcmp(_str,"-trap_pkey") == 0) {

60423

cmd = _wrap_ccClassPortInfo_trap_pkey_get;

60424

} else if (strcmp(_str,"-trap_hop_qp") == 0) {

60425

cmd = _wrap_ccClassPortInfo_trap_hop_qp_get;

60426

} else if (strcmp(_str,"-trap_qkey") == 0) {

60427

cmd = _wrap_ccClassPortInfo_trap_qkey_get;

60428

}

60429

else if (strcmp(_str,"-this") == 0) {

60430

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccClassPortInfo_p");

60431

return TCL_OK;

60432

}

60433

if (cmd) {

60434

oldarg = objv[2];

60435

objv[2] = obj;

60436

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

60437

objv[2] = oldarg;

60438

return rcode;

60439

} else {

60440

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }",-1);

60441

return TCL_ERROR;

60442

}

60443

} else {

60444

Tcl_SetStringObj(tcl_result,"{ -this -base_ver -class_ver -cap_mask -cap_mask2_resp_time -redir_gid -redir_tc_sl_fl -redir_lid -redir_pkey -redir_qp -redir_qkey -trap_gid -trap_tc_sl_fl -trap_lid -trap_pkey -trap_hop_qp -trap_qkey }", -1);

60445

return TCL_ERROR;

60446

}

60447

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

60448

if (objc == 2) {

60449

Tcl_Obj *pDumpObj;

60450

pDumpObj = Tcl_NewStringObj("",-1);

60451

Tcl_IncrRefCount(pDumpObj);

60452

cmd = _wrap_ccClassPortInfo_base_ver_get;

60453

oldarg = objv[2];

60454

objv[2] = obj;

60455

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60456

objv[2] = oldarg;

60457

Tcl_AppendStringsToObj(pDumpObj, "-base_ver ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60458

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60459

cmd = _wrap_ccClassPortInfo_class_ver_get;

60460

oldarg = objv[2];

60461

objv[2] = obj;

60462

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60463

objv[2] = oldarg;

60464

Tcl_AppendStringsToObj(pDumpObj, "-class_ver ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60465

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60466

cmd = _wrap_ccClassPortInfo_cap_mask_get;

60467

oldarg = objv[2];

60468

objv[2] = obj;

60469

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60470

objv[2] = oldarg;

60471

Tcl_AppendStringsToObj(pDumpObj, "-cap_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60472

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60473

cmd = _wrap_ccClassPortInfo_cap_mask2_resp_time_get;

60474

oldarg = objv[2];

60475

objv[2] = obj;

60476

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60477

objv[2] = oldarg;

60478

Tcl_AppendStringsToObj(pDumpObj, "-cap_mask2_resp_time ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60479

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60480

cmd = _wrap_ccClassPortInfo_redir_gid_get;

60481

oldarg = objv[2];

60482

objv[2] = obj;

60483

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60484

objv[2] = oldarg;

60485

Tcl_AppendStringsToObj(pDumpObj, "-redir_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60486

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60487

cmd = _wrap_ccClassPortInfo_redir_tc_sl_fl_get;

60488

oldarg = objv[2];

60489

objv[2] = obj;

60490

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60491

objv[2] = oldarg;

60492

Tcl_AppendStringsToObj(pDumpObj, "-redir_tc_sl_fl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60493

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60494

cmd = _wrap_ccClassPortInfo_redir_lid_get;

60495

oldarg = objv[2];

60496

objv[2] = obj;

60497

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60498

objv[2] = oldarg;

60499

Tcl_AppendStringsToObj(pDumpObj, "-redir_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60500

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60501

cmd = _wrap_ccClassPortInfo_redir_pkey_get;

60502

oldarg = objv[2];

60503

objv[2] = obj;

60504

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60505

objv[2] = oldarg;

60506

Tcl_AppendStringsToObj(pDumpObj, "-redir_pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60507

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60508

cmd = _wrap_ccClassPortInfo_redir_qp_get;

60509

oldarg = objv[2];

60510

objv[2] = obj;

60511

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60512

objv[2] = oldarg;

60513

Tcl_AppendStringsToObj(pDumpObj, "-redir_qp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60514

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60515

cmd = _wrap_ccClassPortInfo_redir_qkey_get;

60516

oldarg = objv[2];

60517

objv[2] = obj;

60518

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60519

objv[2] = oldarg;

60520

Tcl_AppendStringsToObj(pDumpObj, "-redir_qkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60521

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60522

cmd = _wrap_ccClassPortInfo_trap_gid_get;

60523

oldarg = objv[2];

60524

objv[2] = obj;

60525

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60526

objv[2] = oldarg;

60527

Tcl_AppendStringsToObj(pDumpObj, "-trap_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60528

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60529

cmd = _wrap_ccClassPortInfo_trap_tc_sl_fl_get;

60530

oldarg = objv[2];

60531

objv[2] = obj;

60532

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60533

objv[2] = oldarg;

60534

Tcl_AppendStringsToObj(pDumpObj, "-trap_tc_sl_fl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60535

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60536

cmd = _wrap_ccClassPortInfo_trap_lid_get;

60537

oldarg = objv[2];

60538

objv[2] = obj;

60539

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60540

objv[2] = oldarg;

60541

Tcl_AppendStringsToObj(pDumpObj, "-trap_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60542

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60543

cmd = _wrap_ccClassPortInfo_trap_pkey_get;

60544

oldarg = objv[2];

60545

objv[2] = obj;

60546

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60547

objv[2] = oldarg;

60548

Tcl_AppendStringsToObj(pDumpObj, "-trap_pkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60549

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60550

cmd = _wrap_ccClassPortInfo_trap_hop_qp_get;

60551

oldarg = objv[2];

60552

objv[2] = obj;

60553

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60554

objv[2] = oldarg;

60555

Tcl_AppendStringsToObj(pDumpObj, "-trap_hop_qp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60556

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60557

cmd = _wrap_ccClassPortInfo_trap_qkey_get;

60558

oldarg = objv[2];

60559

objv[2] = obj;

60560

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

60561

objv[2] = oldarg;

60562

Tcl_AppendStringsToObj(pDumpObj, "-trap_qkey ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

60563

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

60564

60565

Tcl_DecrRefCount(pDumpObj);

60566

return TCL_OK;

60567

} else {

60568

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

60569

return TCL_ERROR;

60570

}

60571

}

60572

if (!cmd) {

60573

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

60574

return TCL_ERROR;

60575

}

60576

oldarg = objv[1];

60577

objv[1] = obj;

60578

rcode = (*cmd)(clientData,interp,objc,objv);

60579

objv[1] = oldarg;

60580

return rcode;

60581

}

60582

60583

60584

60585

/* objcmd8.swg : Tcl 8.x object creation */

60586

60587

static int TclccClassPortInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60588

void (*del)(ClientData) = 0;

60589

char *name = 0;

60590

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

60591

ccClassPortInfo * newObj = 0;

60592

int firstarg = 0;

60593

int thisarg = 0;

60594

int length;

60595

char *_str;

60596

Tcl_Obj *tcl_result;

60597

60598

tcl_result = Tcl_GetObjResult(interp);

60599

if (objc == 1) {

60600

cmd = 0;

60601

} else {

60602

_str = Tcl_GetStringFromObj(objv[1],&length);

60603

if (strcmp(_str,"-this") == 0) thisarg = 2;

60604

else if (strcmp(_str,"-args") == 0) {

60605

firstarg = 1;

60606

cmd = 0;

60607

} else if (objc == 2) {

60608

firstarg = 1;

60609

name = _str;

60610

cmd = 0;

60611

} else if (objc >= 3) {

60612

name = _str;

60613

_str = Tcl_GetStringFromObj(objv[2],&length);

60614

if (strcmp(_str,"-this") == 0) thisarg = 3;

60615

else {

60616

firstarg = 1;

60617

cmd = 0;

60618

}

60619

}

60620

}

60621

if (cmd) {

60622

int result;

60623

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

60624

if (result == TCL_OK) {

60625

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccClassPortInfo_p");

60626

} else { return result; }

60627

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

60628

del = 0;

60629

} else if (thisarg > 0) {

60630

if (thisarg < objc) {

60631

char *r;

60632

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccClassPortInfo_p");

60633

if (r) {

60634

Tcl_SetStringObj(tcl_result,"Type error. not a ccClassPortInfo object.",-1);

60635

return TCL_ERROR;

60636

}

60637

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

60638

Tcl_SetStringObj(tcl_result,name,-1);

60639

} else {

60640

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

60641

return TCL_ERROR;

60642

}

60643

} else {

60644

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

60645

return TCL_ERROR;

60646

}

60647

{

60648

Tcl_CmdInfo dummy;

60649

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

60650

Tcl_CreateObjCommand(interp,name, TclccClassPortInfoMethodCmd, (ClientData) newObj, del);

60651

return TCL_OK;

60652

} else {

60653

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

60654

return TCL_ERROR;

60655

}

60656

}

60657

}

60658

60659

60660

#define _ibcc_notice_generic_type_set(_swigobj,_swigval) (_swigobj->generic_type = *(_swigval),_swigval)

60661

static int _wrap_ccNotice_generic_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60662

60663

uint8_t * _result;

60664

ccNotice * _arg0;

60665

uint8_t * _arg1;

60666

Tcl_Obj * tcl_result;

60667

char * rettype;

60668

uint8_t temp;

60669

60670

clientData = clientData; objv = objv;

60671

tcl_result = Tcl_GetObjResult(interp);

60672

if ((objc < 3) || (objc > 3)) {

60673

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic_type_set { ccNotice * } { uint8_t * } ",-1);

60674

return TCL_ERROR;

60675

}

60676

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60677

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic_type_set. Expected _ccNotice_p, received ", -1);

60678

Tcl_AppendToObj(tcl_result, rettype, -1);

60679

return TCL_ERROR;

60680

}

60681

{

60682

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

60683

_arg1 = &temp;

60684

}

60685

{

60686

/* we can check if IBIS was initialized here */

60687

if (!IbisObj.initialized)

60688

{

60689

Tcl_SetStringObj(

60690

Tcl_GetObjResult(interp),

60691

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60692

return TCL_ERROR;

60693

}

60694

60695

if (! IbisObj.port_guid)

60696

{

60697

Tcl_SetStringObj(

60698

Tcl_GetObjResult(interp),

60699

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60700

return TCL_ERROR;

60701

}

60702

60703

ibis_tcl_error = 0;

60704

_result = (uint8_t *)_ibcc_notice_generic_type_set(_arg0,_arg1);

60705

;

60706

if (ibis_tcl_error) {

60707

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60708

return TCL_ERROR;

60709

}

60710

} tcl_result = Tcl_GetObjResult(interp);

60711

{

60712

char buff[20];

60713

sprintf(buff, "%u", *_result);

60714

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60715

}

60716

return TCL_OK;

60717

}

60718

#define _ibcc_notice_generic_type_get(_swigobj) (&_swigobj->generic_type)

60719

static int _wrap_ccNotice_generic_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60720

60721

uint8_t * _result;

60722

ccNotice * _arg0;

60723

Tcl_Obj * tcl_result;

60724

char * rettype;

60725

60726

clientData = clientData; objv = objv;

60727

tcl_result = Tcl_GetObjResult(interp);

60728

if ((objc < 2) || (objc > 2)) {

60729

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic_type_get { ccNotice * } ",-1);

60730

return TCL_ERROR;

60731

}

60732

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60733

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic_type_get. Expected _ccNotice_p, received ", -1);

60734

Tcl_AppendToObj(tcl_result, rettype, -1);

60735

return TCL_ERROR;

60736

}

60737

{

60738

/* we can check if IBIS was initialized here */

60739

if (!IbisObj.initialized)

60740

{

60741

Tcl_SetStringObj(

60742

Tcl_GetObjResult(interp),

60743

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60744

return TCL_ERROR;

60745

}

60746

60747

if (! IbisObj.port_guid)

60748

{

60749

Tcl_SetStringObj(

60750

Tcl_GetObjResult(interp),

60751

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60752

return TCL_ERROR;

60753

}

60754

60755

ibis_tcl_error = 0;

60756

_result = (uint8_t *)_ibcc_notice_generic_type_get(_arg0);

60757

;

60758

if (ibis_tcl_error) {

60759

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60760

return TCL_ERROR;

60761

}

60762

} tcl_result = Tcl_GetObjResult(interp);

60763

{

60764

char buff[20];

60765

sprintf(buff, "%u", *_result);

60766

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60767

}

60768

return TCL_OK;

60769

}

60770

#define _ibcc_notice_generic__prod_type_msb_set(_swigobj,_swigval) (_swigobj->generic__prod_type_msb = *(_swigval),_swigval)

60771

static int _wrap_ccNotice_generic__prod_type_msb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60772

60773

uint8_t * _result;

60774

ccNotice * _arg0;

60775

uint8_t * _arg1;

60776

Tcl_Obj * tcl_result;

60777

char * rettype;

60778

uint8_t temp;

60779

60780

clientData = clientData; objv = objv;

60781

tcl_result = Tcl_GetObjResult(interp);

60782

if ((objc < 3) || (objc > 3)) {

60783

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__prod_type_msb_set { ccNotice * } { uint8_t * } ",-1);

60784

return TCL_ERROR;

60785

}

60786

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60787

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__prod_type_msb_set. Expected _ccNotice_p, received ", -1);

60788

Tcl_AppendToObj(tcl_result, rettype, -1);

60789

return TCL_ERROR;

60790

}

60791

{

60792

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

60793

_arg1 = &temp;

60794

}

60795

{

60796

/* we can check if IBIS was initialized here */

60797

if (!IbisObj.initialized)

60798

{

60799

Tcl_SetStringObj(

60800

Tcl_GetObjResult(interp),

60801

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60802

return TCL_ERROR;

60803

}

60804

60805

if (! IbisObj.port_guid)

60806

{

60807

Tcl_SetStringObj(

60808

Tcl_GetObjResult(interp),

60809

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60810

return TCL_ERROR;

60811

}

60812

60813

ibis_tcl_error = 0;

60814

_result = (uint8_t *)_ibcc_notice_generic__prod_type_msb_set(_arg0,_arg1);

60815

;

60816

if (ibis_tcl_error) {

60817

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60818

return TCL_ERROR;

60819

}

60820

} tcl_result = Tcl_GetObjResult(interp);

60821

{

60822

char buff[20];

60823

sprintf(buff, "%u", *_result);

60824

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60825

}

60826

return TCL_OK;

60827

}

60828

#define _ibcc_notice_generic__prod_type_msb_get(_swigobj) (&_swigobj->generic__prod_type_msb)

60829

static int _wrap_ccNotice_generic__prod_type_msb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60830

60831

uint8_t * _result;

60832

ccNotice * _arg0;

60833

Tcl_Obj * tcl_result;

60834

char * rettype;

60835

60836

clientData = clientData; objv = objv;

60837

tcl_result = Tcl_GetObjResult(interp);

60838

if ((objc < 2) || (objc > 2)) {

60839

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__prod_type_msb_get { ccNotice * } ",-1);

60840

return TCL_ERROR;

60841

}

60842

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60843

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__prod_type_msb_get. Expected _ccNotice_p, received ", -1);

60844

Tcl_AppendToObj(tcl_result, rettype, -1);

60845

return TCL_ERROR;

60846

}

60847

{

60848

/* we can check if IBIS was initialized here */

60849

if (!IbisObj.initialized)

60850

{

60851

Tcl_SetStringObj(

60852

Tcl_GetObjResult(interp),

60853

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60854

return TCL_ERROR;

60855

}

60856

60857

if (! IbisObj.port_guid)

60858

{

60859

Tcl_SetStringObj(

60860

Tcl_GetObjResult(interp),

60861

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60862

return TCL_ERROR;

60863

}

60864

60865

ibis_tcl_error = 0;

60866

_result = (uint8_t *)_ibcc_notice_generic__prod_type_msb_get(_arg0);

60867

;

60868

if (ibis_tcl_error) {

60869

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60870

return TCL_ERROR;

60871

}

60872

} tcl_result = Tcl_GetObjResult(interp);

60873

{

60874

char buff[20];

60875

sprintf(buff, "%u", *_result);

60876

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60877

}

60878

return TCL_OK;

60879

}

60880

#define _ibcc_notice_generic__prod_type_lsb_set(_swigobj,_swigval) (_swigobj->generic__prod_type_lsb = *(_swigval),_swigval)

60881

static int _wrap_ccNotice_generic__prod_type_lsb_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60882

60883

ib_net16_t * _result;

60884

ccNotice * _arg0;

60885

ib_net16_t * _arg1;

60886

Tcl_Obj * tcl_result;

60887

char * rettype;

60888

ib_net16_t temp;

60889

60890

clientData = clientData; objv = objv;

60891

tcl_result = Tcl_GetObjResult(interp);

60892

if ((objc < 3) || (objc > 3)) {

60893

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__prod_type_lsb_set { ccNotice * } { ib_net16_t * } ",-1);

60894

return TCL_ERROR;

60895

}

60896

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60897

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__prod_type_lsb_set. Expected _ccNotice_p, received ", -1);

60898

Tcl_AppendToObj(tcl_result, rettype, -1);

60899

return TCL_ERROR;

60900

}

60901

{

60902

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

60903

_arg1 = &temp;

60904

}

60905

{

60906

/* we can check if IBIS was initialized here */

60907

if (!IbisObj.initialized)

60908

{

60909

Tcl_SetStringObj(

60910

Tcl_GetObjResult(interp),

60911

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60912

return TCL_ERROR;

60913

}

60914

60915

if (! IbisObj.port_guid)

60916

{

60917

Tcl_SetStringObj(

60918

Tcl_GetObjResult(interp),

60919

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60920

return TCL_ERROR;

60921

}

60922

60923

ibis_tcl_error = 0;

60924

_result = (ib_net16_t *)_ibcc_notice_generic__prod_type_lsb_set(_arg0,_arg1);

60925

;

60926

if (ibis_tcl_error) {

60927

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60928

return TCL_ERROR;

60929

}

60930

} tcl_result = Tcl_GetObjResult(interp);

60931

{

60932

char buff[20];

60933

sprintf(buff, "%u", cl_hton16(*_result));

60934

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60935

}

60936

return TCL_OK;

60937

}

60938

#define _ibcc_notice_generic__prod_type_lsb_get(_swigobj) (&_swigobj->generic__prod_type_lsb)

60939

static int _wrap_ccNotice_generic__prod_type_lsb_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60940

60941

ib_net16_t * _result;

60942

ccNotice * _arg0;

60943

Tcl_Obj * tcl_result;

60944

char * rettype;

60945

60946

clientData = clientData; objv = objv;

60947

tcl_result = Tcl_GetObjResult(interp);

60948

if ((objc < 2) || (objc > 2)) {

60949

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__prod_type_lsb_get { ccNotice * } ",-1);

60950

return TCL_ERROR;

60951

}

60952

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

60953

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__prod_type_lsb_get. Expected _ccNotice_p, received ", -1);

60954

Tcl_AppendToObj(tcl_result, rettype, -1);

60955

return TCL_ERROR;

60956

}

60957

{

60958

/* we can check if IBIS was initialized here */

60959

if (!IbisObj.initialized)

60960

{

60961

Tcl_SetStringObj(

60962

Tcl_GetObjResult(interp),

60963

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

60964

return TCL_ERROR;

60965

}

60966

60967

if (! IbisObj.port_guid)

60968

{

60969

Tcl_SetStringObj(

60970

Tcl_GetObjResult(interp),

60971

" ibis was not yet initialized. please use ibis_set_port before.", -1);

60972

return TCL_ERROR;

60973

}

60974

60975

ibis_tcl_error = 0;

60976

_result = (ib_net16_t *)_ibcc_notice_generic__prod_type_lsb_get(_arg0);

60977

;

60978

if (ibis_tcl_error) {

60979

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

60980

return TCL_ERROR;

60981

}

60982

} tcl_result = Tcl_GetObjResult(interp);

60983

{

60984

char buff[20];

60985

sprintf(buff, "%u", cl_hton16(*_result));

60986

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

60987

}

60988

return TCL_OK;

60989

}

60990

#define _ibcc_notice_generic__trap_num_set(_swigobj,_swigval) (_swigobj->generic__trap_num = *(_swigval),_swigval)

60991

static int _wrap_ccNotice_generic__trap_num_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

60992

60993

ib_net16_t * _result;

60994

ccNotice * _arg0;

60995

ib_net16_t * _arg1;

60996

Tcl_Obj * tcl_result;

60997

char * rettype;

60998

ib_net16_t temp;

60999

61000

clientData = clientData; objv = objv;

61001

tcl_result = Tcl_GetObjResult(interp);

61002

if ((objc < 3) || (objc > 3)) {

61003

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__trap_num_set { ccNotice * } { ib_net16_t * } ",-1);

61004

return TCL_ERROR;

61005

}

61006

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61007

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__trap_num_set. Expected _ccNotice_p, received ", -1);

61008

Tcl_AppendToObj(tcl_result, rettype, -1);

61009

return TCL_ERROR;

61010

}

61011

{

61012

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61013

_arg1 = &temp;

61014

}

61015

{

61016

/* we can check if IBIS was initialized here */

61017

if (!IbisObj.initialized)

61018

{

61019

Tcl_SetStringObj(

61020

Tcl_GetObjResult(interp),

61021

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61022

return TCL_ERROR;

61023

}

61024

61025

if (! IbisObj.port_guid)

61026

{

61027

Tcl_SetStringObj(

61028

Tcl_GetObjResult(interp),

61029

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61030

return TCL_ERROR;

61031

}

61032

61033

ibis_tcl_error = 0;

61034

_result = (ib_net16_t *)_ibcc_notice_generic__trap_num_set(_arg0,_arg1);

61035

;

61036

if (ibis_tcl_error) {

61037

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61038

return TCL_ERROR;

61039

}

61040

} tcl_result = Tcl_GetObjResult(interp);

61041

{

61042

char buff[20];

61043

sprintf(buff, "%u", cl_hton16(*_result));

61044

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61045

}

61046

return TCL_OK;

61047

}

61048

#define _ibcc_notice_generic__trap_num_get(_swigobj) (&_swigobj->generic__trap_num)

61049

static int _wrap_ccNotice_generic__trap_num_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61050

61051

ib_net16_t * _result;

61052

ccNotice * _arg0;

61053

Tcl_Obj * tcl_result;

61054

char * rettype;

61055

61056

clientData = clientData; objv = objv;

61057

tcl_result = Tcl_GetObjResult(interp);

61058

if ((objc < 2) || (objc > 2)) {

61059

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_generic__trap_num_get { ccNotice * } ",-1);

61060

return TCL_ERROR;

61061

}

61062

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61063

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_generic__trap_num_get. Expected _ccNotice_p, received ", -1);

61064

Tcl_AppendToObj(tcl_result, rettype, -1);

61065

return TCL_ERROR;

61066

}

61067

{

61068

/* we can check if IBIS was initialized here */

61069

if (!IbisObj.initialized)

61070

{

61071

Tcl_SetStringObj(

61072

Tcl_GetObjResult(interp),

61073

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61074

return TCL_ERROR;

61075

}

61076

61077

if (! IbisObj.port_guid)

61078

{

61079

Tcl_SetStringObj(

61080

Tcl_GetObjResult(interp),

61081

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61082

return TCL_ERROR;

61083

}

61084

61085

ibis_tcl_error = 0;

61086

_result = (ib_net16_t *)_ibcc_notice_generic__trap_num_get(_arg0);

61087

;

61088

if (ibis_tcl_error) {

61089

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61090

return TCL_ERROR;

61091

}

61092

} tcl_result = Tcl_GetObjResult(interp);

61093

{

61094

char buff[20];

61095

sprintf(buff, "%u", cl_hton16(*_result));

61096

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61097

}

61098

return TCL_OK;

61099

}

61100

#define _ibcc_notice_issuer_lid_set(_swigobj,_swigval) (_swigobj->issuer_lid = *(_swigval),_swigval)

61101

static int _wrap_ccNotice_issuer_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61102

61103

ib_net16_t * _result;

61104

ccNotice * _arg0;

61105

ib_net16_t * _arg1;

61106

Tcl_Obj * tcl_result;

61107

char * rettype;

61108

ib_net16_t temp;

61109

61110

clientData = clientData; objv = objv;

61111

tcl_result = Tcl_GetObjResult(interp);

61112

if ((objc < 3) || (objc > 3)) {

61113

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_issuer_lid_set { ccNotice * } { ib_net16_t * } ",-1);

61114

return TCL_ERROR;

61115

}

61116

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61117

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_issuer_lid_set. Expected _ccNotice_p, received ", -1);

61118

Tcl_AppendToObj(tcl_result, rettype, -1);

61119

return TCL_ERROR;

61120

}

61121

{

61122

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61123

_arg1 = &temp;

61124

}

61125

{

61126

/* we can check if IBIS was initialized here */

61127

if (!IbisObj.initialized)

61128

{

61129

Tcl_SetStringObj(

61130

Tcl_GetObjResult(interp),

61131

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61132

return TCL_ERROR;

61133

}

61134

61135

if (! IbisObj.port_guid)

61136

{

61137

Tcl_SetStringObj(

61138

Tcl_GetObjResult(interp),

61139

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61140

return TCL_ERROR;

61141

}

61142

61143

ibis_tcl_error = 0;

61144

_result = (ib_net16_t *)_ibcc_notice_issuer_lid_set(_arg0,_arg1);

61145

;

61146

if (ibis_tcl_error) {

61147

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61148

return TCL_ERROR;

61149

}

61150

} tcl_result = Tcl_GetObjResult(interp);

61151

{

61152

char buff[20];

61153

sprintf(buff, "%u", cl_hton16(*_result));

61154

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61155

}

61156

return TCL_OK;

61157

}

61158

#define _ibcc_notice_issuer_lid_get(_swigobj) (&_swigobj->issuer_lid)

61159

static int _wrap_ccNotice_issuer_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61160

61161

ib_net16_t * _result;

61162

ccNotice * _arg0;

61163

Tcl_Obj * tcl_result;

61164

char * rettype;

61165

61166

clientData = clientData; objv = objv;

61167

tcl_result = Tcl_GetObjResult(interp);

61168

if ((objc < 2) || (objc > 2)) {

61169

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_issuer_lid_get { ccNotice * } ",-1);

61170

return TCL_ERROR;

61171

}

61172

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61173

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_issuer_lid_get. Expected _ccNotice_p, received ", -1);

61174

Tcl_AppendToObj(tcl_result, rettype, -1);

61175

return TCL_ERROR;

61176

}

61177

{

61178

/* we can check if IBIS was initialized here */

61179

if (!IbisObj.initialized)

61180

{

61181

Tcl_SetStringObj(

61182

Tcl_GetObjResult(interp),

61183

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61184

return TCL_ERROR;

61185

}

61186

61187

if (! IbisObj.port_guid)

61188

{

61189

Tcl_SetStringObj(

61190

Tcl_GetObjResult(interp),

61191

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61192

return TCL_ERROR;

61193

}

61194

61195

ibis_tcl_error = 0;

61196

_result = (ib_net16_t *)_ibcc_notice_issuer_lid_get(_arg0);

61197

;

61198

if (ibis_tcl_error) {

61199

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61200

return TCL_ERROR;

61201

}

61202

} tcl_result = Tcl_GetObjResult(interp);

61203

{

61204

char buff[20];

61205

sprintf(buff, "%u", cl_hton16(*_result));

61206

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61207

}

61208

return TCL_OK;

61209

}

61210

#define _ibcc_notice_toggle_count_set(_swigobj,_swigval) (_swigobj->toggle_count = *(_swigval),_swigval)

61211

static int _wrap_ccNotice_toggle_count_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61212

61213

ib_net16_t * _result;

61214

ccNotice * _arg0;

61215

ib_net16_t * _arg1;

61216

Tcl_Obj * tcl_result;

61217

char * rettype;

61218

ib_net16_t temp;

61219

61220

clientData = clientData; objv = objv;

61221

tcl_result = Tcl_GetObjResult(interp);

61222

if ((objc < 3) || (objc > 3)) {

61223

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_toggle_count_set { ccNotice * } { ib_net16_t * } ",-1);

61224

return TCL_ERROR;

61225

}

61226

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61227

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_toggle_count_set. Expected _ccNotice_p, received ", -1);

61228

Tcl_AppendToObj(tcl_result, rettype, -1);

61229

return TCL_ERROR;

61230

}

61231

{

61232

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61233

_arg1 = &temp;

61234

}

61235

{

61236

/* we can check if IBIS was initialized here */

61237

if (!IbisObj.initialized)

61238

{

61239

Tcl_SetStringObj(

61240

Tcl_GetObjResult(interp),

61241

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61242

return TCL_ERROR;

61243

}

61244

61245

if (! IbisObj.port_guid)

61246

{

61247

Tcl_SetStringObj(

61248

Tcl_GetObjResult(interp),

61249

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61250

return TCL_ERROR;

61251

}

61252

61253

ibis_tcl_error = 0;

61254

_result = (ib_net16_t *)_ibcc_notice_toggle_count_set(_arg0,_arg1);

61255

;

61256

if (ibis_tcl_error) {

61257

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61258

return TCL_ERROR;

61259

}

61260

} tcl_result = Tcl_GetObjResult(interp);

61261

{

61262

char buff[20];

61263

sprintf(buff, "%u", cl_hton16(*_result));

61264

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61265

}

61266

return TCL_OK;

61267

}

61268

#define _ibcc_notice_toggle_count_get(_swigobj) (&_swigobj->toggle_count)

61269

static int _wrap_ccNotice_toggle_count_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61270

61271

ib_net16_t * _result;

61272

ccNotice * _arg0;

61273

Tcl_Obj * tcl_result;

61274

char * rettype;

61275

61276

clientData = clientData; objv = objv;

61277

tcl_result = Tcl_GetObjResult(interp);

61278

if ((objc < 2) || (objc > 2)) {

61279

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_toggle_count_get { ccNotice * } ",-1);

61280

return TCL_ERROR;

61281

}

61282

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61283

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_toggle_count_get. Expected _ccNotice_p, received ", -1);

61284

Tcl_AppendToObj(tcl_result, rettype, -1);

61285

return TCL_ERROR;

61286

}

61287

{

61288

/* we can check if IBIS was initialized here */

61289

if (!IbisObj.initialized)

61290

{

61291

Tcl_SetStringObj(

61292

Tcl_GetObjResult(interp),

61293

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61294

return TCL_ERROR;

61295

}

61296

61297

if (! IbisObj.port_guid)

61298

{

61299

Tcl_SetStringObj(

61300

Tcl_GetObjResult(interp),

61301

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61302

return TCL_ERROR;

61303

}

61304

61305

ibis_tcl_error = 0;

61306

_result = (ib_net16_t *)_ibcc_notice_toggle_count_get(_arg0);

61307

;

61308

if (ibis_tcl_error) {

61309

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61310

return TCL_ERROR;

61311

}

61312

} tcl_result = Tcl_GetObjResult(interp);

61313

{

61314

char buff[20];

61315

sprintf(buff, "%u", cl_hton16(*_result));

61316

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61317

}

61318

return TCL_OK;

61319

}

61320

#define _ibcc_notice_ntc0__source_lid_set(_swigobj,_swigval) (_swigobj->ntc0__source_lid = *(_swigval),_swigval)

61321

static int _wrap_ccNotice_ntc0__source_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61322

61323

ib_net16_t * _result;

61324

ccNotice * _arg0;

61325

ib_net16_t * _arg1;

61326

Tcl_Obj * tcl_result;

61327

char * rettype;

61328

ib_net16_t temp;

61329

61330

clientData = clientData; objv = objv;

61331

tcl_result = Tcl_GetObjResult(interp);

61332

if ((objc < 3) || (objc > 3)) {

61333

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__source_lid_set { ccNotice * } { ib_net16_t * } ",-1);

61334

return TCL_ERROR;

61335

}

61336

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61337

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__source_lid_set. Expected _ccNotice_p, received ", -1);

61338

Tcl_AppendToObj(tcl_result, rettype, -1);

61339

return TCL_ERROR;

61340

}

61341

{

61342

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61343

_arg1 = &temp;

61344

}

61345

{

61346

/* we can check if IBIS was initialized here */

61347

if (!IbisObj.initialized)

61348

{

61349

Tcl_SetStringObj(

61350

Tcl_GetObjResult(interp),

61351

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61352

return TCL_ERROR;

61353

}

61354

61355

if (! IbisObj.port_guid)

61356

{

61357

Tcl_SetStringObj(

61358

Tcl_GetObjResult(interp),

61359

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61360

return TCL_ERROR;

61361

}

61362

61363

ibis_tcl_error = 0;

61364

_result = (ib_net16_t *)_ibcc_notice_ntc0__source_lid_set(_arg0,_arg1);

61365

;

61366

if (ibis_tcl_error) {

61367

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61368

return TCL_ERROR;

61369

}

61370

} tcl_result = Tcl_GetObjResult(interp);

61371

{

61372

char buff[20];

61373

sprintf(buff, "%u", cl_hton16(*_result));

61374

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61375

}

61376

return TCL_OK;

61377

}

61378

#define _ibcc_notice_ntc0__source_lid_get(_swigobj) (&_swigobj->ntc0__source_lid)

61379

static int _wrap_ccNotice_ntc0__source_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61380

61381

ib_net16_t * _result;

61382

ccNotice * _arg0;

61383

Tcl_Obj * tcl_result;

61384

char * rettype;

61385

61386

clientData = clientData; objv = objv;

61387

tcl_result = Tcl_GetObjResult(interp);

61388

if ((objc < 2) || (objc > 2)) {

61389

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__source_lid_get { ccNotice * } ",-1);

61390

return TCL_ERROR;

61391

}

61392

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61393

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__source_lid_get. Expected _ccNotice_p, received ", -1);

61394

Tcl_AppendToObj(tcl_result, rettype, -1);

61395

return TCL_ERROR;

61396

}

61397

{

61398

/* we can check if IBIS was initialized here */

61399

if (!IbisObj.initialized)

61400

{

61401

Tcl_SetStringObj(

61402

Tcl_GetObjResult(interp),

61403

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61404

return TCL_ERROR;

61405

}

61406

61407

if (! IbisObj.port_guid)

61408

{

61409

Tcl_SetStringObj(

61410

Tcl_GetObjResult(interp),

61411

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61412

return TCL_ERROR;

61413

}

61414

61415

ibis_tcl_error = 0;

61416

_result = (ib_net16_t *)_ibcc_notice_ntc0__source_lid_get(_arg0);

61417

;

61418

if (ibis_tcl_error) {

61419

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61420

return TCL_ERROR;

61421

}

61422

} tcl_result = Tcl_GetObjResult(interp);

61423

{

61424

char buff[20];

61425

sprintf(buff, "%u", cl_hton16(*_result));

61426

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61427

}

61428

return TCL_OK;

61429

}

61430

#define _ibcc_notice_ntc0__method_set(_swigobj,_swigval) (_swigobj->ntc0__method = *(_swigval),_swigval)

61431

static int _wrap_ccNotice_ntc0__method_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61432

61433

uint8_t * _result;

61434

ccNotice * _arg0;

61435

uint8_t * _arg1;

61436

Tcl_Obj * tcl_result;

61437

char * rettype;

61438

uint8_t temp;

61439

61440

clientData = clientData; objv = objv;

61441

tcl_result = Tcl_GetObjResult(interp);

61442

if ((objc < 3) || (objc > 3)) {

61443

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__method_set { ccNotice * } { uint8_t * } ",-1);

61444

return TCL_ERROR;

61445

}

61446

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61447

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__method_set. Expected _ccNotice_p, received ", -1);

61448

Tcl_AppendToObj(tcl_result, rettype, -1);

61449

return TCL_ERROR;

61450

}

61451

{

61452

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

61453

_arg1 = &temp;

61454

}

61455

{

61456

/* we can check if IBIS was initialized here */

61457

if (!IbisObj.initialized)

61458

{

61459

Tcl_SetStringObj(

61460

Tcl_GetObjResult(interp),

61461

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61462

return TCL_ERROR;

61463

}

61464

61465

if (! IbisObj.port_guid)

61466

{

61467

Tcl_SetStringObj(

61468

Tcl_GetObjResult(interp),

61469

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61470

return TCL_ERROR;

61471

}

61472

61473

ibis_tcl_error = 0;

61474

_result = (uint8_t *)_ibcc_notice_ntc0__method_set(_arg0,_arg1);

61475

;

61476

if (ibis_tcl_error) {

61477

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61478

return TCL_ERROR;

61479

}

61480

} tcl_result = Tcl_GetObjResult(interp);

61481

{

61482

char buff[20];

61483

sprintf(buff, "%u", *_result);

61484

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61485

}

61486

return TCL_OK;

61487

}

61488

#define _ibcc_notice_ntc0__method_get(_swigobj) (&_swigobj->ntc0__method)

61489

static int _wrap_ccNotice_ntc0__method_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61490

61491

uint8_t * _result;

61492

ccNotice * _arg0;

61493

Tcl_Obj * tcl_result;

61494

char * rettype;

61495

61496

clientData = clientData; objv = objv;

61497

tcl_result = Tcl_GetObjResult(interp);

61498

if ((objc < 2) || (objc > 2)) {

61499

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__method_get { ccNotice * } ",-1);

61500

return TCL_ERROR;

61501

}

61502

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61503

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__method_get. Expected _ccNotice_p, received ", -1);

61504

Tcl_AppendToObj(tcl_result, rettype, -1);

61505

return TCL_ERROR;

61506

}

61507

{

61508

/* we can check if IBIS was initialized here */

61509

if (!IbisObj.initialized)

61510

{

61511

Tcl_SetStringObj(

61512

Tcl_GetObjResult(interp),

61513

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61514

return TCL_ERROR;

61515

}

61516

61517

if (! IbisObj.port_guid)

61518

{

61519

Tcl_SetStringObj(

61520

Tcl_GetObjResult(interp),

61521

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61522

return TCL_ERROR;

61523

}

61524

61525

ibis_tcl_error = 0;

61526

_result = (uint8_t *)_ibcc_notice_ntc0__method_get(_arg0);

61527

;

61528

if (ibis_tcl_error) {

61529

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61530

return TCL_ERROR;

61531

}

61532

} tcl_result = Tcl_GetObjResult(interp);

61533

{

61534

char buff[20];

61535

sprintf(buff, "%u", *_result);

61536

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61537

}

61538

return TCL_OK;

61539

}

61540

#define _ibcc_notice_ntc0__resv0_set(_swigobj,_swigval) (_swigobj->ntc0__resv0 = *(_swigval),_swigval)

61541

static int _wrap_ccNotice_ntc0__resv0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61542

61543

uint8_t * _result;

61544

ccNotice * _arg0;

61545

uint8_t * _arg1;

61546

Tcl_Obj * tcl_result;

61547

char * rettype;

61548

uint8_t temp;

61549

61550

clientData = clientData; objv = objv;

61551

tcl_result = Tcl_GetObjResult(interp);

61552

if ((objc < 3) || (objc > 3)) {

61553

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__resv0_set { ccNotice * } { uint8_t * } ",-1);

61554

return TCL_ERROR;

61555

}

61556

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61557

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__resv0_set. Expected _ccNotice_p, received ", -1);

61558

Tcl_AppendToObj(tcl_result, rettype, -1);

61559

return TCL_ERROR;

61560

}

61561

{

61562

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

61563

_arg1 = &temp;

61564

}

61565

{

61566

/* we can check if IBIS was initialized here */

61567

if (!IbisObj.initialized)

61568

{

61569

Tcl_SetStringObj(

61570

Tcl_GetObjResult(interp),

61571

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61572

return TCL_ERROR;

61573

}

61574

61575

if (! IbisObj.port_guid)

61576

{

61577

Tcl_SetStringObj(

61578

Tcl_GetObjResult(interp),

61579

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61580

return TCL_ERROR;

61581

}

61582

61583

ibis_tcl_error = 0;

61584

_result = (uint8_t *)_ibcc_notice_ntc0__resv0_set(_arg0,_arg1);

61585

;

61586

if (ibis_tcl_error) {

61587

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61588

return TCL_ERROR;

61589

}

61590

} tcl_result = Tcl_GetObjResult(interp);

61591

{

61592

char buff[20];

61593

sprintf(buff, "%u", *_result);

61594

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61595

}

61596

return TCL_OK;

61597

}

61598

#define _ibcc_notice_ntc0__resv0_get(_swigobj) (&_swigobj->ntc0__resv0)

61599

static int _wrap_ccNotice_ntc0__resv0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61600

61601

uint8_t * _result;

61602

ccNotice * _arg0;

61603

Tcl_Obj * tcl_result;

61604

char * rettype;

61605

61606

clientData = clientData; objv = objv;

61607

tcl_result = Tcl_GetObjResult(interp);

61608

if ((objc < 2) || (objc > 2)) {

61609

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__resv0_get { ccNotice * } ",-1);

61610

return TCL_ERROR;

61611

}

61612

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61613

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__resv0_get. Expected _ccNotice_p, received ", -1);

61614

Tcl_AppendToObj(tcl_result, rettype, -1);

61615

return TCL_ERROR;

61616

}

61617

{

61618

/* we can check if IBIS was initialized here */

61619

if (!IbisObj.initialized)

61620

{

61621

Tcl_SetStringObj(

61622

Tcl_GetObjResult(interp),

61623

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61624

return TCL_ERROR;

61625

}

61626

61627

if (! IbisObj.port_guid)

61628

{

61629

Tcl_SetStringObj(

61630

Tcl_GetObjResult(interp),

61631

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61632

return TCL_ERROR;

61633

}

61634

61635

ibis_tcl_error = 0;

61636

_result = (uint8_t *)_ibcc_notice_ntc0__resv0_get(_arg0);

61637

;

61638

if (ibis_tcl_error) {

61639

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61640

return TCL_ERROR;

61641

}

61642

} tcl_result = Tcl_GetObjResult(interp);

61643

{

61644

char buff[20];

61645

sprintf(buff, "%u", *_result);

61646

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61647

}

61648

return TCL_OK;

61649

}

61650

#define _ibcc_notice_ntc0__attr_id_set(_swigobj,_swigval) (_swigobj->ntc0__attr_id = *(_swigval),_swigval)

61651

static int _wrap_ccNotice_ntc0__attr_id_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61652

61653

ib_net16_t * _result;

61654

ccNotice * _arg0;

61655

ib_net16_t * _arg1;

61656

Tcl_Obj * tcl_result;

61657

char * rettype;

61658

ib_net16_t temp;

61659

61660

clientData = clientData; objv = objv;

61661

tcl_result = Tcl_GetObjResult(interp);

61662

if ((objc < 3) || (objc > 3)) {

61663

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__attr_id_set { ccNotice * } { ib_net16_t * } ",-1);

61664

return TCL_ERROR;

61665

}

61666

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61667

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__attr_id_set. Expected _ccNotice_p, received ", -1);

61668

Tcl_AppendToObj(tcl_result, rettype, -1);

61669

return TCL_ERROR;

61670

}

61671

{

61672

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61673

_arg1 = &temp;

61674

}

61675

{

61676

/* we can check if IBIS was initialized here */

61677

if (!IbisObj.initialized)

61678

{

61679

Tcl_SetStringObj(

61680

Tcl_GetObjResult(interp),

61681

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61682

return TCL_ERROR;

61683

}

61684

61685

if (! IbisObj.port_guid)

61686

{

61687

Tcl_SetStringObj(

61688

Tcl_GetObjResult(interp),

61689

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61690

return TCL_ERROR;

61691

}

61692

61693

ibis_tcl_error = 0;

61694

_result = (ib_net16_t *)_ibcc_notice_ntc0__attr_id_set(_arg0,_arg1);

61695

;

61696

if (ibis_tcl_error) {

61697

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61698

return TCL_ERROR;

61699

}

61700

} tcl_result = Tcl_GetObjResult(interp);

61701

{

61702

char buff[20];

61703

sprintf(buff, "%u", cl_hton16(*_result));

61704

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61705

}

61706

return TCL_OK;

61707

}

61708

#define _ibcc_notice_ntc0__attr_id_get(_swigobj) (&_swigobj->ntc0__attr_id)

61709

static int _wrap_ccNotice_ntc0__attr_id_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61710

61711

ib_net16_t * _result;

61712

ccNotice * _arg0;

61713

Tcl_Obj * tcl_result;

61714

char * rettype;

61715

61716

clientData = clientData; objv = objv;

61717

tcl_result = Tcl_GetObjResult(interp);

61718

if ((objc < 2) || (objc > 2)) {

61719

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__attr_id_get { ccNotice * } ",-1);

61720

return TCL_ERROR;

61721

}

61722

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61723

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__attr_id_get. Expected _ccNotice_p, received ", -1);

61724

Tcl_AppendToObj(tcl_result, rettype, -1);

61725

return TCL_ERROR;

61726

}

61727

{

61728

/* we can check if IBIS was initialized here */

61729

if (!IbisObj.initialized)

61730

{

61731

Tcl_SetStringObj(

61732

Tcl_GetObjResult(interp),

61733

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61734

return TCL_ERROR;

61735

}

61736

61737

if (! IbisObj.port_guid)

61738

{

61739

Tcl_SetStringObj(

61740

Tcl_GetObjResult(interp),

61741

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61742

return TCL_ERROR;

61743

}

61744

61745

ibis_tcl_error = 0;

61746

_result = (ib_net16_t *)_ibcc_notice_ntc0__attr_id_get(_arg0);

61747

;

61748

if (ibis_tcl_error) {

61749

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61750

return TCL_ERROR;

61751

}

61752

} tcl_result = Tcl_GetObjResult(interp);

61753

{

61754

char buff[20];

61755

sprintf(buff, "%u", cl_hton16(*_result));

61756

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61757

}

61758

return TCL_OK;

61759

}

61760

#define _ibcc_notice_ntc0__resv1_set(_swigobj,_swigval) (_swigobj->ntc0__resv1 = *(_swigval),_swigval)

61761

static int _wrap_ccNotice_ntc0__resv1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61762

61763

ib_net16_t * _result;

61764

ccNotice * _arg0;

61765

ib_net16_t * _arg1;

61766

Tcl_Obj * tcl_result;

61767

char * rettype;

61768

ib_net16_t temp;

61769

61770

clientData = clientData; objv = objv;

61771

tcl_result = Tcl_GetObjResult(interp);

61772

if ((objc < 3) || (objc > 3)) {

61773

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__resv1_set { ccNotice * } { ib_net16_t * } ",-1);

61774

return TCL_ERROR;

61775

}

61776

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61777

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__resv1_set. Expected _ccNotice_p, received ", -1);

61778

Tcl_AppendToObj(tcl_result, rettype, -1);

61779

return TCL_ERROR;

61780

}

61781

{

61782

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61783

_arg1 = &temp;

61784

}

61785

{

61786

/* we can check if IBIS was initialized here */

61787

if (!IbisObj.initialized)

61788

{

61789

Tcl_SetStringObj(

61790

Tcl_GetObjResult(interp),

61791

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61792

return TCL_ERROR;

61793

}

61794

61795

if (! IbisObj.port_guid)

61796

{

61797

Tcl_SetStringObj(

61798

Tcl_GetObjResult(interp),

61799

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61800

return TCL_ERROR;

61801

}

61802

61803

ibis_tcl_error = 0;

61804

_result = (ib_net16_t *)_ibcc_notice_ntc0__resv1_set(_arg0,_arg1);

61805

;

61806

if (ibis_tcl_error) {

61807

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61808

return TCL_ERROR;

61809

}

61810

} tcl_result = Tcl_GetObjResult(interp);

61811

{

61812

char buff[20];

61813

sprintf(buff, "%u", cl_hton16(*_result));

61814

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61815

}

61816

return TCL_OK;

61817

}

61818

#define _ibcc_notice_ntc0__resv1_get(_swigobj) (&_swigobj->ntc0__resv1)

61819

static int _wrap_ccNotice_ntc0__resv1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61820

61821

ib_net16_t * _result;

61822

ccNotice * _arg0;

61823

Tcl_Obj * tcl_result;

61824

char * rettype;

61825

61826

clientData = clientData; objv = objv;

61827

tcl_result = Tcl_GetObjResult(interp);

61828

if ((objc < 2) || (objc > 2)) {

61829

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__resv1_get { ccNotice * } ",-1);

61830

return TCL_ERROR;

61831

}

61832

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61833

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__resv1_get. Expected _ccNotice_p, received ", -1);

61834

Tcl_AppendToObj(tcl_result, rettype, -1);

61835

return TCL_ERROR;

61836

}

61837

{

61838

/* we can check if IBIS was initialized here */

61839

if (!IbisObj.initialized)

61840

{

61841

Tcl_SetStringObj(

61842

Tcl_GetObjResult(interp),

61843

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61844

return TCL_ERROR;

61845

}

61846

61847

if (! IbisObj.port_guid)

61848

{

61849

Tcl_SetStringObj(

61850

Tcl_GetObjResult(interp),

61851

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61852

return TCL_ERROR;

61853

}

61854

61855

ibis_tcl_error = 0;

61856

_result = (ib_net16_t *)_ibcc_notice_ntc0__resv1_get(_arg0);

61857

;

61858

if (ibis_tcl_error) {

61859

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61860

return TCL_ERROR;

61861

}

61862

} tcl_result = Tcl_GetObjResult(interp);

61863

{

61864

char buff[20];

61865

sprintf(buff, "%u", cl_hton16(*_result));

61866

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61867

}

61868

return TCL_OK;

61869

}

61870

#define _ibcc_notice_ntc0__attr_mod_set(_swigobj,_swigval) (_swigobj->ntc0__attr_mod = *(_swigval),_swigval)

61871

static int _wrap_ccNotice_ntc0__attr_mod_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61872

61873

ib_net32_t * _result;

61874

ccNotice * _arg0;

61875

ib_net32_t * _arg1;

61876

Tcl_Obj * tcl_result;

61877

char * rettype;

61878

ib_net32_t temp;

61879

61880

clientData = clientData; objv = objv;

61881

tcl_result = Tcl_GetObjResult(interp);

61882

if ((objc < 3) || (objc > 3)) {

61883

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__attr_mod_set { ccNotice * } { ib_net32_t * } ",-1);

61884

return TCL_ERROR;

61885

}

61886

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61887

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__attr_mod_set. Expected _ccNotice_p, received ", -1);

61888

Tcl_AppendToObj(tcl_result, rettype, -1);

61889

return TCL_ERROR;

61890

}

61891

{

61892

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

61893

_arg1 = &temp;

61894

}

61895

{

61896

/* we can check if IBIS was initialized here */

61897

if (!IbisObj.initialized)

61898

{

61899

Tcl_SetStringObj(

61900

Tcl_GetObjResult(interp),

61901

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61902

return TCL_ERROR;

61903

}

61904

61905

if (! IbisObj.port_guid)

61906

{

61907

Tcl_SetStringObj(

61908

Tcl_GetObjResult(interp),

61909

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61910

return TCL_ERROR;

61911

}

61912

61913

ibis_tcl_error = 0;

61914

_result = (ib_net32_t *)_ibcc_notice_ntc0__attr_mod_set(_arg0,_arg1);

61915

;

61916

if (ibis_tcl_error) {

61917

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61918

return TCL_ERROR;

61919

}

61920

} tcl_result = Tcl_GetObjResult(interp);

61921

{

61922

char buff[20];

61923

sprintf(buff, "%u", cl_ntoh32(*_result));

61924

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61925

}

61926

return TCL_OK;

61927

}

61928

#define _ibcc_notice_ntc0__attr_mod_get(_swigobj) (&_swigobj->ntc0__attr_mod)

61929

static int _wrap_ccNotice_ntc0__attr_mod_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61930

61931

ib_net32_t * _result;

61932

ccNotice * _arg0;

61933

Tcl_Obj * tcl_result;

61934

char * rettype;

61935

61936

clientData = clientData; objv = objv;

61937

tcl_result = Tcl_GetObjResult(interp);

61938

if ((objc < 2) || (objc > 2)) {

61939

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__attr_mod_get { ccNotice * } ",-1);

61940

return TCL_ERROR;

61941

}

61942

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61943

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__attr_mod_get. Expected _ccNotice_p, received ", -1);

61944

Tcl_AppendToObj(tcl_result, rettype, -1);

61945

return TCL_ERROR;

61946

}

61947

{

61948

/* we can check if IBIS was initialized here */

61949

if (!IbisObj.initialized)

61950

{

61951

Tcl_SetStringObj(

61952

Tcl_GetObjResult(interp),

61953

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

61954

return TCL_ERROR;

61955

}

61956

61957

if (! IbisObj.port_guid)

61958

{

61959

Tcl_SetStringObj(

61960

Tcl_GetObjResult(interp),

61961

" ibis was not yet initialized. please use ibis_set_port before.", -1);

61962

return TCL_ERROR;

61963

}

61964

61965

ibis_tcl_error = 0;

61966

_result = (ib_net32_t *)_ibcc_notice_ntc0__attr_mod_get(_arg0);

61967

;

61968

if (ibis_tcl_error) {

61969

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

61970

return TCL_ERROR;

61971

}

61972

} tcl_result = Tcl_GetObjResult(interp);

61973

{

61974

char buff[20];

61975

sprintf(buff, "%u", cl_ntoh32(*_result));

61976

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

61977

}

61978

return TCL_OK;

61979

}

61980

#define _ibcc_notice_ntc0__qp_set(_swigobj,_swigval) (_swigobj->ntc0__qp = *(_swigval),_swigval)

61981

static int _wrap_ccNotice_ntc0__qp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

61982

61983

ib_net32_t * _result;

61984

ccNotice * _arg0;

61985

ib_net32_t * _arg1;

61986

Tcl_Obj * tcl_result;

61987

char * rettype;

61988

ib_net32_t temp;

61989

61990

clientData = clientData; objv = objv;

61991

tcl_result = Tcl_GetObjResult(interp);

61992

if ((objc < 3) || (objc > 3)) {

61993

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__qp_set { ccNotice * } { ib_net32_t * } ",-1);

61994

return TCL_ERROR;

61995

}

61996

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

61997

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__qp_set. Expected _ccNotice_p, received ", -1);

61998

Tcl_AppendToObj(tcl_result, rettype, -1);

61999

return TCL_ERROR;

62000

}

62001

{

62002

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

62003

_arg1 = &temp;

62004

}

62005

{

62006

/* we can check if IBIS was initialized here */

62007

if (!IbisObj.initialized)

62008

{

62009

Tcl_SetStringObj(

62010

Tcl_GetObjResult(interp),

62011

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62012

return TCL_ERROR;

62013

}

62014

62015

if (! IbisObj.port_guid)

62016

{

62017

Tcl_SetStringObj(

62018

Tcl_GetObjResult(interp),

62019

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62020

return TCL_ERROR;

62021

}

62022

62023

ibis_tcl_error = 0;

62024

_result = (ib_net32_t *)_ibcc_notice_ntc0__qp_set(_arg0,_arg1);

62025

;

62026

if (ibis_tcl_error) {

62027

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62028

return TCL_ERROR;

62029

}

62030

} tcl_result = Tcl_GetObjResult(interp);

62031

{

62032

char buff[20];

62033

sprintf(buff, "%u", cl_ntoh32(*_result));

62034

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62035

}

62036

return TCL_OK;

62037

}

62038

#define _ibcc_notice_ntc0__qp_get(_swigobj) (&_swigobj->ntc0__qp)

62039

static int _wrap_ccNotice_ntc0__qp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62040

62041

ib_net32_t * _result;

62042

ccNotice * _arg0;

62043

Tcl_Obj * tcl_result;

62044

char * rettype;

62045

62046

clientData = clientData; objv = objv;

62047

tcl_result = Tcl_GetObjResult(interp);

62048

if ((objc < 2) || (objc > 2)) {

62049

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__qp_get { ccNotice * } ",-1);

62050

return TCL_ERROR;

62051

}

62052

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62053

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__qp_get. Expected _ccNotice_p, received ", -1);

62054

Tcl_AppendToObj(tcl_result, rettype, -1);

62055

return TCL_ERROR;

62056

}

62057

{

62058

/* we can check if IBIS was initialized here */

62059

if (!IbisObj.initialized)

62060

{

62061

Tcl_SetStringObj(

62062

Tcl_GetObjResult(interp),

62063

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62064

return TCL_ERROR;

62065

}

62066

62067

if (! IbisObj.port_guid)

62068

{

62069

Tcl_SetStringObj(

62070

Tcl_GetObjResult(interp),

62071

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62072

return TCL_ERROR;

62073

}

62074

62075

ibis_tcl_error = 0;

62076

_result = (ib_net32_t *)_ibcc_notice_ntc0__qp_get(_arg0);

62077

;

62078

if (ibis_tcl_error) {

62079

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62080

return TCL_ERROR;

62081

}

62082

} tcl_result = Tcl_GetObjResult(interp);

62083

{

62084

char buff[20];

62085

sprintf(buff, "%u", cl_ntoh32(*_result));

62086

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62087

}

62088

return TCL_OK;

62089

}

62090

#define _ibcc_notice_ntc0__cc_key_set(_swigobj,_swigval) (_swigobj->ntc0__cc_key = *(_swigval),_swigval)

62091

static int _wrap_ccNotice_ntc0__cc_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62092

62093

ib_net64_t * _result;

62094

ccNotice * _arg0;

62095

ib_net64_t * _arg1;

62096

Tcl_Obj * tcl_result;

62097

char * rettype;

62098

uint64_t temp;

62099

62100

clientData = clientData; objv = objv;

62101

tcl_result = Tcl_GetObjResult(interp);

62102

if ((objc < 3) || (objc > 3)) {

62103

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__cc_key_set { ccNotice * } { ib_net64_t * } ",-1);

62104

return TCL_ERROR;

62105

}

62106

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62107

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__cc_key_set. Expected _ccNotice_p, received ", -1);

62108

Tcl_AppendToObj(tcl_result, rettype, -1);

62109

return TCL_ERROR;

62110

}

62111

{

62112

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

62113

_arg1 = &temp;

62114

}

62115

{

62116

/* we can check if IBIS was initialized here */

62117

if (!IbisObj.initialized)

62118

{

62119

Tcl_SetStringObj(

62120

Tcl_GetObjResult(interp),

62121

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62122

return TCL_ERROR;

62123

}

62124

62125

if (! IbisObj.port_guid)

62126

{

62127

Tcl_SetStringObj(

62128

Tcl_GetObjResult(interp),

62129

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62130

return TCL_ERROR;

62131

}

62132

62133

ibis_tcl_error = 0;

62134

_result = (ib_net64_t *)_ibcc_notice_ntc0__cc_key_set(_arg0,_arg1);

62135

;

62136

if (ibis_tcl_error) {

62137

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62138

return TCL_ERROR;

62139

}

62140

} tcl_result = Tcl_GetObjResult(interp);

62141

{

62142

char buff[20];

62143

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

62144

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62145

}

62146

return TCL_OK;

62147

}

62148

#define _ibcc_notice_ntc0__cc_key_get(_swigobj) (&_swigobj->ntc0__cc_key)

62149

static int _wrap_ccNotice_ntc0__cc_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62150

62151

ib_net64_t * _result;

62152

ccNotice * _arg0;

62153

Tcl_Obj * tcl_result;

62154

char * rettype;

62155

62156

clientData = clientData; objv = objv;

62157

tcl_result = Tcl_GetObjResult(interp);

62158

if ((objc < 2) || (objc > 2)) {

62159

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__cc_key_get { ccNotice * } ",-1);

62160

return TCL_ERROR;

62161

}

62162

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62163

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__cc_key_get. Expected _ccNotice_p, received ", -1);

62164

Tcl_AppendToObj(tcl_result, rettype, -1);

62165

return TCL_ERROR;

62166

}

62167

{

62168

/* we can check if IBIS was initialized here */

62169

if (!IbisObj.initialized)

62170

{

62171

Tcl_SetStringObj(

62172

Tcl_GetObjResult(interp),

62173

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62174

return TCL_ERROR;

62175

}

62176

62177

if (! IbisObj.port_guid)

62178

{

62179

Tcl_SetStringObj(

62180

Tcl_GetObjResult(interp),

62181

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62182

return TCL_ERROR;

62183

}

62184

62185

ibis_tcl_error = 0;

62186

_result = (ib_net64_t *)_ibcc_notice_ntc0__cc_key_get(_arg0);

62187

;

62188

if (ibis_tcl_error) {

62189

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62190

return TCL_ERROR;

62191

}

62192

} tcl_result = Tcl_GetObjResult(interp);

62193

{

62194

char buff[20];

62195

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

62196

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62197

}

62198

return TCL_OK;

62199

}

62200

#define _ibcc_notice_ntc0__source_gid_set(_swigobj,_swigval) (_swigobj->ntc0__source_gid = *(_swigval),_swigval)

62201

static int _wrap_ccNotice_ntc0__source_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62202

62203

ib_gid_t * _result;

62204

ccNotice * _arg0;

62205

ib_gid_t * _arg1;

62206

Tcl_Obj * tcl_result;

62207

char * rettype;

62208

ib_gid_t temp;

62209

62210

clientData = clientData; objv = objv;

62211

tcl_result = Tcl_GetObjResult(interp);

62212

if ((objc < 3) || (objc > 3)) {

62213

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__source_gid_set { ccNotice * } { ib_gid_t * } ",-1);

62214

return TCL_ERROR;

62215

}

62216

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62217

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__source_gid_set. Expected _ccNotice_p, received ", -1);

62218

Tcl_AppendToObj(tcl_result, rettype, -1);

62219

return TCL_ERROR;

62220

}

62221

{

62222

char buf[38];

62223

char *p_prefix, *p_guid;

62224

char *str_token = NULL;

62225

62226

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

62227

p_prefix = strtok_r(buf,":", &str_token);

62228

p_guid = strtok_r(NULL, " ", &str_token);

62229

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

62230

errno = 0;

62231

if (errno) {

62232

printf("Wrong format for gid prefix:%s\n", p_prefix);

62233

return TCL_ERROR;

62234

}

62235

62236

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

62237

if (errno) {

62238

printf("Wrong format for gid guid:%s\n", p_guid);

62239

return TCL_ERROR;

62240

}

62241

62242

_arg1 = &temp;

62243

}

62244

{

62245

/* we can check if IBIS was initialized here */

62246

if (!IbisObj.initialized)

62247

{

62248

Tcl_SetStringObj(

62249

Tcl_GetObjResult(interp),

62250

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62251

return TCL_ERROR;

62252

}

62253

62254

if (! IbisObj.port_guid)

62255

{

62256

Tcl_SetStringObj(

62257

Tcl_GetObjResult(interp),

62258

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62259

return TCL_ERROR;

62260

}

62261

62262

ibis_tcl_error = 0;

62263

_result = (ib_gid_t *)_ibcc_notice_ntc0__source_gid_set(_arg0,_arg1);

62264

;

62265

if (ibis_tcl_error) {

62266

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62267

return TCL_ERROR;

62268

}

62269

} tcl_result = Tcl_GetObjResult(interp);

62270

{

62271

char buff[38];

62272

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

62273

cl_ntoh64(_result->unicast.prefix),

62274

cl_ntoh64(_result->unicast.interface_id)

62275

);

62276

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62277

}

62278

return TCL_OK;

62279

}

62280

#define _ibcc_notice_ntc0__source_gid_get(_swigobj) (&_swigobj->ntc0__source_gid)

62281

static int _wrap_ccNotice_ntc0__source_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62282

62283

ib_gid_t * _result;

62284

ccNotice * _arg0;

62285

Tcl_Obj * tcl_result;

62286

char * rettype;

62287

62288

clientData = clientData; objv = objv;

62289

tcl_result = Tcl_GetObjResult(interp);

62290

if ((objc < 2) || (objc > 2)) {

62291

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__source_gid_get { ccNotice * } ",-1);

62292

return TCL_ERROR;

62293

}

62294

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62295

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__source_gid_get. Expected _ccNotice_p, received ", -1);

62296

Tcl_AppendToObj(tcl_result, rettype, -1);

62297

return TCL_ERROR;

62298

}

62299

{

62300

/* we can check if IBIS was initialized here */

62301

if (!IbisObj.initialized)

62302

{

62303

Tcl_SetStringObj(

62304

Tcl_GetObjResult(interp),

62305

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62306

return TCL_ERROR;

62307

}

62308

62309

if (! IbisObj.port_guid)

62310

{

62311

Tcl_SetStringObj(

62312

Tcl_GetObjResult(interp),

62313

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62314

return TCL_ERROR;

62315

}

62316

62317

ibis_tcl_error = 0;

62318

_result = (ib_gid_t *)_ibcc_notice_ntc0__source_gid_get(_arg0);

62319

;

62320

if (ibis_tcl_error) {

62321

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62322

return TCL_ERROR;

62323

}

62324

} tcl_result = Tcl_GetObjResult(interp);

62325

{

62326

char buff[38];

62327

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

62328

cl_ntoh64(_result->unicast.prefix),

62329

cl_ntoh64(_result->unicast.interface_id)

62330

);

62331

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62332

}

62333

return TCL_OK;

62334

}

62335

static uint8_array_t * _ibcc_notice_ntc0__padding_set(ccNotice *obj, uint8_array_t val[14]) {

62336

{

62337

int i;

62338

for (i=0; i <14 ; i++) {

62339

obj->ntc0__padding[i] = *(val+i);

62340

}

62341

}

62342

return (uint8_array_t *) val;

62343

}

62344

static int _wrap_ccNotice_ntc0__padding_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62345

62346

uint8_array_t * _result;

62347

ccNotice * _arg0;

62348

uint8_array_t * _arg1;

62349

Tcl_Obj * tcl_result;

62350

char * rettype;

62351

uint8_t entrys[14];

62352

62353

clientData = clientData; objv = objv;

62354

tcl_result = Tcl_GetObjResult(interp);

62355

if ((objc < 3) || (objc > 3)) {

62356

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__padding_set { ccNotice * } { uint8_array_t * } ",-1);

62357

return TCL_ERROR;

62358

}

62359

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62360

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__padding_set. Expected _ccNotice_p, received ", -1);

62361

Tcl_AppendToObj(tcl_result, rettype, -1);

62362

return TCL_ERROR;

62363

}

62364

{

62365

char *buff;

62366

char *p_ch;

62367

char *last;

62368

long int entry;

62369

62370

int i = 0;

62371

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

62372

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

62373

p_ch = strtok_r(buff, " \t",&last);

62374

while (p_ch && (i < 14))

62375

{

62376

entry = strtol(p_ch, NULL, 0);

62377

if (entry > 0xff)

62378

{

62379

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

62380

return TCL_ERROR;

62381

}

62382

entrys[i++] = entry;

62383

p_ch = strtok_r(NULL, " \t", &last);

62384

}

62385

for (; i < 14; i++) entrys[i] = 0;

62386

62387

free(buff);

62388

_arg1 = entrys;

62389

}

62390

{

62391

/* we can check if IBIS was initialized here */

62392

if (!IbisObj.initialized)

62393

{

62394

Tcl_SetStringObj(

62395

Tcl_GetObjResult(interp),

62396

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62397

return TCL_ERROR;

62398

}

62399

62400

if (! IbisObj.port_guid)

62401

{

62402

Tcl_SetStringObj(

62403

Tcl_GetObjResult(interp),

62404

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62405

return TCL_ERROR;

62406

}

62407

62408

ibis_tcl_error = 0;

62409

_result = (uint8_array_t *)_ibcc_notice_ntc0__padding_set(_arg0,_arg1);

62410

;

62411

if (ibis_tcl_error) {

62412

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62413

return TCL_ERROR;

62414

}

62415

} tcl_result = Tcl_GetObjResult(interp);

62416

{

62417

int i;

62418

char buff[8];

62419

for (i=0; i <14 ; i++) {

62420

sprintf(buff, "0x%02x ", *(_result+i));

62421

Tcl_AppendResult(interp, buff, NULL);

62422

}

62423

}

62424

return TCL_OK;

62425

}

62426

#define _ibcc_notice_ntc0__padding_get(_swigobj) ((uint8_array_t *) _swigobj->ntc0__padding)

62427

static int _wrap_ccNotice_ntc0__padding_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62428

62429

uint8_array_t * _result;

62430

ccNotice * _arg0;

62431

Tcl_Obj * tcl_result;

62432

char * rettype;

62433

62434

clientData = clientData; objv = objv;

62435

tcl_result = Tcl_GetObjResult(interp);

62436

if ((objc < 2) || (objc > 2)) {

62437

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_ntc0__padding_get { ccNotice * } ",-1);

62438

return TCL_ERROR;

62439

}

62440

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62441

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_ntc0__padding_get. Expected _ccNotice_p, received ", -1);

62442

Tcl_AppendToObj(tcl_result, rettype, -1);

62443

return TCL_ERROR;

62444

}

62445

{

62446

/* we can check if IBIS was initialized here */

62447

if (!IbisObj.initialized)

62448

{

62449

Tcl_SetStringObj(

62450

Tcl_GetObjResult(interp),

62451

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62452

return TCL_ERROR;

62453

}

62454

62455

if (! IbisObj.port_guid)

62456

{

62457

Tcl_SetStringObj(

62458

Tcl_GetObjResult(interp),

62459

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62460

return TCL_ERROR;

62461

}

62462

62463

ibis_tcl_error = 0;

62464

_result = (uint8_array_t *)_ibcc_notice_ntc0__padding_get(_arg0);

62465

;

62466

if (ibis_tcl_error) {

62467

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62468

return TCL_ERROR;

62469

}

62470

} tcl_result = Tcl_GetObjResult(interp);

62471

{

62472

int i;

62473

char buff[8];

62474

for (i=0; i <14 ; i++) {

62475

sprintf(buff, "0x%02x ", *(_result+i));

62476

Tcl_AppendResult(interp, buff, NULL);

62477

}

62478

}

62479

return TCL_OK;

62480

}

62481

#define _ibcc_notice_issuer_gid_set(_swigobj,_swigval) (_swigobj->issuer_gid = *(_swigval),_swigval)

62482

static int _wrap_ccNotice_issuer_gid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62483

62484

ib_gid_t * _result;

62485

ccNotice * _arg0;

62486

ib_gid_t * _arg1;

62487

Tcl_Obj * tcl_result;

62488

char * rettype;

62489

ib_gid_t temp;

62490

62491

clientData = clientData; objv = objv;

62492

tcl_result = Tcl_GetObjResult(interp);

62493

if ((objc < 3) || (objc > 3)) {

62494

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_issuer_gid_set { ccNotice * } { ib_gid_t * } ",-1);

62495

return TCL_ERROR;

62496

}

62497

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62498

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_issuer_gid_set. Expected _ccNotice_p, received ", -1);

62499

Tcl_AppendToObj(tcl_result, rettype, -1);

62500

return TCL_ERROR;

62501

}

62502

{

62503

char buf[38];

62504

char *p_prefix, *p_guid;

62505

char *str_token = NULL;

62506

62507

strcpy(buf, Tcl_GetStringFromObj(objv[2],NULL));

62508

p_prefix = strtok_r(buf,":", &str_token);

62509

p_guid = strtok_r(NULL, " ", &str_token);

62510

temp.unicast.prefix = cl_hton64(strtoull(p_prefix, NULL, 16));

62511

errno = 0;

62512

if (errno) {

62513

printf("Wrong format for gid prefix:%s\n", p_prefix);

62514

return TCL_ERROR;

62515

}

62516

62517

temp.unicast.interface_id = cl_hton64(strtoull(p_guid, NULL, 16));

62518

if (errno) {

62519

printf("Wrong format for gid guid:%s\n", p_guid);

62520

return TCL_ERROR;

62521

}

62522

62523

_arg1 = &temp;

62524

}

62525

{

62526

/* we can check if IBIS was initialized here */

62527

if (!IbisObj.initialized)

62528

{

62529

Tcl_SetStringObj(

62530

Tcl_GetObjResult(interp),

62531

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62532

return TCL_ERROR;

62533

}

62534

62535

if (! IbisObj.port_guid)

62536

{

62537

Tcl_SetStringObj(

62538

Tcl_GetObjResult(interp),

62539

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62540

return TCL_ERROR;

62541

}

62542

62543

ibis_tcl_error = 0;

62544

_result = (ib_gid_t *)_ibcc_notice_issuer_gid_set(_arg0,_arg1);

62545

;

62546

if (ibis_tcl_error) {

62547

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62548

return TCL_ERROR;

62549

}

62550

} tcl_result = Tcl_GetObjResult(interp);

62551

{

62552

char buff[38];

62553

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

62554

cl_ntoh64(_result->unicast.prefix),

62555

cl_ntoh64(_result->unicast.interface_id)

62556

);

62557

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62558

}

62559

return TCL_OK;

62560

}

62561

#define _ibcc_notice_issuer_gid_get(_swigobj) (&_swigobj->issuer_gid)

62562

static int _wrap_ccNotice_issuer_gid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62563

62564

ib_gid_t * _result;

62565

ccNotice * _arg0;

62566

Tcl_Obj * tcl_result;

62567

char * rettype;

62568

62569

clientData = clientData; objv = objv;

62570

tcl_result = Tcl_GetObjResult(interp);

62571

if ((objc < 2) || (objc > 2)) {

62572

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_issuer_gid_get { ccNotice * } ",-1);

62573

return TCL_ERROR;

62574

}

62575

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62576

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_issuer_gid_get. Expected _ccNotice_p, received ", -1);

62577

Tcl_AppendToObj(tcl_result, rettype, -1);

62578

return TCL_ERROR;

62579

}

62580

{

62581

/* we can check if IBIS was initialized here */

62582

if (!IbisObj.initialized)

62583

{

62584

Tcl_SetStringObj(

62585

Tcl_GetObjResult(interp),

62586

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62587

return TCL_ERROR;

62588

}

62589

62590

if (! IbisObj.port_guid)

62591

{

62592

Tcl_SetStringObj(

62593

Tcl_GetObjResult(interp),

62594

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62595

return TCL_ERROR;

62596

}

62597

62598

ibis_tcl_error = 0;

62599

_result = (ib_gid_t *)_ibcc_notice_issuer_gid_get(_arg0);

62600

;

62601

if (ibis_tcl_error) {

62602

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62603

return TCL_ERROR;

62604

}

62605

} tcl_result = Tcl_GetObjResult(interp);

62606

{

62607

char buff[38];

62608

sprintf(buff, "0x%016" PRIx64 ":0x%016" PRIx64,

62609

cl_ntoh64(_result->unicast.prefix),

62610

cl_ntoh64(_result->unicast.interface_id)

62611

);

62612

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

62613

}

62614

return TCL_OK;

62615

}

62616

static int ccNotice_trapByLid(ccNotice *self,uint16_t lid) {

62617

return ibcc_send_mad_by_lid(

62618

gp_ibcc,

62619

IBCC_DEAFULT_KEY,

62620

NULL, // log data

62621

0, // log data size

62622

(uint8_t *)self, // mgt data

62623

sizeof(ccNotice), // mgt data size

62624

lid,

62625

CL_NTOH16(IB_MAD_ATTR_NOTICE),

62626

0, // attribute modifier

62627

IB_MAD_METHOD_TRAP);

62628

}

62629

static int _wrap_ccNotice_trapByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62630

62631

int _result;

62632

ccNotice * _arg0;

62633

uint16_t * _arg1;

62634

Tcl_Obj * tcl_result;

62635

char * rettype;

62636

uint16_t temp;

62637

62638

clientData = clientData; objv = objv;

62639

tcl_result = Tcl_GetObjResult(interp);

62640

if ((objc < 3) || (objc > 3)) {

62641

Tcl_SetStringObj(tcl_result,"Wrong # args. ccNotice_trapByLid { ccNotice * } lid ",-1);

62642

return TCL_ERROR;

62643

}

62644

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccNotice_p"))) {

62645

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccNotice_trapByLid. Expected _ccNotice_p, received ", -1);

62646

Tcl_AppendToObj(tcl_result, rettype, -1);

62647

return TCL_ERROR;

62648

}

62649

{

62650

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

62651

_arg1 = &temp;

62652

}

62653

{

62654

/* we can check if IBIS was initialized here */

62655

if (!IbisObj.initialized)

62656

{

62657

Tcl_SetStringObj(

62658

Tcl_GetObjResult(interp),

62659

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

62660

return TCL_ERROR;

62661

}

62662

62663

if (! IbisObj.port_guid)

62664

{

62665

Tcl_SetStringObj(

62666

Tcl_GetObjResult(interp),

62667

" ibis was not yet initialized. please use ibis_set_port before.", -1);

62668

return TCL_ERROR;

62669

}

62670

62671

ibis_tcl_error = 0;

62672

_result = (int )ccNotice_trapByLid(_arg0,*_arg1);

62673

;

62674

if (ibis_tcl_error) {

62675

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

62676

return TCL_ERROR;

62677

}

62678

} tcl_result = Tcl_GetObjResult(interp);

62679

Tcl_SetIntObj(tcl_result,(long) _result);

62680

return TCL_OK;

62681

}

62682

/* methodcmd8.swg : Tcl8.x method invocation */

62683

62684

static int TclccNoticeMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

62685

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

62686

char *_str;

62687

int rcode;

62688

Tcl_Obj **objv;

62689

Tcl_Obj *oldarg,*tcl_result,*obj;

62690

int length;

62691

char c;

62692

62693

tcl_result = Tcl_GetObjResult(interp);

62694

objv = (Tcl_Obj **) _objv;

62695

if (objc < 2) {

62696

Tcl_SetStringObj(tcl_result,"ccNotice methods : { dump cget configure trapByLid }",-1);

62697

return TCL_ERROR;

62698

}

62699

obj = Tcl_NewObj();

62700

SWIG_SetPointerObj(obj,(void *) clientData,"_ccNotice_p");

62701

_str = Tcl_GetStringFromObj(objv[1],&length);

62702

c = *_str;

62703

if (0);

62704

if (strcmp(_str,"trapByLid") == 0) {

62705

cmd = _wrap_ccNotice_trapByLid;

62706

}

62707

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

62708

int i = 2;

62709

cmd = 0;

62710

while (i+1 < objc) {

62711

_str = Tcl_GetStringFromObj(objv[i],&length);

62712

if (strcmp(_str,"-generic_type") == 0) {

62713

cmd = _wrap_ccNotice_generic_type_set;

62714

} else if (strcmp(_str,"-generic__prod_type_msb") == 0) {

62715

cmd = _wrap_ccNotice_generic__prod_type_msb_set;

62716

} else if (strcmp(_str,"-generic__prod_type_lsb") == 0) {

62717

cmd = _wrap_ccNotice_generic__prod_type_lsb_set;

62718

} else if (strcmp(_str,"-generic__trap_num") == 0) {

62719

cmd = _wrap_ccNotice_generic__trap_num_set;

62720

} else if (strcmp(_str,"-issuer_lid") == 0) {

62721

cmd = _wrap_ccNotice_issuer_lid_set;

62722

} else if (strcmp(_str,"-toggle_count") == 0) {

62723

cmd = _wrap_ccNotice_toggle_count_set;

62724

} else if (strcmp(_str,"-ntc0__source_lid") == 0) {

62725

cmd = _wrap_ccNotice_ntc0__source_lid_set;

62726

} else if (strcmp(_str,"-ntc0__method") == 0) {

62727

cmd = _wrap_ccNotice_ntc0__method_set;

62728

} else if (strcmp(_str,"-ntc0__resv0") == 0) {

62729

cmd = _wrap_ccNotice_ntc0__resv0_set;

62730

} else if (strcmp(_str,"-ntc0__attr_id") == 0) {

62731

cmd = _wrap_ccNotice_ntc0__attr_id_set;

62732

} else if (strcmp(_str,"-ntc0__resv1") == 0) {

62733

cmd = _wrap_ccNotice_ntc0__resv1_set;

62734

} else if (strcmp(_str,"-ntc0__attr_mod") == 0) {

62735

cmd = _wrap_ccNotice_ntc0__attr_mod_set;

62736

} else if (strcmp(_str,"-ntc0__qp") == 0) {

62737

cmd = _wrap_ccNotice_ntc0__qp_set;

62738

} else if (strcmp(_str,"-ntc0__cc_key") == 0) {

62739

cmd = _wrap_ccNotice_ntc0__cc_key_set;

62740

} else if (strcmp(_str,"-ntc0__source_gid") == 0) {

62741

cmd = _wrap_ccNotice_ntc0__source_gid_set;

62742

} else if (strcmp(_str,"-ntc0__padding") == 0) {

62743

cmd = _wrap_ccNotice_ntc0__padding_set;

62744

} else if (strcmp(_str,"-issuer_gid") == 0) {

62745

cmd = _wrap_ccNotice_issuer_gid_set;

62746

}

62747

if (cmd) {

62748

oldarg = objv[i];

62749

objv[i] = obj;

62750

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

62751

objv[i] = oldarg;

62752

if (rcode == TCL_ERROR) return rcode;

62753

cmd = 0;

62754

} else {

62755

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -generic_type -generic__prod_type_msb -generic__prod_type_lsb -generic__trap_num -issuer_lid -toggle_count -ntc0__source_lid -ntc0__method -ntc0__resv0 -ntc0__attr_id -ntc0__resv1 -ntc0__attr_mod -ntc0__qp -ntc0__cc_key -ntc0__source_gid -ntc0__padding -issuer_gid }",-1);

62756

return TCL_ERROR;

62757

}

62758

i+=2;

62759

}

62760

if ((i < objc) || (i == 2)) {

62761

Tcl_SetStringObj(tcl_result,"{ -generic_type -generic__prod_type_msb -generic__prod_type_lsb -generic__trap_num -issuer_lid -toggle_count -ntc0__source_lid -ntc0__method -ntc0__resv0 -ntc0__attr_id -ntc0__resv1 -ntc0__attr_mod -ntc0__qp -ntc0__cc_key -ntc0__source_gid -ntc0__padding -issuer_gid }",-1);

62762

return TCL_ERROR;

62763

}

62764

return TCL_OK;

62765

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

62766

if (objc == 3) {

62767

_str = Tcl_GetStringFromObj(objv[2],&length);

62768

if (0) {}

62769

if (strcmp(_str,"-generic_type") == 0) {

62770

cmd = _wrap_ccNotice_generic_type_get;

62771

} else if (strcmp(_str,"-generic__prod_type_msb") == 0) {

62772

cmd = _wrap_ccNotice_generic__prod_type_msb_get;

62773

} else if (strcmp(_str,"-generic__prod_type_lsb") == 0) {

62774

cmd = _wrap_ccNotice_generic__prod_type_lsb_get;

62775

} else if (strcmp(_str,"-generic__trap_num") == 0) {

62776

cmd = _wrap_ccNotice_generic__trap_num_get;

62777

} else if (strcmp(_str,"-issuer_lid") == 0) {

62778

cmd = _wrap_ccNotice_issuer_lid_get;

62779

} else if (strcmp(_str,"-toggle_count") == 0) {

62780

cmd = _wrap_ccNotice_toggle_count_get;

62781

} else if (strcmp(_str,"-ntc0__source_lid") == 0) {

62782

cmd = _wrap_ccNotice_ntc0__source_lid_get;

62783

} else if (strcmp(_str,"-ntc0__method") == 0) {

62784

cmd = _wrap_ccNotice_ntc0__method_get;

62785

} else if (strcmp(_str,"-ntc0__resv0") == 0) {

62786

cmd = _wrap_ccNotice_ntc0__resv0_get;

62787

} else if (strcmp(_str,"-ntc0__attr_id") == 0) {

62788

cmd = _wrap_ccNotice_ntc0__attr_id_get;

62789

} else if (strcmp(_str,"-ntc0__resv1") == 0) {

62790

cmd = _wrap_ccNotice_ntc0__resv1_get;

62791

} else if (strcmp(_str,"-ntc0__attr_mod") == 0) {

62792

cmd = _wrap_ccNotice_ntc0__attr_mod_get;

62793

} else if (strcmp(_str,"-ntc0__qp") == 0) {

62794

cmd = _wrap_ccNotice_ntc0__qp_get;

62795

} else if (strcmp(_str,"-ntc0__cc_key") == 0) {

62796

cmd = _wrap_ccNotice_ntc0__cc_key_get;

62797

} else if (strcmp(_str,"-ntc0__source_gid") == 0) {

62798

cmd = _wrap_ccNotice_ntc0__source_gid_get;

62799

} else if (strcmp(_str,"-ntc0__padding") == 0) {

62800

cmd = _wrap_ccNotice_ntc0__padding_get;

62801

} else if (strcmp(_str,"-issuer_gid") == 0) {

62802

cmd = _wrap_ccNotice_issuer_gid_get;

62803

}

62804

else if (strcmp(_str,"-this") == 0) {

62805

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccNotice_p");

62806

return TCL_OK;

62807

}

62808

if (cmd) {

62809

oldarg = objv[2];

62810

objv[2] = obj;

62811

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

62812

objv[2] = oldarg;

62813

return rcode;

62814

} else {

62815

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -generic_type -generic__prod_type_msb -generic__prod_type_lsb -generic__trap_num -issuer_lid -toggle_count -ntc0__source_lid -ntc0__method -ntc0__resv0 -ntc0__attr_id -ntc0__resv1 -ntc0__attr_mod -ntc0__qp -ntc0__cc_key -ntc0__source_gid -ntc0__padding -issuer_gid }",-1);

62816

return TCL_ERROR;

62817

}

62818

} else {

62819

Tcl_SetStringObj(tcl_result,"{ -this -generic_type -generic__prod_type_msb -generic__prod_type_lsb -generic__trap_num -issuer_lid -toggle_count -ntc0__source_lid -ntc0__method -ntc0__resv0 -ntc0__attr_id -ntc0__resv1 -ntc0__attr_mod -ntc0__qp -ntc0__cc_key -ntc0__source_gid -ntc0__padding -issuer_gid }", -1);

62820

return TCL_ERROR;

62821

}

62822

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

62823

if (objc == 2) {

62824

Tcl_Obj *pDumpObj;

62825

pDumpObj = Tcl_NewStringObj("",-1);

62826

Tcl_IncrRefCount(pDumpObj);

62827

cmd = _wrap_ccNotice_generic_type_get;

62828

oldarg = objv[2];

62829

objv[2] = obj;

62830

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62831

objv[2] = oldarg;

62832

Tcl_AppendStringsToObj(pDumpObj, "-generic_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62833

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62834

cmd = _wrap_ccNotice_generic__prod_type_msb_get;

62835

oldarg = objv[2];

62836

objv[2] = obj;

62837

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62838

objv[2] = oldarg;

62839

Tcl_AppendStringsToObj(pDumpObj, "-generic__prod_type_msb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62840

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62841

cmd = _wrap_ccNotice_generic__prod_type_lsb_get;

62842

oldarg = objv[2];

62843

objv[2] = obj;

62844

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62845

objv[2] = oldarg;

62846

Tcl_AppendStringsToObj(pDumpObj, "-generic__prod_type_lsb ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62847

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62848

cmd = _wrap_ccNotice_generic__trap_num_get;

62849

oldarg = objv[2];

62850

objv[2] = obj;

62851

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62852

objv[2] = oldarg;

62853

Tcl_AppendStringsToObj(pDumpObj, "-generic__trap_num ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62854

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62855

cmd = _wrap_ccNotice_issuer_lid_get;

62856

oldarg = objv[2];

62857

objv[2] = obj;

62858

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62859

objv[2] = oldarg;

62860

Tcl_AppendStringsToObj(pDumpObj, "-issuer_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62861

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62862

cmd = _wrap_ccNotice_toggle_count_get;

62863

oldarg = objv[2];

62864

objv[2] = obj;

62865

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62866

objv[2] = oldarg;

62867

Tcl_AppendStringsToObj(pDumpObj, "-toggle_count ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62868

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62869

cmd = _wrap_ccNotice_ntc0__source_lid_get;

62870

oldarg = objv[2];

62871

objv[2] = obj;

62872

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62873

objv[2] = oldarg;

62874

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__source_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62875

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62876

cmd = _wrap_ccNotice_ntc0__method_get;

62877

oldarg = objv[2];

62878

objv[2] = obj;

62879

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62880

objv[2] = oldarg;

62881

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__method ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62882

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62883

cmd = _wrap_ccNotice_ntc0__resv0_get;

62884

oldarg = objv[2];

62885

objv[2] = obj;

62886

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62887

objv[2] = oldarg;

62888

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__resv0 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62889

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62890

cmd = _wrap_ccNotice_ntc0__attr_id_get;

62891

oldarg = objv[2];

62892

objv[2] = obj;

62893

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62894

objv[2] = oldarg;

62895

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__attr_id ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62896

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62897

cmd = _wrap_ccNotice_ntc0__resv1_get;

62898

oldarg = objv[2];

62899

objv[2] = obj;

62900

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62901

objv[2] = oldarg;

62902

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__resv1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62903

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62904

cmd = _wrap_ccNotice_ntc0__attr_mod_get;

62905

oldarg = objv[2];

62906

objv[2] = obj;

62907

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62908

objv[2] = oldarg;

62909

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__attr_mod ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62910

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62911

cmd = _wrap_ccNotice_ntc0__qp_get;

62912

oldarg = objv[2];

62913

objv[2] = obj;

62914

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62915

objv[2] = oldarg;

62916

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__qp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62917

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62918

cmd = _wrap_ccNotice_ntc0__cc_key_get;

62919

oldarg = objv[2];

62920

objv[2] = obj;

62921

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62922

objv[2] = oldarg;

62923

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__cc_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62924

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62925

cmd = _wrap_ccNotice_ntc0__source_gid_get;

62926

oldarg = objv[2];

62927

objv[2] = obj;

62928

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62929

objv[2] = oldarg;

62930

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__source_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62931

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62932

cmd = _wrap_ccNotice_ntc0__padding_get;

62933

oldarg = objv[2];

62934

objv[2] = obj;

62935

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62936

objv[2] = oldarg;

62937

Tcl_AppendStringsToObj(pDumpObj, "-ntc0__padding ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62938

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62939

cmd = _wrap_ccNotice_issuer_gid_get;

62940

oldarg = objv[2];

62941

objv[2] = obj;

62942

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

62943

objv[2] = oldarg;

62944

Tcl_AppendStringsToObj(pDumpObj, "-issuer_gid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

62945

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

62946

62947

Tcl_DecrRefCount(pDumpObj);

62948

return TCL_OK;

62949

} else {

62950

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

62951

return TCL_ERROR;

62952

}

62953

}

62954

if (!cmd) {

62955

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure trapByLid }",-1);

62956

return TCL_ERROR;

62957

}

62958

oldarg = objv[1];

62959

objv[1] = obj;

62960

rcode = (*cmd)(clientData,interp,objc,objv);

62961

objv[1] = oldarg;

62962

return rcode;

62963

}

62964

62965

62966

62967

/* objcmd8.swg : Tcl 8.x object creation */

62968

62969

static int TclccNoticeCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

62970

void (*del)(ClientData) = 0;

62971

char *name = 0;

62972

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

62973

ccNotice * newObj = 0;

62974

int firstarg = 0;

62975

int thisarg = 0;

62976

int length;

62977

char *_str;

62978

Tcl_Obj *tcl_result;

62979

62980

tcl_result = Tcl_GetObjResult(interp);

62981

if (objc == 1) {

62982

cmd = 0;

62983

} else {

62984

_str = Tcl_GetStringFromObj(objv[1],&length);

62985

if (strcmp(_str,"-this") == 0) thisarg = 2;

62986

else if (strcmp(_str,"-args") == 0) {

62987

firstarg = 1;

62988

cmd = 0;

62989

} else if (objc == 2) {

62990

firstarg = 1;

62991

name = _str;

62992

cmd = 0;

62993

} else if (objc >= 3) {

62994

name = _str;

62995

_str = Tcl_GetStringFromObj(objv[2],&length);

62996

if (strcmp(_str,"-this") == 0) thisarg = 3;

62997

else {

62998

firstarg = 1;

62999

cmd = 0;

63000

}

63001

}

63002

}

63003

if (cmd) {

63004

int result;

63005

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

63006

if (result == TCL_OK) {

63007

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccNotice_p");

63008

} else { return result; }

63009

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

63010

del = 0;

63011

} else if (thisarg > 0) {

63012

if (thisarg < objc) {

63013

char *r;

63014

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccNotice_p");

63015

if (r) {

63016

Tcl_SetStringObj(tcl_result,"Type error. not a ccNotice object.",-1);

63017

return TCL_ERROR;

63018

}

63019

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

63020

Tcl_SetStringObj(tcl_result,name,-1);

63021

} else {

63022

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

63023

return TCL_ERROR;

63024

}

63025

} else {

63026

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

63027

return TCL_ERROR;

63028

}

63029

{

63030

Tcl_CmdInfo dummy;

63031

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

63032

Tcl_CreateObjCommand(interp,name, TclccNoticeMethodCmd, (ClientData) newObj, del);

63033

return TCL_OK;

63034

} else {

63035

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

63036

return TCL_ERROR;

63037

}

63038

}

63039

}

63040

63041

63042

#define _ib_cong_info_cong_info_set(_swigobj,_swigval) (_swigobj->cong_info = *(_swigval),_swigval)

63043

static int _wrap_ccCongestionInfo_cong_info_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63044

63045

uint8_t * _result;

63046

ccCongestionInfo * _arg0;

63047

uint8_t * _arg1;

63048

Tcl_Obj * tcl_result;

63049

char * rettype;

63050

uint8_t temp;

63051

63052

clientData = clientData; objv = objv;

63053

tcl_result = Tcl_GetObjResult(interp);

63054

if ((objc < 3) || (objc > 3)) {

63055

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_cong_info_set { ccCongestionInfo * } { uint8_t * } ",-1);

63056

return TCL_ERROR;

63057

}

63058

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63059

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_cong_info_set. Expected _ccCongestionInfo_p, received ", -1);

63060

Tcl_AppendToObj(tcl_result, rettype, -1);

63061

return TCL_ERROR;

63062

}

63063

{

63064

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

63065

_arg1 = &temp;

63066

}

63067

{

63068

/* we can check if IBIS was initialized here */

63069

if (!IbisObj.initialized)

63070

{

63071

Tcl_SetStringObj(

63072

Tcl_GetObjResult(interp),

63073

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63074

return TCL_ERROR;

63075

}

63076

63077

if (! IbisObj.port_guid)

63078

{

63079

Tcl_SetStringObj(

63080

Tcl_GetObjResult(interp),

63081

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63082

return TCL_ERROR;

63083

}

63084

63085

ibis_tcl_error = 0;

63086

_result = (uint8_t *)_ib_cong_info_cong_info_set(_arg0,_arg1);

63087

;

63088

if (ibis_tcl_error) {

63089

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63090

return TCL_ERROR;

63091

}

63092

} tcl_result = Tcl_GetObjResult(interp);

63093

{

63094

char buff[20];

63095

sprintf(buff, "%u", *_result);

63096

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63097

}

63098

return TCL_OK;

63099

}

63100

#define _ib_cong_info_cong_info_get(_swigobj) (&_swigobj->cong_info)

63101

static int _wrap_ccCongestionInfo_cong_info_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63102

63103

uint8_t * _result;

63104

ccCongestionInfo * _arg0;

63105

Tcl_Obj * tcl_result;

63106

char * rettype;

63107

63108

clientData = clientData; objv = objv;

63109

tcl_result = Tcl_GetObjResult(interp);

63110

if ((objc < 2) || (objc > 2)) {

63111

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_cong_info_get { ccCongestionInfo * } ",-1);

63112

return TCL_ERROR;

63113

}

63114

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63115

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_cong_info_get. Expected _ccCongestionInfo_p, received ", -1);

63116

Tcl_AppendToObj(tcl_result, rettype, -1);

63117

return TCL_ERROR;

63118

}

63119

{

63120

/* we can check if IBIS was initialized here */

63121

if (!IbisObj.initialized)

63122

{

63123

Tcl_SetStringObj(

63124

Tcl_GetObjResult(interp),

63125

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63126

return TCL_ERROR;

63127

}

63128

63129

if (! IbisObj.port_guid)

63130

{

63131

Tcl_SetStringObj(

63132

Tcl_GetObjResult(interp),

63133

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63134

return TCL_ERROR;

63135

}

63136

63137

ibis_tcl_error = 0;

63138

_result = (uint8_t *)_ib_cong_info_cong_info_get(_arg0);

63139

;

63140

if (ibis_tcl_error) {

63141

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63142

return TCL_ERROR;

63143

}

63144

} tcl_result = Tcl_GetObjResult(interp);

63145

{

63146

char buff[20];

63147

sprintf(buff, "%u", *_result);

63148

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63149

}

63150

return TCL_OK;

63151

}

63152

#define _ib_cong_info_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

63153

static int _wrap_ccCongestionInfo_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63154

63155

uint8_t * _result;

63156

ccCongestionInfo * _arg0;

63157

uint8_t * _arg1;

63158

Tcl_Obj * tcl_result;

63159

char * rettype;

63160

uint8_t temp;

63161

63162

clientData = clientData; objv = objv;

63163

tcl_result = Tcl_GetObjResult(interp);

63164

if ((objc < 3) || (objc > 3)) {

63165

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_resv_set { ccCongestionInfo * } { uint8_t * } ",-1);

63166

return TCL_ERROR;

63167

}

63168

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63169

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_resv_set. Expected _ccCongestionInfo_p, received ", -1);

63170

Tcl_AppendToObj(tcl_result, rettype, -1);

63171

return TCL_ERROR;

63172

}

63173

{

63174

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

63175

_arg1 = &temp;

63176

}

63177

{

63178

/* we can check if IBIS was initialized here */

63179

if (!IbisObj.initialized)

63180

{

63181

Tcl_SetStringObj(

63182

Tcl_GetObjResult(interp),

63183

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63184

return TCL_ERROR;

63185

}

63186

63187

if (! IbisObj.port_guid)

63188

{

63189

Tcl_SetStringObj(

63190

Tcl_GetObjResult(interp),

63191

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63192

return TCL_ERROR;

63193

}

63194

63195

ibis_tcl_error = 0;

63196

_result = (uint8_t *)_ib_cong_info_resv_set(_arg0,_arg1);

63197

;

63198

if (ibis_tcl_error) {

63199

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63200

return TCL_ERROR;

63201

}

63202

} tcl_result = Tcl_GetObjResult(interp);

63203

{

63204

char buff[20];

63205

sprintf(buff, "%u", *_result);

63206

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63207

}

63208

return TCL_OK;

63209

}

63210

#define _ib_cong_info_resv_get(_swigobj) (&_swigobj->resv)

63211

static int _wrap_ccCongestionInfo_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63212

63213

uint8_t * _result;

63214

ccCongestionInfo * _arg0;

63215

Tcl_Obj * tcl_result;

63216

char * rettype;

63217

63218

clientData = clientData; objv = objv;

63219

tcl_result = Tcl_GetObjResult(interp);

63220

if ((objc < 2) || (objc > 2)) {

63221

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_resv_get { ccCongestionInfo * } ",-1);

63222

return TCL_ERROR;

63223

}

63224

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63225

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_resv_get. Expected _ccCongestionInfo_p, received ", -1);

63226

Tcl_AppendToObj(tcl_result, rettype, -1);

63227

return TCL_ERROR;

63228

}

63229

{

63230

/* we can check if IBIS was initialized here */

63231

if (!IbisObj.initialized)

63232

{

63233

Tcl_SetStringObj(

63234

Tcl_GetObjResult(interp),

63235

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63236

return TCL_ERROR;

63237

}

63238

63239

if (! IbisObj.port_guid)

63240

{

63241

Tcl_SetStringObj(

63242

Tcl_GetObjResult(interp),

63243

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63244

return TCL_ERROR;

63245

}

63246

63247

ibis_tcl_error = 0;

63248

_result = (uint8_t *)_ib_cong_info_resv_get(_arg0);

63249

;

63250

if (ibis_tcl_error) {

63251

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63252

return TCL_ERROR;

63253

}

63254

} tcl_result = Tcl_GetObjResult(interp);

63255

{

63256

char buff[20];

63257

sprintf(buff, "%u", *_result);

63258

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63259

}

63260

return TCL_OK;

63261

}

63262

#define _ib_cong_info_ctrl_table_cap_set(_swigobj,_swigval) (_swigobj->ctrl_table_cap = *(_swigval),_swigval)

63263

static int _wrap_ccCongestionInfo_ctrl_table_cap_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63264

63265

uint8_t * _result;

63266

ccCongestionInfo * _arg0;

63267

uint8_t * _arg1;

63268

Tcl_Obj * tcl_result;

63269

char * rettype;

63270

uint8_t temp;

63271

63272

clientData = clientData; objv = objv;

63273

tcl_result = Tcl_GetObjResult(interp);

63274

if ((objc < 3) || (objc > 3)) {

63275

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_ctrl_table_cap_set { ccCongestionInfo * } { uint8_t * } ",-1);

63276

return TCL_ERROR;

63277

}

63278

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63279

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_ctrl_table_cap_set. Expected _ccCongestionInfo_p, received ", -1);

63280

Tcl_AppendToObj(tcl_result, rettype, -1);

63281

return TCL_ERROR;

63282

}

63283

{

63284

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

63285

_arg1 = &temp;

63286

}

63287

{

63288

/* we can check if IBIS was initialized here */

63289

if (!IbisObj.initialized)

63290

{

63291

Tcl_SetStringObj(

63292

Tcl_GetObjResult(interp),

63293

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63294

return TCL_ERROR;

63295

}

63296

63297

if (! IbisObj.port_guid)

63298

{

63299

Tcl_SetStringObj(

63300

Tcl_GetObjResult(interp),

63301

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63302

return TCL_ERROR;

63303

}

63304

63305

ibis_tcl_error = 0;

63306

_result = (uint8_t *)_ib_cong_info_ctrl_table_cap_set(_arg0,_arg1);

63307

;

63308

if (ibis_tcl_error) {

63309

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63310

return TCL_ERROR;

63311

}

63312

} tcl_result = Tcl_GetObjResult(interp);

63313

{

63314

char buff[20];

63315

sprintf(buff, "%u", *_result);

63316

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63317

}

63318

return TCL_OK;

63319

}

63320

#define _ib_cong_info_ctrl_table_cap_get(_swigobj) (&_swigobj->ctrl_table_cap)

63321

static int _wrap_ccCongestionInfo_ctrl_table_cap_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63322

63323

uint8_t * _result;

63324

ccCongestionInfo * _arg0;

63325

Tcl_Obj * tcl_result;

63326

char * rettype;

63327

63328

clientData = clientData; objv = objv;

63329

tcl_result = Tcl_GetObjResult(interp);

63330

if ((objc < 2) || (objc > 2)) {

63331

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_ctrl_table_cap_get { ccCongestionInfo * } ",-1);

63332

return TCL_ERROR;

63333

}

63334

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63335

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_ctrl_table_cap_get. Expected _ccCongestionInfo_p, received ", -1);

63336

Tcl_AppendToObj(tcl_result, rettype, -1);

63337

return TCL_ERROR;

63338

}

63339

{

63340

/* we can check if IBIS was initialized here */

63341

if (!IbisObj.initialized)

63342

{

63343

Tcl_SetStringObj(

63344

Tcl_GetObjResult(interp),

63345

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63346

return TCL_ERROR;

63347

}

63348

63349

if (! IbisObj.port_guid)

63350

{

63351

Tcl_SetStringObj(

63352

Tcl_GetObjResult(interp),

63353

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63354

return TCL_ERROR;

63355

}

63356

63357

ibis_tcl_error = 0;

63358

_result = (uint8_t *)_ib_cong_info_ctrl_table_cap_get(_arg0);

63359

;

63360

if (ibis_tcl_error) {

63361

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63362

return TCL_ERROR;

63363

}

63364

} tcl_result = Tcl_GetObjResult(interp);

63365

{

63366

char buff[20];

63367

sprintf(buff, "%u", *_result);

63368

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63369

}

63370

return TCL_OK;

63371

}

63372

static int ccCongestionInfo_getByLid(ccCongestionInfo *self,uint16_t lid) {

63373

return ibcc_send_mad_by_lid (

63374

gp_ibcc,

63375

IBCC_DEAFULT_KEY,

63376

NULL, // log data

63377

0, // log data size

63378

(uint8_t *)self, // mgt data

63379

sizeof(ccCongestionInfo), // mgt data size

63380

lid,

63381

CL_NTOH16(IB_MAD_ATTR_CONG_INFO),

63382

0, // attribute modifier

63383

IB_MAD_METHOD_GET);

63384

}

63385

static int _wrap_ccCongestionInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63386

63387

int _result;

63388

ccCongestionInfo * _arg0;

63389

uint16_t * _arg1;

63390

Tcl_Obj * tcl_result;

63391

char * rettype;

63392

uint16_t temp;

63393

63394

clientData = clientData; objv = objv;

63395

tcl_result = Tcl_GetObjResult(interp);

63396

if ((objc < 3) || (objc > 3)) {

63397

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionInfo_getByLid { ccCongestionInfo * } lid ",-1);

63398

return TCL_ERROR;

63399

}

63400

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionInfo_p"))) {

63401

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionInfo_getByLid. Expected _ccCongestionInfo_p, received ", -1);

63402

Tcl_AppendToObj(tcl_result, rettype, -1);

63403

return TCL_ERROR;

63404

}

63405

{

63406

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

63407

_arg1 = &temp;

63408

}

63409

{

63410

/* we can check if IBIS was initialized here */

63411

if (!IbisObj.initialized)

63412

{

63413

Tcl_SetStringObj(

63414

Tcl_GetObjResult(interp),

63415

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63416

return TCL_ERROR;

63417

}

63418

63419

if (! IbisObj.port_guid)

63420

{

63421

Tcl_SetStringObj(

63422

Tcl_GetObjResult(interp),

63423

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63424

return TCL_ERROR;

63425

}

63426

63427

ibis_tcl_error = 0;

63428

_result = (int )ccCongestionInfo_getByLid(_arg0,*_arg1);

63429

;

63430

if (ibis_tcl_error) {

63431

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63432

return TCL_ERROR;

63433

}

63434

} tcl_result = Tcl_GetObjResult(interp);

63435

Tcl_SetIntObj(tcl_result,(long) _result);

63436

return TCL_OK;

63437

}

63438

/* methodcmd8.swg : Tcl8.x method invocation */

63439

63440

static int TclccCongestionInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

63441

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

63442

char *_str;

63443

int rcode;

63444

Tcl_Obj **objv;

63445

Tcl_Obj *oldarg,*tcl_result,*obj;

63446

int length;

63447

char c;

63448

63449

tcl_result = Tcl_GetObjResult(interp);

63450

objv = (Tcl_Obj **) _objv;

63451

if (objc < 2) {

63452

Tcl_SetStringObj(tcl_result,"ccCongestionInfo methods : { dump cget configure getByLid }",-1);

63453

return TCL_ERROR;

63454

}

63455

obj = Tcl_NewObj();

63456

SWIG_SetPointerObj(obj,(void *) clientData,"_ccCongestionInfo_p");

63457

_str = Tcl_GetStringFromObj(objv[1],&length);

63458

c = *_str;

63459

if (0);

63460

if (strcmp(_str,"getByLid") == 0) {

63461

cmd = _wrap_ccCongestionInfo_getByLid;

63462

}

63463

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

63464

int i = 2;

63465

cmd = 0;

63466

while (i+1 < objc) {

63467

_str = Tcl_GetStringFromObj(objv[i],&length);

63468

if (strcmp(_str,"-cong_info") == 0) {

63469

cmd = _wrap_ccCongestionInfo_cong_info_set;

63470

} else if (strcmp(_str,"-resv") == 0) {

63471

cmd = _wrap_ccCongestionInfo_resv_set;

63472

} else if (strcmp(_str,"-ctrl_table_cap") == 0) {

63473

cmd = _wrap_ccCongestionInfo_ctrl_table_cap_set;

63474

}

63475

if (cmd) {

63476

oldarg = objv[i];

63477

objv[i] = obj;

63478

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

63479

objv[i] = oldarg;

63480

if (rcode == TCL_ERROR) return rcode;

63481

cmd = 0;

63482

} else {

63483

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -cong_info -resv -ctrl_table_cap }",-1);

63484

return TCL_ERROR;

63485

}

63486

i+=2;

63487

}

63488

if ((i < objc) || (i == 2)) {

63489

Tcl_SetStringObj(tcl_result,"{ -cong_info -resv -ctrl_table_cap }",-1);

63490

return TCL_ERROR;

63491

}

63492

return TCL_OK;

63493

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

63494

if (objc == 3) {

63495

_str = Tcl_GetStringFromObj(objv[2],&length);

63496

if (0) {}

63497

if (strcmp(_str,"-cong_info") == 0) {

63498

cmd = _wrap_ccCongestionInfo_cong_info_get;

63499

} else if (strcmp(_str,"-resv") == 0) {

63500

cmd = _wrap_ccCongestionInfo_resv_get;

63501

} else if (strcmp(_str,"-ctrl_table_cap") == 0) {

63502

cmd = _wrap_ccCongestionInfo_ctrl_table_cap_get;

63503

}

63504

else if (strcmp(_str,"-this") == 0) {

63505

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccCongestionInfo_p");

63506

return TCL_OK;

63507

}

63508

if (cmd) {

63509

oldarg = objv[2];

63510

objv[2] = obj;

63511

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

63512

objv[2] = oldarg;

63513

return rcode;

63514

} else {

63515

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -cong_info -resv -ctrl_table_cap }",-1);

63516

return TCL_ERROR;

63517

}

63518

} else {

63519

Tcl_SetStringObj(tcl_result,"{ -this -cong_info -resv -ctrl_table_cap }", -1);

63520

return TCL_ERROR;

63521

}

63522

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

63523

if (objc == 2) {

63524

Tcl_Obj *pDumpObj;

63525

pDumpObj = Tcl_NewStringObj("",-1);

63526

Tcl_IncrRefCount(pDumpObj);

63527

cmd = _wrap_ccCongestionInfo_cong_info_get;

63528

oldarg = objv[2];

63529

objv[2] = obj;

63530

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

63531

objv[2] = oldarg;

63532

Tcl_AppendStringsToObj(pDumpObj, "-cong_info ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

63533

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

63534

cmd = _wrap_ccCongestionInfo_resv_get;

63535

oldarg = objv[2];

63536

objv[2] = obj;

63537

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

63538

objv[2] = oldarg;

63539

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

63540

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

63541

cmd = _wrap_ccCongestionInfo_ctrl_table_cap_get;

63542

oldarg = objv[2];

63543

objv[2] = obj;

63544

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

63545

objv[2] = oldarg;

63546

Tcl_AppendStringsToObj(pDumpObj, "-ctrl_table_cap ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

63547

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

63548

63549

Tcl_DecrRefCount(pDumpObj);

63550

return TCL_OK;

63551

} else {

63552

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

63553

return TCL_ERROR;

63554

}

63555

}

63556

if (!cmd) {

63557

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid }",-1);

63558

return TCL_ERROR;

63559

}

63560

oldarg = objv[1];

63561

objv[1] = obj;

63562

rcode = (*cmd)(clientData,interp,objc,objv);

63563

objv[1] = oldarg;

63564

return rcode;

63565

}

63566

63567

63568

63569

/* objcmd8.swg : Tcl 8.x object creation */

63570

63571

static int TclccCongestionInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63572

void (*del)(ClientData) = 0;

63573

char *name = 0;

63574

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

63575

ccCongestionInfo * newObj = 0;

63576

int firstarg = 0;

63577

int thisarg = 0;

63578

int length;

63579

char *_str;

63580

Tcl_Obj *tcl_result;

63581

63582

tcl_result = Tcl_GetObjResult(interp);

63583

if (objc == 1) {

63584

cmd = 0;

63585

} else {

63586

_str = Tcl_GetStringFromObj(objv[1],&length);

63587

if (strcmp(_str,"-this") == 0) thisarg = 2;

63588

else if (strcmp(_str,"-args") == 0) {

63589

firstarg = 1;

63590

cmd = 0;

63591

} else if (objc == 2) {

63592

firstarg = 1;

63593

name = _str;

63594

cmd = 0;

63595

} else if (objc >= 3) {

63596

name = _str;

63597

_str = Tcl_GetStringFromObj(objv[2],&length);

63598

if (strcmp(_str,"-this") == 0) thisarg = 3;

63599

else {

63600

firstarg = 1;

63601

cmd = 0;

63602

}

63603

}

63604

}

63605

if (cmd) {

63606

int result;

63607

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

63608

if (result == TCL_OK) {

63609

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccCongestionInfo_p");

63610

} else { return result; }

63611

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

63612

del = 0;

63613

} else if (thisarg > 0) {

63614

if (thisarg < objc) {

63615

char *r;

63616

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccCongestionInfo_p");

63617

if (r) {

63618

Tcl_SetStringObj(tcl_result,"Type error. not a ccCongestionInfo object.",-1);

63619

return TCL_ERROR;

63620

}

63621

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

63622

Tcl_SetStringObj(tcl_result,name,-1);

63623

} else {

63624

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

63625

return TCL_ERROR;

63626

}

63627

} else {

63628

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

63629

return TCL_ERROR;

63630

}

63631

{

63632

Tcl_CmdInfo dummy;

63633

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

63634

Tcl_CreateObjCommand(interp,name, TclccCongestionInfoMethodCmd, (ClientData) newObj, del);

63635

return TCL_OK;

63636

} else {

63637

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

63638

return TCL_ERROR;

63639

}

63640

}

63641

}

63642

63643

63644

#define _ib_cong_key_info_cc_key_set(_swigobj,_swigval) (_swigobj->cc_key = *(_swigval),_swigval)

63645

static int _wrap_ccCongestionKeyInfo_cc_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63646

63647

ib_net64_t * _result;

63648

ccCongestionKeyInfo * _arg0;

63649

ib_net64_t * _arg1;

63650

Tcl_Obj * tcl_result;

63651

char * rettype;

63652

uint64_t temp;

63653

63654

clientData = clientData; objv = objv;

63655

tcl_result = Tcl_GetObjResult(interp);

63656

if ((objc < 3) || (objc > 3)) {

63657

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_cc_key_set { ccCongestionKeyInfo * } { ib_net64_t * } ",-1);

63658

return TCL_ERROR;

63659

}

63660

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63661

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_cc_key_set. Expected _ccCongestionKeyInfo_p, received ", -1);

63662

Tcl_AppendToObj(tcl_result, rettype, -1);

63663

return TCL_ERROR;

63664

}

63665

{

63666

temp = cl_hton64(strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL, 16));

63667

_arg1 = &temp;

63668

}

63669

{

63670

/* we can check if IBIS was initialized here */

63671

if (!IbisObj.initialized)

63672

{

63673

Tcl_SetStringObj(

63674

Tcl_GetObjResult(interp),

63675

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63676

return TCL_ERROR;

63677

}

63678

63679

if (! IbisObj.port_guid)

63680

{

63681

Tcl_SetStringObj(

63682

Tcl_GetObjResult(interp),

63683

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63684

return TCL_ERROR;

63685

}

63686

63687

ibis_tcl_error = 0;

63688

_result = (ib_net64_t *)_ib_cong_key_info_cc_key_set(_arg0,_arg1);

63689

;

63690

if (ibis_tcl_error) {

63691

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63692

return TCL_ERROR;

63693

}

63694

} tcl_result = Tcl_GetObjResult(interp);

63695

{

63696

char buff[20];

63697

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

63698

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63699

}

63700

return TCL_OK;

63701

}

63702

#define _ib_cong_key_info_cc_key_get(_swigobj) (&_swigobj->cc_key)

63703

static int _wrap_ccCongestionKeyInfo_cc_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63704

63705

ib_net64_t * _result;

63706

ccCongestionKeyInfo * _arg0;

63707

Tcl_Obj * tcl_result;

63708

char * rettype;

63709

63710

clientData = clientData; objv = objv;

63711

tcl_result = Tcl_GetObjResult(interp);

63712

if ((objc < 2) || (objc > 2)) {

63713

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_cc_key_get { ccCongestionKeyInfo * } ",-1);

63714

return TCL_ERROR;

63715

}

63716

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63717

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_cc_key_get. Expected _ccCongestionKeyInfo_p, received ", -1);

63718

Tcl_AppendToObj(tcl_result, rettype, -1);

63719

return TCL_ERROR;

63720

}

63721

{

63722

/* we can check if IBIS was initialized here */

63723

if (!IbisObj.initialized)

63724

{

63725

Tcl_SetStringObj(

63726

Tcl_GetObjResult(interp),

63727

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63728

return TCL_ERROR;

63729

}

63730

63731

if (! IbisObj.port_guid)

63732

{

63733

Tcl_SetStringObj(

63734

Tcl_GetObjResult(interp),

63735

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63736

return TCL_ERROR;

63737

}

63738

63739

ibis_tcl_error = 0;

63740

_result = (ib_net64_t *)_ib_cong_key_info_cc_key_get(_arg0);

63741

;

63742

if (ibis_tcl_error) {

63743

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63744

return TCL_ERROR;

63745

}

63746

} tcl_result = Tcl_GetObjResult(interp);

63747

{

63748

char buff[20];

63749

sprintf(buff, "0x%016" PRIx64, cl_ntoh64(*_result));

63750

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63751

}

63752

return TCL_OK;

63753

}

63754

#define _ib_cong_key_info_protect_bit_set(_swigobj,_swigval) (_swigobj->protect_bit = *(_swigval),_swigval)

63755

static int _wrap_ccCongestionKeyInfo_protect_bit_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63756

63757

ib_net16_t * _result;

63758

ccCongestionKeyInfo * _arg0;

63759

ib_net16_t * _arg1;

63760

Tcl_Obj * tcl_result;

63761

char * rettype;

63762

ib_net16_t temp;

63763

63764

clientData = clientData; objv = objv;

63765

tcl_result = Tcl_GetObjResult(interp);

63766

if ((objc < 3) || (objc > 3)) {

63767

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_protect_bit_set { ccCongestionKeyInfo * } { ib_net16_t * } ",-1);

63768

return TCL_ERROR;

63769

}

63770

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63771

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_protect_bit_set. Expected _ccCongestionKeyInfo_p, received ", -1);

63772

Tcl_AppendToObj(tcl_result, rettype, -1);

63773

return TCL_ERROR;

63774

}

63775

{

63776

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

63777

_arg1 = &temp;

63778

}

63779

{

63780

/* we can check if IBIS was initialized here */

63781

if (!IbisObj.initialized)

63782

{

63783

Tcl_SetStringObj(

63784

Tcl_GetObjResult(interp),

63785

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63786

return TCL_ERROR;

63787

}

63788

63789

if (! IbisObj.port_guid)

63790

{

63791

Tcl_SetStringObj(

63792

Tcl_GetObjResult(interp),

63793

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63794

return TCL_ERROR;

63795

}

63796

63797

ibis_tcl_error = 0;

63798

_result = (ib_net16_t *)_ib_cong_key_info_protect_bit_set(_arg0,_arg1);

63799

;

63800

if (ibis_tcl_error) {

63801

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63802

return TCL_ERROR;

63803

}

63804

} tcl_result = Tcl_GetObjResult(interp);

63805

{

63806

char buff[20];

63807

sprintf(buff, "%u", cl_hton16(*_result));

63808

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63809

}

63810

return TCL_OK;

63811

}

63812

#define _ib_cong_key_info_protect_bit_get(_swigobj) (&_swigobj->protect_bit)

63813

static int _wrap_ccCongestionKeyInfo_protect_bit_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63814

63815

ib_net16_t * _result;

63816

ccCongestionKeyInfo * _arg0;

63817

Tcl_Obj * tcl_result;

63818

char * rettype;

63819

63820

clientData = clientData; objv = objv;

63821

tcl_result = Tcl_GetObjResult(interp);

63822

if ((objc < 2) || (objc > 2)) {

63823

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_protect_bit_get { ccCongestionKeyInfo * } ",-1);

63824

return TCL_ERROR;

63825

}

63826

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63827

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_protect_bit_get. Expected _ccCongestionKeyInfo_p, received ", -1);

63828

Tcl_AppendToObj(tcl_result, rettype, -1);

63829

return TCL_ERROR;

63830

}

63831

{

63832

/* we can check if IBIS was initialized here */

63833

if (!IbisObj.initialized)

63834

{

63835

Tcl_SetStringObj(

63836

Tcl_GetObjResult(interp),

63837

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63838

return TCL_ERROR;

63839

}

63840

63841

if (! IbisObj.port_guid)

63842

{

63843

Tcl_SetStringObj(

63844

Tcl_GetObjResult(interp),

63845

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63846

return TCL_ERROR;

63847

}

63848

63849

ibis_tcl_error = 0;

63850

_result = (ib_net16_t *)_ib_cong_key_info_protect_bit_get(_arg0);

63851

;

63852

if (ibis_tcl_error) {

63853

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63854

return TCL_ERROR;

63855

}

63856

} tcl_result = Tcl_GetObjResult(interp);

63857

{

63858

char buff[20];

63859

sprintf(buff, "%u", cl_hton16(*_result));

63860

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63861

}

63862

return TCL_OK;

63863

}

63864

#define _ib_cong_key_info_lease_period_set(_swigobj,_swigval) (_swigobj->lease_period = *(_swigval),_swigval)

63865

static int _wrap_ccCongestionKeyInfo_lease_period_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63866

63867

ib_net16_t * _result;

63868

ccCongestionKeyInfo * _arg0;

63869

ib_net16_t * _arg1;

63870

Tcl_Obj * tcl_result;

63871

char * rettype;

63872

ib_net16_t temp;

63873

63874

clientData = clientData; objv = objv;

63875

tcl_result = Tcl_GetObjResult(interp);

63876

if ((objc < 3) || (objc > 3)) {

63877

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_lease_period_set { ccCongestionKeyInfo * } { ib_net16_t * } ",-1);

63878

return TCL_ERROR;

63879

}

63880

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63881

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_lease_period_set. Expected _ccCongestionKeyInfo_p, received ", -1);

63882

Tcl_AppendToObj(tcl_result, rettype, -1);

63883

return TCL_ERROR;

63884

}

63885

{

63886

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

63887

_arg1 = &temp;

63888

}

63889

{

63890

/* we can check if IBIS was initialized here */

63891

if (!IbisObj.initialized)

63892

{

63893

Tcl_SetStringObj(

63894

Tcl_GetObjResult(interp),

63895

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63896

return TCL_ERROR;

63897

}

63898

63899

if (! IbisObj.port_guid)

63900

{

63901

Tcl_SetStringObj(

63902

Tcl_GetObjResult(interp),

63903

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63904

return TCL_ERROR;

63905

}

63906

63907

ibis_tcl_error = 0;

63908

_result = (ib_net16_t *)_ib_cong_key_info_lease_period_set(_arg0,_arg1);

63909

;

63910

if (ibis_tcl_error) {

63911

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63912

return TCL_ERROR;

63913

}

63914

} tcl_result = Tcl_GetObjResult(interp);

63915

{

63916

char buff[20];

63917

sprintf(buff, "%u", cl_hton16(*_result));

63918

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63919

}

63920

return TCL_OK;

63921

}

63922

#define _ib_cong_key_info_lease_period_get(_swigobj) (&_swigobj->lease_period)

63923

static int _wrap_ccCongestionKeyInfo_lease_period_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63924

63925

ib_net16_t * _result;

63926

ccCongestionKeyInfo * _arg0;

63927

Tcl_Obj * tcl_result;

63928

char * rettype;

63929

63930

clientData = clientData; objv = objv;

63931

tcl_result = Tcl_GetObjResult(interp);

63932

if ((objc < 2) || (objc > 2)) {

63933

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_lease_period_get { ccCongestionKeyInfo * } ",-1);

63934

return TCL_ERROR;

63935

}

63936

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63937

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_lease_period_get. Expected _ccCongestionKeyInfo_p, received ", -1);

63938

Tcl_AppendToObj(tcl_result, rettype, -1);

63939

return TCL_ERROR;

63940

}

63941

{

63942

/* we can check if IBIS was initialized here */

63943

if (!IbisObj.initialized)

63944

{

63945

Tcl_SetStringObj(

63946

Tcl_GetObjResult(interp),

63947

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

63948

return TCL_ERROR;

63949

}

63950

63951

if (! IbisObj.port_guid)

63952

{

63953

Tcl_SetStringObj(

63954

Tcl_GetObjResult(interp),

63955

" ibis was not yet initialized. please use ibis_set_port before.", -1);

63956

return TCL_ERROR;

63957

}

63958

63959

ibis_tcl_error = 0;

63960

_result = (ib_net16_t *)_ib_cong_key_info_lease_period_get(_arg0);

63961

;

63962

if (ibis_tcl_error) {

63963

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

63964

return TCL_ERROR;

63965

}

63966

} tcl_result = Tcl_GetObjResult(interp);

63967

{

63968

char buff[20];

63969

sprintf(buff, "%u", cl_hton16(*_result));

63970

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

63971

}

63972

return TCL_OK;

63973

}

63974

#define _ib_cong_key_info_violations_set(_swigobj,_swigval) (_swigobj->violations = *(_swigval),_swigval)

63975

static int _wrap_ccCongestionKeyInfo_violations_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

63976

63977

ib_net16_t * _result;

63978

ccCongestionKeyInfo * _arg0;

63979

ib_net16_t * _arg1;

63980

Tcl_Obj * tcl_result;

63981

char * rettype;

63982

ib_net16_t temp;

63983

63984

clientData = clientData; objv = objv;

63985

tcl_result = Tcl_GetObjResult(interp);

63986

if ((objc < 3) || (objc > 3)) {

63987

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_violations_set { ccCongestionKeyInfo * } { ib_net16_t * } ",-1);

63988

return TCL_ERROR;

63989

}

63990

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

63991

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_violations_set. Expected _ccCongestionKeyInfo_p, received ", -1);

63992

Tcl_AppendToObj(tcl_result, rettype, -1);

63993

return TCL_ERROR;

63994

}

63995

{

63996

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

63997

_arg1 = &temp;

63998

}

63999

{

64000

/* we can check if IBIS was initialized here */

64001

if (!IbisObj.initialized)

64002

{

64003

Tcl_SetStringObj(

64004

Tcl_GetObjResult(interp),

64005

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64006

return TCL_ERROR;

64007

}

64008

64009

if (! IbisObj.port_guid)

64010

{

64011

Tcl_SetStringObj(

64012

Tcl_GetObjResult(interp),

64013

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64014

return TCL_ERROR;

64015

}

64016

64017

ibis_tcl_error = 0;

64018

_result = (ib_net16_t *)_ib_cong_key_info_violations_set(_arg0,_arg1);

64019

;

64020

if (ibis_tcl_error) {

64021

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64022

return TCL_ERROR;

64023

}

64024

} tcl_result = Tcl_GetObjResult(interp);

64025

{

64026

char buff[20];

64027

sprintf(buff, "%u", cl_hton16(*_result));

64028

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64029

}

64030

return TCL_OK;

64031

}

64032

#define _ib_cong_key_info_violations_get(_swigobj) (&_swigobj->violations)

64033

static int _wrap_ccCongestionKeyInfo_violations_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64034

64035

ib_net16_t * _result;

64036

ccCongestionKeyInfo * _arg0;

64037

Tcl_Obj * tcl_result;

64038

char * rettype;

64039

64040

clientData = clientData; objv = objv;

64041

tcl_result = Tcl_GetObjResult(interp);

64042

if ((objc < 2) || (objc > 2)) {

64043

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_violations_get { ccCongestionKeyInfo * } ",-1);

64044

return TCL_ERROR;

64045

}

64046

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

64047

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_violations_get. Expected _ccCongestionKeyInfo_p, received ", -1);

64048

Tcl_AppendToObj(tcl_result, rettype, -1);

64049

return TCL_ERROR;

64050

}

64051

{

64052

/* we can check if IBIS was initialized here */

64053

if (!IbisObj.initialized)

64054

{

64055

Tcl_SetStringObj(

64056

Tcl_GetObjResult(interp),

64057

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64058

return TCL_ERROR;

64059

}

64060

64061

if (! IbisObj.port_guid)

64062

{

64063

Tcl_SetStringObj(

64064

Tcl_GetObjResult(interp),

64065

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64066

return TCL_ERROR;

64067

}

64068

64069

ibis_tcl_error = 0;

64070

_result = (ib_net16_t *)_ib_cong_key_info_violations_get(_arg0);

64071

;

64072

if (ibis_tcl_error) {

64073

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64074

return TCL_ERROR;

64075

}

64076

} tcl_result = Tcl_GetObjResult(interp);

64077

{

64078

char buff[20];

64079

sprintf(buff, "%u", cl_hton16(*_result));

64080

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64081

}

64082

return TCL_OK;

64083

}

64084

static int ccCongestionKeyInfo_getByLid(ccCongestionKeyInfo *self,uint16_t lid) {

64085

return ibcc_send_mad_by_lid (

64086

gp_ibcc,

64087

IBCC_DEAFULT_KEY,

64088

NULL, // log data

64089

0, // log data size

64090

(uint8_t *)self, // mgt data

64091

sizeof(ccCongestionKeyInfo), // mgt data size

64092

lid,

64093

CL_NTOH16(IB_MAD_ATTR_CONG_KEY_INFO),

64094

0, // attribute modifier

64095

IB_MAD_METHOD_GET);

64096

}

64097

static int _wrap_ccCongestionKeyInfo_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64098

64099

int _result;

64100

ccCongestionKeyInfo * _arg0;

64101

uint16_t * _arg1;

64102

Tcl_Obj * tcl_result;

64103

char * rettype;

64104

uint16_t temp;

64105

64106

clientData = clientData; objv = objv;

64107

tcl_result = Tcl_GetObjResult(interp);

64108

if ((objc < 3) || (objc > 3)) {

64109

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_getByLid { ccCongestionKeyInfo * } lid ",-1);

64110

return TCL_ERROR;

64111

}

64112

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

64113

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_getByLid. Expected _ccCongestionKeyInfo_p, received ", -1);

64114

Tcl_AppendToObj(tcl_result, rettype, -1);

64115

return TCL_ERROR;

64116

}

64117

{

64118

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

64119

_arg1 = &temp;

64120

}

64121

{

64122

/* we can check if IBIS was initialized here */

64123

if (!IbisObj.initialized)

64124

{

64125

Tcl_SetStringObj(

64126

Tcl_GetObjResult(interp),

64127

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64128

return TCL_ERROR;

64129

}

64130

64131

if (! IbisObj.port_guid)

64132

{

64133

Tcl_SetStringObj(

64134

Tcl_GetObjResult(interp),

64135

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64136

return TCL_ERROR;

64137

}

64138

64139

ibis_tcl_error = 0;

64140

_result = (int )ccCongestionKeyInfo_getByLid(_arg0,*_arg1);

64141

;

64142

if (ibis_tcl_error) {

64143

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64144

return TCL_ERROR;

64145

}

64146

} tcl_result = Tcl_GetObjResult(interp);

64147

Tcl_SetIntObj(tcl_result,(long) _result);

64148

return TCL_OK;

64149

}

64150

static int ccCongestionKeyInfo_setByLid(ccCongestionKeyInfo *self,uint16_t lid) {

64151

return ibcc_send_mad_by_lid(

64152

gp_ibcc,

64153

IBCC_DEAFULT_KEY,

64154

NULL, // log data

64155

0, // log data size

64156

(uint8_t *)self, // mgt data

64157

sizeof(ccCongestionKeyInfo), // mgt data size

64158

lid,

64159

CL_NTOH16(IB_MAD_ATTR_CONG_KEY_INFO),

64160

0, // attribute modifier

64161

IB_MAD_METHOD_SET);

64162

}

64163

static int _wrap_ccCongestionKeyInfo_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64164

64165

int _result;

64166

ccCongestionKeyInfo * _arg0;

64167

uint16_t * _arg1;

64168

Tcl_Obj * tcl_result;

64169

char * rettype;

64170

uint16_t temp;

64171

64172

clientData = clientData; objv = objv;

64173

tcl_result = Tcl_GetObjResult(interp);

64174

if ((objc < 3) || (objc > 3)) {

64175

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCongestionKeyInfo_setByLid { ccCongestionKeyInfo * } lid ",-1);

64176

return TCL_ERROR;

64177

}

64178

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCongestionKeyInfo_p"))) {

64179

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCongestionKeyInfo_setByLid. Expected _ccCongestionKeyInfo_p, received ", -1);

64180

Tcl_AppendToObj(tcl_result, rettype, -1);

64181

return TCL_ERROR;

64182

}

64183

{

64184

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

64185

_arg1 = &temp;

64186

}

64187

{

64188

/* we can check if IBIS was initialized here */

64189

if (!IbisObj.initialized)

64190

{

64191

Tcl_SetStringObj(

64192

Tcl_GetObjResult(interp),

64193

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64194

return TCL_ERROR;

64195

}

64196

64197

if (! IbisObj.port_guid)

64198

{

64199

Tcl_SetStringObj(

64200

Tcl_GetObjResult(interp),

64201

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64202

return TCL_ERROR;

64203

}

64204

64205

ibis_tcl_error = 0;

64206

_result = (int )ccCongestionKeyInfo_setByLid(_arg0,*_arg1);

64207

;

64208

if (ibis_tcl_error) {

64209

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64210

return TCL_ERROR;

64211

}

64212

} tcl_result = Tcl_GetObjResult(interp);

64213

Tcl_SetIntObj(tcl_result,(long) _result);

64214

return TCL_OK;

64215

}

64216

/* methodcmd8.swg : Tcl8.x method invocation */

64217

64218

static int TclccCongestionKeyInfoMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

64219

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

64220

char *_str;

64221

int rcode;

64222

Tcl_Obj **objv;

64223

Tcl_Obj *oldarg,*tcl_result,*obj;

64224

int length;

64225

char c;

64226

64227

tcl_result = Tcl_GetObjResult(interp);

64228

objv = (Tcl_Obj **) _objv;

64229

if (objc < 2) {

64230

Tcl_SetStringObj(tcl_result,"ccCongestionKeyInfo methods : { dump cget configure getByLid setByLid }",-1);

64231

return TCL_ERROR;

64232

}

64233

obj = Tcl_NewObj();

64234

SWIG_SetPointerObj(obj,(void *) clientData,"_ccCongestionKeyInfo_p");

64235

_str = Tcl_GetStringFromObj(objv[1],&length);

64236

c = *_str;

64237

if (0);

64238

if (strcmp(_str,"getByLid") == 0) {

64239

cmd = _wrap_ccCongestionKeyInfo_getByLid;

64240

} else if (strcmp(_str,"setByLid") == 0) {

64241

cmd = _wrap_ccCongestionKeyInfo_setByLid;

64242

}

64243

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

64244

int i = 2;

64245

cmd = 0;

64246

while (i+1 < objc) {

64247

_str = Tcl_GetStringFromObj(objv[i],&length);

64248

if (strcmp(_str,"-cc_key") == 0) {

64249

cmd = _wrap_ccCongestionKeyInfo_cc_key_set;

64250

} else if (strcmp(_str,"-protect_bit") == 0) {

64251

cmd = _wrap_ccCongestionKeyInfo_protect_bit_set;

64252

} else if (strcmp(_str,"-lease_period") == 0) {

64253

cmd = _wrap_ccCongestionKeyInfo_lease_period_set;

64254

} else if (strcmp(_str,"-violations") == 0) {

64255

cmd = _wrap_ccCongestionKeyInfo_violations_set;

64256

}

64257

if (cmd) {

64258

oldarg = objv[i];

64259

objv[i] = obj;

64260

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

64261

objv[i] = oldarg;

64262

if (rcode == TCL_ERROR) return rcode;

64263

cmd = 0;

64264

} else {

64265

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -cc_key -protect_bit -lease_period -violations }",-1);

64266

return TCL_ERROR;

64267

}

64268

i+=2;

64269

}

64270

if ((i < objc) || (i == 2)) {

64271

Tcl_SetStringObj(tcl_result,"{ -cc_key -protect_bit -lease_period -violations }",-1);

64272

return TCL_ERROR;

64273

}

64274

return TCL_OK;

64275

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

64276

if (objc == 3) {

64277

_str = Tcl_GetStringFromObj(objv[2],&length);

64278

if (0) {}

64279

if (strcmp(_str,"-cc_key") == 0) {

64280

cmd = _wrap_ccCongestionKeyInfo_cc_key_get;

64281

} else if (strcmp(_str,"-protect_bit") == 0) {

64282

cmd = _wrap_ccCongestionKeyInfo_protect_bit_get;

64283

} else if (strcmp(_str,"-lease_period") == 0) {

64284

cmd = _wrap_ccCongestionKeyInfo_lease_period_get;

64285

} else if (strcmp(_str,"-violations") == 0) {

64286

cmd = _wrap_ccCongestionKeyInfo_violations_get;

64287

}

64288

else if (strcmp(_str,"-this") == 0) {

64289

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccCongestionKeyInfo_p");

64290

return TCL_OK;

64291

}

64292

if (cmd) {

64293

oldarg = objv[2];

64294

objv[2] = obj;

64295

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

64296

objv[2] = oldarg;

64297

return rcode;

64298

} else {

64299

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -cc_key -protect_bit -lease_period -violations }",-1);

64300

return TCL_ERROR;

64301

}

64302

} else {

64303

Tcl_SetStringObj(tcl_result,"{ -this -cc_key -protect_bit -lease_period -violations }", -1);

64304

return TCL_ERROR;

64305

}

64306

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

64307

if (objc == 2) {

64308

Tcl_Obj *pDumpObj;

64309

pDumpObj = Tcl_NewStringObj("",-1);

64310

Tcl_IncrRefCount(pDumpObj);

64311

cmd = _wrap_ccCongestionKeyInfo_cc_key_get;

64312

oldarg = objv[2];

64313

objv[2] = obj;

64314

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64315

objv[2] = oldarg;

64316

Tcl_AppendStringsToObj(pDumpObj, "-cc_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64317

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64318

cmd = _wrap_ccCongestionKeyInfo_protect_bit_get;

64319

oldarg = objv[2];

64320

objv[2] = obj;

64321

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64322

objv[2] = oldarg;

64323

Tcl_AppendStringsToObj(pDumpObj, "-protect_bit ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64324

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64325

cmd = _wrap_ccCongestionKeyInfo_lease_period_get;

64326

oldarg = objv[2];

64327

objv[2] = obj;

64328

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64329

objv[2] = oldarg;

64330

Tcl_AppendStringsToObj(pDumpObj, "-lease_period ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64331

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64332

cmd = _wrap_ccCongestionKeyInfo_violations_get;

64333

oldarg = objv[2];

64334

objv[2] = obj;

64335

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64336

objv[2] = oldarg;

64337

Tcl_AppendStringsToObj(pDumpObj, "-violations ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64338

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64339

64340

Tcl_DecrRefCount(pDumpObj);

64341

return TCL_OK;

64342

} else {

64343

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

64344

return TCL_ERROR;

64345

}

64346

}

64347

if (!cmd) {

64348

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

64349

return TCL_ERROR;

64350

}

64351

oldarg = objv[1];

64352

objv[1] = obj;

64353

rcode = (*cmd)(clientData,interp,objc,objv);

64354

objv[1] = oldarg;

64355

return rcode;

64356

}

64357

64358

64359

64360

/* objcmd8.swg : Tcl 8.x object creation */

64361

64362

static int TclccCongestionKeyInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64363

void (*del)(ClientData) = 0;

64364

char *name = 0;

64365

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

64366

ccCongestionKeyInfo * newObj = 0;

64367

int firstarg = 0;

64368

int thisarg = 0;

64369

int length;

64370

char *_str;

64371

Tcl_Obj *tcl_result;

64372

64373

tcl_result = Tcl_GetObjResult(interp);

64374

if (objc == 1) {

64375

cmd = 0;

64376

} else {

64377

_str = Tcl_GetStringFromObj(objv[1],&length);

64378

if (strcmp(_str,"-this") == 0) thisarg = 2;

64379

else if (strcmp(_str,"-args") == 0) {

64380

firstarg = 1;

64381

cmd = 0;

64382

} else if (objc == 2) {

64383

firstarg = 1;

64384

name = _str;

64385

cmd = 0;

64386

} else if (objc >= 3) {

64387

name = _str;

64388

_str = Tcl_GetStringFromObj(objv[2],&length);

64389

if (strcmp(_str,"-this") == 0) thisarg = 3;

64390

else {

64391

firstarg = 1;

64392

cmd = 0;

64393

}

64394

}

64395

}

64396

if (cmd) {

64397

int result;

64398

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

64399

if (result == TCL_OK) {

64400

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccCongestionKeyInfo_p");

64401

} else { return result; }

64402

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

64403

del = 0;

64404

} else if (thisarg > 0) {

64405

if (thisarg < objc) {

64406

char *r;

64407

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccCongestionKeyInfo_p");

64408

if (r) {

64409

Tcl_SetStringObj(tcl_result,"Type error. not a ccCongestionKeyInfo object.",-1);

64410

return TCL_ERROR;

64411

}

64412

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

64413

Tcl_SetStringObj(tcl_result,name,-1);

64414

} else {

64415

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

64416

return TCL_ERROR;

64417

}

64418

} else {

64419

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

64420

return TCL_ERROR;

64421

}

64422

{

64423

Tcl_CmdInfo dummy;

64424

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

64425

Tcl_CreateObjCommand(interp,name, TclccCongestionKeyInfoMethodCmd, (ClientData) newObj, del);

64426

return TCL_OK;

64427

} else {

64428

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

64429

return TCL_ERROR;

64430

}

64431

}

64432

}

64433

64434

64435

#define _ib_cong_log_event_sw_slid_set(_swigobj,_swigval) (_swigobj->slid = *(_swigval),_swigval)

64436

static int _wrap_ib_cong_log_event_sw_t_slid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64437

64438

ib_net16_t * _result;

64439

ib_cong_log_event_sw_t * _arg0;

64440

ib_net16_t * _arg1;

64441

Tcl_Obj * tcl_result;

64442

char * rettype;

64443

ib_net16_t temp;

64444

64445

clientData = clientData; objv = objv;

64446

tcl_result = Tcl_GetObjResult(interp);

64447

if ((objc < 3) || (objc > 3)) {

64448

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_slid_set { ib_cong_log_event_sw_t * } { ib_net16_t * } ",-1);

64449

return TCL_ERROR;

64450

}

64451

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64452

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_slid_set. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64453

Tcl_AppendToObj(tcl_result, rettype, -1);

64454

return TCL_ERROR;

64455

}

64456

{

64457

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

64458

_arg1 = &temp;

64459

}

64460

{

64461

/* we can check if IBIS was initialized here */

64462

if (!IbisObj.initialized)

64463

{

64464

Tcl_SetStringObj(

64465

Tcl_GetObjResult(interp),

64466

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64467

return TCL_ERROR;

64468

}

64469

64470

if (! IbisObj.port_guid)

64471

{

64472

Tcl_SetStringObj(

64473

Tcl_GetObjResult(interp),

64474

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64475

return TCL_ERROR;

64476

}

64477

64478

ibis_tcl_error = 0;

64479

_result = (ib_net16_t *)_ib_cong_log_event_sw_slid_set(_arg0,_arg1);

64480

;

64481

if (ibis_tcl_error) {

64482

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64483

return TCL_ERROR;

64484

}

64485

} tcl_result = Tcl_GetObjResult(interp);

64486

{

64487

char buff[20];

64488

sprintf(buff, "%u", cl_hton16(*_result));

64489

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64490

}

64491

return TCL_OK;

64492

}

64493

#define _ib_cong_log_event_sw_slid_get(_swigobj) (&_swigobj->slid)

64494

static int _wrap_ib_cong_log_event_sw_t_slid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64495

64496

ib_net16_t * _result;

64497

ib_cong_log_event_sw_t * _arg0;

64498

Tcl_Obj * tcl_result;

64499

char * rettype;

64500

64501

clientData = clientData; objv = objv;

64502

tcl_result = Tcl_GetObjResult(interp);

64503

if ((objc < 2) || (objc > 2)) {

64504

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_slid_get { ib_cong_log_event_sw_t * } ",-1);

64505

return TCL_ERROR;

64506

}

64507

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64508

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_slid_get. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64509

Tcl_AppendToObj(tcl_result, rettype, -1);

64510

return TCL_ERROR;

64511

}

64512

{

64513

/* we can check if IBIS was initialized here */

64514

if (!IbisObj.initialized)

64515

{

64516

Tcl_SetStringObj(

64517

Tcl_GetObjResult(interp),

64518

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64519

return TCL_ERROR;

64520

}

64521

64522

if (! IbisObj.port_guid)

64523

{

64524

Tcl_SetStringObj(

64525

Tcl_GetObjResult(interp),

64526

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64527

return TCL_ERROR;

64528

}

64529

64530

ibis_tcl_error = 0;

64531

_result = (ib_net16_t *)_ib_cong_log_event_sw_slid_get(_arg0);

64532

;

64533

if (ibis_tcl_error) {

64534

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64535

return TCL_ERROR;

64536

}

64537

} tcl_result = Tcl_GetObjResult(interp);

64538

{

64539

char buff[20];

64540

sprintf(buff, "%u", cl_hton16(*_result));

64541

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64542

}

64543

return TCL_OK;

64544

}

64545

#define _ib_cong_log_event_sw_dlid_set(_swigobj,_swigval) (_swigobj->dlid = *(_swigval),_swigval)

64546

static int _wrap_ib_cong_log_event_sw_t_dlid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64547

64548

ib_net16_t * _result;

64549

ib_cong_log_event_sw_t * _arg0;

64550

ib_net16_t * _arg1;

64551

Tcl_Obj * tcl_result;

64552

char * rettype;

64553

ib_net16_t temp;

64554

64555

clientData = clientData; objv = objv;

64556

tcl_result = Tcl_GetObjResult(interp);

64557

if ((objc < 3) || (objc > 3)) {

64558

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_dlid_set { ib_cong_log_event_sw_t * } { ib_net16_t * } ",-1);

64559

return TCL_ERROR;

64560

}

64561

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64562

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_dlid_set. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64563

Tcl_AppendToObj(tcl_result, rettype, -1);

64564

return TCL_ERROR;

64565

}

64566

{

64567

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

64568

_arg1 = &temp;

64569

}

64570

{

64571

/* we can check if IBIS was initialized here */

64572

if (!IbisObj.initialized)

64573

{

64574

Tcl_SetStringObj(

64575

Tcl_GetObjResult(interp),

64576

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64577

return TCL_ERROR;

64578

}

64579

64580

if (! IbisObj.port_guid)

64581

{

64582

Tcl_SetStringObj(

64583

Tcl_GetObjResult(interp),

64584

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64585

return TCL_ERROR;

64586

}

64587

64588

ibis_tcl_error = 0;

64589

_result = (ib_net16_t *)_ib_cong_log_event_sw_dlid_set(_arg0,_arg1);

64590

;

64591

if (ibis_tcl_error) {

64592

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64593

return TCL_ERROR;

64594

}

64595

} tcl_result = Tcl_GetObjResult(interp);

64596

{

64597

char buff[20];

64598

sprintf(buff, "%u", cl_hton16(*_result));

64599

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64600

}

64601

return TCL_OK;

64602

}

64603

#define _ib_cong_log_event_sw_dlid_get(_swigobj) (&_swigobj->dlid)

64604

static int _wrap_ib_cong_log_event_sw_t_dlid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64605

64606

ib_net16_t * _result;

64607

ib_cong_log_event_sw_t * _arg0;

64608

Tcl_Obj * tcl_result;

64609

char * rettype;

64610

64611

clientData = clientData; objv = objv;

64612

tcl_result = Tcl_GetObjResult(interp);

64613

if ((objc < 2) || (objc > 2)) {

64614

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_dlid_get { ib_cong_log_event_sw_t * } ",-1);

64615

return TCL_ERROR;

64616

}

64617

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64618

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_dlid_get. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64619

Tcl_AppendToObj(tcl_result, rettype, -1);

64620

return TCL_ERROR;

64621

}

64622

{

64623

/* we can check if IBIS was initialized here */

64624

if (!IbisObj.initialized)

64625

{

64626

Tcl_SetStringObj(

64627

Tcl_GetObjResult(interp),

64628

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64629

return TCL_ERROR;

64630

}

64631

64632

if (! IbisObj.port_guid)

64633

{

64634

Tcl_SetStringObj(

64635

Tcl_GetObjResult(interp),

64636

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64637

return TCL_ERROR;

64638

}

64639

64640

ibis_tcl_error = 0;

64641

_result = (ib_net16_t *)_ib_cong_log_event_sw_dlid_get(_arg0);

64642

;

64643

if (ibis_tcl_error) {

64644

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64645

return TCL_ERROR;

64646

}

64647

} tcl_result = Tcl_GetObjResult(interp);

64648

{

64649

char buff[20];

64650

sprintf(buff, "%u", cl_hton16(*_result));

64651

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64652

}

64653

return TCL_OK;

64654

}

64655

#define _ib_cong_log_event_sw_sl_set(_swigobj,_swigval) (_swigobj->sl = *(_swigval),_swigval)

64656

static int _wrap_ib_cong_log_event_sw_t_sl_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64657

64658

ib_net32_t * _result;

64659

ib_cong_log_event_sw_t * _arg0;

64660

ib_net32_t * _arg1;

64661

Tcl_Obj * tcl_result;

64662

char * rettype;

64663

ib_net32_t temp;

64664

64665

clientData = clientData; objv = objv;

64666

tcl_result = Tcl_GetObjResult(interp);

64667

if ((objc < 3) || (objc > 3)) {

64668

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_sl_set { ib_cong_log_event_sw_t * } { ib_net32_t * } ",-1);

64669

return TCL_ERROR;

64670

}

64671

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64672

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_sl_set. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64673

Tcl_AppendToObj(tcl_result, rettype, -1);

64674

return TCL_ERROR;

64675

}

64676

{

64677

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

64678

_arg1 = &temp;

64679

}

64680

{

64681

/* we can check if IBIS was initialized here */

64682

if (!IbisObj.initialized)

64683

{

64684

Tcl_SetStringObj(

64685

Tcl_GetObjResult(interp),

64686

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64687

return TCL_ERROR;

64688

}

64689

64690

if (! IbisObj.port_guid)

64691

{

64692

Tcl_SetStringObj(

64693

Tcl_GetObjResult(interp),

64694

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64695

return TCL_ERROR;

64696

}

64697

64698

ibis_tcl_error = 0;

64699

_result = (ib_net32_t *)_ib_cong_log_event_sw_sl_set(_arg0,_arg1);

64700

;

64701

if (ibis_tcl_error) {

64702

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64703

return TCL_ERROR;

64704

}

64705

} tcl_result = Tcl_GetObjResult(interp);

64706

{

64707

char buff[20];

64708

sprintf(buff, "%u", cl_ntoh32(*_result));

64709

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64710

}

64711

return TCL_OK;

64712

}

64713

#define _ib_cong_log_event_sw_sl_get(_swigobj) (&_swigobj->sl)

64714

static int _wrap_ib_cong_log_event_sw_t_sl_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64715

64716

ib_net32_t * _result;

64717

ib_cong_log_event_sw_t * _arg0;

64718

Tcl_Obj * tcl_result;

64719

char * rettype;

64720

64721

clientData = clientData; objv = objv;

64722

tcl_result = Tcl_GetObjResult(interp);

64723

if ((objc < 2) || (objc > 2)) {

64724

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_sl_get { ib_cong_log_event_sw_t * } ",-1);

64725

return TCL_ERROR;

64726

}

64727

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64728

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_sl_get. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64729

Tcl_AppendToObj(tcl_result, rettype, -1);

64730

return TCL_ERROR;

64731

}

64732

{

64733

/* we can check if IBIS was initialized here */

64734

if (!IbisObj.initialized)

64735

{

64736

Tcl_SetStringObj(

64737

Tcl_GetObjResult(interp),

64738

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64739

return TCL_ERROR;

64740

}

64741

64742

if (! IbisObj.port_guid)

64743

{

64744

Tcl_SetStringObj(

64745

Tcl_GetObjResult(interp),

64746

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64747

return TCL_ERROR;

64748

}

64749

64750

ibis_tcl_error = 0;

64751

_result = (ib_net32_t *)_ib_cong_log_event_sw_sl_get(_arg0);

64752

;

64753

if (ibis_tcl_error) {

64754

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64755

return TCL_ERROR;

64756

}

64757

} tcl_result = Tcl_GetObjResult(interp);

64758

{

64759

char buff[20];

64760

sprintf(buff, "%u", cl_ntoh32(*_result));

64761

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64762

}

64763

return TCL_OK;

64764

}

64765

#define _ib_cong_log_event_sw_time_stamp_set(_swigobj,_swigval) (_swigobj->time_stamp = *(_swigval),_swigval)

64766

static int _wrap_ib_cong_log_event_sw_t_time_stamp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64767

64768

ib_net32_t * _result;

64769

ib_cong_log_event_sw_t * _arg0;

64770

ib_net32_t * _arg1;

64771

Tcl_Obj * tcl_result;

64772

char * rettype;

64773

ib_net32_t temp;

64774

64775

clientData = clientData; objv = objv;

64776

tcl_result = Tcl_GetObjResult(interp);

64777

if ((objc < 3) || (objc > 3)) {

64778

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_time_stamp_set { ib_cong_log_event_sw_t * } { ib_net32_t * } ",-1);

64779

return TCL_ERROR;

64780

}

64781

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64782

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_time_stamp_set. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64783

Tcl_AppendToObj(tcl_result, rettype, -1);

64784

return TCL_ERROR;

64785

}

64786

{

64787

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

64788

_arg1 = &temp;

64789

}

64790

{

64791

/* we can check if IBIS was initialized here */

64792

if (!IbisObj.initialized)

64793

{

64794

Tcl_SetStringObj(

64795

Tcl_GetObjResult(interp),

64796

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64797

return TCL_ERROR;

64798

}

64799

64800

if (! IbisObj.port_guid)

64801

{

64802

Tcl_SetStringObj(

64803

Tcl_GetObjResult(interp),

64804

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64805

return TCL_ERROR;

64806

}

64807

64808

ibis_tcl_error = 0;

64809

_result = (ib_net32_t *)_ib_cong_log_event_sw_time_stamp_set(_arg0,_arg1);

64810

;

64811

if (ibis_tcl_error) {

64812

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64813

return TCL_ERROR;

64814

}

64815

} tcl_result = Tcl_GetObjResult(interp);

64816

{

64817

char buff[20];

64818

sprintf(buff, "%u", cl_ntoh32(*_result));

64819

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64820

}

64821

return TCL_OK;

64822

}

64823

#define _ib_cong_log_event_sw_time_stamp_get(_swigobj) (&_swigobj->time_stamp)

64824

static int _wrap_ib_cong_log_event_sw_t_time_stamp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

64825

64826

ib_net32_t * _result;

64827

ib_cong_log_event_sw_t * _arg0;

64828

Tcl_Obj * tcl_result;

64829

char * rettype;

64830

64831

clientData = clientData; objv = objv;

64832

tcl_result = Tcl_GetObjResult(interp);

64833

if ((objc < 2) || (objc > 2)) {

64834

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_sw_t_time_stamp_get { ib_cong_log_event_sw_t * } ",-1);

64835

return TCL_ERROR;

64836

}

64837

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_sw_t_p"))) {

64838

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_sw_t_time_stamp_get. Expected _ib_cong_log_event_sw_t_p, received ", -1);

64839

Tcl_AppendToObj(tcl_result, rettype, -1);

64840

return TCL_ERROR;

64841

}

64842

{

64843

/* we can check if IBIS was initialized here */

64844

if (!IbisObj.initialized)

64845

{

64846

Tcl_SetStringObj(

64847

Tcl_GetObjResult(interp),

64848

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

64849

return TCL_ERROR;

64850

}

64851

64852

if (! IbisObj.port_guid)

64853

{

64854

Tcl_SetStringObj(

64855

Tcl_GetObjResult(interp),

64856

" ibis was not yet initialized. please use ibis_set_port before.", -1);

64857

return TCL_ERROR;

64858

}

64859

64860

ibis_tcl_error = 0;

64861

_result = (ib_net32_t *)_ib_cong_log_event_sw_time_stamp_get(_arg0);

64862

;

64863

if (ibis_tcl_error) {

64864

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

64865

return TCL_ERROR;

64866

}

64867

} tcl_result = Tcl_GetObjResult(interp);

64868

{

64869

char buff[20];

64870

sprintf(buff, "%u", cl_ntoh32(*_result));

64871

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

64872

}

64873

return TCL_OK;

64874

}

64875

/* methodcmd8.swg : Tcl8.x method invocation */

64876

64877

static int Tclib_cong_log_event_sw_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

64878

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

64879

char *_str;

64880

int rcode;

64881

Tcl_Obj **objv;

64882

Tcl_Obj *oldarg,*tcl_result,*obj;

64883

int length;

64884

char c;

64885

64886

tcl_result = Tcl_GetObjResult(interp);

64887

objv = (Tcl_Obj **) _objv;

64888

if (objc < 2) {

64889

Tcl_SetStringObj(tcl_result,"ib_cong_log_event_sw_t methods : { dump cget configure }",-1);

64890

return TCL_ERROR;

64891

}

64892

obj = Tcl_NewObj();

64893

SWIG_SetPointerObj(obj,(void *) clientData,"_ib_cong_log_event_sw_t_p");

64894

_str = Tcl_GetStringFromObj(objv[1],&length);

64895

c = *_str;

64896

if (0);

64897

64898

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

64899

int i = 2;

64900

cmd = 0;

64901

while (i+1 < objc) {

64902

_str = Tcl_GetStringFromObj(objv[i],&length);

64903

if (strcmp(_str,"-slid") == 0) {

64904

cmd = _wrap_ib_cong_log_event_sw_t_slid_set;

64905

} else if (strcmp(_str,"-dlid") == 0) {

64906

cmd = _wrap_ib_cong_log_event_sw_t_dlid_set;

64907

} else if (strcmp(_str,"-sl") == 0) {

64908

cmd = _wrap_ib_cong_log_event_sw_t_sl_set;

64909

} else if (strcmp(_str,"-time_stamp") == 0) {

64910

cmd = _wrap_ib_cong_log_event_sw_t_time_stamp_set;

64911

}

64912

if (cmd) {

64913

oldarg = objv[i];

64914

objv[i] = obj;

64915

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

64916

objv[i] = oldarg;

64917

if (rcode == TCL_ERROR) return rcode;

64918

cmd = 0;

64919

} else {

64920

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -slid -dlid -sl -time_stamp }",-1);

64921

return TCL_ERROR;

64922

}

64923

i+=2;

64924

}

64925

if ((i < objc) || (i == 2)) {

64926

Tcl_SetStringObj(tcl_result,"{ -slid -dlid -sl -time_stamp }",-1);

64927

return TCL_ERROR;

64928

}

64929

return TCL_OK;

64930

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

64931

if (objc == 3) {

64932

_str = Tcl_GetStringFromObj(objv[2],&length);

64933

if (0) {}

64934

if (strcmp(_str,"-slid") == 0) {

64935

cmd = _wrap_ib_cong_log_event_sw_t_slid_get;

64936

} else if (strcmp(_str,"-dlid") == 0) {

64937

cmd = _wrap_ib_cong_log_event_sw_t_dlid_get;

64938

} else if (strcmp(_str,"-sl") == 0) {

64939

cmd = _wrap_ib_cong_log_event_sw_t_sl_get;

64940

} else if (strcmp(_str,"-time_stamp") == 0) {

64941

cmd = _wrap_ib_cong_log_event_sw_t_time_stamp_get;

64942

}

64943

else if (strcmp(_str,"-this") == 0) {

64944

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ib_cong_log_event_sw_t_p");

64945

return TCL_OK;

64946

}

64947

if (cmd) {

64948

oldarg = objv[2];

64949

objv[2] = obj;

64950

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

64951

objv[2] = oldarg;

64952

return rcode;

64953

} else {

64954

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -slid -dlid -sl -time_stamp }",-1);

64955

return TCL_ERROR;

64956

}

64957

} else {

64958

Tcl_SetStringObj(tcl_result,"{ -this -slid -dlid -sl -time_stamp }", -1);

64959

return TCL_ERROR;

64960

}

64961

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

64962

if (objc == 2) {

64963

Tcl_Obj *pDumpObj;

64964

pDumpObj = Tcl_NewStringObj("",-1);

64965

Tcl_IncrRefCount(pDumpObj);

64966

cmd = _wrap_ib_cong_log_event_sw_t_slid_get;

64967

oldarg = objv[2];

64968

objv[2] = obj;

64969

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64970

objv[2] = oldarg;

64971

Tcl_AppendStringsToObj(pDumpObj, "-slid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64972

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64973

cmd = _wrap_ib_cong_log_event_sw_t_dlid_get;

64974

oldarg = objv[2];

64975

objv[2] = obj;

64976

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64977

objv[2] = oldarg;

64978

Tcl_AppendStringsToObj(pDumpObj, "-dlid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64979

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64980

cmd = _wrap_ib_cong_log_event_sw_t_sl_get;

64981

oldarg = objv[2];

64982

objv[2] = obj;

64983

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64984

objv[2] = oldarg;

64985

Tcl_AppendStringsToObj(pDumpObj, "-sl ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64986

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64987

cmd = _wrap_ib_cong_log_event_sw_t_time_stamp_get;

64988

oldarg = objv[2];

64989

objv[2] = obj;

64990

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

64991

objv[2] = oldarg;

64992

Tcl_AppendStringsToObj(pDumpObj, "-time_stamp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

64993

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

64994

64995

Tcl_DecrRefCount(pDumpObj);

64996

return TCL_OK;

64997

} else {

64998

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

64999

return TCL_ERROR;

65000

}

65001

}

65002

if (!cmd) {

65003

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

65004

return TCL_ERROR;

65005

}

65006

oldarg = objv[1];

65007

objv[1] = obj;

65008

rcode = (*cmd)(clientData,interp,objc,objv);

65009

objv[1] = oldarg;

65010

return rcode;

65011

}

65012

65013

65014

65015

/* objcmd8.swg : Tcl 8.x object creation */

65016

65017

static int Tclib_cong_log_event_sw_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65018

void (*del)(ClientData) = 0;

65019

char *name = 0;

65020

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

65021

ib_cong_log_event_sw_t * newObj = 0;

65022

int firstarg = 0;

65023

int thisarg = 0;

65024

int length;

65025

char *_str;

65026

Tcl_Obj *tcl_result;

65027

65028

tcl_result = Tcl_GetObjResult(interp);

65029

if (objc == 1) {

65030

cmd = 0;

65031

} else {

65032

_str = Tcl_GetStringFromObj(objv[1],&length);

65033

if (strcmp(_str,"-this") == 0) thisarg = 2;

65034

else if (strcmp(_str,"-args") == 0) {

65035

firstarg = 1;

65036

cmd = 0;

65037

} else if (objc == 2) {

65038

firstarg = 1;

65039

name = _str;

65040

cmd = 0;

65041

} else if (objc >= 3) {

65042

name = _str;

65043

_str = Tcl_GetStringFromObj(objv[2],&length);

65044

if (strcmp(_str,"-this") == 0) thisarg = 3;

65045

else {

65046

firstarg = 1;

65047

cmd = 0;

65048

}

65049

}

65050

}

65051

if (cmd) {

65052

int result;

65053

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

65054

if (result == TCL_OK) {

65055

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ib_cong_log_event_sw_t_p");

65056

} else { return result; }

65057

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

65058

del = 0;

65059

} else if (thisarg > 0) {

65060

if (thisarg < objc) {

65061

char *r;

65062

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ib_cong_log_event_sw_t_p");

65063

if (r) {

65064

Tcl_SetStringObj(tcl_result,"Type error. not a ib_cong_log_event_sw_t object.",-1);

65065

return TCL_ERROR;

65066

}

65067

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

65068

Tcl_SetStringObj(tcl_result,name,-1);

65069

} else {

65070

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

65071

return TCL_ERROR;

65072

}

65073

} else {

65074

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

65075

return TCL_ERROR;

65076

}

65077

{

65078

Tcl_CmdInfo dummy;

65079

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

65080

Tcl_CreateObjCommand(interp,name, Tclib_cong_log_event_sw_tMethodCmd, (ClientData) newObj, del);

65081

return TCL_OK;

65082

} else {

65083

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

65084

return TCL_ERROR;

65085

}

65086

}

65087

}

65088

65089

65090

#define _ib_cong_log_event_ca_local_qp_resv0_set(_swigobj,_swigval) (_swigobj->local_qp_resv0 = *(_swigval),_swigval)

65091

static int _wrap_ib_cong_log_event_ca_t_local_qp_resv0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65092

65093

ib_net32_t * _result;

65094

ib_cong_log_event_ca_t * _arg0;

65095

ib_net32_t * _arg1;

65096

Tcl_Obj * tcl_result;

65097

char * rettype;

65098

ib_net32_t temp;

65099

65100

clientData = clientData; objv = objv;

65101

tcl_result = Tcl_GetObjResult(interp);

65102

if ((objc < 3) || (objc > 3)) {

65103

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_local_qp_resv0_set { ib_cong_log_event_ca_t * } { ib_net32_t * } ",-1);

65104

return TCL_ERROR;

65105

}

65106

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65107

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_local_qp_resv0_set. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65108

Tcl_AppendToObj(tcl_result, rettype, -1);

65109

return TCL_ERROR;

65110

}

65111

{

65112

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

65113

_arg1 = &temp;

65114

}

65115

{

65116

/* we can check if IBIS was initialized here */

65117

if (!IbisObj.initialized)

65118

{

65119

Tcl_SetStringObj(

65120

Tcl_GetObjResult(interp),

65121

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65122

return TCL_ERROR;

65123

}

65124

65125

if (! IbisObj.port_guid)

65126

{

65127

Tcl_SetStringObj(

65128

Tcl_GetObjResult(interp),

65129

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65130

return TCL_ERROR;

65131

}

65132

65133

ibis_tcl_error = 0;

65134

_result = (ib_net32_t *)_ib_cong_log_event_ca_local_qp_resv0_set(_arg0,_arg1);

65135

;

65136

if (ibis_tcl_error) {

65137

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65138

return TCL_ERROR;

65139

}

65140

} tcl_result = Tcl_GetObjResult(interp);

65141

{

65142

char buff[20];

65143

sprintf(buff, "%u", cl_ntoh32(*_result));

65144

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65145

}

65146

return TCL_OK;

65147

}

65148

#define _ib_cong_log_event_ca_local_qp_resv0_get(_swigobj) (&_swigobj->local_qp_resv0)

65149

static int _wrap_ib_cong_log_event_ca_t_local_qp_resv0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65150

65151

ib_net32_t * _result;

65152

ib_cong_log_event_ca_t * _arg0;

65153

Tcl_Obj * tcl_result;

65154

char * rettype;

65155

65156

clientData = clientData; objv = objv;

65157

tcl_result = Tcl_GetObjResult(interp);

65158

if ((objc < 2) || (objc > 2)) {

65159

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_local_qp_resv0_get { ib_cong_log_event_ca_t * } ",-1);

65160

return TCL_ERROR;

65161

}

65162

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65163

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_local_qp_resv0_get. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65164

Tcl_AppendToObj(tcl_result, rettype, -1);

65165

return TCL_ERROR;

65166

}

65167

{

65168

/* we can check if IBIS was initialized here */

65169

if (!IbisObj.initialized)

65170

{

65171

Tcl_SetStringObj(

65172

Tcl_GetObjResult(interp),

65173

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65174

return TCL_ERROR;

65175

}

65176

65177

if (! IbisObj.port_guid)

65178

{

65179

Tcl_SetStringObj(

65180

Tcl_GetObjResult(interp),

65181

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65182

return TCL_ERROR;

65183

}

65184

65185

ibis_tcl_error = 0;

65186

_result = (ib_net32_t *)_ib_cong_log_event_ca_local_qp_resv0_get(_arg0);

65187

;

65188

if (ibis_tcl_error) {

65189

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65190

return TCL_ERROR;

65191

}

65192

} tcl_result = Tcl_GetObjResult(interp);

65193

{

65194

char buff[20];

65195

sprintf(buff, "%u", cl_ntoh32(*_result));

65196

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65197

}

65198

return TCL_OK;

65199

}

65200

#define _ib_cong_log_event_ca_remote_qp_sl_service_type_set(_swigobj,_swigval) (_swigobj->remote_qp_sl_service_type = *(_swigval),_swigval)

65201

static int _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65202

65203

ib_net32_t * _result;

65204

ib_cong_log_event_ca_t * _arg0;

65205

ib_net32_t * _arg1;

65206

Tcl_Obj * tcl_result;

65207

char * rettype;

65208

ib_net32_t temp;

65209

65210

clientData = clientData; objv = objv;

65211

tcl_result = Tcl_GetObjResult(interp);

65212

if ((objc < 3) || (objc > 3)) {

65213

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_remote_qp_sl_service_type_set { ib_cong_log_event_ca_t * } { ib_net32_t * } ",-1);

65214

return TCL_ERROR;

65215

}

65216

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65217

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_remote_qp_sl_service_type_set. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65218

Tcl_AppendToObj(tcl_result, rettype, -1);

65219

return TCL_ERROR;

65220

}

65221

{

65222

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

65223

_arg1 = &temp;

65224

}

65225

{

65226

/* we can check if IBIS was initialized here */

65227

if (!IbisObj.initialized)

65228

{

65229

Tcl_SetStringObj(

65230

Tcl_GetObjResult(interp),

65231

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65232

return TCL_ERROR;

65233

}

65234

65235

if (! IbisObj.port_guid)

65236

{

65237

Tcl_SetStringObj(

65238

Tcl_GetObjResult(interp),

65239

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65240

return TCL_ERROR;

65241

}

65242

65243

ibis_tcl_error = 0;

65244

_result = (ib_net32_t *)_ib_cong_log_event_ca_remote_qp_sl_service_type_set(_arg0,_arg1);

65245

;

65246

if (ibis_tcl_error) {

65247

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65248

return TCL_ERROR;

65249

}

65250

} tcl_result = Tcl_GetObjResult(interp);

65251

{

65252

char buff[20];

65253

sprintf(buff, "%u", cl_ntoh32(*_result));

65254

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65255

}

65256

return TCL_OK;

65257

}

65258

#define _ib_cong_log_event_ca_remote_qp_sl_service_type_get(_swigobj) (&_swigobj->remote_qp_sl_service_type)

65259

static int _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65260

65261

ib_net32_t * _result;

65262

ib_cong_log_event_ca_t * _arg0;

65263

Tcl_Obj * tcl_result;

65264

char * rettype;

65265

65266

clientData = clientData; objv = objv;

65267

tcl_result = Tcl_GetObjResult(interp);

65268

if ((objc < 2) || (objc > 2)) {

65269

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_remote_qp_sl_service_type_get { ib_cong_log_event_ca_t * } ",-1);

65270

return TCL_ERROR;

65271

}

65272

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65273

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_remote_qp_sl_service_type_get. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65274

Tcl_AppendToObj(tcl_result, rettype, -1);

65275

return TCL_ERROR;

65276

}

65277

{

65278

/* we can check if IBIS was initialized here */

65279

if (!IbisObj.initialized)

65280

{

65281

Tcl_SetStringObj(

65282

Tcl_GetObjResult(interp),

65283

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65284

return TCL_ERROR;

65285

}

65286

65287

if (! IbisObj.port_guid)

65288

{

65289

Tcl_SetStringObj(

65290

Tcl_GetObjResult(interp),

65291

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65292

return TCL_ERROR;

65293

}

65294

65295

ibis_tcl_error = 0;

65296

_result = (ib_net32_t *)_ib_cong_log_event_ca_remote_qp_sl_service_type_get(_arg0);

65297

;

65298

if (ibis_tcl_error) {

65299

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65300

return TCL_ERROR;

65301

}

65302

} tcl_result = Tcl_GetObjResult(interp);

65303

{

65304

char buff[20];

65305

sprintf(buff, "%u", cl_ntoh32(*_result));

65306

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65307

}

65308

return TCL_OK;

65309

}

65310

#define _ib_cong_log_event_ca_remote_lid_set(_swigobj,_swigval) (_swigobj->remote_lid = *(_swigval),_swigval)

65311

static int _wrap_ib_cong_log_event_ca_t_remote_lid_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65312

65313

ib_net16_t * _result;

65314

ib_cong_log_event_ca_t * _arg0;

65315

ib_net16_t * _arg1;

65316

Tcl_Obj * tcl_result;

65317

char * rettype;

65318

ib_net16_t temp;

65319

65320

clientData = clientData; objv = objv;

65321

tcl_result = Tcl_GetObjResult(interp);

65322

if ((objc < 3) || (objc > 3)) {

65323

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_remote_lid_set { ib_cong_log_event_ca_t * } { ib_net16_t * } ",-1);

65324

return TCL_ERROR;

65325

}

65326

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65327

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_remote_lid_set. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65328

Tcl_AppendToObj(tcl_result, rettype, -1);

65329

return TCL_ERROR;

65330

}

65331

{

65332

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

65333

_arg1 = &temp;

65334

}

65335

{

65336

/* we can check if IBIS was initialized here */

65337

if (!IbisObj.initialized)

65338

{

65339

Tcl_SetStringObj(

65340

Tcl_GetObjResult(interp),

65341

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65342

return TCL_ERROR;

65343

}

65344

65345

if (! IbisObj.port_guid)

65346

{

65347

Tcl_SetStringObj(

65348

Tcl_GetObjResult(interp),

65349

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65350

return TCL_ERROR;

65351

}

65352

65353

ibis_tcl_error = 0;

65354

_result = (ib_net16_t *)_ib_cong_log_event_ca_remote_lid_set(_arg0,_arg1);

65355

;

65356

if (ibis_tcl_error) {

65357

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65358

return TCL_ERROR;

65359

}

65360

} tcl_result = Tcl_GetObjResult(interp);

65361

{

65362

char buff[20];

65363

sprintf(buff, "%u", cl_hton16(*_result));

65364

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65365

}

65366

return TCL_OK;

65367

}

65368

#define _ib_cong_log_event_ca_remote_lid_get(_swigobj) (&_swigobj->remote_lid)

65369

static int _wrap_ib_cong_log_event_ca_t_remote_lid_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65370

65371

ib_net16_t * _result;

65372

ib_cong_log_event_ca_t * _arg0;

65373

Tcl_Obj * tcl_result;

65374

char * rettype;

65375

65376

clientData = clientData; objv = objv;

65377

tcl_result = Tcl_GetObjResult(interp);

65378

if ((objc < 2) || (objc > 2)) {

65379

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_remote_lid_get { ib_cong_log_event_ca_t * } ",-1);

65380

return TCL_ERROR;

65381

}

65382

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65383

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_remote_lid_get. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65384

Tcl_AppendToObj(tcl_result, rettype, -1);

65385

return TCL_ERROR;

65386

}

65387

{

65388

/* we can check if IBIS was initialized here */

65389

if (!IbisObj.initialized)

65390

{

65391

Tcl_SetStringObj(

65392

Tcl_GetObjResult(interp),

65393

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65394

return TCL_ERROR;

65395

}

65396

65397

if (! IbisObj.port_guid)

65398

{

65399

Tcl_SetStringObj(

65400

Tcl_GetObjResult(interp),

65401

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65402

return TCL_ERROR;

65403

}

65404

65405

ibis_tcl_error = 0;

65406

_result = (ib_net16_t *)_ib_cong_log_event_ca_remote_lid_get(_arg0);

65407

;

65408

if (ibis_tcl_error) {

65409

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65410

return TCL_ERROR;

65411

}

65412

} tcl_result = Tcl_GetObjResult(interp);

65413

{

65414

char buff[20];

65415

sprintf(buff, "%u", cl_hton16(*_result));

65416

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65417

}

65418

return TCL_OK;

65419

}

65420

#define _ib_cong_log_event_ca_resv1_set(_swigobj,_swigval) (_swigobj->resv1 = *(_swigval),_swigval)

65421

static int _wrap_ib_cong_log_event_ca_t_resv1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65422

65423

ib_net16_t * _result;

65424

ib_cong_log_event_ca_t * _arg0;

65425

ib_net16_t * _arg1;

65426

Tcl_Obj * tcl_result;

65427

char * rettype;

65428

ib_net16_t temp;

65429

65430

clientData = clientData; objv = objv;

65431

tcl_result = Tcl_GetObjResult(interp);

65432

if ((objc < 3) || (objc > 3)) {

65433

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_resv1_set { ib_cong_log_event_ca_t * } { ib_net16_t * } ",-1);

65434

return TCL_ERROR;

65435

}

65436

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65437

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_resv1_set. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65438

Tcl_AppendToObj(tcl_result, rettype, -1);

65439

return TCL_ERROR;

65440

}

65441

{

65442

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

65443

_arg1 = &temp;

65444

}

65445

{

65446

/* we can check if IBIS was initialized here */

65447

if (!IbisObj.initialized)

65448

{

65449

Tcl_SetStringObj(

65450

Tcl_GetObjResult(interp),

65451

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65452

return TCL_ERROR;

65453

}

65454

65455

if (! IbisObj.port_guid)

65456

{

65457

Tcl_SetStringObj(

65458

Tcl_GetObjResult(interp),

65459

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65460

return TCL_ERROR;

65461

}

65462

65463

ibis_tcl_error = 0;

65464

_result = (ib_net16_t *)_ib_cong_log_event_ca_resv1_set(_arg0,_arg1);

65465

;

65466

if (ibis_tcl_error) {

65467

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65468

return TCL_ERROR;

65469

}

65470

} tcl_result = Tcl_GetObjResult(interp);

65471

{

65472

char buff[20];

65473

sprintf(buff, "%u", cl_hton16(*_result));

65474

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65475

}

65476

return TCL_OK;

65477

}

65478

#define _ib_cong_log_event_ca_resv1_get(_swigobj) (&_swigobj->resv1)

65479

static int _wrap_ib_cong_log_event_ca_t_resv1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65480

65481

ib_net16_t * _result;

65482

ib_cong_log_event_ca_t * _arg0;

65483

Tcl_Obj * tcl_result;

65484

char * rettype;

65485

65486

clientData = clientData; objv = objv;

65487

tcl_result = Tcl_GetObjResult(interp);

65488

if ((objc < 2) || (objc > 2)) {

65489

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_resv1_get { ib_cong_log_event_ca_t * } ",-1);

65490

return TCL_ERROR;

65491

}

65492

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65493

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_resv1_get. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65494

Tcl_AppendToObj(tcl_result, rettype, -1);

65495

return TCL_ERROR;

65496

}

65497

{

65498

/* we can check if IBIS was initialized here */

65499

if (!IbisObj.initialized)

65500

{

65501

Tcl_SetStringObj(

65502

Tcl_GetObjResult(interp),

65503

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65504

return TCL_ERROR;

65505

}

65506

65507

if (! IbisObj.port_guid)

65508

{

65509

Tcl_SetStringObj(

65510

Tcl_GetObjResult(interp),

65511

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65512

return TCL_ERROR;

65513

}

65514

65515

ibis_tcl_error = 0;

65516

_result = (ib_net16_t *)_ib_cong_log_event_ca_resv1_get(_arg0);

65517

;

65518

if (ibis_tcl_error) {

65519

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65520

return TCL_ERROR;

65521

}

65522

} tcl_result = Tcl_GetObjResult(interp);

65523

{

65524

char buff[20];

65525

sprintf(buff, "%u", cl_hton16(*_result));

65526

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65527

}

65528

return TCL_OK;

65529

}

65530

#define _ib_cong_log_event_ca_time_stamp_set(_swigobj,_swigval) (_swigobj->time_stamp = *(_swigval),_swigval)

65531

static int _wrap_ib_cong_log_event_ca_t_time_stamp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65532

65533

ib_net32_t * _result;

65534

ib_cong_log_event_ca_t * _arg0;

65535

ib_net32_t * _arg1;

65536

Tcl_Obj * tcl_result;

65537

char * rettype;

65538

ib_net32_t temp;

65539

65540

clientData = clientData; objv = objv;

65541

tcl_result = Tcl_GetObjResult(interp);

65542

if ((objc < 3) || (objc > 3)) {

65543

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_time_stamp_set { ib_cong_log_event_ca_t * } { ib_net32_t * } ",-1);

65544

return TCL_ERROR;

65545

}

65546

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65547

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_time_stamp_set. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65548

Tcl_AppendToObj(tcl_result, rettype, -1);

65549

return TCL_ERROR;

65550

}

65551

{

65552

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

65553

_arg1 = &temp;

65554

}

65555

{

65556

/* we can check if IBIS was initialized here */

65557

if (!IbisObj.initialized)

65558

{

65559

Tcl_SetStringObj(

65560

Tcl_GetObjResult(interp),

65561

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65562

return TCL_ERROR;

65563

}

65564

65565

if (! IbisObj.port_guid)

65566

{

65567

Tcl_SetStringObj(

65568

Tcl_GetObjResult(interp),

65569

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65570

return TCL_ERROR;

65571

}

65572

65573

ibis_tcl_error = 0;

65574

_result = (ib_net32_t *)_ib_cong_log_event_ca_time_stamp_set(_arg0,_arg1);

65575

;

65576

if (ibis_tcl_error) {

65577

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65578

return TCL_ERROR;

65579

}

65580

} tcl_result = Tcl_GetObjResult(interp);

65581

{

65582

char buff[20];

65583

sprintf(buff, "%u", cl_ntoh32(*_result));

65584

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65585

}

65586

return TCL_OK;

65587

}

65588

#define _ib_cong_log_event_ca_time_stamp_get(_swigobj) (&_swigobj->time_stamp)

65589

static int _wrap_ib_cong_log_event_ca_t_time_stamp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65590

65591

ib_net32_t * _result;

65592

ib_cong_log_event_ca_t * _arg0;

65593

Tcl_Obj * tcl_result;

65594

char * rettype;

65595

65596

clientData = clientData; objv = objv;

65597

tcl_result = Tcl_GetObjResult(interp);

65598

if ((objc < 2) || (objc > 2)) {

65599

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cong_log_event_ca_t_time_stamp_get { ib_cong_log_event_ca_t * } ",-1);

65600

return TCL_ERROR;

65601

}

65602

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cong_log_event_ca_t_p"))) {

65603

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cong_log_event_ca_t_time_stamp_get. Expected _ib_cong_log_event_ca_t_p, received ", -1);

65604

Tcl_AppendToObj(tcl_result, rettype, -1);

65605

return TCL_ERROR;

65606

}

65607

{

65608

/* we can check if IBIS was initialized here */

65609

if (!IbisObj.initialized)

65610

{

65611

Tcl_SetStringObj(

65612

Tcl_GetObjResult(interp),

65613

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65614

return TCL_ERROR;

65615

}

65616

65617

if (! IbisObj.port_guid)

65618

{

65619

Tcl_SetStringObj(

65620

Tcl_GetObjResult(interp),

65621

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65622

return TCL_ERROR;

65623

}

65624

65625

ibis_tcl_error = 0;

65626

_result = (ib_net32_t *)_ib_cong_log_event_ca_time_stamp_get(_arg0);

65627

;

65628

if (ibis_tcl_error) {

65629

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65630

return TCL_ERROR;

65631

}

65632

} tcl_result = Tcl_GetObjResult(interp);

65633

{

65634

char buff[20];

65635

sprintf(buff, "%u", cl_ntoh32(*_result));

65636

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65637

}

65638

return TCL_OK;

65639

}

65640

/* methodcmd8.swg : Tcl8.x method invocation */

65641

65642

static int Tclib_cong_log_event_ca_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

65643

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

65644

char *_str;

65645

int rcode;

65646

Tcl_Obj **objv;

65647

Tcl_Obj *oldarg,*tcl_result,*obj;

65648

int length;

65649

char c;

65650

65651

tcl_result = Tcl_GetObjResult(interp);

65652

objv = (Tcl_Obj **) _objv;

65653

if (objc < 2) {

65654

Tcl_SetStringObj(tcl_result,"ib_cong_log_event_ca_t methods : { dump cget configure }",-1);

65655

return TCL_ERROR;

65656

}

65657

obj = Tcl_NewObj();

65658

SWIG_SetPointerObj(obj,(void *) clientData,"_ib_cong_log_event_ca_t_p");

65659

_str = Tcl_GetStringFromObj(objv[1],&length);

65660

c = *_str;

65661

if (0);

65662

65663

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

65664

int i = 2;

65665

cmd = 0;

65666

while (i+1 < objc) {

65667

_str = Tcl_GetStringFromObj(objv[i],&length);

65668

if (strcmp(_str,"-local_qp_resv0") == 0) {

65669

cmd = _wrap_ib_cong_log_event_ca_t_local_qp_resv0_set;

65670

} else if (strcmp(_str,"-remote_qp_sl_service_type") == 0) {

65671

cmd = _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_set;

65672

} else if (strcmp(_str,"-remote_lid") == 0) {

65673

cmd = _wrap_ib_cong_log_event_ca_t_remote_lid_set;

65674

} else if (strcmp(_str,"-resv1") == 0) {

65675

cmd = _wrap_ib_cong_log_event_ca_t_resv1_set;

65676

} else if (strcmp(_str,"-time_stamp") == 0) {

65677

cmd = _wrap_ib_cong_log_event_ca_t_time_stamp_set;

65678

}

65679

if (cmd) {

65680

oldarg = objv[i];

65681

objv[i] = obj;

65682

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

65683

objv[i] = oldarg;

65684

if (rcode == TCL_ERROR) return rcode;

65685

cmd = 0;

65686

} else {

65687

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -local_qp_resv0 -remote_qp_sl_service_type -remote_lid -resv1 -time_stamp }",-1);

65688

return TCL_ERROR;

65689

}

65690

i+=2;

65691

}

65692

if ((i < objc) || (i == 2)) {

65693

Tcl_SetStringObj(tcl_result,"{ -local_qp_resv0 -remote_qp_sl_service_type -remote_lid -resv1 -time_stamp }",-1);

65694

return TCL_ERROR;

65695

}

65696

return TCL_OK;

65697

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

65698

if (objc == 3) {

65699

_str = Tcl_GetStringFromObj(objv[2],&length);

65700

if (0) {}

65701

if (strcmp(_str,"-local_qp_resv0") == 0) {

65702

cmd = _wrap_ib_cong_log_event_ca_t_local_qp_resv0_get;

65703

} else if (strcmp(_str,"-remote_qp_sl_service_type") == 0) {

65704

cmd = _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_get;

65705

} else if (strcmp(_str,"-remote_lid") == 0) {

65706

cmd = _wrap_ib_cong_log_event_ca_t_remote_lid_get;

65707

} else if (strcmp(_str,"-resv1") == 0) {

65708

cmd = _wrap_ib_cong_log_event_ca_t_resv1_get;

65709

} else if (strcmp(_str,"-time_stamp") == 0) {

65710

cmd = _wrap_ib_cong_log_event_ca_t_time_stamp_get;

65711

}

65712

else if (strcmp(_str,"-this") == 0) {

65713

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ib_cong_log_event_ca_t_p");

65714

return TCL_OK;

65715

}

65716

if (cmd) {

65717

oldarg = objv[2];

65718

objv[2] = obj;

65719

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

65720

objv[2] = oldarg;

65721

return rcode;

65722

} else {

65723

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -local_qp_resv0 -remote_qp_sl_service_type -remote_lid -resv1 -time_stamp }",-1);

65724

return TCL_ERROR;

65725

}

65726

} else {

65727

Tcl_SetStringObj(tcl_result,"{ -this -local_qp_resv0 -remote_qp_sl_service_type -remote_lid -resv1 -time_stamp }", -1);

65728

return TCL_ERROR;

65729

}

65730

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

65731

if (objc == 2) {

65732

Tcl_Obj *pDumpObj;

65733

pDumpObj = Tcl_NewStringObj("",-1);

65734

Tcl_IncrRefCount(pDumpObj);

65735

cmd = _wrap_ib_cong_log_event_ca_t_local_qp_resv0_get;

65736

oldarg = objv[2];

65737

objv[2] = obj;

65738

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

65739

objv[2] = oldarg;

65740

Tcl_AppendStringsToObj(pDumpObj, "-local_qp_resv0 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

65741

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

65742

cmd = _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_get;

65743

oldarg = objv[2];

65744

objv[2] = obj;

65745

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

65746

objv[2] = oldarg;

65747

Tcl_AppendStringsToObj(pDumpObj, "-remote_qp_sl_service_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

65748

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

65749

cmd = _wrap_ib_cong_log_event_ca_t_remote_lid_get;

65750

oldarg = objv[2];

65751

objv[2] = obj;

65752

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

65753

objv[2] = oldarg;

65754

Tcl_AppendStringsToObj(pDumpObj, "-remote_lid ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

65755

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

65756

cmd = _wrap_ib_cong_log_event_ca_t_resv1_get;

65757

oldarg = objv[2];

65758

objv[2] = obj;

65759

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

65760

objv[2] = oldarg;

65761

Tcl_AppendStringsToObj(pDumpObj, "-resv1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

65762

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

65763

cmd = _wrap_ib_cong_log_event_ca_t_time_stamp_get;

65764

oldarg = objv[2];

65765

objv[2] = obj;

65766

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

65767

objv[2] = oldarg;

65768

Tcl_AppendStringsToObj(pDumpObj, "-time_stamp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

65769

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

65770

65771

Tcl_DecrRefCount(pDumpObj);

65772

return TCL_OK;

65773

} else {

65774

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

65775

return TCL_ERROR;

65776

}

65777

}

65778

if (!cmd) {

65779

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

65780

return TCL_ERROR;

65781

}

65782

oldarg = objv[1];

65783

objv[1] = obj;

65784

rcode = (*cmd)(clientData,interp,objc,objv);

65785

objv[1] = oldarg;

65786

return rcode;

65787

}

65788

65789

65790

65791

/* objcmd8.swg : Tcl 8.x object creation */

65792

65793

static int Tclib_cong_log_event_ca_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65794

void (*del)(ClientData) = 0;

65795

char *name = 0;

65796

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

65797

ib_cong_log_event_ca_t * newObj = 0;

65798

int firstarg = 0;

65799

int thisarg = 0;

65800

int length;

65801

char *_str;

65802

Tcl_Obj *tcl_result;

65803

65804

tcl_result = Tcl_GetObjResult(interp);

65805

if (objc == 1) {

65806

cmd = 0;

65807

} else {

65808

_str = Tcl_GetStringFromObj(objv[1],&length);

65809

if (strcmp(_str,"-this") == 0) thisarg = 2;

65810

else if (strcmp(_str,"-args") == 0) {

65811

firstarg = 1;

65812

cmd = 0;

65813

} else if (objc == 2) {

65814

firstarg = 1;

65815

name = _str;

65816

cmd = 0;

65817

} else if (objc >= 3) {

65818

name = _str;

65819

_str = Tcl_GetStringFromObj(objv[2],&length);

65820

if (strcmp(_str,"-this") == 0) thisarg = 3;

65821

else {

65822

firstarg = 1;

65823

cmd = 0;

65824

}

65825

}

65826

}

65827

if (cmd) {

65828

int result;

65829

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

65830

if (result == TCL_OK) {

65831

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ib_cong_log_event_ca_t_p");

65832

} else { return result; }

65833

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

65834

del = 0;

65835

} else if (thisarg > 0) {

65836

if (thisarg < objc) {

65837

char *r;

65838

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ib_cong_log_event_ca_t_p");

65839

if (r) {

65840

Tcl_SetStringObj(tcl_result,"Type error. not a ib_cong_log_event_ca_t object.",-1);

65841

return TCL_ERROR;

65842

}

65843

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

65844

Tcl_SetStringObj(tcl_result,name,-1);

65845

} else {

65846

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

65847

return TCL_ERROR;

65848

}

65849

} else {

65850

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

65851

return TCL_ERROR;

65852

}

65853

{

65854

Tcl_CmdInfo dummy;

65855

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

65856

Tcl_CreateObjCommand(interp,name, Tclib_cong_log_event_ca_tMethodCmd, (ClientData) newObj, del);

65857

return TCL_OK;

65858

} else {

65859

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

65860

return TCL_ERROR;

65861

}

65862

}

65863

}

65864

65865

65866

#define _ib_sw_cong_log_log_type_set(_swigobj,_swigval) (_swigobj->log_type = *(_swigval),_swigval)

65867

static int _wrap_ccSWCongestionLog_log_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65868

65869

uint8_t * _result;

65870

ccSWCongestionLog * _arg0;

65871

uint8_t * _arg1;

65872

Tcl_Obj * tcl_result;

65873

char * rettype;

65874

uint8_t temp;

65875

65876

clientData = clientData; objv = objv;

65877

tcl_result = Tcl_GetObjResult(interp);

65878

if ((objc < 3) || (objc > 3)) {

65879

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_log_type_set { ccSWCongestionLog * } { uint8_t * } ",-1);

65880

return TCL_ERROR;

65881

}

65882

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

65883

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_log_type_set. Expected _ccSWCongestionLog_p, received ", -1);

65884

Tcl_AppendToObj(tcl_result, rettype, -1);

65885

return TCL_ERROR;

65886

}

65887

{

65888

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

65889

_arg1 = &temp;

65890

}

65891

{

65892

/* we can check if IBIS was initialized here */

65893

if (!IbisObj.initialized)

65894

{

65895

Tcl_SetStringObj(

65896

Tcl_GetObjResult(interp),

65897

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65898

return TCL_ERROR;

65899

}

65900

65901

if (! IbisObj.port_guid)

65902

{

65903

Tcl_SetStringObj(

65904

Tcl_GetObjResult(interp),

65905

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65906

return TCL_ERROR;

65907

}

65908

65909

ibis_tcl_error = 0;

65910

_result = (uint8_t *)_ib_sw_cong_log_log_type_set(_arg0,_arg1);

65911

;

65912

if (ibis_tcl_error) {

65913

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65914

return TCL_ERROR;

65915

}

65916

} tcl_result = Tcl_GetObjResult(interp);

65917

{

65918

char buff[20];

65919

sprintf(buff, "%u", *_result);

65920

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65921

}

65922

return TCL_OK;

65923

}

65924

#define _ib_sw_cong_log_log_type_get(_swigobj) (&_swigobj->log_type)

65925

static int _wrap_ccSWCongestionLog_log_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65926

65927

uint8_t * _result;

65928

ccSWCongestionLog * _arg0;

65929

Tcl_Obj * tcl_result;

65930

char * rettype;

65931

65932

clientData = clientData; objv = objv;

65933

tcl_result = Tcl_GetObjResult(interp);

65934

if ((objc < 2) || (objc > 2)) {

65935

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_log_type_get { ccSWCongestionLog * } ",-1);

65936

return TCL_ERROR;

65937

}

65938

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

65939

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_log_type_get. Expected _ccSWCongestionLog_p, received ", -1);

65940

Tcl_AppendToObj(tcl_result, rettype, -1);

65941

return TCL_ERROR;

65942

}

65943

{

65944

/* we can check if IBIS was initialized here */

65945

if (!IbisObj.initialized)

65946

{

65947

Tcl_SetStringObj(

65948

Tcl_GetObjResult(interp),

65949

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

65950

return TCL_ERROR;

65951

}

65952

65953

if (! IbisObj.port_guid)

65954

{

65955

Tcl_SetStringObj(

65956

Tcl_GetObjResult(interp),

65957

" ibis was not yet initialized. please use ibis_set_port before.", -1);

65958

return TCL_ERROR;

65959

}

65960

65961

ibis_tcl_error = 0;

65962

_result = (uint8_t *)_ib_sw_cong_log_log_type_get(_arg0);

65963

;

65964

if (ibis_tcl_error) {

65965

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

65966

return TCL_ERROR;

65967

}

65968

} tcl_result = Tcl_GetObjResult(interp);

65969

{

65970

char buff[20];

65971

sprintf(buff, "%u", *_result);

65972

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

65973

}

65974

return TCL_OK;

65975

}

65976

#define _ib_sw_cong_log_cong_flags_set(_swigobj,_swigval) (_swigobj->cong_flags = *(_swigval),_swigval)

65977

static int _wrap_ccSWCongestionLog_cong_flags_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

65978

65979

uint8_t * _result;

65980

ccSWCongestionLog * _arg0;

65981

uint8_t * _arg1;

65982

Tcl_Obj * tcl_result;

65983

char * rettype;

65984

uint8_t temp;

65985

65986

clientData = clientData; objv = objv;

65987

tcl_result = Tcl_GetObjResult(interp);

65988

if ((objc < 3) || (objc > 3)) {

65989

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_cong_flags_set { ccSWCongestionLog * } { uint8_t * } ",-1);

65990

return TCL_ERROR;

65991

}

65992

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

65993

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_cong_flags_set. Expected _ccSWCongestionLog_p, received ", -1);

65994

Tcl_AppendToObj(tcl_result, rettype, -1);

65995

return TCL_ERROR;

65996

}

65997

{

65998

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

65999

_arg1 = &temp;

66000

}

66001

{

66002

/* we can check if IBIS was initialized here */

66003

if (!IbisObj.initialized)

66004

{

66005

Tcl_SetStringObj(

66006

Tcl_GetObjResult(interp),

66007

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66008

return TCL_ERROR;

66009

}

66010

66011

if (! IbisObj.port_guid)

66012

{

66013

Tcl_SetStringObj(

66014

Tcl_GetObjResult(interp),

66015

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66016

return TCL_ERROR;

66017

}

66018

66019

ibis_tcl_error = 0;

66020

_result = (uint8_t *)_ib_sw_cong_log_cong_flags_set(_arg0,_arg1);

66021

;

66022

if (ibis_tcl_error) {

66023

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66024

return TCL_ERROR;

66025

}

66026

} tcl_result = Tcl_GetObjResult(interp);

66027

{

66028

char buff[20];

66029

sprintf(buff, "%u", *_result);

66030

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66031

}

66032

return TCL_OK;

66033

}

66034

#define _ib_sw_cong_log_cong_flags_get(_swigobj) (&_swigobj->cong_flags)

66035

static int _wrap_ccSWCongestionLog_cong_flags_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66036

66037

uint8_t * _result;

66038

ccSWCongestionLog * _arg0;

66039

Tcl_Obj * tcl_result;

66040

char * rettype;

66041

66042

clientData = clientData; objv = objv;

66043

tcl_result = Tcl_GetObjResult(interp);

66044

if ((objc < 2) || (objc > 2)) {

66045

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_cong_flags_get { ccSWCongestionLog * } ",-1);

66046

return TCL_ERROR;

66047

}

66048

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66049

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_cong_flags_get. Expected _ccSWCongestionLog_p, received ", -1);

66050

Tcl_AppendToObj(tcl_result, rettype, -1);

66051

return TCL_ERROR;

66052

}

66053

{

66054

/* we can check if IBIS was initialized here */

66055

if (!IbisObj.initialized)

66056

{

66057

Tcl_SetStringObj(

66058

Tcl_GetObjResult(interp),

66059

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66060

return TCL_ERROR;

66061

}

66062

66063

if (! IbisObj.port_guid)

66064

{

66065

Tcl_SetStringObj(

66066

Tcl_GetObjResult(interp),

66067

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66068

return TCL_ERROR;

66069

}

66070

66071

ibis_tcl_error = 0;

66072

_result = (uint8_t *)_ib_sw_cong_log_cong_flags_get(_arg0);

66073

;

66074

if (ibis_tcl_error) {

66075

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66076

return TCL_ERROR;

66077

}

66078

} tcl_result = Tcl_GetObjResult(interp);

66079

{

66080

char buff[20];

66081

sprintf(buff, "%u", *_result);

66082

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66083

}

66084

return TCL_OK;

66085

}

66086

#define _ib_sw_cong_log_event_counter_set(_swigobj,_swigval) (_swigobj->event_counter = *(_swigval),_swigval)

66087

static int _wrap_ccSWCongestionLog_event_counter_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66088

66089

ib_net16_t * _result;

66090

ccSWCongestionLog * _arg0;

66091

ib_net16_t * _arg1;

66092

Tcl_Obj * tcl_result;

66093

char * rettype;

66094

ib_net16_t temp;

66095

66096

clientData = clientData; objv = objv;

66097

tcl_result = Tcl_GetObjResult(interp);

66098

if ((objc < 3) || (objc > 3)) {

66099

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_event_counter_set { ccSWCongestionLog * } { ib_net16_t * } ",-1);

66100

return TCL_ERROR;

66101

}

66102

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66103

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_event_counter_set. Expected _ccSWCongestionLog_p, received ", -1);

66104

Tcl_AppendToObj(tcl_result, rettype, -1);

66105

return TCL_ERROR;

66106

}

66107

{

66108

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

66109

_arg1 = &temp;

66110

}

66111

{

66112

/* we can check if IBIS was initialized here */

66113

if (!IbisObj.initialized)

66114

{

66115

Tcl_SetStringObj(

66116

Tcl_GetObjResult(interp),

66117

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66118

return TCL_ERROR;

66119

}

66120

66121

if (! IbisObj.port_guid)

66122

{

66123

Tcl_SetStringObj(

66124

Tcl_GetObjResult(interp),

66125

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66126

return TCL_ERROR;

66127

}

66128

66129

ibis_tcl_error = 0;

66130

_result = (ib_net16_t *)_ib_sw_cong_log_event_counter_set(_arg0,_arg1);

66131

;

66132

if (ibis_tcl_error) {

66133

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66134

return TCL_ERROR;

66135

}

66136

} tcl_result = Tcl_GetObjResult(interp);

66137

{

66138

char buff[20];

66139

sprintf(buff, "%u", cl_hton16(*_result));

66140

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66141

}

66142

return TCL_OK;

66143

}

66144

#define _ib_sw_cong_log_event_counter_get(_swigobj) (&_swigobj->event_counter)

66145

static int _wrap_ccSWCongestionLog_event_counter_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66146

66147

ib_net16_t * _result;

66148

ccSWCongestionLog * _arg0;

66149

Tcl_Obj * tcl_result;

66150

char * rettype;

66151

66152

clientData = clientData; objv = objv;

66153

tcl_result = Tcl_GetObjResult(interp);

66154

if ((objc < 2) || (objc > 2)) {

66155

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_event_counter_get { ccSWCongestionLog * } ",-1);

66156

return TCL_ERROR;

66157

}

66158

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66159

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_event_counter_get. Expected _ccSWCongestionLog_p, received ", -1);

66160

Tcl_AppendToObj(tcl_result, rettype, -1);

66161

return TCL_ERROR;

66162

}

66163

{

66164

/* we can check if IBIS was initialized here */

66165

if (!IbisObj.initialized)

66166

{

66167

Tcl_SetStringObj(

66168

Tcl_GetObjResult(interp),

66169

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66170

return TCL_ERROR;

66171

}

66172

66173

if (! IbisObj.port_guid)

66174

{

66175

Tcl_SetStringObj(

66176

Tcl_GetObjResult(interp),

66177

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66178

return TCL_ERROR;

66179

}

66180

66181

ibis_tcl_error = 0;

66182

_result = (ib_net16_t *)_ib_sw_cong_log_event_counter_get(_arg0);

66183

;

66184

if (ibis_tcl_error) {

66185

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66186

return TCL_ERROR;

66187

}

66188

} tcl_result = Tcl_GetObjResult(interp);

66189

{

66190

char buff[20];

66191

sprintf(buff, "%u", cl_hton16(*_result));

66192

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66193

}

66194

return TCL_OK;

66195

}

66196

#define _ib_sw_cong_log_time_stamp_set(_swigobj,_swigval) (_swigobj->time_stamp = *(_swigval),_swigval)

66197

static int _wrap_ccSWCongestionLog_time_stamp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66198

66199

ib_net32_t * _result;

66200

ccSWCongestionLog * _arg0;

66201

ib_net32_t * _arg1;

66202

Tcl_Obj * tcl_result;

66203

char * rettype;

66204

ib_net32_t temp;

66205

66206

clientData = clientData; objv = objv;

66207

tcl_result = Tcl_GetObjResult(interp);

66208

if ((objc < 3) || (objc > 3)) {

66209

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_time_stamp_set { ccSWCongestionLog * } { ib_net32_t * } ",-1);

66210

return TCL_ERROR;

66211

}

66212

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66213

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_time_stamp_set. Expected _ccSWCongestionLog_p, received ", -1);

66214

Tcl_AppendToObj(tcl_result, rettype, -1);

66215

return TCL_ERROR;

66216

}

66217

{

66218

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

66219

_arg1 = &temp;

66220

}

66221

{

66222

/* we can check if IBIS was initialized here */

66223

if (!IbisObj.initialized)

66224

{

66225

Tcl_SetStringObj(

66226

Tcl_GetObjResult(interp),

66227

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66228

return TCL_ERROR;

66229

}

66230

66231

if (! IbisObj.port_guid)

66232

{

66233

Tcl_SetStringObj(

66234

Tcl_GetObjResult(interp),

66235

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66236

return TCL_ERROR;

66237

}

66238

66239

ibis_tcl_error = 0;

66240

_result = (ib_net32_t *)_ib_sw_cong_log_time_stamp_set(_arg0,_arg1);

66241

;

66242

if (ibis_tcl_error) {

66243

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66244

return TCL_ERROR;

66245

}

66246

} tcl_result = Tcl_GetObjResult(interp);

66247

{

66248

char buff[20];

66249

sprintf(buff, "%u", cl_ntoh32(*_result));

66250

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66251

}

66252

return TCL_OK;

66253

}

66254

#define _ib_sw_cong_log_time_stamp_get(_swigobj) (&_swigobj->time_stamp)

66255

static int _wrap_ccSWCongestionLog_time_stamp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66256

66257

ib_net32_t * _result;

66258

ccSWCongestionLog * _arg0;

66259

Tcl_Obj * tcl_result;

66260

char * rettype;

66261

66262

clientData = clientData; objv = objv;

66263

tcl_result = Tcl_GetObjResult(interp);

66264

if ((objc < 2) || (objc > 2)) {

66265

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_time_stamp_get { ccSWCongestionLog * } ",-1);

66266

return TCL_ERROR;

66267

}

66268

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66269

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_time_stamp_get. Expected _ccSWCongestionLog_p, received ", -1);

66270

Tcl_AppendToObj(tcl_result, rettype, -1);

66271

return TCL_ERROR;

66272

}

66273

{

66274

/* we can check if IBIS was initialized here */

66275

if (!IbisObj.initialized)

66276

{

66277

Tcl_SetStringObj(

66278

Tcl_GetObjResult(interp),

66279

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66280

return TCL_ERROR;

66281

}

66282

66283

if (! IbisObj.port_guid)

66284

{

66285

Tcl_SetStringObj(

66286

Tcl_GetObjResult(interp),

66287

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66288

return TCL_ERROR;

66289

}

66290

66291

ibis_tcl_error = 0;

66292

_result = (ib_net32_t *)_ib_sw_cong_log_time_stamp_get(_arg0);

66293

;

66294

if (ibis_tcl_error) {

66295

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66296

return TCL_ERROR;

66297

}

66298

} tcl_result = Tcl_GetObjResult(interp);

66299

{

66300

char buff[20];

66301

sprintf(buff, "%u", cl_ntoh32(*_result));

66302

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

66303

}

66304

return TCL_OK;

66305

}

66306

static uint8_array_t * _ib_sw_cong_log_port_map_set(ccSWCongestionLog *obj, uint8_array_t val[32]) {

66307

{

66308

int i;

66309

for (i=0; i <32 ; i++) {

66310

obj->port_map[i] = *(val+i);

66311

}

66312

}

66313

return (uint8_array_t *) val;

66314

}

66315

static int _wrap_ccSWCongestionLog_port_map_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66316

66317

uint8_array_t * _result;

66318

ccSWCongestionLog * _arg0;

66319

uint8_array_t * _arg1;

66320

Tcl_Obj * tcl_result;

66321

char * rettype;

66322

uint8_t entrys[32];

66323

66324

clientData = clientData; objv = objv;

66325

tcl_result = Tcl_GetObjResult(interp);

66326

if ((objc < 3) || (objc > 3)) {

66327

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_port_map_set { ccSWCongestionLog * } { uint8_array_t * } ",-1);

66328

return TCL_ERROR;

66329

}

66330

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66331

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_port_map_set. Expected _ccSWCongestionLog_p, received ", -1);

66332

Tcl_AppendToObj(tcl_result, rettype, -1);

66333

return TCL_ERROR;

66334

}

66335

{

66336

char *buff;

66337

char *p_ch;

66338

char *last;

66339

long int entry;

66340

66341

int i = 0;

66342

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

66343

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

66344

p_ch = strtok_r(buff, " \t",&last);

66345

while (p_ch && (i < 32))

66346

{

66347

entry = strtol(p_ch, NULL, 0);

66348

if (entry > 0xff)

66349

{

66350

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

66351

return TCL_ERROR;

66352

}

66353

entrys[i++] = entry;

66354

p_ch = strtok_r(NULL, " \t", &last);

66355

}

66356

for (; i < 32; i++) entrys[i] = 0;

66357

66358

free(buff);

66359

_arg1 = entrys;

66360

}

66361

{

66362

/* we can check if IBIS was initialized here */

66363

if (!IbisObj.initialized)

66364

{

66365

Tcl_SetStringObj(

66366

Tcl_GetObjResult(interp),

66367

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66368

return TCL_ERROR;

66369

}

66370

66371

if (! IbisObj.port_guid)

66372

{

66373

Tcl_SetStringObj(

66374

Tcl_GetObjResult(interp),

66375

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66376

return TCL_ERROR;

66377

}

66378

66379

ibis_tcl_error = 0;

66380

_result = (uint8_array_t *)_ib_sw_cong_log_port_map_set(_arg0,_arg1);

66381

;

66382

if (ibis_tcl_error) {

66383

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66384

return TCL_ERROR;

66385

}

66386

} tcl_result = Tcl_GetObjResult(interp);

66387

{

66388

int i;

66389

char buff[8];

66390

for (i=0; i <32 ; i++) {

66391

sprintf(buff, "0x%02x ", *(_result+i));

66392

Tcl_AppendResult(interp, buff, NULL);

66393

}

66394

}

66395

return TCL_OK;

66396

}

66397

#define _ib_sw_cong_log_port_map_get(_swigobj) ((uint8_array_t *) _swigobj->port_map)

66398

static int _wrap_ccSWCongestionLog_port_map_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66399

66400

uint8_array_t * _result;

66401

ccSWCongestionLog * _arg0;

66402

Tcl_Obj * tcl_result;

66403

char * rettype;

66404

66405

clientData = clientData; objv = objv;

66406

tcl_result = Tcl_GetObjResult(interp);

66407

if ((objc < 2) || (objc > 2)) {

66408

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_port_map_get { ccSWCongestionLog * } ",-1);

66409

return TCL_ERROR;

66410

}

66411

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66412

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_port_map_get. Expected _ccSWCongestionLog_p, received ", -1);

66413

Tcl_AppendToObj(tcl_result, rettype, -1);

66414

return TCL_ERROR;

66415

}

66416

{

66417

/* we can check if IBIS was initialized here */

66418

if (!IbisObj.initialized)

66419

{

66420

Tcl_SetStringObj(

66421

Tcl_GetObjResult(interp),

66422

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66423

return TCL_ERROR;

66424

}

66425

66426

if (! IbisObj.port_guid)

66427

{

66428

Tcl_SetStringObj(

66429

Tcl_GetObjResult(interp),

66430

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66431

return TCL_ERROR;

66432

}

66433

66434

ibis_tcl_error = 0;

66435

_result = (uint8_array_t *)_ib_sw_cong_log_port_map_get(_arg0);

66436

;

66437

if (ibis_tcl_error) {

66438

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66439

return TCL_ERROR;

66440

}

66441

} tcl_result = Tcl_GetObjResult(interp);

66442

{

66443

int i;

66444

char buff[8];

66445

for (i=0; i <32 ; i++) {

66446

sprintf(buff, "0x%02x ", *(_result+i));

66447

Tcl_AppendResult(interp, buff, NULL);

66448

}

66449

}

66450

return TCL_OK;

66451

}

66452

static ib_cong_log_event_sw_t * _ib_sw_cong_log_entry_list_set(ccSWCongestionLog *obj, ib_cong_log_event_sw_t val[15]) {

66453

{

66454

int i;

66455

for (i=0; i <15 ; i++) {

66456

obj->entry_list[i] = *(val+i);

66457

}

66458

}

66459

return (ib_cong_log_event_sw_t *) val;

66460

}

66461

static int _wrap_ccSWCongestionLog_entry_list_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66462

66463

ib_cong_log_event_sw_t * _result;

66464

ccSWCongestionLog * _arg0;

66465

ib_cong_log_event_sw_t * _arg1;

66466

Tcl_Obj * tcl_result;

66467

char * rettype;

66468

ib_cong_log_event_sw_t entrys[15];

66469

66470

clientData = clientData; objv = objv;

66471

tcl_result = Tcl_GetObjResult(interp);

66472

if ((objc < 3) || (objc > 3)) {

66473

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_entry_list_set { ccSWCongestionLog * } { ib_cong_log_event_sw_t * } ",-1);

66474

return TCL_ERROR;

66475

}

66476

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66477

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_entry_list_set. Expected _ccSWCongestionLog_p, received ", -1);

66478

Tcl_AppendToObj(tcl_result, rettype, -1);

66479

return TCL_ERROR;

66480

}

66481

{

66482

long int value;

66483

long int entry_index = 0;

66484

int k;

66485

int countSubLists, numElements;

66486

int i = 0;

66487

int option = 0;

66488

Tcl_Obj ** subListObjArray;

66489

Tcl_Obj * tclObj;

66490

66491

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

66492

{

66493

printf("Error: wrong format for SW Congestion Log Event: %s\n",

66494

Tcl_GetStringFromObj(objv[2],NULL));

66495

return TCL_ERROR;

66496

}

66497

66498

/* SW Congestion Log Event List should have up to 15 events */

66499

if (countSubLists > 15)

66500

{

66501

printf("Error: SW Congestion Log Event List should have up to %d events (provided %d)\n",

66502

15, countSubLists);

66503

return TCL_ERROR;

66504

}

66505

66506

/*

66507

* There are two options to configure log_event:

66508

* 1. Configure the whole list by providing list of value groups:

66509

* ccSWCongestionLogMad configure -log_event {{1 2 3 4} {5 6 7 8}}

66510

* 2. Configure specific items from the list by providing index in addition to the above:

66511

* ccSWCongestionLogMad configure -log_event {{4 1 2 3 4} {8 5 6 7 8}}

66512

*/

66513

66514

if (countSubLists > 0) {

66515

66516

/* check how many members does the first substring have */

66517

66518

if (Tcl_ListObjLength(interp, subListObjArray[0], &numElements) != TCL_OK) {

66519

printf("Error: wrong format for SW Congestion Entry: %s\n",

66520

Tcl_GetStringFromObj(subListObjArray[0],NULL));

66521

return TCL_ERROR;

66522

}

66523

66524

if (numElements == 4)

66525

option = 1;

66526

else if (numElements == 5)

66527

option = 2;

66528

else {

66529

printf("Error: wrong number of elements for SW Congestion Entry: %s\n",

66530

Tcl_GetStringFromObj(subListObjArray[0],NULL));

66531

return TCL_ERROR;

66532

}

66533

}

66534

else {

66535

/* if the user didn't specify anything, use option 1,

66536

wich will effectively clear the whole list values */

66537

option = 1;

66538

}

66539

66540

for (i = 0; i < 15; i++) {

66541

entrys[i].slid = 0;

66542

entrys[i].dlid = 0;

66543

entrys[i].sl = 0;

66544

entrys[i].time_stamp = 0;

66545

}

66546

66547

if (option == 1) {

66548

/*

66549

* first option - list of groups of four values

66550

*/

66551

66552

for (i = 0; i < countSubLists; i++) {

66553

66554

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

66555

printf("Error: wrong format for SW Congestion Log Event: %s\n",

66556

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66557

return TCL_ERROR;

66558

}

66559

66560

if (numElements != 4) {

66561

printf("Error: wrong number of elements for SW Congestion Log Event: %s\n",

66562

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66563

return TCL_ERROR;

66564

}

66565

66566

for (k = 0; k < 4; k++) {

66567

66568

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

66569

printf("Error: Fail to obtain the element of SW Congestion Log Event: %s\n",

66570

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66571

return TCL_ERROR;

66572

}

66573

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

66574

switch (k) {

66575

case 0: entrys[i].slid = cl_hton16(value); break;

66576

case 1: entrys[i].dlid = cl_hton16(value); break;

66577

case 2: entrys[i].sl = cl_hton32(value); break;

66578

case 3: entrys[i].time_stamp = cl_hton32(value); break;

66579

default: break;

66580

}

66581

}

66582

}

66583

66584

}

66585

else {

66586

/*

66587

* second option - index and four values

66588

*/

66589

66590

for (i = 0; i < countSubLists; i++) {

66591

66592

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

66593

printf("Error: wrong format for SW Congestion Log Event: %s\n",

66594

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66595

return TCL_ERROR;

66596

}

66597

66598

if (numElements != 5) {

66599

printf("Error: wrong number of elements for SW Congestion Log Event: %s\n",

66600

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66601

return TCL_ERROR;

66602

}

66603

66604

for (k = 0; k < 5; k++) {

66605

66606

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

66607

printf("Error: Fail to obtain the element of SW Congestion Log Event: %s\n",

66608

Tcl_GetStringFromObj(subListObjArray[i],NULL));

66609

return TCL_ERROR;

66610

}

66611

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

66612

switch (k) {

66613

case 0: entry_index = value; break;

66614

case 1: entrys[entry_index].slid = cl_hton16(value); break;

66615

case 2: entrys[entry_index].dlid = cl_hton16(value); break;

66616

case 3: entrys[entry_index].sl = cl_hton32(value); break;

66617

case 4: entrys[entry_index].time_stamp = cl_hton32(value); break;

66618

default: break;

66619

}

66620

}

66621

66622

}

66623

}

66624

66625

_arg1 = entrys;

66626

}

66627

{

66628

/* we can check if IBIS was initialized here */

66629

if (!IbisObj.initialized)

66630

{

66631

Tcl_SetStringObj(

66632

Tcl_GetObjResult(interp),

66633

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66634

return TCL_ERROR;

66635

}

66636

66637

if (! IbisObj.port_guid)

66638

{

66639

Tcl_SetStringObj(

66640

Tcl_GetObjResult(interp),

66641

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66642

return TCL_ERROR;

66643

}

66644

66645

ibis_tcl_error = 0;

66646

_result = (ib_cong_log_event_sw_t *)_ib_sw_cong_log_entry_list_set(_arg0,_arg1);

66647

;

66648

if (ibis_tcl_error) {

66649

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66650

return TCL_ERROR;

66651

}

66652

} tcl_result = Tcl_GetObjResult(interp);

66653

{

66654

int i;

66655

char buff[99];

66656

66657

sprintf(buff, "-entry_list\n ");

66658

Tcl_AppendResult(interp, buff, NULL);

66659

66660

for (i=0; i <15 ; i++) {

66661

sprintf(buff, " {#%02u:", i);

66662

Tcl_AppendResult(interp, buff, NULL);

66663

66664

sprintf(buff, " -slid 0x%04x", cl_ntoh16(_result[i].slid));

66665

Tcl_AppendResult(interp, buff, NULL);

66666

66667

sprintf(buff, " -dlid 0x%04x", cl_ntoh16(_result[i].dlid));

66668

Tcl_AppendResult(interp, buff, NULL);

66669

66670

sprintf(buff, " -sl 0x%08x", cl_ntoh32(_result[i].sl));

66671

Tcl_AppendResult(interp, buff, NULL);

66672

66673

sprintf(buff, " -time_stamp 0x%08x", cl_ntoh32(_result[i].time_stamp));

66674

Tcl_AppendResult(interp, buff, NULL);

66675

66676

sprintf(buff, "}\n ");

66677

Tcl_AppendResult(interp, buff, NULL);

66678

}

66679

}

66680

return TCL_OK;

66681

}

66682

#define _ib_sw_cong_log_entry_list_get(_swigobj) ((ib_cong_log_event_sw_t *) _swigobj->entry_list)

66683

static int _wrap_ccSWCongestionLog_entry_list_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66684

66685

ib_cong_log_event_sw_t * _result;

66686

ccSWCongestionLog * _arg0;

66687

Tcl_Obj * tcl_result;

66688

char * rettype;

66689

66690

clientData = clientData; objv = objv;

66691

tcl_result = Tcl_GetObjResult(interp);

66692

if ((objc < 2) || (objc > 2)) {

66693

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_entry_list_get { ccSWCongestionLog * } ",-1);

66694

return TCL_ERROR;

66695

}

66696

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66697

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_entry_list_get. Expected _ccSWCongestionLog_p, received ", -1);

66698

Tcl_AppendToObj(tcl_result, rettype, -1);

66699

return TCL_ERROR;

66700

}

66701

{

66702

/* we can check if IBIS was initialized here */

66703

if (!IbisObj.initialized)

66704

{

66705

Tcl_SetStringObj(

66706

Tcl_GetObjResult(interp),

66707

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66708

return TCL_ERROR;

66709

}

66710

66711

if (! IbisObj.port_guid)

66712

{

66713

Tcl_SetStringObj(

66714

Tcl_GetObjResult(interp),

66715

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66716

return TCL_ERROR;

66717

}

66718

66719

ibis_tcl_error = 0;

66720

_result = (ib_cong_log_event_sw_t *)_ib_sw_cong_log_entry_list_get(_arg0);

66721

;

66722

if (ibis_tcl_error) {

66723

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66724

return TCL_ERROR;

66725

}

66726

} tcl_result = Tcl_GetObjResult(interp);

66727

{

66728

int i;

66729

char buff[99];

66730

66731

sprintf(buff, "-entry_list\n ");

66732

Tcl_AppendResult(interp, buff, NULL);

66733

66734

for (i=0; i <15 ; i++) {

66735

sprintf(buff, " {#%02u:", i);

66736

Tcl_AppendResult(interp, buff, NULL);

66737

66738

sprintf(buff, " -slid 0x%04x", cl_ntoh16(_result[i].slid));

66739

Tcl_AppendResult(interp, buff, NULL);

66740

66741

sprintf(buff, " -dlid 0x%04x", cl_ntoh16(_result[i].dlid));

66742

Tcl_AppendResult(interp, buff, NULL);

66743

66744

sprintf(buff, " -sl 0x%08x", cl_ntoh32(_result[i].sl));

66745

Tcl_AppendResult(interp, buff, NULL);

66746

66747

sprintf(buff, " -time_stamp 0x%08x", cl_ntoh32(_result[i].time_stamp));

66748

Tcl_AppendResult(interp, buff, NULL);

66749

66750

sprintf(buff, "}\n ");

66751

Tcl_AppendResult(interp, buff, NULL);

66752

}

66753

}

66754

return TCL_OK;

66755

}

66756

static int ccSWCongestionLog_getByLid(ccSWCongestionLog *self,uint16_t lid) {

66757

return ibcc_send_mad_by_lid (

66758

gp_ibcc,

66759

IBCC_DEAFULT_KEY,

66760

(uint8_t *)self, // log data

66761

sizeof(ccSWCongestionLog), // log data size

66762

NULL, // mgt data

66763

0, // mgt data size

66764

lid,

66765

CL_NTOH16(IB_MAD_ATTR_CONG_LOG),

66766

0, // attribute modifier

66767

IB_MAD_METHOD_GET);

66768

}

66769

static int _wrap_ccSWCongestionLog_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66770

66771

int _result;

66772

ccSWCongestionLog * _arg0;

66773

uint16_t * _arg1;

66774

Tcl_Obj * tcl_result;

66775

char * rettype;

66776

uint16_t temp;

66777

66778

clientData = clientData; objv = objv;

66779

tcl_result = Tcl_GetObjResult(interp);

66780

if ((objc < 3) || (objc > 3)) {

66781

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionLog_getByLid { ccSWCongestionLog * } lid ",-1);

66782

return TCL_ERROR;

66783

}

66784

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionLog_p"))) {

66785

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionLog_getByLid. Expected _ccSWCongestionLog_p, received ", -1);

66786

Tcl_AppendToObj(tcl_result, rettype, -1);

66787

return TCL_ERROR;

66788

}

66789

{

66790

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

66791

_arg1 = &temp;

66792

}

66793

{

66794

/* we can check if IBIS was initialized here */

66795

if (!IbisObj.initialized)

66796

{

66797

Tcl_SetStringObj(

66798

Tcl_GetObjResult(interp),

66799

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

66800

return TCL_ERROR;

66801

}

66802

66803

if (! IbisObj.port_guid)

66804

{

66805

Tcl_SetStringObj(

66806

Tcl_GetObjResult(interp),

66807

" ibis was not yet initialized. please use ibis_set_port before.", -1);

66808

return TCL_ERROR;

66809

}

66810

66811

ibis_tcl_error = 0;

66812

_result = (int )ccSWCongestionLog_getByLid(_arg0,*_arg1);

66813

;

66814

if (ibis_tcl_error) {

66815

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

66816

return TCL_ERROR;

66817

}

66818

} tcl_result = Tcl_GetObjResult(interp);

66819

Tcl_SetIntObj(tcl_result,(long) _result);

66820

return TCL_OK;

66821

}

66822

/* methodcmd8.swg : Tcl8.x method invocation */

66823

66824

static int TclccSWCongestionLogMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

66825

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

66826

char *_str;

66827

int rcode;

66828

Tcl_Obj **objv;

66829

Tcl_Obj *oldarg,*tcl_result,*obj;

66830

int length;

66831

char c;

66832

66833

tcl_result = Tcl_GetObjResult(interp);

66834

objv = (Tcl_Obj **) _objv;

66835

if (objc < 2) {

66836

Tcl_SetStringObj(tcl_result,"ccSWCongestionLog methods : { dump cget configure getByLid }",-1);

66837

return TCL_ERROR;

66838

}

66839

obj = Tcl_NewObj();

66840

SWIG_SetPointerObj(obj,(void *) clientData,"_ccSWCongestionLog_p");

66841

_str = Tcl_GetStringFromObj(objv[1],&length);

66842

c = *_str;

66843

if (0);

66844

if (strcmp(_str,"getByLid") == 0) {

66845

cmd = _wrap_ccSWCongestionLog_getByLid;

66846

}

66847

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

66848

int i = 2;

66849

cmd = 0;

66850

while (i+1 < objc) {

66851

_str = Tcl_GetStringFromObj(objv[i],&length);

66852

if (strcmp(_str,"-log_type") == 0) {

66853

cmd = _wrap_ccSWCongestionLog_log_type_set;

66854

} else if (strcmp(_str,"-cong_flags") == 0) {

66855

cmd = _wrap_ccSWCongestionLog_cong_flags_set;

66856

} else if (strcmp(_str,"-event_counter") == 0) {

66857

cmd = _wrap_ccSWCongestionLog_event_counter_set;

66858

} else if (strcmp(_str,"-time_stamp") == 0) {

66859

cmd = _wrap_ccSWCongestionLog_time_stamp_set;

66860

} else if (strcmp(_str,"-port_map") == 0) {

66861

cmd = _wrap_ccSWCongestionLog_port_map_set;

66862

} else if (strcmp(_str,"-entry_list") == 0) {

66863

cmd = _wrap_ccSWCongestionLog_entry_list_set;

66864

}

66865

if (cmd) {

66866

oldarg = objv[i];

66867

objv[i] = obj;

66868

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

66869

objv[i] = oldarg;

66870

if (rcode == TCL_ERROR) return rcode;

66871

cmd = 0;

66872

} else {

66873

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -log_type -cong_flags -event_counter -time_stamp -port_map -entry_list }",-1);

66874

return TCL_ERROR;

66875

}

66876

i+=2;

66877

}

66878

if ((i < objc) || (i == 2)) {

66879

Tcl_SetStringObj(tcl_result,"{ -log_type -cong_flags -event_counter -time_stamp -port_map -entry_list }",-1);

66880

return TCL_ERROR;

66881

}

66882

return TCL_OK;

66883

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

66884

if (objc == 3) {

66885

_str = Tcl_GetStringFromObj(objv[2],&length);

66886

if (0) {}

66887

if (strcmp(_str,"-log_type") == 0) {

66888

cmd = _wrap_ccSWCongestionLog_log_type_get;

66889

} else if (strcmp(_str,"-cong_flags") == 0) {

66890

cmd = _wrap_ccSWCongestionLog_cong_flags_get;

66891

} else if (strcmp(_str,"-event_counter") == 0) {

66892

cmd = _wrap_ccSWCongestionLog_event_counter_get;

66893

} else if (strcmp(_str,"-time_stamp") == 0) {

66894

cmd = _wrap_ccSWCongestionLog_time_stamp_get;

66895

} else if (strcmp(_str,"-port_map") == 0) {

66896

cmd = _wrap_ccSWCongestionLog_port_map_get;

66897

} else if (strcmp(_str,"-entry_list") == 0) {

66898

cmd = _wrap_ccSWCongestionLog_entry_list_get;

66899

}

66900

else if (strcmp(_str,"-this") == 0) {

66901

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccSWCongestionLog_p");

66902

return TCL_OK;

66903

}

66904

if (cmd) {

66905

oldarg = objv[2];

66906

objv[2] = obj;

66907

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

66908

objv[2] = oldarg;

66909

return rcode;

66910

} else {

66911

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -log_type -cong_flags -event_counter -time_stamp -port_map -entry_list }",-1);

66912

return TCL_ERROR;

66913

}

66914

} else {

66915

Tcl_SetStringObj(tcl_result,"{ -this -log_type -cong_flags -event_counter -time_stamp -port_map -entry_list }", -1);

66916

return TCL_ERROR;

66917

}

66918

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

66919

if (objc == 2) {

66920

Tcl_Obj *pDumpObj;

66921

pDumpObj = Tcl_NewStringObj("",-1);

66922

Tcl_IncrRefCount(pDumpObj);

66923

cmd = _wrap_ccSWCongestionLog_log_type_get;

66924

oldarg = objv[2];

66925

objv[2] = obj;

66926

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66927

objv[2] = oldarg;

66928

Tcl_AppendStringsToObj(pDumpObj, "-log_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66929

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66930

cmd = _wrap_ccSWCongestionLog_cong_flags_get;

66931

oldarg = objv[2];

66932

objv[2] = obj;

66933

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66934

objv[2] = oldarg;

66935

Tcl_AppendStringsToObj(pDumpObj, "-cong_flags ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66936

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66937

cmd = _wrap_ccSWCongestionLog_event_counter_get;

66938

oldarg = objv[2];

66939

objv[2] = obj;

66940

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66941

objv[2] = oldarg;

66942

Tcl_AppendStringsToObj(pDumpObj, "-event_counter ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66943

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66944

cmd = _wrap_ccSWCongestionLog_time_stamp_get;

66945

oldarg = objv[2];

66946

objv[2] = obj;

66947

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66948

objv[2] = oldarg;

66949

Tcl_AppendStringsToObj(pDumpObj, "-time_stamp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66950

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66951

cmd = _wrap_ccSWCongestionLog_port_map_get;

66952

oldarg = objv[2];

66953

objv[2] = obj;

66954

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66955

objv[2] = oldarg;

66956

Tcl_AppendStringsToObj(pDumpObj, "-port_map ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66957

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66958

cmd = _wrap_ccSWCongestionLog_entry_list_get;

66959

oldarg = objv[2];

66960

objv[2] = obj;

66961

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

66962

objv[2] = oldarg;

66963

Tcl_AppendStringsToObj(pDumpObj, "-entry_list ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

66964

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

66965

66966

Tcl_DecrRefCount(pDumpObj);

66967

return TCL_OK;

66968

} else {

66969

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

66970

return TCL_ERROR;

66971

}

66972

}

66973

if (!cmd) {

66974

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid }",-1);

66975

return TCL_ERROR;

66976

}

66977

oldarg = objv[1];

66978

objv[1] = obj;

66979

rcode = (*cmd)(clientData,interp,objc,objv);

66980

objv[1] = oldarg;

66981

return rcode;

66982

}

66983

66984

66985

66986

/* objcmd8.swg : Tcl 8.x object creation */

66987

66988

static int TclccSWCongestionLogCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

66989

void (*del)(ClientData) = 0;

66990

char *name = 0;

66991

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

66992

ccSWCongestionLog * newObj = 0;

66993

int firstarg = 0;

66994

int thisarg = 0;

66995

int length;

66996

char *_str;

66997

Tcl_Obj *tcl_result;

66998

66999

tcl_result = Tcl_GetObjResult(interp);

67000

if (objc == 1) {

67001

cmd = 0;

67002

} else {

67003

_str = Tcl_GetStringFromObj(objv[1],&length);

67004

if (strcmp(_str,"-this") == 0) thisarg = 2;

67005

else if (strcmp(_str,"-args") == 0) {

67006

firstarg = 1;

67007

cmd = 0;

67008

} else if (objc == 2) {

67009

firstarg = 1;

67010

name = _str;

67011

cmd = 0;

67012

} else if (objc >= 3) {

67013

name = _str;

67014

_str = Tcl_GetStringFromObj(objv[2],&length);

67015

if (strcmp(_str,"-this") == 0) thisarg = 3;

67016

else {

67017

firstarg = 1;

67018

cmd = 0;

67019

}

67020

}

67021

}

67022

if (cmd) {

67023

int result;

67024

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

67025

if (result == TCL_OK) {

67026

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccSWCongestionLog_p");

67027

} else { return result; }

67028

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

67029

del = 0;

67030

} else if (thisarg > 0) {

67031

if (thisarg < objc) {

67032

char *r;

67033

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccSWCongestionLog_p");

67034

if (r) {

67035

Tcl_SetStringObj(tcl_result,"Type error. not a ccSWCongestionLog object.",-1);

67036

return TCL_ERROR;

67037

}

67038

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

67039

Tcl_SetStringObj(tcl_result,name,-1);

67040

} else {

67041

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

67042

return TCL_ERROR;

67043

}

67044

} else {

67045

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

67046

return TCL_ERROR;

67047

}

67048

{

67049

Tcl_CmdInfo dummy;

67050

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

67051

Tcl_CreateObjCommand(interp,name, TclccSWCongestionLogMethodCmd, (ClientData) newObj, del);

67052

return TCL_OK;

67053

} else {

67054

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

67055

return TCL_ERROR;

67056

}

67057

}

67058

}

67059

67060

67061

#define _ib_ca_cong_log_log_type_set(_swigobj,_swigval) (_swigobj->log_type = *(_swigval),_swigval)

67062

static int _wrap_ccCACongestionLog_log_type_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67063

67064

uint8_t * _result;

67065

ccCACongestionLog * _arg0;

67066

uint8_t * _arg1;

67067

Tcl_Obj * tcl_result;

67068

char * rettype;

67069

uint8_t temp;

67070

67071

clientData = clientData; objv = objv;

67072

tcl_result = Tcl_GetObjResult(interp);

67073

if ((objc < 3) || (objc > 3)) {

67074

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_log_type_set { ccCACongestionLog * } { uint8_t * } ",-1);

67075

return TCL_ERROR;

67076

}

67077

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67078

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_log_type_set. Expected _ccCACongestionLog_p, received ", -1);

67079

Tcl_AppendToObj(tcl_result, rettype, -1);

67080

return TCL_ERROR;

67081

}

67082

{

67083

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

67084

_arg1 = &temp;

67085

}

67086

{

67087

/* we can check if IBIS was initialized here */

67088

if (!IbisObj.initialized)

67089

{

67090

Tcl_SetStringObj(

67091

Tcl_GetObjResult(interp),

67092

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67093

return TCL_ERROR;

67094

}

67095

67096

if (! IbisObj.port_guid)

67097

{

67098

Tcl_SetStringObj(

67099

Tcl_GetObjResult(interp),

67100

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67101

return TCL_ERROR;

67102

}

67103

67104

ibis_tcl_error = 0;

67105

_result = (uint8_t *)_ib_ca_cong_log_log_type_set(_arg0,_arg1);

67106

;

67107

if (ibis_tcl_error) {

67108

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67109

return TCL_ERROR;

67110

}

67111

} tcl_result = Tcl_GetObjResult(interp);

67112

{

67113

char buff[20];

67114

sprintf(buff, "%u", *_result);

67115

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67116

}

67117

return TCL_OK;

67118

}

67119

#define _ib_ca_cong_log_log_type_get(_swigobj) (&_swigobj->log_type)

67120

static int _wrap_ccCACongestionLog_log_type_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67121

67122

uint8_t * _result;

67123

ccCACongestionLog * _arg0;

67124

Tcl_Obj * tcl_result;

67125

char * rettype;

67126

67127

clientData = clientData; objv = objv;

67128

tcl_result = Tcl_GetObjResult(interp);

67129

if ((objc < 2) || (objc > 2)) {

67130

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_log_type_get { ccCACongestionLog * } ",-1);

67131

return TCL_ERROR;

67132

}

67133

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67134

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_log_type_get. Expected _ccCACongestionLog_p, received ", -1);

67135

Tcl_AppendToObj(tcl_result, rettype, -1);

67136

return TCL_ERROR;

67137

}

67138

{

67139

/* we can check if IBIS was initialized here */

67140

if (!IbisObj.initialized)

67141

{

67142

Tcl_SetStringObj(

67143

Tcl_GetObjResult(interp),

67144

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67145

return TCL_ERROR;

67146

}

67147

67148

if (! IbisObj.port_guid)

67149

{

67150

Tcl_SetStringObj(

67151

Tcl_GetObjResult(interp),

67152

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67153

return TCL_ERROR;

67154

}

67155

67156

ibis_tcl_error = 0;

67157

_result = (uint8_t *)_ib_ca_cong_log_log_type_get(_arg0);

67158

;

67159

if (ibis_tcl_error) {

67160

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67161

return TCL_ERROR;

67162

}

67163

} tcl_result = Tcl_GetObjResult(interp);

67164

{

67165

char buff[20];

67166

sprintf(buff, "%u", *_result);

67167

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67168

}

67169

return TCL_OK;

67170

}

67171

#define _ib_ca_cong_log_cong_flags_set(_swigobj,_swigval) (_swigobj->cong_flags = *(_swigval),_swigval)

67172

static int _wrap_ccCACongestionLog_cong_flags_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67173

67174

uint8_t * _result;

67175

ccCACongestionLog * _arg0;

67176

uint8_t * _arg1;

67177

Tcl_Obj * tcl_result;

67178

char * rettype;

67179

uint8_t temp;

67180

67181

clientData = clientData; objv = objv;

67182

tcl_result = Tcl_GetObjResult(interp);

67183

if ((objc < 3) || (objc > 3)) {

67184

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_cong_flags_set { ccCACongestionLog * } { uint8_t * } ",-1);

67185

return TCL_ERROR;

67186

}

67187

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67188

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_cong_flags_set. Expected _ccCACongestionLog_p, received ", -1);

67189

Tcl_AppendToObj(tcl_result, rettype, -1);

67190

return TCL_ERROR;

67191

}

67192

{

67193

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

67194

_arg1 = &temp;

67195

}

67196

{

67197

/* we can check if IBIS was initialized here */

67198

if (!IbisObj.initialized)

67199

{

67200

Tcl_SetStringObj(

67201

Tcl_GetObjResult(interp),

67202

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67203

return TCL_ERROR;

67204

}

67205

67206

if (! IbisObj.port_guid)

67207

{

67208

Tcl_SetStringObj(

67209

Tcl_GetObjResult(interp),

67210

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67211

return TCL_ERROR;

67212

}

67213

67214

ibis_tcl_error = 0;

67215

_result = (uint8_t *)_ib_ca_cong_log_cong_flags_set(_arg0,_arg1);

67216

;

67217

if (ibis_tcl_error) {

67218

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67219

return TCL_ERROR;

67220

}

67221

} tcl_result = Tcl_GetObjResult(interp);

67222

{

67223

char buff[20];

67224

sprintf(buff, "%u", *_result);

67225

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67226

}

67227

return TCL_OK;

67228

}

67229

#define _ib_ca_cong_log_cong_flags_get(_swigobj) (&_swigobj->cong_flags)

67230

static int _wrap_ccCACongestionLog_cong_flags_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67231

67232

uint8_t * _result;

67233

ccCACongestionLog * _arg0;

67234

Tcl_Obj * tcl_result;

67235

char * rettype;

67236

67237

clientData = clientData; objv = objv;

67238

tcl_result = Tcl_GetObjResult(interp);

67239

if ((objc < 2) || (objc > 2)) {

67240

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_cong_flags_get { ccCACongestionLog * } ",-1);

67241

return TCL_ERROR;

67242

}

67243

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67244

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_cong_flags_get. Expected _ccCACongestionLog_p, received ", -1);

67245

Tcl_AppendToObj(tcl_result, rettype, -1);

67246

return TCL_ERROR;

67247

}

67248

{

67249

/* we can check if IBIS was initialized here */

67250

if (!IbisObj.initialized)

67251

{

67252

Tcl_SetStringObj(

67253

Tcl_GetObjResult(interp),

67254

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67255

return TCL_ERROR;

67256

}

67257

67258

if (! IbisObj.port_guid)

67259

{

67260

Tcl_SetStringObj(

67261

Tcl_GetObjResult(interp),

67262

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67263

return TCL_ERROR;

67264

}

67265

67266

ibis_tcl_error = 0;

67267

_result = (uint8_t *)_ib_ca_cong_log_cong_flags_get(_arg0);

67268

;

67269

if (ibis_tcl_error) {

67270

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67271

return TCL_ERROR;

67272

}

67273

} tcl_result = Tcl_GetObjResult(interp);

67274

{

67275

char buff[20];

67276

sprintf(buff, "%u", *_result);

67277

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67278

}

67279

return TCL_OK;

67280

}

67281

#define _ib_ca_cong_log_event_counter_set(_swigobj,_swigval) (_swigobj->event_counter = *(_swigval),_swigval)

67282

static int _wrap_ccCACongestionLog_event_counter_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67283

67284

ib_net16_t * _result;

67285

ccCACongestionLog * _arg0;

67286

ib_net16_t * _arg1;

67287

Tcl_Obj * tcl_result;

67288

char * rettype;

67289

ib_net16_t temp;

67290

67291

clientData = clientData; objv = objv;

67292

tcl_result = Tcl_GetObjResult(interp);

67293

if ((objc < 3) || (objc > 3)) {

67294

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_event_counter_set { ccCACongestionLog * } { ib_net16_t * } ",-1);

67295

return TCL_ERROR;

67296

}

67297

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67298

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_event_counter_set. Expected _ccCACongestionLog_p, received ", -1);

67299

Tcl_AppendToObj(tcl_result, rettype, -1);

67300

return TCL_ERROR;

67301

}

67302

{

67303

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

67304

_arg1 = &temp;

67305

}

67306

{

67307

/* we can check if IBIS was initialized here */

67308

if (!IbisObj.initialized)

67309

{

67310

Tcl_SetStringObj(

67311

Tcl_GetObjResult(interp),

67312

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67313

return TCL_ERROR;

67314

}

67315

67316

if (! IbisObj.port_guid)

67317

{

67318

Tcl_SetStringObj(

67319

Tcl_GetObjResult(interp),

67320

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67321

return TCL_ERROR;

67322

}

67323

67324

ibis_tcl_error = 0;

67325

_result = (ib_net16_t *)_ib_ca_cong_log_event_counter_set(_arg0,_arg1);

67326

;

67327

if (ibis_tcl_error) {

67328

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67329

return TCL_ERROR;

67330

}

67331

} tcl_result = Tcl_GetObjResult(interp);

67332

{

67333

char buff[20];

67334

sprintf(buff, "%u", cl_hton16(*_result));

67335

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67336

}

67337

return TCL_OK;

67338

}

67339

#define _ib_ca_cong_log_event_counter_get(_swigobj) (&_swigobj->event_counter)

67340

static int _wrap_ccCACongestionLog_event_counter_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67341

67342

ib_net16_t * _result;

67343

ccCACongestionLog * _arg0;

67344

Tcl_Obj * tcl_result;

67345

char * rettype;

67346

67347

clientData = clientData; objv = objv;

67348

tcl_result = Tcl_GetObjResult(interp);

67349

if ((objc < 2) || (objc > 2)) {

67350

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_event_counter_get { ccCACongestionLog * } ",-1);

67351

return TCL_ERROR;

67352

}

67353

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67354

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_event_counter_get. Expected _ccCACongestionLog_p, received ", -1);

67355

Tcl_AppendToObj(tcl_result, rettype, -1);

67356

return TCL_ERROR;

67357

}

67358

{

67359

/* we can check if IBIS was initialized here */

67360

if (!IbisObj.initialized)

67361

{

67362

Tcl_SetStringObj(

67363

Tcl_GetObjResult(interp),

67364

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67365

return TCL_ERROR;

67366

}

67367

67368

if (! IbisObj.port_guid)

67369

{

67370

Tcl_SetStringObj(

67371

Tcl_GetObjResult(interp),

67372

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67373

return TCL_ERROR;

67374

}

67375

67376

ibis_tcl_error = 0;

67377

_result = (ib_net16_t *)_ib_ca_cong_log_event_counter_get(_arg0);

67378

;

67379

if (ibis_tcl_error) {

67380

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67381

return TCL_ERROR;

67382

}

67383

} tcl_result = Tcl_GetObjResult(interp);

67384

{

67385

char buff[20];

67386

sprintf(buff, "%u", cl_hton16(*_result));

67387

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67388

}

67389

return TCL_OK;

67390

}

67391

#define _ib_ca_cong_log_event_map_set(_swigobj,_swigval) (_swigobj->event_map = *(_swigval),_swigval)

67392

static int _wrap_ccCACongestionLog_event_map_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67393

67394

ib_net16_t * _result;

67395

ccCACongestionLog * _arg0;

67396

ib_net16_t * _arg1;

67397

Tcl_Obj * tcl_result;

67398

char * rettype;

67399

ib_net16_t temp;

67400

67401

clientData = clientData; objv = objv;

67402

tcl_result = Tcl_GetObjResult(interp);

67403

if ((objc < 3) || (objc > 3)) {

67404

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_event_map_set { ccCACongestionLog * } { ib_net16_t * } ",-1);

67405

return TCL_ERROR;

67406

}

67407

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67408

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_event_map_set. Expected _ccCACongestionLog_p, received ", -1);

67409

Tcl_AppendToObj(tcl_result, rettype, -1);

67410

return TCL_ERROR;

67411

}

67412

{

67413

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

67414

_arg1 = &temp;

67415

}

67416

{

67417

/* we can check if IBIS was initialized here */

67418

if (!IbisObj.initialized)

67419

{

67420

Tcl_SetStringObj(

67421

Tcl_GetObjResult(interp),

67422

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67423

return TCL_ERROR;

67424

}

67425

67426

if (! IbisObj.port_guid)

67427

{

67428

Tcl_SetStringObj(

67429

Tcl_GetObjResult(interp),

67430

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67431

return TCL_ERROR;

67432

}

67433

67434

ibis_tcl_error = 0;

67435

_result = (ib_net16_t *)_ib_ca_cong_log_event_map_set(_arg0,_arg1);

67436

;

67437

if (ibis_tcl_error) {

67438

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67439

return TCL_ERROR;

67440

}

67441

} tcl_result = Tcl_GetObjResult(interp);

67442

{

67443

char buff[20];

67444

sprintf(buff, "%u", cl_hton16(*_result));

67445

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67446

}

67447

return TCL_OK;

67448

}

67449

#define _ib_ca_cong_log_event_map_get(_swigobj) (&_swigobj->event_map)

67450

static int _wrap_ccCACongestionLog_event_map_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67451

67452

ib_net16_t * _result;

67453

ccCACongestionLog * _arg0;

67454

Tcl_Obj * tcl_result;

67455

char * rettype;

67456

67457

clientData = clientData; objv = objv;

67458

tcl_result = Tcl_GetObjResult(interp);

67459

if ((objc < 2) || (objc > 2)) {

67460

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_event_map_get { ccCACongestionLog * } ",-1);

67461

return TCL_ERROR;

67462

}

67463

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67464

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_event_map_get. Expected _ccCACongestionLog_p, received ", -1);

67465

Tcl_AppendToObj(tcl_result, rettype, -1);

67466

return TCL_ERROR;

67467

}

67468

{

67469

/* we can check if IBIS was initialized here */

67470

if (!IbisObj.initialized)

67471

{

67472

Tcl_SetStringObj(

67473

Tcl_GetObjResult(interp),

67474

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67475

return TCL_ERROR;

67476

}

67477

67478

if (! IbisObj.port_guid)

67479

{

67480

Tcl_SetStringObj(

67481

Tcl_GetObjResult(interp),

67482

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67483

return TCL_ERROR;

67484

}

67485

67486

ibis_tcl_error = 0;

67487

_result = (ib_net16_t *)_ib_ca_cong_log_event_map_get(_arg0);

67488

;

67489

if (ibis_tcl_error) {

67490

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67491

return TCL_ERROR;

67492

}

67493

} tcl_result = Tcl_GetObjResult(interp);

67494

{

67495

char buff[20];

67496

sprintf(buff, "%u", cl_hton16(*_result));

67497

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67498

}

67499

return TCL_OK;

67500

}

67501

#define _ib_ca_cong_log_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

67502

static int _wrap_ccCACongestionLog_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67503

67504

ib_net16_t * _result;

67505

ccCACongestionLog * _arg0;

67506

ib_net16_t * _arg1;

67507

Tcl_Obj * tcl_result;

67508

char * rettype;

67509

ib_net16_t temp;

67510

67511

clientData = clientData; objv = objv;

67512

tcl_result = Tcl_GetObjResult(interp);

67513

if ((objc < 3) || (objc > 3)) {

67514

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_resv_set { ccCACongestionLog * } { ib_net16_t * } ",-1);

67515

return TCL_ERROR;

67516

}

67517

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67518

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_resv_set. Expected _ccCACongestionLog_p, received ", -1);

67519

Tcl_AppendToObj(tcl_result, rettype, -1);

67520

return TCL_ERROR;

67521

}

67522

{

67523

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

67524

_arg1 = &temp;

67525

}

67526

{

67527

/* we can check if IBIS was initialized here */

67528

if (!IbisObj.initialized)

67529

{

67530

Tcl_SetStringObj(

67531

Tcl_GetObjResult(interp),

67532

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67533

return TCL_ERROR;

67534

}

67535

67536

if (! IbisObj.port_guid)

67537

{

67538

Tcl_SetStringObj(

67539

Tcl_GetObjResult(interp),

67540

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67541

return TCL_ERROR;

67542

}

67543

67544

ibis_tcl_error = 0;

67545

_result = (ib_net16_t *)_ib_ca_cong_log_resv_set(_arg0,_arg1);

67546

;

67547

if (ibis_tcl_error) {

67548

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67549

return TCL_ERROR;

67550

}

67551

} tcl_result = Tcl_GetObjResult(interp);

67552

{

67553

char buff[20];

67554

sprintf(buff, "%u", cl_hton16(*_result));

67555

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67556

}

67557

return TCL_OK;

67558

}

67559

#define _ib_ca_cong_log_resv_get(_swigobj) (&_swigobj->resv)

67560

static int _wrap_ccCACongestionLog_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67561

67562

ib_net16_t * _result;

67563

ccCACongestionLog * _arg0;

67564

Tcl_Obj * tcl_result;

67565

char * rettype;

67566

67567

clientData = clientData; objv = objv;

67568

tcl_result = Tcl_GetObjResult(interp);

67569

if ((objc < 2) || (objc > 2)) {

67570

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_resv_get { ccCACongestionLog * } ",-1);

67571

return TCL_ERROR;

67572

}

67573

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67574

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_resv_get. Expected _ccCACongestionLog_p, received ", -1);

67575

Tcl_AppendToObj(tcl_result, rettype, -1);

67576

return TCL_ERROR;

67577

}

67578

{

67579

/* we can check if IBIS was initialized here */

67580

if (!IbisObj.initialized)

67581

{

67582

Tcl_SetStringObj(

67583

Tcl_GetObjResult(interp),

67584

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67585

return TCL_ERROR;

67586

}

67587

67588

if (! IbisObj.port_guid)

67589

{

67590

Tcl_SetStringObj(

67591

Tcl_GetObjResult(interp),

67592

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67593

return TCL_ERROR;

67594

}

67595

67596

ibis_tcl_error = 0;

67597

_result = (ib_net16_t *)_ib_ca_cong_log_resv_get(_arg0);

67598

;

67599

if (ibis_tcl_error) {

67600

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67601

return TCL_ERROR;

67602

}

67603

} tcl_result = Tcl_GetObjResult(interp);

67604

{

67605

char buff[20];

67606

sprintf(buff, "%u", cl_hton16(*_result));

67607

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67608

}

67609

return TCL_OK;

67610

}

67611

#define _ib_ca_cong_log_time_stamp_set(_swigobj,_swigval) (_swigobj->time_stamp = *(_swigval),_swigval)

67612

static int _wrap_ccCACongestionLog_time_stamp_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67613

67614

ib_net32_t * _result;

67615

ccCACongestionLog * _arg0;

67616

ib_net32_t * _arg1;

67617

Tcl_Obj * tcl_result;

67618

char * rettype;

67619

ib_net32_t temp;

67620

67621

clientData = clientData; objv = objv;

67622

tcl_result = Tcl_GetObjResult(interp);

67623

if ((objc < 3) || (objc > 3)) {

67624

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_time_stamp_set { ccCACongestionLog * } { ib_net32_t * } ",-1);

67625

return TCL_ERROR;

67626

}

67627

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67628

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_time_stamp_set. Expected _ccCACongestionLog_p, received ", -1);

67629

Tcl_AppendToObj(tcl_result, rettype, -1);

67630

return TCL_ERROR;

67631

}

67632

{

67633

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

67634

_arg1 = &temp;

67635

}

67636

{

67637

/* we can check if IBIS was initialized here */

67638

if (!IbisObj.initialized)

67639

{

67640

Tcl_SetStringObj(

67641

Tcl_GetObjResult(interp),

67642

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67643

return TCL_ERROR;

67644

}

67645

67646

if (! IbisObj.port_guid)

67647

{

67648

Tcl_SetStringObj(

67649

Tcl_GetObjResult(interp),

67650

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67651

return TCL_ERROR;

67652

}

67653

67654

ibis_tcl_error = 0;

67655

_result = (ib_net32_t *)_ib_ca_cong_log_time_stamp_set(_arg0,_arg1);

67656

;

67657

if (ibis_tcl_error) {

67658

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67659

return TCL_ERROR;

67660

}

67661

} tcl_result = Tcl_GetObjResult(interp);

67662

{

67663

char buff[20];

67664

sprintf(buff, "%u", cl_ntoh32(*_result));

67665

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67666

}

67667

return TCL_OK;

67668

}

67669

#define _ib_ca_cong_log_time_stamp_get(_swigobj) (&_swigobj->time_stamp)

67670

static int _wrap_ccCACongestionLog_time_stamp_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67671

67672

ib_net32_t * _result;

67673

ccCACongestionLog * _arg0;

67674

Tcl_Obj * tcl_result;

67675

char * rettype;

67676

67677

clientData = clientData; objv = objv;

67678

tcl_result = Tcl_GetObjResult(interp);

67679

if ((objc < 2) || (objc > 2)) {

67680

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_time_stamp_get { ccCACongestionLog * } ",-1);

67681

return TCL_ERROR;

67682

}

67683

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67684

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_time_stamp_get. Expected _ccCACongestionLog_p, received ", -1);

67685

Tcl_AppendToObj(tcl_result, rettype, -1);

67686

return TCL_ERROR;

67687

}

67688

{

67689

/* we can check if IBIS was initialized here */

67690

if (!IbisObj.initialized)

67691

{

67692

Tcl_SetStringObj(

67693

Tcl_GetObjResult(interp),

67694

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67695

return TCL_ERROR;

67696

}

67697

67698

if (! IbisObj.port_guid)

67699

{

67700

Tcl_SetStringObj(

67701

Tcl_GetObjResult(interp),

67702

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67703

return TCL_ERROR;

67704

}

67705

67706

ibis_tcl_error = 0;

67707

_result = (ib_net32_t *)_ib_ca_cong_log_time_stamp_get(_arg0);

67708

;

67709

if (ibis_tcl_error) {

67710

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67711

return TCL_ERROR;

67712

}

67713

} tcl_result = Tcl_GetObjResult(interp);

67714

{

67715

char buff[20];

67716

sprintf(buff, "%u", cl_ntoh32(*_result));

67717

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

67718

}

67719

return TCL_OK;

67720

}

67721

static ib_cong_log_event_ca_t * _ib_ca_cong_log_log_event_set(ccCACongestionLog *obj, ib_cong_log_event_ca_t val[13]) {

67722

{

67723

int i;

67724

for (i=0; i <13 ; i++) {

67725

obj->log_event[i] = *(val+i);

67726

}

67727

}

67728

return (ib_cong_log_event_ca_t *) val;

67729

}

67730

static int _wrap_ccCACongestionLog_log_event_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67731

67732

ib_cong_log_event_ca_t * _result;

67733

ccCACongestionLog * _arg0;

67734

ib_cong_log_event_ca_t * _arg1;

67735

Tcl_Obj * tcl_result;

67736

char * rettype;

67737

ib_cong_log_event_ca_t entrys[13];

67738

67739

clientData = clientData; objv = objv;

67740

tcl_result = Tcl_GetObjResult(interp);

67741

if ((objc < 3) || (objc > 3)) {

67742

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_log_event_set { ccCACongestionLog * } { ib_cong_log_event_ca_t * } ",-1);

67743

return TCL_ERROR;

67744

}

67745

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67746

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_log_event_set. Expected _ccCACongestionLog_p, received ", -1);

67747

Tcl_AppendToObj(tcl_result, rettype, -1);

67748

return TCL_ERROR;

67749

}

67750

{

67751

long int value;

67752

long int entry_index = 0;

67753

int k;

67754

int countSubLists, numElements;

67755

int i = 0;

67756

int option = 0;

67757

Tcl_Obj ** subListObjArray;

67758

Tcl_Obj * tclObj;

67759

67760

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

67761

{

67762

printf("Error: wrong format for CA Congestion Log Event: %s\n",

67763

Tcl_GetStringFromObj(objv[2],NULL));

67764

return TCL_ERROR;

67765

}

67766

67767

/* CA Congestion Log Event List should have up to 13 events */

67768

if (countSubLists > 13)

67769

{

67770

printf("Error: CA Congestion Log Event List should have up to %d events (provided %d)\n",

67771

13, countSubLists);

67772

return TCL_ERROR;

67773

}

67774

67775

/*

67776

* There are two options to configure log_event:

67777

* 1. Configure the whole list by providing list of value groups:

67778

* ccCACongestionLogMad configure -log_event {{1 2 3 4} {5 6 7 8}}

67779

* 2. Configure specific items from the list by providing index in addition to the above:

67780

* ccCACongestionLogMad configure -log_event {{4 1 2 3 4} {8 5 6 7 8}}

67781

*/

67782

67783

if (countSubLists > 0) {

67784

67785

/* check how many members does the first substring have */

67786

67787

if (Tcl_ListObjLength(interp, subListObjArray[0], &numElements) != TCL_OK) {

67788

printf("Error: wrong format for CA Congestion Entry: %s\n",

67789

Tcl_GetStringFromObj(subListObjArray[0],NULL));

67790

return TCL_ERROR;

67791

}

67792

67793

if (numElements == 4)

67794

option = 1;

67795

else if (numElements == 5)

67796

option = 2;

67797

else {

67798

printf("Error: wrong number of elements for CA Congestion Entry: %s\n",

67799

Tcl_GetStringFromObj(subListObjArray[0],NULL));

67800

return TCL_ERROR;

67801

}

67802

}

67803

else {

67804

/* if the user didn't specify anything, use option 1,

67805

wich will effectively clear the whole list values */

67806

option = 1;

67807

}

67808

67809

for (i = 0; i < 13; i++) {

67810

entrys[i].local_qp_resv0 = 0;

67811

entrys[i].remote_qp_sl_service_type = 0;

67812

entrys[i].remote_lid = 0;

67813

entrys[i].time_stamp = 0;

67814

}

67815

67816

if (option == 1) {

67817

/*

67818

* first option - list of groups of four values

67819

*/

67820

67821

for (i = 0; i < countSubLists; i++) {

67822

67823

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

67824

printf("Error: wrong format for CA Congestion Log Event: %s\n",

67825

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67826

return TCL_ERROR;

67827

}

67828

67829

if (numElements != 4) {

67830

printf("Error: wrong number of elements for CA Congestion Log Event: %s\n",

67831

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67832

return TCL_ERROR;

67833

}

67834

67835

for (k = 0; k < 4; k++) {

67836

67837

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

67838

printf("Error: Fail to obtain the element of CA Congestion Log Event: %s\n",

67839

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67840

return TCL_ERROR;

67841

}

67842

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

67843

switch (k) {

67844

case 0: entrys[i].local_qp_resv0 = cl_hton32(value); break;

67845

case 1: entrys[i].remote_qp_sl_service_type = cl_hton32(value); break;

67846

case 2: entrys[i].remote_lid = cl_hton16(value); break;

67847

case 3: entrys[i].time_stamp = cl_hton32(value); break;

67848

default: break;

67849

}

67850

}

67851

}

67852

67853

}

67854

else {

67855

/*

67856

* second option - index and four values

67857

*/

67858

67859

for (i = 0; i < countSubLists; i++) {

67860

67861

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

67862

printf("Error: wrong format for CA Congestion Log Event: %s\n",

67863

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67864

return TCL_ERROR;

67865

}

67866

67867

if (numElements != 5) {

67868

printf("Error: wrong number of elements for CA Congestion Log Event: %s\n",

67869

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67870

return TCL_ERROR;

67871

}

67872

67873

for (k = 0; k < 5; k++) {

67874

67875

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

67876

printf("Error: Fail to obtain the element of CA Congestion Log Event: %s\n",

67877

Tcl_GetStringFromObj(subListObjArray[i],NULL));

67878

return TCL_ERROR;

67879

}

67880

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

67881

switch (k) {

67882

case 0: entry_index = value; break;

67883

case 1: entrys[entry_index].local_qp_resv0 = cl_hton32(value); break;

67884

case 2: entrys[entry_index].remote_qp_sl_service_type = cl_hton32(value); break;

67885

case 3: entrys[entry_index].remote_lid = cl_hton16(value); break;

67886

case 4: entrys[entry_index].time_stamp = cl_hton32(value); break;

67887

default: break;

67888

}

67889

}

67890

67891

}

67892

}

67893

67894

_arg1 = entrys;

67895

}

67896

{

67897

/* we can check if IBIS was initialized here */

67898

if (!IbisObj.initialized)

67899

{

67900

Tcl_SetStringObj(

67901

Tcl_GetObjResult(interp),

67902

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67903

return TCL_ERROR;

67904

}

67905

67906

if (! IbisObj.port_guid)

67907

{

67908

Tcl_SetStringObj(

67909

Tcl_GetObjResult(interp),

67910

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67911

return TCL_ERROR;

67912

}

67913

67914

ibis_tcl_error = 0;

67915

_result = (ib_cong_log_event_ca_t *)_ib_ca_cong_log_log_event_set(_arg0,_arg1);

67916

;

67917

if (ibis_tcl_error) {

67918

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67919

return TCL_ERROR;

67920

}

67921

} tcl_result = Tcl_GetObjResult(interp);

67922

{

67923

int i;

67924

char buff[99];

67925

67926

sprintf(buff, "-log_event\n ");

67927

Tcl_AppendResult(interp, buff, NULL);

67928

67929

for (i=0; i <13 ; i++) {

67930

sprintf(buff, " {#%02u:", i);

67931

Tcl_AppendResult(interp, buff, NULL);

67932

67933

sprintf(buff, " -local_qp_resv0 0x%08x", cl_ntoh32(_result[i].local_qp_resv0));

67934

Tcl_AppendResult(interp, buff, NULL);

67935

67936

sprintf(buff, " -remote_qp_sl_service_type 0x%08x", cl_ntoh32(_result[i].remote_qp_sl_service_type));

67937

Tcl_AppendResult(interp, buff, NULL);

67938

67939

sprintf(buff, " -remote_lid 0x%04x", cl_ntoh16(_result[i].remote_lid));

67940

Tcl_AppendResult(interp, buff, NULL);

67941

67942

sprintf(buff, " -time_stamp 0x%08x", cl_ntoh32(_result[i].time_stamp));

67943

Tcl_AppendResult(interp, buff, NULL);

67944

67945

sprintf(buff, "}\n ");

67946

Tcl_AppendResult(interp, buff, NULL);

67947

}

67948

}

67949

return TCL_OK;

67950

}

67951

#define _ib_ca_cong_log_log_event_get(_swigobj) ((ib_cong_log_event_ca_t *) _swigobj->log_event)

67952

static int _wrap_ccCACongestionLog_log_event_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

67953

67954

ib_cong_log_event_ca_t * _result;

67955

ccCACongestionLog * _arg0;

67956

Tcl_Obj * tcl_result;

67957

char * rettype;

67958

67959

clientData = clientData; objv = objv;

67960

tcl_result = Tcl_GetObjResult(interp);

67961

if ((objc < 2) || (objc > 2)) {

67962

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_log_event_get { ccCACongestionLog * } ",-1);

67963

return TCL_ERROR;

67964

}

67965

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

67966

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_log_event_get. Expected _ccCACongestionLog_p, received ", -1);

67967

Tcl_AppendToObj(tcl_result, rettype, -1);

67968

return TCL_ERROR;

67969

}

67970

{

67971

/* we can check if IBIS was initialized here */

67972

if (!IbisObj.initialized)

67973

{

67974

Tcl_SetStringObj(

67975

Tcl_GetObjResult(interp),

67976

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

67977

return TCL_ERROR;

67978

}

67979

67980

if (! IbisObj.port_guid)

67981

{

67982

Tcl_SetStringObj(

67983

Tcl_GetObjResult(interp),

67984

" ibis was not yet initialized. please use ibis_set_port before.", -1);

67985

return TCL_ERROR;

67986

}

67987

67988

ibis_tcl_error = 0;

67989

_result = (ib_cong_log_event_ca_t *)_ib_ca_cong_log_log_event_get(_arg0);

67990

;

67991

if (ibis_tcl_error) {

67992

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

67993

return TCL_ERROR;

67994

}

67995

} tcl_result = Tcl_GetObjResult(interp);

67996

{

67997

int i;

67998

char buff[99];

67999

68000

sprintf(buff, "-log_event\n ");

68001

Tcl_AppendResult(interp, buff, NULL);

68002

68003

for (i=0; i <13 ; i++) {

68004

sprintf(buff, " {#%02u:", i);

68005

Tcl_AppendResult(interp, buff, NULL);

68006

68007

sprintf(buff, " -local_qp_resv0 0x%08x", cl_ntoh32(_result[i].local_qp_resv0));

68008

Tcl_AppendResult(interp, buff, NULL);

68009

68010

sprintf(buff, " -remote_qp_sl_service_type 0x%08x", cl_ntoh32(_result[i].remote_qp_sl_service_type));

68011

Tcl_AppendResult(interp, buff, NULL);

68012

68013

sprintf(buff, " -remote_lid 0x%04x", cl_ntoh16(_result[i].remote_lid));

68014

Tcl_AppendResult(interp, buff, NULL);

68015

68016

sprintf(buff, " -time_stamp 0x%08x", cl_ntoh32(_result[i].time_stamp));

68017

Tcl_AppendResult(interp, buff, NULL);

68018

68019

sprintf(buff, "}\n ");

68020

Tcl_AppendResult(interp, buff, NULL);

68021

}

68022

}

68023

return TCL_OK;

68024

}

68025

static int ccCACongestionLog_getByLid(ccCACongestionLog *self,uint16_t lid) {

68026

return ibcc_send_mad_by_lid (

68027

gp_ibcc,

68028

IBCC_DEAFULT_KEY,

68029

(uint8_t *)self, // log data

68030

sizeof(ccCACongestionLog), // log data size

68031

NULL, // mgt data

68032

0, // mgt data size

68033

lid,

68034

CL_NTOH16(IB_MAD_ATTR_CONG_LOG),

68035

0, // attribute modifier

68036

IB_MAD_METHOD_GET);

68037

}

68038

static int _wrap_ccCACongestionLog_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68039

68040

int _result;

68041

ccCACongestionLog * _arg0;

68042

uint16_t * _arg1;

68043

Tcl_Obj * tcl_result;

68044

char * rettype;

68045

uint16_t temp;

68046

68047

clientData = clientData; objv = objv;

68048

tcl_result = Tcl_GetObjResult(interp);

68049

if ((objc < 3) || (objc > 3)) {

68050

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionLog_getByLid { ccCACongestionLog * } lid ",-1);

68051

return TCL_ERROR;

68052

}

68053

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionLog_p"))) {

68054

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionLog_getByLid. Expected _ccCACongestionLog_p, received ", -1);

68055

Tcl_AppendToObj(tcl_result, rettype, -1);

68056

return TCL_ERROR;

68057

}

68058

{

68059

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

68060

_arg1 = &temp;

68061

}

68062

{

68063

/* we can check if IBIS was initialized here */

68064

if (!IbisObj.initialized)

68065

{

68066

Tcl_SetStringObj(

68067

Tcl_GetObjResult(interp),

68068

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68069

return TCL_ERROR;

68070

}

68071

68072

if (! IbisObj.port_guid)

68073

{

68074

Tcl_SetStringObj(

68075

Tcl_GetObjResult(interp),

68076

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68077

return TCL_ERROR;

68078

}

68079

68080

ibis_tcl_error = 0;

68081

_result = (int )ccCACongestionLog_getByLid(_arg0,*_arg1);

68082

;

68083

if (ibis_tcl_error) {

68084

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68085

return TCL_ERROR;

68086

}

68087

} tcl_result = Tcl_GetObjResult(interp);

68088

Tcl_SetIntObj(tcl_result,(long) _result);

68089

return TCL_OK;

68090

}

68091

/* methodcmd8.swg : Tcl8.x method invocation */

68092

68093

static int TclccCACongestionLogMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

68094

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

68095

char *_str;

68096

int rcode;

68097

Tcl_Obj **objv;

68098

Tcl_Obj *oldarg,*tcl_result,*obj;

68099

int length;

68100

char c;

68101

68102

tcl_result = Tcl_GetObjResult(interp);

68103

objv = (Tcl_Obj **) _objv;

68104

if (objc < 2) {

68105

Tcl_SetStringObj(tcl_result,"ccCACongestionLog methods : { dump cget configure getByLid }",-1);

68106

return TCL_ERROR;

68107

}

68108

obj = Tcl_NewObj();

68109

SWIG_SetPointerObj(obj,(void *) clientData,"_ccCACongestionLog_p");

68110

_str = Tcl_GetStringFromObj(objv[1],&length);

68111

c = *_str;

68112

if (0);

68113

if (strcmp(_str,"getByLid") == 0) {

68114

cmd = _wrap_ccCACongestionLog_getByLid;

68115

}

68116

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

68117

int i = 2;

68118

cmd = 0;

68119

while (i+1 < objc) {

68120

_str = Tcl_GetStringFromObj(objv[i],&length);

68121

if (strcmp(_str,"-log_type") == 0) {

68122

cmd = _wrap_ccCACongestionLog_log_type_set;

68123

} else if (strcmp(_str,"-cong_flags") == 0) {

68124

cmd = _wrap_ccCACongestionLog_cong_flags_set;

68125

} else if (strcmp(_str,"-event_counter") == 0) {

68126

cmd = _wrap_ccCACongestionLog_event_counter_set;

68127

} else if (strcmp(_str,"-event_map") == 0) {

68128

cmd = _wrap_ccCACongestionLog_event_map_set;

68129

} else if (strcmp(_str,"-resv") == 0) {

68130

cmd = _wrap_ccCACongestionLog_resv_set;

68131

} else if (strcmp(_str,"-time_stamp") == 0) {

68132

cmd = _wrap_ccCACongestionLog_time_stamp_set;

68133

} else if (strcmp(_str,"-log_event") == 0) {

68134

cmd = _wrap_ccCACongestionLog_log_event_set;

68135

}

68136

if (cmd) {

68137

oldarg = objv[i];

68138

objv[i] = obj;

68139

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

68140

objv[i] = oldarg;

68141

if (rcode == TCL_ERROR) return rcode;

68142

cmd = 0;

68143

} else {

68144

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -log_type -cong_flags -event_counter -event_map -resv -time_stamp -log_event }",-1);

68145

return TCL_ERROR;

68146

}

68147

i+=2;

68148

}

68149

if ((i < objc) || (i == 2)) {

68150

Tcl_SetStringObj(tcl_result,"{ -log_type -cong_flags -event_counter -event_map -resv -time_stamp -log_event }",-1);

68151

return TCL_ERROR;

68152

}

68153

return TCL_OK;

68154

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

68155

if (objc == 3) {

68156

_str = Tcl_GetStringFromObj(objv[2],&length);

68157

if (0) {}

68158

if (strcmp(_str,"-log_type") == 0) {

68159

cmd = _wrap_ccCACongestionLog_log_type_get;

68160

} else if (strcmp(_str,"-cong_flags") == 0) {

68161

cmd = _wrap_ccCACongestionLog_cong_flags_get;

68162

} else if (strcmp(_str,"-event_counter") == 0) {

68163

cmd = _wrap_ccCACongestionLog_event_counter_get;

68164

} else if (strcmp(_str,"-event_map") == 0) {

68165

cmd = _wrap_ccCACongestionLog_event_map_get;

68166

} else if (strcmp(_str,"-resv") == 0) {

68167

cmd = _wrap_ccCACongestionLog_resv_get;

68168

} else if (strcmp(_str,"-time_stamp") == 0) {

68169

cmd = _wrap_ccCACongestionLog_time_stamp_get;

68170

} else if (strcmp(_str,"-log_event") == 0) {

68171

cmd = _wrap_ccCACongestionLog_log_event_get;

68172

}

68173

else if (strcmp(_str,"-this") == 0) {

68174

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccCACongestionLog_p");

68175

return TCL_OK;

68176

}

68177

if (cmd) {

68178

oldarg = objv[2];

68179

objv[2] = obj;

68180

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

68181

objv[2] = oldarg;

68182

return rcode;

68183

} else {

68184

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -log_type -cong_flags -event_counter -event_map -resv -time_stamp -log_event }",-1);

68185

return TCL_ERROR;

68186

}

68187

} else {

68188

Tcl_SetStringObj(tcl_result,"{ -this -log_type -cong_flags -event_counter -event_map -resv -time_stamp -log_event }", -1);

68189

return TCL_ERROR;

68190

}

68191

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

68192

if (objc == 2) {

68193

Tcl_Obj *pDumpObj;

68194

pDumpObj = Tcl_NewStringObj("",-1);

68195

Tcl_IncrRefCount(pDumpObj);

68196

cmd = _wrap_ccCACongestionLog_log_type_get;

68197

oldarg = objv[2];

68198

objv[2] = obj;

68199

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68200

objv[2] = oldarg;

68201

Tcl_AppendStringsToObj(pDumpObj, "-log_type ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68202

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68203

cmd = _wrap_ccCACongestionLog_cong_flags_get;

68204

oldarg = objv[2];

68205

objv[2] = obj;

68206

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68207

objv[2] = oldarg;

68208

Tcl_AppendStringsToObj(pDumpObj, "-cong_flags ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68209

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68210

cmd = _wrap_ccCACongestionLog_event_counter_get;

68211

oldarg = objv[2];

68212

objv[2] = obj;

68213

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68214

objv[2] = oldarg;

68215

Tcl_AppendStringsToObj(pDumpObj, "-event_counter ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68216

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68217

cmd = _wrap_ccCACongestionLog_event_map_get;

68218

oldarg = objv[2];

68219

objv[2] = obj;

68220

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68221

objv[2] = oldarg;

68222

Tcl_AppendStringsToObj(pDumpObj, "-event_map ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68223

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68224

cmd = _wrap_ccCACongestionLog_resv_get;

68225

oldarg = objv[2];

68226

objv[2] = obj;

68227

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68228

objv[2] = oldarg;

68229

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68230

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68231

cmd = _wrap_ccCACongestionLog_time_stamp_get;

68232

oldarg = objv[2];

68233

objv[2] = obj;

68234

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68235

objv[2] = oldarg;

68236

Tcl_AppendStringsToObj(pDumpObj, "-time_stamp ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68237

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68238

cmd = _wrap_ccCACongestionLog_log_event_get;

68239

oldarg = objv[2];

68240

objv[2] = obj;

68241

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

68242

objv[2] = oldarg;

68243

Tcl_AppendStringsToObj(pDumpObj, "-log_event ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

68244

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

68245

68246

Tcl_DecrRefCount(pDumpObj);

68247

return TCL_OK;

68248

} else {

68249

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

68250

return TCL_ERROR;

68251

}

68252

}

68253

if (!cmd) {

68254

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid }",-1);

68255

return TCL_ERROR;

68256

}

68257

oldarg = objv[1];

68258

objv[1] = obj;

68259

rcode = (*cmd)(clientData,interp,objc,objv);

68260

objv[1] = oldarg;

68261

return rcode;

68262

}

68263

68264

68265

68266

/* objcmd8.swg : Tcl 8.x object creation */

68267

68268

static int TclccCACongestionLogCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68269

void (*del)(ClientData) = 0;

68270

char *name = 0;

68271

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

68272

ccCACongestionLog * newObj = 0;

68273

int firstarg = 0;

68274

int thisarg = 0;

68275

int length;

68276

char *_str;

68277

Tcl_Obj *tcl_result;

68278

68279

tcl_result = Tcl_GetObjResult(interp);

68280

if (objc == 1) {

68281

cmd = 0;

68282

} else {

68283

_str = Tcl_GetStringFromObj(objv[1],&length);

68284

if (strcmp(_str,"-this") == 0) thisarg = 2;

68285

else if (strcmp(_str,"-args") == 0) {

68286

firstarg = 1;

68287

cmd = 0;

68288

} else if (objc == 2) {

68289

firstarg = 1;

68290

name = _str;

68291

cmd = 0;

68292

} else if (objc >= 3) {

68293

name = _str;

68294

_str = Tcl_GetStringFromObj(objv[2],&length);

68295

if (strcmp(_str,"-this") == 0) thisarg = 3;

68296

else {

68297

firstarg = 1;

68298

cmd = 0;

68299

}

68300

}

68301

}

68302

if (cmd) {

68303

int result;

68304

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

68305

if (result == TCL_OK) {

68306

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccCACongestionLog_p");

68307

} else { return result; }

68308

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

68309

del = 0;

68310

} else if (thisarg > 0) {

68311

if (thisarg < objc) {

68312

char *r;

68313

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccCACongestionLog_p");

68314

if (r) {

68315

Tcl_SetStringObj(tcl_result,"Type error. not a ccCACongestionLog object.",-1);

68316

return TCL_ERROR;

68317

}

68318

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

68319

Tcl_SetStringObj(tcl_result,name,-1);

68320

} else {

68321

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

68322

return TCL_ERROR;

68323

}

68324

} else {

68325

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

68326

return TCL_ERROR;

68327

}

68328

{

68329

Tcl_CmdInfo dummy;

68330

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

68331

Tcl_CreateObjCommand(interp,name, TclccCACongestionLogMethodCmd, (ClientData) newObj, del);

68332

return TCL_OK;

68333

} else {

68334

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

68335

return TCL_ERROR;

68336

}

68337

}

68338

}

68339

68340

68341

#define _ib_sw_cong_setting_control_map_set(_swigobj,_swigval) (_swigobj->control_map = *(_swigval),_swigval)

68342

static int _wrap_ccSWCongestionSetting_control_map_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68343

68344

ib_net32_t * _result;

68345

ccSWCongestionSetting * _arg0;

68346

ib_net32_t * _arg1;

68347

Tcl_Obj * tcl_result;

68348

char * rettype;

68349

ib_net32_t temp;

68350

68351

clientData = clientData; objv = objv;

68352

tcl_result = Tcl_GetObjResult(interp);

68353

if ((objc < 3) || (objc > 3)) {

68354

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_control_map_set { ccSWCongestionSetting * } { ib_net32_t * } ",-1);

68355

return TCL_ERROR;

68356

}

68357

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68358

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_control_map_set. Expected _ccSWCongestionSetting_p, received ", -1);

68359

Tcl_AppendToObj(tcl_result, rettype, -1);

68360

return TCL_ERROR;

68361

}

68362

{

68363

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

68364

_arg1 = &temp;

68365

}

68366

{

68367

/* we can check if IBIS was initialized here */

68368

if (!IbisObj.initialized)

68369

{

68370

Tcl_SetStringObj(

68371

Tcl_GetObjResult(interp),

68372

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68373

return TCL_ERROR;

68374

}

68375

68376

if (! IbisObj.port_guid)

68377

{

68378

Tcl_SetStringObj(

68379

Tcl_GetObjResult(interp),

68380

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68381

return TCL_ERROR;

68382

}

68383

68384

ibis_tcl_error = 0;

68385

_result = (ib_net32_t *)_ib_sw_cong_setting_control_map_set(_arg0,_arg1);

68386

;

68387

if (ibis_tcl_error) {

68388

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68389

return TCL_ERROR;

68390

}

68391

} tcl_result = Tcl_GetObjResult(interp);

68392

{

68393

char buff[20];

68394

sprintf(buff, "%u", cl_ntoh32(*_result));

68395

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68396

}

68397

return TCL_OK;

68398

}

68399

#define _ib_sw_cong_setting_control_map_get(_swigobj) (&_swigobj->control_map)

68400

static int _wrap_ccSWCongestionSetting_control_map_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68401

68402

ib_net32_t * _result;

68403

ccSWCongestionSetting * _arg0;

68404

Tcl_Obj * tcl_result;

68405

char * rettype;

68406

68407

clientData = clientData; objv = objv;

68408

tcl_result = Tcl_GetObjResult(interp);

68409

if ((objc < 2) || (objc > 2)) {

68410

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_control_map_get { ccSWCongestionSetting * } ",-1);

68411

return TCL_ERROR;

68412

}

68413

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68414

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_control_map_get. Expected _ccSWCongestionSetting_p, received ", -1);

68415

Tcl_AppendToObj(tcl_result, rettype, -1);

68416

return TCL_ERROR;

68417

}

68418

{

68419

/* we can check if IBIS was initialized here */

68420

if (!IbisObj.initialized)

68421

{

68422

Tcl_SetStringObj(

68423

Tcl_GetObjResult(interp),

68424

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68425

return TCL_ERROR;

68426

}

68427

68428

if (! IbisObj.port_guid)

68429

{

68430

Tcl_SetStringObj(

68431

Tcl_GetObjResult(interp),

68432

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68433

return TCL_ERROR;

68434

}

68435

68436

ibis_tcl_error = 0;

68437

_result = (ib_net32_t *)_ib_sw_cong_setting_control_map_get(_arg0);

68438

;

68439

if (ibis_tcl_error) {

68440

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68441

return TCL_ERROR;

68442

}

68443

} tcl_result = Tcl_GetObjResult(interp);

68444

{

68445

char buff[20];

68446

sprintf(buff, "%u", cl_ntoh32(*_result));

68447

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68448

}

68449

return TCL_OK;

68450

}

68451

static uint8_array_t * _ib_sw_cong_setting_victim_mask_set(ccSWCongestionSetting *obj, uint8_array_t val[32]) {

68452

{

68453

int i;

68454

for (i=0; i <32 ; i++) {

68455

obj->victim_mask[i] = *(val+i);

68456

}

68457

}

68458

return (uint8_array_t *) val;

68459

}

68460

static int _wrap_ccSWCongestionSetting_victim_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68461

68462

uint8_array_t * _result;

68463

ccSWCongestionSetting * _arg0;

68464

uint8_array_t * _arg1;

68465

Tcl_Obj * tcl_result;

68466

char * rettype;

68467

uint8_t entrys[32];

68468

68469

clientData = clientData; objv = objv;

68470

tcl_result = Tcl_GetObjResult(interp);

68471

if ((objc < 3) || (objc > 3)) {

68472

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_victim_mask_set { ccSWCongestionSetting * } { uint8_array_t * } ",-1);

68473

return TCL_ERROR;

68474

}

68475

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68476

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_victim_mask_set. Expected _ccSWCongestionSetting_p, received ", -1);

68477

Tcl_AppendToObj(tcl_result, rettype, -1);

68478

return TCL_ERROR;

68479

}

68480

{

68481

char *buff;

68482

char *p_ch;

68483

char *last;

68484

long int entry;

68485

68486

int i = 0;

68487

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

68488

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

68489

p_ch = strtok_r(buff, " \t",&last);

68490

while (p_ch && (i < 32))

68491

{

68492

entry = strtol(p_ch, NULL, 0);

68493

if (entry > 0xff)

68494

{

68495

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

68496

return TCL_ERROR;

68497

}

68498

entrys[i++] = entry;

68499

p_ch = strtok_r(NULL, " \t", &last);

68500

}

68501

for (; i < 32; i++) entrys[i] = 0;

68502

68503

free(buff);

68504

_arg1 = entrys;

68505

}

68506

{

68507

/* we can check if IBIS was initialized here */

68508

if (!IbisObj.initialized)

68509

{

68510

Tcl_SetStringObj(

68511

Tcl_GetObjResult(interp),

68512

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68513

return TCL_ERROR;

68514

}

68515

68516

if (! IbisObj.port_guid)

68517

{

68518

Tcl_SetStringObj(

68519

Tcl_GetObjResult(interp),

68520

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68521

return TCL_ERROR;

68522

}

68523

68524

ibis_tcl_error = 0;

68525

_result = (uint8_array_t *)_ib_sw_cong_setting_victim_mask_set(_arg0,_arg1);

68526

;

68527

if (ibis_tcl_error) {

68528

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68529

return TCL_ERROR;

68530

}

68531

} tcl_result = Tcl_GetObjResult(interp);

68532

{

68533

int i;

68534

char buff[8];

68535

for (i=0; i <32 ; i++) {

68536

sprintf(buff, "0x%02x ", *(_result+i));

68537

Tcl_AppendResult(interp, buff, NULL);

68538

}

68539

}

68540

return TCL_OK;

68541

}

68542

#define _ib_sw_cong_setting_victim_mask_get(_swigobj) ((uint8_array_t *) _swigobj->victim_mask)

68543

static int _wrap_ccSWCongestionSetting_victim_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68544

68545

uint8_array_t * _result;

68546

ccSWCongestionSetting * _arg0;

68547

Tcl_Obj * tcl_result;

68548

char * rettype;

68549

68550

clientData = clientData; objv = objv;

68551

tcl_result = Tcl_GetObjResult(interp);

68552

if ((objc < 2) || (objc > 2)) {

68553

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_victim_mask_get { ccSWCongestionSetting * } ",-1);

68554

return TCL_ERROR;

68555

}

68556

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68557

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_victim_mask_get. Expected _ccSWCongestionSetting_p, received ", -1);

68558

Tcl_AppendToObj(tcl_result, rettype, -1);

68559

return TCL_ERROR;

68560

}

68561

{

68562

/* we can check if IBIS was initialized here */

68563

if (!IbisObj.initialized)

68564

{

68565

Tcl_SetStringObj(

68566

Tcl_GetObjResult(interp),

68567

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68568

return TCL_ERROR;

68569

}

68570

68571

if (! IbisObj.port_guid)

68572

{

68573

Tcl_SetStringObj(

68574

Tcl_GetObjResult(interp),

68575

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68576

return TCL_ERROR;

68577

}

68578

68579

ibis_tcl_error = 0;

68580

_result = (uint8_array_t *)_ib_sw_cong_setting_victim_mask_get(_arg0);

68581

;

68582

if (ibis_tcl_error) {

68583

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68584

return TCL_ERROR;

68585

}

68586

} tcl_result = Tcl_GetObjResult(interp);

68587

{

68588

int i;

68589

char buff[8];

68590

for (i=0; i <32 ; i++) {

68591

sprintf(buff, "0x%02x ", *(_result+i));

68592

Tcl_AppendResult(interp, buff, NULL);

68593

}

68594

}

68595

return TCL_OK;

68596

}

68597

static uint8_array_t * _ib_sw_cong_setting_credit_mask_set(ccSWCongestionSetting *obj, uint8_array_t val[32]) {

68598

{

68599

int i;

68600

for (i=0; i <32 ; i++) {

68601

obj->credit_mask[i] = *(val+i);

68602

}

68603

}

68604

return (uint8_array_t *) val;

68605

}

68606

static int _wrap_ccSWCongestionSetting_credit_mask_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68607

68608

uint8_array_t * _result;

68609

ccSWCongestionSetting * _arg0;

68610

uint8_array_t * _arg1;

68611

Tcl_Obj * tcl_result;

68612

char * rettype;

68613

uint8_t entrys[32];

68614

68615

clientData = clientData; objv = objv;

68616

tcl_result = Tcl_GetObjResult(interp);

68617

if ((objc < 3) || (objc > 3)) {

68618

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_credit_mask_set { ccSWCongestionSetting * } { uint8_array_t * } ",-1);

68619

return TCL_ERROR;

68620

}

68621

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68622

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_credit_mask_set. Expected _ccSWCongestionSetting_p, received ", -1);

68623

Tcl_AppendToObj(tcl_result, rettype, -1);

68624

return TCL_ERROR;

68625

}

68626

{

68627

char *buff;

68628

char *p_ch;

68629

char *last;

68630

long int entry;

68631

68632

int i = 0;

68633

buff = (char *)malloc((strlen(Tcl_GetStringFromObj(objv[2],NULL))+1)*sizeof(char));

68634

strcpy(buff, Tcl_GetStringFromObj(objv[2],NULL));

68635

p_ch = strtok_r(buff, " \t",&last);

68636

while (p_ch && (i < 32))

68637

{

68638

entry = strtol(p_ch, NULL, 0);

68639

if (entry > 0xff)

68640

{

68641

printf("Error: wrong format or out of range value for expected uint8_t entry: %s\n", p_ch);

68642

return TCL_ERROR;

68643

}

68644

entrys[i++] = entry;

68645

p_ch = strtok_r(NULL, " \t", &last);

68646

}

68647

for (; i < 32; i++) entrys[i] = 0;

68648

68649

free(buff);

68650

_arg1 = entrys;

68651

}

68652

{

68653

/* we can check if IBIS was initialized here */

68654

if (!IbisObj.initialized)

68655

{

68656

Tcl_SetStringObj(

68657

Tcl_GetObjResult(interp),

68658

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68659

return TCL_ERROR;

68660

}

68661

68662

if (! IbisObj.port_guid)

68663

{

68664

Tcl_SetStringObj(

68665

Tcl_GetObjResult(interp),

68666

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68667

return TCL_ERROR;

68668

}

68669

68670

ibis_tcl_error = 0;

68671

_result = (uint8_array_t *)_ib_sw_cong_setting_credit_mask_set(_arg0,_arg1);

68672

;

68673

if (ibis_tcl_error) {

68674

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68675

return TCL_ERROR;

68676

}

68677

} tcl_result = Tcl_GetObjResult(interp);

68678

{

68679

int i;

68680

char buff[8];

68681

for (i=0; i <32 ; i++) {

68682

sprintf(buff, "0x%02x ", *(_result+i));

68683

Tcl_AppendResult(interp, buff, NULL);

68684

}

68685

}

68686

return TCL_OK;

68687

}

68688

#define _ib_sw_cong_setting_credit_mask_get(_swigobj) ((uint8_array_t *) _swigobj->credit_mask)

68689

static int _wrap_ccSWCongestionSetting_credit_mask_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68690

68691

uint8_array_t * _result;

68692

ccSWCongestionSetting * _arg0;

68693

Tcl_Obj * tcl_result;

68694

char * rettype;

68695

68696

clientData = clientData; objv = objv;

68697

tcl_result = Tcl_GetObjResult(interp);

68698

if ((objc < 2) || (objc > 2)) {

68699

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_credit_mask_get { ccSWCongestionSetting * } ",-1);

68700

return TCL_ERROR;

68701

}

68702

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68703

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_credit_mask_get. Expected _ccSWCongestionSetting_p, received ", -1);

68704

Tcl_AppendToObj(tcl_result, rettype, -1);

68705

return TCL_ERROR;

68706

}

68707

{

68708

/* we can check if IBIS was initialized here */

68709

if (!IbisObj.initialized)

68710

{

68711

Tcl_SetStringObj(

68712

Tcl_GetObjResult(interp),

68713

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68714

return TCL_ERROR;

68715

}

68716

68717

if (! IbisObj.port_guid)

68718

{

68719

Tcl_SetStringObj(

68720

Tcl_GetObjResult(interp),

68721

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68722

return TCL_ERROR;

68723

}

68724

68725

ibis_tcl_error = 0;

68726

_result = (uint8_array_t *)_ib_sw_cong_setting_credit_mask_get(_arg0);

68727

;

68728

if (ibis_tcl_error) {

68729

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68730

return TCL_ERROR;

68731

}

68732

} tcl_result = Tcl_GetObjResult(interp);

68733

{

68734

int i;

68735

char buff[8];

68736

for (i=0; i <32 ; i++) {

68737

sprintf(buff, "0x%02x ", *(_result+i));

68738

Tcl_AppendResult(interp, buff, NULL);

68739

}

68740

}

68741

return TCL_OK;

68742

}

68743

#define _ib_sw_cong_setting_threshold_resv_set(_swigobj,_swigval) (_swigobj->threshold_resv = *(_swigval),_swigval)

68744

static int _wrap_ccSWCongestionSetting_threshold_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68745

68746

uint8_t * _result;

68747

ccSWCongestionSetting * _arg0;

68748

uint8_t * _arg1;

68749

Tcl_Obj * tcl_result;

68750

char * rettype;

68751

uint8_t temp;

68752

68753

clientData = clientData; objv = objv;

68754

tcl_result = Tcl_GetObjResult(interp);

68755

if ((objc < 3) || (objc > 3)) {

68756

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_threshold_resv_set { ccSWCongestionSetting * } { uint8_t * } ",-1);

68757

return TCL_ERROR;

68758

}

68759

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68760

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_threshold_resv_set. Expected _ccSWCongestionSetting_p, received ", -1);

68761

Tcl_AppendToObj(tcl_result, rettype, -1);

68762

return TCL_ERROR;

68763

}

68764

{

68765

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

68766

_arg1 = &temp;

68767

}

68768

{

68769

/* we can check if IBIS was initialized here */

68770

if (!IbisObj.initialized)

68771

{

68772

Tcl_SetStringObj(

68773

Tcl_GetObjResult(interp),

68774

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68775

return TCL_ERROR;

68776

}

68777

68778

if (! IbisObj.port_guid)

68779

{

68780

Tcl_SetStringObj(

68781

Tcl_GetObjResult(interp),

68782

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68783

return TCL_ERROR;

68784

}

68785

68786

ibis_tcl_error = 0;

68787

_result = (uint8_t *)_ib_sw_cong_setting_threshold_resv_set(_arg0,_arg1);

68788

;

68789

if (ibis_tcl_error) {

68790

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68791

return TCL_ERROR;

68792

}

68793

} tcl_result = Tcl_GetObjResult(interp);

68794

{

68795

char buff[20];

68796

sprintf(buff, "%u", *_result);

68797

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68798

}

68799

return TCL_OK;

68800

}

68801

#define _ib_sw_cong_setting_threshold_resv_get(_swigobj) (&_swigobj->threshold_resv)

68802

static int _wrap_ccSWCongestionSetting_threshold_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68803

68804

uint8_t * _result;

68805

ccSWCongestionSetting * _arg0;

68806

Tcl_Obj * tcl_result;

68807

char * rettype;

68808

68809

clientData = clientData; objv = objv;

68810

tcl_result = Tcl_GetObjResult(interp);

68811

if ((objc < 2) || (objc > 2)) {

68812

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_threshold_resv_get { ccSWCongestionSetting * } ",-1);

68813

return TCL_ERROR;

68814

}

68815

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68816

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_threshold_resv_get. Expected _ccSWCongestionSetting_p, received ", -1);

68817

Tcl_AppendToObj(tcl_result, rettype, -1);

68818

return TCL_ERROR;

68819

}

68820

{

68821

/* we can check if IBIS was initialized here */

68822

if (!IbisObj.initialized)

68823

{

68824

Tcl_SetStringObj(

68825

Tcl_GetObjResult(interp),

68826

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68827

return TCL_ERROR;

68828

}

68829

68830

if (! IbisObj.port_guid)

68831

{

68832

Tcl_SetStringObj(

68833

Tcl_GetObjResult(interp),

68834

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68835

return TCL_ERROR;

68836

}

68837

68838

ibis_tcl_error = 0;

68839

_result = (uint8_t *)_ib_sw_cong_setting_threshold_resv_get(_arg0);

68840

;

68841

if (ibis_tcl_error) {

68842

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68843

return TCL_ERROR;

68844

}

68845

} tcl_result = Tcl_GetObjResult(interp);

68846

{

68847

char buff[20];

68848

sprintf(buff, "%u", *_result);

68849

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68850

}

68851

return TCL_OK;

68852

}

68853

#define _ib_sw_cong_setting_packet_size_set(_swigobj,_swigval) (_swigobj->packet_size = *(_swigval),_swigval)

68854

static int _wrap_ccSWCongestionSetting_packet_size_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68855

68856

uint8_t * _result;

68857

ccSWCongestionSetting * _arg0;

68858

uint8_t * _arg1;

68859

Tcl_Obj * tcl_result;

68860

char * rettype;

68861

uint8_t temp;

68862

68863

clientData = clientData; objv = objv;

68864

tcl_result = Tcl_GetObjResult(interp);

68865

if ((objc < 3) || (objc > 3)) {

68866

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_packet_size_set { ccSWCongestionSetting * } { uint8_t * } ",-1);

68867

return TCL_ERROR;

68868

}

68869

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68870

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_packet_size_set. Expected _ccSWCongestionSetting_p, received ", -1);

68871

Tcl_AppendToObj(tcl_result, rettype, -1);

68872

return TCL_ERROR;

68873

}

68874

{

68875

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

68876

_arg1 = &temp;

68877

}

68878

{

68879

/* we can check if IBIS was initialized here */

68880

if (!IbisObj.initialized)

68881

{

68882

Tcl_SetStringObj(

68883

Tcl_GetObjResult(interp),

68884

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68885

return TCL_ERROR;

68886

}

68887

68888

if (! IbisObj.port_guid)

68889

{

68890

Tcl_SetStringObj(

68891

Tcl_GetObjResult(interp),

68892

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68893

return TCL_ERROR;

68894

}

68895

68896

ibis_tcl_error = 0;

68897

_result = (uint8_t *)_ib_sw_cong_setting_packet_size_set(_arg0,_arg1);

68898

;

68899

if (ibis_tcl_error) {

68900

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68901

return TCL_ERROR;

68902

}

68903

} tcl_result = Tcl_GetObjResult(interp);

68904

{

68905

char buff[20];

68906

sprintf(buff, "%u", *_result);

68907

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68908

}

68909

return TCL_OK;

68910

}

68911

#define _ib_sw_cong_setting_packet_size_get(_swigobj) (&_swigobj->packet_size)

68912

static int _wrap_ccSWCongestionSetting_packet_size_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68913

68914

uint8_t * _result;

68915

ccSWCongestionSetting * _arg0;

68916

Tcl_Obj * tcl_result;

68917

char * rettype;

68918

68919

clientData = clientData; objv = objv;

68920

tcl_result = Tcl_GetObjResult(interp);

68921

if ((objc < 2) || (objc > 2)) {

68922

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_packet_size_get { ccSWCongestionSetting * } ",-1);

68923

return TCL_ERROR;

68924

}

68925

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68926

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_packet_size_get. Expected _ccSWCongestionSetting_p, received ", -1);

68927

Tcl_AppendToObj(tcl_result, rettype, -1);

68928

return TCL_ERROR;

68929

}

68930

{

68931

/* we can check if IBIS was initialized here */

68932

if (!IbisObj.initialized)

68933

{

68934

Tcl_SetStringObj(

68935

Tcl_GetObjResult(interp),

68936

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68937

return TCL_ERROR;

68938

}

68939

68940

if (! IbisObj.port_guid)

68941

{

68942

Tcl_SetStringObj(

68943

Tcl_GetObjResult(interp),

68944

" ibis was not yet initialized. please use ibis_set_port before.", -1);

68945

return TCL_ERROR;

68946

}

68947

68948

ibis_tcl_error = 0;

68949

_result = (uint8_t *)_ib_sw_cong_setting_packet_size_get(_arg0);

68950

;

68951

if (ibis_tcl_error) {

68952

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

68953

return TCL_ERROR;

68954

}

68955

} tcl_result = Tcl_GetObjResult(interp);

68956

{

68957

char buff[20];

68958

sprintf(buff, "%u", *_result);

68959

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

68960

}

68961

return TCL_OK;

68962

}

68963

#define _ib_sw_cong_setting_cs_threshold_resv_set(_swigobj,_swigval) (_swigobj->cs_threshold_resv = *(_swigval),_swigval)

68964

static int _wrap_ccSWCongestionSetting_cs_threshold_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

68965

68966

ib_net16_t * _result;

68967

ccSWCongestionSetting * _arg0;

68968

ib_net16_t * _arg1;

68969

Tcl_Obj * tcl_result;

68970

char * rettype;

68971

ib_net16_t temp;

68972

68973

clientData = clientData; objv = objv;

68974

tcl_result = Tcl_GetObjResult(interp);

68975

if ((objc < 3) || (objc > 3)) {

68976

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_cs_threshold_resv_set { ccSWCongestionSetting * } { ib_net16_t * } ",-1);

68977

return TCL_ERROR;

68978

}

68979

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

68980

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_cs_threshold_resv_set. Expected _ccSWCongestionSetting_p, received ", -1);

68981

Tcl_AppendToObj(tcl_result, rettype, -1);

68982

return TCL_ERROR;

68983

}

68984

{

68985

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

68986

_arg1 = &temp;

68987

}

68988

{

68989

/* we can check if IBIS was initialized here */

68990

if (!IbisObj.initialized)

68991

{

68992

Tcl_SetStringObj(

68993

Tcl_GetObjResult(interp),

68994

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

68995

return TCL_ERROR;

68996

}

68997

68998

if (! IbisObj.port_guid)

68999

{

69000

Tcl_SetStringObj(

69001

Tcl_GetObjResult(interp),

69002

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69003

return TCL_ERROR;

69004

}

69005

69006

ibis_tcl_error = 0;

69007

_result = (ib_net16_t *)_ib_sw_cong_setting_cs_threshold_resv_set(_arg0,_arg1);

69008

;

69009

if (ibis_tcl_error) {

69010

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69011

return TCL_ERROR;

69012

}

69013

} tcl_result = Tcl_GetObjResult(interp);

69014

{

69015

char buff[20];

69016

sprintf(buff, "%u", cl_hton16(*_result));

69017

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69018

}

69019

return TCL_OK;

69020

}

69021

#define _ib_sw_cong_setting_cs_threshold_resv_get(_swigobj) (&_swigobj->cs_threshold_resv)

69022

static int _wrap_ccSWCongestionSetting_cs_threshold_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69023

69024

ib_net16_t * _result;

69025

ccSWCongestionSetting * _arg0;

69026

Tcl_Obj * tcl_result;

69027

char * rettype;

69028

69029

clientData = clientData; objv = objv;

69030

tcl_result = Tcl_GetObjResult(interp);

69031

if ((objc < 2) || (objc > 2)) {

69032

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_cs_threshold_resv_get { ccSWCongestionSetting * } ",-1);

69033

return TCL_ERROR;

69034

}

69035

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69036

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_cs_threshold_resv_get. Expected _ccSWCongestionSetting_p, received ", -1);

69037

Tcl_AppendToObj(tcl_result, rettype, -1);

69038

return TCL_ERROR;

69039

}

69040

{

69041

/* we can check if IBIS was initialized here */

69042

if (!IbisObj.initialized)

69043

{

69044

Tcl_SetStringObj(

69045

Tcl_GetObjResult(interp),

69046

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69047

return TCL_ERROR;

69048

}

69049

69050

if (! IbisObj.port_guid)

69051

{

69052

Tcl_SetStringObj(

69053

Tcl_GetObjResult(interp),

69054

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69055

return TCL_ERROR;

69056

}

69057

69058

ibis_tcl_error = 0;

69059

_result = (ib_net16_t *)_ib_sw_cong_setting_cs_threshold_resv_get(_arg0);

69060

;

69061

if (ibis_tcl_error) {

69062

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69063

return TCL_ERROR;

69064

}

69065

} tcl_result = Tcl_GetObjResult(interp);

69066

{

69067

char buff[20];

69068

sprintf(buff, "%u", cl_hton16(*_result));

69069

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69070

}

69071

return TCL_OK;

69072

}

69073

#define _ib_sw_cong_setting_cs_return_delay_set(_swigobj,_swigval) (_swigobj->cs_return_delay = *(_swigval),_swigval)

69074

static int _wrap_ccSWCongestionSetting_cs_return_delay_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69075

69076

ib_net16_t * _result;

69077

ccSWCongestionSetting * _arg0;

69078

ib_net16_t * _arg1;

69079

Tcl_Obj * tcl_result;

69080

char * rettype;

69081

ib_net16_t temp;

69082

69083

clientData = clientData; objv = objv;

69084

tcl_result = Tcl_GetObjResult(interp);

69085

if ((objc < 3) || (objc > 3)) {

69086

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_cs_return_delay_set { ccSWCongestionSetting * } { ib_net16_t * } ",-1);

69087

return TCL_ERROR;

69088

}

69089

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69090

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_cs_return_delay_set. Expected _ccSWCongestionSetting_p, received ", -1);

69091

Tcl_AppendToObj(tcl_result, rettype, -1);

69092

return TCL_ERROR;

69093

}

69094

{

69095

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

69096

_arg1 = &temp;

69097

}

69098

{

69099

/* we can check if IBIS was initialized here */

69100

if (!IbisObj.initialized)

69101

{

69102

Tcl_SetStringObj(

69103

Tcl_GetObjResult(interp),

69104

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69105

return TCL_ERROR;

69106

}

69107

69108

if (! IbisObj.port_guid)

69109

{

69110

Tcl_SetStringObj(

69111

Tcl_GetObjResult(interp),

69112

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69113

return TCL_ERROR;

69114

}

69115

69116

ibis_tcl_error = 0;

69117

_result = (ib_net16_t *)_ib_sw_cong_setting_cs_return_delay_set(_arg0,_arg1);

69118

;

69119

if (ibis_tcl_error) {

69120

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69121

return TCL_ERROR;

69122

}

69123

} tcl_result = Tcl_GetObjResult(interp);

69124

{

69125

char buff[20];

69126

sprintf(buff, "%u", cl_hton16(*_result));

69127

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69128

}

69129

return TCL_OK;

69130

}

69131

#define _ib_sw_cong_setting_cs_return_delay_get(_swigobj) (&_swigobj->cs_return_delay)

69132

static int _wrap_ccSWCongestionSetting_cs_return_delay_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69133

69134

ib_net16_t * _result;

69135

ccSWCongestionSetting * _arg0;

69136

Tcl_Obj * tcl_result;

69137

char * rettype;

69138

69139

clientData = clientData; objv = objv;

69140

tcl_result = Tcl_GetObjResult(interp);

69141

if ((objc < 2) || (objc > 2)) {

69142

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_cs_return_delay_get { ccSWCongestionSetting * } ",-1);

69143

return TCL_ERROR;

69144

}

69145

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69146

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_cs_return_delay_get. Expected _ccSWCongestionSetting_p, received ", -1);

69147

Tcl_AppendToObj(tcl_result, rettype, -1);

69148

return TCL_ERROR;

69149

}

69150

{

69151

/* we can check if IBIS was initialized here */

69152

if (!IbisObj.initialized)

69153

{

69154

Tcl_SetStringObj(

69155

Tcl_GetObjResult(interp),

69156

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69157

return TCL_ERROR;

69158

}

69159

69160

if (! IbisObj.port_guid)

69161

{

69162

Tcl_SetStringObj(

69163

Tcl_GetObjResult(interp),

69164

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69165

return TCL_ERROR;

69166

}

69167

69168

ibis_tcl_error = 0;

69169

_result = (ib_net16_t *)_ib_sw_cong_setting_cs_return_delay_get(_arg0);

69170

;

69171

if (ibis_tcl_error) {

69172

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69173

return TCL_ERROR;

69174

}

69175

} tcl_result = Tcl_GetObjResult(interp);

69176

{

69177

char buff[20];

69178

sprintf(buff, "%u", cl_hton16(*_result));

69179

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69180

}

69181

return TCL_OK;

69182

}

69183

#define _ib_sw_cong_setting_marking_rate_set(_swigobj,_swigval) (_swigobj->marking_rate = *(_swigval),_swigval)

69184

static int _wrap_ccSWCongestionSetting_marking_rate_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69185

69186

ib_net16_t * _result;

69187

ccSWCongestionSetting * _arg0;

69188

ib_net16_t * _arg1;

69189

Tcl_Obj * tcl_result;

69190

char * rettype;

69191

ib_net16_t temp;

69192

69193

clientData = clientData; objv = objv;

69194

tcl_result = Tcl_GetObjResult(interp);

69195

if ((objc < 3) || (objc > 3)) {

69196

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_marking_rate_set { ccSWCongestionSetting * } { ib_net16_t * } ",-1);

69197

return TCL_ERROR;

69198

}

69199

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69200

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_marking_rate_set. Expected _ccSWCongestionSetting_p, received ", -1);

69201

Tcl_AppendToObj(tcl_result, rettype, -1);

69202

return TCL_ERROR;

69203

}

69204

{

69205

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

69206

_arg1 = &temp;

69207

}

69208

{

69209

/* we can check if IBIS was initialized here */

69210

if (!IbisObj.initialized)

69211

{

69212

Tcl_SetStringObj(

69213

Tcl_GetObjResult(interp),

69214

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69215

return TCL_ERROR;

69216

}

69217

69218

if (! IbisObj.port_guid)

69219

{

69220

Tcl_SetStringObj(

69221

Tcl_GetObjResult(interp),

69222

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69223

return TCL_ERROR;

69224

}

69225

69226

ibis_tcl_error = 0;

69227

_result = (ib_net16_t *)_ib_sw_cong_setting_marking_rate_set(_arg0,_arg1);

69228

;

69229

if (ibis_tcl_error) {

69230

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69231

return TCL_ERROR;

69232

}

69233

} tcl_result = Tcl_GetObjResult(interp);

69234

{

69235

char buff[20];

69236

sprintf(buff, "%u", cl_hton16(*_result));

69237

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69238

}

69239

return TCL_OK;

69240

}

69241

#define _ib_sw_cong_setting_marking_rate_get(_swigobj) (&_swigobj->marking_rate)

69242

static int _wrap_ccSWCongestionSetting_marking_rate_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69243

69244

ib_net16_t * _result;

69245

ccSWCongestionSetting * _arg0;

69246

Tcl_Obj * tcl_result;

69247

char * rettype;

69248

69249

clientData = clientData; objv = objv;

69250

tcl_result = Tcl_GetObjResult(interp);

69251

if ((objc < 2) || (objc > 2)) {

69252

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_marking_rate_get { ccSWCongestionSetting * } ",-1);

69253

return TCL_ERROR;

69254

}

69255

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69256

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_marking_rate_get. Expected _ccSWCongestionSetting_p, received ", -1);

69257

Tcl_AppendToObj(tcl_result, rettype, -1);

69258

return TCL_ERROR;

69259

}

69260

{

69261

/* we can check if IBIS was initialized here */

69262

if (!IbisObj.initialized)

69263

{

69264

Tcl_SetStringObj(

69265

Tcl_GetObjResult(interp),

69266

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69267

return TCL_ERROR;

69268

}

69269

69270

if (! IbisObj.port_guid)

69271

{

69272

Tcl_SetStringObj(

69273

Tcl_GetObjResult(interp),

69274

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69275

return TCL_ERROR;

69276

}

69277

69278

ibis_tcl_error = 0;

69279

_result = (ib_net16_t *)_ib_sw_cong_setting_marking_rate_get(_arg0);

69280

;

69281

if (ibis_tcl_error) {

69282

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69283

return TCL_ERROR;

69284

}

69285

} tcl_result = Tcl_GetObjResult(interp);

69286

{

69287

char buff[20];

69288

sprintf(buff, "%u", cl_hton16(*_result));

69289

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69290

}

69291

return TCL_OK;

69292

}

69293

static int ccSWCongestionSetting_getByLid(ccSWCongestionSetting *self,uint16_t lid) {

69294

return ibcc_send_mad_by_lid (

69295

gp_ibcc,

69296

IBCC_DEAFULT_KEY,

69297

NULL, // log data

69298

0, // log data size

69299

(uint8_t *)self, // mgt data

69300

sizeof(ccSWCongestionSetting),// mgt data size

69301

lid,

69302

CL_NTOH16(IB_MAD_ATTR_SW_CONG_SETTING),

69303

0, // attribute modifier

69304

IB_MAD_METHOD_GET);

69305

}

69306

static int _wrap_ccSWCongestionSetting_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69307

69308

int _result;

69309

ccSWCongestionSetting * _arg0;

69310

uint16_t * _arg1;

69311

Tcl_Obj * tcl_result;

69312

char * rettype;

69313

uint16_t temp;

69314

69315

clientData = clientData; objv = objv;

69316

tcl_result = Tcl_GetObjResult(interp);

69317

if ((objc < 3) || (objc > 3)) {

69318

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_getByLid { ccSWCongestionSetting * } lid ",-1);

69319

return TCL_ERROR;

69320

}

69321

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69322

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_getByLid. Expected _ccSWCongestionSetting_p, received ", -1);

69323

Tcl_AppendToObj(tcl_result, rettype, -1);

69324

return TCL_ERROR;

69325

}

69326

{

69327

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

69328

_arg1 = &temp;

69329

}

69330

{

69331

/* we can check if IBIS was initialized here */

69332

if (!IbisObj.initialized)

69333

{

69334

Tcl_SetStringObj(

69335

Tcl_GetObjResult(interp),

69336

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69337

return TCL_ERROR;

69338

}

69339

69340

if (! IbisObj.port_guid)

69341

{

69342

Tcl_SetStringObj(

69343

Tcl_GetObjResult(interp),

69344

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69345

return TCL_ERROR;

69346

}

69347

69348

ibis_tcl_error = 0;

69349

_result = (int )ccSWCongestionSetting_getByLid(_arg0,*_arg1);

69350

;

69351

if (ibis_tcl_error) {

69352

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69353

return TCL_ERROR;

69354

}

69355

} tcl_result = Tcl_GetObjResult(interp);

69356

Tcl_SetIntObj(tcl_result,(long) _result);

69357

return TCL_OK;

69358

}

69359

static int ccSWCongestionSetting_setByLid(ccSWCongestionSetting *self,uint16_t lid) {

69360

return ibcc_send_mad_by_lid (

69361

gp_ibcc,

69362

IBCC_DEAFULT_KEY,

69363

NULL, // log data

69364

0, // log data size

69365

(uint8_t *)self, // mgt data

69366

sizeof(ccSWCongestionSetting),// mgt data size

69367

lid,

69368

CL_NTOH16(IB_MAD_ATTR_SW_CONG_SETTING),

69369

0, // attribute modifier

69370

IB_MAD_METHOD_SET);

69371

}

69372

static int _wrap_ccSWCongestionSetting_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69373

69374

int _result;

69375

ccSWCongestionSetting * _arg0;

69376

uint16_t * _arg1;

69377

Tcl_Obj * tcl_result;

69378

char * rettype;

69379

uint16_t temp;

69380

69381

clientData = clientData; objv = objv;

69382

tcl_result = Tcl_GetObjResult(interp);

69383

if ((objc < 3) || (objc > 3)) {

69384

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWCongestionSetting_setByLid { ccSWCongestionSetting * } lid ",-1);

69385

return TCL_ERROR;

69386

}

69387

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWCongestionSetting_p"))) {

69388

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWCongestionSetting_setByLid. Expected _ccSWCongestionSetting_p, received ", -1);

69389

Tcl_AppendToObj(tcl_result, rettype, -1);

69390

return TCL_ERROR;

69391

}

69392

{

69393

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

69394

_arg1 = &temp;

69395

}

69396

{

69397

/* we can check if IBIS was initialized here */

69398

if (!IbisObj.initialized)

69399

{

69400

Tcl_SetStringObj(

69401

Tcl_GetObjResult(interp),

69402

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69403

return TCL_ERROR;

69404

}

69405

69406

if (! IbisObj.port_guid)

69407

{

69408

Tcl_SetStringObj(

69409

Tcl_GetObjResult(interp),

69410

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69411

return TCL_ERROR;

69412

}

69413

69414

ibis_tcl_error = 0;

69415

_result = (int )ccSWCongestionSetting_setByLid(_arg0,*_arg1);

69416

;

69417

if (ibis_tcl_error) {

69418

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69419

return TCL_ERROR;

69420

}

69421

} tcl_result = Tcl_GetObjResult(interp);

69422

Tcl_SetIntObj(tcl_result,(long) _result);

69423

return TCL_OK;

69424

}

69425

/* methodcmd8.swg : Tcl8.x method invocation */

69426

69427

static int TclccSWCongestionSettingMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

69428

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

69429

char *_str;

69430

int rcode;

69431

Tcl_Obj **objv;

69432

Tcl_Obj *oldarg,*tcl_result,*obj;

69433

int length;

69434

char c;

69435

69436

tcl_result = Tcl_GetObjResult(interp);

69437

objv = (Tcl_Obj **) _objv;

69438

if (objc < 2) {

69439

Tcl_SetStringObj(tcl_result,"ccSWCongestionSetting methods : { dump cget configure getByLid setByLid }",-1);

69440

return TCL_ERROR;

69441

}

69442

obj = Tcl_NewObj();

69443

SWIG_SetPointerObj(obj,(void *) clientData,"_ccSWCongestionSetting_p");

69444

_str = Tcl_GetStringFromObj(objv[1],&length);

69445

c = *_str;

69446

if (0);

69447

if (strcmp(_str,"getByLid") == 0) {

69448

cmd = _wrap_ccSWCongestionSetting_getByLid;

69449

} else if (strcmp(_str,"setByLid") == 0) {

69450

cmd = _wrap_ccSWCongestionSetting_setByLid;

69451

}

69452

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

69453

int i = 2;

69454

cmd = 0;

69455

while (i+1 < objc) {

69456

_str = Tcl_GetStringFromObj(objv[i],&length);

69457

if (strcmp(_str,"-control_map") == 0) {

69458

cmd = _wrap_ccSWCongestionSetting_control_map_set;

69459

} else if (strcmp(_str,"-victim_mask") == 0) {

69460

cmd = _wrap_ccSWCongestionSetting_victim_mask_set;

69461

} else if (strcmp(_str,"-credit_mask") == 0) {

69462

cmd = _wrap_ccSWCongestionSetting_credit_mask_set;

69463

} else if (strcmp(_str,"-threshold_resv") == 0) {

69464

cmd = _wrap_ccSWCongestionSetting_threshold_resv_set;

69465

} else if (strcmp(_str,"-packet_size") == 0) {

69466

cmd = _wrap_ccSWCongestionSetting_packet_size_set;

69467

} else if (strcmp(_str,"-cs_threshold_resv") == 0) {

69468

cmd = _wrap_ccSWCongestionSetting_cs_threshold_resv_set;

69469

} else if (strcmp(_str,"-cs_return_delay") == 0) {

69470

cmd = _wrap_ccSWCongestionSetting_cs_return_delay_set;

69471

} else if (strcmp(_str,"-marking_rate") == 0) {

69472

cmd = _wrap_ccSWCongestionSetting_marking_rate_set;

69473

}

69474

if (cmd) {

69475

oldarg = objv[i];

69476

objv[i] = obj;

69477

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

69478

objv[i] = oldarg;

69479

if (rcode == TCL_ERROR) return rcode;

69480

cmd = 0;

69481

} else {

69482

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -control_map -victim_mask -credit_mask -threshold_resv -packet_size -cs_threshold_resv -cs_return_delay -marking_rate }",-1);

69483

return TCL_ERROR;

69484

}

69485

i+=2;

69486

}

69487

if ((i < objc) || (i == 2)) {

69488

Tcl_SetStringObj(tcl_result,"{ -control_map -victim_mask -credit_mask -threshold_resv -packet_size -cs_threshold_resv -cs_return_delay -marking_rate }",-1);

69489

return TCL_ERROR;

69490

}

69491

return TCL_OK;

69492

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

69493

if (objc == 3) {

69494

_str = Tcl_GetStringFromObj(objv[2],&length);

69495

if (0) {}

69496

if (strcmp(_str,"-control_map") == 0) {

69497

cmd = _wrap_ccSWCongestionSetting_control_map_get;

69498

} else if (strcmp(_str,"-victim_mask") == 0) {

69499

cmd = _wrap_ccSWCongestionSetting_victim_mask_get;

69500

} else if (strcmp(_str,"-credit_mask") == 0) {

69501

cmd = _wrap_ccSWCongestionSetting_credit_mask_get;

69502

} else if (strcmp(_str,"-threshold_resv") == 0) {

69503

cmd = _wrap_ccSWCongestionSetting_threshold_resv_get;

69504

} else if (strcmp(_str,"-packet_size") == 0) {

69505

cmd = _wrap_ccSWCongestionSetting_packet_size_get;

69506

} else if (strcmp(_str,"-cs_threshold_resv") == 0) {

69507

cmd = _wrap_ccSWCongestionSetting_cs_threshold_resv_get;

69508

} else if (strcmp(_str,"-cs_return_delay") == 0) {

69509

cmd = _wrap_ccSWCongestionSetting_cs_return_delay_get;

69510

} else if (strcmp(_str,"-marking_rate") == 0) {

69511

cmd = _wrap_ccSWCongestionSetting_marking_rate_get;

69512

}

69513

else if (strcmp(_str,"-this") == 0) {

69514

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccSWCongestionSetting_p");

69515

return TCL_OK;

69516

}

69517

if (cmd) {

69518

oldarg = objv[2];

69519

objv[2] = obj;

69520

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

69521

objv[2] = oldarg;

69522

return rcode;

69523

} else {

69524

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -control_map -victim_mask -credit_mask -threshold_resv -packet_size -cs_threshold_resv -cs_return_delay -marking_rate }",-1);

69525

return TCL_ERROR;

69526

}

69527

} else {

69528

Tcl_SetStringObj(tcl_result,"{ -this -control_map -victim_mask -credit_mask -threshold_resv -packet_size -cs_threshold_resv -cs_return_delay -marking_rate }", -1);

69529

return TCL_ERROR;

69530

}

69531

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

69532

if (objc == 2) {

69533

Tcl_Obj *pDumpObj;

69534

pDumpObj = Tcl_NewStringObj("",-1);

69535

Tcl_IncrRefCount(pDumpObj);

69536

cmd = _wrap_ccSWCongestionSetting_control_map_get;

69537

oldarg = objv[2];

69538

objv[2] = obj;

69539

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69540

objv[2] = oldarg;

69541

Tcl_AppendStringsToObj(pDumpObj, "-control_map ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69542

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69543

cmd = _wrap_ccSWCongestionSetting_victim_mask_get;

69544

oldarg = objv[2];

69545

objv[2] = obj;

69546

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69547

objv[2] = oldarg;

69548

Tcl_AppendStringsToObj(pDumpObj, "-victim_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69549

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69550

cmd = _wrap_ccSWCongestionSetting_credit_mask_get;

69551

oldarg = objv[2];

69552

objv[2] = obj;

69553

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69554

objv[2] = oldarg;

69555

Tcl_AppendStringsToObj(pDumpObj, "-credit_mask ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69556

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69557

cmd = _wrap_ccSWCongestionSetting_threshold_resv_get;

69558

oldarg = objv[2];

69559

objv[2] = obj;

69560

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69561

objv[2] = oldarg;

69562

Tcl_AppendStringsToObj(pDumpObj, "-threshold_resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69563

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69564

cmd = _wrap_ccSWCongestionSetting_packet_size_get;

69565

oldarg = objv[2];

69566

objv[2] = obj;

69567

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69568

objv[2] = oldarg;

69569

Tcl_AppendStringsToObj(pDumpObj, "-packet_size ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69570

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69571

cmd = _wrap_ccSWCongestionSetting_cs_threshold_resv_get;

69572

oldarg = objv[2];

69573

objv[2] = obj;

69574

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69575

objv[2] = oldarg;

69576

Tcl_AppendStringsToObj(pDumpObj, "-cs_threshold_resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69577

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69578

cmd = _wrap_ccSWCongestionSetting_cs_return_delay_get;

69579

oldarg = objv[2];

69580

objv[2] = obj;

69581

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69582

objv[2] = oldarg;

69583

Tcl_AppendStringsToObj(pDumpObj, "-cs_return_delay ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69584

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69585

cmd = _wrap_ccSWCongestionSetting_marking_rate_get;

69586

oldarg = objv[2];

69587

objv[2] = obj;

69588

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

69589

objv[2] = oldarg;

69590

Tcl_AppendStringsToObj(pDumpObj, "-marking_rate ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

69591

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

69592

69593

Tcl_DecrRefCount(pDumpObj);

69594

return TCL_OK;

69595

} else {

69596

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

69597

return TCL_ERROR;

69598

}

69599

}

69600

if (!cmd) {

69601

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

69602

return TCL_ERROR;

69603

}

69604

oldarg = objv[1];

69605

objv[1] = obj;

69606

rcode = (*cmd)(clientData,interp,objc,objv);

69607

objv[1] = oldarg;

69608

return rcode;

69609

}

69610

69611

69612

69613

/* objcmd8.swg : Tcl 8.x object creation */

69614

69615

static int TclccSWCongestionSettingCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69616

void (*del)(ClientData) = 0;

69617

char *name = 0;

69618

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

69619

ccSWCongestionSetting * newObj = 0;

69620

int firstarg = 0;

69621

int thisarg = 0;

69622

int length;

69623

char *_str;

69624

Tcl_Obj *tcl_result;

69625

69626

tcl_result = Tcl_GetObjResult(interp);

69627

if (objc == 1) {

69628

cmd = 0;

69629

} else {

69630

_str = Tcl_GetStringFromObj(objv[1],&length);

69631

if (strcmp(_str,"-this") == 0) thisarg = 2;

69632

else if (strcmp(_str,"-args") == 0) {

69633

firstarg = 1;

69634

cmd = 0;

69635

} else if (objc == 2) {

69636

firstarg = 1;

69637

name = _str;

69638

cmd = 0;

69639

} else if (objc >= 3) {

69640

name = _str;

69641

_str = Tcl_GetStringFromObj(objv[2],&length);

69642

if (strcmp(_str,"-this") == 0) thisarg = 3;

69643

else {

69644

firstarg = 1;

69645

cmd = 0;

69646

}

69647

}

69648

}

69649

if (cmd) {

69650

int result;

69651

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

69652

if (result == TCL_OK) {

69653

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccSWCongestionSetting_p");

69654

} else { return result; }

69655

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

69656

del = 0;

69657

} else if (thisarg > 0) {

69658

if (thisarg < objc) {

69659

char *r;

69660

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccSWCongestionSetting_p");

69661

if (r) {

69662

Tcl_SetStringObj(tcl_result,"Type error. not a ccSWCongestionSetting object.",-1);

69663

return TCL_ERROR;

69664

}

69665

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

69666

Tcl_SetStringObj(tcl_result,name,-1);

69667

} else {

69668

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

69669

return TCL_ERROR;

69670

}

69671

} else {

69672

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

69673

return TCL_ERROR;

69674

}

69675

{

69676

Tcl_CmdInfo dummy;

69677

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

69678

Tcl_CreateObjCommand(interp,name, TclccSWCongestionSettingMethodCmd, (ClientData) newObj, del);

69679

return TCL_OK;

69680

} else {

69681

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

69682

return TCL_ERROR;

69683

}

69684

}

69685

}

69686

69687

69688

#define _ib_sw_port_cong_setting_element_valid_ctrl_type_res_threshold_set(_swigobj,_swigval) (_swigobj->valid_ctrl_type_res_threshold = *(_swigval),_swigval)

69689

static int _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69690

69691

uint8_t * _result;

69692

ib_sw_port_cong_setting_element_t * _arg0;

69693

uint8_t * _arg1;

69694

Tcl_Obj * tcl_result;

69695

char * rettype;

69696

uint8_t temp;

69697

69698

clientData = clientData; objv = objv;

69699

tcl_result = Tcl_GetObjResult(interp);

69700

if ((objc < 3) || (objc > 3)) {

69701

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set { ib_sw_port_cong_setting_element_t * } { uint8_t * } ",-1);

69702

return TCL_ERROR;

69703

}

69704

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69705

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69706

Tcl_AppendToObj(tcl_result, rettype, -1);

69707

return TCL_ERROR;

69708

}

69709

{

69710

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

69711

_arg1 = &temp;

69712

}

69713

{

69714

/* we can check if IBIS was initialized here */

69715

if (!IbisObj.initialized)

69716

{

69717

Tcl_SetStringObj(

69718

Tcl_GetObjResult(interp),

69719

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69720

return TCL_ERROR;

69721

}

69722

69723

if (! IbisObj.port_guid)

69724

{

69725

Tcl_SetStringObj(

69726

Tcl_GetObjResult(interp),

69727

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69728

return TCL_ERROR;

69729

}

69730

69731

ibis_tcl_error = 0;

69732

_result = (uint8_t *)_ib_sw_port_cong_setting_element_valid_ctrl_type_res_threshold_set(_arg0,_arg1);

69733

;

69734

if (ibis_tcl_error) {

69735

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69736

return TCL_ERROR;

69737

}

69738

} tcl_result = Tcl_GetObjResult(interp);

69739

{

69740

char buff[20];

69741

sprintf(buff, "%u", *_result);

69742

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69743

}

69744

return TCL_OK;

69745

}

69746

#define _ib_sw_port_cong_setting_element_valid_ctrl_type_res_threshold_get(_swigobj) (&_swigobj->valid_ctrl_type_res_threshold)

69747

static int _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69748

69749

uint8_t * _result;

69750

ib_sw_port_cong_setting_element_t * _arg0;

69751

Tcl_Obj * tcl_result;

69752

char * rettype;

69753

69754

clientData = clientData; objv = objv;

69755

tcl_result = Tcl_GetObjResult(interp);

69756

if ((objc < 2) || (objc > 2)) {

69757

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get { ib_sw_port_cong_setting_element_t * } ",-1);

69758

return TCL_ERROR;

69759

}

69760

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69761

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69762

Tcl_AppendToObj(tcl_result, rettype, -1);

69763

return TCL_ERROR;

69764

}

69765

{

69766

/* we can check if IBIS was initialized here */

69767

if (!IbisObj.initialized)

69768

{

69769

Tcl_SetStringObj(

69770

Tcl_GetObjResult(interp),

69771

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69772

return TCL_ERROR;

69773

}

69774

69775

if (! IbisObj.port_guid)

69776

{

69777

Tcl_SetStringObj(

69778

Tcl_GetObjResult(interp),

69779

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69780

return TCL_ERROR;

69781

}

69782

69783

ibis_tcl_error = 0;

69784

_result = (uint8_t *)_ib_sw_port_cong_setting_element_valid_ctrl_type_res_threshold_get(_arg0);

69785

;

69786

if (ibis_tcl_error) {

69787

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69788

return TCL_ERROR;

69789

}

69790

} tcl_result = Tcl_GetObjResult(interp);

69791

{

69792

char buff[20];

69793

sprintf(buff, "%u", *_result);

69794

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69795

}

69796

return TCL_OK;

69797

}

69798

#define _ib_sw_port_cong_setting_element_packet_size_set(_swigobj,_swigval) (_swigobj->packet_size = *(_swigval),_swigval)

69799

static int _wrap_ib_sw_port_cong_setting_element_t_packet_size_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69800

69801

uint8_t * _result;

69802

ib_sw_port_cong_setting_element_t * _arg0;

69803

uint8_t * _arg1;

69804

Tcl_Obj * tcl_result;

69805

char * rettype;

69806

uint8_t temp;

69807

69808

clientData = clientData; objv = objv;

69809

tcl_result = Tcl_GetObjResult(interp);

69810

if ((objc < 3) || (objc > 3)) {

69811

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_packet_size_set { ib_sw_port_cong_setting_element_t * } { uint8_t * } ",-1);

69812

return TCL_ERROR;

69813

}

69814

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69815

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_packet_size_set. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69816

Tcl_AppendToObj(tcl_result, rettype, -1);

69817

return TCL_ERROR;

69818

}

69819

{

69820

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

69821

_arg1 = &temp;

69822

}

69823

{

69824

/* we can check if IBIS was initialized here */

69825

if (!IbisObj.initialized)

69826

{

69827

Tcl_SetStringObj(

69828

Tcl_GetObjResult(interp),

69829

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69830

return TCL_ERROR;

69831

}

69832

69833

if (! IbisObj.port_guid)

69834

{

69835

Tcl_SetStringObj(

69836

Tcl_GetObjResult(interp),

69837

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69838

return TCL_ERROR;

69839

}

69840

69841

ibis_tcl_error = 0;

69842

_result = (uint8_t *)_ib_sw_port_cong_setting_element_packet_size_set(_arg0,_arg1);

69843

;

69844

if (ibis_tcl_error) {

69845

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69846

return TCL_ERROR;

69847

}

69848

} tcl_result = Tcl_GetObjResult(interp);

69849

{

69850

char buff[20];

69851

sprintf(buff, "%u", *_result);

69852

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69853

}

69854

return TCL_OK;

69855

}

69856

#define _ib_sw_port_cong_setting_element_packet_size_get(_swigobj) (&_swigobj->packet_size)

69857

static int _wrap_ib_sw_port_cong_setting_element_t_packet_size_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69858

69859

uint8_t * _result;

69860

ib_sw_port_cong_setting_element_t * _arg0;

69861

Tcl_Obj * tcl_result;

69862

char * rettype;

69863

69864

clientData = clientData; objv = objv;

69865

tcl_result = Tcl_GetObjResult(interp);

69866

if ((objc < 2) || (objc > 2)) {

69867

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_packet_size_get { ib_sw_port_cong_setting_element_t * } ",-1);

69868

return TCL_ERROR;

69869

}

69870

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69871

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_packet_size_get. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69872

Tcl_AppendToObj(tcl_result, rettype, -1);

69873

return TCL_ERROR;

69874

}

69875

{

69876

/* we can check if IBIS was initialized here */

69877

if (!IbisObj.initialized)

69878

{

69879

Tcl_SetStringObj(

69880

Tcl_GetObjResult(interp),

69881

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69882

return TCL_ERROR;

69883

}

69884

69885

if (! IbisObj.port_guid)

69886

{

69887

Tcl_SetStringObj(

69888

Tcl_GetObjResult(interp),

69889

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69890

return TCL_ERROR;

69891

}

69892

69893

ibis_tcl_error = 0;

69894

_result = (uint8_t *)_ib_sw_port_cong_setting_element_packet_size_get(_arg0);

69895

;

69896

if (ibis_tcl_error) {

69897

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69898

return TCL_ERROR;

69899

}

69900

} tcl_result = Tcl_GetObjResult(interp);

69901

{

69902

char buff[20];

69903

sprintf(buff, "%u", *_result);

69904

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69905

}

69906

return TCL_OK;

69907

}

69908

#define _ib_sw_port_cong_setting_element_cong_param_set(_swigobj,_swigval) (_swigobj->cong_param = *(_swigval),_swigval)

69909

static int _wrap_ib_sw_port_cong_setting_element_t_cong_param_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69910

69911

ib_net16_t * _result;

69912

ib_sw_port_cong_setting_element_t * _arg0;

69913

ib_net16_t * _arg1;

69914

Tcl_Obj * tcl_result;

69915

char * rettype;

69916

ib_net16_t temp;

69917

69918

clientData = clientData; objv = objv;

69919

tcl_result = Tcl_GetObjResult(interp);

69920

if ((objc < 3) || (objc > 3)) {

69921

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_cong_param_set { ib_sw_port_cong_setting_element_t * } { ib_net16_t * } ",-1);

69922

return TCL_ERROR;

69923

}

69924

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69925

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_cong_param_set. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69926

Tcl_AppendToObj(tcl_result, rettype, -1);

69927

return TCL_ERROR;

69928

}

69929

{

69930

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

69931

_arg1 = &temp;

69932

}

69933

{

69934

/* we can check if IBIS was initialized here */

69935

if (!IbisObj.initialized)

69936

{

69937

Tcl_SetStringObj(

69938

Tcl_GetObjResult(interp),

69939

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69940

return TCL_ERROR;

69941

}

69942

69943

if (! IbisObj.port_guid)

69944

{

69945

Tcl_SetStringObj(

69946

Tcl_GetObjResult(interp),

69947

" ibis was not yet initialized. please use ibis_set_port before.", -1);

69948

return TCL_ERROR;

69949

}

69950

69951

ibis_tcl_error = 0;

69952

_result = (ib_net16_t *)_ib_sw_port_cong_setting_element_cong_param_set(_arg0,_arg1);

69953

;

69954

if (ibis_tcl_error) {

69955

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

69956

return TCL_ERROR;

69957

}

69958

} tcl_result = Tcl_GetObjResult(interp);

69959

{

69960

char buff[20];

69961

sprintf(buff, "%u", cl_hton16(*_result));

69962

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

69963

}

69964

return TCL_OK;

69965

}

69966

#define _ib_sw_port_cong_setting_element_cong_param_get(_swigobj) (&_swigobj->cong_param)

69967

static int _wrap_ib_sw_port_cong_setting_element_t_cong_param_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

69968

69969

ib_net16_t * _result;

69970

ib_sw_port_cong_setting_element_t * _arg0;

69971

Tcl_Obj * tcl_result;

69972

char * rettype;

69973

69974

clientData = clientData; objv = objv;

69975

tcl_result = Tcl_GetObjResult(interp);

69976

if ((objc < 2) || (objc > 2)) {

69977

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_sw_port_cong_setting_element_t_cong_param_get { ib_sw_port_cong_setting_element_t * } ",-1);

69978

return TCL_ERROR;

69979

}

69980

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_sw_port_cong_setting_element_t_p"))) {

69981

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_sw_port_cong_setting_element_t_cong_param_get. Expected _ib_sw_port_cong_setting_element_t_p, received ", -1);

69982

Tcl_AppendToObj(tcl_result, rettype, -1);

69983

return TCL_ERROR;

69984

}

69985

{

69986

/* we can check if IBIS was initialized here */

69987

if (!IbisObj.initialized)

69988

{

69989

Tcl_SetStringObj(

69990

Tcl_GetObjResult(interp),

69991

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

69992

return TCL_ERROR;

69993

}

69994

69995

if (! IbisObj.port_guid)

69996

{

69997

Tcl_SetStringObj(

69998

Tcl_GetObjResult(interp),

69999

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70000

return TCL_ERROR;

70001

}

70002

70003

ibis_tcl_error = 0;

70004

_result = (ib_net16_t *)_ib_sw_port_cong_setting_element_cong_param_get(_arg0);

70005

;

70006

if (ibis_tcl_error) {

70007

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70008

return TCL_ERROR;

70009

}

70010

} tcl_result = Tcl_GetObjResult(interp);

70011

{

70012

char buff[20];

70013

sprintf(buff, "%u", cl_hton16(*_result));

70014

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

70015

}

70016

return TCL_OK;

70017

}

70018

/* methodcmd8.swg : Tcl8.x method invocation */

70019

70020

static int Tclib_sw_port_cong_setting_element_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

70021

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

70022

char *_str;

70023

int rcode;

70024

Tcl_Obj **objv;

70025

Tcl_Obj *oldarg,*tcl_result,*obj;

70026

int length;

70027

char c;

70028

70029

tcl_result = Tcl_GetObjResult(interp);

70030

objv = (Tcl_Obj **) _objv;

70031

if (objc < 2) {

70032

Tcl_SetStringObj(tcl_result,"ib_sw_port_cong_setting_element_t methods : { dump cget configure }",-1);

70033

return TCL_ERROR;

70034

}

70035

obj = Tcl_NewObj();

70036

SWIG_SetPointerObj(obj,(void *) clientData,"_ib_sw_port_cong_setting_element_t_p");

70037

_str = Tcl_GetStringFromObj(objv[1],&length);

70038

c = *_str;

70039

if (0);

70040

70041

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

70042

int i = 2;

70043

cmd = 0;

70044

while (i+1 < objc) {

70045

_str = Tcl_GetStringFromObj(objv[i],&length);

70046

if (strcmp(_str,"-valid_ctrl_type_res_threshold") == 0) {

70047

cmd = _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set;

70048

} else if (strcmp(_str,"-packet_size") == 0) {

70049

cmd = _wrap_ib_sw_port_cong_setting_element_t_packet_size_set;

70050

} else if (strcmp(_str,"-cong_param") == 0) {

70051

cmd = _wrap_ib_sw_port_cong_setting_element_t_cong_param_set;

70052

}

70053

if (cmd) {

70054

oldarg = objv[i];

70055

objv[i] = obj;

70056

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

70057

objv[i] = oldarg;

70058

if (rcode == TCL_ERROR) return rcode;

70059

cmd = 0;

70060

} else {

70061

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -valid_ctrl_type_res_threshold -packet_size -cong_param }",-1);

70062

return TCL_ERROR;

70063

}

70064

i+=2;

70065

}

70066

if ((i < objc) || (i == 2)) {

70067

Tcl_SetStringObj(tcl_result,"{ -valid_ctrl_type_res_threshold -packet_size -cong_param }",-1);

70068

return TCL_ERROR;

70069

}

70070

return TCL_OK;

70071

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

70072

if (objc == 3) {

70073

_str = Tcl_GetStringFromObj(objv[2],&length);

70074

if (0) {}

70075

if (strcmp(_str,"-valid_ctrl_type_res_threshold") == 0) {

70076

cmd = _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get;

70077

} else if (strcmp(_str,"-packet_size") == 0) {

70078

cmd = _wrap_ib_sw_port_cong_setting_element_t_packet_size_get;

70079

} else if (strcmp(_str,"-cong_param") == 0) {

70080

cmd = _wrap_ib_sw_port_cong_setting_element_t_cong_param_get;

70081

}

70082

else if (strcmp(_str,"-this") == 0) {

70083

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ib_sw_port_cong_setting_element_t_p");

70084

return TCL_OK;

70085

}

70086

if (cmd) {

70087

oldarg = objv[2];

70088

objv[2] = obj;

70089

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

70090

objv[2] = oldarg;

70091

return rcode;

70092

} else {

70093

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -valid_ctrl_type_res_threshold -packet_size -cong_param }",-1);

70094

return TCL_ERROR;

70095

}

70096

} else {

70097

Tcl_SetStringObj(tcl_result,"{ -this -valid_ctrl_type_res_threshold -packet_size -cong_param }", -1);

70098

return TCL_ERROR;

70099

}

70100

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

70101

if (objc == 2) {

70102

Tcl_Obj *pDumpObj;

70103

pDumpObj = Tcl_NewStringObj("",-1);

70104

Tcl_IncrRefCount(pDumpObj);

70105

cmd = _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get;

70106

oldarg = objv[2];

70107

objv[2] = obj;

70108

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

70109

objv[2] = oldarg;

70110

Tcl_AppendStringsToObj(pDumpObj, "-valid_ctrl_type_res_threshold ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

70111

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

70112

cmd = _wrap_ib_sw_port_cong_setting_element_t_packet_size_get;

70113

oldarg = objv[2];

70114

objv[2] = obj;

70115

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

70116

objv[2] = oldarg;

70117

Tcl_AppendStringsToObj(pDumpObj, "-packet_size ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

70118

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

70119

cmd = _wrap_ib_sw_port_cong_setting_element_t_cong_param_get;

70120

oldarg = objv[2];

70121

objv[2] = obj;

70122

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

70123

objv[2] = oldarg;

70124

Tcl_AppendStringsToObj(pDumpObj, "-cong_param ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

70125

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

70126

70127

Tcl_DecrRefCount(pDumpObj);

70128

return TCL_OK;

70129

} else {

70130

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

70131

return TCL_ERROR;

70132

}

70133

}

70134

if (!cmd) {

70135

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

70136

return TCL_ERROR;

70137

}

70138

oldarg = objv[1];

70139

objv[1] = obj;

70140

rcode = (*cmd)(clientData,interp,objc,objv);

70141

objv[1] = oldarg;

70142

return rcode;

70143

}

70144

70145

70146

70147

/* objcmd8.swg : Tcl 8.x object creation */

70148

70149

static int Tclib_sw_port_cong_setting_element_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70150

void (*del)(ClientData) = 0;

70151

char *name = 0;

70152

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

70153

ib_sw_port_cong_setting_element_t * newObj = 0;

70154

int firstarg = 0;

70155

int thisarg = 0;

70156

int length;

70157

char *_str;

70158

Tcl_Obj *tcl_result;

70159

70160

tcl_result = Tcl_GetObjResult(interp);

70161

if (objc == 1) {

70162

cmd = 0;

70163

} else {

70164

_str = Tcl_GetStringFromObj(objv[1],&length);

70165

if (strcmp(_str,"-this") == 0) thisarg = 2;

70166

else if (strcmp(_str,"-args") == 0) {

70167

firstarg = 1;

70168

cmd = 0;

70169

} else if (objc == 2) {

70170

firstarg = 1;

70171

name = _str;

70172

cmd = 0;

70173

} else if (objc >= 3) {

70174

name = _str;

70175

_str = Tcl_GetStringFromObj(objv[2],&length);

70176

if (strcmp(_str,"-this") == 0) thisarg = 3;

70177

else {

70178

firstarg = 1;

70179

cmd = 0;

70180

}

70181

}

70182

}

70183

if (cmd) {

70184

int result;

70185

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

70186

if (result == TCL_OK) {

70187

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ib_sw_port_cong_setting_element_t_p");

70188

} else { return result; }

70189

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

70190

del = 0;

70191

} else if (thisarg > 0) {

70192

if (thisarg < objc) {

70193

char *r;

70194

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ib_sw_port_cong_setting_element_t_p");

70195

if (r) {

70196

Tcl_SetStringObj(tcl_result,"Type error. not a ib_sw_port_cong_setting_element_t object.",-1);

70197

return TCL_ERROR;

70198

}

70199

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

70200

Tcl_SetStringObj(tcl_result,name,-1);

70201

} else {

70202

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

70203

return TCL_ERROR;

70204

}

70205

} else {

70206

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

70207

return TCL_ERROR;

70208

}

70209

{

70210

Tcl_CmdInfo dummy;

70211

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

70212

Tcl_CreateObjCommand(interp,name, Tclib_sw_port_cong_setting_element_tMethodCmd, (ClientData) newObj, del);

70213

return TCL_OK;

70214

} else {

70215

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

70216

return TCL_ERROR;

70217

}

70218

}

70219

}

70220

70221

70222

static ib_sw_port_cong_setting_element_t * _ib_sw_port_cong_setting_block_set(ccSWPortCongestionSetting *obj, ib_sw_port_cong_setting_element_t val[32]) {

70223

{

70224

int i;

70225

for (i=0; i <32 ; i++) {

70226

obj->block[i] = *(val+i);

70227

}

70228

}

70229

return (ib_sw_port_cong_setting_element_t *) val;

70230

}

70231

static int _wrap_ccSWPortCongestionSetting_block_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70232

70233

ib_sw_port_cong_setting_element_t * _result;

70234

ccSWPortCongestionSetting * _arg0;

70235

ib_sw_port_cong_setting_element_t * _arg1;

70236

Tcl_Obj * tcl_result;

70237

char * rettype;

70238

ib_sw_port_cong_setting_element_t entrys[32];

70239

70240

clientData = clientData; objv = objv;

70241

tcl_result = Tcl_GetObjResult(interp);

70242

if ((objc < 3) || (objc > 3)) {

70243

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWPortCongestionSetting_block_set { ccSWPortCongestionSetting * } { ib_sw_port_cong_setting_element_t * } ",-1);

70244

return TCL_ERROR;

70245

}

70246

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWPortCongestionSetting_p"))) {

70247

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWPortCongestionSetting_block_set. Expected _ccSWPortCongestionSetting_p, received ", -1);

70248

Tcl_AppendToObj(tcl_result, rettype, -1);

70249

return TCL_ERROR;

70250

}

70251

{

70252

long int value;

70253

long int entry_index = 0;

70254

int k;

70255

int countSubLists, numElements;

70256

int i = 0;

70257

int option = 0;

70258

Tcl_Obj ** subListObjArray;

70259

Tcl_Obj * tclObj;

70260

70261

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

70262

{

70263

printf("Error: wrong format for SW Port Congestion Setting Element: %s\n",

70264

Tcl_GetStringFromObj(objv[2],NULL));

70265

return TCL_ERROR;

70266

}

70267

70268

/* SwitchPortCongestionSetting Block list should have up to 32 blocks */

70269

if (countSubLists > 32)

70270

{

70271

printf("Error: SwitchPortCongestionSetting Block list should have up to %d blocks (provided %d)\n",

70272

32, countSubLists);

70273

return TCL_ERROR;

70274

}

70275

70276

/*

70277

* There are two options to configure entry_list:

70278

* 1. Configure the whole list by providing list of value groups:

70279

* ccSWPortCongestionSettingMad configure -block {{1 2 3} {4 5 6}}

70280

* 2. Configure specific items from the list by providing index in addition to the above:

70281

* ccSWPortCongestionSettingMad configure -block {{4 1 2 3} {8 4 5 6}}

70282

*/

70283

70284

if (countSubLists > 0) {

70285

70286

/* check how many members does the first substring have */

70287

70288

if (Tcl_ListObjLength(interp, subListObjArray[0], &numElements) != TCL_OK) {

70289

printf("Error: wrong format for SW Port Congestion Setting Element: %s\n",

70290

Tcl_GetStringFromObj(subListObjArray[0],NULL));

70291

return TCL_ERROR;

70292

}

70293

70294

if (numElements == 3)

70295

option = 1;

70296

else if (numElements == 4)

70297

option = 2;

70298

else {

70299

printf("Error: wrong number of elements for SW Port Congestion Setting Element: %s\n",

70300

Tcl_GetStringFromObj(subListObjArray[0],NULL));

70301

return TCL_ERROR;

70302

}

70303

}

70304

else {

70305

/* if the user didn't specify anything, use option 1,

70306

wich will effectively clear the whole list values */

70307

option = 1;

70308

}

70309

70310

for (i = 0; i < 32; i++) {

70311

entrys[i].valid_ctrl_type_res_threshold = 0;

70312

entrys[i].packet_size = 0;

70313

entrys[i].cong_param = 0;

70314

}

70315

70316

if (option == 1) {

70317

/*

70318

* first option - list of groups of four values

70319

*/

70320

70321

for (i = 0; i < countSubLists; i++) {

70322

70323

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

70324

printf("Error: wrong format for SW Port Congestion Setting Element: %s\n",

70325

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70326

return TCL_ERROR;

70327

}

70328

70329

if (numElements != 3) {

70330

printf("Error: wrong number of elements for SW Port Congestion Setting Element: %s\n",

70331

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70332

return TCL_ERROR;

70333

}

70334

70335

for (k = 0; k < 3; k++) {

70336

70337

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

70338

printf("Error: Fail to obtain the element of SW Port Congestion Setting Element: %s\n",

70339

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70340

return TCL_ERROR;

70341

}

70342

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

70343

switch (k) {

70344

case 0: entrys[i].valid_ctrl_type_res_threshold = value; break;

70345

case 1: entrys[i].packet_size = value; break;

70346

case 2: entrys[i].cong_param = cl_hton16(value); break;

70347

default: break;

70348

}

70349

}

70350

}

70351

70352

}

70353

else {

70354

/*

70355

* second option - index and four values

70356

*/

70357

70358

for (i = 0; i < countSubLists; i++) {

70359

70360

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

70361

printf("Error: wrong format for SW Port Congestion Setting Element: %s\n",

70362

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70363

return TCL_ERROR;

70364

}

70365

70366

if (numElements != 4) {

70367

printf("Error: wrong number of elements for SW Port Congestion Setting Element: %s\n",

70368

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70369

return TCL_ERROR;

70370

}

70371

70372

for (k = 0; k < 4; k++) {

70373

70374

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

70375

printf("Error: Fail to obtain the element of SW Port Congestion Setting Element: %s\n",

70376

Tcl_GetStringFromObj(subListObjArray[i],NULL));

70377

return TCL_ERROR;

70378

}

70379

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

70380

switch (k) {

70381

case 0: entry_index = value; break;

70382

case 1: entrys[entry_index].valid_ctrl_type_res_threshold = value; break;

70383

case 2: entrys[entry_index].packet_size = value; break;

70384

case 3: entrys[entry_index].cong_param = cl_hton16(value); break;

70385

default: break;

70386

}

70387

}

70388

70389

}

70390

}

70391

70392

_arg1 = entrys;

70393

}

70394

{

70395

/* we can check if IBIS was initialized here */

70396

if (!IbisObj.initialized)

70397

{

70398

Tcl_SetStringObj(

70399

Tcl_GetObjResult(interp),

70400

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70401

return TCL_ERROR;

70402

}

70403

70404

if (! IbisObj.port_guid)

70405

{

70406

Tcl_SetStringObj(

70407

Tcl_GetObjResult(interp),

70408

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70409

return TCL_ERROR;

70410

}

70411

70412

ibis_tcl_error = 0;

70413

_result = (ib_sw_port_cong_setting_element_t *)_ib_sw_port_cong_setting_block_set(_arg0,_arg1);

70414

;

70415

if (ibis_tcl_error) {

70416

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70417

return TCL_ERROR;

70418

}

70419

} tcl_result = Tcl_GetObjResult(interp);

70420

{

70421

int i;

70422

char buff[99];

70423

70424

sprintf(buff, "-block\n ");

70425

Tcl_AppendResult(interp, buff, NULL);

70426

70427

for (i=0; i <32 ; i++) {

70428

sprintf(buff, " {#%02u:", i);

70429

Tcl_AppendResult(interp, buff, NULL);

70430

70431

sprintf(buff, " -valid_ctrl_type_res_threshold 0x%02x", _result[i].valid_ctrl_type_res_threshold);

70432

Tcl_AppendResult(interp, buff, NULL);

70433

70434

sprintf(buff, " -packet_size 0x%02x", _result[i].packet_size);

70435

Tcl_AppendResult(interp, buff, NULL);

70436

70437

sprintf(buff, " -cong_param 0x%04x", cl_ntoh16(_result[i].cong_param));

70438

Tcl_AppendResult(interp, buff, NULL);

70439

70440

sprintf(buff, "}\n ");

70441

Tcl_AppendResult(interp, buff, NULL);

70442

}

70443

}

70444

return TCL_OK;

70445

}

70446

#define _ib_sw_port_cong_setting_block_get(_swigobj) ((ib_sw_port_cong_setting_element_t *) _swigobj->block)

70447

static int _wrap_ccSWPortCongestionSetting_block_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70448

70449

ib_sw_port_cong_setting_element_t * _result;

70450

ccSWPortCongestionSetting * _arg0;

70451

Tcl_Obj * tcl_result;

70452

char * rettype;

70453

70454

clientData = clientData; objv = objv;

70455

tcl_result = Tcl_GetObjResult(interp);

70456

if ((objc < 2) || (objc > 2)) {

70457

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWPortCongestionSetting_block_get { ccSWPortCongestionSetting * } ",-1);

70458

return TCL_ERROR;

70459

}

70460

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWPortCongestionSetting_p"))) {

70461

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWPortCongestionSetting_block_get. Expected _ccSWPortCongestionSetting_p, received ", -1);

70462

Tcl_AppendToObj(tcl_result, rettype, -1);

70463

return TCL_ERROR;

70464

}

70465

{

70466

/* we can check if IBIS was initialized here */

70467

if (!IbisObj.initialized)

70468

{

70469

Tcl_SetStringObj(

70470

Tcl_GetObjResult(interp),

70471

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70472

return TCL_ERROR;

70473

}

70474

70475

if (! IbisObj.port_guid)

70476

{

70477

Tcl_SetStringObj(

70478

Tcl_GetObjResult(interp),

70479

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70480

return TCL_ERROR;

70481

}

70482

70483

ibis_tcl_error = 0;

70484

_result = (ib_sw_port_cong_setting_element_t *)_ib_sw_port_cong_setting_block_get(_arg0);

70485

;

70486

if (ibis_tcl_error) {

70487

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70488

return TCL_ERROR;

70489

}

70490

} tcl_result = Tcl_GetObjResult(interp);

70491

{

70492

int i;

70493

char buff[99];

70494

70495

sprintf(buff, "-block\n ");

70496

Tcl_AppendResult(interp, buff, NULL);

70497

70498

for (i=0; i <32 ; i++) {

70499

sprintf(buff, " {#%02u:", i);

70500

Tcl_AppendResult(interp, buff, NULL);

70501

70502

sprintf(buff, " -valid_ctrl_type_res_threshold 0x%02x", _result[i].valid_ctrl_type_res_threshold);

70503

Tcl_AppendResult(interp, buff, NULL);

70504

70505

sprintf(buff, " -packet_size 0x%02x", _result[i].packet_size);

70506

Tcl_AppendResult(interp, buff, NULL);

70507

70508

sprintf(buff, " -cong_param 0x%04x", cl_ntoh16(_result[i].cong_param));

70509

Tcl_AppendResult(interp, buff, NULL);

70510

70511

sprintf(buff, "}\n ");

70512

Tcl_AppendResult(interp, buff, NULL);

70513

}

70514

}

70515

return TCL_OK;

70516

}

70517

static int ccSWPortCongestionSetting_getByLid(ccSWPortCongestionSetting *self,uint16_t lid,uint8_t block) {

70518

return ibcc_send_mad_by_lid (

70519

gp_ibcc,

70520

IBCC_DEAFULT_KEY,

70521

NULL, // log data

70522

0, // log data size

70523

(uint8_t *)self, // mgt data

70524

sizeof(ccSWPortCongestionSetting),// mgt data size

70525

lid,

70526

CL_NTOH16(IB_MAD_ATTR_SW_PORT_CONG_SETTING),

70527

block, // attribute modifier

70528

IB_MAD_METHOD_GET);

70529

}

70530

static int _wrap_ccSWPortCongestionSetting_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70531

70532

int _result;

70533

ccSWPortCongestionSetting * _arg0;

70534

uint16_t * _arg1;

70535

uint8_t * _arg2;

70536

Tcl_Obj * tcl_result;

70537

char * rettype;

70538

uint16_t temp;

70539

uint8_t temp0;

70540

70541

clientData = clientData; objv = objv;

70542

tcl_result = Tcl_GetObjResult(interp);

70543

if ((objc < 4) || (objc > 4)) {

70544

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWPortCongestionSetting_getByLid { ccSWPortCongestionSetting * } lid block ",-1);

70545

return TCL_ERROR;

70546

}

70547

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWPortCongestionSetting_p"))) {

70548

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWPortCongestionSetting_getByLid. Expected _ccSWPortCongestionSetting_p, received ", -1);

70549

Tcl_AppendToObj(tcl_result, rettype, -1);

70550

return TCL_ERROR;

70551

}

70552

{

70553

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

70554

_arg1 = &temp;

70555

}

70556

{

70557

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

70558

_arg2 = &temp0;

70559

}

70560

{

70561

/* we can check if IBIS was initialized here */

70562

if (!IbisObj.initialized)

70563

{

70564

Tcl_SetStringObj(

70565

Tcl_GetObjResult(interp),

70566

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70567

return TCL_ERROR;

70568

}

70569

70570

if (! IbisObj.port_guid)

70571

{

70572

Tcl_SetStringObj(

70573

Tcl_GetObjResult(interp),

70574

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70575

return TCL_ERROR;

70576

}

70577

70578

ibis_tcl_error = 0;

70579

_result = (int )ccSWPortCongestionSetting_getByLid(_arg0,*_arg1,*_arg2);

70580

;

70581

if (ibis_tcl_error) {

70582

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70583

return TCL_ERROR;

70584

}

70585

} tcl_result = Tcl_GetObjResult(interp);

70586

Tcl_SetIntObj(tcl_result,(long) _result);

70587

return TCL_OK;

70588

}

70589

static int ccSWPortCongestionSetting_setByLid(ccSWPortCongestionSetting *self,uint16_t lid,uint8_t block) {

70590

return ibcc_send_mad_by_lid (

70591

gp_ibcc,

70592

IBCC_DEAFULT_KEY,

70593

NULL, // log data

70594

0, // log data size

70595

(uint8_t *)self, // mgt data

70596

sizeof(ccSWPortCongestionSetting),// mgt data size

70597

lid,

70598

CL_NTOH16(IB_MAD_ATTR_SW_PORT_CONG_SETTING),

70599

block, // attribute modifier

70600

IB_MAD_METHOD_SET);

70601

}

70602

static int _wrap_ccSWPortCongestionSetting_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70603

70604

int _result;

70605

ccSWPortCongestionSetting * _arg0;

70606

uint16_t * _arg1;

70607

uint8_t * _arg2;

70608

Tcl_Obj * tcl_result;

70609

char * rettype;

70610

uint16_t temp;

70611

uint8_t temp0;

70612

70613

clientData = clientData; objv = objv;

70614

tcl_result = Tcl_GetObjResult(interp);

70615

if ((objc < 4) || (objc > 4)) {

70616

Tcl_SetStringObj(tcl_result,"Wrong # args. ccSWPortCongestionSetting_setByLid { ccSWPortCongestionSetting * } lid block ",-1);

70617

return TCL_ERROR;

70618

}

70619

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccSWPortCongestionSetting_p"))) {

70620

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccSWPortCongestionSetting_setByLid. Expected _ccSWPortCongestionSetting_p, received ", -1);

70621

Tcl_AppendToObj(tcl_result, rettype, -1);

70622

return TCL_ERROR;

70623

}

70624

{

70625

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

70626

_arg1 = &temp;

70627

}

70628

{

70629

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

70630

_arg2 = &temp0;

70631

}

70632

{

70633

/* we can check if IBIS was initialized here */

70634

if (!IbisObj.initialized)

70635

{

70636

Tcl_SetStringObj(

70637

Tcl_GetObjResult(interp),

70638

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70639

return TCL_ERROR;

70640

}

70641

70642

if (! IbisObj.port_guid)

70643

{

70644

Tcl_SetStringObj(

70645

Tcl_GetObjResult(interp),

70646

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70647

return TCL_ERROR;

70648

}

70649

70650

ibis_tcl_error = 0;

70651

_result = (int )ccSWPortCongestionSetting_setByLid(_arg0,*_arg1,*_arg2);

70652

;

70653

if (ibis_tcl_error) {

70654

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70655

return TCL_ERROR;

70656

}

70657

} tcl_result = Tcl_GetObjResult(interp);

70658

Tcl_SetIntObj(tcl_result,(long) _result);

70659

return TCL_OK;

70660

}

70661

/* methodcmd8.swg : Tcl8.x method invocation */

70662

70663

static int TclccSWPortCongestionSettingMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

70664

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

70665

char *_str;

70666

int rcode;

70667

Tcl_Obj **objv;

70668

Tcl_Obj *oldarg,*tcl_result,*obj;

70669

int length;

70670

char c;

70671

70672

tcl_result = Tcl_GetObjResult(interp);

70673

objv = (Tcl_Obj **) _objv;

70674

if (objc < 2) {

70675

Tcl_SetStringObj(tcl_result,"ccSWPortCongestionSetting methods : { dump cget configure getByLid setByLid }",-1);

70676

return TCL_ERROR;

70677

}

70678

obj = Tcl_NewObj();

70679

SWIG_SetPointerObj(obj,(void *) clientData,"_ccSWPortCongestionSetting_p");

70680

_str = Tcl_GetStringFromObj(objv[1],&length);

70681

c = *_str;

70682

if (0);

70683

if (strcmp(_str,"getByLid") == 0) {

70684

cmd = _wrap_ccSWPortCongestionSetting_getByLid;

70685

} else if (strcmp(_str,"setByLid") == 0) {

70686

cmd = _wrap_ccSWPortCongestionSetting_setByLid;

70687

}

70688

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

70689

int i = 2;

70690

cmd = 0;

70691

while (i+1 < objc) {

70692

_str = Tcl_GetStringFromObj(objv[i],&length);

70693

if (strcmp(_str,"-block") == 0) {

70694

cmd = _wrap_ccSWPortCongestionSetting_block_set;

70695

}

70696

if (cmd) {

70697

oldarg = objv[i];

70698

objv[i] = obj;

70699

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

70700

objv[i] = oldarg;

70701

if (rcode == TCL_ERROR) return rcode;

70702

cmd = 0;

70703

} else {

70704

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -block }",-1);

70705

return TCL_ERROR;

70706

}

70707

i+=2;

70708

}

70709

if ((i < objc) || (i == 2)) {

70710

Tcl_SetStringObj(tcl_result,"{ -block }",-1);

70711

return TCL_ERROR;

70712

}

70713

return TCL_OK;

70714

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

70715

if (objc == 3) {

70716

_str = Tcl_GetStringFromObj(objv[2],&length);

70717

if (0) {}

70718

if (strcmp(_str,"-block") == 0) {

70719

cmd = _wrap_ccSWPortCongestionSetting_block_get;

70720

}

70721

else if (strcmp(_str,"-this") == 0) {

70722

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccSWPortCongestionSetting_p");

70723

return TCL_OK;

70724

}

70725

if (cmd) {

70726

oldarg = objv[2];

70727

objv[2] = obj;

70728

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

70729

objv[2] = oldarg;

70730

return rcode;

70731

} else {

70732

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -block }",-1);

70733

return TCL_ERROR;

70734

}

70735

} else {

70736

Tcl_SetStringObj(tcl_result,"{ -this -block }", -1);

70737

return TCL_ERROR;

70738

}

70739

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

70740

if (objc == 2) {

70741

Tcl_Obj *pDumpObj;

70742

pDumpObj = Tcl_NewStringObj("",-1);

70743

Tcl_IncrRefCount(pDumpObj);

70744

cmd = _wrap_ccSWPortCongestionSetting_block_get;

70745

oldarg = objv[2];

70746

objv[2] = obj;

70747

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

70748

objv[2] = oldarg;

70749

Tcl_AppendStringsToObj(pDumpObj, "-block ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

70750

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

70751

70752

Tcl_DecrRefCount(pDumpObj);

70753

return TCL_OK;

70754

} else {

70755

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

70756

return TCL_ERROR;

70757

}

70758

}

70759

if (!cmd) {

70760

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

70761

return TCL_ERROR;

70762

}

70763

oldarg = objv[1];

70764

objv[1] = obj;

70765

rcode = (*cmd)(clientData,interp,objc,objv);

70766

objv[1] = oldarg;

70767

return rcode;

70768

}

70769

70770

70771

70772

/* objcmd8.swg : Tcl 8.x object creation */

70773

70774

static int TclccSWPortCongestionSettingCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70775

void (*del)(ClientData) = 0;

70776

char *name = 0;

70777

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

70778

ccSWPortCongestionSetting * newObj = 0;

70779

int firstarg = 0;

70780

int thisarg = 0;

70781

int length;

70782

char *_str;

70783

Tcl_Obj *tcl_result;

70784

70785

tcl_result = Tcl_GetObjResult(interp);

70786

if (objc == 1) {

70787

cmd = 0;

70788

} else {

70789

_str = Tcl_GetStringFromObj(objv[1],&length);

70790

if (strcmp(_str,"-this") == 0) thisarg = 2;

70791

else if (strcmp(_str,"-args") == 0) {

70792

firstarg = 1;

70793

cmd = 0;

70794

} else if (objc == 2) {

70795

firstarg = 1;

70796

name = _str;

70797

cmd = 0;

70798

} else if (objc >= 3) {

70799

name = _str;

70800

_str = Tcl_GetStringFromObj(objv[2],&length);

70801

if (strcmp(_str,"-this") == 0) thisarg = 3;

70802

else {

70803

firstarg = 1;

70804

cmd = 0;

70805

}

70806

}

70807

}

70808

if (cmd) {

70809

int result;

70810

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

70811

if (result == TCL_OK) {

70812

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccSWPortCongestionSetting_p");

70813

} else { return result; }

70814

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

70815

del = 0;

70816

} else if (thisarg > 0) {

70817

if (thisarg < objc) {

70818

char *r;

70819

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccSWPortCongestionSetting_p");

70820

if (r) {

70821

Tcl_SetStringObj(tcl_result,"Type error. not a ccSWPortCongestionSetting object.",-1);

70822

return TCL_ERROR;

70823

}

70824

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

70825

Tcl_SetStringObj(tcl_result,name,-1);

70826

} else {

70827

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

70828

return TCL_ERROR;

70829

}

70830

} else {

70831

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

70832

return TCL_ERROR;

70833

}

70834

{

70835

Tcl_CmdInfo dummy;

70836

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

70837

Tcl_CreateObjCommand(interp,name, TclccSWPortCongestionSettingMethodCmd, (ClientData) newObj, del);

70838

return TCL_OK;

70839

} else {

70840

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

70841

return TCL_ERROR;

70842

}

70843

}

70844

}

70845

70846

70847

#define _ib_ca_cong_entry_ccti_timer_set(_swigobj,_swigval) (_swigobj->ccti_timer = *(_swigval),_swigval)

70848

static int _wrap_ib_ca_cong_entry_t_ccti_timer_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70849

70850

ib_net16_t * _result;

70851

ib_ca_cong_entry_t * _arg0;

70852

ib_net16_t * _arg1;

70853

Tcl_Obj * tcl_result;

70854

char * rettype;

70855

ib_net16_t temp;

70856

70857

clientData = clientData; objv = objv;

70858

tcl_result = Tcl_GetObjResult(interp);

70859

if ((objc < 3) || (objc > 3)) {

70860

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_timer_set { ib_ca_cong_entry_t * } { ib_net16_t * } ",-1);

70861

return TCL_ERROR;

70862

}

70863

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

70864

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_timer_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

70865

Tcl_AppendToObj(tcl_result, rettype, -1);

70866

return TCL_ERROR;

70867

}

70868

{

70869

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

70870

_arg1 = &temp;

70871

}

70872

{

70873

/* we can check if IBIS was initialized here */

70874

if (!IbisObj.initialized)

70875

{

70876

Tcl_SetStringObj(

70877

Tcl_GetObjResult(interp),

70878

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70879

return TCL_ERROR;

70880

}

70881

70882

if (! IbisObj.port_guid)

70883

{

70884

Tcl_SetStringObj(

70885

Tcl_GetObjResult(interp),

70886

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70887

return TCL_ERROR;

70888

}

70889

70890

ibis_tcl_error = 0;

70891

_result = (ib_net16_t *)_ib_ca_cong_entry_ccti_timer_set(_arg0,_arg1);

70892

;

70893

if (ibis_tcl_error) {

70894

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70895

return TCL_ERROR;

70896

}

70897

} tcl_result = Tcl_GetObjResult(interp);

70898

{

70899

char buff[20];

70900

sprintf(buff, "%u", cl_hton16(*_result));

70901

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

70902

}

70903

return TCL_OK;

70904

}

70905

#define _ib_ca_cong_entry_ccti_timer_get(_swigobj) (&_swigobj->ccti_timer)

70906

static int _wrap_ib_ca_cong_entry_t_ccti_timer_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70907

70908

ib_net16_t * _result;

70909

ib_ca_cong_entry_t * _arg0;

70910

Tcl_Obj * tcl_result;

70911

char * rettype;

70912

70913

clientData = clientData; objv = objv;

70914

tcl_result = Tcl_GetObjResult(interp);

70915

if ((objc < 2) || (objc > 2)) {

70916

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_timer_get { ib_ca_cong_entry_t * } ",-1);

70917

return TCL_ERROR;

70918

}

70919

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

70920

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_timer_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

70921

Tcl_AppendToObj(tcl_result, rettype, -1);

70922

return TCL_ERROR;

70923

}

70924

{

70925

/* we can check if IBIS was initialized here */

70926

if (!IbisObj.initialized)

70927

{

70928

Tcl_SetStringObj(

70929

Tcl_GetObjResult(interp),

70930

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70931

return TCL_ERROR;

70932

}

70933

70934

if (! IbisObj.port_guid)

70935

{

70936

Tcl_SetStringObj(

70937

Tcl_GetObjResult(interp),

70938

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70939

return TCL_ERROR;

70940

}

70941

70942

ibis_tcl_error = 0;

70943

_result = (ib_net16_t *)_ib_ca_cong_entry_ccti_timer_get(_arg0);

70944

;

70945

if (ibis_tcl_error) {

70946

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

70947

return TCL_ERROR;

70948

}

70949

} tcl_result = Tcl_GetObjResult(interp);

70950

{

70951

char buff[20];

70952

sprintf(buff, "%u", cl_hton16(*_result));

70953

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

70954

}

70955

return TCL_OK;

70956

}

70957

#define _ib_ca_cong_entry_ccti_increase_set(_swigobj,_swigval) (_swigobj->ccti_increase = *(_swigval),_swigval)

70958

static int _wrap_ib_ca_cong_entry_t_ccti_increase_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

70959

70960

uint8_t * _result;

70961

ib_ca_cong_entry_t * _arg0;

70962

uint8_t * _arg1;

70963

Tcl_Obj * tcl_result;

70964

char * rettype;

70965

uint8_t temp;

70966

70967

clientData = clientData; objv = objv;

70968

tcl_result = Tcl_GetObjResult(interp);

70969

if ((objc < 3) || (objc > 3)) {

70970

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_increase_set { ib_ca_cong_entry_t * } { uint8_t * } ",-1);

70971

return TCL_ERROR;

70972

}

70973

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

70974

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_increase_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

70975

Tcl_AppendToObj(tcl_result, rettype, -1);

70976

return TCL_ERROR;

70977

}

70978

{

70979

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

70980

_arg1 = &temp;

70981

}

70982

{

70983

/* we can check if IBIS was initialized here */

70984

if (!IbisObj.initialized)

70985

{

70986

Tcl_SetStringObj(

70987

Tcl_GetObjResult(interp),

70988

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

70989

return TCL_ERROR;

70990

}

70991

70992

if (! IbisObj.port_guid)

70993

{

70994

Tcl_SetStringObj(

70995

Tcl_GetObjResult(interp),

70996

" ibis was not yet initialized. please use ibis_set_port before.", -1);

70997

return TCL_ERROR;

70998

}

70999

71000

ibis_tcl_error = 0;

71001

_result = (uint8_t *)_ib_ca_cong_entry_ccti_increase_set(_arg0,_arg1);

71002

;

71003

if (ibis_tcl_error) {

71004

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71005

return TCL_ERROR;

71006

}

71007

} tcl_result = Tcl_GetObjResult(interp);

71008

{

71009

char buff[20];

71010

sprintf(buff, "%u", *_result);

71011

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71012

}

71013

return TCL_OK;

71014

}

71015

#define _ib_ca_cong_entry_ccti_increase_get(_swigobj) (&_swigobj->ccti_increase)

71016

static int _wrap_ib_ca_cong_entry_t_ccti_increase_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71017

71018

uint8_t * _result;

71019

ib_ca_cong_entry_t * _arg0;

71020

Tcl_Obj * tcl_result;

71021

char * rettype;

71022

71023

clientData = clientData; objv = objv;

71024

tcl_result = Tcl_GetObjResult(interp);

71025

if ((objc < 2) || (objc > 2)) {

71026

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_increase_get { ib_ca_cong_entry_t * } ",-1);

71027

return TCL_ERROR;

71028

}

71029

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71030

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_increase_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

71031

Tcl_AppendToObj(tcl_result, rettype, -1);

71032

return TCL_ERROR;

71033

}

71034

{

71035

/* we can check if IBIS was initialized here */

71036

if (!IbisObj.initialized)

71037

{

71038

Tcl_SetStringObj(

71039

Tcl_GetObjResult(interp),

71040

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71041

return TCL_ERROR;

71042

}

71043

71044

if (! IbisObj.port_guid)

71045

{

71046

Tcl_SetStringObj(

71047

Tcl_GetObjResult(interp),

71048

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71049

return TCL_ERROR;

71050

}

71051

71052

ibis_tcl_error = 0;

71053

_result = (uint8_t *)_ib_ca_cong_entry_ccti_increase_get(_arg0);

71054

;

71055

if (ibis_tcl_error) {

71056

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71057

return TCL_ERROR;

71058

}

71059

} tcl_result = Tcl_GetObjResult(interp);

71060

{

71061

char buff[20];

71062

sprintf(buff, "%u", *_result);

71063

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71064

}

71065

return TCL_OK;

71066

}

71067

#define _ib_ca_cong_entry_trigger_threshold_set(_swigobj,_swigval) (_swigobj->trigger_threshold = *(_swigval),_swigval)

71068

static int _wrap_ib_ca_cong_entry_t_trigger_threshold_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71069

71070

uint8_t * _result;

71071

ib_ca_cong_entry_t * _arg0;

71072

uint8_t * _arg1;

71073

Tcl_Obj * tcl_result;

71074

char * rettype;

71075

uint8_t temp;

71076

71077

clientData = clientData; objv = objv;

71078

tcl_result = Tcl_GetObjResult(interp);

71079

if ((objc < 3) || (objc > 3)) {

71080

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_trigger_threshold_set { ib_ca_cong_entry_t * } { uint8_t * } ",-1);

71081

return TCL_ERROR;

71082

}

71083

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71084

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_trigger_threshold_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

71085

Tcl_AppendToObj(tcl_result, rettype, -1);

71086

return TCL_ERROR;

71087

}

71088

{

71089

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

71090

_arg1 = &temp;

71091

}

71092

{

71093

/* we can check if IBIS was initialized here */

71094

if (!IbisObj.initialized)

71095

{

71096

Tcl_SetStringObj(

71097

Tcl_GetObjResult(interp),

71098

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71099

return TCL_ERROR;

71100

}

71101

71102

if (! IbisObj.port_guid)

71103

{

71104

Tcl_SetStringObj(

71105

Tcl_GetObjResult(interp),

71106

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71107

return TCL_ERROR;

71108

}

71109

71110

ibis_tcl_error = 0;

71111

_result = (uint8_t *)_ib_ca_cong_entry_trigger_threshold_set(_arg0,_arg1);

71112

;

71113

if (ibis_tcl_error) {

71114

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71115

return TCL_ERROR;

71116

}

71117

} tcl_result = Tcl_GetObjResult(interp);

71118

{

71119

char buff[20];

71120

sprintf(buff, "%u", *_result);

71121

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71122

}

71123

return TCL_OK;

71124

}

71125

#define _ib_ca_cong_entry_trigger_threshold_get(_swigobj) (&_swigobj->trigger_threshold)

71126

static int _wrap_ib_ca_cong_entry_t_trigger_threshold_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71127

71128

uint8_t * _result;

71129

ib_ca_cong_entry_t * _arg0;

71130

Tcl_Obj * tcl_result;

71131

char * rettype;

71132

71133

clientData = clientData; objv = objv;

71134

tcl_result = Tcl_GetObjResult(interp);

71135

if ((objc < 2) || (objc > 2)) {

71136

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_trigger_threshold_get { ib_ca_cong_entry_t * } ",-1);

71137

return TCL_ERROR;

71138

}

71139

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71140

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_trigger_threshold_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

71141

Tcl_AppendToObj(tcl_result, rettype, -1);

71142

return TCL_ERROR;

71143

}

71144

{

71145

/* we can check if IBIS was initialized here */

71146

if (!IbisObj.initialized)

71147

{

71148

Tcl_SetStringObj(

71149

Tcl_GetObjResult(interp),

71150

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71151

return TCL_ERROR;

71152

}

71153

71154

if (! IbisObj.port_guid)

71155

{

71156

Tcl_SetStringObj(

71157

Tcl_GetObjResult(interp),

71158

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71159

return TCL_ERROR;

71160

}

71161

71162

ibis_tcl_error = 0;

71163

_result = (uint8_t *)_ib_ca_cong_entry_trigger_threshold_get(_arg0);

71164

;

71165

if (ibis_tcl_error) {

71166

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71167

return TCL_ERROR;

71168

}

71169

} tcl_result = Tcl_GetObjResult(interp);

71170

{

71171

char buff[20];

71172

sprintf(buff, "%u", *_result);

71173

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71174

}

71175

return TCL_OK;

71176

}

71177

#define _ib_ca_cong_entry_ccti_min_set(_swigobj,_swigval) (_swigobj->ccti_min = *(_swigval),_swigval)

71178

static int _wrap_ib_ca_cong_entry_t_ccti_min_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71179

71180

uint8_t * _result;

71181

ib_ca_cong_entry_t * _arg0;

71182

uint8_t * _arg1;

71183

Tcl_Obj * tcl_result;

71184

char * rettype;

71185

uint8_t temp;

71186

71187

clientData = clientData; objv = objv;

71188

tcl_result = Tcl_GetObjResult(interp);

71189

if ((objc < 3) || (objc > 3)) {

71190

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_min_set { ib_ca_cong_entry_t * } { uint8_t * } ",-1);

71191

return TCL_ERROR;

71192

}

71193

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71194

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_min_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

71195

Tcl_AppendToObj(tcl_result, rettype, -1);

71196

return TCL_ERROR;

71197

}

71198

{

71199

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

71200

_arg1 = &temp;

71201

}

71202

{

71203

/* we can check if IBIS was initialized here */

71204

if (!IbisObj.initialized)

71205

{

71206

Tcl_SetStringObj(

71207

Tcl_GetObjResult(interp),

71208

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71209

return TCL_ERROR;

71210

}

71211

71212

if (! IbisObj.port_guid)

71213

{

71214

Tcl_SetStringObj(

71215

Tcl_GetObjResult(interp),

71216

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71217

return TCL_ERROR;

71218

}

71219

71220

ibis_tcl_error = 0;

71221

_result = (uint8_t *)_ib_ca_cong_entry_ccti_min_set(_arg0,_arg1);

71222

;

71223

if (ibis_tcl_error) {

71224

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71225

return TCL_ERROR;

71226

}

71227

} tcl_result = Tcl_GetObjResult(interp);

71228

{

71229

char buff[20];

71230

sprintf(buff, "%u", *_result);

71231

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71232

}

71233

return TCL_OK;

71234

}

71235

#define _ib_ca_cong_entry_ccti_min_get(_swigobj) (&_swigobj->ccti_min)

71236

static int _wrap_ib_ca_cong_entry_t_ccti_min_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71237

71238

uint8_t * _result;

71239

ib_ca_cong_entry_t * _arg0;

71240

Tcl_Obj * tcl_result;

71241

char * rettype;

71242

71243

clientData = clientData; objv = objv;

71244

tcl_result = Tcl_GetObjResult(interp);

71245

if ((objc < 2) || (objc > 2)) {

71246

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_ccti_min_get { ib_ca_cong_entry_t * } ",-1);

71247

return TCL_ERROR;

71248

}

71249

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71250

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_ccti_min_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

71251

Tcl_AppendToObj(tcl_result, rettype, -1);

71252

return TCL_ERROR;

71253

}

71254

{

71255

/* we can check if IBIS was initialized here */

71256

if (!IbisObj.initialized)

71257

{

71258

Tcl_SetStringObj(

71259

Tcl_GetObjResult(interp),

71260

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71261

return TCL_ERROR;

71262

}

71263

71264

if (! IbisObj.port_guid)

71265

{

71266

Tcl_SetStringObj(

71267

Tcl_GetObjResult(interp),

71268

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71269

return TCL_ERROR;

71270

}

71271

71272

ibis_tcl_error = 0;

71273

_result = (uint8_t *)_ib_ca_cong_entry_ccti_min_get(_arg0);

71274

;

71275

if (ibis_tcl_error) {

71276

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71277

return TCL_ERROR;

71278

}

71279

} tcl_result = Tcl_GetObjResult(interp);

71280

{

71281

char buff[20];

71282

sprintf(buff, "%u", *_result);

71283

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71284

}

71285

return TCL_OK;

71286

}

71287

#define _ib_ca_cong_entry_resv0_set(_swigobj,_swigval) (_swigobj->resv0 = *(_swigval),_swigval)

71288

static int _wrap_ib_ca_cong_entry_t_resv0_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71289

71290

uint8_t * _result;

71291

ib_ca_cong_entry_t * _arg0;

71292

uint8_t * _arg1;

71293

Tcl_Obj * tcl_result;

71294

char * rettype;

71295

uint8_t temp;

71296

71297

clientData = clientData; objv = objv;

71298

tcl_result = Tcl_GetObjResult(interp);

71299

if ((objc < 3) || (objc > 3)) {

71300

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_resv0_set { ib_ca_cong_entry_t * } { uint8_t * } ",-1);

71301

return TCL_ERROR;

71302

}

71303

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71304

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_resv0_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

71305

Tcl_AppendToObj(tcl_result, rettype, -1);

71306

return TCL_ERROR;

71307

}

71308

{

71309

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

71310

_arg1 = &temp;

71311

}

71312

{

71313

/* we can check if IBIS was initialized here */

71314

if (!IbisObj.initialized)

71315

{

71316

Tcl_SetStringObj(

71317

Tcl_GetObjResult(interp),

71318

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71319

return TCL_ERROR;

71320

}

71321

71322

if (! IbisObj.port_guid)

71323

{

71324

Tcl_SetStringObj(

71325

Tcl_GetObjResult(interp),

71326

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71327

return TCL_ERROR;

71328

}

71329

71330

ibis_tcl_error = 0;

71331

_result = (uint8_t *)_ib_ca_cong_entry_resv0_set(_arg0,_arg1);

71332

;

71333

if (ibis_tcl_error) {

71334

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71335

return TCL_ERROR;

71336

}

71337

} tcl_result = Tcl_GetObjResult(interp);

71338

{

71339

char buff[20];

71340

sprintf(buff, "%u", *_result);

71341

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71342

}

71343

return TCL_OK;

71344

}

71345

#define _ib_ca_cong_entry_resv0_get(_swigobj) (&_swigobj->resv0)

71346

static int _wrap_ib_ca_cong_entry_t_resv0_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71347

71348

uint8_t * _result;

71349

ib_ca_cong_entry_t * _arg0;

71350

Tcl_Obj * tcl_result;

71351

char * rettype;

71352

71353

clientData = clientData; objv = objv;

71354

tcl_result = Tcl_GetObjResult(interp);

71355

if ((objc < 2) || (objc > 2)) {

71356

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_resv0_get { ib_ca_cong_entry_t * } ",-1);

71357

return TCL_ERROR;

71358

}

71359

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71360

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_resv0_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

71361

Tcl_AppendToObj(tcl_result, rettype, -1);

71362

return TCL_ERROR;

71363

}

71364

{

71365

/* we can check if IBIS was initialized here */

71366

if (!IbisObj.initialized)

71367

{

71368

Tcl_SetStringObj(

71369

Tcl_GetObjResult(interp),

71370

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71371

return TCL_ERROR;

71372

}

71373

71374

if (! IbisObj.port_guid)

71375

{

71376

Tcl_SetStringObj(

71377

Tcl_GetObjResult(interp),

71378

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71379

return TCL_ERROR;

71380

}

71381

71382

ibis_tcl_error = 0;

71383

_result = (uint8_t *)_ib_ca_cong_entry_resv0_get(_arg0);

71384

;

71385

if (ibis_tcl_error) {

71386

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71387

return TCL_ERROR;

71388

}

71389

} tcl_result = Tcl_GetObjResult(interp);

71390

{

71391

char buff[20];

71392

sprintf(buff, "%u", *_result);

71393

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71394

}

71395

return TCL_OK;

71396

}

71397

#define _ib_ca_cong_entry_resv1_set(_swigobj,_swigval) (_swigobj->resv1 = *(_swigval),_swigval)

71398

static int _wrap_ib_ca_cong_entry_t_resv1_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71399

71400

ib_net16_t * _result;

71401

ib_ca_cong_entry_t * _arg0;

71402

ib_net16_t * _arg1;

71403

Tcl_Obj * tcl_result;

71404

char * rettype;

71405

ib_net16_t temp;

71406

71407

clientData = clientData; objv = objv;

71408

tcl_result = Tcl_GetObjResult(interp);

71409

if ((objc < 3) || (objc > 3)) {

71410

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_resv1_set { ib_ca_cong_entry_t * } { ib_net16_t * } ",-1);

71411

return TCL_ERROR;

71412

}

71413

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71414

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_resv1_set. Expected _ib_ca_cong_entry_t_p, received ", -1);

71415

Tcl_AppendToObj(tcl_result, rettype, -1);

71416

return TCL_ERROR;

71417

}

71418

{

71419

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

71420

_arg1 = &temp;

71421

}

71422

{

71423

/* we can check if IBIS was initialized here */

71424

if (!IbisObj.initialized)

71425

{

71426

Tcl_SetStringObj(

71427

Tcl_GetObjResult(interp),

71428

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71429

return TCL_ERROR;

71430

}

71431

71432

if (! IbisObj.port_guid)

71433

{

71434

Tcl_SetStringObj(

71435

Tcl_GetObjResult(interp),

71436

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71437

return TCL_ERROR;

71438

}

71439

71440

ibis_tcl_error = 0;

71441

_result = (ib_net16_t *)_ib_ca_cong_entry_resv1_set(_arg0,_arg1);

71442

;

71443

if (ibis_tcl_error) {

71444

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71445

return TCL_ERROR;

71446

}

71447

} tcl_result = Tcl_GetObjResult(interp);

71448

{

71449

char buff[20];

71450

sprintf(buff, "%u", cl_hton16(*_result));

71451

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71452

}

71453

return TCL_OK;

71454

}

71455

#define _ib_ca_cong_entry_resv1_get(_swigobj) (&_swigobj->resv1)

71456

static int _wrap_ib_ca_cong_entry_t_resv1_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71457

71458

ib_net16_t * _result;

71459

ib_ca_cong_entry_t * _arg0;

71460

Tcl_Obj * tcl_result;

71461

char * rettype;

71462

71463

clientData = clientData; objv = objv;

71464

tcl_result = Tcl_GetObjResult(interp);

71465

if ((objc < 2) || (objc > 2)) {

71466

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_ca_cong_entry_t_resv1_get { ib_ca_cong_entry_t * } ",-1);

71467

return TCL_ERROR;

71468

}

71469

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_ca_cong_entry_t_p"))) {

71470

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_ca_cong_entry_t_resv1_get. Expected _ib_ca_cong_entry_t_p, received ", -1);

71471

Tcl_AppendToObj(tcl_result, rettype, -1);

71472

return TCL_ERROR;

71473

}

71474

{

71475

/* we can check if IBIS was initialized here */

71476

if (!IbisObj.initialized)

71477

{

71478

Tcl_SetStringObj(

71479

Tcl_GetObjResult(interp),

71480

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71481

return TCL_ERROR;

71482

}

71483

71484

if (! IbisObj.port_guid)

71485

{

71486

Tcl_SetStringObj(

71487

Tcl_GetObjResult(interp),

71488

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71489

return TCL_ERROR;

71490

}

71491

71492

ibis_tcl_error = 0;

71493

_result = (ib_net16_t *)_ib_ca_cong_entry_resv1_get(_arg0);

71494

;

71495

if (ibis_tcl_error) {

71496

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71497

return TCL_ERROR;

71498

}

71499

} tcl_result = Tcl_GetObjResult(interp);

71500

{

71501

char buff[20];

71502

sprintf(buff, "%u", cl_hton16(*_result));

71503

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71504

}

71505

return TCL_OK;

71506

}

71507

/* methodcmd8.swg : Tcl8.x method invocation */

71508

71509

static int Tclib_ca_cong_entry_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

71510

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

71511

char *_str;

71512

int rcode;

71513

Tcl_Obj **objv;

71514

Tcl_Obj *oldarg,*tcl_result,*obj;

71515

int length;

71516

char c;

71517

71518

tcl_result = Tcl_GetObjResult(interp);

71519

objv = (Tcl_Obj **) _objv;

71520

if (objc < 2) {

71521

Tcl_SetStringObj(tcl_result,"ib_ca_cong_entry_t methods : { dump cget configure }",-1);

71522

return TCL_ERROR;

71523

}

71524

obj = Tcl_NewObj();

71525

SWIG_SetPointerObj(obj,(void *) clientData,"_ib_ca_cong_entry_t_p");

71526

_str = Tcl_GetStringFromObj(objv[1],&length);

71527

c = *_str;

71528

if (0);

71529

71530

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

71531

int i = 2;

71532

cmd = 0;

71533

while (i+1 < objc) {

71534

_str = Tcl_GetStringFromObj(objv[i],&length);

71535

if (strcmp(_str,"-ccti_timer") == 0) {

71536

cmd = _wrap_ib_ca_cong_entry_t_ccti_timer_set;

71537

} else if (strcmp(_str,"-ccti_increase") == 0) {

71538

cmd = _wrap_ib_ca_cong_entry_t_ccti_increase_set;

71539

} else if (strcmp(_str,"-trigger_threshold") == 0) {

71540

cmd = _wrap_ib_ca_cong_entry_t_trigger_threshold_set;

71541

} else if (strcmp(_str,"-ccti_min") == 0) {

71542

cmd = _wrap_ib_ca_cong_entry_t_ccti_min_set;

71543

} else if (strcmp(_str,"-resv0") == 0) {

71544

cmd = _wrap_ib_ca_cong_entry_t_resv0_set;

71545

} else if (strcmp(_str,"-resv1") == 0) {

71546

cmd = _wrap_ib_ca_cong_entry_t_resv1_set;

71547

}

71548

if (cmd) {

71549

oldarg = objv[i];

71550

objv[i] = obj;

71551

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

71552

objv[i] = oldarg;

71553

if (rcode == TCL_ERROR) return rcode;

71554

cmd = 0;

71555

} else {

71556

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -ccti_timer -ccti_increase -trigger_threshold -ccti_min -resv0 -resv1 }",-1);

71557

return TCL_ERROR;

71558

}

71559

i+=2;

71560

}

71561

if ((i < objc) || (i == 2)) {

71562

Tcl_SetStringObj(tcl_result,"{ -ccti_timer -ccti_increase -trigger_threshold -ccti_min -resv0 -resv1 }",-1);

71563

return TCL_ERROR;

71564

}

71565

return TCL_OK;

71566

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

71567

if (objc == 3) {

71568

_str = Tcl_GetStringFromObj(objv[2],&length);

71569

if (0) {}

71570

if (strcmp(_str,"-ccti_timer") == 0) {

71571

cmd = _wrap_ib_ca_cong_entry_t_ccti_timer_get;

71572

} else if (strcmp(_str,"-ccti_increase") == 0) {

71573

cmd = _wrap_ib_ca_cong_entry_t_ccti_increase_get;

71574

} else if (strcmp(_str,"-trigger_threshold") == 0) {

71575

cmd = _wrap_ib_ca_cong_entry_t_trigger_threshold_get;

71576

} else if (strcmp(_str,"-ccti_min") == 0) {

71577

cmd = _wrap_ib_ca_cong_entry_t_ccti_min_get;

71578

} else if (strcmp(_str,"-resv0") == 0) {

71579

cmd = _wrap_ib_ca_cong_entry_t_resv0_get;

71580

} else if (strcmp(_str,"-resv1") == 0) {

71581

cmd = _wrap_ib_ca_cong_entry_t_resv1_get;

71582

}

71583

else if (strcmp(_str,"-this") == 0) {

71584

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ib_ca_cong_entry_t_p");

71585

return TCL_OK;

71586

}

71587

if (cmd) {

71588

oldarg = objv[2];

71589

objv[2] = obj;

71590

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

71591

objv[2] = oldarg;

71592

return rcode;

71593

} else {

71594

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -ccti_timer -ccti_increase -trigger_threshold -ccti_min -resv0 -resv1 }",-1);

71595

return TCL_ERROR;

71596

}

71597

} else {

71598

Tcl_SetStringObj(tcl_result,"{ -this -ccti_timer -ccti_increase -trigger_threshold -ccti_min -resv0 -resv1 }", -1);

71599

return TCL_ERROR;

71600

}

71601

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

71602

if (objc == 2) {

71603

Tcl_Obj *pDumpObj;

71604

pDumpObj = Tcl_NewStringObj("",-1);

71605

Tcl_IncrRefCount(pDumpObj);

71606

cmd = _wrap_ib_ca_cong_entry_t_ccti_timer_get;

71607

oldarg = objv[2];

71608

objv[2] = obj;

71609

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71610

objv[2] = oldarg;

71611

Tcl_AppendStringsToObj(pDumpObj, "-ccti_timer ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71612

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71613

cmd = _wrap_ib_ca_cong_entry_t_ccti_increase_get;

71614

oldarg = objv[2];

71615

objv[2] = obj;

71616

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71617

objv[2] = oldarg;

71618

Tcl_AppendStringsToObj(pDumpObj, "-ccti_increase ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71619

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71620

cmd = _wrap_ib_ca_cong_entry_t_trigger_threshold_get;

71621

oldarg = objv[2];

71622

objv[2] = obj;

71623

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71624

objv[2] = oldarg;

71625

Tcl_AppendStringsToObj(pDumpObj, "-trigger_threshold ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71626

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71627

cmd = _wrap_ib_ca_cong_entry_t_ccti_min_get;

71628

oldarg = objv[2];

71629

objv[2] = obj;

71630

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71631

objv[2] = oldarg;

71632

Tcl_AppendStringsToObj(pDumpObj, "-ccti_min ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71633

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71634

cmd = _wrap_ib_ca_cong_entry_t_resv0_get;

71635

oldarg = objv[2];

71636

objv[2] = obj;

71637

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71638

objv[2] = oldarg;

71639

Tcl_AppendStringsToObj(pDumpObj, "-resv0 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71640

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71641

cmd = _wrap_ib_ca_cong_entry_t_resv1_get;

71642

oldarg = objv[2];

71643

objv[2] = obj;

71644

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

71645

objv[2] = oldarg;

71646

Tcl_AppendStringsToObj(pDumpObj, "-resv1 ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

71647

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

71648

71649

Tcl_DecrRefCount(pDumpObj);

71650

return TCL_OK;

71651

} else {

71652

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

71653

return TCL_ERROR;

71654

}

71655

}

71656

if (!cmd) {

71657

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

71658

return TCL_ERROR;

71659

}

71660

oldarg = objv[1];

71661

objv[1] = obj;

71662

rcode = (*cmd)(clientData,interp,objc,objv);

71663

objv[1] = oldarg;

71664

return rcode;

71665

}

71666

71667

71668

71669

/* objcmd8.swg : Tcl 8.x object creation */

71670

71671

static int Tclib_ca_cong_entry_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71672

void (*del)(ClientData) = 0;

71673

char *name = 0;

71674

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

71675

ib_ca_cong_entry_t * newObj = 0;

71676

int firstarg = 0;

71677

int thisarg = 0;

71678

int length;

71679

char *_str;

71680

Tcl_Obj *tcl_result;

71681

71682

tcl_result = Tcl_GetObjResult(interp);

71683

if (objc == 1) {

71684

cmd = 0;

71685

} else {

71686

_str = Tcl_GetStringFromObj(objv[1],&length);

71687

if (strcmp(_str,"-this") == 0) thisarg = 2;

71688

else if (strcmp(_str,"-args") == 0) {

71689

firstarg = 1;

71690

cmd = 0;

71691

} else if (objc == 2) {

71692

firstarg = 1;

71693

name = _str;

71694

cmd = 0;

71695

} else if (objc >= 3) {

71696

name = _str;

71697

_str = Tcl_GetStringFromObj(objv[2],&length);

71698

if (strcmp(_str,"-this") == 0) thisarg = 3;

71699

else {

71700

firstarg = 1;

71701

cmd = 0;

71702

}

71703

}

71704

}

71705

if (cmd) {

71706

int result;

71707

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

71708

if (result == TCL_OK) {

71709

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ib_ca_cong_entry_t_p");

71710

} else { return result; }

71711

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

71712

del = 0;

71713

} else if (thisarg > 0) {

71714

if (thisarg < objc) {

71715

char *r;

71716

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ib_ca_cong_entry_t_p");

71717

if (r) {

71718

Tcl_SetStringObj(tcl_result,"Type error. not a ib_ca_cong_entry_t object.",-1);

71719

return TCL_ERROR;

71720

}

71721

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

71722

Tcl_SetStringObj(tcl_result,name,-1);

71723

} else {

71724

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

71725

return TCL_ERROR;

71726

}

71727

} else {

71728

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

71729

return TCL_ERROR;

71730

}

71731

{

71732

Tcl_CmdInfo dummy;

71733

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

71734

Tcl_CreateObjCommand(interp,name, Tclib_ca_cong_entry_tMethodCmd, (ClientData) newObj, del);

71735

return TCL_OK;

71736

} else {

71737

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

71738

return TCL_ERROR;

71739

}

71740

}

71741

}

71742

71743

71744

#define _ib_ca_cong_setting_port_control_set(_swigobj,_swigval) (_swigobj->port_control = *(_swigval),_swigval)

71745

static int _wrap_ccCACongestionSetting_port_control_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71746

71747

ib_net16_t * _result;

71748

ccCACongestionSetting * _arg0;

71749

ib_net16_t * _arg1;

71750

Tcl_Obj * tcl_result;

71751

char * rettype;

71752

ib_net16_t temp;

71753

71754

clientData = clientData; objv = objv;

71755

tcl_result = Tcl_GetObjResult(interp);

71756

if ((objc < 3) || (objc > 3)) {

71757

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_port_control_set { ccCACongestionSetting * } { ib_net16_t * } ",-1);

71758

return TCL_ERROR;

71759

}

71760

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

71761

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_port_control_set. Expected _ccCACongestionSetting_p, received ", -1);

71762

Tcl_AppendToObj(tcl_result, rettype, -1);

71763

return TCL_ERROR;

71764

}

71765

{

71766

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

71767

_arg1 = &temp;

71768

}

71769

{

71770

/* we can check if IBIS was initialized here */

71771

if (!IbisObj.initialized)

71772

{

71773

Tcl_SetStringObj(

71774

Tcl_GetObjResult(interp),

71775

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71776

return TCL_ERROR;

71777

}

71778

71779

if (! IbisObj.port_guid)

71780

{

71781

Tcl_SetStringObj(

71782

Tcl_GetObjResult(interp),

71783

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71784

return TCL_ERROR;

71785

}

71786

71787

ibis_tcl_error = 0;

71788

_result = (ib_net16_t *)_ib_ca_cong_setting_port_control_set(_arg0,_arg1);

71789

;

71790

if (ibis_tcl_error) {

71791

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71792

return TCL_ERROR;

71793

}

71794

} tcl_result = Tcl_GetObjResult(interp);

71795

{

71796

char buff[20];

71797

sprintf(buff, "%u", cl_hton16(*_result));

71798

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71799

}

71800

return TCL_OK;

71801

}

71802

#define _ib_ca_cong_setting_port_control_get(_swigobj) (&_swigobj->port_control)

71803

static int _wrap_ccCACongestionSetting_port_control_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71804

71805

ib_net16_t * _result;

71806

ccCACongestionSetting * _arg0;

71807

Tcl_Obj * tcl_result;

71808

char * rettype;

71809

71810

clientData = clientData; objv = objv;

71811

tcl_result = Tcl_GetObjResult(interp);

71812

if ((objc < 2) || (objc > 2)) {

71813

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_port_control_get { ccCACongestionSetting * } ",-1);

71814

return TCL_ERROR;

71815

}

71816

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

71817

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_port_control_get. Expected _ccCACongestionSetting_p, received ", -1);

71818

Tcl_AppendToObj(tcl_result, rettype, -1);

71819

return TCL_ERROR;

71820

}

71821

{

71822

/* we can check if IBIS was initialized here */

71823

if (!IbisObj.initialized)

71824

{

71825

Tcl_SetStringObj(

71826

Tcl_GetObjResult(interp),

71827

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71828

return TCL_ERROR;

71829

}

71830

71831

if (! IbisObj.port_guid)

71832

{

71833

Tcl_SetStringObj(

71834

Tcl_GetObjResult(interp),

71835

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71836

return TCL_ERROR;

71837

}

71838

71839

ibis_tcl_error = 0;

71840

_result = (ib_net16_t *)_ib_ca_cong_setting_port_control_get(_arg0);

71841

;

71842

if (ibis_tcl_error) {

71843

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71844

return TCL_ERROR;

71845

}

71846

} tcl_result = Tcl_GetObjResult(interp);

71847

{

71848

char buff[20];

71849

sprintf(buff, "%u", cl_hton16(*_result));

71850

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71851

}

71852

return TCL_OK;

71853

}

71854

#define _ib_ca_cong_setting_control_map_set(_swigobj,_swigval) (_swigobj->control_map = *(_swigval),_swigval)

71855

static int _wrap_ccCACongestionSetting_control_map_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71856

71857

ib_net16_t * _result;

71858

ccCACongestionSetting * _arg0;

71859

ib_net16_t * _arg1;

71860

Tcl_Obj * tcl_result;

71861

char * rettype;

71862

ib_net16_t temp;

71863

71864

clientData = clientData; objv = objv;

71865

tcl_result = Tcl_GetObjResult(interp);

71866

if ((objc < 3) || (objc > 3)) {

71867

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_control_map_set { ccCACongestionSetting * } { ib_net16_t * } ",-1);

71868

return TCL_ERROR;

71869

}

71870

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

71871

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_control_map_set. Expected _ccCACongestionSetting_p, received ", -1);

71872

Tcl_AppendToObj(tcl_result, rettype, -1);

71873

return TCL_ERROR;

71874

}

71875

{

71876

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

71877

_arg1 = &temp;

71878

}

71879

{

71880

/* we can check if IBIS was initialized here */

71881

if (!IbisObj.initialized)

71882

{

71883

Tcl_SetStringObj(

71884

Tcl_GetObjResult(interp),

71885

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71886

return TCL_ERROR;

71887

}

71888

71889

if (! IbisObj.port_guid)

71890

{

71891

Tcl_SetStringObj(

71892

Tcl_GetObjResult(interp),

71893

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71894

return TCL_ERROR;

71895

}

71896

71897

ibis_tcl_error = 0;

71898

_result = (ib_net16_t *)_ib_ca_cong_setting_control_map_set(_arg0,_arg1);

71899

;

71900

if (ibis_tcl_error) {

71901

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71902

return TCL_ERROR;

71903

}

71904

} tcl_result = Tcl_GetObjResult(interp);

71905

{

71906

char buff[20];

71907

sprintf(buff, "%u", cl_hton16(*_result));

71908

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71909

}

71910

return TCL_OK;

71911

}

71912

#define _ib_ca_cong_setting_control_map_get(_swigobj) (&_swigobj->control_map)

71913

static int _wrap_ccCACongestionSetting_control_map_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71914

71915

ib_net16_t * _result;

71916

ccCACongestionSetting * _arg0;

71917

Tcl_Obj * tcl_result;

71918

char * rettype;

71919

71920

clientData = clientData; objv = objv;

71921

tcl_result = Tcl_GetObjResult(interp);

71922

if ((objc < 2) || (objc > 2)) {

71923

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_control_map_get { ccCACongestionSetting * } ",-1);

71924

return TCL_ERROR;

71925

}

71926

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

71927

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_control_map_get. Expected _ccCACongestionSetting_p, received ", -1);

71928

Tcl_AppendToObj(tcl_result, rettype, -1);

71929

return TCL_ERROR;

71930

}

71931

{

71932

/* we can check if IBIS was initialized here */

71933

if (!IbisObj.initialized)

71934

{

71935

Tcl_SetStringObj(

71936

Tcl_GetObjResult(interp),

71937

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

71938

return TCL_ERROR;

71939

}

71940

71941

if (! IbisObj.port_guid)

71942

{

71943

Tcl_SetStringObj(

71944

Tcl_GetObjResult(interp),

71945

" ibis was not yet initialized. please use ibis_set_port before.", -1);

71946

return TCL_ERROR;

71947

}

71948

71949

ibis_tcl_error = 0;

71950

_result = (ib_net16_t *)_ib_ca_cong_setting_control_map_get(_arg0);

71951

;

71952

if (ibis_tcl_error) {

71953

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

71954

return TCL_ERROR;

71955

}

71956

} tcl_result = Tcl_GetObjResult(interp);

71957

{

71958

char buff[20];

71959

sprintf(buff, "%u", cl_hton16(*_result));

71960

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

71961

}

71962

return TCL_OK;

71963

}

71964

static ib_ca_cong_entry_t * _ib_ca_cong_setting_entry_list_set(ccCACongestionSetting *obj, ib_ca_cong_entry_t val[16]) {

71965

{

71966

int i;

71967

for (i=0; i <16 ; i++) {

71968

obj->entry_list[i] = *(val+i);

71969

}

71970

}

71971

return (ib_ca_cong_entry_t *) val;

71972

}

71973

static int _wrap_ccCACongestionSetting_entry_list_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

71974

71975

ib_ca_cong_entry_t * _result;

71976

ccCACongestionSetting * _arg0;

71977

ib_ca_cong_entry_t * _arg1;

71978

Tcl_Obj * tcl_result;

71979

char * rettype;

71980

ib_ca_cong_entry_t entrys[16];

71981

71982

clientData = clientData; objv = objv;

71983

tcl_result = Tcl_GetObjResult(interp);

71984

if ((objc < 3) || (objc > 3)) {

71985

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_entry_list_set { ccCACongestionSetting * } { ib_ca_cong_entry_t * } ",-1);

71986

return TCL_ERROR;

71987

}

71988

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

71989

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_entry_list_set. Expected _ccCACongestionSetting_p, received ", -1);

71990

Tcl_AppendToObj(tcl_result, rettype, -1);

71991

return TCL_ERROR;

71992

}

71993

{

71994

long int value;

71995

long int entry_index = 0;

71996

int k;

71997

int countSubLists, numElements;

71998

int i = 0;

71999

int option = 0;

72000

Tcl_Obj ** subListObjArray;

72001

Tcl_Obj * tclObj;

72002

72003

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

72004

{

72005

printf("Error: wrong format for CA Congestion Setting: %s\n",

72006

Tcl_GetStringFromObj(objv[2],NULL));

72007

return TCL_ERROR;

72008

}

72009

72010

/* CA Congestion Setting Entry List should have up to 16 entries */

72011

if (countSubLists > 16)

72012

{

72013

printf("Error: CA Congestion Setting Entry List should have up to %d entries (provided %d)\n",

72014

16, countSubLists);

72015

return TCL_ERROR;

72016

}

72017

72018

/*

72019

* There are two options to configure entry_list:

72020

* 1. Configure the whole list by providing list of value groups:

72021

* ccCACongestionSetting configure -entry_list {{1 2 3 4} {5 6 7 8}}

72022

* 2. Configure specific items from the list by providing index in addition to the above:

72023

* ccCACongestionSetting configure -entry_list {{4 1 2 3 4} {8 5 6 7 8}}

72024

*/

72025

72026

if (countSubLists > 0) {

72027

72028

/* check how many members does the first substring have */

72029

72030

if (Tcl_ListObjLength(interp, subListObjArray[0], &numElements) != TCL_OK) {

72031

printf("Error: wrong format for CA Congestion Entry: %s\n",

72032

Tcl_GetStringFromObj(subListObjArray[0],NULL));

72033

return TCL_ERROR;

72034

}

72035

72036

if (numElements == 4)

72037

option = 1;

72038

else if (numElements == 5)

72039

option = 2;

72040

else {

72041

printf("Error: wrong number of elements for CA Congestion Entry: %s\n",

72042

Tcl_GetStringFromObj(subListObjArray[0],NULL));

72043

return TCL_ERROR;

72044

}

72045

}

72046

else {

72047

/* if the user didn't specify anything, use option 1,

72048

wich will effectively clear the whole list values */

72049

option = 1;

72050

}

72051

72052

for (i = 0; i < 16; i++) {

72053

entrys[i].ccti_timer = 0;

72054

entrys[i].ccti_increase = 0;

72055

entrys[i].trigger_threshold = 0;

72056

entrys[i].ccti_min = 0;

72057

}

72058

72059

if (option == 1) {

72060

/*

72061

* first option - list of groups of four values

72062

*/

72063

72064

for (i = 0; i < countSubLists; i++) {

72065

72066

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

72067

printf("Error: wrong format for CA Congestion Entry: %s\n",

72068

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72069

return TCL_ERROR;

72070

}

72071

72072

if (numElements != 4) {

72073

printf("Error: wrong number of elements for CA Congestion Entry: %s\n",

72074

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72075

return TCL_ERROR;

72076

}

72077

72078

for (k = 0; k < 4; k++) {

72079

72080

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

72081

printf("Error: Fail to obtain the element of CA Congestion Entry: %s\n",

72082

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72083

return TCL_ERROR;

72084

}

72085

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

72086

switch (k) {

72087

case 0: entrys[i].ccti_timer = cl_hton16(value); break;

72088

case 1: entrys[i].ccti_increase = value; break;

72089

case 2: entrys[i].trigger_threshold = value; break;

72090

case 3: entrys[i].ccti_min = value; break;

72091

default: break;

72092

}

72093

}

72094

}

72095

72096

}

72097

else {

72098

/*

72099

* second option - index and four values

72100

*/

72101

72102

for (i = 0; i < countSubLists; i++) {

72103

72104

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

72105

printf("Error: wrong format for CA Congestion Entry: %s\n",

72106

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72107

return TCL_ERROR;

72108

}

72109

72110

if (numElements != 5) {

72111

printf("Error: wrong number of elements for CA Congestion Entry: %s\n",

72112

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72113

return TCL_ERROR;

72114

}

72115

72116

for (k = 0; k < 5; k++) {

72117

72118

if (Tcl_ListObjIndex(interp, subListObjArray[i], k, &tclObj) != TCL_OK) {

72119

printf("Error: Fail to obtain the element of CA Congestion Entry: %s\n",

72120

Tcl_GetStringFromObj(subListObjArray[i],NULL));

72121

return TCL_ERROR;

72122

}

72123

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

72124

switch (k) {

72125

case 0: entry_index = value; break;

72126

case 1: entrys[entry_index].ccti_timer = cl_hton16(value); break;

72127

case 2: entrys[entry_index].ccti_increase = value; break;

72128

case 3: entrys[entry_index].trigger_threshold = value; break;

72129

case 4: entrys[entry_index].ccti_min = value; break;

72130

default: break;

72131

}

72132

}

72133

72134

}

72135

}

72136

72137

_arg1 = entrys;

72138

}

72139

{

72140

/* we can check if IBIS was initialized here */

72141

if (!IbisObj.initialized)

72142

{

72143

Tcl_SetStringObj(

72144

Tcl_GetObjResult(interp),

72145

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72146

return TCL_ERROR;

72147

}

72148

72149

if (! IbisObj.port_guid)

72150

{

72151

Tcl_SetStringObj(

72152

Tcl_GetObjResult(interp),

72153

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72154

return TCL_ERROR;

72155

}

72156

72157

ibis_tcl_error = 0;

72158

_result = (ib_ca_cong_entry_t *)_ib_ca_cong_setting_entry_list_set(_arg0,_arg1);

72159

;

72160

if (ibis_tcl_error) {

72161

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72162

return TCL_ERROR;

72163

}

72164

} tcl_result = Tcl_GetObjResult(interp);

72165

{

72166

int i;

72167

char buff[99];

72168

72169

sprintf(buff, "-entry_list\n ");

72170

Tcl_AppendResult(interp, buff, NULL);

72171

72172

for (i=0; i <16 ; i++) {

72173

sprintf(buff, " {SL%02u:", i);

72174

Tcl_AppendResult(interp, buff, NULL);

72175

72176

sprintf(buff, " -ccti_timer 0x%04x", cl_ntoh16(_result[i].ccti_timer));

72177

Tcl_AppendResult(interp, buff, NULL);

72178

72179

sprintf(buff, " -ccti_increase 0x%02x", _result[i].ccti_increase);

72180

Tcl_AppendResult(interp, buff, NULL);

72181

72182

sprintf(buff, " -trigger_threshold 0x%02x", _result[i].trigger_threshold);

72183

Tcl_AppendResult(interp, buff, NULL);

72184

72185

sprintf(buff, " -ccti_min 0x%02x", _result[i].ccti_min);

72186

Tcl_AppendResult(interp, buff, NULL);

72187

72188

sprintf(buff, "}\n ");

72189

Tcl_AppendResult(interp, buff, NULL);

72190

}

72191

}

72192

return TCL_OK;

72193

}

72194

#define _ib_ca_cong_setting_entry_list_get(_swigobj) ((ib_ca_cong_entry_t *) _swigobj->entry_list)

72195

static int _wrap_ccCACongestionSetting_entry_list_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72196

72197

ib_ca_cong_entry_t * _result;

72198

ccCACongestionSetting * _arg0;

72199

Tcl_Obj * tcl_result;

72200

char * rettype;

72201

72202

clientData = clientData; objv = objv;

72203

tcl_result = Tcl_GetObjResult(interp);

72204

if ((objc < 2) || (objc > 2)) {

72205

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_entry_list_get { ccCACongestionSetting * } ",-1);

72206

return TCL_ERROR;

72207

}

72208

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

72209

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_entry_list_get. Expected _ccCACongestionSetting_p, received ", -1);

72210

Tcl_AppendToObj(tcl_result, rettype, -1);

72211

return TCL_ERROR;

72212

}

72213

{

72214

/* we can check if IBIS was initialized here */

72215

if (!IbisObj.initialized)

72216

{

72217

Tcl_SetStringObj(

72218

Tcl_GetObjResult(interp),

72219

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72220

return TCL_ERROR;

72221

}

72222

72223

if (! IbisObj.port_guid)

72224

{

72225

Tcl_SetStringObj(

72226

Tcl_GetObjResult(interp),

72227

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72228

return TCL_ERROR;

72229

}

72230

72231

ibis_tcl_error = 0;

72232

_result = (ib_ca_cong_entry_t *)_ib_ca_cong_setting_entry_list_get(_arg0);

72233

;

72234

if (ibis_tcl_error) {

72235

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72236

return TCL_ERROR;

72237

}

72238

} tcl_result = Tcl_GetObjResult(interp);

72239

{

72240

int i;

72241

char buff[99];

72242

72243

sprintf(buff, "-entry_list\n ");

72244

Tcl_AppendResult(interp, buff, NULL);

72245

72246

for (i=0; i <16 ; i++) {

72247

sprintf(buff, " {SL%02u:", i);

72248

Tcl_AppendResult(interp, buff, NULL);

72249

72250

sprintf(buff, " -ccti_timer 0x%04x", cl_ntoh16(_result[i].ccti_timer));

72251

Tcl_AppendResult(interp, buff, NULL);

72252

72253

sprintf(buff, " -ccti_increase 0x%02x", _result[i].ccti_increase);

72254

Tcl_AppendResult(interp, buff, NULL);

72255

72256

sprintf(buff, " -trigger_threshold 0x%02x", _result[i].trigger_threshold);

72257

Tcl_AppendResult(interp, buff, NULL);

72258

72259

sprintf(buff, " -ccti_min 0x%02x", _result[i].ccti_min);

72260

Tcl_AppendResult(interp, buff, NULL);

72261

72262

sprintf(buff, "}\n ");

72263

Tcl_AppendResult(interp, buff, NULL);

72264

}

72265

}

72266

return TCL_OK;

72267

}

72268

static int ccCACongestionSetting_getByLid(ccCACongestionSetting *self,uint16_t lid) {

72269

return ibcc_send_mad_by_lid (

72270

gp_ibcc,

72271

IBCC_DEAFULT_KEY,

72272

NULL, // log data

72273

0, // log data size

72274

(uint8_t *)self, // mgt data

72275

sizeof(ccCACongestionSetting),// mgt data size

72276

lid,

72277

CL_NTOH16(IB_MAD_ATTR_CA_CONG_SETTING),

72278

0, // attribute modifier

72279

IB_MAD_METHOD_GET);

72280

}

72281

static int _wrap_ccCACongestionSetting_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72282

72283

int _result;

72284

ccCACongestionSetting * _arg0;

72285

uint16_t * _arg1;

72286

Tcl_Obj * tcl_result;

72287

char * rettype;

72288

uint16_t temp;

72289

72290

clientData = clientData; objv = objv;

72291

tcl_result = Tcl_GetObjResult(interp);

72292

if ((objc < 3) || (objc > 3)) {

72293

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_getByLid { ccCACongestionSetting * } lid ",-1);

72294

return TCL_ERROR;

72295

}

72296

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

72297

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_getByLid. Expected _ccCACongestionSetting_p, received ", -1);

72298

Tcl_AppendToObj(tcl_result, rettype, -1);

72299

return TCL_ERROR;

72300

}

72301

{

72302

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

72303

_arg1 = &temp;

72304

}

72305

{

72306

/* we can check if IBIS was initialized here */

72307

if (!IbisObj.initialized)

72308

{

72309

Tcl_SetStringObj(

72310

Tcl_GetObjResult(interp),

72311

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72312

return TCL_ERROR;

72313

}

72314

72315

if (! IbisObj.port_guid)

72316

{

72317

Tcl_SetStringObj(

72318

Tcl_GetObjResult(interp),

72319

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72320

return TCL_ERROR;

72321

}

72322

72323

ibis_tcl_error = 0;

72324

_result = (int )ccCACongestionSetting_getByLid(_arg0,*_arg1);

72325

;

72326

if (ibis_tcl_error) {

72327

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72328

return TCL_ERROR;

72329

}

72330

} tcl_result = Tcl_GetObjResult(interp);

72331

Tcl_SetIntObj(tcl_result,(long) _result);

72332

return TCL_OK;

72333

}

72334

static int ccCACongestionSetting_setByLid(ccCACongestionSetting *self,uint16_t lid) {

72335

return ibcc_send_mad_by_lid (

72336

gp_ibcc,

72337

IBCC_DEAFULT_KEY,

72338

NULL, // log data

72339

0, // log data size

72340

(uint8_t *)self, // mgt data

72341

sizeof(ccCACongestionSetting),// mgt data size

72342

lid,

72343

CL_NTOH16(IB_MAD_ATTR_CA_CONG_SETTING),

72344

0, // attribute modifier

72345

IB_MAD_METHOD_SET);

72346

}

72347

static int _wrap_ccCACongestionSetting_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72348

72349

int _result;

72350

ccCACongestionSetting * _arg0;

72351

uint16_t * _arg1;

72352

Tcl_Obj * tcl_result;

72353

char * rettype;

72354

uint16_t temp;

72355

72356

clientData = clientData; objv = objv;

72357

tcl_result = Tcl_GetObjResult(interp);

72358

if ((objc < 3) || (objc > 3)) {

72359

Tcl_SetStringObj(tcl_result,"Wrong # args. ccCACongestionSetting_setByLid { ccCACongestionSetting * } lid ",-1);

72360

return TCL_ERROR;

72361

}

72362

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccCACongestionSetting_p"))) {

72363

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccCACongestionSetting_setByLid. Expected _ccCACongestionSetting_p, received ", -1);

72364

Tcl_AppendToObj(tcl_result, rettype, -1);

72365

return TCL_ERROR;

72366

}

72367

{

72368

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

72369

_arg1 = &temp;

72370

}

72371

{

72372

/* we can check if IBIS was initialized here */

72373

if (!IbisObj.initialized)

72374

{

72375

Tcl_SetStringObj(

72376

Tcl_GetObjResult(interp),

72377

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72378

return TCL_ERROR;

72379

}

72380

72381

if (! IbisObj.port_guid)

72382

{

72383

Tcl_SetStringObj(

72384

Tcl_GetObjResult(interp),

72385

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72386

return TCL_ERROR;

72387

}

72388

72389

ibis_tcl_error = 0;

72390

_result = (int )ccCACongestionSetting_setByLid(_arg0,*_arg1);

72391

;

72392

if (ibis_tcl_error) {

72393

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72394

return TCL_ERROR;

72395

}

72396

} tcl_result = Tcl_GetObjResult(interp);

72397

Tcl_SetIntObj(tcl_result,(long) _result);

72398

return TCL_OK;

72399

}

72400

/* methodcmd8.swg : Tcl8.x method invocation */

72401

72402

static int TclccCACongestionSettingMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

72403

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

72404

char *_str;

72405

int rcode;

72406

Tcl_Obj **objv;

72407

Tcl_Obj *oldarg,*tcl_result,*obj;

72408

int length;

72409

char c;

72410

72411

tcl_result = Tcl_GetObjResult(interp);

72412

objv = (Tcl_Obj **) _objv;

72413

if (objc < 2) {

72414

Tcl_SetStringObj(tcl_result,"ccCACongestionSetting methods : { dump cget configure getByLid setByLid }",-1);

72415

return TCL_ERROR;

72416

}

72417

obj = Tcl_NewObj();

72418

SWIG_SetPointerObj(obj,(void *) clientData,"_ccCACongestionSetting_p");

72419

_str = Tcl_GetStringFromObj(objv[1],&length);

72420

c = *_str;

72421

if (0);

72422

if (strcmp(_str,"getByLid") == 0) {

72423

cmd = _wrap_ccCACongestionSetting_getByLid;

72424

} else if (strcmp(_str,"setByLid") == 0) {

72425

cmd = _wrap_ccCACongestionSetting_setByLid;

72426

}

72427

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

72428

int i = 2;

72429

cmd = 0;

72430

while (i+1 < objc) {

72431

_str = Tcl_GetStringFromObj(objv[i],&length);

72432

if (strcmp(_str,"-port_control") == 0) {

72433

cmd = _wrap_ccCACongestionSetting_port_control_set;

72434

} else if (strcmp(_str,"-control_map") == 0) {

72435

cmd = _wrap_ccCACongestionSetting_control_map_set;

72436

} else if (strcmp(_str,"-entry_list") == 0) {

72437

cmd = _wrap_ccCACongestionSetting_entry_list_set;

72438

}

72439

if (cmd) {

72440

oldarg = objv[i];

72441

objv[i] = obj;

72442

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

72443

objv[i] = oldarg;

72444

if (rcode == TCL_ERROR) return rcode;

72445

cmd = 0;

72446

} else {

72447

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -port_control -control_map -entry_list }",-1);

72448

return TCL_ERROR;

72449

}

72450

i+=2;

72451

}

72452

if ((i < objc) || (i == 2)) {

72453

Tcl_SetStringObj(tcl_result,"{ -port_control -control_map -entry_list }",-1);

72454

return TCL_ERROR;

72455

}

72456

return TCL_OK;

72457

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

72458

if (objc == 3) {

72459

_str = Tcl_GetStringFromObj(objv[2],&length);

72460

if (0) {}

72461

if (strcmp(_str,"-port_control") == 0) {

72462

cmd = _wrap_ccCACongestionSetting_port_control_get;

72463

} else if (strcmp(_str,"-control_map") == 0) {

72464

cmd = _wrap_ccCACongestionSetting_control_map_get;

72465

} else if (strcmp(_str,"-entry_list") == 0) {

72466

cmd = _wrap_ccCACongestionSetting_entry_list_get;

72467

}

72468

else if (strcmp(_str,"-this") == 0) {

72469

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccCACongestionSetting_p");

72470

return TCL_OK;

72471

}

72472

if (cmd) {

72473

oldarg = objv[2];

72474

objv[2] = obj;

72475

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

72476

objv[2] = oldarg;

72477

return rcode;

72478

} else {

72479

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -port_control -control_map -entry_list }",-1);

72480

return TCL_ERROR;

72481

}

72482

} else {

72483

Tcl_SetStringObj(tcl_result,"{ -this -port_control -control_map -entry_list }", -1);

72484

return TCL_ERROR;

72485

}

72486

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

72487

if (objc == 2) {

72488

Tcl_Obj *pDumpObj;

72489

pDumpObj = Tcl_NewStringObj("",-1);

72490

Tcl_IncrRefCount(pDumpObj);

72491

cmd = _wrap_ccCACongestionSetting_port_control_get;

72492

oldarg = objv[2];

72493

objv[2] = obj;

72494

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

72495

objv[2] = oldarg;

72496

Tcl_AppendStringsToObj(pDumpObj, "-port_control ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

72497

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

72498

cmd = _wrap_ccCACongestionSetting_control_map_get;

72499

oldarg = objv[2];

72500

objv[2] = obj;

72501

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

72502

objv[2] = oldarg;

72503

Tcl_AppendStringsToObj(pDumpObj, "-control_map ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

72504

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

72505

cmd = _wrap_ccCACongestionSetting_entry_list_get;

72506

oldarg = objv[2];

72507

objv[2] = obj;

72508

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

72509

objv[2] = oldarg;

72510

Tcl_AppendStringsToObj(pDumpObj, "-entry_list ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

72511

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

72512

72513

Tcl_DecrRefCount(pDumpObj);

72514

return TCL_OK;

72515

} else {

72516

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

72517

return TCL_ERROR;

72518

}

72519

}

72520

if (!cmd) {

72521

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

72522

return TCL_ERROR;

72523

}

72524

oldarg = objv[1];

72525

objv[1] = obj;

72526

rcode = (*cmd)(clientData,interp,objc,objv);

72527

objv[1] = oldarg;

72528

return rcode;

72529

}

72530

72531

72532

72533

/* objcmd8.swg : Tcl 8.x object creation */

72534

72535

static int TclccCACongestionSettingCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72536

void (*del)(ClientData) = 0;

72537

char *name = 0;

72538

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

72539

ccCACongestionSetting * newObj = 0;

72540

int firstarg = 0;

72541

int thisarg = 0;

72542

int length;

72543

char *_str;

72544

Tcl_Obj *tcl_result;

72545

72546

tcl_result = Tcl_GetObjResult(interp);

72547

if (objc == 1) {

72548

cmd = 0;

72549

} else {

72550

_str = Tcl_GetStringFromObj(objv[1],&length);

72551

if (strcmp(_str,"-this") == 0) thisarg = 2;

72552

else if (strcmp(_str,"-args") == 0) {

72553

firstarg = 1;

72554

cmd = 0;

72555

} else if (objc == 2) {

72556

firstarg = 1;

72557

name = _str;

72558

cmd = 0;

72559

} else if (objc >= 3) {

72560

name = _str;

72561

_str = Tcl_GetStringFromObj(objv[2],&length);

72562

if (strcmp(_str,"-this") == 0) thisarg = 3;

72563

else {

72564

firstarg = 1;

72565

cmd = 0;

72566

}

72567

}

72568

}

72569

if (cmd) {

72570

int result;

72571

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

72572

if (result == TCL_OK) {

72573

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccCACongestionSetting_p");

72574

} else { return result; }

72575

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

72576

del = 0;

72577

} else if (thisarg > 0) {

72578

if (thisarg < objc) {

72579

char *r;

72580

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccCACongestionSetting_p");

72581

if (r) {

72582

Tcl_SetStringObj(tcl_result,"Type error. not a ccCACongestionSetting object.",-1);

72583

return TCL_ERROR;

72584

}

72585

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

72586

Tcl_SetStringObj(tcl_result,name,-1);

72587

} else {

72588

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

72589

return TCL_ERROR;

72590

}

72591

} else {

72592

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

72593

return TCL_ERROR;

72594

}

72595

{

72596

Tcl_CmdInfo dummy;

72597

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

72598

Tcl_CreateObjCommand(interp,name, TclccCACongestionSettingMethodCmd, (ClientData) newObj, del);

72599

return TCL_OK;

72600

} else {

72601

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

72602

return TCL_ERROR;

72603

}

72604

}

72605

}

72606

72607

72608

#define _ibcc_tbl_entry_shift_multiplier_set(_swigobj,_swigval) (_swigobj->shift_multiplier = *(_swigval),_swigval)

72609

static int _wrap_ib_cc_tbl_entry_t_shift_multiplier_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72610

72611

ib_net16_t * _result;

72612

ib_cc_tbl_entry_t * _arg0;

72613

ib_net16_t * _arg1;

72614

Tcl_Obj * tcl_result;

72615

char * rettype;

72616

ib_net16_t temp;

72617

72618

clientData = clientData; objv = objv;

72619

tcl_result = Tcl_GetObjResult(interp);

72620

if ((objc < 3) || (objc > 3)) {

72621

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cc_tbl_entry_t_shift_multiplier_set { ib_cc_tbl_entry_t * } { ib_net16_t * } ",-1);

72622

return TCL_ERROR;

72623

}

72624

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cc_tbl_entry_t_p"))) {

72625

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cc_tbl_entry_t_shift_multiplier_set. Expected _ib_cc_tbl_entry_t_p, received ", -1);

72626

Tcl_AppendToObj(tcl_result, rettype, -1);

72627

return TCL_ERROR;

72628

}

72629

{

72630

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

72631

_arg1 = &temp;

72632

}

72633

{

72634

/* we can check if IBIS was initialized here */

72635

if (!IbisObj.initialized)

72636

{

72637

Tcl_SetStringObj(

72638

Tcl_GetObjResult(interp),

72639

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72640

return TCL_ERROR;

72641

}

72642

72643

if (! IbisObj.port_guid)

72644

{

72645

Tcl_SetStringObj(

72646

Tcl_GetObjResult(interp),

72647

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72648

return TCL_ERROR;

72649

}

72650

72651

ibis_tcl_error = 0;

72652

_result = (ib_net16_t *)_ibcc_tbl_entry_shift_multiplier_set(_arg0,_arg1);

72653

;

72654

if (ibis_tcl_error) {

72655

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72656

return TCL_ERROR;

72657

}

72658

} tcl_result = Tcl_GetObjResult(interp);

72659

{

72660

char buff[20];

72661

sprintf(buff, "%u", cl_hton16(*_result));

72662

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

72663

}

72664

return TCL_OK;

72665

}

72666

#define _ibcc_tbl_entry_shift_multiplier_get(_swigobj) (&_swigobj->shift_multiplier)

72667

static int _wrap_ib_cc_tbl_entry_t_shift_multiplier_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72668

72669

ib_net16_t * _result;

72670

ib_cc_tbl_entry_t * _arg0;

72671

Tcl_Obj * tcl_result;

72672

char * rettype;

72673

72674

clientData = clientData; objv = objv;

72675

tcl_result = Tcl_GetObjResult(interp);

72676

if ((objc < 2) || (objc > 2)) {

72677

Tcl_SetStringObj(tcl_result,"Wrong # args. ib_cc_tbl_entry_t_shift_multiplier_get { ib_cc_tbl_entry_t * } ",-1);

72678

return TCL_ERROR;

72679

}

72680

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ib_cc_tbl_entry_t_p"))) {

72681

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ib_cc_tbl_entry_t_shift_multiplier_get. Expected _ib_cc_tbl_entry_t_p, received ", -1);

72682

Tcl_AppendToObj(tcl_result, rettype, -1);

72683

return TCL_ERROR;

72684

}

72685

{

72686

/* we can check if IBIS was initialized here */

72687

if (!IbisObj.initialized)

72688

{

72689

Tcl_SetStringObj(

72690

Tcl_GetObjResult(interp),

72691

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72692

return TCL_ERROR;

72693

}

72694

72695

if (! IbisObj.port_guid)

72696

{

72697

Tcl_SetStringObj(

72698

Tcl_GetObjResult(interp),

72699

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72700

return TCL_ERROR;

72701

}

72702

72703

ibis_tcl_error = 0;

72704

_result = (ib_net16_t *)_ibcc_tbl_entry_shift_multiplier_get(_arg0);

72705

;

72706

if (ibis_tcl_error) {

72707

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72708

return TCL_ERROR;

72709

}

72710

} tcl_result = Tcl_GetObjResult(interp);

72711

{

72712

char buff[20];

72713

sprintf(buff, "%u", cl_hton16(*_result));

72714

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

72715

}

72716

return TCL_OK;

72717

}

72718

/* methodcmd8.swg : Tcl8.x method invocation */

72719

72720

static int Tclib_cc_tbl_entry_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

72721

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

72722

char *_str;

72723

int rcode;

72724

Tcl_Obj **objv;

72725

Tcl_Obj *oldarg,*tcl_result,*obj;

72726

int length;

72727

char c;

72728

72729

tcl_result = Tcl_GetObjResult(interp);

72730

objv = (Tcl_Obj **) _objv;

72731

if (objc < 2) {

72732

Tcl_SetStringObj(tcl_result,"ib_cc_tbl_entry_t methods : { dump cget configure }",-1);

72733

return TCL_ERROR;

72734

}

72735

obj = Tcl_NewObj();

72736

SWIG_SetPointerObj(obj,(void *) clientData,"_ib_cc_tbl_entry_t_p");

72737

_str = Tcl_GetStringFromObj(objv[1],&length);

72738

c = *_str;

72739

if (0);

72740

72741

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

72742

int i = 2;

72743

cmd = 0;

72744

while (i+1 < objc) {

72745

_str = Tcl_GetStringFromObj(objv[i],&length);

72746

if (strcmp(_str,"-shift_multiplier") == 0) {

72747

cmd = _wrap_ib_cc_tbl_entry_t_shift_multiplier_set;

72748

}

72749

if (cmd) {

72750

oldarg = objv[i];

72751

objv[i] = obj;

72752

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

72753

objv[i] = oldarg;

72754

if (rcode == TCL_ERROR) return rcode;

72755

cmd = 0;

72756

} else {

72757

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -shift_multiplier }",-1);

72758

return TCL_ERROR;

72759

}

72760

i+=2;

72761

}

72762

if ((i < objc) || (i == 2)) {

72763

Tcl_SetStringObj(tcl_result,"{ -shift_multiplier }",-1);

72764

return TCL_ERROR;

72765

}

72766

return TCL_OK;

72767

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

72768

if (objc == 3) {

72769

_str = Tcl_GetStringFromObj(objv[2],&length);

72770

if (0) {}

72771

if (strcmp(_str,"-shift_multiplier") == 0) {

72772

cmd = _wrap_ib_cc_tbl_entry_t_shift_multiplier_get;

72773

}

72774

else if (strcmp(_str,"-this") == 0) {

72775

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ib_cc_tbl_entry_t_p");

72776

return TCL_OK;

72777

}

72778

if (cmd) {

72779

oldarg = objv[2];

72780

objv[2] = obj;

72781

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

72782

objv[2] = oldarg;

72783

return rcode;

72784

} else {

72785

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -shift_multiplier }",-1);

72786

return TCL_ERROR;

72787

}

72788

} else {

72789

Tcl_SetStringObj(tcl_result,"{ -this -shift_multiplier }", -1);

72790

return TCL_ERROR;

72791

}

72792

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

72793

if (objc == 2) {

72794

Tcl_Obj *pDumpObj;

72795

pDumpObj = Tcl_NewStringObj("",-1);

72796

Tcl_IncrRefCount(pDumpObj);

72797

cmd = _wrap_ib_cc_tbl_entry_t_shift_multiplier_get;

72798

oldarg = objv[2];

72799

objv[2] = obj;

72800

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

72801

objv[2] = oldarg;

72802

Tcl_AppendStringsToObj(pDumpObj, "-shift_multiplier ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

72803

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

72804

72805

Tcl_DecrRefCount(pDumpObj);

72806

return TCL_OK;

72807

} else {

72808

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

72809

return TCL_ERROR;

72810

}

72811

}

72812

if (!cmd) {

72813

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

72814

return TCL_ERROR;

72815

}

72816

oldarg = objv[1];

72817

objv[1] = obj;

72818

rcode = (*cmd)(clientData,interp,objc,objv);

72819

objv[1] = oldarg;

72820

return rcode;

72821

}

72822

72823

72824

72825

/* objcmd8.swg : Tcl 8.x object creation */

72826

72827

static int Tclib_cc_tbl_entry_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72828

void (*del)(ClientData) = 0;

72829

char *name = 0;

72830

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

72831

ib_cc_tbl_entry_t * newObj = 0;

72832

int firstarg = 0;

72833

int thisarg = 0;

72834

int length;

72835

char *_str;

72836

Tcl_Obj *tcl_result;

72837

72838

tcl_result = Tcl_GetObjResult(interp);

72839

if (objc == 1) {

72840

cmd = 0;

72841

} else {

72842

_str = Tcl_GetStringFromObj(objv[1],&length);

72843

if (strcmp(_str,"-this") == 0) thisarg = 2;

72844

else if (strcmp(_str,"-args") == 0) {

72845

firstarg = 1;

72846

cmd = 0;

72847

} else if (objc == 2) {

72848

firstarg = 1;

72849

name = _str;

72850

cmd = 0;

72851

} else if (objc >= 3) {

72852

name = _str;

72853

_str = Tcl_GetStringFromObj(objv[2],&length);

72854

if (strcmp(_str,"-this") == 0) thisarg = 3;

72855

else {

72856

firstarg = 1;

72857

cmd = 0;

72858

}

72859

}

72860

}

72861

if (cmd) {

72862

int result;

72863

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

72864

if (result == TCL_OK) {

72865

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ib_cc_tbl_entry_t_p");

72866

} else { return result; }

72867

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

72868

del = 0;

72869

} else if (thisarg > 0) {

72870

if (thisarg < objc) {

72871

char *r;

72872

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ib_cc_tbl_entry_t_p");

72873

if (r) {

72874

Tcl_SetStringObj(tcl_result,"Type error. not a ib_cc_tbl_entry_t object.",-1);

72875

return TCL_ERROR;

72876

}

72877

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

72878

Tcl_SetStringObj(tcl_result,name,-1);

72879

} else {

72880

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

72881

return TCL_ERROR;

72882

}

72883

} else {

72884

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

72885

return TCL_ERROR;

72886

}

72887

{

72888

Tcl_CmdInfo dummy;

72889

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

72890

Tcl_CreateObjCommand(interp,name, Tclib_cc_tbl_entry_tMethodCmd, (ClientData) newObj, del);

72891

return TCL_OK;

72892

} else {

72893

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

72894

return TCL_ERROR;

72895

}

72896

}

72897

}

72898

72899

72900

#define _ib_cc_tbl_ccti_limit_set(_swigobj,_swigval) (_swigobj->ccti_limit = *(_swigval),_swigval)

72901

static int _wrap_ccTable_ccti_limit_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72902

72903

ib_net16_t * _result;

72904

ccTable * _arg0;

72905

ib_net16_t * _arg1;

72906

Tcl_Obj * tcl_result;

72907

char * rettype;

72908

ib_net16_t temp;

72909

72910

clientData = clientData; objv = objv;

72911

tcl_result = Tcl_GetObjResult(interp);

72912

if ((objc < 3) || (objc > 3)) {

72913

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_ccti_limit_set { ccTable * } { ib_net16_t * } ",-1);

72914

return TCL_ERROR;

72915

}

72916

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

72917

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_ccti_limit_set. Expected _ccTable_p, received ", -1);

72918

Tcl_AppendToObj(tcl_result, rettype, -1);

72919

return TCL_ERROR;

72920

}

72921

{

72922

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

72923

_arg1 = &temp;

72924

}

72925

{

72926

/* we can check if IBIS was initialized here */

72927

if (!IbisObj.initialized)

72928

{

72929

Tcl_SetStringObj(

72930

Tcl_GetObjResult(interp),

72931

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72932

return TCL_ERROR;

72933

}

72934

72935

if (! IbisObj.port_guid)

72936

{

72937

Tcl_SetStringObj(

72938

Tcl_GetObjResult(interp),

72939

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72940

return TCL_ERROR;

72941

}

72942

72943

ibis_tcl_error = 0;

72944

_result = (ib_net16_t *)_ib_cc_tbl_ccti_limit_set(_arg0,_arg1);

72945

;

72946

if (ibis_tcl_error) {

72947

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

72948

return TCL_ERROR;

72949

}

72950

} tcl_result = Tcl_GetObjResult(interp);

72951

{

72952

char buff[20];

72953

sprintf(buff, "%u", cl_hton16(*_result));

72954

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

72955

}

72956

return TCL_OK;

72957

}

72958

#define _ib_cc_tbl_ccti_limit_get(_swigobj) (&_swigobj->ccti_limit)

72959

static int _wrap_ccTable_ccti_limit_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

72960

72961

ib_net16_t * _result;

72962

ccTable * _arg0;

72963

Tcl_Obj * tcl_result;

72964

char * rettype;

72965

72966

clientData = clientData; objv = objv;

72967

tcl_result = Tcl_GetObjResult(interp);

72968

if ((objc < 2) || (objc > 2)) {

72969

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_ccti_limit_get { ccTable * } ",-1);

72970

return TCL_ERROR;

72971

}

72972

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

72973

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_ccti_limit_get. Expected _ccTable_p, received ", -1);

72974

Tcl_AppendToObj(tcl_result, rettype, -1);

72975

return TCL_ERROR;

72976

}

72977

{

72978

/* we can check if IBIS was initialized here */

72979

if (!IbisObj.initialized)

72980

{

72981

Tcl_SetStringObj(

72982

Tcl_GetObjResult(interp),

72983

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

72984

return TCL_ERROR;

72985

}

72986

72987

if (! IbisObj.port_guid)

72988

{

72989

Tcl_SetStringObj(

72990

Tcl_GetObjResult(interp),

72991

" ibis was not yet initialized. please use ibis_set_port before.", -1);

72992

return TCL_ERROR;

72993

}

72994

72995

ibis_tcl_error = 0;

72996

_result = (ib_net16_t *)_ib_cc_tbl_ccti_limit_get(_arg0);

72997

;

72998

if (ibis_tcl_error) {

72999

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73000

return TCL_ERROR;

73001

}

73002

} tcl_result = Tcl_GetObjResult(interp);

73003

{

73004

char buff[20];

73005

sprintf(buff, "%u", cl_hton16(*_result));

73006

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

73007

}

73008

return TCL_OK;

73009

}

73010

#define _ib_cc_tbl_resv_set(_swigobj,_swigval) (_swigobj->resv = *(_swigval),_swigval)

73011

static int _wrap_ccTable_resv_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73012

73013

ib_net16_t * _result;

73014

ccTable * _arg0;

73015

ib_net16_t * _arg1;

73016

Tcl_Obj * tcl_result;

73017

char * rettype;

73018

ib_net16_t temp;

73019

73020

clientData = clientData; objv = objv;

73021

tcl_result = Tcl_GetObjResult(interp);

73022

if ((objc < 3) || (objc > 3)) {

73023

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_resv_set { ccTable * } { ib_net16_t * } ",-1);

73024

return TCL_ERROR;

73025

}

73026

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73027

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_resv_set. Expected _ccTable_p, received ", -1);

73028

Tcl_AppendToObj(tcl_result, rettype, -1);

73029

return TCL_ERROR;

73030

}

73031

{

73032

temp = cl_hton16(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

73033

_arg1 = &temp;

73034

}

73035

{

73036

/* we can check if IBIS was initialized here */

73037

if (!IbisObj.initialized)

73038

{

73039

Tcl_SetStringObj(

73040

Tcl_GetObjResult(interp),

73041

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73042

return TCL_ERROR;

73043

}

73044

73045

if (! IbisObj.port_guid)

73046

{

73047

Tcl_SetStringObj(

73048

Tcl_GetObjResult(interp),

73049

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73050

return TCL_ERROR;

73051

}

73052

73053

ibis_tcl_error = 0;

73054

_result = (ib_net16_t *)_ib_cc_tbl_resv_set(_arg0,_arg1);

73055

;

73056

if (ibis_tcl_error) {

73057

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73058

return TCL_ERROR;

73059

}

73060

} tcl_result = Tcl_GetObjResult(interp);

73061

{

73062

char buff[20];

73063

sprintf(buff, "%u", cl_hton16(*_result));

73064

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

73065

}

73066

return TCL_OK;

73067

}

73068

#define _ib_cc_tbl_resv_get(_swigobj) (&_swigobj->resv)

73069

static int _wrap_ccTable_resv_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73070

73071

ib_net16_t * _result;

73072

ccTable * _arg0;

73073

Tcl_Obj * tcl_result;

73074

char * rettype;

73075

73076

clientData = clientData; objv = objv;

73077

tcl_result = Tcl_GetObjResult(interp);

73078

if ((objc < 2) || (objc > 2)) {

73079

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_resv_get { ccTable * } ",-1);

73080

return TCL_ERROR;

73081

}

73082

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73083

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_resv_get. Expected _ccTable_p, received ", -1);

73084

Tcl_AppendToObj(tcl_result, rettype, -1);

73085

return TCL_ERROR;

73086

}

73087

{

73088

/* we can check if IBIS was initialized here */

73089

if (!IbisObj.initialized)

73090

{

73091

Tcl_SetStringObj(

73092

Tcl_GetObjResult(interp),

73093

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73094

return TCL_ERROR;

73095

}

73096

73097

if (! IbisObj.port_guid)

73098

{

73099

Tcl_SetStringObj(

73100

Tcl_GetObjResult(interp),

73101

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73102

return TCL_ERROR;

73103

}

73104

73105

ibis_tcl_error = 0;

73106

_result = (ib_net16_t *)_ib_cc_tbl_resv_get(_arg0);

73107

;

73108

if (ibis_tcl_error) {

73109

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73110

return TCL_ERROR;

73111

}

73112

} tcl_result = Tcl_GetObjResult(interp);

73113

{

73114

char buff[20];

73115

sprintf(buff, "%u", cl_hton16(*_result));

73116

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

73117

}

73118

return TCL_OK;

73119

}

73120

static ib_cc_tbl_entry_t * _ib_cc_tbl_entry_list_set(ccTable *obj, ib_cc_tbl_entry_t val[64]) {

73121

{

73122

int i;

73123

for (i=0; i <64 ; i++) {

73124

obj->entry_list[i] = *(val+i);

73125

}

73126

}

73127

return (ib_cc_tbl_entry_t *) val;

73128

}

73129

static int _wrap_ccTable_entry_list_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73130

73131

ib_cc_tbl_entry_t * _result;

73132

ccTable * _arg0;

73133

ib_cc_tbl_entry_t * _arg1;

73134

Tcl_Obj * tcl_result;

73135

char * rettype;

73136

ib_cc_tbl_entry_t entrys[64];

73137

73138

clientData = clientData; objv = objv;

73139

tcl_result = Tcl_GetObjResult(interp);

73140

if ((objc < 3) || (objc > 3)) {

73141

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_entry_list_set { ccTable * } { ib_cc_tbl_entry_t * } ",-1);

73142

return TCL_ERROR;

73143

}

73144

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73145

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_entry_list_set. Expected _ccTable_p, received ", -1);

73146

Tcl_AppendToObj(tcl_result, rettype, -1);

73147

return TCL_ERROR;

73148

}

73149

{

73150

long int value;

73151

long int entry_index = 0;

73152

int countSubLists, numElements;

73153

int i = 0;

73154

int option = 0;

73155

Tcl_Obj ** subListObjArray;

73156

Tcl_Obj * tclObj;

73157

73158

if (Tcl_ListObjGetElements(interp, objv[2], &countSubLists, &subListObjArray) != TCL_OK)

73159

{

73160

printf("Error: wrong format for CC Table: %s\n",

73161

Tcl_GetStringFromObj(objv[2],NULL));

73162

return TCL_ERROR;

73163

}

73164

73165

/* Congestion Control Table Entry List should have up to 64 entries */

73166

if (countSubLists > 64)

73167

{

73168

printf("Error: Congestion Control Table Entry List should have up to %d entries (provided %d)\n",

73169

64, countSubLists);

73170

return TCL_ERROR;

73171

}

73172

73173

/*

73174

* There are two options to configure entry_list:

73175

* 1. Configure the whole list by providing list of values:

73176

* ccTableMad configure -entry_list {1 2 3 4 5 6}

73177

* 2. Configure specific items from the list by providing index and value:

73178

* ccTableMad configure -entry_list {{1 3} {2 4} {7 16}}

73179

*/

73180

73181

if (countSubLists > 0) {

73182

73183

/* check how many members does the first substring have */

73184

73185

if (Tcl_ListObjLength(interp, subListObjArray[0], &numElements) != TCL_OK) {

73186

printf("Error: wrong format for CC Table Entry: %s\n",

73187

Tcl_GetStringFromObj(subListObjArray[0],NULL));

73188

return TCL_ERROR;

73189

}

73190

73191

if (numElements == 1)

73192

option = 1;

73193

else if (numElements == 2)

73194

option = 2;

73195

else {

73196

printf("Error: wrong number of elements for CC Table Entry: %s\n",

73197

Tcl_GetStringFromObj(subListObjArray[0],NULL));

73198

return TCL_ERROR;

73199

}

73200

}

73201

else {

73202

/* if the user didn't specify anything, use option 1,

73203

wich will effectively clear the whole list values */

73204

option = 1;

73205

}

73206

73207

for (i = 0; i < 64; i++)

73208

entrys[i].shift_multiplier = 0;

73209

73210

if (option == 1) {

73211

/*

73212

* first option - list of values

73213

*/

73214

73215

for (i = 0; i < countSubLists; i++) {

73216

73217

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

73218

printf("Error: wrong format for CC Table Entry: %s\n",

73219

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73220

return TCL_ERROR;

73221

}

73222

73223

if (numElements != 1) {

73224

printf("Error: wrong number of elements for CC Table Entry: %s\n",

73225

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73226

return TCL_ERROR;

73227

}

73228

73229

if (Tcl_ListObjIndex(interp, subListObjArray[i], 0, &tclObj) != TCL_OK) {

73230

printf("Error: Fail to obtain the element of CC Table Entry: %s\n",

73231

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73232

return TCL_ERROR;

73233

}

73234

73235

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

73236

73237

entrys[i].shift_multiplier = cl_hton16(value);

73238

}

73239

73240

}

73241

else {

73242

/*

73243

* second option - index and value

73244

*/

73245

73246

for (i = 0; i < countSubLists; i++) {

73247

73248

if (Tcl_ListObjLength(interp, subListObjArray[i], &numElements) != TCL_OK) {

73249

printf("Error: wrong format for CC Table Entry: %s\n",

73250

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73251

return TCL_ERROR;

73252

}

73253

73254

if (numElements != 2) {

73255

printf("Error: wrong number of elements for CC Table Entry: %s\n",

73256

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73257

return TCL_ERROR;

73258

}

73259

73260

if (Tcl_ListObjIndex(interp, subListObjArray[i], 0, &tclObj) != TCL_OK) {

73261

printf("Error: Fail to obtain the element of CC Table Entry: %s\n",

73262

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73263

return TCL_ERROR;

73264

}

73265

73266

entry_index = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

73267

73268

if (Tcl_ListObjIndex(interp, subListObjArray[i], 1, &tclObj) != TCL_OK) {

73269

printf("Error: Fail to obtain the element of CC Table Entry: %s\n",

73270

Tcl_GetStringFromObj(subListObjArray[i],NULL));

73271

return TCL_ERROR;

73272

}

73273

73274

value = strtol(Tcl_GetStringFromObj(tclObj, NULL), NULL, 0);

73275

73276

entrys[entry_index].shift_multiplier = cl_hton16(value);

73277

}

73278

}

73279

73280

_arg1 = entrys;

73281

}

73282

{

73283

/* we can check if IBIS was initialized here */

73284

if (!IbisObj.initialized)

73285

{

73286

Tcl_SetStringObj(

73287

Tcl_GetObjResult(interp),

73288

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73289

return TCL_ERROR;

73290

}

73291

73292

if (! IbisObj.port_guid)

73293

{

73294

Tcl_SetStringObj(

73295

Tcl_GetObjResult(interp),

73296

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73297

return TCL_ERROR;

73298

}

73299

73300

ibis_tcl_error = 0;

73301

_result = (ib_cc_tbl_entry_t *)_ib_cc_tbl_entry_list_set(_arg0,_arg1);

73302

;

73303

if (ibis_tcl_error) {

73304

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73305

return TCL_ERROR;

73306

}

73307

} tcl_result = Tcl_GetObjResult(interp);

73308

{

73309

int i;

73310

char buff[99];

73311

73312

sprintf(buff, "-entry_list { ");

73313

Tcl_AppendResult(interp, buff, NULL);

73314

73315

for (i=0; i <64 ; i++) {

73316

sprintf(buff, "{#%02u: 0x%04x} ", i, cl_ntoh16(_result[i].shift_multiplier));

73317

Tcl_AppendResult(interp, buff, NULL);

73318

}

73319

73320

sprintf(buff, "} ");

73321

Tcl_AppendResult(interp, buff, NULL);

73322

}

73323

return TCL_OK;

73324

}

73325

#define _ib_cc_tbl_entry_list_get(_swigobj) ((ib_cc_tbl_entry_t *) _swigobj->entry_list)

73326

static int _wrap_ccTable_entry_list_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73327

73328

ib_cc_tbl_entry_t * _result;

73329

ccTable * _arg0;

73330

Tcl_Obj * tcl_result;

73331

char * rettype;

73332

73333

clientData = clientData; objv = objv;

73334

tcl_result = Tcl_GetObjResult(interp);

73335

if ((objc < 2) || (objc > 2)) {

73336

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_entry_list_get { ccTable * } ",-1);

73337

return TCL_ERROR;

73338

}

73339

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73340

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_entry_list_get. Expected _ccTable_p, received ", -1);

73341

Tcl_AppendToObj(tcl_result, rettype, -1);

73342

return TCL_ERROR;

73343

}

73344

{

73345

/* we can check if IBIS was initialized here */

73346

if (!IbisObj.initialized)

73347

{

73348

Tcl_SetStringObj(

73349

Tcl_GetObjResult(interp),

73350

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73351

return TCL_ERROR;

73352

}

73353

73354

if (! IbisObj.port_guid)

73355

{

73356

Tcl_SetStringObj(

73357

Tcl_GetObjResult(interp),

73358

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73359

return TCL_ERROR;

73360

}

73361

73362

ibis_tcl_error = 0;

73363

_result = (ib_cc_tbl_entry_t *)_ib_cc_tbl_entry_list_get(_arg0);

73364

;

73365

if (ibis_tcl_error) {

73366

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73367

return TCL_ERROR;

73368

}

73369

} tcl_result = Tcl_GetObjResult(interp);

73370

{

73371

int i;

73372

char buff[99];

73373

73374

sprintf(buff, "-entry_list { ");

73375

Tcl_AppendResult(interp, buff, NULL);

73376

73377

for (i=0; i <64 ; i++) {

73378

sprintf(buff, "{#%02u: 0x%04x} ", i, cl_ntoh16(_result[i].shift_multiplier));

73379

Tcl_AppendResult(interp, buff, NULL);

73380

}

73381

73382

sprintf(buff, "} ");

73383

Tcl_AppendResult(interp, buff, NULL);

73384

}

73385

return TCL_OK;

73386

}

73387

static int ccTable_getByLid(ccTable *self,uint16_t lid,uint8_t sn) {

73388

return ibcc_send_mad_by_lid (

73389

gp_ibcc,

73390

IBCC_DEAFULT_KEY,

73391

NULL, // log data

73392

0, // log data size

73393

(uint8_t *)self, // mgt data

73394

sizeof(ccTable), // mgt data size

73395

lid,

73396

CL_NTOH16(IB_MAD_ATTR_CC_TBL),

73397

sn, // attribute modifier

73398

IB_MAD_METHOD_GET);

73399

}

73400

static int _wrap_ccTable_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73401

73402

int _result;

73403

ccTable * _arg0;

73404

uint16_t * _arg1;

73405

uint8_t * _arg2;

73406

Tcl_Obj * tcl_result;

73407

char * rettype;

73408

uint16_t temp;

73409

uint8_t temp0;

73410

73411

clientData = clientData; objv = objv;

73412

tcl_result = Tcl_GetObjResult(interp);

73413

if ((objc < 4) || (objc > 4)) {

73414

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_getByLid { ccTable * } lid sn ",-1);

73415

return TCL_ERROR;

73416

}

73417

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73418

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_getByLid. Expected _ccTable_p, received ", -1);

73419

Tcl_AppendToObj(tcl_result, rettype, -1);

73420

return TCL_ERROR;

73421

}

73422

{

73423

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

73424

_arg1 = &temp;

73425

}

73426

{

73427

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

73428

_arg2 = &temp0;

73429

}

73430

{

73431

/* we can check if IBIS was initialized here */

73432

if (!IbisObj.initialized)

73433

{

73434

Tcl_SetStringObj(

73435

Tcl_GetObjResult(interp),

73436

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73437

return TCL_ERROR;

73438

}

73439

73440

if (! IbisObj.port_guid)

73441

{

73442

Tcl_SetStringObj(

73443

Tcl_GetObjResult(interp),

73444

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73445

return TCL_ERROR;

73446

}

73447

73448

ibis_tcl_error = 0;

73449

_result = (int )ccTable_getByLid(_arg0,*_arg1,*_arg2);

73450

;

73451

if (ibis_tcl_error) {

73452

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73453

return TCL_ERROR;

73454

}

73455

} tcl_result = Tcl_GetObjResult(interp);

73456

Tcl_SetIntObj(tcl_result,(long) _result);

73457

return TCL_OK;

73458

}

73459

static int ccTable_setByLid(ccTable *self,uint16_t lid,uint8_t sn) {

73460

return ibcc_send_mad_by_lid (

73461

gp_ibcc,

73462

IBCC_DEAFULT_KEY,

73463

NULL, // log data

73464

0, // log data size

73465

(uint8_t *)self, // mgt data

73466

sizeof(ccTable), // mgt data size

73467

lid,

73468

CL_NTOH16(IB_MAD_ATTR_CC_TBL),

73469

sn, // attribute modifier

73470

IB_MAD_METHOD_SET);

73471

}

73472

static int _wrap_ccTable_setByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73473

73474

int _result;

73475

ccTable * _arg0;

73476

uint16_t * _arg1;

73477

uint8_t * _arg2;

73478

Tcl_Obj * tcl_result;

73479

char * rettype;

73480

uint16_t temp;

73481

uint8_t temp0;

73482

73483

clientData = clientData; objv = objv;

73484

tcl_result = Tcl_GetObjResult(interp);

73485

if ((objc < 4) || (objc > 4)) {

73486

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTable_setByLid { ccTable * } lid sn ",-1);

73487

return TCL_ERROR;

73488

}

73489

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTable_p"))) {

73490

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTable_setByLid. Expected _ccTable_p, received ", -1);

73491

Tcl_AppendToObj(tcl_result, rettype, -1);

73492

return TCL_ERROR;

73493

}

73494

{

73495

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

73496

_arg1 = &temp;

73497

}

73498

{

73499

temp0 = strtoul(Tcl_GetStringFromObj(objv[3],NULL), NULL, 0);

73500

_arg2 = &temp0;

73501

}

73502

{

73503

/* we can check if IBIS was initialized here */

73504

if (!IbisObj.initialized)

73505

{

73506

Tcl_SetStringObj(

73507

Tcl_GetObjResult(interp),

73508

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73509

return TCL_ERROR;

73510

}

73511

73512

if (! IbisObj.port_guid)

73513

{

73514

Tcl_SetStringObj(

73515

Tcl_GetObjResult(interp),

73516

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73517

return TCL_ERROR;

73518

}

73519

73520

ibis_tcl_error = 0;

73521

_result = (int )ccTable_setByLid(_arg0,*_arg1,*_arg2);

73522

;

73523

if (ibis_tcl_error) {

73524

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73525

return TCL_ERROR;

73526

}

73527

} tcl_result = Tcl_GetObjResult(interp);

73528

Tcl_SetIntObj(tcl_result,(long) _result);

73529

return TCL_OK;

73530

}

73531

/* methodcmd8.swg : Tcl8.x method invocation */

73532

73533

static int TclccTableMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

73534

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

73535

char *_str;

73536

int rcode;

73537

Tcl_Obj **objv;

73538

Tcl_Obj *oldarg,*tcl_result,*obj;

73539

int length;

73540

char c;

73541

73542

tcl_result = Tcl_GetObjResult(interp);

73543

objv = (Tcl_Obj **) _objv;

73544

if (objc < 2) {

73545

Tcl_SetStringObj(tcl_result,"ccTable methods : { dump cget configure getByLid setByLid }",-1);

73546

return TCL_ERROR;

73547

}

73548

obj = Tcl_NewObj();

73549

SWIG_SetPointerObj(obj,(void *) clientData,"_ccTable_p");

73550

_str = Tcl_GetStringFromObj(objv[1],&length);

73551

c = *_str;

73552

if (0);

73553

if (strcmp(_str,"getByLid") == 0) {

73554

cmd = _wrap_ccTable_getByLid;

73555

} else if (strcmp(_str,"setByLid") == 0) {

73556

cmd = _wrap_ccTable_setByLid;

73557

}

73558

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

73559

int i = 2;

73560

cmd = 0;

73561

while (i+1 < objc) {

73562

_str = Tcl_GetStringFromObj(objv[i],&length);

73563

if (strcmp(_str,"-ccti_limit") == 0) {

73564

cmd = _wrap_ccTable_ccti_limit_set;

73565

} else if (strcmp(_str,"-resv") == 0) {

73566

cmd = _wrap_ccTable_resv_set;

73567

} else if (strcmp(_str,"-entry_list") == 0) {

73568

cmd = _wrap_ccTable_entry_list_set;

73569

}

73570

if (cmd) {

73571

oldarg = objv[i];

73572

objv[i] = obj;

73573

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

73574

objv[i] = oldarg;

73575

if (rcode == TCL_ERROR) return rcode;

73576

cmd = 0;

73577

} else {

73578

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -ccti_limit -resv -entry_list }",-1);

73579

return TCL_ERROR;

73580

}

73581

i+=2;

73582

}

73583

if ((i < objc) || (i == 2)) {

73584

Tcl_SetStringObj(tcl_result,"{ -ccti_limit -resv -entry_list }",-1);

73585

return TCL_ERROR;

73586

}

73587

return TCL_OK;

73588

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

73589

if (objc == 3) {

73590

_str = Tcl_GetStringFromObj(objv[2],&length);

73591

if (0) {}

73592

if (strcmp(_str,"-ccti_limit") == 0) {

73593

cmd = _wrap_ccTable_ccti_limit_get;

73594

} else if (strcmp(_str,"-resv") == 0) {

73595

cmd = _wrap_ccTable_resv_get;

73596

} else if (strcmp(_str,"-entry_list") == 0) {

73597

cmd = _wrap_ccTable_entry_list_get;

73598

}

73599

else if (strcmp(_str,"-this") == 0) {

73600

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccTable_p");

73601

return TCL_OK;

73602

}

73603

if (cmd) {

73604

oldarg = objv[2];

73605

objv[2] = obj;

73606

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

73607

objv[2] = oldarg;

73608

return rcode;

73609

} else {

73610

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -ccti_limit -resv -entry_list }",-1);

73611

return TCL_ERROR;

73612

}

73613

} else {

73614

Tcl_SetStringObj(tcl_result,"{ -this -ccti_limit -resv -entry_list }", -1);

73615

return TCL_ERROR;

73616

}

73617

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

73618

if (objc == 2) {

73619

Tcl_Obj *pDumpObj;

73620

pDumpObj = Tcl_NewStringObj("",-1);

73621

Tcl_IncrRefCount(pDumpObj);

73622

cmd = _wrap_ccTable_ccti_limit_get;

73623

oldarg = objv[2];

73624

objv[2] = obj;

73625

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

73626

objv[2] = oldarg;

73627

Tcl_AppendStringsToObj(pDumpObj, "-ccti_limit ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

73628

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

73629

cmd = _wrap_ccTable_resv_get;

73630

oldarg = objv[2];

73631

objv[2] = obj;

73632

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

73633

objv[2] = oldarg;

73634

Tcl_AppendStringsToObj(pDumpObj, "-resv ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

73635

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

73636

cmd = _wrap_ccTable_entry_list_get;

73637

oldarg = objv[2];

73638

objv[2] = obj;

73639

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

73640

objv[2] = oldarg;

73641

Tcl_AppendStringsToObj(pDumpObj, "-entry_list ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

73642

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

73643

73644

Tcl_DecrRefCount(pDumpObj);

73645

return TCL_OK;

73646

} else {

73647

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

73648

return TCL_ERROR;

73649

}

73650

}

73651

if (!cmd) {

73652

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid setByLid }",-1);

73653

return TCL_ERROR;

73654

}

73655

oldarg = objv[1];

73656

objv[1] = obj;

73657

rcode = (*cmd)(clientData,interp,objc,objv);

73658

objv[1] = oldarg;

73659

return rcode;

73660

}

73661

73662

73663

73664

/* objcmd8.swg : Tcl 8.x object creation */

73665

73666

static int TclccTableCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73667

void (*del)(ClientData) = 0;

73668

char *name = 0;

73669

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

73670

ccTable * newObj = 0;

73671

int firstarg = 0;

73672

int thisarg = 0;

73673

int length;

73674

char *_str;

73675

Tcl_Obj *tcl_result;

73676

73677

tcl_result = Tcl_GetObjResult(interp);

73678

if (objc == 1) {

73679

cmd = 0;

73680

} else {

73681

_str = Tcl_GetStringFromObj(objv[1],&length);

73682

if (strcmp(_str,"-this") == 0) thisarg = 2;

73683

else if (strcmp(_str,"-args") == 0) {

73684

firstarg = 1;

73685

cmd = 0;

73686

} else if (objc == 2) {

73687

firstarg = 1;

73688

name = _str;

73689

cmd = 0;

73690

} else if (objc >= 3) {

73691

name = _str;

73692

_str = Tcl_GetStringFromObj(objv[2],&length);

73693

if (strcmp(_str,"-this") == 0) thisarg = 3;

73694

else {

73695

firstarg = 1;

73696

cmd = 0;

73697

}

73698

}

73699

}

73700

if (cmd) {

73701

int result;

73702

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

73703

if (result == TCL_OK) {

73704

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccTable_p");

73705

} else { return result; }

73706

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

73707

del = 0;

73708

} else if (thisarg > 0) {

73709

if (thisarg < objc) {

73710

char *r;

73711

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccTable_p");

73712

if (r) {

73713

Tcl_SetStringObj(tcl_result,"Type error. not a ccTable object.",-1);

73714

return TCL_ERROR;

73715

}

73716

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

73717

Tcl_SetStringObj(tcl_result,name,-1);

73718

} else {

73719

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

73720

return TCL_ERROR;

73721

}

73722

} else {

73723

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

73724

return TCL_ERROR;

73725

}

73726

{

73727

Tcl_CmdInfo dummy;

73728

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

73729

Tcl_CreateObjCommand(interp,name, TclccTableMethodCmd, (ClientData) newObj, del);

73730

return TCL_OK;

73731

} else {

73732

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

73733

return TCL_ERROR;

73734

}

73735

}

73736

}

73737

73738

73739

#define _ib_time_stamp_value_set(_swigobj,_swigval) (_swigobj->value = *(_swigval),_swigval)

73740

static int _wrap_ccTimeStamp_value_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73741

73742

ib_net32_t * _result;

73743

ccTimeStamp * _arg0;

73744

ib_net32_t * _arg1;

73745

Tcl_Obj * tcl_result;

73746

char * rettype;

73747

ib_net32_t temp;

73748

73749

clientData = clientData; objv = objv;

73750

tcl_result = Tcl_GetObjResult(interp);

73751

if ((objc < 3) || (objc > 3)) {

73752

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTimeStamp_value_set { ccTimeStamp * } { ib_net32_t * } ",-1);

73753

return TCL_ERROR;

73754

}

73755

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTimeStamp_p"))) {

73756

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTimeStamp_value_set. Expected _ccTimeStamp_p, received ", -1);

73757

Tcl_AppendToObj(tcl_result, rettype, -1);

73758

return TCL_ERROR;

73759

}

73760

{

73761

temp = cl_hton32(strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0));

73762

_arg1 = &temp;

73763

}

73764

{

73765

/* we can check if IBIS was initialized here */

73766

if (!IbisObj.initialized)

73767

{

73768

Tcl_SetStringObj(

73769

Tcl_GetObjResult(interp),

73770

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73771

return TCL_ERROR;

73772

}

73773

73774

if (! IbisObj.port_guid)

73775

{

73776

Tcl_SetStringObj(

73777

Tcl_GetObjResult(interp),

73778

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73779

return TCL_ERROR;

73780

}

73781

73782

ibis_tcl_error = 0;

73783

_result = (ib_net32_t *)_ib_time_stamp_value_set(_arg0,_arg1);

73784

;

73785

if (ibis_tcl_error) {

73786

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73787

return TCL_ERROR;

73788

}

73789

} tcl_result = Tcl_GetObjResult(interp);

73790

{

73791

char buff[20];

73792

sprintf(buff, "%u", cl_ntoh32(*_result));

73793

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

73794

}

73795

return TCL_OK;

73796

}

73797

#define _ib_time_stamp_value_get(_swigobj) (&_swigobj->value)

73798

static int _wrap_ccTimeStamp_value_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73799

73800

ib_net32_t * _result;

73801

ccTimeStamp * _arg0;

73802

Tcl_Obj * tcl_result;

73803

char * rettype;

73804

73805

clientData = clientData; objv = objv;

73806

tcl_result = Tcl_GetObjResult(interp);

73807

if ((objc < 2) || (objc > 2)) {

73808

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTimeStamp_value_get { ccTimeStamp * } ",-1);

73809

return TCL_ERROR;

73810

}

73811

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTimeStamp_p"))) {

73812

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTimeStamp_value_get. Expected _ccTimeStamp_p, received ", -1);

73813

Tcl_AppendToObj(tcl_result, rettype, -1);

73814

return TCL_ERROR;

73815

}

73816

{

73817

/* we can check if IBIS was initialized here */

73818

if (!IbisObj.initialized)

73819

{

73820

Tcl_SetStringObj(

73821

Tcl_GetObjResult(interp),

73822

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73823

return TCL_ERROR;

73824

}

73825

73826

if (! IbisObj.port_guid)

73827

{

73828

Tcl_SetStringObj(

73829

Tcl_GetObjResult(interp),

73830

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73831

return TCL_ERROR;

73832

}

73833

73834

ibis_tcl_error = 0;

73835

_result = (ib_net32_t *)_ib_time_stamp_value_get(_arg0);

73836

;

73837

if (ibis_tcl_error) {

73838

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73839

return TCL_ERROR;

73840

}

73841

} tcl_result = Tcl_GetObjResult(interp);

73842

{

73843

char buff[20];

73844

sprintf(buff, "%u", cl_ntoh32(*_result));

73845

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

73846

}

73847

return TCL_OK;

73848

}

73849

static int ccTimeStamp_getByLid(ccTimeStamp *self,uint16_t lid) {

73850

return ibcc_send_mad_by_lid (

73851

gp_ibcc,

73852

IBCC_DEAFULT_KEY,

73853

NULL, // log data

73854

0, // log data size

73855

(uint8_t *)self, // mgt data

73856

sizeof(ccTimeStamp), // mgt data size

73857

lid,

73858

CL_NTOH16(IB_MAD_ATTR_TIME_STAMP),

73859

0, // attribute modifier

73860

IB_MAD_METHOD_GET);

73861

}

73862

static int _wrap_ccTimeStamp_getByLid(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

73863

73864

int _result;

73865

ccTimeStamp * _arg0;

73866

uint16_t * _arg1;

73867

Tcl_Obj * tcl_result;

73868

char * rettype;

73869

uint16_t temp;

73870

73871

clientData = clientData; objv = objv;

73872

tcl_result = Tcl_GetObjResult(interp);

73873

if ((objc < 3) || (objc > 3)) {

73874

Tcl_SetStringObj(tcl_result,"Wrong # args. ccTimeStamp_getByLid { ccTimeStamp * } lid ",-1);

73875

return TCL_ERROR;

73876

}

73877

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ccTimeStamp_p"))) {

73878

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ccTimeStamp_getByLid. Expected _ccTimeStamp_p, received ", -1);

73879

Tcl_AppendToObj(tcl_result, rettype, -1);

73880

return TCL_ERROR;

73881

}

73882

{

73883

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

73884

_arg1 = &temp;

73885

}

73886

{

73887

/* we can check if IBIS was initialized here */

73888

if (!IbisObj.initialized)

73889

{

73890

Tcl_SetStringObj(

73891

Tcl_GetObjResult(interp),

73892

"ibis was not yet initialized. please use ibis_init and then ibis_set_port before.", -1);

73893

return TCL_ERROR;

73894

}

73895

73896

if (! IbisObj.port_guid)

73897

{

73898

Tcl_SetStringObj(

73899

Tcl_GetObjResult(interp),

73900

" ibis was not yet initialized. please use ibis_set_port before.", -1);

73901

return TCL_ERROR;

73902

}

73903

73904

ibis_tcl_error = 0;

73905

_result = (int )ccTimeStamp_getByLid(_arg0,*_arg1);

73906

;

73907

if (ibis_tcl_error) {

73908

Tcl_SetStringObj(Tcl_GetObjResult(interp), ibis_tcl_error_msg, -1);

73909

return TCL_ERROR;

73910

}

73911

} tcl_result = Tcl_GetObjResult(interp);

73912

Tcl_SetIntObj(tcl_result,(long) _result);

73913

return TCL_OK;

73914

}

73915

/* methodcmd8.swg : Tcl8.x method invocation */

73916

73917

static int TclccTimeStampMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

73918

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

73919

char *_str;

73920

int rcode;

73921

Tcl_Obj **objv;

73922

Tcl_Obj *oldarg,*tcl_result,*obj;

73923

int length;

73924

char c;

73925

73926

tcl_result = Tcl_GetObjResult(interp);

73927

objv = (Tcl_Obj **) _objv;

73928

if (objc < 2) {

73929

Tcl_SetStringObj(tcl_result,"ccTimeStamp methods : { dump cget configure getByLid }",-1);

73930

return TCL_ERROR;

73931

}

73932

obj = Tcl_NewObj();

73933

SWIG_SetPointerObj(obj,(void *) clientData,"_ccTimeStamp_p");

73934

_str = Tcl_GetStringFromObj(objv[1],&length);

73935

c = *_str;

73936

if (0);

73937

if (strcmp(_str,"getByLid") == 0) {

73938

cmd = _wrap_ccTimeStamp_getByLid;

73939

}

73940

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

73941

int i = 2;

73942

cmd = 0;

73943

while (i+1 < objc) {

73944

_str = Tcl_GetStringFromObj(objv[i],&length);

73945

if (strcmp(_str,"-value") == 0) {

73946

cmd = _wrap_ccTimeStamp_value_set;

73947

}

73948

if (cmd) {

73949

oldarg = objv[i];

73950

objv[i] = obj;

73951

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

73952

objv[i] = oldarg;

73953

if (rcode == TCL_ERROR) return rcode;

73954

cmd = 0;

73955

} else {

73956

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -value }",-1);

73957

return TCL_ERROR;

73958

}

73959

i+=2;

73960

}

73961

if ((i < objc) || (i == 2)) {

73962

Tcl_SetStringObj(tcl_result,"{ -value }",-1);

73963

return TCL_ERROR;

73964

}

73965

return TCL_OK;

73966

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

73967

if (objc == 3) {

73968

_str = Tcl_GetStringFromObj(objv[2],&length);

73969

if (0) {}

73970

if (strcmp(_str,"-value") == 0) {

73971

cmd = _wrap_ccTimeStamp_value_get;

73972

}

73973

else if (strcmp(_str,"-this") == 0) {

73974

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ccTimeStamp_p");

73975

return TCL_OK;

73976

}

73977

if (cmd) {

73978

oldarg = objv[2];

73979

objv[2] = obj;

73980

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

73981

objv[2] = oldarg;

73982

return rcode;

73983

} else {

73984

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -value }",-1);

73985

return TCL_ERROR;

73986

}

73987

} else {

73988

Tcl_SetStringObj(tcl_result,"{ -this -value }", -1);

73989

return TCL_ERROR;

73990

}

73991

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

73992

if (objc == 2) {

73993

Tcl_Obj *pDumpObj;

73994

pDumpObj = Tcl_NewStringObj("",-1);

73995

Tcl_IncrRefCount(pDumpObj);

73996

cmd = _wrap_ccTimeStamp_value_get;

73997

oldarg = objv[2];

73998

objv[2] = obj;

73999

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74000

objv[2] = oldarg;

74001

Tcl_AppendStringsToObj(pDumpObj, "-value ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74002

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74003

74004

Tcl_DecrRefCount(pDumpObj);

74005

return TCL_OK;

74006

} else {

74007

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

74008

return TCL_ERROR;

74009

}

74010

}

74011

if (!cmd) {

74012

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure getByLid }",-1);

74013

return TCL_ERROR;

74014

}

74015

oldarg = objv[1];

74016

objv[1] = obj;

74017

rcode = (*cmd)(clientData,interp,objc,objv);

74018

objv[1] = oldarg;

74019

return rcode;

74020

}

74021

74022

74023

74024

/* objcmd8.swg : Tcl 8.x object creation */

74025

74026

static int TclccTimeStampCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74027

void (*del)(ClientData) = 0;

74028

char *name = 0;

74029

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

74030

ccTimeStamp * newObj = 0;

74031

int firstarg = 0;

74032

int thisarg = 0;

74033

int length;

74034

char *_str;

74035

Tcl_Obj *tcl_result;

74036

74037

tcl_result = Tcl_GetObjResult(interp);

74038

if (objc == 1) {

74039

cmd = 0;

74040

} else {

74041

_str = Tcl_GetStringFromObj(objv[1],&length);

74042

if (strcmp(_str,"-this") == 0) thisarg = 2;

74043

else if (strcmp(_str,"-args") == 0) {

74044

firstarg = 1;

74045

cmd = 0;

74046

} else if (objc == 2) {

74047

firstarg = 1;

74048

name = _str;

74049

cmd = 0;

74050

} else if (objc >= 3) {

74051

name = _str;

74052

_str = Tcl_GetStringFromObj(objv[2],&length);

74053

if (strcmp(_str,"-this") == 0) thisarg = 3;

74054

else {

74055

firstarg = 1;

74056

cmd = 0;

74057

}

74058

}

74059

}

74060

if (cmd) {

74061

int result;

74062

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

74063

if (result == TCL_OK) {

74064

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ccTimeStamp_p");

74065

} else { return result; }

74066

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

74067

del = 0;

74068

} else if (thisarg > 0) {

74069

if (thisarg < objc) {

74070

char *r;

74071

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ccTimeStamp_p");

74072

if (r) {

74073

Tcl_SetStringObj(tcl_result,"Type error. not a ccTimeStamp object.",-1);

74074

return TCL_ERROR;

74075

}

74076

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

74077

Tcl_SetStringObj(tcl_result,name,-1);

74078

} else {

74079

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

74080

return TCL_ERROR;

74081

}

74082

} else {

74083

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

74084

return TCL_ERROR;

74085

}

74086

{

74087

Tcl_CmdInfo dummy;

74088

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

74089

Tcl_CreateObjCommand(interp,name, TclccTimeStampMethodCmd, (ClientData) newObj, del);

74090

return TCL_OK;

74091

} else {

74092

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

74093

return TCL_ERROR;

74094

}

74095

}

74096

}

74097

74098

74099

#define _ibis_opt_single_thread_set(_swigobj,_swigval) (_swigobj->single_thread = *(_swigval),_swigval)

74100

static int _wrap_ibis_opt_t_single_thread_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74101

74102

boolean_t * _result;

74103

ibis_opt_t * _arg0;

74104

boolean_t * _arg1;

74105

Tcl_Obj * tcl_result;

74106

char * rettype;

74107

boolean_t temp;

74108

74109

clientData = clientData; objv = objv;

74110

tcl_result = Tcl_GetObjResult(interp);

74111

if ((objc < 3) || (objc > 3)) {

74112

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_single_thread_set { ibis_opt_t * } { boolean_t * } ",-1);

74113

return TCL_ERROR;

74114

}

74115

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74116

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_single_thread_set. Expected _ibis_opt_t_p, received ", -1);

74117

Tcl_AppendToObj(tcl_result, rettype, -1);

74118

return TCL_ERROR;

74119

}

74120

{

74121

if (strcmp(Tcl_GetStringFromObj(objv[2],NULL), "TRUE")) {

74122

temp = FALSE;

74123

} else {

74124

temp = TRUE;

74125

}

74126

_arg1 = &temp;

74127

}

74128

_result = (boolean_t *)_ibis_opt_single_thread_set(_arg0,_arg1);

74129

tcl_result = Tcl_GetObjResult(interp);

74130

{

74131

if (*_result) {

74132

Tcl_SetStringObj(tcl_result,"TRUE", 4);

74133

} else {

74134

Tcl_SetStringObj(tcl_result,"FALSE", 5);

74135

}

74136

}

74137

return TCL_OK;

74138

}

74139

#define _ibis_opt_single_thread_get(_swigobj) (&_swigobj->single_thread)

74140

static int _wrap_ibis_opt_t_single_thread_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74141

74142

boolean_t * _result;

74143

ibis_opt_t * _arg0;

74144

Tcl_Obj * tcl_result;

74145

char * rettype;

74146

74147

clientData = clientData; objv = objv;

74148

tcl_result = Tcl_GetObjResult(interp);

74149

if ((objc < 2) || (objc > 2)) {

74150

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_single_thread_get { ibis_opt_t * } ",-1);

74151

return TCL_ERROR;

74152

}

74153

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74154

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_single_thread_get. Expected _ibis_opt_t_p, received ", -1);

74155

Tcl_AppendToObj(tcl_result, rettype, -1);

74156

return TCL_ERROR;

74157

}

74158

_result = (boolean_t *)_ibis_opt_single_thread_get(_arg0);

74159

tcl_result = Tcl_GetObjResult(interp);

74160

{

74161

if (*_result) {

74162

Tcl_SetStringObj(tcl_result,"TRUE", 4);

74163

} else {

74164

Tcl_SetStringObj(tcl_result,"FALSE", 5);

74165

}

74166

}

74167

return TCL_OK;

74168

}

74169

#define _ibis_opt_force_log_flush_set(_swigobj,_swigval) (_swigobj->force_log_flush = *(_swigval),_swigval)

74170

static int _wrap_ibis_opt_t_force_log_flush_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74171

74172

boolean_t * _result;

74173

ibis_opt_t * _arg0;

74174

boolean_t * _arg1;

74175

Tcl_Obj * tcl_result;

74176

char * rettype;

74177

boolean_t temp;

74178

74179

clientData = clientData; objv = objv;

74180

tcl_result = Tcl_GetObjResult(interp);

74181

if ((objc < 3) || (objc > 3)) {

74182

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_force_log_flush_set { ibis_opt_t * } { boolean_t * } ",-1);

74183

return TCL_ERROR;

74184

}

74185

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74186

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_force_log_flush_set. Expected _ibis_opt_t_p, received ", -1);

74187

Tcl_AppendToObj(tcl_result, rettype, -1);

74188

return TCL_ERROR;

74189

}

74190

{

74191

if (strcmp(Tcl_GetStringFromObj(objv[2],NULL), "TRUE")) {

74192

temp = FALSE;

74193

} else {

74194

temp = TRUE;

74195

}

74196

_arg1 = &temp;

74197

}

74198

_result = (boolean_t *)_ibis_opt_force_log_flush_set(_arg0,_arg1);

74199

tcl_result = Tcl_GetObjResult(interp);

74200

{

74201

if (*_result) {

74202

Tcl_SetStringObj(tcl_result,"TRUE", 4);

74203

} else {

74204

Tcl_SetStringObj(tcl_result,"FALSE", 5);

74205

}

74206

}

74207

return TCL_OK;

74208

}

74209

#define _ibis_opt_force_log_flush_get(_swigobj) (&_swigobj->force_log_flush)

74210

static int _wrap_ibis_opt_t_force_log_flush_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74211

74212

boolean_t * _result;

74213

ibis_opt_t * _arg0;

74214

Tcl_Obj * tcl_result;

74215

char * rettype;

74216

74217

clientData = clientData; objv = objv;

74218

tcl_result = Tcl_GetObjResult(interp);

74219

if ((objc < 2) || (objc > 2)) {

74220

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_force_log_flush_get { ibis_opt_t * } ",-1);

74221

return TCL_ERROR;

74222

}

74223

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74224

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_force_log_flush_get. Expected _ibis_opt_t_p, received ", -1);

74225

Tcl_AppendToObj(tcl_result, rettype, -1);

74226

return TCL_ERROR;

74227

}

74228

_result = (boolean_t *)_ibis_opt_force_log_flush_get(_arg0);

74229

tcl_result = Tcl_GetObjResult(interp);

74230

{

74231

if (*_result) {

74232

Tcl_SetStringObj(tcl_result,"TRUE", 4);

74233

} else {

74234

Tcl_SetStringObj(tcl_result,"FALSE", 5);

74235

}

74236

}

74237

return TCL_OK;

74238

}

74239

#define _ibis_opt_log_flags_set(_swigobj,_swigval) (_swigobj->log_flags = *(_swigval),_swigval)

74240

static int _wrap_ibis_opt_t_log_flags_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74241

74242

uint8_t * _result;

74243

ibis_opt_t * _arg0;

74244

uint8_t * _arg1;

74245

Tcl_Obj * tcl_result;

74246

char * rettype;

74247

uint8_t temp;

74248

74249

clientData = clientData; objv = objv;

74250

tcl_result = Tcl_GetObjResult(interp);

74251

if ((objc < 3) || (objc > 3)) {

74252

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_log_flags_set { ibis_opt_t * } { uint8_t * } ",-1);

74253

return TCL_ERROR;

74254

}

74255

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74256

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_log_flags_set. Expected _ibis_opt_t_p, received ", -1);

74257

Tcl_AppendToObj(tcl_result, rettype, -1);

74258

return TCL_ERROR;

74259

}

74260

{

74261

temp = strtoul(Tcl_GetStringFromObj(objv[2],NULL), NULL, 0);

74262

_arg1 = &temp;

74263

}

74264

_result = (uint8_t *)_ibis_opt_log_flags_set(_arg0,_arg1);

74265

tcl_result = Tcl_GetObjResult(interp);

74266

{

74267

char buff[20];

74268

sprintf(buff, "%u", *_result);

74269

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74270

}

74271

return TCL_OK;

74272

}

74273

#define _ibis_opt_log_flags_get(_swigobj) (&_swigobj->log_flags)

74274

static int _wrap_ibis_opt_t_log_flags_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74275

74276

uint8_t * _result;

74277

ibis_opt_t * _arg0;

74278

Tcl_Obj * tcl_result;

74279

char * rettype;

74280

74281

clientData = clientData; objv = objv;

74282

tcl_result = Tcl_GetObjResult(interp);

74283

if ((objc < 2) || (objc > 2)) {

74284

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_log_flags_get { ibis_opt_t * } ",-1);

74285

return TCL_ERROR;

74286

}

74287

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74288

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_log_flags_get. Expected _ibis_opt_t_p, received ", -1);

74289

Tcl_AppendToObj(tcl_result, rettype, -1);

74290

return TCL_ERROR;

74291

}

74292

_result = (uint8_t *)_ibis_opt_log_flags_get(_arg0);

74293

tcl_result = Tcl_GetObjResult(interp);

74294

{

74295

char buff[20];

74296

sprintf(buff, "%u", *_result);

74297

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74298

}

74299

return TCL_OK;

74300

}

74301

static char * _ibis_opt_log_file_set(ibis_opt_t *obj, char val[1024]) {

74302

{

74303

strncpy(obj->log_file,val,1024 - 1);

74304

obj->log_file[1024 - 1] = '\0';

74305

}

74306

return (char *) val;

74307

}

74308

static int _wrap_ibis_opt_t_log_file_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74309

74310

char * _result;

74311

ibis_opt_t * _arg0;

74312

char * _arg1;

74313

Tcl_Obj * tcl_result;

74314

char * rettype;

74315

int templength;

74316

74317

clientData = clientData; objv = objv;

74318

tcl_result = Tcl_GetObjResult(interp);

74319

if ((objc < 3) || (objc > 3)) {

74320

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_log_file_set { ibis_opt_t * } { char * } ",-1);

74321

return TCL_ERROR;

74322

}

74323

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74324

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_log_file_set. Expected _ibis_opt_t_p, received ", -1);

74325

Tcl_AppendToObj(tcl_result, rettype, -1);

74326

return TCL_ERROR;

74327

}

74328

if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR;

74329

_result = (char *)_ibis_opt_log_file_set(_arg0,_arg1);

74330

tcl_result = Tcl_GetObjResult(interp);

74331

Tcl_SetStringObj(tcl_result,_result,-1);

74332

return TCL_OK;

74333

}

74334

#define _ibis_opt_log_file_get(_swigobj) ((char *) _swigobj->log_file)

74335

static int _wrap_ibis_opt_t_log_file_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74336

74337

char * _result;

74338

ibis_opt_t * _arg0;

74339

Tcl_Obj * tcl_result;

74340

char * rettype;

74341

74342

clientData = clientData; objv = objv;

74343

tcl_result = Tcl_GetObjResult(interp);

74344

if ((objc < 2) || (objc > 2)) {

74345

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_log_file_get { ibis_opt_t * } ",-1);

74346

return TCL_ERROR;

74347

}

74348

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74349

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_log_file_get. Expected _ibis_opt_t_p, received ", -1);

74350

Tcl_AppendToObj(tcl_result, rettype, -1);

74351

return TCL_ERROR;

74352

}

74353

_result = (char *)_ibis_opt_log_file_get(_arg0);

74354

tcl_result = Tcl_GetObjResult(interp);

74355

Tcl_SetStringObj(tcl_result,_result,-1);

74356

return TCL_OK;

74357

}

74358

#define _ibis_opt_sm_key_set(_swigobj,_swigval) (_swigobj->sm_key = *(_swigval),_swigval)

74359

static int _wrap_ibis_opt_t_sm_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74360

74361

uint64_t * _result;

74362

ibis_opt_t * _arg0;

74363

uint64_t * _arg1;

74364

Tcl_Obj * tcl_result;

74365

char * rettype;

74366

uint64_t temp;

74367

74368

clientData = clientData; objv = objv;

74369

tcl_result = Tcl_GetObjResult(interp);

74370

if ((objc < 3) || (objc > 3)) {

74371

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_sm_key_set { ibis_opt_t * } { uint64_t * } ",-1);

74372

return TCL_ERROR;

74373

}

74374

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74375

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_sm_key_set. Expected _ibis_opt_t_p, received ", -1);

74376

Tcl_AppendToObj(tcl_result, rettype, -1);

74377

return TCL_ERROR;

74378

}

74379

{

74380

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

74381

_arg1 = &temp;

74382

}

74383

_result = (uint64_t *)_ibis_opt_sm_key_set(_arg0,_arg1);

74384

tcl_result = Tcl_GetObjResult(interp);

74385

{

74386

char buff[20];

74387

sprintf(buff, "0x%016" PRIx64, *_result);

74388

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74389

}

74390

return TCL_OK;

74391

}

74392

#define _ibis_opt_sm_key_get(_swigobj) (&_swigobj->sm_key)

74393

static int _wrap_ibis_opt_t_sm_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74394

74395

uint64_t * _result;

74396

ibis_opt_t * _arg0;

74397

Tcl_Obj * tcl_result;

74398

char * rettype;

74399

74400

clientData = clientData; objv = objv;

74401

tcl_result = Tcl_GetObjResult(interp);

74402

if ((objc < 2) || (objc > 2)) {

74403

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_sm_key_get { ibis_opt_t * } ",-1);

74404

return TCL_ERROR;

74405

}

74406

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74407

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_sm_key_get. Expected _ibis_opt_t_p, received ", -1);

74408

Tcl_AppendToObj(tcl_result, rettype, -1);

74409

return TCL_ERROR;

74410

}

74411

_result = (uint64_t *)_ibis_opt_sm_key_get(_arg0);

74412

tcl_result = Tcl_GetObjResult(interp);

74413

{

74414

char buff[20];

74415

sprintf(buff, "0x%016" PRIx64, *_result);

74416

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74417

}

74418

return TCL_OK;

74419

}

74420

#define _ibis_opt_m_key_set(_swigobj,_swigval) (_swigobj->m_key = *(_swigval),_swigval)

74421

static int _wrap_ibis_opt_t_m_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74422

74423

uint64_t * _result;

74424

ibis_opt_t * _arg0;

74425

uint64_t * _arg1;

74426

Tcl_Obj * tcl_result;

74427

char * rettype;

74428

uint64_t temp;

74429

74430

clientData = clientData; objv = objv;

74431

tcl_result = Tcl_GetObjResult(interp);

74432

if ((objc < 3) || (objc > 3)) {

74433

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_m_key_set { ibis_opt_t * } { uint64_t * } ",-1);

74434

return TCL_ERROR;

74435

}

74436

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74437

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_m_key_set. Expected _ibis_opt_t_p, received ", -1);

74438

Tcl_AppendToObj(tcl_result, rettype, -1);

74439

return TCL_ERROR;

74440

}

74441

{

74442

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

74443

_arg1 = &temp;

74444

}

74445

_result = (uint64_t *)_ibis_opt_m_key_set(_arg0,_arg1);

74446

tcl_result = Tcl_GetObjResult(interp);

74447

{

74448

char buff[20];

74449

sprintf(buff, "0x%016" PRIx64, *_result);

74450

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74451

}

74452

return TCL_OK;

74453

}

74454

#define _ibis_opt_m_key_get(_swigobj) (&_swigobj->m_key)

74455

static int _wrap_ibis_opt_t_m_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74456

74457

uint64_t * _result;

74458

ibis_opt_t * _arg0;

74459

Tcl_Obj * tcl_result;

74460

char * rettype;

74461

74462

clientData = clientData; objv = objv;

74463

tcl_result = Tcl_GetObjResult(interp);

74464

if ((objc < 2) || (objc > 2)) {

74465

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_m_key_get { ibis_opt_t * } ",-1);

74466

return TCL_ERROR;

74467

}

74468

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74469

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_m_key_get. Expected _ibis_opt_t_p, received ", -1);

74470

Tcl_AppendToObj(tcl_result, rettype, -1);

74471

return TCL_ERROR;

74472

}

74473

_result = (uint64_t *)_ibis_opt_m_key_get(_arg0);

74474

tcl_result = Tcl_GetObjResult(interp);

74475

{

74476

char buff[20];

74477

sprintf(buff, "0x%016" PRIx64, *_result);

74478

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74479

}

74480

return TCL_OK;

74481

}

74482

#define _ibis_opt_v_key_set(_swigobj,_swigval) (_swigobj->v_key = *(_swigval),_swigval)

74483

static int _wrap_ibis_opt_t_v_key_set(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74484

74485

uint64_t * _result;

74486

ibis_opt_t * _arg0;

74487

uint64_t * _arg1;

74488

Tcl_Obj * tcl_result;

74489

char * rettype;

74490

uint64_t temp;

74491

74492

clientData = clientData; objv = objv;

74493

tcl_result = Tcl_GetObjResult(interp);

74494

if ((objc < 3) || (objc > 3)) {

74495

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_v_key_set { ibis_opt_t * } { uint64_t * } ",-1);

74496

return TCL_ERROR;

74497

}

74498

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74499

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_v_key_set. Expected _ibis_opt_t_p, received ", -1);

74500

Tcl_AppendToObj(tcl_result, rettype, -1);

74501

return TCL_ERROR;

74502

}

74503

{

74504

temp = strtoull(Tcl_GetStringFromObj(objv[2],NULL), NULL,16);

74505

_arg1 = &temp;

74506

}

74507

_result = (uint64_t *)_ibis_opt_v_key_set(_arg0,_arg1);

74508

tcl_result = Tcl_GetObjResult(interp);

74509

{

74510

char buff[20];

74511

sprintf(buff, "0x%016" PRIx64, *_result);

74512

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74513

}

74514

return TCL_OK;

74515

}

74516

#define _ibis_opt_v_key_get(_swigobj) (&_swigobj->v_key)

74517

static int _wrap_ibis_opt_t_v_key_get(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74518

74519

uint64_t * _result;

74520

ibis_opt_t * _arg0;

74521

Tcl_Obj * tcl_result;

74522

char * rettype;

74523

74524

clientData = clientData; objv = objv;

74525

tcl_result = Tcl_GetObjResult(interp);

74526

if ((objc < 2) || (objc > 2)) {

74527

Tcl_SetStringObj(tcl_result,"Wrong # args. ibis_opt_t_v_key_get { ibis_opt_t * } ",-1);

74528

return TCL_ERROR;

74529

}

74530

if ((rettype = SWIG_GetPointerObj(interp,objv[1],(void **) &_arg0,"_ibis_opt_t_p"))) {

74531

Tcl_SetStringObj(tcl_result, "Type error in argument 1 of ibis_opt_t_v_key_get. Expected _ibis_opt_t_p, received ", -1);

74532

Tcl_AppendToObj(tcl_result, rettype, -1);

74533

return TCL_ERROR;

74534

}

74535

_result = (uint64_t *)_ibis_opt_v_key_get(_arg0);

74536

tcl_result = Tcl_GetObjResult(interp);

74537

{

74538

char buff[20];

74539

sprintf(buff, "0x%016" PRIx64, *_result);

74540

Tcl_SetStringObj(tcl_result,buff,strlen(buff));

74541

}

74542

return TCL_OK;

74543

}

74544

/* methodcmd8.swg : Tcl8.x method invocation */

74545

74546

static int Tclibis_opt_tMethodCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {

74547

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

74548

char *_str;

74549

int rcode;

74550

Tcl_Obj **objv;

74551

Tcl_Obj *oldarg,*tcl_result,*obj;

74552

int length;

74553

char c;

74554

74555

tcl_result = Tcl_GetObjResult(interp);

74556

objv = (Tcl_Obj **) _objv;

74557

if (objc < 2) {

74558

Tcl_SetStringObj(tcl_result,"ibis_opt_t methods : { dump cget configure }",-1);

74559

return TCL_ERROR;

74560

}

74561

obj = Tcl_NewObj();

74562

SWIG_SetPointerObj(obj,(void *) clientData,"_ibis_opt_t_p");

74563

_str = Tcl_GetStringFromObj(objv[1],&length);

74564

c = *_str;

74565

if (0);

74566

74567

else if ((c == 'c') && (strncmp(_str,"configure",length) == 0) && (length >= 2)) {

74568

int i = 2;

74569

cmd = 0;

74570

while (i+1 < objc) {

74571

_str = Tcl_GetStringFromObj(objv[i],&length);

74572

if (strcmp(_str,"-single_thread") == 0) {

74573

cmd = _wrap_ibis_opt_t_single_thread_set;

74574

} else if (strcmp(_str,"-force_log_flush") == 0) {

74575

cmd = _wrap_ibis_opt_t_force_log_flush_set;

74576

} else if (strcmp(_str,"-log_flags") == 0) {

74577

cmd = _wrap_ibis_opt_t_log_flags_set;

74578

} else if (strcmp(_str,"-log_file") == 0) {

74579

cmd = _wrap_ibis_opt_t_log_file_set;

74580

} else if (strcmp(_str,"-sm_key") == 0) {

74581

cmd = _wrap_ibis_opt_t_sm_key_set;

74582

} else if (strcmp(_str,"-m_key") == 0) {

74583

cmd = _wrap_ibis_opt_t_m_key_set;

74584

} else if (strcmp(_str,"-v_key") == 0) {

74585

cmd = _wrap_ibis_opt_t_v_key_set;

74586

}

74587

if (cmd) {

74588

oldarg = objv[i];

74589

objv[i] = obj;

74590

rcode = (*cmd)(clientData,interp,3,&objv[i-1]);

74591

objv[i] = oldarg;

74592

if (rcode == TCL_ERROR) return rcode;

74593

cmd = 0;

74594

} else {

74595

Tcl_SetStringObj(tcl_result,"Invalid configure option. Must be { -single_thread -force_log_flush -log_flags -log_file -sm_key -m_key -v_key }",-1);

74596

return TCL_ERROR;

74597

}

74598

i+=2;

74599

}

74600

if ((i < objc) || (i == 2)) {

74601

Tcl_SetStringObj(tcl_result,"{ -single_thread -force_log_flush -log_flags -log_file -sm_key -m_key -v_key }",-1);

74602

return TCL_ERROR;

74603

}

74604

return TCL_OK;

74605

} else if ((c == 'c') && (strncmp(_str,"cget",length) == 0) && (length >= 2)) {

74606

if (objc == 3) {

74607

_str = Tcl_GetStringFromObj(objv[2],&length);

74608

if (0) {}

74609

if (strcmp(_str,"-single_thread") == 0) {

74610

cmd = _wrap_ibis_opt_t_single_thread_get;

74611

} else if (strcmp(_str,"-force_log_flush") == 0) {

74612

cmd = _wrap_ibis_opt_t_force_log_flush_get;

74613

} else if (strcmp(_str,"-log_flags") == 0) {

74614

cmd = _wrap_ibis_opt_t_log_flags_get;

74615

} else if (strcmp(_str,"-log_file") == 0) {

74616

cmd = _wrap_ibis_opt_t_log_file_get;

74617

} else if (strcmp(_str,"-sm_key") == 0) {

74618

cmd = _wrap_ibis_opt_t_sm_key_get;

74619

} else if (strcmp(_str,"-m_key") == 0) {

74620

cmd = _wrap_ibis_opt_t_m_key_get;

74621

} else if (strcmp(_str,"-v_key") == 0) {

74622

cmd = _wrap_ibis_opt_t_v_key_get;

74623

}

74624

else if (strcmp(_str,"-this") == 0) {

74625

SWIG_SetPointerObj(tcl_result,(void *) clientData, "_ibis_opt_t_p");

74626

return TCL_OK;

74627

}

74628

if (cmd) {

74629

oldarg = objv[2];

74630

objv[2] = obj;

74631

rcode = (*cmd)(clientData,interp,objc-1,&objv[1]);

74632

objv[2] = oldarg;

74633

return rcode;

74634

} else {

74635

Tcl_SetStringObj(tcl_result,"Invalid cget option. Must be { -this -single_thread -force_log_flush -log_flags -log_file -sm_key -m_key -v_key }",-1);

74636

return TCL_ERROR;

74637

}

74638

} else {

74639

Tcl_SetStringObj(tcl_result,"{ -this -single_thread -force_log_flush -log_flags -log_file -sm_key -m_key -v_key }", -1);

74640

return TCL_ERROR;

74641

}

74642

} else if ((c == 'd') && (strncmp(_str,"dump",length) == 0) && (length >= 2)) {

74643

if (objc == 2) {

74644

Tcl_Obj *pDumpObj;

74645

pDumpObj = Tcl_NewStringObj("",-1);

74646

Tcl_IncrRefCount(pDumpObj);

74647

cmd = _wrap_ibis_opt_t_single_thread_get;

74648

oldarg = objv[2];

74649

objv[2] = obj;

74650

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74651

objv[2] = oldarg;

74652

Tcl_AppendStringsToObj(pDumpObj, "-single_thread ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74653

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74654

cmd = _wrap_ibis_opt_t_force_log_flush_get;

74655

oldarg = objv[2];

74656

objv[2] = obj;

74657

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74658

objv[2] = oldarg;

74659

Tcl_AppendStringsToObj(pDumpObj, "-force_log_flush ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74660

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74661

cmd = _wrap_ibis_opt_t_log_flags_get;

74662

oldarg = objv[2];

74663

objv[2] = obj;

74664

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74665

objv[2] = oldarg;

74666

Tcl_AppendStringsToObj(pDumpObj, "-log_flags ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74667

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74668

cmd = _wrap_ibis_opt_t_log_file_get;

74669

oldarg = objv[2];

74670

objv[2] = obj;

74671

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74672

objv[2] = oldarg;

74673

Tcl_AppendStringsToObj(pDumpObj, "-log_file ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74674

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74675

cmd = _wrap_ibis_opt_t_sm_key_get;

74676

oldarg = objv[2];

74677

objv[2] = obj;

74678

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74679

objv[2] = oldarg;

74680

Tcl_AppendStringsToObj(pDumpObj, "-sm_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74681

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74682

cmd = _wrap_ibis_opt_t_m_key_get;

74683

oldarg = objv[2];

74684

objv[2] = obj;

74685

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74686

objv[2] = oldarg;

74687

Tcl_AppendStringsToObj(pDumpObj, "-m_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74688

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74689

cmd = _wrap_ibis_opt_t_v_key_get;

74690

oldarg = objv[2];

74691

objv[2] = obj;

74692

rcode = (*cmd)(clientData,interp,objc,&objv[1]);

74693

objv[2] = oldarg;

74694

Tcl_AppendStringsToObj(pDumpObj, "-v_key ", Tcl_GetStringFromObj(tcl_result, NULL), " ", NULL);

74695

Tcl_SetStringObj(tcl_result, Tcl_GetStringFromObj(pDumpObj, NULL), -1);

74696

74697

Tcl_DecrRefCount(pDumpObj);

74698

return TCL_OK;

74699

} else {

74700

Tcl_SetStringObj(tcl_result,"no parameters are allowed for dump", -1);

74701

return TCL_ERROR;

74702

}

74703

}

74704

if (!cmd) {

74705

Tcl_SetStringObj(tcl_result,"Invalid Method. Must be { dump cget configure }",-1);

74706

return TCL_ERROR;

74707

}

74708

oldarg = objv[1];

74709

objv[1] = obj;

74710

rcode = (*cmd)(clientData,interp,objc,objv);

74711

objv[1] = oldarg;

74712

return rcode;

74713

}

74714

74715

74716

74717

/* objcmd8.swg : Tcl 8.x object creation */

74718

74719

static int Tclibis_opt_tCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {

74720

void (*del)(ClientData) = 0;

74721

char *name = 0;

74722

int (*cmd)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*) = 0;

74723

ibis_opt_t * newObj = 0;

74724

int firstarg = 0;

74725

int thisarg = 0;

74726

int length;

74727

char *_str;

74728

Tcl_Obj *tcl_result;

74729

74730

tcl_result = Tcl_GetObjResult(interp);

74731

if (objc == 1) {

74732

cmd = 0;

74733

} else {

74734

_str = Tcl_GetStringFromObj(objv[1],&length);

74735

if (strcmp(_str,"-this") == 0) thisarg = 2;

74736

else if (strcmp(_str,"-args") == 0) {

74737

firstarg = 1;

74738

cmd = 0;

74739

} else if (objc == 2) {

74740

firstarg = 1;

74741

name = _str;

74742

cmd = 0;

74743

} else if (objc >= 3) {

74744

name = _str;

74745

_str = Tcl_GetStringFromObj(objv[2],&length);

74746

if (strcmp(_str,"-this") == 0) thisarg = 3;

74747

else {

74748

firstarg = 1;

74749

cmd = 0;

74750

}

74751

}

74752

}

74753

if (cmd) {

74754

int result;

74755

result = (*cmd)(clientData,interp,objc-firstarg,&objv[firstarg]);

74756

if (result == TCL_OK) {

74757

SWIG_GetPointerObj(interp,tcl_result,(void **) &newObj,"_ibis_opt_t_p");

74758

} else { return result; }

74759

if (!name) name = Tcl_GetStringFromObj(tcl_result,&length);

74760

del = 0;

74761

} else if (thisarg > 0) {

74762

if (thisarg < objc) {

74763

char *r;

74764

r = SWIG_GetPointerObj(interp,objv[thisarg],(void **) &newObj,"_ibis_opt_t_p");

74765

if (r) {

74766

Tcl_SetStringObj(tcl_result,"Type error. not a ibis_opt_t object.",-1);

74767

return TCL_ERROR;

74768

}

74769

if (!name) name = Tcl_GetStringFromObj(objv[thisarg],&length);

74770

Tcl_SetStringObj(tcl_result,name,-1);

74771

} else {

74772

Tcl_SetStringObj(tcl_result,"wrong # args.",-1);

74773

return TCL_ERROR;

74774

}

74775

} else {

74776

Tcl_SetStringObj(tcl_result,"No constructor available.",-1);

74777

return TCL_ERROR;

74778

}

74779

{

74780

Tcl_CmdInfo dummy;

74781

if (!Tcl_GetCommandInfo(interp,name,&dummy)) {

74782

Tcl_CreateObjCommand(interp,name, Tclibis_opt_tMethodCmd, (ClientData) newObj, del);

74783

return TCL_OK;

74784

} else {

74785

Tcl_SetStringObj(tcl_result,"Object name already exists!",-1);

74786

return TCL_ERROR;

74787

}

74788

}

74789

}

74790

74791

74792

SWIGEXPORT(int,Ibis_Init)(Tcl_Interp *interp) {

74793

if (interp == 0)

74794

return TCL_ERROR;

74795

SWIG_RegisterType();

74796

Tcl_CreateObjCommand(interp, SWIG_prefix "crDestroy", _wrap_crDestroy, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74797

Tcl_CreateObjCommand(interp, SWIG_prefix "crMultiMaxGet", _wrap_crMultiMaxGet, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74798

Tcl_CreateObjCommand(interp, SWIG_prefix "crRead", _wrap_crRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74799

Tcl_CreateObjCommand(interp, SWIG_prefix "crWrite", _wrap_crWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74800

Tcl_CreateObjCommand(interp, SWIG_prefix "crReadMulti", _wrap_crReadMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74801

Tcl_CreateObjCommand(interp, SWIG_prefix "crWriteMulti", _wrap_crWriteMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74802

74803

74804

{

74805

74806

}

74807

Tcl_CreateObjCommand(interp, SWIG_prefix "pmMultiMaxGet", _wrap_pmMultiMaxGet, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74808

Tcl_CreateObjCommand(interp, SWIG_prefix "pmGetPortCounters", _wrap_pmGetPortCounters, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74809

Tcl_CreateObjCommand(interp, SWIG_prefix "pmGetPortCountersMulti", _wrap_pmGetPortCountersMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74810

Tcl_CreateObjCommand(interp, SWIG_prefix "pmGetExtPortCountersMulti", _wrap_pmGetExtPortCountersMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74811

Tcl_CreateObjCommand(interp, SWIG_prefix "pmClrAllCounters", _wrap_pmClrAllCounters, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74812

Tcl_CreateObjCommand(interp, SWIG_prefix "pmClrAllCountersMulti", _wrap_pmClrAllCountersMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74813

Tcl_CreateObjCommand(interp, SWIG_prefix "vsMultiMaxGet", _wrap_vsMultiMaxGet, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74814

Tcl_CreateObjCommand(interp, SWIG_prefix "vsCpuRead", _wrap_vsCpuRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74815

Tcl_CreateObjCommand(interp, SWIG_prefix "vsCpuWrite", _wrap_vsCpuWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74816

Tcl_CreateObjCommand(interp, SWIG_prefix "vsI2cRead", _wrap_vsI2cRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74817

Tcl_CreateObjCommand(interp, SWIG_prefix "vsI2cWrite", _wrap_vsI2cWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74818

Tcl_CreateObjCommand(interp, SWIG_prefix "vsI2cReadMulti", _wrap_vsI2cReadMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74819

Tcl_CreateObjCommand(interp, SWIG_prefix "vsI2cWriteMulti", _wrap_vsI2cWriteMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74820

Tcl_CreateObjCommand(interp, SWIG_prefix "vsGpioRead", _wrap_vsGpioRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74821

Tcl_CreateObjCommand(interp, SWIG_prefix "vsGpioWrite", _wrap_vsGpioWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74822

Tcl_CreateObjCommand(interp, SWIG_prefix "vsSWReset", _wrap_vsSWReset, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74823

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashStartMulti", _wrap_vsFlashStartMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74824

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashStopMulti", _wrap_vsFlashStopMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74825

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashSetBankMulti", _wrap_vsFlashSetBankMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74826

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashEraseSectorMulti", _wrap_vsFlashEraseSectorMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74827

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashReadSectorMulti", _wrap_vsFlashReadSectorMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74828

Tcl_CreateObjCommand(interp, SWIG_prefix "vsFlashWriteSectorMulti", _wrap_vsFlashWriteSectorMulti, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74829

Tcl_CreateObjCommand(interp, SWIG_prefix "vsMirrorRead", _wrap_vsMirrorRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74830

Tcl_CreateObjCommand(interp, SWIG_prefix "vsMirrorWrite", _wrap_vsMirrorWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74831

Tcl_CreateObjCommand(interp, SWIG_prefix "vsGetGeneralInfo", _wrap_vsGetGeneralInfo, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74832

Tcl_CreateObjCommand(interp, SWIG_prefix "vsGetPrivateLFTMap", _wrap_vsGetPrivateLFTMap, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74833

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmVpdRead", _wrap_bbmVpdRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74834

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmVpdWrite", _wrap_bbmVpdWrite, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74835

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmVSDRead", _wrap_bbmVSDRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74836

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmBSNRead", _wrap_bbmBSNRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74837

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmModRead", _wrap_bbmModRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74838

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmChaRead", _wrap_bbmChaRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74839

Tcl_CreateObjCommand(interp, SWIG_prefix "bbmFWVerRead", _wrap_bbmFWVerRead, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

74840

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_LID", (char *) &_wrap_const_IB_NR_COMPMASK_LID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74841

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_RESERVED1", (char *) &_wrap_const_IB_NR_COMPMASK_RESERVED1, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74842

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_BASEVERSION", (char *) &_wrap_const_IB_NR_COMPMASK_BASEVERSION, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74843

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_CLASSVERSION", (char *) &_wrap_const_IB_NR_COMPMASK_CLASSVERSION, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74844

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_NODETYPE", (char *) &_wrap_const_IB_NR_COMPMASK_NODETYPE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74845

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_NUMPORTS", (char *) &_wrap_const_IB_NR_COMPMASK_NUMPORTS, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74846

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_SYSIMAGEGUID", (char *) &_wrap_const_IB_NR_COMPMASK_SYSIMAGEGUID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74847

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_NODEGUID", (char *) &_wrap_const_IB_NR_COMPMASK_NODEGUID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74848

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_PORTGUID", (char *) &_wrap_const_IB_NR_COMPMASK_PORTGUID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74849

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_PARTCAP", (char *) &_wrap_const_IB_NR_COMPMASK_PARTCAP, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74850

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_DEVID", (char *) &_wrap_const_IB_NR_COMPMASK_DEVID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74851

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_REV", (char *) &_wrap_const_IB_NR_COMPMASK_REV, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74852

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_PORTNUM", (char *) &_wrap_const_IB_NR_COMPMASK_PORTNUM, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74853

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_VENDID", (char *) &_wrap_const_IB_NR_COMPMASK_VENDID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74854

Tcl_LinkVar(interp, SWIG_prefix "IB_NR_COMPMASK_NODEDESC", (char *) &_wrap_const_IB_NR_COMPMASK_NODEDESC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74855

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LID", (char *) &_wrap_const_IB_PIR_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74856

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PORTNUM", (char *) &_wrap_const_IB_PIR_COMPMASK_PORTNUM, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74857

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_RESV1", (char *) &_wrap_const_IB_PIR_COMPMASK_RESV1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74858

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MKEY", (char *) &_wrap_const_IB_PIR_COMPMASK_MKEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74859

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_GIDPRE", (char *) &_wrap_const_IB_PIR_COMPMASK_GIDPRE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74860

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_BASELID", (char *) &_wrap_const_IB_PIR_COMPMASK_BASELID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74861

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_SMLID", (char *) &_wrap_const_IB_PIR_COMPMASK_SMLID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74862

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_CAPMASK", (char *) &_wrap_const_IB_PIR_COMPMASK_CAPMASK, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74863

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_DIAGCODE", (char *) &_wrap_const_IB_PIR_COMPMASK_DIAGCODE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74864

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MKEYLEASEPRD", (char *) &_wrap_const_IB_PIR_COMPMASK_MKEYLEASEPRD, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74865

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LOCALPORTNUM", (char *) &_wrap_const_IB_PIR_COMPMASK_LOCALPORTNUM, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74866

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LNKWIDTHSUPPORT", (char *) &_wrap_const_IB_PIR_COMPMASK_LNKWIDTHSUPPORT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74867

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LNKWIDTHACTIVE", (char *) &_wrap_const_IB_PIR_COMPMASK_LNKWIDTHACTIVE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74868

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LINKWIDTHENABLED", (char *) &_wrap_const_IB_PIR_COMPMASK_LINKWIDTHENABLED, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74869

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LNKSPEEDSUPPORT", (char *) &_wrap_const_IB_PIR_COMPMASK_LNKSPEEDSUPPORT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74870

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PORTSTATE", (char *) &_wrap_const_IB_PIR_COMPMASK_PORTSTATE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74871

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PORTPHYSTATE", (char *) &_wrap_const_IB_PIR_COMPMASK_PORTPHYSTATE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74872

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LINKDWNDFLTSTATE", (char *) &_wrap_const_IB_PIR_COMPMASK_LINKDWNDFLTSTATE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74873

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MKEYPROTBITS", (char *) &_wrap_const_IB_PIR_COMPMASK_MKEYPROTBITS, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74874

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LMC", (char *) &_wrap_const_IB_PIR_COMPMASK_LMC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74875

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LINKSPEEDACTIVE", (char *) &_wrap_const_IB_PIR_COMPMASK_LINKSPEEDACTIVE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74876

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LINKSPEEDENABLE", (char *) &_wrap_const_IB_PIR_COMPMASK_LINKSPEEDENABLE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74877

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_NEIGHBORMTU", (char *) &_wrap_const_IB_PIR_COMPMASK_NEIGHBORMTU, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74878

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MASTERSMSL", (char *) &_wrap_const_IB_PIR_COMPMASK_MASTERSMSL, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74879

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_VLCAP", (char *) &_wrap_const_IB_PIR_COMPMASK_VLCAP, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74880

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_INITTYPE", (char *) &_wrap_const_IB_PIR_COMPMASK_INITTYPE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74881

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_VLHIGHLIMIT", (char *) &_wrap_const_IB_PIR_COMPMASK_VLHIGHLIMIT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74882

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_VLARBHIGHCAP", (char *) &_wrap_const_IB_PIR_COMPMASK_VLARBHIGHCAP, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74883

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_VLARBLOWCAP", (char *) &_wrap_const_IB_PIR_COMPMASK_VLARBLOWCAP, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74884

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_INITTYPEREPLY", (char *) &_wrap_const_IB_PIR_COMPMASK_INITTYPEREPLY, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74885

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MTUCAP", (char *) &_wrap_const_IB_PIR_COMPMASK_MTUCAP, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74886

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_VLSTALLCNT", (char *) &_wrap_const_IB_PIR_COMPMASK_VLSTALLCNT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74887

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_HOQLIFE", (char *) &_wrap_const_IB_PIR_COMPMASK_HOQLIFE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74888

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_OPVLS", (char *) &_wrap_const_IB_PIR_COMPMASK_OPVLS, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74889

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PARENFIN", (char *) &_wrap_const_IB_PIR_COMPMASK_PARENFIN, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74890

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PARENFOUT", (char *) &_wrap_const_IB_PIR_COMPMASK_PARENFOUT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74891

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_FILTERRAWIN", (char *) &_wrap_const_IB_PIR_COMPMASK_FILTERRAWIN, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74892

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_FILTERRAWOUT", (char *) &_wrap_const_IB_PIR_COMPMASK_FILTERRAWOUT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74893

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_MKEYVIO", (char *) &_wrap_const_IB_PIR_COMPMASK_MKEYVIO, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74894

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_PKEYVIO", (char *) &_wrap_const_IB_PIR_COMPMASK_PKEYVIO, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74895

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_QKEYVIO", (char *) &_wrap_const_IB_PIR_COMPMASK_QKEYVIO, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74896

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_GUIDCAP", (char *) &_wrap_const_IB_PIR_COMPMASK_GUIDCAP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74897

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_RESV2", (char *) &_wrap_const_IB_PIR_COMPMASK_RESV2, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74898

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_SUBNTO", (char *) &_wrap_const_IB_PIR_COMPMASK_SUBNTO, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74899

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_RESV3", (char *) &_wrap_const_IB_PIR_COMPMASK_RESV3, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74900

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_RESPTIME", (char *) &_wrap_const_IB_PIR_COMPMASK_RESPTIME, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74901

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_LOCALPHYERR", (char *) &_wrap_const_IB_PIR_COMPMASK_LOCALPHYERR, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74902

Tcl_LinkVar(interp, SWIG_prefix "IB_PIR_COMPMASK_OVERRUNERR", (char *) &_wrap_const_IB_PIR_COMPMASK_OVERRUNERR, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74903

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_LID", (char *) &_wrap_const_IB_SMR_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74904

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_GUID", (char *) &_wrap_const_IB_SMR_COMPMASK_GUID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74905

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_SM_KEY", (char *) &_wrap_const_IB_SMR_COMPMASK_SM_KEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74906

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_ACT_COUNT", (char *) &_wrap_const_IB_SMR_COMPMASK_ACT_COUNT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74907

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_STATE", (char *) &_wrap_const_IB_SMR_COMPMASK_STATE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74908

Tcl_LinkVar(interp, SWIG_prefix "IB_SMR_COMPMASK_PRI", (char *) &_wrap_const_IB_SMR_COMPMASK_PRI, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74909

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_LID", (char *) &_wrap_const_IB_SWR_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74910

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_LIN_CAP", (char *) &_wrap_const_IB_SWR_COMPMASK_LIN_CAP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74911

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_RAND_CAP", (char *) &_wrap_const_IB_SWR_COMPMASK_RAND_CAP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74912

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_MCAST_CAP", (char *) &_wrap_const_IB_SWR_COMPMASK_MCAST_CAP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74913

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_LIN_TOP", (char *) &_wrap_const_IB_SWR_COMPMASK_LIN_TOP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74914

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_DEF_PORT", (char *) &_wrap_const_IB_SWR_COMPMASK_DEF_PORT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74915

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_DEF_MCAST_PRI", (char *) &_wrap_const_IB_SWR_COMPMASK_DEF_MCAST_PRI, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74916

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_DEF_MCAST_NOT", (char *) &_wrap_const_IB_SWR_COMPMASK_DEF_MCAST_NOT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74917

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_STATE", (char *) &_wrap_const_IB_SWR_COMPMASK_STATE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74918

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_LIFE", (char *) &_wrap_const_IB_SWR_COMPMASK_LIFE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74919

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_LMC", (char *) &_wrap_const_IB_SWR_COMPMASK_LMC, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74920

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_ENFORCE_CAP", (char *) &_wrap_const_IB_SWR_COMPMASK_ENFORCE_CAP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74921

Tcl_LinkVar(interp, SWIG_prefix "IB_SWR_COMPMASK_FLAGS", (char *) &_wrap_const_IB_SWR_COMPMASK_FLAGS, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74922

Tcl_LinkVar(interp, SWIG_prefix "IB_LR_COMPMASK_FROM_LID", (char *) &_wrap_const_IB_LR_COMPMASK_FROM_LID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74923

Tcl_LinkVar(interp, SWIG_prefix "IB_LR_COMPMASK_FROM_PORT", (char *) &_wrap_const_IB_LR_COMPMASK_FROM_PORT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74924

Tcl_LinkVar(interp, SWIG_prefix "IB_LR_COMPMASK_TO_PORT", (char *) &_wrap_const_IB_LR_COMPMASK_TO_PORT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74925

Tcl_LinkVar(interp, SWIG_prefix "IB_LR_COMPMASK_TO_LID", (char *) &_wrap_const_IB_LR_COMPMASK_TO_LID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74926

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_DGID", (char *) &_wrap_const_IB_PR_COMPMASK_DGID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74927

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_SGID", (char *) &_wrap_const_IB_PR_COMPMASK_SGID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74928

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_DLID", (char *) &_wrap_const_IB_PR_COMPMASK_DLID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74929

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_SLID", (char *) &_wrap_const_IB_PR_COMPMASK_SLID, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74930

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_RAWTRAFIC", (char *) &_wrap_const_IB_PR_COMPMASK_RAWTRAFIC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74931

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_RESV0", (char *) &_wrap_const_IB_PR_COMPMASK_RESV0, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74932

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_FLOWLABEL", (char *) &_wrap_const_IB_PR_COMPMASK_FLOWLABEL, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74933

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_HOPLIMIT", (char *) &_wrap_const_IB_PR_COMPMASK_HOPLIMIT, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74934

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_TCLASS", (char *) &_wrap_const_IB_PR_COMPMASK_TCLASS, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74935

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_REVERSIBLE", (char *) &_wrap_const_IB_PR_COMPMASK_REVERSIBLE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74936

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_NUMBPATH", (char *) &_wrap_const_IB_PR_COMPMASK_NUMBPATH, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74937

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_PKEY", (char *) &_wrap_const_IB_PR_COMPMASK_PKEY, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74938

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_RESV1", (char *) &_wrap_const_IB_PR_COMPMASK_RESV1, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74939

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_SL", (char *) &_wrap_const_IB_PR_COMPMASK_SL, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74940

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_MTUSELEC", (char *) &_wrap_const_IB_PR_COMPMASK_MTUSELEC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74941

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_MTU", (char *) &_wrap_const_IB_PR_COMPMASK_MTU, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74942

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_RATESELEC", (char *) &_wrap_const_IB_PR_COMPMASK_RATESELEC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74943

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_RATE", (char *) &_wrap_const_IB_PR_COMPMASK_RATE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74944

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_PKTLIFETIMESELEC", (char *) &_wrap_const_IB_PR_COMPMASK_PKTLIFETIMESELEC, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74945

Tcl_LinkVar(interp, SWIG_prefix "IB_PR_COMPMASK_PFTLIFETIME", (char *) &_wrap_const_IB_PR_COMPMASK_PFTLIFETIME, TCL_LINK_INT | TCL_LINK_READ_ONLY);

74946

Tcl_LinkVar(interp, SWIG_prefix "IB_LFT_COMPMASK_LID", (char *) &_wrap_const_IB_LFT_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74947

Tcl_LinkVar(interp, SWIG_prefix "IB_LFT_COMPMASK_BLOCK", (char *) &_wrap_const_IB_LFT_COMPMASK_BLOCK, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74948

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_GID", (char *) &_wrap_const_IB_MCR_COMPMASK_GID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74949

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_MGID", (char *) &_wrap_const_IB_MCR_COMPMASK_MGID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74950

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_PORT_GID", (char *) &_wrap_const_IB_MCR_COMPMASK_PORT_GID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74951

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_QKEY", (char *) &_wrap_const_IB_MCR_COMPMASK_QKEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74952

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_MLID", (char *) &_wrap_const_IB_MCR_COMPMASK_MLID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74953

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_MTU_SEL", (char *) &_wrap_const_IB_MCR_COMPMASK_MTU_SEL, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74954

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_MTU", (char *) &_wrap_const_IB_MCR_COMPMASK_MTU, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74955

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_TCLASS", (char *) &_wrap_const_IB_MCR_COMPMASK_TCLASS, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74956

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_PKEY", (char *) &_wrap_const_IB_MCR_COMPMASK_PKEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74957

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_RATE_SEL", (char *) &_wrap_const_IB_MCR_COMPMASK_RATE_SEL, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74958

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_RATE", (char *) &_wrap_const_IB_MCR_COMPMASK_RATE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74959

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_LIFE_SEL", (char *) &_wrap_const_IB_MCR_COMPMASK_LIFE_SEL, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74960

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_LIFE", (char *) &_wrap_const_IB_MCR_COMPMASK_LIFE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74961

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_SL", (char *) &_wrap_const_IB_MCR_COMPMASK_SL, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74962

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_FLOW", (char *) &_wrap_const_IB_MCR_COMPMASK_FLOW, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74963

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_HOP", (char *) &_wrap_const_IB_MCR_COMPMASK_HOP, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74964

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_SCOPE", (char *) &_wrap_const_IB_MCR_COMPMASK_SCOPE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74965

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_JOIN_STATE", (char *) &_wrap_const_IB_MCR_COMPMASK_JOIN_STATE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74966

Tcl_LinkVar(interp, SWIG_prefix "IB_MCR_COMPMASK_PROXY", (char *) &_wrap_const_IB_MCR_COMPMASK_PROXY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74967

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SID", (char *) &_wrap_const_IB_SR_COMPMASK_SID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74968

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SGID", (char *) &_wrap_const_IB_SR_COMPMASK_SGID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74969

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SPKEY", (char *) &_wrap_const_IB_SR_COMPMASK_SPKEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74970

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_RES1", (char *) &_wrap_const_IB_SR_COMPMASK_RES1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74971

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SLEASE", (char *) &_wrap_const_IB_SR_COMPMASK_SLEASE, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74972

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SKEY", (char *) &_wrap_const_IB_SR_COMPMASK_SKEY, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74973

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SNAME", (char *) &_wrap_const_IB_SR_COMPMASK_SNAME, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74974

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_0", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_0, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74975

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_1", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74976

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_2", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_2, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74977

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_3", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_3, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74978

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_4", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_4, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74979

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_5", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_5, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74980

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_6", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_6, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74981

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_7", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_7, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74982

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_8", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_8, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74983

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_9", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_9, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74984

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_10", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_10, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74985

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_11", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_11, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74986

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_12", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_12, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74987

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_13", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_13, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74988

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_14", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_14, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74989

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA8_15", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA8_15, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74990

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_0", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_0, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74991

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_1", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74992

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_2", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_2, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74993

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_3", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_3, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74994

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_4", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_4, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74995

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_5", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_5, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74996

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_6", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_6, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74997

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA16_7", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA16_7, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74998

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA32_0", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA32_0, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

74999

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA32_1", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA32_1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75000

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA32_2", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA32_2, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75001

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA32_3", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA32_3, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75002

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA64_0", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA64_0, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75003

Tcl_LinkVar(interp, SWIG_prefix "IB_SR_COMPMASK_SDATA64_1", (char *) &_wrap_const_IB_SR_COMPMASK_SDATA64_1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75004

Tcl_LinkVar(interp, SWIG_prefix "IB_SLVL_COMPMASK_LID", (char *) &_wrap_const_IB_SLVL_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75005

Tcl_LinkVar(interp, SWIG_prefix "IB_SLVL_COMPMASK_IN_PORT", (char *) &_wrap_const_IB_SLVL_COMPMASK_IN_PORT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75006

Tcl_LinkVar(interp, SWIG_prefix "IB_SLVL_COMPMASK_OUT_PORT", (char *) &_wrap_const_IB_SLVL_COMPMASK_OUT_PORT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75007

Tcl_LinkVar(interp, SWIG_prefix "IB_VLA_COMPMASK_LID", (char *) &_wrap_const_IB_VLA_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75008

Tcl_LinkVar(interp, SWIG_prefix "IB_VLA_COMPMASK_OUT_PORT", (char *) &_wrap_const_IB_VLA_COMPMASK_OUT_PORT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75009

Tcl_LinkVar(interp, SWIG_prefix "IB_VLA_COMPMASK_BLOCK", (char *) &_wrap_const_IB_VLA_COMPMASK_BLOCK, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75010

Tcl_LinkVar(interp, SWIG_prefix "IB_PKEY_COMPMASK_LID", (char *) &_wrap_const_IB_PKEY_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75011

Tcl_LinkVar(interp, SWIG_prefix "IB_PKEY_COMPMASK_BLOCK", (char *) &_wrap_const_IB_PKEY_COMPMASK_BLOCK, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75012

Tcl_LinkVar(interp, SWIG_prefix "IB_PKEY_COMPMASK_PORT", (char *) &_wrap_const_IB_PKEY_COMPMASK_PORT, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75013

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_LID", (char *) &_wrap_const_IB_GIR_COMPMASK_LID, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75014

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_BLOCKNUM", (char *) &_wrap_const_IB_GIR_COMPMASK_BLOCKNUM, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75015

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID0", (char *) &_wrap_const_IB_GIR_COMPMASK_GID0, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75016

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID1", (char *) &_wrap_const_IB_GIR_COMPMASK_GID1, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75017

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID2", (char *) &_wrap_const_IB_GIR_COMPMASK_GID2, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75018

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID3", (char *) &_wrap_const_IB_GIR_COMPMASK_GID3, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75019

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID4", (char *) &_wrap_const_IB_GIR_COMPMASK_GID4, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75020

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID5", (char *) &_wrap_const_IB_GIR_COMPMASK_GID5, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75021

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID6", (char *) &_wrap_const_IB_GIR_COMPMASK_GID6, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75022

Tcl_LinkVar(interp, SWIG_prefix "IB_GIR_COMPMASK_GID7", (char *) &_wrap_const_IB_GIR_COMPMASK_GID7, TCL_LINK_STRING | TCL_LINK_READ_ONLY);

75023

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_NONE", (char *) &_wrap_const_IBIS_LOG_NONE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75024

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_ERROR", (char *) &_wrap_const_IBIS_LOG_ERROR, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75025

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_INFO", (char *) &_wrap_const_IBIS_LOG_INFO, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75026

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_VERBOSE", (char *) &_wrap_const_IBIS_LOG_VERBOSE, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75027

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_DEBUG", (char *) &_wrap_const_IBIS_LOG_DEBUG, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75028

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_FUNCS", (char *) &_wrap_const_IBIS_LOG_FUNCS, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75029

Tcl_LinkVar(interp, SWIG_prefix "IBIS_LOG_FRAMES", (char *) &_wrap_const_IBIS_LOG_FRAMES, TCL_LINK_INT | TCL_LINK_READ_ONLY);

75030

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_puts", _wrap_ibis_puts, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75031

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_init", _wrap_ibis_init, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75032

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_set_verbosity", _wrap_ibis_set_verbosity, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75033

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_set_port", _wrap_ibis_set_port, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75034

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_get_port", _wrap_ibis_get_port, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75035

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_set_transaction_timeout", _wrap_ibis_set_transaction_timeout, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75036

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_exit", _wrap_ibis_exit, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75037

Tcl_LinkVar(interp, SWIG_prefix "ibisSourceVersion", (char *) &ibisSourceVersion, TCL_LINK_STRING);

75038

75039

75040

/* Make sure that the osmv, complib and ibisp use

75041

same modes (debug/free) */

75042

if ( osm_is_debug() != cl_is_debug() ||

75043

osm_is_debug() != ibisp_is_debug() ||

75044

ibisp_is_debug() != cl_is_debug() )

75045

{

75046

fprintf(stderr, "-E- OSMV, Complib and Ibis were compiled using different modes\n");

75047

fprintf(stderr, "-E- OSMV debug:%d Complib debug:%d IBIS debug:%d \n",

75048

osm_is_debug(), cl_is_debug(), ibisp_is_debug() );

75049

exit(1);

75050

}

75051

75052

/* sub block required for declarations .... */

75053

{

75054

static int notFirstTime = 0;

75055

75056

/* we initialize the structs etc only once. */

75057

if (0 == notFirstTime++) {

75058

Tcl_StaticPackage(interp, "ibis", Ibis_Init, NULL);

75059

Tcl_PkgProvide(interp, "ibis", IBIS_VERSION);

75060

/* Default Options */

75061

memset(&IbisOpts, 0,sizeof(ibis_opt_t));

75062

IbisOpts.transaction_timeout = 4*OSM_DEFAULT_TRANS_TIMEOUT_MILLISEC;

75063

IbisOpts.single_thread = TRUE;

75064

IbisOpts.force_log_flush = TRUE;

75065

IbisOpts.sm_key = 0;

75066

IbisOpts.m_key = 0;

75067

IbisOpts.v_key = 0;

75068

IbisOpts.log_flags = OSM_LOG_ERROR;

75069

strcpy(IbisOpts.log_file,"/tmp/ibis.log");

75070

75071

75072

/* we want all exists to cleanup */

75073

Tcl_CreateExitHandler(ibis_exit, NULL);

75074

75075

/* ------------------ IBCR ---------------------- */

75076

p_ibcr_global = ibcr_construct();

75077

75078

if (p_ibcr_global == NULL) {

75079

printf("-E- Error from ibcr_construct.\n");

75080

exit(1);

75081

}

75082

75083

/* ------------------ IBPM ---------------------- */

75084

p_ibpm_global = ibpm_construct();

75085

75086

if (p_ibpm_global == NULL) {

75087

printf("-E- Error from ibpm_construct.\n");

75088

exit(1);

75089

}

75090

75091

/* ------------------ IBVS ---------------------- */

75092

p_ibvs_global = ibvs_construct();

75093

75094

if (p_ibvs_global == NULL) {

75095

printf("-E- Error from ibvs_construct.\n");

75096

exit(1);

75097

}

75098

75099

/* ------------------ IBBBM ---------------------- */

75100

p_ibbbm_global = ibbbm_construct();

75101

75102

if (p_ibbbm_global == NULL) {

75103

printf("-E- Error from ibbbm_construct.\n");

75104

exit(1);

75105

}

75106

75107

/* ------------------ IBSM ---------------------- */

75108

gp_ibsm = ibsm_construct();

75109

75110

if (gp_ibsm == NULL) {

75111

printf("-E- Error from ibsm_construct.\n");

75112

exit(1);

75113

}

75114

75115

/* Initialize global records */

75116

memset(&ibsm_node_info_obj, 0, sizeof(ib_node_info_t));

75117

memset(&ibsm_port_info_obj, 0, sizeof(ib_port_info_t));

75118

memset(&ibsm_switch_info_obj, 0, sizeof(ib_switch_info_t));

75119

memset(&ibsm_lft_block_obj, 0, sizeof(ibsm_lft_block_t));

75120

memset(&ibsm_mft_block_obj, 0, sizeof(ibsm_mft_block_t));

75121

memset(&ibsm_guid_info_obj, 0, sizeof(ib_guid_info_t));

75122

memset(&ibsm_pkey_table_obj, 0, sizeof(ib_pkey_table_t));

75123

memset(&ibsm_sm_info_obj, 0, sizeof(ib_sm_info_t));

75124

75125

/* ------------------ IBCC ---------------------- */

75126

75127

gp_ibcc = ibcc_construct();

75128

75129

if (gp_ibcc == NULL) {

75130

printf("-E- Error from ibcc_construct.\n");

75131

exit(1);

75132

}

75133

75134

/* Initialize global records */

75135

memset(&ibcc_class_port_info_obj, 0, sizeof(ib_class_port_info_t));

75136

memset(&ibcc_notice_obj, 0, sizeof(ibcc_notice_attr_t));

75137

memset(&ibcc_cong_info_obj, 0, sizeof(ib_cong_info_t));

75138

memset(&ibcc_cong_key_info_obj, 0, sizeof(ib_cong_key_info_t));

75139

memset(&ibcc_ca_cong_log_obj, 0, sizeof(ibcc_ca_cong_log_t));

75140

memset(&ibcc_sw_cong_log_obj, 0, sizeof(ibcc_sw_cong_log_t));

75141

memset(&ibcc_sw_cong_setting_obj, 0, sizeof(ib_sw_cong_setting_t));

75142

memset(&ibcc_sw_port_cong_setting_obj, 0, sizeof(ib_sw_port_cong_setting_t));

75143

memset(&ibcc_ca_cong_setting_obj, 0, sizeof(ib_ca_cong_setting_t));

75144

memset(&ibcc_table_obj, 0, sizeof(ib_cc_tbl_t));

75145

memset(&ibcc_time_stamp_obj, 0, sizeof(ib_time_stamp_t));

75146

75147

/* ------------------ IBSAC ---------------------- */

75148

75149

/* Initialize global records */

75150

memset(&ibsac_node_rec, 0,sizeof(ibsac_node_rec));

75151

memset(&ibsac_portinfo_rec, 0,sizeof(ibsac_portinfo_rec));

75152

memset(&ibsac_sminfo_rec, 0, sizeof(ib_sminfo_record_t));

75153

memset(&ibsac_swinfo_rec, 0, sizeof(ib_switch_info_record_t));

75154

memset(&ibsac_link_rec, 0, sizeof(ib_link_record_t));

75155

memset(&ibsac_path_rec, 0, sizeof(ib_path_rec_t));

75156

memset(&ibsac_lft_rec, 0, sizeof(ib_lft_record_t));

75157

memset(&ibsac_mcm_rec, 0, sizeof(ib_member_rec_t));

75158

memset(&ibsac_class_port_info, 0, sizeof(ib_class_port_info_t));

75159

memset(&ibsac_inform_info, 0, sizeof(ib_inform_info_t));

75160

memset(&ibsac_svc_rec, 0, sizeof(ib_service_record_t));

75161

memset(&ibsac_slvl_rec, 0, sizeof(ib_slvl_table_record_t));

75162

memset(&ibsac_vlarb_rec, 0, sizeof(ib_vl_arb_table_record_t));

75163

memset(&ibsac_pkey_rec, 0, sizeof(ib_pkey_table_record_t));

75164

memset(&ibsac_guidinfo_rec, 0, sizeof(ib_guidinfo_record_t));

75165

75166

/*

75167

* A1 Supported features:

75168

*

75169

* Query: Rec/Info Types Done

75170

*

75171

* NodeRecord (nr, ni) Y

75172

* PortInfoRecord (pir, pi) Y

75173

* SwitchInfoRecord (swir, swi) Y

75174

* SMInfoRecord (smir, smi) Y

75175

* PathRecord (path) Y

75176

* LinkRecord (link) Y

75177

* LinFwdTblRecord (lft) Y

75178

* MulticastFwdTblRecord (mftr, mft) N - Not supported by OSM

75179

*

75180

* B Supported features:

75181

* MCMemberRecord (mcm) Y

75182

* ClassPortInfo (cpi) Y

75183

* InformInfo (info) Y

75184

* ServiceRecord (svc) Y

75185

* SL2VLTableRecord (slvr, slvt) Y

75186

* VLArbTableRecord (vlarb) Y

75187

* PKeyTableRecord (pkr, pkt) Y

75188

*/

75189

75190

/* We use alternate SWIG Objects mangling */

75191

SWIG_AltMnglInit();

75192

SWIG_AltMnglRegTypeToPrefix("_sacNodeInfo_p", "ni");

75193

SWIG_AltMnglRegTypeToPrefix("_sacNodeRec_p", "nr");

75194

SWIG_AltMnglRegTypeToPrefix("_sacPortInfo_p", "pi");

75195

SWIG_AltMnglRegTypeToPrefix("_sacPortRec_p", "pir");

75196

SWIG_AltMnglRegTypeToPrefix("_sacSmInfo_p", "smi");

75197

SWIG_AltMnglRegTypeToPrefix("_sacSmRec_p", "smir");

75198

SWIG_AltMnglRegTypeToPrefix("_sacSwInfo_p", "swi");

75199

SWIG_AltMnglRegTypeToPrefix("_sacSwRec_p", "swir");

75200

SWIG_AltMnglRegTypeToPrefix("_sacLinkRec_p", "link");

75201

SWIG_AltMnglRegTypeToPrefix("_sacPathRec_p", "path");

75202

SWIG_AltMnglRegTypeToPrefix("_sacLFTRec_p", "lft");

75203

SWIG_AltMnglRegTypeToPrefix("_sacMCMRec_p", "mcm");

75204

SWIG_AltMnglRegTypeToPrefix("_sacClassPortInfo_p", "cpi");

75205

SWIG_AltMnglRegTypeToPrefix("_sacInformInfo_p", "info");

75206

SWIG_AltMnglRegTypeToPrefix("_sacServiceRec_p", "svc");

75207

SWIG_AltMnglRegTypeToPrefix("_sacSlVlTbl_p", "slvt");

75208

SWIG_AltMnglRegTypeToPrefix("_sacSlVlRec_p", "slvr");

75209

SWIG_AltMnglRegTypeToPrefix("_sacVlArbRec_p", "vlarb");

75210

SWIG_AltMnglRegTypeToPrefix("_sacPKeyTbl_p", "pkt");

75211

SWIG_AltMnglRegTypeToPrefix("_sacPKeyRec_p", "pkr");

75212

SWIG_AltMnglRegTypeToPrefix("_sacGuidInfo_p", "gi");

75213

SWIG_AltMnglRegTypeToPrefix("_sacGuidRec_p", "gr");

75214

75215

// register the pre-allocated objects

75216

SWIG_AltMnglRegObj("ni",&(ibsac_node_rec.node_info));

75217

SWIG_AltMnglRegObj("nr",&(ibsac_node_rec));

75218

75219

SWIG_AltMnglRegObj("pi", &(ibsac_portinfo_rec.port_info));

75220

SWIG_AltMnglRegObj("pir",&(ibsac_portinfo_rec));

75221

75222

SWIG_AltMnglRegObj("smi", &(ibsac_sminfo_rec.sm_info));

75223

SWIG_AltMnglRegObj("smir",&(ibsac_sminfo_rec));

75224

75225

SWIG_AltMnglRegObj("swi", &(ibsac_swinfo_rec.switch_info));

75226

SWIG_AltMnglRegObj("swir",&(ibsac_swinfo_rec));

75227

75228

SWIG_AltMnglRegObj("path",&(ibsac_path_rec));

75229

75230

SWIG_AltMnglRegObj("link",&(ibsac_link_rec));

75231

75232

SWIG_AltMnglRegObj("lft",&(ibsac_lft_rec));

75233

75234

SWIG_AltMnglRegObj("mcm",&(ibsac_mcm_rec));

75235

75236

SWIG_AltMnglRegObj("cpi",&(ibsac_class_port_info));

75237

SWIG_AltMnglRegObj("info",&(ibsac_inform_info));

75238

SWIG_AltMnglRegObj("svc",&(ibsac_svc_rec));

75239

75240

SWIG_AltMnglRegObj("slvt", &(ibsac_slvl_rec.slvl_tbl));

75241

SWIG_AltMnglRegObj("slvr", &(ibsac_slvl_rec));

75242

75243

SWIG_AltMnglRegObj("vlarb", &(ibsac_vlarb_rec));

75244

75245

SWIG_AltMnglRegObj("pkt", &(ibsac_pkey_rec.pkey_tbl));

75246

SWIG_AltMnglRegObj("pkr", &(ibsac_pkey_rec));

75247

75248

SWIG_AltMnglRegObj("gi", &(ibsac_guidinfo_rec.guid_info));

75249

SWIG_AltMnglRegObj("gr", &(ibsac_guidinfo_rec));

75250

75251

usleep(1000);

75252

}

75253

75254

/* we defined this as a native command so declare it in here */

75255

Tcl_CreateObjCommand(interp, "ibis_get_local_ports_info",

75256

ibis_get_local_ports_info, NULL, NULL);

75257

75258

/* this will declare an object osm_opts */

75259

ibis_opt_p = &IbisOpts;

75260

Tcl_CreateObjCommand(interp,"ibis_opts", Tclibis_opt_tMethodCmd,

75261

(ClientData)ibis_opt_p, 0);

75262

75263

/* add commands for accessing the global query records */

75264

75265

/* ------------------ IBSM ---------------------- */

75266

75267

Tcl_CreateObjCommand(interp,"smNodeInfoMad",

75268

TclsmNodeInfoMethodCmd,

75269

(ClientData)&ibsm_node_info_obj, 0);

75270

75271

Tcl_CreateObjCommand(interp,"smPortInfoMad",

75272

TclsmPortInfoMethodCmd,

75273

(ClientData)&ibsm_port_info_obj, 0);

75274

75275

Tcl_CreateObjCommand(interp,"smSwitchInfoMad",

75276

TclsmSwInfoMethodCmd,

75277

(ClientData)&ibsm_switch_info_obj, 0);

75278

75279

Tcl_CreateObjCommand(interp,"smLftBlockMad",

75280

TclsmLftBlockMethodCmd,

75281

(ClientData)&ibsm_lft_block_obj, 0);

75282

75283

Tcl_CreateObjCommand(interp,"smMftBlockMad",

75284

TclsmMftBlockMethodCmd,

75285

(ClientData)&ibsm_mft_block_obj, 0);

75286

75287

Tcl_CreateObjCommand(interp,"smGuidInfoMad",

75288

TclsmGuidInfoMethodCmd,

75289

(ClientData)&ibsm_guid_info_obj, 0);

75290

75291

Tcl_CreateObjCommand(interp,"smPkeyTableMad",

75292

TclsmPkeyTableMethodCmd,

75293

(ClientData)&ibsm_pkey_table_obj, 0);

75294

75295

Tcl_CreateObjCommand(interp,"smSlVlTableMad",

75296

TclsmSlVlTableMethodCmd,

75297

(ClientData)&ibsm_slvl_table_obj, 0);

75298

75299

Tcl_CreateObjCommand(interp,"smVlArbTableMad",

75300

TclsmVlArbTableMethodCmd,

75301

(ClientData)&ibsm_vl_arb_table_obj, 0);

75302

75303

Tcl_CreateObjCommand(interp,"smSMInfoMad",

75304

TclsmSMInfoMethodCmd,

75305

(ClientData)&ibsm_sm_info_obj, 0);

75306

75307

Tcl_CreateObjCommand(interp,"smNodeDescMad",

75308

TclsmNodeDescMethodCmd,

75309

(ClientData)&ibsm_node_desc_obj, 0);

75310

75311

Tcl_CreateObjCommand(interp,"smNoticeMad",

75312

TclsmNoticeMethodCmd,

75313

(ClientData)&ibsm_notice_obj, 0);

75314

75315

/* ------------------ IBCC ---------------------- */

75316

75317

Tcl_CreateObjCommand(interp,"ccClassPortInfoMad",

75318

TclccClassPortInfoMethodCmd,

75319

(ClientData)&ibcc_class_port_info_obj, 0);

75320

75321

Tcl_CreateObjCommand(interp,"ccNoticeMad",

75322

TclccNoticeMethodCmd,

75323

(ClientData)&ibcc_notice_obj, 0);

75324

75325

Tcl_CreateObjCommand(interp,"ccCongestionInfoMad",

75326

TclccCongestionInfoMethodCmd,

75327

(ClientData)&ibcc_cong_info_obj, 0);

75328

75329

Tcl_CreateObjCommand(interp,"ccCongestionKeyInfoMad",

75330

TclccCongestionKeyInfoMethodCmd,

75331

(ClientData)&ibcc_cong_key_info_obj, 0);

75332

75333

Tcl_CreateObjCommand(interp,"ccCACongestionLogMad",

75334

TclccCACongestionLogMethodCmd,

75335

(ClientData)&ibcc_ca_cong_log_obj, 0);

75336

75337

Tcl_CreateObjCommand(interp,"ccSWCongestionLogMad",

75338

TclccSWCongestionLogMethodCmd,

75339

(ClientData)&ibcc_sw_cong_log_obj, 0);

75340

75341

Tcl_CreateObjCommand(interp,"ccSWCongestionSettingMad",

75342

TclccSWCongestionSettingMethodCmd,

75343

(ClientData)&ibcc_sw_cong_setting_obj, 0);

75344

75345

Tcl_CreateObjCommand(interp,"ccSWPortCongestionSettingMad",

75346

TclccSWPortCongestionSettingMethodCmd,

75347

(ClientData)&ibcc_sw_port_cong_setting_obj, 0);

75348

75349

Tcl_CreateObjCommand(interp,"ccCACongestionSettingMad",

75350

TclccCACongestionSettingMethodCmd,

75351

(ClientData)&ibcc_ca_cong_setting_obj, 0);

75352

75353

Tcl_CreateObjCommand(interp,"ccTableMad",

75354

TclccTableMethodCmd,

75355

(ClientData)&ibcc_table_obj, 0);

75356

75357

Tcl_CreateObjCommand(interp,"ccTimeStampMad",

75358

TclccTimeStampMethodCmd,

75359

(ClientData)&ibcc_time_stamp_obj, 0);

75360

75361

/* ------------------ IBSAC --------------------- */

75362

75363

Tcl_CreateObjCommand(interp,"sacNodeQuery",

75364

TclsacNodeRecMethodCmd,

75365

(ClientData)&ibsac_node_rec, 0);

75366

75367

Tcl_CreateObjCommand(interp,"sacPortQuery",

75368

TclsacPortRecMethodCmd,

75369

(ClientData)&ibsac_portinfo_rec, 0);

75370

75371

Tcl_CreateObjCommand(interp,"sacSmQuery",

75372

TclsacSmRecMethodCmd,

75373

(ClientData)&ibsac_sminfo_rec, 0);

75374

75375

Tcl_CreateObjCommand(interp,"sacSwQuery",

75376

TclsacSwRecMethodCmd,

75377

(ClientData)&ibsac_swinfo_rec, 0);

75378

75379

Tcl_CreateObjCommand(interp,"sacLinkQuery",

75380

TclsacLinkRecMethodCmd,

75381

(ClientData)&ibsac_link_rec, 0);

75382

75383

Tcl_CreateObjCommand(interp,"sacPathQuery",

75384

TclsacPathRecMethodCmd,

75385

(ClientData)&ibsac_path_rec, 0);

75386

75387

Tcl_CreateObjCommand(interp,"sacLFTQuery",

75388

TclsacLFTRecMethodCmd,

75389

(ClientData)&ibsac_lft_rec, 0);

75390

75391

Tcl_CreateObjCommand(interp,"sacMCMQuery",

75392

TclsacMCMRecMethodCmd,

75393

(ClientData)&ibsac_mcm_rec, 0);

75394

75395

Tcl_CreateObjCommand(interp,"sacClassPortInfoQuery",

75396

TclsacClassPortInfoMethodCmd,

75397

(ClientData)&ibsac_class_port_info, 0);

75398

75399

Tcl_CreateObjCommand(interp,"sacInformInfoQuery",

75400

TclsacInformInfoMethodCmd,

75401

(ClientData)&ibsac_inform_info, 0);

75402

75403

Tcl_CreateObjCommand(interp,"sacServiceQuery",

75404

TclsacServiceRecMethodCmd,

75405

(ClientData)&ibsac_svc_rec, 0);

75406

75407

Tcl_CreateObjCommand(interp,"sacSLVlQuery",

75408

TclsacSlVlRecMethodCmd,

75409

(ClientData)&ibsac_slvl_rec, 0);

75410

75411

Tcl_CreateObjCommand(interp,"sacVlArbQuery",

75412

TclsacVlArbRecMethodCmd,

75413

(ClientData)&ibsac_vlarb_rec, 0);

75414

75415

Tcl_CreateObjCommand(interp,"sacPKeyQuery",

75416

TclsacPKeyRecMethodCmd,

75417

(ClientData)&ibsac_pkey_rec, 0);

75418

75419

Tcl_CreateObjCommand(interp,"sacGuidQuery",

75420

TclsacGuidRecMethodCmd,

75421

(ClientData)&ibsac_guidinfo_rec, 0);

75422

75423

75424

/*

75425

use an embedded Tcl code for doing init if given command line

75426

parameters: -port_num <port num>

75427

*/

75428

Tcl_GlobalEval(

75429

interp,

75430

"if {[file tail $argv0] == \"ibis\"} {\n"

75431

" set _ibis_port_num_arg_idx [lsearch $argv -port_num]\n"

75432

" if {$_ibis_port_num_arg_idx >= 0} {\n"

75433

" if {[llength $argv] < $_ibis_port_num_arg_idx + 2} {\n"

75434

" puts {ibis given -port_num with no actual port number argument}\n"

75435

" } else { \n"

75436

" set _ibis_port_num [lindex $argv [expr $_ibis_port_num_arg_idx + 1]]\n"

75437

" set argv [lreplace $argv $_ibis_port_num_arg_idx [expr $_ibis_port_num_arg_idx + 1]]\n"

75438

" ibis_init\n"

75439

" set _ibis_all_ports [ibis_get_local_ports_info]\n"

75440

" set first_port_idx [lsearch -all $_ibis_all_ports [lindex $_ibis_all_ports 0]]\n"

75441

" if {[llength $first_port_idx] > 1} {\n"

75442

" set _ibis_port_info [lindex $_ibis_all_ports $_ibis_port_num]\n"

75443

" } else {\n"

75444

" set _ibis_port_info [lindex $_ibis_all_ports [expr $_ibis_port_num - 1]]\n"

75445

" }\n"

75446

" if {[lindex $_ibis_port_info 2] != \"ACTIVE\"} {\n"

75447

" puts \"Port $_ibis_port_num is not ACTIVE: $_ibis_port_info\"\n"

75448

" exit 1\n"

75449

" } else { \n"

75450

" ibis_set_port [lindex $_ibis_port_info 0]\n"

75451

" puts \"Port set to:[lindex $_ibis_port_info 0]\"\n"

75452

" }\n"

75453

" }\n"

75454

" }\n"

75455

"}\n");

75456

}

75457

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_base_version_set", _wrap_sacNodeInfo_base_version_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75458

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_base_version_get", _wrap_sacNodeInfo_base_version_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75459

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_class_version_set", _wrap_sacNodeInfo_class_version_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75460

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_class_version_get", _wrap_sacNodeInfo_class_version_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75461

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_node_type_set", _wrap_sacNodeInfo_node_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75462

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_node_type_get", _wrap_sacNodeInfo_node_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75463

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_num_ports_set", _wrap_sacNodeInfo_num_ports_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75464

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_num_ports_get", _wrap_sacNodeInfo_num_ports_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75465

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_sys_guid_set", _wrap_sacNodeInfo_sys_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75466

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_sys_guid_get", _wrap_sacNodeInfo_sys_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75467

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_node_guid_set", _wrap_sacNodeInfo_node_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75468

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_node_guid_get", _wrap_sacNodeInfo_node_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75469

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_port_guid_set", _wrap_sacNodeInfo_port_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75470

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_port_guid_get", _wrap_sacNodeInfo_port_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75471

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_partition_cap_set", _wrap_sacNodeInfo_partition_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75472

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_partition_cap_get", _wrap_sacNodeInfo_partition_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75473

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_device_id_set", _wrap_sacNodeInfo_device_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75474

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_device_id_get", _wrap_sacNodeInfo_device_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75475

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_revision_set", _wrap_sacNodeInfo_revision_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75476

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_revision_get", _wrap_sacNodeInfo_revision_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75477

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_port_num_vendor_id_set", _wrap_sacNodeInfo_port_num_vendor_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75478

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_port_num_vendor_id_get", _wrap_sacNodeInfo_port_num_vendor_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75479

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeInfo_delete", _wrap_sacNodeInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75480

Tcl_CreateObjCommand(interp,SWIG_prefix "sacNodeInfo",TclsacNodeInfoCmd, (ClientData) NULL, NULL);

75481

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_lid_set", _wrap_sacNodeRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75482

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_lid_get", _wrap_sacNodeRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75483

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_node_info_set", _wrap_sacNodeRec_node_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75484

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_node_info_get", _wrap_sacNodeRec_node_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75485

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_node_desc_set", _wrap_sacNodeRec_node_desc_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75486

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_node_desc_get", _wrap_sacNodeRec_node_desc_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75487

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_get", _wrap_sacNodeRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75488

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_getTable", _wrap_sacNodeRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75489

Tcl_CreateObjCommand(interp, SWIG_prefix "sacNodeRec_delete", _wrap_sacNodeRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75490

Tcl_CreateObjCommand(interp,SWIG_prefix "sacNodeRec",TclsacNodeRecCmd, (ClientData) NULL, NULL);

75491

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_set", _wrap_sacPortInfo_m_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75492

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_get", _wrap_sacPortInfo_m_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75493

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_subnet_prefix_set", _wrap_sacPortInfo_subnet_prefix_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75494

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_subnet_prefix_get", _wrap_sacPortInfo_subnet_prefix_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75495

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_base_lid_set", _wrap_sacPortInfo_base_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75496

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_base_lid_get", _wrap_sacPortInfo_base_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75497

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_master_sm_base_lid_set", _wrap_sacPortInfo_master_sm_base_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75498

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_master_sm_base_lid_get", _wrap_sacPortInfo_master_sm_base_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75499

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_capability_mask_set", _wrap_sacPortInfo_capability_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75500

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_capability_mask_get", _wrap_sacPortInfo_capability_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75501

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_diag_code_set", _wrap_sacPortInfo_diag_code_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75502

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_diag_code_get", _wrap_sacPortInfo_diag_code_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75503

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_lease_period_set", _wrap_sacPortInfo_m_key_lease_period_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75504

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_lease_period_get", _wrap_sacPortInfo_m_key_lease_period_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75505

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_local_port_num_set", _wrap_sacPortInfo_local_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75506

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_local_port_num_get", _wrap_sacPortInfo_local_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75507

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_enabled_set", _wrap_sacPortInfo_link_width_enabled_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75508

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_enabled_get", _wrap_sacPortInfo_link_width_enabled_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75509

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_supported_set", _wrap_sacPortInfo_link_width_supported_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75510

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_supported_get", _wrap_sacPortInfo_link_width_supported_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75511

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_active_set", _wrap_sacPortInfo_link_width_active_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75512

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_width_active_get", _wrap_sacPortInfo_link_width_active_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75513

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_state_info1_set", _wrap_sacPortInfo_state_info1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75514

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_state_info1_get", _wrap_sacPortInfo_state_info1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75515

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_state_info2_set", _wrap_sacPortInfo_state_info2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75516

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_state_info2_get", _wrap_sacPortInfo_state_info2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75517

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mkey_lmc_set", _wrap_sacPortInfo_mkey_lmc_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75518

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mkey_lmc_get", _wrap_sacPortInfo_mkey_lmc_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75519

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_speed_set", _wrap_sacPortInfo_link_speed_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75520

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_link_speed_get", _wrap_sacPortInfo_link_speed_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75521

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mtu_smsl_set", _wrap_sacPortInfo_mtu_smsl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75522

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mtu_smsl_get", _wrap_sacPortInfo_mtu_smsl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75523

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_cap_set", _wrap_sacPortInfo_vl_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75524

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_cap_get", _wrap_sacPortInfo_vl_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75525

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_high_limit_set", _wrap_sacPortInfo_vl_high_limit_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75526

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_high_limit_get", _wrap_sacPortInfo_vl_high_limit_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75527

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_arb_high_cap_set", _wrap_sacPortInfo_vl_arb_high_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75528

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_arb_high_cap_get", _wrap_sacPortInfo_vl_arb_high_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75529

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_arb_low_cap_set", _wrap_sacPortInfo_vl_arb_low_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75530

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_arb_low_cap_get", _wrap_sacPortInfo_vl_arb_low_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75531

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mtu_cap_set", _wrap_sacPortInfo_mtu_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75532

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_mtu_cap_get", _wrap_sacPortInfo_mtu_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75533

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_stall_life_set", _wrap_sacPortInfo_vl_stall_life_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75534

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_stall_life_get", _wrap_sacPortInfo_vl_stall_life_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75535

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_enforce_set", _wrap_sacPortInfo_vl_enforce_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75536

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_vl_enforce_get", _wrap_sacPortInfo_vl_enforce_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75537

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_violations_set", _wrap_sacPortInfo_m_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75538

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_m_key_violations_get", _wrap_sacPortInfo_m_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75539

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_p_key_violations_set", _wrap_sacPortInfo_p_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75540

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_p_key_violations_get", _wrap_sacPortInfo_p_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75541

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_q_key_violations_set", _wrap_sacPortInfo_q_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75542

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_q_key_violations_get", _wrap_sacPortInfo_q_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75543

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_guid_cap_set", _wrap_sacPortInfo_guid_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75544

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_guid_cap_get", _wrap_sacPortInfo_guid_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75545

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_subnet_timeout_set", _wrap_sacPortInfo_subnet_timeout_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75546

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_subnet_timeout_get", _wrap_sacPortInfo_subnet_timeout_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75547

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_resp_time_value_set", _wrap_sacPortInfo_resp_time_value_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75548

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_resp_time_value_get", _wrap_sacPortInfo_resp_time_value_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75549

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_error_threshold_set", _wrap_sacPortInfo_error_threshold_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75550

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_error_threshold_get", _wrap_sacPortInfo_error_threshold_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75551

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortInfo_delete", _wrap_sacPortInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75552

Tcl_CreateObjCommand(interp,SWIG_prefix "sacPortInfo",TclsacPortInfoCmd, (ClientData) NULL, NULL);

75553

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_lid_set", _wrap_sacPortRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75554

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_lid_get", _wrap_sacPortRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75555

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_port_num_set", _wrap_sacPortRec_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75556

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_port_num_get", _wrap_sacPortRec_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75557

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_port_info_set", _wrap_sacPortRec_port_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75558

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_port_info_get", _wrap_sacPortRec_port_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75559

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_get", _wrap_sacPortRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75560

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_getTable", _wrap_sacPortRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75561

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPortRec_delete", _wrap_sacPortRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75562

Tcl_CreateObjCommand(interp,SWIG_prefix "sacPortRec",TclsacPortRecCmd, (ClientData) NULL, NULL);

75563

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_guid_set", _wrap_sacSmInfo_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75564

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_guid_get", _wrap_sacSmInfo_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75565

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_sm_key_set", _wrap_sacSmInfo_sm_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75566

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_sm_key_get", _wrap_sacSmInfo_sm_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75567

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_act_count_set", _wrap_sacSmInfo_act_count_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75568

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_act_count_get", _wrap_sacSmInfo_act_count_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75569

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_pri_state_set", _wrap_sacSmInfo_pri_state_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75570

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_pri_state_get", _wrap_sacSmInfo_pri_state_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75571

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmInfo_delete", _wrap_sacSmInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75572

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSmInfo",TclsacSmInfoCmd, (ClientData) NULL, NULL);

75573

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_lid_set", _wrap_sacSmRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75574

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_lid_get", _wrap_sacSmRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75575

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_sm_info_set", _wrap_sacSmRec_sm_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75576

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_sm_info_get", _wrap_sacSmRec_sm_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75577

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_get", _wrap_sacSmRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75578

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_getTable", _wrap_sacSmRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75579

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSmRec_delete", _wrap_sacSmRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75580

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSmRec",TclsacSmRecCmd, (ClientData) NULL, NULL);

75581

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lin_cap_set", _wrap_sacSwInfo_lin_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75582

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lin_cap_get", _wrap_sacSwInfo_lin_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75583

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_rand_cap_set", _wrap_sacSwInfo_rand_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75584

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_rand_cap_get", _wrap_sacSwInfo_rand_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75585

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_mcast_cap_set", _wrap_sacSwInfo_mcast_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75586

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_mcast_cap_get", _wrap_sacSwInfo_mcast_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75587

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lin_top_set", _wrap_sacSwInfo_lin_top_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75588

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lin_top_get", _wrap_sacSwInfo_lin_top_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75589

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_port_set", _wrap_sacSwInfo_def_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75590

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_port_get", _wrap_sacSwInfo_def_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75591

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_mcast_pri_port_set", _wrap_sacSwInfo_def_mcast_pri_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75592

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_mcast_pri_port_get", _wrap_sacSwInfo_def_mcast_pri_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75593

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_mcast_not_port_set", _wrap_sacSwInfo_def_mcast_not_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75594

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_def_mcast_not_port_get", _wrap_sacSwInfo_def_mcast_not_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75595

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_life_state_set", _wrap_sacSwInfo_life_state_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75596

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_life_state_get", _wrap_sacSwInfo_life_state_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75597

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lids_per_port_set", _wrap_sacSwInfo_lids_per_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75598

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_lids_per_port_get", _wrap_sacSwInfo_lids_per_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75599

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_enforce_cap_set", _wrap_sacSwInfo_enforce_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75600

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_enforce_cap_get", _wrap_sacSwInfo_enforce_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75601

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_flags_set", _wrap_sacSwInfo_flags_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75602

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_flags_get", _wrap_sacSwInfo_flags_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75603

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwInfo_delete", _wrap_sacSwInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75604

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSwInfo",TclsacSwInfoCmd, (ClientData) NULL, NULL);

75605

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_lid_set", _wrap_sacSwRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75606

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_lid_get", _wrap_sacSwRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75607

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_switch_info_set", _wrap_sacSwRec_switch_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75608

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_switch_info_get", _wrap_sacSwRec_switch_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75609

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_get", _wrap_sacSwRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75610

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_getTable", _wrap_sacSwRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75611

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSwRec_delete", _wrap_sacSwRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75612

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSwRec",TclsacSwRecCmd, (ClientData) NULL, NULL);

75613

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_from_lid_set", _wrap_sacLinkRec_from_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75614

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_from_lid_get", _wrap_sacLinkRec_from_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75615

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_from_port_num_set", _wrap_sacLinkRec_from_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75616

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_from_port_num_get", _wrap_sacLinkRec_from_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75617

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_to_port_num_set", _wrap_sacLinkRec_to_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75618

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_to_port_num_get", _wrap_sacLinkRec_to_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75619

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_to_lid_set", _wrap_sacLinkRec_to_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75620

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_to_lid_get", _wrap_sacLinkRec_to_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75621

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_get", _wrap_sacLinkRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75622

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_getTable", _wrap_sacLinkRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75623

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLinkRec_delete", _wrap_sacLinkRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75624

Tcl_CreateObjCommand(interp,SWIG_prefix "sacLinkRec",TclsacLinkRecCmd, (ClientData) NULL, NULL);

75625

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_service_id_set", _wrap_sacPathRec_service_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75626

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_service_id_get", _wrap_sacPathRec_service_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75627

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_dgid_set", _wrap_sacPathRec_dgid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75628

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_dgid_get", _wrap_sacPathRec_dgid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75629

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_sgid_set", _wrap_sacPathRec_sgid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75630

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_sgid_get", _wrap_sacPathRec_sgid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75631

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_dlid_set", _wrap_sacPathRec_dlid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75632

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_dlid_get", _wrap_sacPathRec_dlid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75633

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_slid_set", _wrap_sacPathRec_slid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75634

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_slid_get", _wrap_sacPathRec_slid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75635

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_hop_flow_raw_set", _wrap_sacPathRec_hop_flow_raw_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75636

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_hop_flow_raw_get", _wrap_sacPathRec_hop_flow_raw_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75637

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_tclass_set", _wrap_sacPathRec_tclass_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75638

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_tclass_get", _wrap_sacPathRec_tclass_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75639

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_num_path_set", _wrap_sacPathRec_num_path_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75640

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_num_path_get", _wrap_sacPathRec_num_path_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75641

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_pkey_set", _wrap_sacPathRec_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75642

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_pkey_get", _wrap_sacPathRec_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75643

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_qos_class_sl_set", _wrap_sacPathRec_qos_class_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75644

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_qos_class_sl_get", _wrap_sacPathRec_qos_class_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75645

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_mtu_set", _wrap_sacPathRec_mtu_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75646

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_mtu_get", _wrap_sacPathRec_mtu_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75647

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_rate_set", _wrap_sacPathRec_rate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75648

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_rate_get", _wrap_sacPathRec_rate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75649

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_pkt_life_set", _wrap_sacPathRec_pkt_life_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75650

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_pkt_life_get", _wrap_sacPathRec_pkt_life_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75651

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_preference_set", _wrap_sacPathRec_preference_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75652

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_preference_get", _wrap_sacPathRec_preference_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75653

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_get", _wrap_sacPathRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75654

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_getTable", _wrap_sacPathRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75655

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPathRec_delete", _wrap_sacPathRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75656

Tcl_CreateObjCommand(interp,SWIG_prefix "sacPathRec",TclsacPathRecCmd, (ClientData) NULL, NULL);

75657

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_lid_set", _wrap_sacLFTRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75658

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_lid_get", _wrap_sacLFTRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75659

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_block_num_set", _wrap_sacLFTRec_block_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75660

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_block_num_get", _wrap_sacLFTRec_block_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75661

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_lft_set", _wrap_sacLFTRec_lft_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75662

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_lft_get", _wrap_sacLFTRec_lft_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75663

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_get", _wrap_sacLFTRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75664

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_getTable", _wrap_sacLFTRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75665

Tcl_CreateObjCommand(interp, SWIG_prefix "sacLFTRec_delete", _wrap_sacLFTRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75666

Tcl_CreateObjCommand(interp,SWIG_prefix "sacLFTRec",TclsacLFTRecCmd, (ClientData) NULL, NULL);

75667

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mgid_set", _wrap_sacMCMRec_mgid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75668

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mgid_get", _wrap_sacMCMRec_mgid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75669

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_port_gid_set", _wrap_sacMCMRec_port_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75670

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_port_gid_get", _wrap_sacMCMRec_port_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75671

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_qkey_set", _wrap_sacMCMRec_qkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75672

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_qkey_get", _wrap_sacMCMRec_qkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75673

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mlid_set", _wrap_sacMCMRec_mlid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75674

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mlid_get", _wrap_sacMCMRec_mlid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75675

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mtu_set", _wrap_sacMCMRec_mtu_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75676

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_mtu_get", _wrap_sacMCMRec_mtu_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75677

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_tclass_set", _wrap_sacMCMRec_tclass_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75678

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_tclass_get", _wrap_sacMCMRec_tclass_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75679

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_pkey_set", _wrap_sacMCMRec_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75680

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_pkey_get", _wrap_sacMCMRec_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75681

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_rate_set", _wrap_sacMCMRec_rate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75682

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_rate_get", _wrap_sacMCMRec_rate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75683

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_pkt_life_set", _wrap_sacMCMRec_pkt_life_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75684

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_pkt_life_get", _wrap_sacMCMRec_pkt_life_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75685

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_sl_flow_hop_set", _wrap_sacMCMRec_sl_flow_hop_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75686

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_sl_flow_hop_get", _wrap_sacMCMRec_sl_flow_hop_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75687

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_scope_state_set", _wrap_sacMCMRec_scope_state_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75688

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_scope_state_get", _wrap_sacMCMRec_scope_state_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75689

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_get", _wrap_sacMCMRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75690

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_getTable", _wrap_sacMCMRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75691

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_set", _wrap_sacMCMRec_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75692

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_del", _wrap_sacMCMRec_del, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75693

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_proxy_join_get", _wrap_sacMCMRec_proxy_join_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75694

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_proxy_join_set", _wrap_sacMCMRec_proxy_join_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75695

Tcl_CreateObjCommand(interp, SWIG_prefix "sacMCMRec_obj_delete", _wrap_sacMCMRec_obj_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75696

Tcl_CreateObjCommand(interp,SWIG_prefix "sacMCMRec",TclsacMCMRecCmd, (ClientData) NULL, NULL);

75697

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_base_ver_set", _wrap_sacClassPortInfo_base_ver_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75698

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_base_ver_get", _wrap_sacClassPortInfo_base_ver_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75699

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_class_ver_set", _wrap_sacClassPortInfo_class_ver_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75700

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_class_ver_get", _wrap_sacClassPortInfo_class_ver_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75701

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_cap_mask_set", _wrap_sacClassPortInfo_cap_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75702

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_cap_mask_get", _wrap_sacClassPortInfo_cap_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75703

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_cap_mask2_resp_time_set", _wrap_sacClassPortInfo_cap_mask2_resp_time_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75704

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_cap_mask2_resp_time_get", _wrap_sacClassPortInfo_cap_mask2_resp_time_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75705

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_gid_set", _wrap_sacClassPortInfo_redir_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75706

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_gid_get", _wrap_sacClassPortInfo_redir_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75707

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_tc_sl_fl_set", _wrap_sacClassPortInfo_redir_tc_sl_fl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75708

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_tc_sl_fl_get", _wrap_sacClassPortInfo_redir_tc_sl_fl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75709

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_lid_set", _wrap_sacClassPortInfo_redir_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75710

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_lid_get", _wrap_sacClassPortInfo_redir_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75711

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_pkey_set", _wrap_sacClassPortInfo_redir_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75712

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_pkey_get", _wrap_sacClassPortInfo_redir_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75713

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_qp_set", _wrap_sacClassPortInfo_redir_qp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75714

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_qp_get", _wrap_sacClassPortInfo_redir_qp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75715

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_qkey_set", _wrap_sacClassPortInfo_redir_qkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75716

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_redir_qkey_get", _wrap_sacClassPortInfo_redir_qkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75717

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_gid_set", _wrap_sacClassPortInfo_trap_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75718

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_gid_get", _wrap_sacClassPortInfo_trap_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75719

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_tc_sl_fl_set", _wrap_sacClassPortInfo_trap_tc_sl_fl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75720

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_tc_sl_fl_get", _wrap_sacClassPortInfo_trap_tc_sl_fl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75721

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_lid_set", _wrap_sacClassPortInfo_trap_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75722

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_lid_get", _wrap_sacClassPortInfo_trap_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75723

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_pkey_set", _wrap_sacClassPortInfo_trap_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75724

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_pkey_get", _wrap_sacClassPortInfo_trap_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75725

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_hop_qp_set", _wrap_sacClassPortInfo_trap_hop_qp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75726

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_hop_qp_get", _wrap_sacClassPortInfo_trap_hop_qp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75727

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_qkey_set", _wrap_sacClassPortInfo_trap_qkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75728

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_trap_qkey_get", _wrap_sacClassPortInfo_trap_qkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75729

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_get", _wrap_sacClassPortInfo_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75730

Tcl_CreateObjCommand(interp, SWIG_prefix "sacClassPortInfo_delete", _wrap_sacClassPortInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75731

Tcl_CreateObjCommand(interp,SWIG_prefix "sacClassPortInfo",TclsacClassPortInfoCmd, (ClientData) NULL, NULL);

75732

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_gid_set", _wrap_sacInformInfo_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75733

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_gid_get", _wrap_sacInformInfo_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75734

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_lid_range_begin_set", _wrap_sacInformInfo_lid_range_begin_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75735

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_lid_range_begin_get", _wrap_sacInformInfo_lid_range_begin_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75736

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_lid_range_end_set", _wrap_sacInformInfo_lid_range_end_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75737

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_lid_range_end_get", _wrap_sacInformInfo_lid_range_end_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75738

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_reserved1_set", _wrap_sacInformInfo_reserved1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75739

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_reserved1_get", _wrap_sacInformInfo_reserved1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75740

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_is_generic_set", _wrap_sacInformInfo_is_generic_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75741

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_is_generic_get", _wrap_sacInformInfo_is_generic_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75742

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_subscribe_set", _wrap_sacInformInfo_subscribe_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75743

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_subscribe_get", _wrap_sacInformInfo_subscribe_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75744

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_trap_type_set", _wrap_sacInformInfo_trap_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75745

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_trap_type_get", _wrap_sacInformInfo_trap_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75746

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_get", _wrap_sacInformInfo_g_or_v_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75747

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_set", _wrap_sacInformInfo_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75748

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_delete", _wrap_sacInformInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75749

Tcl_CreateObjCommand(interp,SWIG_prefix "sacInformInfo",TclsacInformInfoCmd, (ClientData) NULL, NULL);

75750

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_get", _wrap_sacInformInfo_g_or_v_generic_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75751

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_get", _wrap_sacInformInfo_g_or_v_vend_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75752

Tcl_CreateObjCommand(interp,SWIG_prefix "sacInformInfo_g_or_v",TclsacInformInfo_g_or_vCmd, (ClientData) NULL, NULL);

75753

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_trap_num_set", _wrap_sacInformInfo_g_or_v_generic_trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75754

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_trap_num_get", _wrap_sacInformInfo_g_or_v_generic_trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75755

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_qpn_resp_time_val_set", _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75756

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_qpn_resp_time_val_get", _wrap_sacInformInfo_g_or_v_generic_qpn_resp_time_val_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75757

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_reserved2_set", _wrap_sacInformInfo_g_or_v_generic_reserved2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75758

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_reserved2_get", _wrap_sacInformInfo_g_or_v_generic_reserved2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75759

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_node_type_msb_set", _wrap_sacInformInfo_g_or_v_generic_node_type_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75760

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_node_type_msb_get", _wrap_sacInformInfo_g_or_v_generic_node_type_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75761

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_node_type_lsb_set", _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75762

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_generic_node_type_lsb_get", _wrap_sacInformInfo_g_or_v_generic_node_type_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75763

Tcl_CreateObjCommand(interp,SWIG_prefix "sacInformInfo_g_or_v_generic",TclsacInformInfo_g_or_v_genericCmd, (ClientData) NULL, NULL);

75764

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_dev_id_set", _wrap_sacInformInfo_g_or_v_vend_dev_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75765

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_dev_id_get", _wrap_sacInformInfo_g_or_v_vend_dev_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75766

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_qpn_resp_time_val_set", _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75767

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_qpn_resp_time_val_get", _wrap_sacInformInfo_g_or_v_vend_qpn_resp_time_val_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75768

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_reserved2_set", _wrap_sacInformInfo_g_or_v_vend_reserved2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75769

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_reserved2_get", _wrap_sacInformInfo_g_or_v_vend_reserved2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75770

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_vendor_id_msb_set", _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75771

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_vendor_id_msb_get", _wrap_sacInformInfo_g_or_v_vend_vendor_id_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75772

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_vendor_id_lsb_set", _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75773

Tcl_CreateObjCommand(interp, SWIG_prefix "sacInformInfo_g_or_v_vend_vendor_id_lsb_get", _wrap_sacInformInfo_g_or_v_vend_vendor_id_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75774

Tcl_CreateObjCommand(interp,SWIG_prefix "sacInformInfo_g_or_v_vend",TclsacInformInfo_g_or_v_vendCmd, (ClientData) NULL, NULL);

75775

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_id_set", _wrap_sacServiceRec_service_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75776

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_id_get", _wrap_sacServiceRec_service_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75777

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_gid_set", _wrap_sacServiceRec_service_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75778

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_gid_get", _wrap_sacServiceRec_service_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75779

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_pkey_set", _wrap_sacServiceRec_service_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75780

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_pkey_get", _wrap_sacServiceRec_service_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75781

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_resv_set", _wrap_sacServiceRec_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75782

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_resv_get", _wrap_sacServiceRec_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75783

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_lease_set", _wrap_sacServiceRec_service_lease_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75784

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_lease_get", _wrap_sacServiceRec_service_lease_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75785

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_key_set", _wrap_sacServiceRec_service_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75786

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_key_get", _wrap_sacServiceRec_service_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75787

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_name_set", _wrap_sacServiceRec_service_name_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75788

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_name_get", _wrap_sacServiceRec_service_name_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75789

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data8_set", _wrap_sacServiceRec_service_data8_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75790

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data8_get", _wrap_sacServiceRec_service_data8_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75791

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data16_set", _wrap_sacServiceRec_service_data16_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75792

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data16_get", _wrap_sacServiceRec_service_data16_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75793

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data32_set", _wrap_sacServiceRec_service_data32_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75794

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data32_get", _wrap_sacServiceRec_service_data32_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75795

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data64_set", _wrap_sacServiceRec_service_data64_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75796

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_service_data64_get", _wrap_sacServiceRec_service_data64_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75797

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_get", _wrap_sacServiceRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75798

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_set", _wrap_sacServiceRec_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75799

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_getTable", _wrap_sacServiceRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75800

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_delete", _wrap_sacServiceRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75801

Tcl_CreateObjCommand(interp, SWIG_prefix "sacServiceRec_obj_delete", _wrap_sacServiceRec_obj_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75802

Tcl_CreateObjCommand(interp,SWIG_prefix "sacServiceRec",TclsacServiceRecCmd, (ClientData) NULL, NULL);

75803

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlTbl_raw_vl_by_sl_set", _wrap_sacSlVlTbl_raw_vl_by_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75804

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlTbl_raw_vl_by_sl_get", _wrap_sacSlVlTbl_raw_vl_by_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75805

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSlVlTbl",TclsacSlVlTblCmd, (ClientData) NULL, NULL);

75806

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_lid_set", _wrap_sacSlVlRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75807

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_lid_get", _wrap_sacSlVlRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75808

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_in_port_num_set", _wrap_sacSlVlRec_in_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75809

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_in_port_num_get", _wrap_sacSlVlRec_in_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75810

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_out_port_num_set", _wrap_sacSlVlRec_out_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75811

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_out_port_num_get", _wrap_sacSlVlRec_out_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75812

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_resv_set", _wrap_sacSlVlRec_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75813

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_resv_get", _wrap_sacSlVlRec_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75814

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_slvl_tbl_set", _wrap_sacSlVlRec_slvl_tbl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75815

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_slvl_tbl_get", _wrap_sacSlVlRec_slvl_tbl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75816

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_get", _wrap_sacSlVlRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75817

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_getTable", _wrap_sacSlVlRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75818

Tcl_CreateObjCommand(interp, SWIG_prefix "sacSlVlRec_delete", _wrap_sacSlVlRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75819

Tcl_CreateObjCommand(interp,SWIG_prefix "sacSlVlRec",TclsacSlVlRecCmd, (ClientData) NULL, NULL);

75820

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_lid_set", _wrap_sacVlArbRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75821

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_lid_get", _wrap_sacVlArbRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75822

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_port_num_set", _wrap_sacVlArbRec_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75823

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_port_num_get", _wrap_sacVlArbRec_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75824

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_block_num_set", _wrap_sacVlArbRec_block_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75825

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_block_num_get", _wrap_sacVlArbRec_block_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75826

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_reserved_set", _wrap_sacVlArbRec_reserved_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75827

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_reserved_get", _wrap_sacVlArbRec_reserved_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75828

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_vl_arb_tbl_set", _wrap_sacVlArbRec_vl_arb_tbl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75829

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_vl_arb_tbl_get", _wrap_sacVlArbRec_vl_arb_tbl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75830

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_get", _wrap_sacVlArbRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75831

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_getTable", _wrap_sacVlArbRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75832

Tcl_CreateObjCommand(interp, SWIG_prefix "sacVlArbRec_delete", _wrap_sacVlArbRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75833

Tcl_CreateObjCommand(interp,SWIG_prefix "sacVlArbRec",TclsacVlArbRecCmd, (ClientData) NULL, NULL);

75834

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyTbl_pkey_entry_set", _wrap_sacPKeyTbl_pkey_entry_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75835

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyTbl_pkey_entry_get", _wrap_sacPKeyTbl_pkey_entry_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75836

Tcl_CreateObjCommand(interp,SWIG_prefix "sacPKeyTbl",TclsacPKeyTblCmd, (ClientData) NULL, NULL);

75837

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_lid_set", _wrap_sacPKeyRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75838

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_lid_get", _wrap_sacPKeyRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75839

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_block_num_set", _wrap_sacPKeyRec_block_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75840

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_block_num_get", _wrap_sacPKeyRec_block_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75841

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_port_num_set", _wrap_sacPKeyRec_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75842

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_port_num_get", _wrap_sacPKeyRec_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75843

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_reserved1_set", _wrap_sacPKeyRec_reserved1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75844

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_reserved1_get", _wrap_sacPKeyRec_reserved1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75845

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_reserved2_set", _wrap_sacPKeyRec_reserved2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75846

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_reserved2_get", _wrap_sacPKeyRec_reserved2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75847

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_pkey_tbl_set", _wrap_sacPKeyRec_pkey_tbl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75848

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_pkey_tbl_get", _wrap_sacPKeyRec_pkey_tbl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75849

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_get", _wrap_sacPKeyRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75850

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_getTable", _wrap_sacPKeyRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75851

Tcl_CreateObjCommand(interp, SWIG_prefix "sacPKeyRec_delete", _wrap_sacPKeyRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75852

Tcl_CreateObjCommand(interp,SWIG_prefix "sacPKeyRec",TclsacPKeyRecCmd, (ClientData) NULL, NULL);

75853

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidInfo_guid_set", _wrap_sacGuidInfo_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75854

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidInfo_guid_get", _wrap_sacGuidInfo_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75855

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidInfo_delete", _wrap_sacGuidInfo_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75856

Tcl_CreateObjCommand(interp,SWIG_prefix "sacGuidInfo",TclsacGuidInfoCmd, (ClientData) NULL, NULL);

75857

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_lid_set", _wrap_sacGuidRec_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75858

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_lid_get", _wrap_sacGuidRec_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75859

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_block_num_set", _wrap_sacGuidRec_block_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75860

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_block_num_get", _wrap_sacGuidRec_block_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75861

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_resv_set", _wrap_sacGuidRec_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75862

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_resv_get", _wrap_sacGuidRec_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75863

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_reserved_set", _wrap_sacGuidRec_reserved_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75864

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_reserved_get", _wrap_sacGuidRec_reserved_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75865

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_guid_info_set", _wrap_sacGuidRec_guid_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75866

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_guid_info_get", _wrap_sacGuidRec_guid_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75867

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_get", _wrap_sacGuidRec_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75868

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_set", _wrap_sacGuidRec_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75869

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_getTable", _wrap_sacGuidRec_getTable, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75870

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_delete", _wrap_sacGuidRec_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75871

Tcl_CreateObjCommand(interp, SWIG_prefix "sacGuidRec_obj_delete", _wrap_sacGuidRec_obj_delete, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75872

Tcl_CreateObjCommand(interp,SWIG_prefix "sacGuidRec",TclsacGuidRecCmd, (ClientData) NULL, NULL);

75873

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_base_version_set", _wrap_smNodeInfo_base_version_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75874

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_base_version_get", _wrap_smNodeInfo_base_version_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75875

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_class_version_set", _wrap_smNodeInfo_class_version_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75876

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_class_version_get", _wrap_smNodeInfo_class_version_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75877

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_node_type_set", _wrap_smNodeInfo_node_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75878

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_node_type_get", _wrap_smNodeInfo_node_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75879

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_num_ports_set", _wrap_smNodeInfo_num_ports_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75880

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_num_ports_get", _wrap_smNodeInfo_num_ports_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75881

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_sys_guid_set", _wrap_smNodeInfo_sys_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75882

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_sys_guid_get", _wrap_smNodeInfo_sys_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75883

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_node_guid_set", _wrap_smNodeInfo_node_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75884

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_node_guid_get", _wrap_smNodeInfo_node_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75885

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_port_guid_set", _wrap_smNodeInfo_port_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75886

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_port_guid_get", _wrap_smNodeInfo_port_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75887

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_partition_cap_set", _wrap_smNodeInfo_partition_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75888

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_partition_cap_get", _wrap_smNodeInfo_partition_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75889

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_device_id_set", _wrap_smNodeInfo_device_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75890

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_device_id_get", _wrap_smNodeInfo_device_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75891

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_revision_set", _wrap_smNodeInfo_revision_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75892

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_revision_get", _wrap_smNodeInfo_revision_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75893

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_port_num_vendor_id_set", _wrap_smNodeInfo_port_num_vendor_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75894

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_port_num_vendor_id_get", _wrap_smNodeInfo_port_num_vendor_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75895

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_getByDr", _wrap_smNodeInfo_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75896

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_setByDr", _wrap_smNodeInfo_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75897

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_getByLid", _wrap_smNodeInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75898

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeInfo_setByLid", _wrap_smNodeInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75899

Tcl_CreateObjCommand(interp,SWIG_prefix "smNodeInfo",TclsmNodeInfoCmd, (ClientData) NULL, NULL);

75900

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_set", _wrap_smPortInfo_m_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75901

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_get", _wrap_smPortInfo_m_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75902

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_subnet_prefix_set", _wrap_smPortInfo_subnet_prefix_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75903

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_subnet_prefix_get", _wrap_smPortInfo_subnet_prefix_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75904

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_base_lid_set", _wrap_smPortInfo_base_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75905

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_base_lid_get", _wrap_smPortInfo_base_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75906

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_master_sm_base_lid_set", _wrap_smPortInfo_master_sm_base_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75907

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_master_sm_base_lid_get", _wrap_smPortInfo_master_sm_base_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75908

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_capability_mask_set", _wrap_smPortInfo_capability_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75909

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_capability_mask_get", _wrap_smPortInfo_capability_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75910

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_diag_code_set", _wrap_smPortInfo_diag_code_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75911

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_diag_code_get", _wrap_smPortInfo_diag_code_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75912

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_lease_period_set", _wrap_smPortInfo_m_key_lease_period_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75913

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_lease_period_get", _wrap_smPortInfo_m_key_lease_period_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75914

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_local_port_num_set", _wrap_smPortInfo_local_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75915

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_local_port_num_get", _wrap_smPortInfo_local_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75916

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_enabled_set", _wrap_smPortInfo_link_width_enabled_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75917

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_enabled_get", _wrap_smPortInfo_link_width_enabled_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75918

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_supported_set", _wrap_smPortInfo_link_width_supported_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75919

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_supported_get", _wrap_smPortInfo_link_width_supported_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75920

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_active_set", _wrap_smPortInfo_link_width_active_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75921

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_width_active_get", _wrap_smPortInfo_link_width_active_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75922

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_state_info1_set", _wrap_smPortInfo_state_info1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75923

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_state_info1_get", _wrap_smPortInfo_state_info1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75924

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_state_info2_set", _wrap_smPortInfo_state_info2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75925

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_state_info2_get", _wrap_smPortInfo_state_info2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75926

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mkey_lmc_set", _wrap_smPortInfo_mkey_lmc_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75927

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mkey_lmc_get", _wrap_smPortInfo_mkey_lmc_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75928

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_speed_set", _wrap_smPortInfo_link_speed_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75929

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_link_speed_get", _wrap_smPortInfo_link_speed_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75930

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mtu_smsl_set", _wrap_smPortInfo_mtu_smsl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75931

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mtu_smsl_get", _wrap_smPortInfo_mtu_smsl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75932

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_cap_set", _wrap_smPortInfo_vl_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75933

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_cap_get", _wrap_smPortInfo_vl_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75934

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_high_limit_set", _wrap_smPortInfo_vl_high_limit_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75935

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_high_limit_get", _wrap_smPortInfo_vl_high_limit_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75936

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_arb_high_cap_set", _wrap_smPortInfo_vl_arb_high_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75937

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_arb_high_cap_get", _wrap_smPortInfo_vl_arb_high_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75938

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_arb_low_cap_set", _wrap_smPortInfo_vl_arb_low_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75939

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_arb_low_cap_get", _wrap_smPortInfo_vl_arb_low_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75940

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mtu_cap_set", _wrap_smPortInfo_mtu_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75941

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_mtu_cap_get", _wrap_smPortInfo_mtu_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75942

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_stall_life_set", _wrap_smPortInfo_vl_stall_life_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75943

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_stall_life_get", _wrap_smPortInfo_vl_stall_life_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75944

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_enforce_set", _wrap_smPortInfo_vl_enforce_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75945

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_vl_enforce_get", _wrap_smPortInfo_vl_enforce_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75946

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_violations_set", _wrap_smPortInfo_m_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75947

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_m_key_violations_get", _wrap_smPortInfo_m_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75948

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_p_key_violations_set", _wrap_smPortInfo_p_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75949

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_p_key_violations_get", _wrap_smPortInfo_p_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75950

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_q_key_violations_set", _wrap_smPortInfo_q_key_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75951

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_q_key_violations_get", _wrap_smPortInfo_q_key_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75952

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_guid_cap_set", _wrap_smPortInfo_guid_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75953

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_guid_cap_get", _wrap_smPortInfo_guid_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75954

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_subnet_timeout_set", _wrap_smPortInfo_subnet_timeout_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75955

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_subnet_timeout_get", _wrap_smPortInfo_subnet_timeout_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75956

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_resp_time_value_set", _wrap_smPortInfo_resp_time_value_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75957

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_resp_time_value_get", _wrap_smPortInfo_resp_time_value_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75958

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_error_threshold_set", _wrap_smPortInfo_error_threshold_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75959

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_error_threshold_get", _wrap_smPortInfo_error_threshold_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75960

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_getByDr", _wrap_smPortInfo_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75961

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_setByDr", _wrap_smPortInfo_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75962

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_getByLid", _wrap_smPortInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75963

Tcl_CreateObjCommand(interp, SWIG_prefix "smPortInfo_setByLid", _wrap_smPortInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75964

Tcl_CreateObjCommand(interp,SWIG_prefix "smPortInfo",TclsmPortInfoCmd, (ClientData) NULL, NULL);

75965

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lin_cap_set", _wrap_smSwInfo_lin_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75966

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lin_cap_get", _wrap_smSwInfo_lin_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75967

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_rand_cap_set", _wrap_smSwInfo_rand_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75968

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_rand_cap_get", _wrap_smSwInfo_rand_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75969

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_mcast_cap_set", _wrap_smSwInfo_mcast_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75970

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_mcast_cap_get", _wrap_smSwInfo_mcast_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75971

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lin_top_set", _wrap_smSwInfo_lin_top_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75972

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lin_top_get", _wrap_smSwInfo_lin_top_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75973

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_port_set", _wrap_smSwInfo_def_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75974

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_port_get", _wrap_smSwInfo_def_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75975

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_mcast_pri_port_set", _wrap_smSwInfo_def_mcast_pri_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75976

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_mcast_pri_port_get", _wrap_smSwInfo_def_mcast_pri_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75977

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_mcast_not_port_set", _wrap_smSwInfo_def_mcast_not_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75978

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_def_mcast_not_port_get", _wrap_smSwInfo_def_mcast_not_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75979

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_life_state_set", _wrap_smSwInfo_life_state_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75980

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_life_state_get", _wrap_smSwInfo_life_state_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75981

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lids_per_port_set", _wrap_smSwInfo_lids_per_port_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75982

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_lids_per_port_get", _wrap_smSwInfo_lids_per_port_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75983

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_enforce_cap_set", _wrap_smSwInfo_enforce_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75984

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_enforce_cap_get", _wrap_smSwInfo_enforce_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75985

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_flags_set", _wrap_smSwInfo_flags_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75986

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_flags_get", _wrap_smSwInfo_flags_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75987

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_getByDr", _wrap_smSwInfo_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75988

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_setByDr", _wrap_smSwInfo_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75989

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_getByLid", _wrap_smSwInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75990

Tcl_CreateObjCommand(interp, SWIG_prefix "smSwInfo_setByLid", _wrap_smSwInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75991

Tcl_CreateObjCommand(interp,SWIG_prefix "smSwInfo",TclsmSwInfoCmd, (ClientData) NULL, NULL);

75992

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_lft_set", _wrap_smLftBlock_lft_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75993

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_lft_get", _wrap_smLftBlock_lft_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75994

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_getByDr", _wrap_smLftBlock_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75995

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_setByDr", _wrap_smLftBlock_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75996

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_getByLid", _wrap_smLftBlock_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75997

Tcl_CreateObjCommand(interp, SWIG_prefix "smLftBlock_setByLid", _wrap_smLftBlock_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

75998

Tcl_CreateObjCommand(interp,SWIG_prefix "smLftBlock",TclsmLftBlockCmd, (ClientData) NULL, NULL);

75999

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_mft_set", _wrap_smMftBlock_mft_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76000

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_mft_get", _wrap_smMftBlock_mft_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76001

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_getByDr", _wrap_smMftBlock_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76002

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_setByDr", _wrap_smMftBlock_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76003

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_getByLid", _wrap_smMftBlock_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76004

Tcl_CreateObjCommand(interp, SWIG_prefix "smMftBlock_setByLid", _wrap_smMftBlock_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76005

Tcl_CreateObjCommand(interp,SWIG_prefix "smMftBlock",TclsmMftBlockCmd, (ClientData) NULL, NULL);

76006

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_guid_set", _wrap_smGuidInfo_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76007

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_guid_get", _wrap_smGuidInfo_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76008

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_getByDr", _wrap_smGuidInfo_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76009

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_setByDr", _wrap_smGuidInfo_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76010

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_getByLid", _wrap_smGuidInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76011

Tcl_CreateObjCommand(interp, SWIG_prefix "smGuidInfo_setByLid", _wrap_smGuidInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76012

Tcl_CreateObjCommand(interp,SWIG_prefix "smGuidInfo",TclsmGuidInfoCmd, (ClientData) NULL, NULL);

76013

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_pkey_entry_set", _wrap_smPkeyTable_pkey_entry_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76014

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_pkey_entry_get", _wrap_smPkeyTable_pkey_entry_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76015

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_getByDr", _wrap_smPkeyTable_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76016

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_setByDr", _wrap_smPkeyTable_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76017

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_getByLid", _wrap_smPkeyTable_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76018

Tcl_CreateObjCommand(interp, SWIG_prefix "smPkeyTable_setByLid", _wrap_smPkeyTable_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76019

Tcl_CreateObjCommand(interp,SWIG_prefix "smPkeyTable",TclsmPkeyTableCmd, (ClientData) NULL, NULL);

76020

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_raw_vl_by_sl_set", _wrap_smSlVlTable_raw_vl_by_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76021

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_raw_vl_by_sl_get", _wrap_smSlVlTable_raw_vl_by_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76022

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_getByDr", _wrap_smSlVlTable_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76023

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_setByDr", _wrap_smSlVlTable_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76024

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_getByLid", _wrap_smSlVlTable_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76025

Tcl_CreateObjCommand(interp, SWIG_prefix "smSlVlTable_setByLid", _wrap_smSlVlTable_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76026

Tcl_CreateObjCommand(interp,SWIG_prefix "smSlVlTable",TclsmSlVlTableCmd, (ClientData) NULL, NULL);

76027

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_vl_entry_set", _wrap_smVlArbTable_vl_entry_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76028

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_vl_entry_get", _wrap_smVlArbTable_vl_entry_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76029

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_getByDr", _wrap_smVlArbTable_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76030

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_setByDr", _wrap_smVlArbTable_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76031

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_getByLid", _wrap_smVlArbTable_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76032

Tcl_CreateObjCommand(interp, SWIG_prefix "smVlArbTable_setByLid", _wrap_smVlArbTable_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76033

Tcl_CreateObjCommand(interp,SWIG_prefix "smVlArbTable",TclsmVlArbTableCmd, (ClientData) NULL, NULL);

76034

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_description_set", _wrap_smNodeDesc_description_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76035

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_description_get", _wrap_smNodeDesc_description_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76036

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_getByDr", _wrap_smNodeDesc_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76037

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_setByDr", _wrap_smNodeDesc_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76038

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_getByLid", _wrap_smNodeDesc_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76039

Tcl_CreateObjCommand(interp, SWIG_prefix "smNodeDesc_setByLid", _wrap_smNodeDesc_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76040

Tcl_CreateObjCommand(interp,SWIG_prefix "smNodeDesc",TclsmNodeDescCmd, (ClientData) NULL, NULL);

76041

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_guid_set", _wrap_smSMInfo_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76042

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_guid_get", _wrap_smSMInfo_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76043

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_sm_key_set", _wrap_smSMInfo_sm_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76044

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_sm_key_get", _wrap_smSMInfo_sm_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76045

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_act_count_set", _wrap_smSMInfo_act_count_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76046

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_act_count_get", _wrap_smSMInfo_act_count_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76047

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_pri_state_set", _wrap_smSMInfo_pri_state_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76048

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_pri_state_get", _wrap_smSMInfo_pri_state_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76049

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_getByDr", _wrap_smSMInfo_getByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76050

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_setByDr", _wrap_smSMInfo_setByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76051

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_getByLid", _wrap_smSMInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76052

Tcl_CreateObjCommand(interp, SWIG_prefix "smSMInfo_setByLid", _wrap_smSMInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76053

Tcl_CreateObjCommand(interp,SWIG_prefix "smSMInfo",TclsmSMInfoCmd, (ClientData) NULL, NULL);

76054

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_generic_type_set", _wrap_smNotice_generic_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76055

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_generic_type_get", _wrap_smNotice_generic_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76056

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_issuer_lid_set", _wrap_smNotice_issuer_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76057

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_issuer_lid_get", _wrap_smNotice_issuer_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76058

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_toggle_count_set", _wrap_smNotice_toggle_count_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76059

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_toggle_count_get", _wrap_smNotice_toggle_count_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76060

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_issuer_gid_set", _wrap_smNotice_issuer_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76061

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_issuer_gid_get", _wrap_smNotice_issuer_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76062

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_get", _wrap_smNotice_g_or_v_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76063

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_get", _wrap_smNotice_data_details_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76064

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_trapByDr", _wrap_smNotice_trapByDr, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76065

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_trapByLid", _wrap_smNotice_trapByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76066

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice",TclsmNoticeCmd, (ClientData) NULL, NULL);

76067

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_get", _wrap_smNotice_g_or_v_generic_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76068

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_get", _wrap_smNotice_g_or_v_vend_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76069

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_g_or_v",TclsmNotice_g_or_vCmd, (ClientData) NULL, NULL);

76070

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_raw_data_get", _wrap_smNotice_data_details_raw_data_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76071

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_64_67_get", _wrap_smNotice_data_details_ntc_64_67_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76072

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_128_get", _wrap_smNotice_data_details_ntc_128_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76073

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_get", _wrap_smNotice_data_details_ntc_129_131_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76074

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_get", _wrap_smNotice_data_details_ntc_144_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76075

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_get", _wrap_smNotice_data_details_ntc_145_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76076

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_get", _wrap_smNotice_data_details_ntc_256_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76077

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_get", _wrap_smNotice_data_details_ntc_257_258_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76078

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_get", _wrap_smNotice_data_details_ntc_259_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76079

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details",TclsmNotice_data_detailsCmd, (ClientData) NULL, NULL);

76080

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_prod_type_msb_set", _wrap_smNotice_g_or_v_generic_prod_type_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76081

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_prod_type_msb_get", _wrap_smNotice_g_or_v_generic_prod_type_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76082

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_prod_type_lsb_set", _wrap_smNotice_g_or_v_generic_prod_type_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76083

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_prod_type_lsb_get", _wrap_smNotice_g_or_v_generic_prod_type_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76084

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_trap_num_set", _wrap_smNotice_g_or_v_generic_trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76085

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_generic_trap_num_get", _wrap_smNotice_g_or_v_generic_trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76086

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_g_or_v_generic",TclsmNotice_g_or_v_genericCmd, (ClientData) NULL, NULL);

76087

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_vend_id_msb_set", _wrap_smNotice_g_or_v_vend_vend_id_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76088

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_vend_id_msb_get", _wrap_smNotice_g_or_v_vend_vend_id_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76089

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_vend_id_lsb_set", _wrap_smNotice_g_or_v_vend_vend_id_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76090

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_vend_id_lsb_get", _wrap_smNotice_g_or_v_vend_vend_id_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76091

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_dev_id_set", _wrap_smNotice_g_or_v_vend_dev_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76092

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_g_or_v_vend_dev_id_get", _wrap_smNotice_g_or_v_vend_dev_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76093

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_g_or_v_vend",TclsmNotice_g_or_v_vendCmd, (ClientData) NULL, NULL);

76094

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_raw_data_details_set", _wrap_smNotice_data_details_raw_data_details_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76095

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_raw_data_details_get", _wrap_smNotice_data_details_raw_data_details_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76096

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_raw_data",TclsmNotice_data_details_raw_dataCmd, (ClientData) NULL, NULL);

76097

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_64_67_res_set", _wrap_smNotice_data_details_ntc_64_67_res_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76098

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_64_67_res_get", _wrap_smNotice_data_details_ntc_64_67_res_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76099

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_64_67_gid_set", _wrap_smNotice_data_details_ntc_64_67_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76100

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_64_67_gid_get", _wrap_smNotice_data_details_ntc_64_67_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76101

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_64_67",TclsmNotice_data_details_ntc_64_67Cmd, (ClientData) NULL, NULL);

76102

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_128_sw_lid_set", _wrap_smNotice_data_details_ntc_128_sw_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76103

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_128_sw_lid_get", _wrap_smNotice_data_details_ntc_128_sw_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76104

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_128",TclsmNotice_data_details_ntc_128Cmd, (ClientData) NULL, NULL);

76105

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_pad_set", _wrap_smNotice_data_details_ntc_129_131_pad_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76106

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_pad_get", _wrap_smNotice_data_details_ntc_129_131_pad_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76107

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_lid_set", _wrap_smNotice_data_details_ntc_129_131_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76108

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_lid_get", _wrap_smNotice_data_details_ntc_129_131_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76109

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_port_num_set", _wrap_smNotice_data_details_ntc_129_131_port_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76110

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_129_131_port_num_get", _wrap_smNotice_data_details_ntc_129_131_port_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76111

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_129_131",TclsmNotice_data_details_ntc_129_131Cmd, (ClientData) NULL, NULL);

76112

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_pad1_set", _wrap_smNotice_data_details_ntc_144_pad1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76113

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_pad1_get", _wrap_smNotice_data_details_ntc_144_pad1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76114

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_lid_set", _wrap_smNotice_data_details_ntc_144_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76115

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_lid_get", _wrap_smNotice_data_details_ntc_144_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76116

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_pad2_set", _wrap_smNotice_data_details_ntc_144_pad2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76117

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_pad2_get", _wrap_smNotice_data_details_ntc_144_pad2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76118

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_new_cap_mask_set", _wrap_smNotice_data_details_ntc_144_new_cap_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76119

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_144_new_cap_mask_get", _wrap_smNotice_data_details_ntc_144_new_cap_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76120

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_144",TclsmNotice_data_details_ntc_144Cmd, (ClientData) NULL, NULL);

76121

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_pad1_set", _wrap_smNotice_data_details_ntc_145_pad1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76122

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_pad1_get", _wrap_smNotice_data_details_ntc_145_pad1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76123

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_lid_set", _wrap_smNotice_data_details_ntc_145_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76124

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_lid_get", _wrap_smNotice_data_details_ntc_145_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76125

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_pad2_set", _wrap_smNotice_data_details_ntc_145_pad2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76126

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_pad2_get", _wrap_smNotice_data_details_ntc_145_pad2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76127

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_new_sys_guid_set", _wrap_smNotice_data_details_ntc_145_new_sys_guid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76128

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_145_new_sys_guid_get", _wrap_smNotice_data_details_ntc_145_new_sys_guid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76129

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_145",TclsmNotice_data_details_ntc_145Cmd, (ClientData) NULL, NULL);

76130

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad1_set", _wrap_smNotice_data_details_ntc_256_pad1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76131

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad1_get", _wrap_smNotice_data_details_ntc_256_pad1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76132

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_lid_set", _wrap_smNotice_data_details_ntc_256_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76133

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_lid_get", _wrap_smNotice_data_details_ntc_256_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76134

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad2_set", _wrap_smNotice_data_details_ntc_256_pad2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76135

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad2_get", _wrap_smNotice_data_details_ntc_256_pad2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76136

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_method_set", _wrap_smNotice_data_details_ntc_256_method_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76137

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_method_get", _wrap_smNotice_data_details_ntc_256_method_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76138

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad3_set", _wrap_smNotice_data_details_ntc_256_pad3_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76139

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_pad3_get", _wrap_smNotice_data_details_ntc_256_pad3_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76140

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_attr_id_set", _wrap_smNotice_data_details_ntc_256_attr_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76141

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_attr_id_get", _wrap_smNotice_data_details_ntc_256_attr_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76142

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_attr_mod_set", _wrap_smNotice_data_details_ntc_256_attr_mod_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76143

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_attr_mod_get", _wrap_smNotice_data_details_ntc_256_attr_mod_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76144

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_mkey_set", _wrap_smNotice_data_details_ntc_256_mkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76145

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_mkey_get", _wrap_smNotice_data_details_ntc_256_mkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76146

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_slid_set", _wrap_smNotice_data_details_ntc_256_dr_slid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76147

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_slid_get", _wrap_smNotice_data_details_ntc_256_dr_slid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76148

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_trunc_hop_set", _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76149

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_trunc_hop_get", _wrap_smNotice_data_details_ntc_256_dr_trunc_hop_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76150

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_rtn_path_set", _wrap_smNotice_data_details_ntc_256_dr_rtn_path_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76151

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_256_dr_rtn_path_get", _wrap_smNotice_data_details_ntc_256_dr_rtn_path_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76152

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_256",TclsmNotice_data_details_ntc_256Cmd, (ClientData) NULL, NULL);

76153

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_pad1_set", _wrap_smNotice_data_details_ntc_257_258_pad1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76154

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_pad1_get", _wrap_smNotice_data_details_ntc_257_258_pad1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76155

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_lid1_set", _wrap_smNotice_data_details_ntc_257_258_lid1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76156

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_lid1_get", _wrap_smNotice_data_details_ntc_257_258_lid1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76157

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_lid2_set", _wrap_smNotice_data_details_ntc_257_258_lid2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76158

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_lid2_get", _wrap_smNotice_data_details_ntc_257_258_lid2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76159

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_key_set", _wrap_smNotice_data_details_ntc_257_258_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76160

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_key_get", _wrap_smNotice_data_details_ntc_257_258_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76161

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_sl_set", _wrap_smNotice_data_details_ntc_257_258_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76162

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_sl_get", _wrap_smNotice_data_details_ntc_257_258_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76163

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_qp1_set", _wrap_smNotice_data_details_ntc_257_258_qp1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76164

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_qp1_get", _wrap_smNotice_data_details_ntc_257_258_qp1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76165

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_qp2_set", _wrap_smNotice_data_details_ntc_257_258_qp2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76166

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_qp2_get", _wrap_smNotice_data_details_ntc_257_258_qp2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76167

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_gid1_set", _wrap_smNotice_data_details_ntc_257_258_gid1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76168

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_gid1_get", _wrap_smNotice_data_details_ntc_257_258_gid1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76169

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_gid2_set", _wrap_smNotice_data_details_ntc_257_258_gid2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76170

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_257_258_gid2_get", _wrap_smNotice_data_details_ntc_257_258_gid2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76171

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_257_258",TclsmNotice_data_details_ntc_257_258Cmd, (ClientData) NULL, NULL);

76172

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_data_valid_set", _wrap_smNotice_data_details_ntc_259_data_valid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76173

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_data_valid_get", _wrap_smNotice_data_details_ntc_259_data_valid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76174

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_lid1_set", _wrap_smNotice_data_details_ntc_259_lid1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76175

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_lid1_get", _wrap_smNotice_data_details_ntc_259_lid1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76176

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_lid2_set", _wrap_smNotice_data_details_ntc_259_lid2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76177

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_lid2_get", _wrap_smNotice_data_details_ntc_259_lid2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76178

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_key_set", _wrap_smNotice_data_details_ntc_259_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76179

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_key_get", _wrap_smNotice_data_details_ntc_259_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76180

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_sl_set", _wrap_smNotice_data_details_ntc_259_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76181

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_sl_get", _wrap_smNotice_data_details_ntc_259_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76182

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp1_set", _wrap_smNotice_data_details_ntc_259_qp1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76183

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp1_get", _wrap_smNotice_data_details_ntc_259_qp1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76184

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp2_msb_set", _wrap_smNotice_data_details_ntc_259_qp2_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76185

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp2_msb_get", _wrap_smNotice_data_details_ntc_259_qp2_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76186

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp2_lsb_set", _wrap_smNotice_data_details_ntc_259_qp2_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76187

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_qp2_lsb_get", _wrap_smNotice_data_details_ntc_259_qp2_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76188

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_gid1_set", _wrap_smNotice_data_details_ntc_259_gid1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76189

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_gid1_get", _wrap_smNotice_data_details_ntc_259_gid1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76190

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_gid2_set", _wrap_smNotice_data_details_ntc_259_gid2_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76191

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_gid2_get", _wrap_smNotice_data_details_ntc_259_gid2_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76192

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_sw_lid_set", _wrap_smNotice_data_details_ntc_259_sw_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76193

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_sw_lid_get", _wrap_smNotice_data_details_ntc_259_sw_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76194

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_port_no_set", _wrap_smNotice_data_details_ntc_259_port_no_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76195

Tcl_CreateObjCommand(interp, SWIG_prefix "smNotice_data_details_ntc_259_port_no_get", _wrap_smNotice_data_details_ntc_259_port_no_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76196

Tcl_CreateObjCommand(interp,SWIG_prefix "smNotice_data_details_ntc_259",TclsmNotice_data_details_ntc_259Cmd, (ClientData) NULL, NULL);

76197

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_base_ver_set", _wrap_ccClassPortInfo_base_ver_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76198

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_base_ver_get", _wrap_ccClassPortInfo_base_ver_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76199

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_class_ver_set", _wrap_ccClassPortInfo_class_ver_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76200

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_class_ver_get", _wrap_ccClassPortInfo_class_ver_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76201

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_cap_mask_set", _wrap_ccClassPortInfo_cap_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76202

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_cap_mask_get", _wrap_ccClassPortInfo_cap_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76203

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_cap_mask2_resp_time_set", _wrap_ccClassPortInfo_cap_mask2_resp_time_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76204

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_cap_mask2_resp_time_get", _wrap_ccClassPortInfo_cap_mask2_resp_time_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76205

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_gid_set", _wrap_ccClassPortInfo_redir_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76206

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_gid_get", _wrap_ccClassPortInfo_redir_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76207

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_tc_sl_fl_set", _wrap_ccClassPortInfo_redir_tc_sl_fl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76208

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_tc_sl_fl_get", _wrap_ccClassPortInfo_redir_tc_sl_fl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76209

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_lid_set", _wrap_ccClassPortInfo_redir_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76210

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_lid_get", _wrap_ccClassPortInfo_redir_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76211

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_pkey_set", _wrap_ccClassPortInfo_redir_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76212

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_pkey_get", _wrap_ccClassPortInfo_redir_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76213

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_qp_set", _wrap_ccClassPortInfo_redir_qp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76214

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_qp_get", _wrap_ccClassPortInfo_redir_qp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76215

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_qkey_set", _wrap_ccClassPortInfo_redir_qkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76216

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_redir_qkey_get", _wrap_ccClassPortInfo_redir_qkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76217

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_gid_set", _wrap_ccClassPortInfo_trap_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76218

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_gid_get", _wrap_ccClassPortInfo_trap_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76219

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_tc_sl_fl_set", _wrap_ccClassPortInfo_trap_tc_sl_fl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76220

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_tc_sl_fl_get", _wrap_ccClassPortInfo_trap_tc_sl_fl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76221

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_lid_set", _wrap_ccClassPortInfo_trap_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76222

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_lid_get", _wrap_ccClassPortInfo_trap_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76223

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_pkey_set", _wrap_ccClassPortInfo_trap_pkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76224

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_pkey_get", _wrap_ccClassPortInfo_trap_pkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76225

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_hop_qp_set", _wrap_ccClassPortInfo_trap_hop_qp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76226

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_hop_qp_get", _wrap_ccClassPortInfo_trap_hop_qp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76227

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_qkey_set", _wrap_ccClassPortInfo_trap_qkey_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76228

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_trap_qkey_get", _wrap_ccClassPortInfo_trap_qkey_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76229

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_getByLid", _wrap_ccClassPortInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76230

Tcl_CreateObjCommand(interp, SWIG_prefix "ccClassPortInfo_setByLid", _wrap_ccClassPortInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76231

Tcl_CreateObjCommand(interp,SWIG_prefix "ccClassPortInfo",TclccClassPortInfoCmd, (ClientData) NULL, NULL);

76232

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic_type_set", _wrap_ccNotice_generic_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76233

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic_type_get", _wrap_ccNotice_generic_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76234

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__prod_type_msb_set", _wrap_ccNotice_generic__prod_type_msb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76235

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__prod_type_msb_get", _wrap_ccNotice_generic__prod_type_msb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76236

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__prod_type_lsb_set", _wrap_ccNotice_generic__prod_type_lsb_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76237

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__prod_type_lsb_get", _wrap_ccNotice_generic__prod_type_lsb_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76238

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__trap_num_set", _wrap_ccNotice_generic__trap_num_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76239

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_generic__trap_num_get", _wrap_ccNotice_generic__trap_num_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76240

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_issuer_lid_set", _wrap_ccNotice_issuer_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76241

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_issuer_lid_get", _wrap_ccNotice_issuer_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76242

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_toggle_count_set", _wrap_ccNotice_toggle_count_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76243

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_toggle_count_get", _wrap_ccNotice_toggle_count_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76244

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__source_lid_set", _wrap_ccNotice_ntc0__source_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76245

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__source_lid_get", _wrap_ccNotice_ntc0__source_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76246

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__method_set", _wrap_ccNotice_ntc0__method_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76247

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__method_get", _wrap_ccNotice_ntc0__method_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76248

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__resv0_set", _wrap_ccNotice_ntc0__resv0_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76249

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__resv0_get", _wrap_ccNotice_ntc0__resv0_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76250

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__attr_id_set", _wrap_ccNotice_ntc0__attr_id_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76251

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__attr_id_get", _wrap_ccNotice_ntc0__attr_id_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76252

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__resv1_set", _wrap_ccNotice_ntc0__resv1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76253

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__resv1_get", _wrap_ccNotice_ntc0__resv1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76254

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__attr_mod_set", _wrap_ccNotice_ntc0__attr_mod_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76255

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__attr_mod_get", _wrap_ccNotice_ntc0__attr_mod_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76256

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__qp_set", _wrap_ccNotice_ntc0__qp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76257

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__qp_get", _wrap_ccNotice_ntc0__qp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76258

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__cc_key_set", _wrap_ccNotice_ntc0__cc_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76259

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__cc_key_get", _wrap_ccNotice_ntc0__cc_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76260

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__source_gid_set", _wrap_ccNotice_ntc0__source_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76261

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__source_gid_get", _wrap_ccNotice_ntc0__source_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76262

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__padding_set", _wrap_ccNotice_ntc0__padding_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76263

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_ntc0__padding_get", _wrap_ccNotice_ntc0__padding_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76264

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_issuer_gid_set", _wrap_ccNotice_issuer_gid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76265

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_issuer_gid_get", _wrap_ccNotice_issuer_gid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76266

Tcl_CreateObjCommand(interp, SWIG_prefix "ccNotice_trapByLid", _wrap_ccNotice_trapByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76267

Tcl_CreateObjCommand(interp,SWIG_prefix "ccNotice",TclccNoticeCmd, (ClientData) NULL, NULL);

76268

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_cong_info_set", _wrap_ccCongestionInfo_cong_info_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76269

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_cong_info_get", _wrap_ccCongestionInfo_cong_info_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76270

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_resv_set", _wrap_ccCongestionInfo_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76271

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_resv_get", _wrap_ccCongestionInfo_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76272

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_ctrl_table_cap_set", _wrap_ccCongestionInfo_ctrl_table_cap_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76273

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_ctrl_table_cap_get", _wrap_ccCongestionInfo_ctrl_table_cap_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76274

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionInfo_getByLid", _wrap_ccCongestionInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76275

Tcl_CreateObjCommand(interp,SWIG_prefix "ccCongestionInfo",TclccCongestionInfoCmd, (ClientData) NULL, NULL);

76276

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_cc_key_set", _wrap_ccCongestionKeyInfo_cc_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76277

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_cc_key_get", _wrap_ccCongestionKeyInfo_cc_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76278

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_protect_bit_set", _wrap_ccCongestionKeyInfo_protect_bit_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76279

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_protect_bit_get", _wrap_ccCongestionKeyInfo_protect_bit_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76280

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_lease_period_set", _wrap_ccCongestionKeyInfo_lease_period_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76281

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_lease_period_get", _wrap_ccCongestionKeyInfo_lease_period_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76282

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_violations_set", _wrap_ccCongestionKeyInfo_violations_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76283

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_violations_get", _wrap_ccCongestionKeyInfo_violations_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76284

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_getByLid", _wrap_ccCongestionKeyInfo_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76285

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCongestionKeyInfo_setByLid", _wrap_ccCongestionKeyInfo_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76286

Tcl_CreateObjCommand(interp,SWIG_prefix "ccCongestionKeyInfo",TclccCongestionKeyInfoCmd, (ClientData) NULL, NULL);

76287

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_slid_set", _wrap_ib_cong_log_event_sw_t_slid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76288

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_slid_get", _wrap_ib_cong_log_event_sw_t_slid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76289

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_dlid_set", _wrap_ib_cong_log_event_sw_t_dlid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76290

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_dlid_get", _wrap_ib_cong_log_event_sw_t_dlid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76291

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_sl_set", _wrap_ib_cong_log_event_sw_t_sl_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76292

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_sl_get", _wrap_ib_cong_log_event_sw_t_sl_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76293

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_time_stamp_set", _wrap_ib_cong_log_event_sw_t_time_stamp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76294

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_sw_t_time_stamp_get", _wrap_ib_cong_log_event_sw_t_time_stamp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76295

Tcl_CreateObjCommand(interp,SWIG_prefix "ib_cong_log_event_sw_t",Tclib_cong_log_event_sw_tCmd, (ClientData) NULL, NULL);

76296

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_local_qp_resv0_set", _wrap_ib_cong_log_event_ca_t_local_qp_resv0_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76297

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_local_qp_resv0_get", _wrap_ib_cong_log_event_ca_t_local_qp_resv0_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76298

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_remote_qp_sl_service_type_set", _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76299

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_remote_qp_sl_service_type_get", _wrap_ib_cong_log_event_ca_t_remote_qp_sl_service_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76300

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_remote_lid_set", _wrap_ib_cong_log_event_ca_t_remote_lid_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76301

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_remote_lid_get", _wrap_ib_cong_log_event_ca_t_remote_lid_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76302

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_resv1_set", _wrap_ib_cong_log_event_ca_t_resv1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76303

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_resv1_get", _wrap_ib_cong_log_event_ca_t_resv1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76304

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_time_stamp_set", _wrap_ib_cong_log_event_ca_t_time_stamp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76305

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cong_log_event_ca_t_time_stamp_get", _wrap_ib_cong_log_event_ca_t_time_stamp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76306

Tcl_CreateObjCommand(interp,SWIG_prefix "ib_cong_log_event_ca_t",Tclib_cong_log_event_ca_tCmd, (ClientData) NULL, NULL);

76307

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_log_type_set", _wrap_ccSWCongestionLog_log_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76308

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_log_type_get", _wrap_ccSWCongestionLog_log_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76309

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_cong_flags_set", _wrap_ccSWCongestionLog_cong_flags_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76310

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_cong_flags_get", _wrap_ccSWCongestionLog_cong_flags_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76311

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_event_counter_set", _wrap_ccSWCongestionLog_event_counter_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76312

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_event_counter_get", _wrap_ccSWCongestionLog_event_counter_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76313

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_time_stamp_set", _wrap_ccSWCongestionLog_time_stamp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76314

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_time_stamp_get", _wrap_ccSWCongestionLog_time_stamp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76315

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_port_map_set", _wrap_ccSWCongestionLog_port_map_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76316

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_port_map_get", _wrap_ccSWCongestionLog_port_map_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76317

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_entry_list_set", _wrap_ccSWCongestionLog_entry_list_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76318

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_entry_list_get", _wrap_ccSWCongestionLog_entry_list_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76319

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionLog_getByLid", _wrap_ccSWCongestionLog_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76320

Tcl_CreateObjCommand(interp,SWIG_prefix "ccSWCongestionLog",TclccSWCongestionLogCmd, (ClientData) NULL, NULL);

76321

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_log_type_set", _wrap_ccCACongestionLog_log_type_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76322

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_log_type_get", _wrap_ccCACongestionLog_log_type_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76323

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_cong_flags_set", _wrap_ccCACongestionLog_cong_flags_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76324

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_cong_flags_get", _wrap_ccCACongestionLog_cong_flags_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76325

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_event_counter_set", _wrap_ccCACongestionLog_event_counter_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76326

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_event_counter_get", _wrap_ccCACongestionLog_event_counter_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76327

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_event_map_set", _wrap_ccCACongestionLog_event_map_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76328

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_event_map_get", _wrap_ccCACongestionLog_event_map_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76329

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_resv_set", _wrap_ccCACongestionLog_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76330

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_resv_get", _wrap_ccCACongestionLog_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76331

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_time_stamp_set", _wrap_ccCACongestionLog_time_stamp_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76332

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_time_stamp_get", _wrap_ccCACongestionLog_time_stamp_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76333

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_log_event_set", _wrap_ccCACongestionLog_log_event_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76334

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_log_event_get", _wrap_ccCACongestionLog_log_event_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76335

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionLog_getByLid", _wrap_ccCACongestionLog_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76336

Tcl_CreateObjCommand(interp,SWIG_prefix "ccCACongestionLog",TclccCACongestionLogCmd, (ClientData) NULL, NULL);

76337

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_control_map_set", _wrap_ccSWCongestionSetting_control_map_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76338

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_control_map_get", _wrap_ccSWCongestionSetting_control_map_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76339

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_victim_mask_set", _wrap_ccSWCongestionSetting_victim_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76340

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_victim_mask_get", _wrap_ccSWCongestionSetting_victim_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76341

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_credit_mask_set", _wrap_ccSWCongestionSetting_credit_mask_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76342

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_credit_mask_get", _wrap_ccSWCongestionSetting_credit_mask_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76343

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_threshold_resv_set", _wrap_ccSWCongestionSetting_threshold_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76344

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_threshold_resv_get", _wrap_ccSWCongestionSetting_threshold_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76345

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_packet_size_set", _wrap_ccSWCongestionSetting_packet_size_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76346

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_packet_size_get", _wrap_ccSWCongestionSetting_packet_size_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76347

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_cs_threshold_resv_set", _wrap_ccSWCongestionSetting_cs_threshold_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76348

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_cs_threshold_resv_get", _wrap_ccSWCongestionSetting_cs_threshold_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76349

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_cs_return_delay_set", _wrap_ccSWCongestionSetting_cs_return_delay_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76350

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_cs_return_delay_get", _wrap_ccSWCongestionSetting_cs_return_delay_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76351

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_marking_rate_set", _wrap_ccSWCongestionSetting_marking_rate_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76352

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_marking_rate_get", _wrap_ccSWCongestionSetting_marking_rate_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76353

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_getByLid", _wrap_ccSWCongestionSetting_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76354

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWCongestionSetting_setByLid", _wrap_ccSWCongestionSetting_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76355

Tcl_CreateObjCommand(interp,SWIG_prefix "ccSWCongestionSetting",TclccSWCongestionSettingCmd, (ClientData) NULL, NULL);

76356

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set", _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76357

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get", _wrap_ib_sw_port_cong_setting_element_t_valid_ctrl_type_res_threshold_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76358

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_packet_size_set", _wrap_ib_sw_port_cong_setting_element_t_packet_size_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76359

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_packet_size_get", _wrap_ib_sw_port_cong_setting_element_t_packet_size_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76360

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_cong_param_set", _wrap_ib_sw_port_cong_setting_element_t_cong_param_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76361

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_sw_port_cong_setting_element_t_cong_param_get", _wrap_ib_sw_port_cong_setting_element_t_cong_param_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76362

Tcl_CreateObjCommand(interp,SWIG_prefix "ib_sw_port_cong_setting_element_t",Tclib_sw_port_cong_setting_element_tCmd, (ClientData) NULL, NULL);

76363

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWPortCongestionSetting_block_set", _wrap_ccSWPortCongestionSetting_block_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76364

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWPortCongestionSetting_block_get", _wrap_ccSWPortCongestionSetting_block_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76365

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWPortCongestionSetting_getByLid", _wrap_ccSWPortCongestionSetting_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76366

Tcl_CreateObjCommand(interp, SWIG_prefix "ccSWPortCongestionSetting_setByLid", _wrap_ccSWPortCongestionSetting_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76367

Tcl_CreateObjCommand(interp,SWIG_prefix "ccSWPortCongestionSetting",TclccSWPortCongestionSettingCmd, (ClientData) NULL, NULL);

76368

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_timer_set", _wrap_ib_ca_cong_entry_t_ccti_timer_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76369

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_timer_get", _wrap_ib_ca_cong_entry_t_ccti_timer_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76370

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_increase_set", _wrap_ib_ca_cong_entry_t_ccti_increase_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76371

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_increase_get", _wrap_ib_ca_cong_entry_t_ccti_increase_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76372

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_trigger_threshold_set", _wrap_ib_ca_cong_entry_t_trigger_threshold_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76373

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_trigger_threshold_get", _wrap_ib_ca_cong_entry_t_trigger_threshold_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76374

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_min_set", _wrap_ib_ca_cong_entry_t_ccti_min_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76375

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_ccti_min_get", _wrap_ib_ca_cong_entry_t_ccti_min_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76376

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_resv0_set", _wrap_ib_ca_cong_entry_t_resv0_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76377

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_resv0_get", _wrap_ib_ca_cong_entry_t_resv0_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76378

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_resv1_set", _wrap_ib_ca_cong_entry_t_resv1_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76379

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_ca_cong_entry_t_resv1_get", _wrap_ib_ca_cong_entry_t_resv1_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76380

Tcl_CreateObjCommand(interp,SWIG_prefix "ib_ca_cong_entry_t",Tclib_ca_cong_entry_tCmd, (ClientData) NULL, NULL);

76381

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_port_control_set", _wrap_ccCACongestionSetting_port_control_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76382

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_port_control_get", _wrap_ccCACongestionSetting_port_control_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76383

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_control_map_set", _wrap_ccCACongestionSetting_control_map_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76384

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_control_map_get", _wrap_ccCACongestionSetting_control_map_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76385

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_entry_list_set", _wrap_ccCACongestionSetting_entry_list_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76386

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_entry_list_get", _wrap_ccCACongestionSetting_entry_list_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76387

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_getByLid", _wrap_ccCACongestionSetting_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76388

Tcl_CreateObjCommand(interp, SWIG_prefix "ccCACongestionSetting_setByLid", _wrap_ccCACongestionSetting_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76389

Tcl_CreateObjCommand(interp,SWIG_prefix "ccCACongestionSetting",TclccCACongestionSettingCmd, (ClientData) NULL, NULL);

76390

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cc_tbl_entry_t_shift_multiplier_set", _wrap_ib_cc_tbl_entry_t_shift_multiplier_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76391

Tcl_CreateObjCommand(interp, SWIG_prefix "ib_cc_tbl_entry_t_shift_multiplier_get", _wrap_ib_cc_tbl_entry_t_shift_multiplier_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76392

Tcl_CreateObjCommand(interp,SWIG_prefix "ib_cc_tbl_entry_t",Tclib_cc_tbl_entry_tCmd, (ClientData) NULL, NULL);

76393

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_ccti_limit_set", _wrap_ccTable_ccti_limit_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76394

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_ccti_limit_get", _wrap_ccTable_ccti_limit_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76395

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_resv_set", _wrap_ccTable_resv_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76396

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_resv_get", _wrap_ccTable_resv_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76397

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_entry_list_set", _wrap_ccTable_entry_list_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76398

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_entry_list_get", _wrap_ccTable_entry_list_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76399

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_getByLid", _wrap_ccTable_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76400

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTable_setByLid", _wrap_ccTable_setByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76401

Tcl_CreateObjCommand(interp,SWIG_prefix "ccTable",TclccTableCmd, (ClientData) NULL, NULL);

76402

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTimeStamp_value_set", _wrap_ccTimeStamp_value_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76403

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTimeStamp_value_get", _wrap_ccTimeStamp_value_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76404

Tcl_CreateObjCommand(interp, SWIG_prefix "ccTimeStamp_getByLid", _wrap_ccTimeStamp_getByLid, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76405

Tcl_CreateObjCommand(interp,SWIG_prefix "ccTimeStamp",TclccTimeStampCmd, (ClientData) NULL, NULL);

76406

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_single_thread_set", _wrap_ibis_opt_t_single_thread_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76407

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_single_thread_get", _wrap_ibis_opt_t_single_thread_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76408

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_force_log_flush_set", _wrap_ibis_opt_t_force_log_flush_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76409

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_force_log_flush_get", _wrap_ibis_opt_t_force_log_flush_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76410

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_log_flags_set", _wrap_ibis_opt_t_log_flags_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76411

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_log_flags_get", _wrap_ibis_opt_t_log_flags_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76412

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_log_file_set", _wrap_ibis_opt_t_log_file_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76413

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_log_file_get", _wrap_ibis_opt_t_log_file_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76414

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_sm_key_set", _wrap_ibis_opt_t_sm_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76415

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_sm_key_get", _wrap_ibis_opt_t_sm_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76416

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_m_key_set", _wrap_ibis_opt_t_m_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76417

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_m_key_get", _wrap_ibis_opt_t_m_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76418

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_v_key_set", _wrap_ibis_opt_t_v_key_set, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76419

Tcl_CreateObjCommand(interp, SWIG_prefix "ibis_opt_t_v_key_get", _wrap_ibis_opt_t_v_key_get, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);

76420

Tcl_CreateObjCommand(interp,SWIG_prefix "ibis_opt_t",Tclibis_opt_tCmd, (ClientData) NULL, NULL);

76421

/*

76422

* These are the pointer type-equivalency mappings.

76423

* (Used by the SWIG pointer type-checker).

76424

*/

76425

SWIG_RegisterMapping("_struct__ibsm_sm_info","_smSMInfo",0);

76426

SWIG_RegisterMapping("_struct__ibsm_sm_info","__ibsm_sm_info",0);

76427

SWIG_RegisterMapping("__ibcc_class_port_info","_ccClassPortInfo",0);

76428

SWIG_RegisterMapping("__ibcc_class_port_info","_struct__ibcc_class_port_info",0);

76429

SWIG_RegisterMapping("_struct__ibcc_notice","_ccNotice",0);

76430

SWIG_RegisterMapping("_struct__ibcc_notice","__ibcc_notice",0);

76431

SWIG_RegisterMapping("_signed_long","_long",0);

76432

SWIG_RegisterMapping("_struct__ibsm_vl_arb_table","_smVlArbTable",0);

76433

SWIG_RegisterMapping("_struct__ibsm_vl_arb_table","__ibsm_vl_arb_table",0);

76434

SWIG_RegisterMapping("_ibis_opt_t","_struct__ibis_opt",0);

76435

SWIG_RegisterMapping("_ibis_opt_t","__ibis_opt",0);

76436

SWIG_RegisterMapping("__ib_guid_info","_sacGuidInfo",0);

76437

SWIG_RegisterMapping("__ib_guid_info","_struct__ib_guid_info",0);

76438

SWIG_RegisterMapping("_sacPortInfo","_struct__ib_port_info",0);

76439

SWIG_RegisterMapping("_sacPortInfo","__ib_port_info",0);

76440

SWIG_RegisterMapping("_struct__ib_pkey_table","_sacPKeyTbl",0);

76441

SWIG_RegisterMapping("_struct__ib_pkey_table","__ib_pkey_table",0);

76442

SWIG_RegisterMapping("_ccTimeStamp","_struct__ib_time_stamp",0);

76443

SWIG_RegisterMapping("_ccTimeStamp","__ib_time_stamp",0);

76444

SWIG_RegisterMapping("_sacNodeInfo","_struct__ib_node_info",0);

76445

SWIG_RegisterMapping("_sacNodeInfo","__ib_node_info",0);

76446

SWIG_RegisterMapping("_struct__ib_portinfo_record","_sacPortRec",0);

76447

SWIG_RegisterMapping("_struct__ib_portinfo_record","__ib_portinfo_record",0);

76448

SWIG_RegisterMapping("__ibcc_notice","_ccNotice",0);

76449

SWIG_RegisterMapping("__ibcc_notice","_struct__ibcc_notice",0);

76450

SWIG_RegisterMapping("_struct__ib_port_info","_sacPortInfo",0);

76451

SWIG_RegisterMapping("_struct__ib_port_info","__ib_port_info",0);

76452

SWIG_RegisterMapping("_struct__ib_cong_log_event_ca","_ib_cong_log_event_ca_t",0);

76453

SWIG_RegisterMapping("_struct__ib_cong_log_event_ca","__ib_cong_log_event_ca",0);

76454

SWIG_RegisterMapping("_struct__ib_switch_info","_sacSwInfo",0);

76455

SWIG_RegisterMapping("_struct__ib_switch_info","__ib_switch_info",0);

76456

SWIG_RegisterMapping("_sacNodeRec","_struct__ib_node_record_t",0);

76457

SWIG_RegisterMapping("_sacNodeRec","__ib_node_record_t",0);

76458

SWIG_RegisterMapping("__ib_switch_info","_sacSwInfo",0);

76459

SWIG_RegisterMapping("__ib_switch_info","_struct__ib_switch_info",0);

76460

SWIG_RegisterMapping("_struct__ibsm_mft_block","_smMftBlock",0);

76461

SWIG_RegisterMapping("_struct__ibsm_mft_block","__ibsm_mft_block",0);

76462

SWIG_RegisterMapping("_struct__ibcc_class_port_info","_ccClassPortInfo",0);

76463

SWIG_RegisterMapping("_struct__ibcc_class_port_info","__ibcc_class_port_info",0);

76464

SWIG_RegisterMapping("__ibsm_mft_block","_smMftBlock",0);

76465

SWIG_RegisterMapping("__ibsm_mft_block","_struct__ibsm_mft_block",0);

76466

SWIG_RegisterMapping("_ib_cong_log_event_sw_t","_struct__ib_cong_log_event_sw",0);

76467

SWIG_RegisterMapping("_ib_cong_log_event_sw_t","__ib_cong_log_event_sw",0);

76468

SWIG_RegisterMapping("_long","_unsigned_long",0);

76469

SWIG_RegisterMapping("_long","_signed_long",0);

76470

SWIG_RegisterMapping("_ib_cong_log_event_ca_t","_struct__ib_cong_log_event_ca",0);

76471

SWIG_RegisterMapping("_ib_cong_log_event_ca_t","__ib_cong_log_event_ca",0);

76472

SWIG_RegisterMapping("_sacSlVlTbl","_struct__ib_slvl_table",0);

76473

SWIG_RegisterMapping("_sacSlVlTbl","__ib_slvl_table",0);

76474

SWIG_RegisterMapping("_smNotice","_struct__ibsm_notice",0);

76475

SWIG_RegisterMapping("_smNotice","__ibsm_notice",0);

76476

SWIG_RegisterMapping("_struct__ib_sw_cong_setting","_ccSWCongestionSetting",0);

76477

SWIG_RegisterMapping("_struct__ib_sw_cong_setting","__ib_sw_cong_setting",0);

76478

SWIG_RegisterMapping("_struct__ibsm_port_info","_smPortInfo",0);

76479

SWIG_RegisterMapping("_struct__ibsm_port_info","__ibsm_port_info",0);

76480

SWIG_RegisterMapping("_struct__ib_node_info","_sacNodeInfo",0);

76481

SWIG_RegisterMapping("_struct__ib_node_info","__ib_node_info",0);

76482

SWIG_RegisterMapping("__ibsm_port_info","_smPortInfo",0);

76483

SWIG_RegisterMapping("__ibsm_port_info","_struct__ibsm_port_info",0);

76484

SWIG_RegisterMapping("_struct__ib_sm_info","_sacSmInfo",0);

76485

SWIG_RegisterMapping("_struct__ib_sm_info","__ib_sm_info",0);

76486

SWIG_RegisterMapping("_sacLinkRec","_struct__ib_link_record",0);

76487

SWIG_RegisterMapping("_sacLinkRec","__ib_link_record",0);

76488

SWIG_RegisterMapping("_sacClassPortInfo","_struct__ibsac_class_port_info",0);

76489

SWIG_RegisterMapping("_sacClassPortInfo","__ibsac_class_port_info",0);

76490

SWIG_RegisterMapping("__ibsm_vl_arb_table","_smVlArbTable",0);

76491

SWIG_RegisterMapping("__ibsm_vl_arb_table","_struct__ibsm_vl_arb_table",0);

76492

SWIG_RegisterMapping("_sacPKeyTbl","_struct__ib_pkey_table",0);

76493

SWIG_RegisterMapping("_sacPKeyTbl","__ib_pkey_table",0);

76494

SWIG_RegisterMapping("__ib_portinfo_record","_sacPortRec",0);

76495

SWIG_RegisterMapping("__ib_portinfo_record","_struct__ib_portinfo_record",0);

76496

SWIG_RegisterMapping("__ib_node_record_t","_sacNodeRec",0);

76497

SWIG_RegisterMapping("__ib_node_record_t","_struct__ib_node_record_t",0);

76498

SWIG_RegisterMapping("_sacGuidInfo","_struct__ib_guid_info",0);

76499

SWIG_RegisterMapping("_sacGuidInfo","__ib_guid_info",0);

76500

SWIG_RegisterMapping("_smVlArbTable","_struct__ibsm_vl_arb_table",0);

76501

SWIG_RegisterMapping("_smVlArbTable","__ibsm_vl_arb_table",0);

76502

SWIG_RegisterMapping("_struct__ibsm_node_info","_smNodeInfo",0);

76503

SWIG_RegisterMapping("_struct__ibsm_node_info","__ibsm_node_info",0);

76504

SWIG_RegisterMapping("__ibsm_switch_info","_smSwInfo",0);

76505

SWIG_RegisterMapping("__ibsm_switch_info","_struct__ibsm_switch_info",0);

76506

SWIG_RegisterMapping("__ibsm_node_info","_smNodeInfo",0);

76507

SWIG_RegisterMapping("__ibsm_node_info","_struct__ibsm_node_info",0);

76508

SWIG_RegisterMapping("_ccSWCongestionSetting","_struct__ib_sw_cong_setting",0);

76509

SWIG_RegisterMapping("_ccSWCongestionSetting","__ib_sw_cong_setting",0);

76510

SWIG_RegisterMapping("__ib_member_rec","_sacMCMRec",0);

76511

SWIG_RegisterMapping("__ib_member_rec","_struct__ib_member_rec",0);

76512

SWIG_RegisterMapping("__ib_sw_port_cong_setting","_ccSWPortCongestionSetting",0);

76513

SWIG_RegisterMapping("__ib_sw_port_cong_setting","_struct__ib_sw_port_cong_setting",0);

76514

SWIG_RegisterMapping("__ibis_opt","_ibis_opt_t",0);

76515

SWIG_RegisterMapping("__ibis_opt","_struct__ibis_opt",0);

76516

SWIG_RegisterMapping("_struct__ib_time_stamp","_ccTimeStamp",0);

76517

SWIG_RegisterMapping("_struct__ib_time_stamp","__ib_time_stamp",0);

76518

SWIG_RegisterMapping("__ib_sw_cong_setting","_ccSWCongestionSetting",0);

76519

SWIG_RegisterMapping("__ib_sw_cong_setting","_struct__ib_sw_cong_setting",0);

76520

SWIG_RegisterMapping("_sacServiceRec","_struct__ib_service_record",0);

76521

SWIG_RegisterMapping("_sacServiceRec","__ib_service_record",0);

76522

SWIG_RegisterMapping("_ib_cc_tbl_entry_t","_struct__ibcc_tbl_entry",0);

76523

SWIG_RegisterMapping("_ib_cc_tbl_entry_t","__ibcc_tbl_entry",0);

76524

SWIG_RegisterMapping("_struct__ib_sw_cong_log","_ccSWCongestionLog",0);

76525

SWIG_RegisterMapping("_struct__ib_sw_cong_log","__ib_sw_cong_log",0);

76526

SWIG_RegisterMapping("__ib_sw_cong_log","_ccSWCongestionLog",0);

76527

SWIG_RegisterMapping("__ib_sw_cong_log","_struct__ib_sw_cong_log",0);

76528

SWIG_RegisterMapping("_struct__ib_path_rec","_sacPathRec",0);

76529

SWIG_RegisterMapping("_struct__ib_path_rec","__ib_path_rec",0);

76530

SWIG_RegisterMapping("_struct__ib_ca_cong_log","_ccCACongestionLog",0);

76531

SWIG_RegisterMapping("_struct__ib_ca_cong_log","__ib_ca_cong_log",0);

76532

SWIG_RegisterMapping("__ib_cong_key_info","_ccCongestionKeyInfo",0);

76533

SWIG_RegisterMapping("__ib_cong_key_info","_struct__ib_cong_key_info",0);

76534

SWIG_RegisterMapping("__ib_ca_cong_log","_ccCACongestionLog",0);

76535

SWIG_RegisterMapping("__ib_ca_cong_log","_struct__ib_ca_cong_log",0);

76536

SWIG_RegisterMapping("_struct__ibsac_class_port_info","_sacClassPortInfo",0);

76537

SWIG_RegisterMapping("_struct__ibsac_class_port_info","__ibsac_class_port_info",0);

76538

SWIG_RegisterMapping("_struct__ibsm_node_desc","_smNodeDesc",0);

76539

SWIG_RegisterMapping("_struct__ibsm_node_desc","__ibsm_node_desc",0);

76540

SWIG_RegisterMapping("_struct__ib_sw_port_cong_setting_element","_ib_sw_port_cong_setting_element_t",0);

76541

SWIG_RegisterMapping("_struct__ib_sw_port_cong_setting_element","__ib_sw_port_cong_setting_element",0);

76542

SWIG_RegisterMapping("_sacSmInfo","_struct__ib_sm_info",0);

76543

SWIG_RegisterMapping("_sacSmInfo","__ib_sm_info",0);

76544

SWIG_RegisterMapping("__ibsm_node_desc","_smNodeDesc",0);

76545

SWIG_RegisterMapping("__ibsm_node_desc","_struct__ibsm_node_desc",0);

76546

SWIG_RegisterMapping("__ibsac_class_port_info","_sacClassPortInfo",0);

76547

SWIG_RegisterMapping("__ibsac_class_port_info","_struct__ibsac_class_port_info",0);

76548

SWIG_RegisterMapping("_struct__ib_guidinfo_record","_sacGuidRec",0);

76549

SWIG_RegisterMapping("_struct__ib_guidinfo_record","__ib_guidinfo_record",0);

76550

SWIG_RegisterMapping("__ib_cong_log_event_sw","_ib_cong_log_event_sw_t",0);

76551

SWIG_RegisterMapping("__ib_cong_log_event_sw","_struct__ib_cong_log_event_sw",0);

76552

SWIG_RegisterMapping("_ccCongestionKeyInfo","_struct__ib_cong_key_info",0);

76553

SWIG_RegisterMapping("_ccCongestionKeyInfo","__ib_cong_key_info",0);

76554

SWIG_RegisterMapping("__ib_path_rec","_sacPathRec",0);

76555

SWIG_RegisterMapping("__ib_path_rec","_struct__ib_path_rec",0);

76556

SWIG_RegisterMapping("_struct__ib_ca_cong_setting","_ccCACongestionSetting",0);

76557

SWIG_RegisterMapping("_struct__ib_ca_cong_setting","__ib_ca_cong_setting",0);

76558

SWIG_RegisterMapping("__ib_cong_info","_ccCongestionInfo",0);

76559

SWIG_RegisterMapping("__ib_cong_info","_struct__ib_cong_info",0);

76560

SWIG_RegisterMapping("__ib_slvl_table","_sacSlVlTbl",0);

76561

SWIG_RegisterMapping("__ib_slvl_table","_struct__ib_slvl_table",0);

76562

SWIG_RegisterMapping("_struct__ib_guid_info","_sacGuidInfo",0);

76563

SWIG_RegisterMapping("_struct__ib_guid_info","__ib_guid_info",0);

76564

SWIG_RegisterMapping("_unsigned_long","_long",0);

76565

SWIG_RegisterMapping("_smPkeyTable","_struct__ibsm_pkey_table",0);

76566

SWIG_RegisterMapping("_smPkeyTable","__ibsm_pkey_table",0);

76567

SWIG_RegisterMapping("_struct__ib_lft_record","_sacLFTRec",0);

76568

SWIG_RegisterMapping("_struct__ib_lft_record","__ib_lft_record",0);

76569

SWIG_RegisterMapping("_struct__ibcc_tbl_entry","_ib_cc_tbl_entry_t",0);

76570

SWIG_RegisterMapping("_struct__ibcc_tbl_entry","__ibcc_tbl_entry",0);

76571

SWIG_RegisterMapping("_sacPathRec","_struct__ib_path_rec",0);

76572

SWIG_RegisterMapping("_sacPathRec","__ib_path_rec",0);

76573

SWIG_RegisterMapping("_struct__ib_cong_log_event_sw","_ib_cong_log_event_sw_t",0);

76574

SWIG_RegisterMapping("_struct__ib_cong_log_event_sw","__ib_cong_log_event_sw",0);

76575

SWIG_RegisterMapping("__ibcc_tbl_entry","_ib_cc_tbl_entry_t",0);

76576

SWIG_RegisterMapping("__ibcc_tbl_entry","_struct__ibcc_tbl_entry",0);

76577

SWIG_RegisterMapping("_smPortInfo","_struct__ibsm_port_info",0);

76578

SWIG_RegisterMapping("_smPortInfo","__ibsm_port_info",0);

76579

SWIG_RegisterMapping("_smNodeInfo","_struct__ibsm_node_info",0);

76580

SWIG_RegisterMapping("_smNodeInfo","__ibsm_node_info",0);

76581

SWIG_RegisterMapping("__ib_pkey_table","_sacPKeyTbl",0);

76582

SWIG_RegisterMapping("__ib_pkey_table","_struct__ib_pkey_table",0);

76583

SWIG_RegisterMapping("__ib_guidinfo_record","_sacGuidRec",0);

76584

SWIG_RegisterMapping("__ib_guidinfo_record","_struct__ib_guidinfo_record",0);

76585

SWIG_RegisterMapping("_signed_int","_int",0);

76586

SWIG_RegisterMapping("_struct__ibsm_guid_info","_smGuidInfo",0);

76587

SWIG_RegisterMapping("_struct__ibsm_guid_info","__ibsm_guid_info",0);

76588

SWIG_RegisterMapping("_ccSWCongestionLog","_struct__ib_sw_cong_log",0);

76589

SWIG_RegisterMapping("_ccSWCongestionLog","__ib_sw_cong_log",0);

76590

SWIG_RegisterMapping("__ibsm_guid_info","_smGuidInfo",0);

76591

SWIG_RegisterMapping("__ibsm_guid_info","_struct__ibsm_guid_info",0);

76592

SWIG_RegisterMapping("_struct__ib_node_record_t","_sacNodeRec",0);

76593

SWIG_RegisterMapping("_struct__ib_node_record_t","__ib_node_record_t",0);

76594

SWIG_RegisterMapping("__ib_slvl_table_record","_sacSlVlRec",0);

76595

SWIG_RegisterMapping("__ib_slvl_table_record","_struct__ib_slvl_table_record",0);

76596

SWIG_RegisterMapping("_ccClassPortInfo","_struct__ibcc_class_port_info",0);

76597

SWIG_RegisterMapping("_ccClassPortInfo","__ibcc_class_port_info",0);

76598

SWIG_RegisterMapping("_ccCACongestionSetting","_struct__ib_ca_cong_setting",0);

76599

SWIG_RegisterMapping("_ccCACongestionSetting","__ib_ca_cong_setting",0);

76600

SWIG_RegisterMapping("_sacInformInfo","_struct__ibsac_inform_info",0);

76601

SWIG_RegisterMapping("_sacInformInfo","__ibsac_inform_info",0);

76602

SWIG_RegisterMapping("_struct__ibsm_switch_info","_smSwInfo",0);

76603

SWIG_RegisterMapping("_struct__ibsm_switch_info","__ibsm_switch_info",0);

76604

SWIG_RegisterMapping("__ib_ca_cong_setting","_ccCACongestionSetting",0);

76605

SWIG_RegisterMapping("__ib_ca_cong_setting","_struct__ib_ca_cong_setting",0);

76606

SWIG_RegisterMapping("_unsigned_short","_short",0);

76607

SWIG_RegisterMapping("_smSwInfo","_struct__ibsm_switch_info",0);

76608

SWIG_RegisterMapping("_smSwInfo","__ibsm_switch_info",0);

76609

SWIG_RegisterMapping("_struct__ib_service_record","_sacServiceRec",0);

76610

SWIG_RegisterMapping("_struct__ib_service_record","__ib_service_record",0);

76611

SWIG_RegisterMapping("_struct__ibsm_notice","_smNotice",0);

76612

SWIG_RegisterMapping("_struct__ibsm_notice","__ibsm_notice",0);

76613

SWIG_RegisterMapping("_struct__ibsm_slvl_table","_smSlVlTable",0);

76614

SWIG_RegisterMapping("_struct__ibsm_slvl_table","__ibsm_slvl_table",0);

76615

SWIG_RegisterMapping("__ibsm_sm_info","_smSMInfo",0);

76616

SWIG_RegisterMapping("__ibsm_sm_info","_struct__ibsm_sm_info",0);

76617

SWIG_RegisterMapping("_smNodeDesc","_struct__ibsm_node_desc",0);

76618

SWIG_RegisterMapping("_smNodeDesc","__ibsm_node_desc",0);

76619

SWIG_RegisterMapping("_signed_short","_short",0);

76620

SWIG_RegisterMapping("_struct__ib_slvl_table_record","_sacSlVlRec",0);

76621

SWIG_RegisterMapping("_struct__ib_slvl_table_record","__ib_slvl_table_record",0);

76622

SWIG_RegisterMapping("_smGuidInfo","_struct__ibsm_guid_info",0);

76623

SWIG_RegisterMapping("_smGuidInfo","__ibsm_guid_info",0);

76624

SWIG_RegisterMapping("__ib_pkey_table_record","_sacPKeyRec",0);

76625

SWIG_RegisterMapping("__ib_pkey_table_record","_struct__ib_pkey_table_record",0);

76626

SWIG_RegisterMapping("__ib_sminfo_record","_sacSmRec",0);

76627

SWIG_RegisterMapping("__ib_sminfo_record","_struct__ib_sminfo_record",0);

76628

SWIG_RegisterMapping("__ib_ca_cong_entry","_ib_ca_cong_entry_t",0);

76629

SWIG_RegisterMapping("__ib_ca_cong_entry","_struct__ib_ca_cong_entry",0);

76630

SWIG_RegisterMapping("_sacPortRec","_struct__ib_portinfo_record",0);

76631

SWIG_RegisterMapping("_sacPortRec","__ib_portinfo_record",0);

76632

SWIG_RegisterMapping("_struct__ibsm_pkey_table","_smPkeyTable",0);

76633

SWIG_RegisterMapping("_struct__ibsm_pkey_table","__ibsm_pkey_table",0);

76634

SWIG_RegisterMapping("__ibsm_notice","_smNotice",0);

76635

SWIG_RegisterMapping("__ibsm_notice","_struct__ibsm_notice",0);

76636

SWIG_RegisterMapping("_struct__ib_cong_key_info","_ccCongestionKeyInfo",0);

76637

SWIG_RegisterMapping("_struct__ib_cong_key_info","__ib_cong_key_info",0);

76638

SWIG_RegisterMapping("_unsigned_int","_int",0);

76639

SWIG_RegisterMapping("_sacGuidRec","_struct__ib_guidinfo_record",0);

76640

SWIG_RegisterMapping("_sacGuidRec","__ib_guidinfo_record",0);

76641

SWIG_RegisterMapping("__ibsm_slvl_table","_smSlVlTable",0);

76642

SWIG_RegisterMapping("__ibsm_slvl_table","_struct__ibsm_slvl_table",0);

76643

SWIG_RegisterMapping("_short","_unsigned_short",0);

76644

SWIG_RegisterMapping("_short","_signed_short",0);

76645

SWIG_RegisterMapping("__ib_port_info","_sacPortInfo",0);

76646

SWIG_RegisterMapping("__ib_port_info","_struct__ib_port_info",0);

76647

SWIG_RegisterMapping("_ccCongestionInfo","_struct__ib_cong_info",0);

76648

SWIG_RegisterMapping("_ccCongestionInfo","__ib_cong_info",0);

76649

SWIG_RegisterMapping("_sacSmRec","_struct__ib_sminfo_record",0);

76650

SWIG_RegisterMapping("_sacSmRec","__ib_sminfo_record",0);

76651

SWIG_RegisterMapping("__ib_service_record","_sacServiceRec",0);

76652

SWIG_RegisterMapping("__ib_service_record","_struct__ib_service_record",0);

76653

SWIG_RegisterMapping("_sacSwInfo","_struct__ib_switch_info",0);

76654

SWIG_RegisterMapping("_sacSwInfo","__ib_switch_info",0);

76655

SWIG_RegisterMapping("_struct__ibsac_inform_info","_sacInformInfo",0);

76656

SWIG_RegisterMapping("_struct__ibsac_inform_info","__ibsac_inform_info",0);

76657

SWIG_RegisterMapping("_struct__ib_vl_arb_table_record","_sacVlArbRec",0);

76658

SWIG_RegisterMapping("_struct__ib_vl_arb_table_record","__ib_vl_arb_table_record",0);

76659

SWIG_RegisterMapping("_ccSWPortCongestionSetting","_struct__ib_sw_port_cong_setting",0);

76660

SWIG_RegisterMapping("_ccSWPortCongestionSetting","__ib_sw_port_cong_setting",0);

76661

SWIG_RegisterMapping("__ib_time_stamp","_ccTimeStamp",0);

76662

SWIG_RegisterMapping("__ib_time_stamp","_struct__ib_time_stamp",0);

76663

SWIG_RegisterMapping("_sacMCMRec","_struct__ib_member_rec",0);

76664

SWIG_RegisterMapping("_sacMCMRec","__ib_member_rec",0);

76665

SWIG_RegisterMapping("_struct__ibis_opt","_ibis_opt_t",0);

76666

SWIG_RegisterMapping("_struct__ibis_opt","__ibis_opt",0);

76667

SWIG_RegisterMapping("__ib_sm_info","_sacSmInfo",0);

76668

SWIG_RegisterMapping("__ib_sm_info","_struct__ib_sm_info",0);

76669

SWIG_RegisterMapping("__ibsm_pkey_table","_smPkeyTable",0);

76670

SWIG_RegisterMapping("__ibsm_pkey_table","_struct__ibsm_pkey_table",0);

76671

SWIG_RegisterMapping("_int","_unsigned_int",0);

76672

SWIG_RegisterMapping("_int","_signed_int",0);

76673

SWIG_RegisterMapping("_ib_ca_cong_entry_t","_struct__ib_ca_cong_entry",0);

76674

SWIG_RegisterMapping("_ib_ca_cong_entry_t","__ib_ca_cong_entry",0);

76675

SWIG_RegisterMapping("_struct__ib_pkey_table_record","_sacPKeyRec",0);

76676

SWIG_RegisterMapping("_struct__ib_pkey_table_record","__ib_pkey_table_record",0);

76677

SWIG_RegisterMapping("__ib_node_info","_sacNodeInfo",0);

76678

SWIG_RegisterMapping("__ib_node_info","_struct__ib_node_info",0);

76679

SWIG_RegisterMapping("_ccCACongestionLog","_struct__ib_ca_cong_log",0);

76680

SWIG_RegisterMapping("_ccCACongestionLog","__ib_ca_cong_log",0);

76681

SWIG_RegisterMapping("_sacLFTRec","_struct__ib_lft_record",0);

76682

SWIG_RegisterMapping("_sacLFTRec","__ib_lft_record",0);

76683

SWIG_RegisterMapping("_struct__ib_member_rec","_sacMCMRec",0);

76684

SWIG_RegisterMapping("_struct__ib_member_rec","__ib_member_rec",0);

76685

SWIG_RegisterMapping("__ib_cc_tbl","_ccTable",0);

76686

SWIG_RegisterMapping("__ib_cc_tbl","_struct__ib_cc_tbl",0);

76687

SWIG_RegisterMapping("_struct__ib_cong_info","_ccCongestionInfo",0);

76688

SWIG_RegisterMapping("_struct__ib_cong_info","__ib_cong_info",0);

76689

SWIG_RegisterMapping("__ibsac_inform_info","_sacInformInfo",0);

76690

SWIG_RegisterMapping("__ibsac_inform_info","_struct__ibsac_inform_info",0);

76691

SWIG_RegisterMapping("_ccTable","_struct__ib_cc_tbl",0);

76692

SWIG_RegisterMapping("_ccTable","__ib_cc_tbl",0);

76693

SWIG_RegisterMapping("_struct__ib_switch_info_record","_sacSwRec",0);

76694

SWIG_RegisterMapping("_struct__ib_switch_info_record","__ib_switch_info_record",0);

76695

SWIG_RegisterMapping("_sacVlArbRec","_struct__ib_vl_arb_table_record",0);

76696

SWIG_RegisterMapping("_sacVlArbRec","__ib_vl_arb_table_record",0);

76697

SWIG_RegisterMapping("_smSlVlTable","_struct__ibsm_slvl_table",0);

76698

SWIG_RegisterMapping("_smSlVlTable","__ibsm_slvl_table",0);

76699

SWIG_RegisterMapping("__ib_switch_info_record","_sacSwRec",0);

76700

SWIG_RegisterMapping("__ib_switch_info_record","_struct__ib_switch_info_record",0);

76701

SWIG_RegisterMapping("__ib_vl_arb_table_record","_sacVlArbRec",0);

76702

SWIG_RegisterMapping("__ib_vl_arb_table_record","_struct__ib_vl_arb_table_record",0);

76703

SWIG_RegisterMapping("__ib_sw_port_cong_setting_element","_ib_sw_port_cong_setting_element_t",0);

76704

SWIG_RegisterMapping("__ib_sw_port_cong_setting_element","_struct__ib_sw_port_cong_setting_element",0);

76705

SWIG_RegisterMapping("_struct__ib_sw_port_cong_setting","_ccSWPortCongestionSetting",0);

76706

SWIG_RegisterMapping("_struct__ib_sw_port_cong_setting","__ib_sw_port_cong_setting",0);

76707

SWIG_RegisterMapping("__ib_lft_record","_sacLFTRec",0);

76708

SWIG_RegisterMapping("__ib_lft_record","_struct__ib_lft_record",0);

76709

SWIG_RegisterMapping("_smSMInfo","_struct__ibsm_sm_info",0);

76710

SWIG_RegisterMapping("_smSMInfo","__ibsm_sm_info",0);

76711

SWIG_RegisterMapping("_sacSlVlRec","_struct__ib_slvl_table_record",0);

76712

SWIG_RegisterMapping("_sacSlVlRec","__ib_slvl_table_record",0);

76713

SWIG_RegisterMapping("_smLftBlock","_struct__ibsm_lft_block",0);

76714

SWIG_RegisterMapping("_smLftBlock","__ibsm_lft_block",0);

76715

SWIG_RegisterMapping("_smMftBlock","_struct__ibsm_mft_block",0);

76716

SWIG_RegisterMapping("_smMftBlock","__ibsm_mft_block",0);

76717

SWIG_RegisterMapping("_sacSwRec","_struct__ib_switch_info_record",0);

76718

SWIG_RegisterMapping("_sacSwRec","__ib_switch_info_record",0);

76719

SWIG_RegisterMapping("_struct__ib_cc_tbl","_ccTable",0);

76720

SWIG_RegisterMapping("_struct__ib_cc_tbl","__ib_cc_tbl",0);

76721

SWIG_RegisterMapping("_struct__ib_link_record","_sacLinkRec",0);

76722

SWIG_RegisterMapping("_struct__ib_link_record","__ib_link_record",0);

76723

SWIG_RegisterMapping("_struct__ibsm_lft_block","_smLftBlock",0);

76724

SWIG_RegisterMapping("_struct__ibsm_lft_block","__ibsm_lft_block",0);

76725

SWIG_RegisterMapping("_ccNotice","_struct__ibcc_notice",0);

76726

SWIG_RegisterMapping("_ccNotice","__ibcc_notice",0);

76727

SWIG_RegisterMapping("_ib_sw_port_cong_setting_element_t","_struct__ib_sw_port_cong_setting_element",0);

76728

SWIG_RegisterMapping("_ib_sw_port_cong_setting_element_t","__ib_sw_port_cong_setting_element",0);

76729

SWIG_RegisterMapping("_struct__ib_sminfo_record","_sacSmRec",0);

76730

SWIG_RegisterMapping("_struct__ib_sminfo_record","__ib_sminfo_record",0);

76731

SWIG_RegisterMapping("__ib_link_record","_sacLinkRec",0);

76732

SWIG_RegisterMapping("__ib_link_record","_struct__ib_link_record",0);

76733

SWIG_RegisterMapping("__ibsm_lft_block","_smLftBlock",0);

76734

SWIG_RegisterMapping("__ibsm_lft_block","_struct__ibsm_lft_block",0);

76735

SWIG_RegisterMapping("__ib_cong_log_event_ca","_ib_cong_log_event_ca_t",0);

76736

SWIG_RegisterMapping("__ib_cong_log_event_ca","_struct__ib_cong_log_event_ca",0);

76737

SWIG_RegisterMapping("_struct__ib_ca_cong_entry","_ib_ca_cong_entry_t",0);

76738

SWIG_RegisterMapping("_struct__ib_ca_cong_entry","__ib_ca_cong_entry",0);

76739

SWIG_RegisterMapping("_sacPKeyRec","_struct__ib_pkey_table_record",0);

76740

SWIG_RegisterMapping("_sacPKeyRec","__ib_pkey_table_record",0);

76741

SWIG_RegisterMapping("_struct__ib_slvl_table","_sacSlVlTbl",0);

76742

SWIG_RegisterMapping("_struct__ib_slvl_table","__ib_slvl_table",0);

76743

return TCL_OK;

76744

}