<![CDATA[Comunidad Gambas-es - C/C++]]> https://gambas-es.org/ Mon, 31 Aug 2026 06:01:14 +0000 MyBB <![CDATA[Extern: Uso de la libreria C TagLib, id3.module, libtag_c, TagLib]]> https://gambas-es.org/thread-2024.html Tue, 18 Aug 2026 20:28:16 +0000 tincho]]> https://gambas-es.org/thread-2024.html
Hice una adaptacion de un ejemplo del wiki italiano de gambas [1] que muestra como usar libtag_c [2] para usarlo como una funcion que devuelve una Collection.
Al modulo lo llame id3.module

[1] https://www.gambas-it.org/wiki/index.php...i_Libtag_c
[2] https://taglib.org/

Código:
' Gambas module file

Export
Library "libtag_c"

Public Struct TagLib_File
  dummy As Integer
End Struct

Public Struct TagLib_Tag
  dummy As Integer
End Struct

Public Struct TagLib_AudioProperties
  dummy As Integer
End Struct

' void taglib_set_strings_unicode(BOOL unicode)
' By default all strings coming into or out of TagLib's C API are in UTF8.
' However, it may be desirable For TagLib To operate On Latin1(ISO - 8859 - 1) strings In which Case this should be set To FALSE.
Private Extern taglib_set_strings_unicode(unicode As Boolean)

' TagLib_File *taglib_file_new_type(const char *filename)
' Creates a TagLib file based on \a filename.
Private Extern taglib_file_new(filename As String) As TagLib_File

' TagLib_Tag *taglib_file_tag(const TagLib_File *file)
' Returns a pointer to the tag associated with this file.
Private Extern taglib_file_tag(_file As TagLib_File) As TagLib_Tag

' char *taglib_tag_title(const TagLib_Tag *tag)
' Returns a string with this tag's title.
Private Extern taglib_tag_title(tag As TagLib_Tag) As String

' char *taglib_tag_artist(const TagLib_Tag *tag)
' Returns a string with this tag's artist.
Private Extern taglib_tag_artist(tag As TagLib_Tag) As String

' char *taglib_tag_album(const TagLib_Tag *tag)
' Returns a string with this tag's album name.
Private Extern taglib_tag_album(tag As TagLib_Tag) As String

' unsigned int taglib_tag_year(const TagLib_Tag *tag)
' Returns the tag's year or 0 if year is not set.
Private Extern taglib_tag_year(tag As TagLib_Tag) As Integer

' char *taglib_tag_comment(const TagLib_Tag *tag)
' Returns a string with this tag's comment.
Private Extern taglib_tag_comment(tag As TagLib_Tag) As String

' unsigned int taglib_tag_track(const TagLib_Tag *tag)
' Returns the tag's track number or 0 if track number is not set.
Private Extern taglib_tag_track(tag As TagLib_Tag) As Integer

'Private Extern taglib_tag_encoder(tag As TagLib_Tag) As String
'Private Extern taglib_tag_volume_number(tag As TagLib_Tag) As Integer

' char *taglib_tag_genre(const TagLib_Tag *tag)
' Returns a string with this tag's genre.
Private Extern taglib_tag_genre(tag As TagLib_Tag) As String

' const TagLib_AudioProperties *taglib_file_audioproperties(const TagLib_File *file)
' Returns a pointer to the the audio properties associated with this file.
Private Extern taglib_file_audioproperties(_file As TagLib_File) As TagLib_AudioProperties

' int taglib_audioproperties_length(const TagLib_AudioProperties *audioProperties)
' Returns the length of the file in seconds.
Private Extern taglib_audioproperties_length(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_bitrate(const TagLib_AudioProperties *audioProperties)
' Returns the bitrate of the file in kb/s.
Private Extern taglib_audioproperties_bitrate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_samplerate(const TagLib_AudioProperties *audioProperties)
' Returns the sample rate of the file in Hz.
Private Extern taglib_audioproperties_samplerate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_channels(const TagLib_AudioProperties *audioProperties)
' Returns the number of channels in the audio stream.
Private Extern taglib_audioproperties_channels(audioProperties As TagLib_AudioProperties) As Integer

' void taglib_tag_free_strings(void)
' Frees all of the strings that have been created by the tag.
Private Extern taglib_tag_free_strings()

' void taglib_file_free(TagLib_File *file)
' Frees and closes the file.
Private Extern taglib_file_free(_file As TagLib_File)

Public Function Info(fileaudio As String) As Collection

  Dim fl As TagLib_File
  Dim autag As TagLib_Tag
  Dim auprop As TagLib_AudioProperties
  '  Dim secondi, minuti As Integer
  '
  Dim inf As New Collection

  taglib_set_strings_unicode(False)
  taglib_set_strings_unicode(True)

  fl = taglib_file_new(fileaudio)
  If IsNull(fl) Then Error.Raise("Impossibile caricare il file audio: " & fileaudio)

  autag = taglib_file_tag(fl)
  If IsNull(autag) Then Error.Raise("Impossibile ottenere i tag dal file audio: " & fileaudio)

  inf.Add(taglib_tag_album(autag), "album")
  inf.Add(taglib_tag_artist(autag), "artist")
  inf.Add(taglib_tag_track(autag), "track")
  inf.Add(taglib_tag_title(autag), "title")
  inf.Add(taglib_tag_year(autag), "year")
  inf.Add(taglib_tag_genre(autag), "genre")
  inf.Add(taglib_tag_comment(autag), "comment")

  inf.Add(File.Ext(fileaudio), "format")

  ' Mostra le proprietà del file audio:
  auprop = taglib_file_audioproperties(fl)

  If IsNull(auprop) Then
    inf.Add(True, "audioerror")
  Else
    inf.Add(taglib_audioproperties_length(auprop), "length")
    inf.Add(taglib_audioproperties_bitrate(auprop), "bitrate")
    inf.Add(taglib_audioproperties_samplerate(auprop), "frequency")
    inf.Add(taglib_audioproperties_channels(auprop), "channels")
  Endif
  inf.Add(taglib_tag_comment(autag), "comment")
  ' Va in chiusura:
  taglib_tag_free_strings()
  taglib_file_free(fl)

  Return inf

End
Luego se usa de esta manera para obtener los metadatos de un archivo de audio:

Código:
  Dim sFile As String ' Ruta dle archivo
  Dim oID3 As Collection

  oID3 = id3.Info(sFile)
]]>
Hice una adaptacion de un ejemplo del wiki italiano de gambas [1] que muestra como usar libtag_c [2] para usarlo como una funcion que devuelve una Collection.
Al modulo lo llame id3.module

