Re: Help! problem running a script.
- From: Alexandre Ferrieux <alexandre.ferrieux@xxxxxxxxx>
- Date: Wed, 30 Jul 2008 05:08:22 -0700 (PDT)
On Jul 29, 6:07 pm, cche <cris.chapa...@xxxxxxxxx> wrote:
Hi Alex,
On Jul 28, 4:56 pm, Alexandre Ferrieux <alexandre.ferri...@xxxxxxxxx>
wrote:> On Jul 28, 1:53 pm, cche <cris.chapa...@xxxxxxxxx> wrote:
I'm using tcl8.5, sqlite, xotcl and a c library of mine.
[and my heap is broken]
Then good luck. Had you written your C part in a separate process, the
problem would look very different... Is it an option ? (Justify if
no ;-)
I was expecting your "outsource the code!" but...
This lib I wrote about 8 years ago and about 2 years ago I converted
them to the Tcl_Obj side of the force. It has been working without a
problem since then on 32bit machines. This year I inherited a 64bit
machine plus our servers are 64 bit machines too. Until now I didn't
encounter any problem with this lib. So in the end it is not an option
because I have quite a lot of code depending on this lib.
Anyway I tried to simplify my problem so I implemented most of the c
part in tcl and replaced the call to the lib with this critcl code and
I keep having the same problem... Any thoughts?
Thanks,
Cristian.
critcl::ccode {
static size_t mstrlen(char* s) {
size_t n = 0;
while(*s) {s++; n++;}
return n;
}
const char compl[] = " !\"#$%&'()*+,-./0123456789:;<=>?
@TVGHNNCDNNMNKNNYRYSAABWNRN[\\]^_`tvghnncdnnmnknnyrysaabwnrn{|}~";}
# "
critcl::cproc crevcomp {char* seq} char* {
long j, k;
char ctemp;
for (j=0, k=mstrlen(seq)-1; j <= k; j++, k--) {
ctemp = compl[seq[j] - ' '];
seq[j] = compl[seq[k] - ' '];
seq[k] = ctemp;
}
return seq;
Not sure exactly what that funny cipher does, but it seems within
reach of pure Tcl with a combination of [string map] and [string
reverse]. Am I missing something ?
-Alex
.
- References:
- Help! problem running a script.
- From: cche
- Re: Help! problem running a script.
- From: Alexandre Ferrieux
- Re: Help! problem running a script.
- From: cche
- Help! problem running a script.
- Prev by Date: Re: User Input Question
- Next by Date: Re: WebKit
- Previous by thread: Re: Help! problem running a script.
- Next by thread: [XOTcl] Referencing values in an array
- Index(es):
Relevant Pages
|
