246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
char buf[1024];
if (data == NULL) {
return(retval);
}
for (bufidx = idx = 0; (idx < datalen) && (bufidx < sizeof(buf)); idx++) {
buf[bufidx++] = (data[idx] >> 4) & 0xf;
buf[bufidx++] = data[idx] & 0xf;
}
retval = Tcl_NewByteArrayObj(buf, bufidx);
return(retval);
}
|
|
|
|
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
char buf[1024];
if (data == NULL) {
return(retval);
}
for (bufidx = idx = 0; (idx < datalen) && (bufidx < sizeof(buf)); idx++) {
buf[bufidx++] = alphabet[(data[idx] >> 4) & 0xf];
buf[bufidx++] = alphabet[data[idx] & 0xf];
}
retval = Tcl_NewByteArrayObj(buf, bufidx);
return(retval);
}
|