Protheus :: Variáveis Globais, Threads e outros bichos

Falarei hoje sobre Variáveis Globais (Global Variables) e Threads. Usarei como primeiro exemplo o programa u_sudoku.prg depois escreverei dois estudos de caso.

Conhecemos as variáveis de escopo Public, Private, Static e Local. As variáveis Public e Private podem ser declaradas em qualquer parte do programa. As variáveis Static podem ser externas ou internas. Externas, quando declaradas fora de qualquer Function ou Procedure e no cabeçalho do programa em que estão sendo declaradas. E, internas, quando atreladas à uma Procedure ou Function e logo após a declaração das variáveis de escopo Local. Já as variáveis de escopo Local  apenas depois da declaração da Procedure ou Function e antes de qualquer procedimento.

As variáveis Private tem um tratamento especial, elas podem ser declaradas de três formas:

Explicitamente:

Private nPrivateVar

Implicitamente, atribuindo-se um valor a uma variável não declarada anteriormente, como por exemplo:

IF ( Type("nPrivateNaoDeclarada") == "U" )

nPrivateNaoDeclarada := "Terei o escopo Private e a partir desse ponto todo mundo me vê"

ENDIF

Ou, ainda, através da função _SetOwnerPrvt( cVar , uValue ) uma grande sacada da microsiga. _SetOwnerPrvt() é interessante pois a Private declarada à partir dela pode ser acessada pela função um nível acima de onde foi declarada. Veja como é interessante.

User Function Foo()

Private nPrvtFoo := 10

TestSetOwp()

U_Foo() não tem  acesso a variável Publica declarada Explicitamente em uma rotina de nível inferior.

Type("nPrvtNoSetOwp")  -> "U"

Aqui U_Foo() tem acesso à variável nPrvtSetOwp declarada pela _SetOwnerPrvt()

Type("nPrvtSetOwp")  -> "N"

Return( NIL )

Static Function TestSetOwp()

Neste Ponto TestSetOwp() tem acesso à variável Private declarada um nível acima

Type("nPrvtFoo")  -> "N" 

Declarando dessa forma todas as rotinas a partir deste ponto terão acesso e a rotina chamadora também terá acesso à esse variável

_SetOwnerPrvt( "nPrvtNoSetOwp" , 1512 )

Type("nPrvtNoSetOwp") -> "N" 

Declarando dessa forma apenas as rotinas chamadas à partir desse ponto terão acesso

Private nPrvtNoSetOwp := 1215

Type("nPrvtNoSetOwp")  -> "U" 

Return( NIL )

O Problema dessas variáveis é que elas só estão disponíveis dentro da Thread que as criou, se necessitarmos ter acesso ao conteúdo dessar variáveis em outra Thread não será possível. É aí que entra a variável se escopo Global. Para manipularmos as variáveis de escopo Global teremos que usar as seguintes funções da API:

Para executar o Lock nas Global

GlbLock() 

Para Declarar uma Variável e/ou Atribuir um novo valor

PutGlbValue(  cVar  , cValue ) 

Para liberar o Lock nas Global

GlbUnlock() 

Para obter os valores das Global.

GetGlbValue( cVar )   

Um pequeno fragmanto do código u_sudoku.prg modificado para exemplificar o uso da variável de escopo Global

Tento obter a exclusividade na pilha variáveis de escopo Global

While !( GlbLock() )

Sleep(5)

End While

Se a variavel bStartSudoku não estiver declarada, declaro-a, setanto seu valor Inicial

PutGlbValue( "bStartSudoku" , "1" )

Se a variavel cSudokuTime não estiver declarada, declaro-a, setanto seu valor Inicial

PutGlbValue( "cSudokuTime" , "00:00:00" )

Libero o Lock na pilha de variáveis de escopo Global

GlbUnlock()

Executo StartJob para a criação de uma nova Thread

StartJob( "U_SudokuExec" , GetEnvServer() , .F. , "SudokuTime" , { Time() , 1 } )

Tanto bStartSudoku quanto cSudokuTime poderão ser lidas através de GetGlbValue(cVar)   e modificadas, utilizando  PutGlbValue(cVar,cVal), por qualquer Thread criada à partir de sua declaração e terão validade até que a última Thread seja liberada.