Clipper On Line • Ver Tópico - Como funciona o #command read do std.ch ?

Como funciona o #command read do std.ch ?

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

Moderador: Moderadores

 

Como funciona o #command read do std.ch ?

Mensagempor lwinter » 25 Mai 2020 18:41

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!
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Como funciona o #command read do std.ch ?

Mensagempor JoséQuintas » 25 Mai 2020 22:40

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.

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, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Como funciona o #command read do std.ch ?

Mensagempor JoséQuintas » 25 Mai 2020 22:44

Retirado do std.ch:

#define HB_SYMBOL_UNUSED( symbol )  ( ( symbol ) )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"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 de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Como funciona o #command read do std.ch ?

Mensagempor Vlademiro » 25 Mai 2020 22:48

Interessante. Já tava pensando que era um erro.
Avatar de usuário

Vlademiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 749
Data de registro: 11 Jul 2005 02:46
Curtiu: 22 vezes
Mens.Curtidas: 62 vezes

Como funciona o #command read do std.ch ?

Mensagempor lwinter » 26 Mai 2020 14:17

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
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Como funciona o #command read do std.ch ?

Mensagempor lwinter » 26 Mai 2020 14:22

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.
lwinter
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 123
Data de registro: 07 Mar 2011 12:08
Cidade/Estado: Campinas - SP
Curtiu: 1 vez
Mens.Curtidas: 12 vezes

Como funciona o #command read do std.ch ?

Mensagempor Vlademiro » 31 Mai 2020 12:19

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.
Avatar de usuário

Vlademiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 749
Data de registro: 11 Jul 2005 02:46
Curtiu: 22 vezes
Mens.Curtidas: 62 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Bing [Bot], Google [Bot] e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro