[tincho]

Hola a todos.
Hice una prueba muy rudimentaria con Extern pero no ha funcionado, dejo el código aquí por si alguien tiene ganas de resolverlo.

GAMBAS

Library "/usr/local/lib/libredwg:0.0.11"
 
'EXPORT int dwg_read_file (const char *restrict filename, Dwg_Data *restrict dwg);
Private Extern dwg_read_file(filename As String, Dwg_Data As Pointer) As Integer
 
'EXPORT int dxf_read_file (const char *restrict filename, Dwg_Data *restrict dwg);
Private Extern dxf_read_file(filename As String, Dwg_Data As Pointer) As Integer
 
'EXPORT unsigned int dwg_get_layer_count (const Dwg_Data *restrict dwg);
Private Extern dwg_get_layer_count(Dwg_Data As Pointer) As Integer
 
Public Function info(f As String) As Pointer
  Dim info As Pointer
  Dim i As Integer
  Dim q As Integer
  i = dwg_read_file(f, info)
  q = dwg_get_layer_count(info)
  Return q
End

El archivo dwg.h se puede consultar aquí
https://git.savannah.gnu.org/cgit/libred...lude/dwg.h
Saludos.

[vuott]

De hecho, el parámetro formal "Dwg_data *restrict dwg " es un puntero a la estructura declarada en el archivo "dwg. h".
Es una estructura muy compleja, y por esta su complejidad es conveniente que Gambas pase a la función externa una variable de tipo Puntero que apunte a un área de memoria reservada, con un tamaño igual al ocupado por la estructura "Dwg_data".
Para conocer el tamaño (es decir, la cantidad de bytes de memoria ocupados por esa estructura) tienes que utilizar en un programa, escrito en C, el operador "sizeof()".
De hecho, en este caso, no puedes dar a la función externa "dwg_read_file()" una simple variable de tipo Puntero; en cambio tienes que darle una variable de tipo Puntero que apunte a un área de memoria "reservada".
Conocida la cantidad de memoria ocupada por la Estructura "Dwg_data", en Gambas puedes asignar una cantidad igual de memoria con la función "Alloc()".
La función "Alloc()" devolverá una variable de tipo Puntero que tendrás pasar al segundo argumento de la función externa "dwg_read_file()".

[vuott]

 

• Public Function info(f As String) As Pointer
  
•   Dim info As Pointer
  
•   Dim i As Integer
  
•   Dim q As Integer
  
•   i = dwg_read_file(f, info)
  
•   q = dwg_get_layer_count(info)
  
•   Return q
  
• End
  

1) Yo no llamaría la función interna de Gambas - es decir: info( ) - con el mismo nombre que la variable de tipo Puntero, declarada en su cuerpo.

2) En el prototipo de la función "info()" está previsto que devuelva un Puntero, pero la variable "q", efectivamente retornada (Return q), es de tipo Entero !