Differenze tra le versioni di "Conoscere la versione di Gambas"

Da Gambas-it.org - Wikipedia.
Riga 9: Riga 9:
 
    
 
    
 
  '''End'''
 
  '''End'''
 
  
 
===Con ''Shell''===
 
===Con ''Shell''===
Riga 22: Riga 21:
 
   
 
   
 
  '''End'''
 
  '''End'''
 +
 +
 +
==Conoscere il numero della revisione di Gambas==
 +
Se gli aggiornamenti alla versione di Gambas vengono effettuati da GIT, per conoscere a quale ''[https://www.atlassian.com/git/tutorials/saving-changes/git-commit Commit]'' di GitLab corrisponde la revisione del proprio Gambas, bisogna individuare la specifica riga nel file "''User.Home & /gambasdevel/main/config.h'' ":
 +
'''Public''' Sub Main()
 +
 +
  Dim s As String
 +
 
 +
  s = File.Load(User.Home &/ "gambasdevel/main/config.h")
 +
 
 +
  s = Scan(s, "*TRUNK_VERSION *\n*")[1]
 +
  Print s
 +
 
 +
'''End'''
 +
Laddove la cartella "''/gambasdevel'' " (se lasciata così chiamata dall'utente di Gambas) è quella contenente i file sorgenti di Gambas nel proprio sistema.

Versione delle 08:07, 3 gen 2022

Possiamo conoscere il numero della versione di Gambas presente nel nostro sistema almeno mediante due modalità.

Con il solo codice Gambas

Se l'aggiornamento della propria versione di Gambas viene effettuato via SVN, allora se ne può conoscere il numero semplicemente leggendolo dal file "VERSION ", presente nella cartella principale dei sorgenti di Gambas.
Se nella cartella principale dei sorgenti di Gambas è chiamata "gambasdevel", allora la versione potrà essere letta con il seguente codice:

Public Sub Main()  
    
 Print "Gambas - versione: "; File.Load(User.Home &/ "gambasdevel/VERSION")
 
End

Con Shell

In generale si potrà utilizzare anche Shell:

Public Sub Main()

 Dim s As String

  Shell "gbx3 --version" To s

  Print s

End


Conoscere il numero della revisione di Gambas

Se gli aggiornamenti alla versione di Gambas vengono effettuati da GIT, per conoscere a quale Commit di GitLab corrisponde la revisione del proprio Gambas, bisogna individuare la specifica riga nel file "User.Home & /gambasdevel/main/config.h ":

Public Sub Main()

 Dim s As String
 
 s = File.Load(User.Home &/ "gambasdevel/main/config.h")
 
 s = Scan(s, "*TRUNK_VERSION *\n*")[1]
 Print s
 
End

Laddove la cartella "/gambasdevel " (se lasciata così chiamata dall'utente di Gambas) è quella contenente i file sorgenti di Gambas nel proprio sistema.