[1] https://www.gambas-it.org/wiki/index.php...i_Libtag_c
[2] https://taglib.org/

Código:
' Gambas module file

Export
Library "libtag_c"

Public Struct TagLib_File
  dummy As Integer
End Struct

Public Struct TagLib_Tag
  dummy As Integer
End Struct

Public Struct TagLib_AudioProperties
  dummy As Integer
End Struct

' void taglib_set_strings_unicode(BOOL unicode)
' By default all strings coming into or out of TagLib's C API are in UTF8.
' However, it may be desirable For TagLib To operate On Latin1(ISO - 8859 - 1) strings In which Case this should be set To FALSE.
Private Extern taglib_set_strings_unicode(unicode As Boolean)

' TagLib_File *taglib_file_new_type(const char *filename)
' Creates a TagLib file based on \a filename.
Private Extern taglib_file_new(filename As String) As TagLib_File

' TagLib_Tag *taglib_file_tag(const TagLib_File *file)
' Returns a pointer to the tag associated with this file.
Private Extern taglib_file_tag(_file As TagLib_File) As TagLib_Tag

' char *taglib_tag_title(const TagLib_Tag *tag)
' Returns a string with this tag's title.
Private Extern taglib_tag_title(tag As TagLib_Tag) As String

' char *taglib_tag_artist(const TagLib_Tag *tag)
' Returns a string with this tag's artist.
Private Extern taglib_tag_artist(tag As TagLib_Tag) As String

' char *taglib_tag_album(const TagLib_Tag *tag)
' Returns a string with this tag's album name.
Private Extern taglib_tag_album(tag As TagLib_Tag) As String

' unsigned int taglib_tag_year(const TagLib_Tag *tag)
' Returns the tag's year or 0 if year is not set.
Private Extern taglib_tag_year(tag As TagLib_Tag) As Integer

' char *taglib_tag_comment(const TagLib_Tag *tag)
' Returns a string with this tag's comment.
Private Extern taglib_tag_comment(tag As TagLib_Tag) As String

' unsigned int taglib_tag_track(const TagLib_Tag *tag)
' Returns the tag's track number or 0 if track number is not set.
Private Extern taglib_tag_track(tag As TagLib_Tag) As Integer

'Private Extern taglib_tag_encoder(tag As TagLib_Tag) As String
'Private Extern taglib_tag_volume_number(tag As TagLib_Tag) As Integer

' char *taglib_tag_genre(const TagLib_Tag *tag)
' Returns a string with this tag's genre.
Private Extern taglib_tag_genre(tag As TagLib_Tag) As String

' const TagLib_AudioProperties *taglib_file_audioproperties(const TagLib_File *file)
' Returns a pointer to the the audio properties associated with this file.
Private Extern taglib_file_audioproperties(_file As TagLib_File) As TagLib_AudioProperties

' int taglib_audioproperties_length(const TagLib_AudioProperties *audioProperties)
' Returns the length of the file in seconds.
Private Extern taglib_audioproperties_length(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_bitrate(const TagLib_AudioProperties *audioProperties)
' Returns the bitrate of the file in kb/s.
Private Extern taglib_audioproperties_bitrate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_samplerate(const TagLib_AudioProperties *audioProperties)
' Returns the sample rate of the file in Hz.
Private Extern taglib_audioproperties_samplerate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_channels(const TagLib_AudioProperties *audioProperties)
' Returns the number of channels in the audio stream.
Private Extern taglib_audioproperties_channels(audioProperties As TagLib_AudioProperties) As Integer

' void taglib_tag_free_strings(void)
' Frees all of the strings that have been created by the tag.
Private Extern taglib_tag_free_strings()

' void taglib_file_free(TagLib_File *file)
' Frees and closes the file.
Private Extern taglib_file_free(_file As TagLib_File)

Public Function Info(fileaudio As String) As Collection

  Dim fl As TagLib_File
  Dim autag As TagLib_Tag
  Dim auprop As TagLib_AudioProperties
  '  Dim secondi, minuti As Integer
  '
  Dim inf As New Collection

  taglib_set_strings_unicode(False)
  taglib_set_strings_unicode(True)

  fl = taglib_file_new(fileaudio)
  If IsNull(fl) Then Error.Raise("Impossibile caricare il file audio: " & fileaudio)

  autag = taglib_file_tag(fl)
  If IsNull(autag) Then Error.Raise("Impossibile ottenere i tag dal file audio: " & fileaudio)

  inf.Add(taglib_tag_album(autag), "album")
  inf.Add(taglib_tag_artist(autag), "artist")
  inf.Add(taglib_tag_track(autag), "track")
  inf.Add(taglib_tag_title(autag), "title")
  inf.Add(taglib_tag_year(autag), "year")
  inf.Add(taglib_tag_genre(autag), "genre")
  inf.Add(taglib_tag_comment(autag), "comment")

  inf.Add(File.Ext(fileaudio), "format")

  ' Mostra le proprietà del file audio:
  auprop = taglib_file_audioproperties(fl)

  If IsNull(auprop) Then
    inf.Add(True, "audioerror")
  Else
    inf.Add(taglib_audioproperties_length(auprop), "length")
    inf.Add(taglib_audioproperties_bitrate(auprop), "bitrate")
    inf.Add(taglib_audioproperties_samplerate(auprop), "frequency")
    inf.Add(taglib_audioproperties_channels(auprop), "channels")
  Endif
  inf.Add(taglib_tag_comment(autag), "comment")
  ' Va in chiusura:
  taglib_tag_free_strings()
  taglib_file_free(fl)

  Return inf

End
Luego se usa de esta manera para obtener los metadatos de un archivo de audio:

Código:
  Dim sFile As String ' Ruta dle archivo
  Dim oID3 As Collection

  oID3 = id3.Info(sFile)
]]> <![CDATA[Creando bibliotecas compartidas en C]]> https://gambas-es.org/thread-1789.html Thu, 12 Sep 2024 11:39:59 +0000 tincho]]> https://gambas-es.org/thread-1789.html Hace un momento hice una prueba, le pedi a ChatGPT que me escribiera una biblioteca compartida en C que a su vez usa la librería LibreDWG y el resultado fue:
Código:
#include <stdio.h>
#include <stdlib.h>
#include <libredwg.h>

