Testing getting errno with Gambas3

main.c

#include <stdio.h>
#include <gpiod.h>
#include <errno.h>

int main(int argc, char *argv[])
{
	struct gpiod_chip *chip;
	int ret;

	chip = gpiod_chip_open_by_number(0);
    ret = errno;

    printf("Errno :: %d\n", ret);

	if (!chip) {
        return ret;
    }
	
	return 0;
}

main.module

' Gambas module file

Library "libgpiod:2"
Extern gpiod_version_string() As String In "libgpiod:2"
Extern gpiod_chip_open_by_number(chip As Integer) As Pointer In "libgpiod:2"

Public Sub Main()

  Dim chip As Pointer
  Dim ret As Integer

  chip = gpiod_chip_open_by_number(0)
  ret = System.Error

  Print "Errno :: " & ret

  If IsNull(chip) Then
    Quit ret
  Endif

  Quit 0

End