Estrarre il valore di una costante definita in un file d'intestazione in C

Per estrarre il valore di una Costante eventualmente presente in un file d'intestazione (header file), e definita con la parola #define o Const, oppure il valore esplicitamente assegnato ad un elemento di unaEnumerazione, evitando così di dichiarane una identica anche nel codice Gambas, si potranno utilizzare un paio di codici esemplificativi.

1° esempio

In questo esempio i due parametri di tipo stringa della funzione rappresentano rispettivamente: - "fileh" = il percorso del file d'intestazione scritto in C;
- "costante" = il preprocessore "#define" seguito dal nome identificativo della costante di cui si intende estrarre il valore definito.

Private Function RicavaCostante(fileh As String, costante As String) As String
 
 Dim fl As File
 Dim s As String

   fl = Open fileh
   
   While True
     s = fl.ReadLine()
     If s Begins costante Then
       s = Replace$(s, costante, Null)
' Elimina un eventuale commento alla destra del valore della costante:
       If s Like "*/*" Then s = Trim(Left(s, InStr(s, "/") - 1))
' Adatta un eventuale valore esadecimale per una sua corretta gestione nel codice Gambas:
       If s Begins "0x" Then s = Trim(Replace(s, "0x", "00"))
       Break
     Endif
   Wend
   
   fl.Close()
   
   Return s
 
End

2° esempio

In quest'altro esempio si intende cercare il valore della costante M_PI dichiarata ed istanziata nel file d'intestazione "math.h":

Public Sub Main()
 
 Dim percorso_file, obiettivo, ris As String
  
  percorso_file = "/usr/include/math.h"
  If Not Exist(percorso_file) Then Error.Raise("Percorso o file Errato !")
   
  obiettivo = "# define M_PI"
   
  ris = Estrai_valore(percorso_file, obiettivo)
   
  Print ris
  
End


Private Function Estrai_valore(percorso As String, ob As String) As String
 
 Dim s As String
  
  s = File.Load(percorso)
  If InStr(s, ob) = 0 Then Error.Raise("Definizione '" & ob & "' inesistente in: " & percorso)
  
  s = Scan(s, "*" & ob & "*\n*")[1]
   
  If InStr(s, "/") > 0 Then
    s = Scan(s, "*/*")[0]
  Endif
  s = Trim(s)
  If Right(s, 1) = "," Then s = Left(s, Len(s) - 1)
   
  Return s
     
End

3° esempio

In questo esempio verrà estratto il valore della Costante prescelta mediante la creazione di un'apposita libreria dinamica condivisa .so, che restituirà il predetto valore.

Mostriamo un possibile codice, nel quale si otterrà - a mo' di esempio - il valore della Costante M_E definita nel file header /usr/include/math.h.

Library "/tmp/lib_Cost"

' double Estrae_Costante(void)
' Ritorna il valore della costante prescelta.
Private Extern Estrae_Costante() As Float


Public Sub Main()
 
 Dim cost As Float
 Dim parametri As String[]
 
' Nel primo elemento è presente il file header contenente la costante prescelta.
' Nel secondo elemento è presente il tipo di valore restituito dalla funzione esterna della libreria .so .
' Nel terzo elemento è presente l'identificatore della Costante, di cui intendiamo ottenere il valore.
  parametri = ["#include <math.h>", "double", "M_E"]
  
' Va a creare l'apposita libreria esterna dinamica condivisa .so:
  CreaSo(parametri)
 
' Richiama la funzione esterna contenuta nell'apposita libreria esterna dinamica condivisa .so:
  cost = Estrae_Costante()
 
' Mostra in fine il valore della Costante richiesta:
  Print "Il valore della Costante '"; parametri[2]; "', contenuta nel file header '"; parametri[0]; "', è:\n\n"; cost
  
End
 
 
Private Procedure CreaSo(prm As String[])
  
' Imposta il codice sorgente in C dell'apposita libreria esterna dinamica condivisa .so:
  File.Save("/tmp/lib_Cost.c", prm[0] &
            "\n\n" &
            prm[1] & " Estrae_Costante() {" &
            "\n\n" &
            "   return " & prm[2] & ";" &
            "\n\n}")
  
' Genera l'apposita libreria esterna dinamica condivisa .so:
  Shell "gcc -o /tmp/lib_Cost.so /tmp/lib_Cost.c -shared -fPIC" Wait
 
End