const char* list_blocks(const char* filename) {
static char result[4096];
DWG_Data *dwg;
int i;

// Inicializa la biblioteca
dwg = dwg_read(filename);
if (!dwg) {
return "Error reading DWG file.";
}

// Recorre los bloques y crea una lista
result[0] = '\0';
for (i = 0; i < dwg->num_blocks; i++) {
strcat(result, dwg->blocks[i].name);
strcat(result, "\n");
}

// Limpia
dwg_free(dwg);

return result;
}
Por supuesto no funciono, por un lado en mi sistema no existe libredwg.h, pero se puede descargar el código fuente:
https://github.com/LibreDWG/libredwg
A ver si algún experto en C tiene ganas de experimentar un poco con esta herramienta.
Luego en el codigo fuente se puede ver un ejemlo que lista, en lugar de los "Blocks", los "Layers"

Código:
/*****************************************************************************/
/*  LibreDWG - free implementation of the DWG file format                    */
/*                                                                           */
/*  Copyright (C) 2018-2019 Free Software Foundation, Inc.                   */
/*                                                                           */
/*  This library is free software, licensed under the terms of the GNU       */
/*  General Public License as published by the Free Software Foundation,     */
/*  either version 3 of the License, or (at your option) any later version.  */
/*  You should have received a copy of the GNU General Public License        */
/*  along with this program.  If not, see <http://www.gnu.org/licenses/>.    */
/*****************************************************************************/

/*
 * dwglayers.c: print list of layers in a DWG
 *
 * written by Reini Urban
 */

#include "../src/config.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <getopt.h>
#ifdef HAVE_VALGRIND_VALGRIND_H
#  include <valgrind/valgrind.h>
#endif

#include <dwg.h>
#include "common.h"
#include "bits.h"
#include "logging.h"

static int
usage (void)
{
  printf ("\nUsage: dwglayers [-f|--flags] [--on] <input_file.dwg>\n");
  return 1;
}
static int
opt_version (void)
{
  printf ("dwglayers %s\n", PACKAGE_VERSION);
  return 0;
}
static int
help (void)
{
  printf ("\nUsage: dwglayers [OPTION]... DWGFILE\n");
  printf ("Print list of layers.\n"
          "\n");
#ifdef HAVE_GETOPT_LONG
  printf ("  -x, --extnames            prints EXTNAMES (r13-r14 only)\n"
          "                i.e. space instead of _\n");
  printf ("  -f, --flags               prints also flags:\n"
          "                3 chars for: f for frozen, + or - for ON or OFF, l "
          "for locked\n");
  printf ("  -o, --on                  prints only ON layers\n");
  printf ("  -h, --help                display this help and exit\n");
  printf ("      --version             output version information and exit\n"
          "\n");
#else
  printf ("  -x            prints EXTNAMES (r13-r14 only)\n"
          "                i.e. space instead of _\n");
  printf ("  -f            prints also flags:\n"
          "                3 chars for: f for frozen, + or - for ON or OFF, l "
          "for locked\n");
  printf ("  -o            prints only ON layers\n");
  printf ("  -h            display this help and exit\n");
  printf ("  -i            output version information and exit\n"
          "\n");
#endif
  printf ("GNU LibreDWG online manual: "
          "<https://www.gnu.org/software/libredwg/>\n");
  return 0;
}

int
main (int argc, char *argv[])
{
  int error;
  long i = 1;
  int flags = 0, on = 0, extnames = 0;
  char *filename_in;
  Dwg_Data dwg;
  Dwg_Object *obj;
  Dwg_Object_LAYER *layer;
  Dwg_Object_LAYER_CONTROL *_ctrl;
  int c;
#ifdef HAVE_GETOPT_LONG
  int option_index = 0;
  static struct option long_options[] = { { "flags", 0, 0, 'f' },
                                          { "extnames", 0, 0, 'x' },
                                          { "on", 0, 0, 'o' },
                                          { "help", 0, 0, 0 },
                                          { "version", 0, 0, 0 },
                                          { NULL, 0, NULL, 0 } };
#endif

  while
#ifdef HAVE_GETOPT_LONG
      ((c = getopt_long (argc, argv, "xfoh", long_options, &option_index))
       != -1)
#else
      ((c = getopt (argc, argv, "xfohi")) != -1)
#endif
    {
      if (c == -1)
        break;
      switch (c)
        {
#ifdef HAVE_GETOPT_LONG
        case 0:
          if (!strcmp (long_options[option_index].name, "version"))
            return opt_version ();
          if (!strcmp (long_options[option_index].name, "help"))
            return help ();
          break;
#else
        case 'i':
          return opt_version ();
#endif
        case 'x':
          extnames = 1;
          break;
        case 'f':
          flags = 1;
          break;
        case 'o':
          on = 1;
          break;
        case 'h':
          return help ();
        case '?':
          fprintf (stderr, "%s: invalid option '-%c' ignored\n", argv[0],
                   optopt);
          break;
        default:
          return usage ();
        }
    }
  i = optind;
  if (i >= argc)
    return usage ();

  filename_in = argv[i];
  memset (&dwg, 0, sizeof (Dwg_Data));
  error = dwg_read_file (filename_in, &dwg);
  if (error >= DWG_ERR_CRITICAL)
    fprintf (stderr, "READ ERROR %s: 0x%x\n", filename_in, error);

  obj = dwg_get_first_object (&dwg, DWG_TYPE_LAYER_CONTROL);
  _ctrl = obj->tio.object->tio.LAYER_CONTROL;
  for (i = 0; i < _ctrl->num_entries; i++)
    {
      char *name;
      assert (_ctrl->entries);
      assert (_ctrl->entries[i]);
      obj = _ctrl->entries[i]->obj;
      if (!obj || obj->type != DWG_TYPE_LAYER) // can be DICTIONARY also
        continue;
      assert (_ctrl->entries[i]->obj->tio.object);
      layer = _ctrl->entries[i]->obj->tio.object->tio.LAYER;
      if (on && (!layer->on || layer->frozen))
        continue;
      if (flags)
        printf ("%s%s%s\t", layer->frozen ? "f" : " ", layer->on ? "+" : "-",
                layer->locked ? "l" : " ");
      if (extnames && dwg.header.from_version >= R_13 && dwg.header.from_version < R_2000)
        {
          if (!(name = dwg_find_table_extname (&dwg, obj)))
            name = layer->name;
        }
      else
        name = layer->name;
      // since r2007 unicode, converted to utf-8
      if (dwg.header.from_version >= R_2007)
        {
          char *utf8 = bit_convert_TU ((BITCODE_TU)name);
          printf ("%s\n", utf8);
          free (utf8);
        }
      else
        printf ("%s\n", name);
      fflush (stdout);
    }

  // forget about valgrind. really huge DWG's need endlessly here.
  if ((dwg.header.version && dwg.num_objects < 1000)
#if defined __SANITIZE_ADDRESS__ || __has_feature(address_sanitizer)
      || 1
#endif
#ifdef HAVE_VALGRIND_VALGRIND_H
      || (RUNNING_ON_VALGRIND)
#endif
  )
    dwg_free (&dwg);
  return error >= DWG_ERR_CRITICAL ? 1 : 0;
}
]]> Hace un momento hice una prueba, le pedi a ChatGPT que me escribiera una biblioteca compartida en C que a su vez usa la librería LibreDWG y el resultado fue:
Código:
#include <stdio.h>
#include <stdlib.h>
#include <libredwg.h>

