Ricevere un 'segnale' da un programma C

Un applicativo Gambas può ricevere un "segnale" da un programma C, generato al verificarsi di un evento ed inviato mediante le specifiche funzioni previste dal linguaggio C. L'intercettazione mediante la funzione "signal()" da parte di Gambas del segnale, inviato dal programma C, può avvenire solo utilizzando un'apposita libreria esterna condivisa .so, che dovrà essere scritta da noi.

Esempio pratico

Nell'esempio che segue, l'applicativo Gambas avvia per cinquanta volte un programma C passandogli anche il numero identificativo del suo processo. L'applicativo Gambas provvede, altrsì, a gestire il processo del programma C mediante apposita variabile di tipo Process, nonché ponendolo in osservazione con For Read.

Il programma C invia innanzitutto al proprio stdout un messaggio contenente fra l'altro l'Id ricevuto del processo dell'applicativo Gambas. Successivamente esso invia ogni dieci cicli all'interno di un'iterazione For un segnale all'applicativo Gambas, individuato in base all'Id ricevuto del processo Gambas.

L'applicativo Gambas a sua volta riceverà tramite l'apposita libreria esterna condivisa .so, il segnale inviato dal programma C, ed intercetterà quanto scritto dal programma C nel proprio stdout.

Il programma C in questo esempio sarà il seguente:

#include <sys/types.h>
#include <signal.h>
#include <stdlib.h>
#include <stdio.h>


void main(int argc, char **argv) {      /* Riceve il PID del programma Gambas */

  printf(" \"PID applicativo Gambas = %s\"\n", argv[1]);

// Converte il valore stringa di caratteri in Valore numerico intero:
  int i = atoi(argv[1]);

  int n;

  for (n==1; n<=51; n++) {
/* kill() - invia un segnale ad un processo individuato dal suo PID
   contenuto nella variabile "i": */
    if ((n%10)==0) 
    kill(i, SIGUSR1);
  }

}

Il codice dell'apposita libreria condivisa .so, da noi realizzata per ricevere il segnale dal programma C, che chiameremo ad esempio "libadhoc.c" e che porremo nella cartella "Dati" sarà la seguente

#include <stdio.h>
#include <signal.h>


void vai(int);

void Riceve_Segnale() {

/* Se il codice riceve il segnale 'SIGURS1', allora invoca la funzione 'vai' */
  signal(SIGUSR1, vai);

}


void vai(int i) {

    printf("--> La libreria 'libadhoc.so' ha ricevuto segnale da 'programma.c'\n");

}

Il codice dell'appicativo Gambas sarà il seguente:

Private pr As Process

Private Extern Riceve_Segnale() In "/tmp/libadhoc"


Public Sub Main()

 Dim i As Integer

  Shell "gcc -o /tmp/libadhoc.so " & Application.Path &/ "libadhoc.c -shared -fPIC" Wait

' Invoca la funzione della libreria esterna "libadhoc.co"
' per poter ricevere il segnale inviato dal programma C:
  Riceve_Segnale()

  Do
    Wait 0.5
    Inc i
    Print i
    pr = Shell "/tmp/programma " & Application.Handle For Read As "processo"
  Loop Until i = 50

End


Public Sub processo_Read()
 
 Dim s As String

  Line Input #pr, s
  
  Print "\x0AIntercettato invio dati di 'programma.c' allo 'stdout':"; s

End