Como funciona o #command read do std.ch ?

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

lwinter
Usuário Nível 3
Usuário Nível 3
Mensagens: 123
Registrado em: 07 Mar 2011 12:08
Localização: Campinas - SP

Como funciona o #command read do std.ch ?

Mensagem por lwinter »

Pessoal, estou tentando entender o comando #command read que consta no std.ch mas tenho uma duvida quanto a ultima instrucao ao final do comando "(GetList)" .

#command READ => ReadModal( GetList ) ; GetList := {} ; ( GetList )

Alguem saberia me dizer do que se trata?
Eu precisava alterar o getsys.prg para incluir mais um parametro de cordenadas do mouse, para que o GET passe a aceitar eventos de botoes em console. Ja esta praticamente tudo certo só falta isso.
Na realidade eu gostaria de entender pra nao cometer nenhum bobagem e tambem ganhar tempo.

Penso em assim:
ReadModal (GetList, nPos, lIsMouse, getMouseButtons )
GetList = {}

Posso fazer assim? ou falta alguma coisa? Digo isso pois nao entendi o "(GetList)" e se isso pode complicar algo.

Obriagdo!
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Como funciona o #command read do std.ch ?

Mensagem por JoséQuintas »

lwinter escreveu:Alguem saberia me dizer do que se trata?
Não significa nada.
Até já usei isso pra compilar LIBs gráficas com -w3 -es2.

Código: Selecionar todos

PROCEDURE Main

   LOCAL x

   (x)

   RETURN
Só elimina o erro de compilação por não usar a variável.
Desse jeito usa.... pra nada, mas usa.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Como funciona o #command read do std.ch ?

Mensagem por JoséQuintas »

Retirado do std.ch:

Código: Selecionar todos

#define HB_SYMBOL_UNUSED( symbol )  ( ( symbol ) )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
Vlademiro
Usuário Nível 4
Usuário Nível 4
Mensagens: 752
Registrado em: 11 Jul 2005 02:46

Como funciona o #command read do std.ch ?

Mensagem por Vlademiro »

Interessante. Já tava pensando que era um erro.
lwinter
Usuário Nível 3
Usuário Nível 3
Mensagens: 123
Registrado em: 07 Mar 2011 12:08
Localização: Campinas - SP

Como funciona o #command read do std.ch ?

Mensagem por lwinter »

Quer dizer que se eu compilar com (variavel) engana o compilador com as diretivas -es2 -w3?
Interessante mesmo! Cada dia aprendendo um pouco de Harbour.
lwinter
Usuário Nível 3
Usuário Nível 3
Mensagens: 123
Registrado em: 07 Mar 2011 12:08
Localização: Campinas - SP

Como funciona o #command read do std.ch ?

Mensagem por lwinter »

testei e nao é que funcionou!!!
Muito bom agora vou tapear o compilador quando precisar....kkkk... as vezes estou no meio do dev e tenho que ficar inventado moda para compilar , agora nao preciso mais.
Avatar do usuário
Vlademiro
Usuário Nível 4
Usuário Nível 4
Mensagens: 752
Registrado em: 11 Jul 2005 02:46

Como funciona o #command read do std.ch ?

Mensagem por Vlademiro »

Esse GetList é uma variável private, provavelmente. Se for ainda acho melhor usar local GetList := {}. É como eu fazia na época do Clipper. Isso evita problemas com gets aninhados. Continua sendo uma boa prática.
Responder