const char* list_blocks(const char* filename) {
static char result[4096];
DWG_Data *dwg;
int i;

// Inicializa la biblioteca
dwg = dwg_read(filename);
if (!dwg) {
return "Error reading DWG file.";
}

// Recorre los bloques y crea una lista
result[0] = '\0';
for (i = 0; i < dwg->num_blocks; i++) {
strcat(result, dwg->blocks[i].name);
strcat(result, "\n");
}

// Limpia
dwg_free(dwg);

return result;
}
Por supuesto no funciono, por un lado en mi sistema no existe libredwg.h, pero se puede descargar el código fuente:
https://github.com/LibreDWG/libredwg
A ver si algún experto en C tiene ganas de experimentar un poco con esta herramienta.
Luego en el codigo fuente se puede ver un ejemlo que lista, en lugar de los "Blocks", los "Layers"

Código:
/*****************************************************************************/
/*  LibreDWG - free implementation of the DWG file format                    */
/*                                                                           */
/*  Copyright (C) 2018-2019 Free Software Foundation, Inc.                   */
/*                                                                           */
/*  This library is free software, licensed under the terms of the GNU       */
/*  General Public License as published by the Free Software Foundation,     */
/*  either version 3 of the License, or (at your option) any later version.  */
/*  You should have received a copy of the GNU General Public License        */
/*  along with this program.  If not, see <http://www.gnu.org/licenses/>.    */
/*****************************************************************************/

/*
 * dwglayers.c: print list of layers in a DWG
 *
 * written by Reini Urban
 */

#include "../src/config.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <getopt.h>
#ifdef HAVE_VALGRIND_VALGRIND_H
#  include <valgrind/valgrind.h>
#endif

#include <dwg.h>
#include "common.h"
#include "bits.h"
#include "logging.h"

static int
usage (void)
{
  printf ("\nUsage: dwglayers [-f|--flags] [--on] <input_file.dwg>\n");
  return 1;
}
static int
opt_version (void)
{
  printf ("dwglayers %s\n", PACKAGE_VERSION);
  return 0;
}
static int
help (void)
{
  printf ("\nUsage: dwglayers [OPTION]... DWGFILE\n");
  printf ("Print list of layers.\n"
          "\n");
#ifdef HAVE_GETOPT_LONG
  printf ("  -x, --extnames            prints EXTNAMES (r13-r14 only)\n"
          "                i.e. space instead of _\n");
  printf ("  -f, --flags               prints also flags:\n"
          "                3 chars for: f for frozen, + or - for ON or OFF, l "
          "for locked\n");
  printf ("  -o, --on                  prints only ON layers\n");
  printf ("  -h, --help                display this help and exit\n");
  printf ("      --version             output version information and exit\n"
          "\n");
#else
  printf ("  -x            prints EXTNAMES (r13-r14 only)\n"
          "                i.e. space instead of _\n");
  printf ("  -f            prints also flags:\n"
          "                3 chars for: f for frozen, + or - for ON or OFF, l "
          "for locked\n");
  printf ("  -o            prints only ON layers\n");
  printf ("  -h            display this help and exit\n");
  printf ("  -i            output version information and exit\n"
          "\n");
#endif
  printf ("GNU LibreDWG online manual: "
          "<https://www.gnu.org/software/libredwg/>\n");
  return 0;
}

