Георгий's questions

Eu enfrentei o problema - eu tenho o código C da biblioteca de otimização, e ele aceita ponteiro para função como um dos argumentos. Então, anteriormente eu usei SWIG para gerar o wrapper Tcl para funções C, mas neste caso eu preciso chamar a função Tcl de C. Cada vez que o retorno de chamada é invocado, ele calcula os valores das funções com parâmetros particulares como seus argumentos. Eu quero chamar o procedimento Tcl para isso, e isso deve ser feito dentro do mesmo interpretador que eu chamo o procedimento de otimização C, e então retorno os dados de volta para o programa C.

Descobri que não é possível com SWIG sem modificar o código-fonte C e alguns hacks de typemaps. Quais são as outras opções? Verifiquei Critcl, mas lá novamente tenho que modificar e reordenar o código-fonte C. A única opção viável que vejo agora é o uso direto da API Tcl C. Há alguma outra maneira de fazer isso? Obrigado.

Eu uso a biblioteca SWIG carrays.i para criar um wrapper para acesso duplo a arrays. Se eu adicionar isso ao arquivo de interface: %array_functions(double, doubleArray);, obtenho a próxima função disponível em tcl: new_doubleArray, delete_doubleArray, doubleArray_setiteme doubleArray_getitem. Minha pergunta é: se criar array com new_doubleArraycomando dentro do procedimento tcl ( testProc), devo excluí-lo explicitamente delete_doubleArrayantes de retornar do procedimento? Pela lógica tcl, todas as variáveis ​​locais são excluídas após a saída do procedimento, mas não tenho certeza sobre arrays SWIG. O exemplo do código é:

proc createArray {list} {
    set length [llength $list]
    set a [new_doubleArray $length]
    for {set i 0} {$i<$length} {incr i} {
        set iElem [@ $list $i]
        if {[string is double -strict $iElem]==0} {
            error "Element of list must be of type double"
        }
        doubleArray_setitem $a $i $iElem
    }
    return $a
}

proc testProc {list} {
    set listArray [createArray $list]
    return 
}

Agradeço antecipadamente.

Minha pergunta é: é possível rastrear variável de determinado objeto? Por exemplo, tenho 5 objetos da mesma classe e preciso verificar se determinada variável em cada objeto foi alterada e chamar um procedimento específico que é atualizado no widget Tk que corresponde a esse objeto específico. Fiquei um pouco preso porque sei que podemos adicionar rastreamento à variável global, mas não tenho certeza de como rastrear a variável dentro de um objeto específico, especialmente se ela não puder existir até que a escrita ocorra. Desde já agradeço, Jorge.

Na minha ferramenta tcl eu uso uma biblioteca binária compartilhada na forma de arquivo .so + pkgIndex.tcl, então uso package requirepara carregar o pacote real. Funciona perfeitamente bem na minha máquina, mas quando tento empacotá-lo no Starpack, recebo o erro ao tentar carregar esse pacote: couldn't load file "/tmp/tcl_MI8NvK":/tmp/tcl_MI8NvK: undefined symbol: Tcl_AppendResult O resto do programa em tcl puro funciona bem. Parece que perdi alguma biblioteca importante lá, mas não tenho certeza de qual. Se eu compilar minha biblioteca compartilhada com a inclusão de /usr/lib/x86_64-linux-gnu/libtcl8.6.a, ocorrerá outro erro: couldn't load file "/tmp/tcl_4cwr95":/tmp/tcl_4cwr95: undefined symbol: inflate.

Eu uso C simples e SWIG para gerar código wrapper para a biblioteca C. Também executo o SWIG com o sinalizador -DUSE_TCL_STUBS. Agradeço antecipadamente.

PS Tudo inclui no código C:

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include "filter.h"
#include <stddef.h>
#include <tcl.h>
#include <errno.h>
#include <stdarg.h>
#include <ctype.h>

Não vejo nada aqui que precise de cuidados extras...