🚀 go-pugleaf

> > [ciach]
> > static int stringxor(ClientData clientData, Tcl_Interp *interp, int
> > objc, Tcl_Obj *const objv[])
> > {
> >   if (objc!=2) {
> >       Tcl_WrongNumArgs(interp, 1, objv, "proceduro atendas du
> > argumentojn");
> >       return TCL_ERROR;
> >   }
> >   int stringlen,xorlen,t=0
> >   char *string = Tcl_GetStringFromObj(objv[0], &stringlen);
> >   char *xor = Tcl_GetStringFromObj(objv[1], &xorlen);
>
> Zależnie od tego co autor miał na myśli (a raczej miał na myśli dane
> binarne) to pewnie chodziło o Tcl_GetByteArrayFromObj().
>
> Zastanawiam się nad czymś innym - czy nie można tego problemu trochę
> uogólnić i np zaimplementować w oparciu o C i Tcl_ExprObj(). Na przykład:
>
Rzeczywiście to było zbyt szybko (niem. Schnellschuss) i niepoprawnie.
Tak naprawdę nie wolno modyfikować danych objektów w ten sposób
poniewąż Tcl użwywa Copy on Write. Tzn dane mogę być używane przez
wiele objektów (sharing).
Poprawnie by było zwracać wynik jako nowy objekt, ja chiałem
modyfikować parameter przez referencję.
Problemem jest też to, że Tcl używa wewnętrznie UTF-8 (z kilkoma
modyfikacjami) tzn.
Tcl_GetByteArrayFromObj() i Tcl_NewByteArrayObj są jedynie dobrym
rozwiązaniem.

Tak na marginesie. Przez UTF8 Tcl nadaję się bardzo dobrze do
tworzenia rozwiązań wielojęzycznych i do obróbki tekstów ale obróbka
czystych danych binarnych jest trochę trudniejsza, wolniejsza i
mozolna.

Tcl_ExprObj() ciekawę to może było by najbardziej eleganckie
rozwiązanie.

Artur