int
main (int argc, char *argv[])
{
  int error;
  long i = 1;
  int flags = 0, on = 0, extnames = 0;
  char *filename_in;
  Dwg_Data dwg;
  Dwg_Object *obj;
  Dwg_Object_LAYER *layer;
  Dwg_Object_LAYER_CONTROL *_ctrl;
  int c;
#ifdef HAVE_GETOPT_LONG
  int option_index = 0;
  static struct option long_options[] = { { "flags", 0, 0, 'f' },
                                          { "extnames", 0, 0, 'x' },
                                          { "on", 0, 0, 'o' },
                                          { "help", 0, 0, 0 },
                                          { "version", 0, 0, 0 },
                                          { NULL, 0, NULL, 0 } };
#endif

  while
#ifdef HAVE_GETOPT_LONG
      ((c = getopt_long (argc, argv, "xfoh", long_options, &option_index))
       != -1)
#else
      ((c = getopt (argc, argv, "xfohi")) != -1)
#endif
    {
      if (c == -1)
        break;
      switch (c)
        {
#ifdef HAVE_GETOPT_LONG
        case 0:
          if (!strcmp (long_options[option_index].name, "version"))
            return opt_version ();
          if (!strcmp (long_options[option_index].name, "help"))
            return help ();
          break;
#else
        case 'i':
          return opt_version ();
#endif
        case 'x':
          extnames = 1;
          break;
        case 'f':
          flags = 1;
          break;
        case 'o':
          on = 1;
          break;
        case 'h':
          return help ();
        case '?':
          fprintf (stderr, "%s: invalid option '-%c' ignored\n", argv[0],
                   optopt);
          break;
        default:
          return usage ();
        }
    }
  i = optind;
  if (i >= argc)
    return usage ();

  filename_in = argv[i];
  memset (&dwg, 0, sizeof (Dwg_Data));
  error = dwg_read_file (filename_in, &dwg);
  if (error >= DWG_ERR_CRITICAL)
    fprintf (stderr, "READ ERROR %s: 0x%x\n", filename_in, error);

  obj = dwg_get_first_object (&dwg, DWG_TYPE_LAYER_CONTROL);
  _ctrl = obj->tio.object->tio.LAYER_CONTROL;
  for (i = 0; i < _ctrl->num_entries; i++)
    {
      char *name;
      assert (_ctrl->entries);
      assert (_ctrl->entries[i]);
      obj = _ctrl->entries[i]->obj;
      if (!obj || obj->type != DWG_TYPE_LAYER) // can be DICTIONARY also
        continue;
      assert (_ctrl->entries[i]->obj->tio.object);
      layer = _ctrl->entries[i]->obj->tio.object->tio.LAYER;
      if (on && (!layer->on || layer->frozen))
        continue;
      if (flags)
        printf ("%s%s%s\t", layer->frozen ? "f" : " ", layer->on ? "+" : "-",
                layer->locked ? "l" : " ");
      if (extnames && dwg.header.from_version >= R_13 && dwg.header.from_version < R_2000)
        {
          if (!(name = dwg_find_table_extname (&dwg, obj)))
            name = layer->name;
        }
      else
        name = layer->name;
      // since r2007 unicode, converted to utf-8
      if (dwg.header.from_version >= R_2007)
        {
          char *utf8 = bit_convert_TU ((BITCODE_TU)name);
          printf ("%s\n", utf8);
          free (utf8);
        }
      else
        printf ("%s\n", name);
      fflush (stdout);
    }

  // forget about valgrind. really huge DWG's need endlessly here.
  if ((dwg.header.version && dwg.num_objects < 1000)
#if defined __SANITIZE_ADDRESS__ || __has_feature(address_sanitizer)
      || 1
#endif
#ifdef HAVE_VALGRIND_VALGRIND_H
      || (RUNNING_ON_VALGRIND)
#endif
  )
    dwg_free (&dwg);
  return error >= DWG_ERR_CRITICAL ? 1 : 0;
}
]]> <![CDATA[LLVM Clang vs GCC (C development on OpenBSD)]]> https://gambas-es.org/thread-1385.html Fri, 02 Jun 2023 09:21:47 +0000 Shell]]> https://gambas-es.org/thread-1385.html
En este vídeo se compara el compilador Clang con GCC

No se duerman escuchando al creador del vídeo.  Rolleyes



GCC vs Clang: Battle of the Behemoths


Cuando creamos una aplicación desde su fuente, estás buscan que tenemos instalado en el sistema. Por ejemplo el compilador.
Pero, en ese scripts, ¿ hay preferencias ?.  Quiero decir si tenemos instalado GCC y Clang, ¿ usaría uno de los dos  ( el primero que se encuentre )
ó existiría una preferencia en usar uno u otro ?.
Y como puede ser una elección. Que mejor que recordar una buena elección. Tongue
No es para hacer publicidad.



A ver que usan ustedes. Gcc o Clang. Si tienen dudas vean de nuevo el anuncio del detergente. Wink

Saludos]]>
En este vídeo se compara el compilador Clang con GCC

No se duerman escuchando al creador del vídeo.  Rolleyes



GCC vs Clang: Battle of the Behemoths


Cuando creamos una aplicación desde su fuente, estás buscan que tenemos instalado en el sistema. Por ejemplo el compilador.
Pero, en ese scripts, ¿ hay preferencias ?.  Quiero decir si tenemos instalado GCC y Clang, ¿ usaría uno de los dos  ( el primero que se encuentre )
ó existiría una preferencia en usar uno u otro ?.
Y como puede ser una elección. Que mejor que recordar una buena elección. Tongue
No es para hacer publicidad.



A ver que usan ustedes. Gcc o Clang. Si tienen dudas vean de nuevo el anuncio del detergente. Wink

Saludos]]> <![CDATA[GB#]]> https://gambas-es.org/thread-1380.html Tue, 30 May 2023 14:17:02 +0000 tercoide]]> https://gambas-es.org/thread-1380.html

 

Código:
class Vehicle  // base class (parent) 
{
  public string brand = "Ford";  // Vehicle field
  public void honk()             // Vehicle method 
  {                    
    Console.WriteLine("Tuut, tuut!");
  }
}

class Car : Vehicle  // derived class (child)
{
  public string modelName = "Mustang";  // Car field
}

class Program
{
  static void Main(string[] args)
  {
    // Create a myCar object
    Car myCar = new Car();

    // Call the honk() method (From the Vehicle class) on the myCar object
    myCar.honk();

    // Display the value of the brand field (from the Vehicle class) and the value of the modelName from the Car class
    Console.WriteLine(myCar.brand + " " + myCar.modelName);
  }
}
]]>

 

Código:
class Vehicle  // base class (parent) 
{
  public string brand = "Ford";  // Vehicle field
  public void honk()             // Vehicle method 
  {                    
    Console.WriteLine("Tuut, tuut!");
  }
}

class Car : Vehicle  // derived class (child)
{
  public string modelName = "Mustang";  // Car field
}

class Program
{
  static void Main(string[] args)
  {
    // Create a myCar object
    Car myCar = new Car();

    // Call the honk() method (From the Vehicle class) on the myCar object
    myCar.honk();

    // Display the value of the brand field (from the Vehicle class) and the value of the modelName from the Car class
    Console.WriteLine(myCar.brand + " " + myCar.modelName);
  }
}
]]> <![CDATA[Problema con matriz en Cpp]]> https://gambas-es.org/thread-485.html Thu, 24 Jun 2021 15:50:34 +0000 AlfredoSC]]> https://gambas-es.org/thread-485.html
Estoy haciendo un programa en Cpp el cual ya compilado se carga en un microcontrolador.

El uC recibirá un pack de datos (22,34,34,176,90,20,60,0) que se definen de la siguiente manera:


