Inheritance diagram for HasInt64Command:


Definition at line 117 of file misc.cc.
Public Member Functions | |
| virtual int | command (int argc, const char *const *argv) |
| HasInt64Command () | |
|
|
Definition at line 119 of file misc.cc. 00119 : TclCommand("ns-hasint64") {}
|
|
||||||||||||
|
Definition at line 123 of file misc.cc. 00124 { 00125 Tcl& tcl = Tcl::instance(); 00126 char res[2]; 00127 int flag = 0; 00128 #if defined(HAVE_INT64) 00129 flag = 1; 00130 #endif 00131 sprintf(res, "%d", flag); 00132 tcl.resultf("%s", res); 00133 return (TCL_OK); 00134 }
|
1.4.6