Foro - Perl en Español

Hola a todos(as).

Tengo una duda un tanto básica sobre XS... resulta que tengo una función ( en xs ) que retorna un string, pero este string no es compatible con los de Perl y no sé cómo pasarlo.

Explico con código:


Aunque el código está alterado, creo que el problema se ve... RETVAL no es compatible (en este caso) con las variables de Perl.

Leí algo de SV en perlguts, pero no me quedó nada claro... cualquier comentario se agradece.

No es

Es


Se nota que no sé ni las bases de C...

Bueno ahora... digamos que tengo algo como esto:

Eso retorna a un string el texto Hola mundo, pero yo necesito retornar el texto y el dato.
¿Cómo puedo hacer eso?

Para devolver varios valores, lo mejor es usar la directiva PPCODE dentro de la cual puedes manipular la pila con total libertad.

Por ejemplo, este wrapper, extraído de mi módulo Geo::Coordinates::UTM::XS, devuelve una cadena y dos NVs (doubles):

Código: Seleccionar todo

NO_OUTPUT void
_latlon_to_utm(ename, latitude_deg, longitude_deg)
    SV *ename
    double latitude_deg
    double longitude_deg
PROTOTYPE: $$$
PREINIT:
    int zone = 0;
    char zone_letter = 0;
    double easting, northing;
PPCODE:
    _latlon_to_utm(aTHX_ ename, latitude_deg, longitude_deg,
                   &zone, &zone_letter, &easting, &northing);
    XPUSHs(sv_2mortal(newSVpvf("%d%c", zone, zone_letter)));
    XPUSHs(sv_2mortal(newSVnv(easting)));
    XPUSHs(sv_2mortal(newSVnv(northing)));
    XSRETURN(3);

De todas formas, en tu caso, la parte complicada va a ser cómo pasas la estructura C a Perl.

Si solo contiene datos, lo mas fácil es convertirlo en un hash, pero si es un puntero que tendrás que pasar más adelante de nuevo a alguna otra función, entonces tendrás que usar un typemap para envolverlo en un objeto

También puedes devolver el puntero como un entero, pero es una práctica peligrosa, similar a usar punteros void* en C porque no tendrás ningún chequeo de tipos.

¡No debes olvidarte tampoco de la gestión de memoria!

Muchas gracias por el comentario, salva