#define dato0  recibe[0]
#define dato1  recibe[1]
#define dato2  recibe[2]
#define dato3  recibe[3]
#define dato4  recibe[4]
#define dato5  recibe[5]
#define dato6  recibe[6]
#define dato7  recibe[7]

int8 recibe[8];     // Éste es el Pack

Justo después de recibir el pack, se envía el mismo a una PC vía Serial (RS-232) en modo Bytes
(no string) de la siguiente manera:

putc(recibe[]);

Y en la PC, usando CuteCom en modo HEX como Software Serial, se recibe el pack como:

[0x16][0x22][0x22][0xB0][0x5A][0x14][0x3C][0x00]

Lo cual es correcto.

Pero si en vez de enviar recibe[], mando uno a uno sus componentes:

putc(dato0);
putc(dato1);
putc(dato2);
putc(dato3);
putc(dato4);
putc(dato5);
putc(dato6);
putc(dato7);

Recibo lo siguiente, que no es lo esperado:

[0x16][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x22][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x22][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0xB0][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x5A][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x14][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x3C][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x00][0x00][0x00][0x00][0x00][0x00][0x00][0x00]

Lo cual provoca que mi proyecto no funcione, por el "exceso" de datos extras que vienen con
cada dato0,1,...7.

Admito que me cuesta trabajo entender los arreglos, porque tal parece que:

recibe[0] está compuesto por dato0[0], dato0[1], ......dato0[7]
recibe[1] está compuesto por dato1[0], dato1[1], ......dato1[7]

y así todos los demás.

De todos modos mando mi código completo en Cpp por si alguien tiene una idea de cómo solucionarlo.

Gracias.
.gz
18f14k50_cdc_usb_sc6928.c.tar.gz (Tamaño: 3 KB Descargas: 0)
]]>
Estoy haciendo un programa en Cpp el cual ya compilado se carga en un microcontrolador.

El uC recibirá un pack de datos (22,34,34,176,90,20,60,0) que se definen de la siguiente manera:


#define dato0  recibe[0]
#define dato1  recibe[1]
#define dato2  recibe[2]
#define dato3  recibe[3]
#define dato4  recibe[4]
#define dato5  recibe[5]
#define dato6  recibe[6]
#define dato7  recibe[7]

int8 recibe[8];     // Éste es el Pack

Justo después de recibir el pack, se envía el mismo a una PC vía Serial (RS-232) en modo Bytes
(no string) de la siguiente manera:

putc(recibe[]);

Y en la PC, usando CuteCom en modo HEX como Software Serial, se recibe el pack como:

[0x16][0x22][0x22][0xB0][0x5A][0x14][0x3C][0x00]

Lo cual es correcto.

Pero si en vez de enviar recibe[], mando uno a uno sus componentes:

putc(dato0);
putc(dato1);
putc(dato2);
putc(dato3);
putc(dato4);
putc(dato5);
putc(dato6);
putc(dato7);

Recibo lo siguiente, que no es lo esperado:

[0x16][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x22][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x22][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0xB0][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x5A][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x14][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x3C][0x00][0x00][0x00][0x00][0x00][0x00][0x00]
[0x00][0x00][0x00][0x00][0x00][0x00][0x00][0x00]

Lo cual provoca que mi proyecto no funcione, por el "exceso" de datos extras que vienen con
cada dato0,1,...7.

Admito que me cuesta trabajo entender los arreglos, porque tal parece que:

recibe[0] está compuesto por dato0[0], dato0[1], ......dato0[7]
recibe[1] está compuesto por dato1[0], dato1[1], ......dato1[7]

y así todos los demás.

De todos modos mando mi código completo en Cpp por si alguien tiene una idea de cómo solucionarlo.

Gracias.
.gz
18f14k50_cdc_usb_sc6928.c.tar.gz (Tamaño: 3 KB Descargas: 0)
]]> <![CDATA[PSeInt - Pseudo interprete]]> https://gambas-es.org/thread-395.html Tue, 04 May 2021 22:49:05 +0000 tincho]]> https://gambas-es.org/thread-395.html Como didáctico es didáctico, desde la charla en otro tema sobre programación en español me puse a revolver la red de redes y encontré algunas cosas interesante una es PSeudo Intérprete, PSeInt.
https://es.wikipedia.org/wiki/PSeInt
Este es mi primer programa y pantallazo:
[Imagen: skhfoQv.png]
Saludos.]]> Como didáctico es didáctico, desde la charla en otro tema sobre programación en español me puse a revolver la red de redes y encontré algunas cosas interesante una es PSeudo Intérprete, PSeInt.
https://es.wikipedia.org/wiki/PSeInt
Este es mi primer programa y pantallazo:
[Imagen: skhfoQv.png]
Saludos.]]> <![CDATA[Lenguaje C±]]> https://gambas-es.org/thread-268.html Mon, 08 Feb 2021 15:38:16 +0000 Shell]]> https://gambas-es.org/thread-268.html
¿ Qué es eso de C± ?.

Tiene tanto de C++ y de C.

No aparenta ser C#..

Se puede escribir, compilar, editar con un entorno de desarrollo C++, tiene extensión cpp

librosUNED. Fundamentos de la programación

Saludos!]]>
¿ Qué es eso de C± ?.

Tiene tanto de C++ y de C.

No aparenta ser C#..

Se puede escribir, compilar, editar con un entorno de desarrollo C++, tiene extensión cpp

librosUNED. Fundamentos de la programación

Saludos!]]> <![CDATA[Diferencias de C y C++]]> https://gambas-es.org/thread-240.html Thu, 21 Jan 2021 11:51:23 +0000 Shell]]> https://gambas-es.org/thread-240.html
Para los que quieran conocer sus diferencias. Una parte del texto.
 
Cita:C es un lenguaje libre estandarizado por ISO MUY PEQUEÑO que admite programación estructurada (la de toda la vida), nada más. Útil en programación de microchips, sistemas operativos, drivers y programación web... Poco más.

