Re: Help! problem running a script.

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;
}


-Alex

.

Relevant Pages

  • Re: C Question: TypeDefing a structure ?
    ... I used to do that when machines were slow and RAM limited. ... with source files that made their own private #defines, ... usual scopes. ... variable/function-name conflicts and neither does the user of the lib. ...
    (microsoft.public.vc.language)
  • Re: LD_LIBRARY_PATH in multi-home environment
    ... we have here in Brazil several machines with multi Oracle homes. ... The LD_LIBRARY_PATH normally have to point to the 64-bit lib path. ... In 8i and earlier the setlibpath.sh script is: ...
    (comp.databases.oracle.server)
  • Re: Help! problem running a script.
    ... This lib I wrote about 8 years ago and about 2 years ago I converted ... machine plus our servers are 64 bit machines too. ...     long j, k; ... reach of pure Tcl with a combination of [string map] and [string ...
    (comp.lang.tcl)
  • Re: how do I use a module without installing it?
    ... root on the machines it will be used on. ... without installing it? ... use the PREFIX and LIB options when generating Makefiles: ...
    (perl.beginners)