| Line 1... |
Line 1... |
// $Id: RtclBvi.cpp 375 2011-04-02 07:56:47Z mueller $
|
// $Id: RtclBvi.cpp 434 2011-12-02 19:17:38Z mueller $
|
//
|
//
|
// Copyright 2011- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
// Copyright 2011- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
//
|
//
|
// This program is free software; you may redistribute and/or modify it under
|
// This program is free software; you may redistribute and/or modify it under
|
// the terms of the GNU General Public License as published by the Free
|
// the terms of the GNU General Public License as published by the Free
|
| Line 11... |
Line 11... |
// or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
// or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
// for complete details.
|
// for complete details.
|
//
|
//
|
// Revision History:
|
// Revision History:
|
// Date Rev Version Comment
|
// Date Rev Version Comment
|
|
// 2011-11-28 434 1.0.1 DoCmd(): use intptr_t cast for lp64 compatibility
|
// 2011-03-27 374 1.0 Initial version
|
// 2011-03-27 374 1.0 Initial version
|
// 2011-02-13 361 0.1 First draft
|
// 2011-02-13 361 0.1 First draft
|
// ---------------------------------------------------------------------------
|
// ---------------------------------------------------------------------------
|
|
|
/*!
|
/*!
|
\file
|
\file
|
\version $Id: RtclBvi.cpp 375 2011-04-02 07:56:47Z mueller $
|
\version $Id: RtclBvi.cpp 434 2011-12-02 19:17:38Z mueller $
|
\brief Implemenation of RtclBvi.
|
\brief Implemenation of RtclBvi.
|
*/
|
*/
|
|
|
#include <ctype.h>
|
#include <ctype.h>
|
#include <stdlib.h>
|
#include <stdlib.h>
|
| Line 62... |
Line 63... |
bool list = false;
|
bool list = false;
|
char form = 0;
|
char form = 0;
|
int nbit = 0;
|
int nbit = 0;
|
if (!CheckFormat(interp, objc, objv, list, form, nbit)) return kERR;
|
if (!CheckFormat(interp, objc, objv, list, form, nbit)) return kERR;
|
|
|
ConvMode mode = (ConvMode)((int) cdata);
|
//ConvMode mode = (ConvMode)((int) cdata);
|
|
ConvMode mode = (ConvMode)((intptr_t) cdata);
|
|
|
if (list) {
|
if (list) {
|
int lobjc = 0;
|
int lobjc = 0;
|
Tcl_Obj** lobjv = 0;
|
Tcl_Obj** lobjv = 0;
|
if (Tcl_ListObjGetElements(interp, objv[2], &lobjc, &lobjv) != kOK) {
|
if (Tcl_ListObjGetElements(interp, objv[2], &lobjc, &lobjv) != kOK) {
|