C++ es un lenguaje libre estandarizado por ISO MUY GRANDE, que admite: Programación estructurada (la de toda la vida), la totalidad de la POO (objetos, herencia simple, herencia múltiple, polimorfismo, upcasting, downcasting, RTTI, interfaces, clases abstractas, clases amigas, operadores, sobrecarga... y mil cosas más avanzadas), programación genérica (plantillas, STL, conceptos de contenedores, estructuras de datos genéricas, <b>metaprogramación</b>... es una programación que no dispone ningún otro lenguaje mayoritario por el momento)... y otras características más avanzadas como los punteros inteligentes, programación lambda, programación "física"... También se usa como programación por eventos (MFC, Qt, Gtk y otras GUIs). Se usa para cualquier cosa, desde sistemas operativos hasta los juegos 3D de última generación pasando por servidores, pasando por las típicas aplicaciones de escritorio o un Office o OpenOffice, un reproductor WinAMP y Windows Media Player, un explorador web (Internet Explorer, Mozilla, Firefox...), un cliente eMule, un cliente Torrent.

C# es un invento de Microsoft (lenguaje propietario) que mezcla las características básicas de C++ (no las avanzadas) simplificándolas al estilo Java y ofreciendo un framework. El problema es que es .Net, y deja de ser código nativo/portable. Eso sí, el framework provee bastante facilidad de programación de tareas comunes, al igual que Java. Por ello se genera el debate ¿Java o C#? Su funcionalidad viene a ser parecida. .Net es más nativo y Java más virtual.
....

Diferencias de C y C++

Parece que estamos ante un programador de C++ ( experto en "C")

Muy probablemente "C" haga mucho más.

Saludos]]>
Para los que quieran conocer sus diferencias. Una parte del texto.
 
Cita:C es un lenguaje libre estandarizado por ISO MUY PEQUEÑO que admite programación estructurada (la de toda la vida), nada más. Útil en programación de microchips, sistemas operativos, drivers y programación web... Poco más.

C++ es un lenguaje libre estandarizado por ISO MUY GRANDE, que admite: Programación estructurada (la de toda la vida), la totalidad de la POO (objetos, herencia simple, herencia múltiple, polimorfismo, upcasting, downcasting, RTTI, interfaces, clases abstractas, clases amigas, operadores, sobrecarga... y mil cosas más avanzadas), programación genérica (plantillas, STL, conceptos de contenedores, estructuras de datos genéricas, <b>metaprogramación</b>... es una programación que no dispone ningún otro lenguaje mayoritario por el momento)... y otras características más avanzadas como los punteros inteligentes, programación lambda, programación "física"... También se usa como programación por eventos (MFC, Qt, Gtk y otras GUIs). Se usa para cualquier cosa, desde sistemas operativos hasta los juegos 3D de última generación pasando por servidores, pasando por las típicas aplicaciones de escritorio o un Office o OpenOffice, un reproductor WinAMP y Windows Media Player, un explorador web (Internet Explorer, Mozilla, Firefox...), un cliente eMule, un cliente Torrent.

C# es un invento de Microsoft (lenguaje propietario) que mezcla las características básicas de C++ (no las avanzadas) simplificándolas al estilo Java y ofreciendo un framework. El problema es que es .Net, y deja de ser código nativo/portable. Eso sí, el framework provee bastante facilidad de programación de tareas comunes, al igual que Java. Por ello se genera el debate ¿Java o C#? Su funcionalidad viene a ser parecida. .Net es más nativo y Java más virtual.
....

Diferencias de C y C++

Parece que estamos ante un programador de C++ ( experto en "C")

Muy probablemente "C" haga mucho más.

Saludos]]> <![CDATA[Libro de programación en C]]> https://gambas-es.org/thread-239.html Wed, 20 Jan 2021 16:09:15 +0000 tincho]]> https://gambas-es.org/thread-239.html Les comparto este enlace a un proyecto github que trata de un libro muy bien explicado sobre los inicios de la programación en el lenguaje C.
https://github.com/gorkau/Libro-Programacion-en-C
Espero que les resulte útil.
Saludos.]]> Les comparto este enlace a un proyecto github que trata de un libro muy bien explicado sobre los inicios de la programación en el lenguaje C.
https://github.com/gorkau/Libro-Programacion-en-C
Espero que les resulte útil.
Saludos.]]> <![CDATA[Stat de corelinux libc en gambas.]]> https://gambas-es.org/thread-191.html Thu, 12 Nov 2020 23:02:23 +0000 tincho]]> https://gambas-es.org/thread-191.html Como algunos sabrán la función stat de Gambas no devuelve el inode, no se a que se debe. Este hecho me llevo a investigar el tema y gracias a las enseñanzas del maestro Vuott, que siempre deja ejemplos sobre el uso de Extern y puso un ejemplo de uso de stat de corelinux, convertí eso en una función que si se coloca en un módulo hace lo que el Stat de gambas pero con este parámetro (inode) agregado, pero el caso es que funciona mucho mas rápido para leer los metadatos de un archivo y cuando se trata de miles se nota la diferencia.
Referencia en el foro italiano: Ottenere_alcune_informazioni_generali_sui_file

Código:
Library "libc:6"

Public Struct stat_
  st_dev As Long
  st_ino As Long
  st_nlink As Long
  st_mode As Integer
  st_uid As Integer
  st_gid As Integer
  __pad0 As Integer
  st_rdev As Long
  st_size As Long
  st_blksize As Long
  st_blocks As Long
  st_atime As Long
  st_atimensec As Long
  st_mtime As Long
  st_mtimensec As Long
  st_ctime As Long
  st_ctimensec As Long
  __glibc_reserved[3] As Long
End Struct

Private Const _STAT_VER_LINUX As Integer = 1
Private Extern __xstat(_STAT_VER As Integer, __path As String, __statbuf As Stat_) As Integer

'' Create a file parameters list using the GNU coreutils program stat. Note: the tags for access to the information are:<br>
'' Dev, Ino, Path, Link, Mode, SetUID, SetGID, Rdev, Size, BlkSize, Blocks, LastAccess, LastModified, LastChange<br>
'' Original <https://www.gambas-it.org/wiki/index.php?title=Stat_()>

Public Sub Stat(f As String) As Collection

  Dim i As Integer
  Dim st As New Stat_
  Dim inf As New Collection

  i = __xstat(_STAT_VER_LINUX, f, st)
  If i < 0 Then Error.Raise("Function error '__xstat()' !")

  With st
    inf.Add(.st_dev, "Dev")
    inf.Add(.st_ino, "Ino")
    inf.Add(f, "Path")
    inf.Add(.st_nlink, "Link")
    inf.Add(.st_mode, "Mode")
    inf.Add(.st_uid, "SetUID")
    inf.Add(.st_gid, "SetGID")
    inf.Add(.st_rdev, "Rdev")
    inf.Add(.st_size, "Size")
    inf.Add(.st_blksize, "BlkSize")
    inf.Add(.st_blocks, "Blocks")
    inf.Add(.st_atime, "LastAccess")
    inf.Add(.st_mtime, "LastModified")
    inf.Add(.st_ctime, "LastChange")
  End With
  Return inf
End

Saludos.]]> Como algunos sabrán la función stat de Gambas no devuelve el inode, no se a que se debe. Este hecho me llevo a investigar el tema y gracias a las enseñanzas del maestro Vuott, que siempre deja ejemplos sobre el uso de Extern y puso un ejemplo de uso de stat de corelinux, convertí eso en una función que si se coloca en un módulo hace lo que el Stat de gambas pero con este parámetro (inode) agregado, pero el caso es que funciona mucho mas rápido para leer los metadatos de un archivo y cuando se trata de miles se nota la diferencia.
Referencia en el foro italiano: Ottenere_alcune_informazioni_generali_sui_file

Código:
Library "libc:6"

Public Struct stat_
  st_dev As Long
  st_ino As Long
  st_nlink As Long
  st_mode As Integer
  st_uid As Integer
  st_gid As Integer
  __pad0 As Integer
  st_rdev As Long
  st_size As Long
  st_blksize As Long
  st_blocks As Long
  st_atime As Long
  st_atimensec As Long
  st_mtime As Long
  st_mtimensec As Long
  st_ctime As Long
  st_ctimensec As Long
  __glibc_reserved[3] As Long
End Struct

Private Const _STAT_VER_LINUX As Integer = 1
Private Extern __xstat(_STAT_VER As Integer, __path As String, __statbuf As Stat_) As Integer

'' Create a file parameters list using the GNU coreutils program stat. Note: the tags for access to the information are:<br>
'' Dev, Ino, Path, Link, Mode, SetUID, SetGID, Rdev, Size, BlkSize, Blocks, LastAccess, LastModified, LastChange<br>
'' Original <https://www.gambas-it.org/wiki/index.php?title=Stat_()>

Public Sub Stat(f As String) As Collection

  Dim i As Integer
  Dim st As New Stat_
  Dim inf As New Collection

  i = __xstat(_STAT_VER_LINUX, f, st)
  If i < 0 Then Error.Raise("Function error '__xstat()' !")

  With st
    inf.Add(.st_dev, "Dev")
    inf.Add(.st_ino, "Ino")
    inf.Add(f, "Path")
    inf.Add(.st_nlink, "Link")
    inf.Add(.st_mode, "Mode")
    inf.Add(.st_uid, "SetUID")
    inf.Add(.st_gid, "SetGID")
    inf.Add(.st_rdev, "Rdev")
    inf.Add(.st_size, "Size")
    inf.Add(.st_blksize, "BlkSize")
    inf.Add(.st_blocks, "Blocks")
    inf.Add(.st_atime, "LastAccess")
    inf.Add(.st_mtime, "LastModified")
    inf.Add(.st_ctime, "LastChange")
  End With
  Return inf
End

Saludos.]]> <![CDATA[LibreDWG types map in Gambas]]> https://gambas-es.org/thread-168.html Sun, 01 Nov 2020 18:14:09 +0000 tincho]]> https://gambas-es.org/thread-168.html Dejo un resumen de los tipos de variables que maneja LibreDwg y su conversión gambas.
[Imagen: n6CtV4t.png]
Saludos.]]> Dejo un resumen de los tipos de variables que maneja LibreDwg y su conversión gambas.
[Imagen: n6CtV4t.png]
Saludos.]]> <![CDATA[Traducir una Estructura de C en una de Gambas]]> https://gambas-es.org/thread-166.html Sun, 01 Nov 2020 14:55:23 +0000 tincho]]> https://gambas-es.org/thread-166.html Me dieron un indicio en la lista internacional de gambas sobre el uso de una librería C en gambas ahora estoy intentando traducir un struct.
https://git.savannah.gnu.org/cgit/libred...wg.h#n8846
Si alguien puede decirme como se hace esto u orientarme un poco me seria de ayuda.
Saludos.]]> Me dieron un indicio en la lista internacional de gambas sobre el uso de una librería C en gambas ahora estoy intentando traducir un struct.
https://git.savannah.gnu.org/cgit/libred...wg.h#n8846
Si alguien puede decirme como se hace esto u orientarme un poco me seria de ayuda.
Saludos.]]> <![CDATA[Usando Extern entendiendo C]]> https://gambas-es.org/thread-165.html Sun, 01 Nov 2020 02:08:41 +0000 tincho]]> https://gambas-es.org/thread-165.html
Si se tiene una función en un archivo.h de este tipo:
Código:
EXPORT int dwg_read_file (const char *restrict filename, Dwg_Data *restrict dwg);
Es correcto hacer esto en gambas?
Código:
Private Extern dwg_read_file(filename As String, Dwg_Data As Pointer) As Integer

Seria esto?
nombre_de_la_funcion(nombre_del_archivo As String, salida_de_los_datos As Pointer) As Integer

Saludos.]]>
Si se tiene una función en un archivo.h de este tipo:
Código:
EXPORT int dwg_read_file (const char *restrict filename, Dwg_Data *restrict dwg);
Es correcto hacer esto en gambas?
Código:
Private Extern dwg_read_file(filename As String, Dwg_Data As Pointer) As Integer

Seria esto?
nombre_de_la_funcion(nombre_del_archivo As String, salida_de_los_datos As Pointer) As Integer

Saludos.]]> <![CDATA[Leer datos de DWG Extern y libredwg]]> https://gambas-es.org/thread-164.html Sun, 01 Nov 2020 02:04:00 +0000 tincho]]> https://gambas-es.org/thread-164.html Hice una prueba muy rudimentaria con Extern pero no ha funcionado, dejo el código aquí por si alguien tiene ganas de resolverlo.
Código:
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.]]> Hice una prueba muy rudimentaria con Extern pero no ha funcionado, dejo el código aquí por si alguien tiene ganas de resolverlo.
Código:
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.]]>