Flag pra Harbour 3.2 x 3.4

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

Moderador: Moderadores

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

Flag pra Harbour 3.2 x 3.4

Mensagem por JoséQuintas »

Alguém sabe se existe uma flag pra ser colocada no fonte pra definir se é 3.2 ou 3.4?

Algo do tipo #ifdef __HARBOUR32__
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/
marcosgambeta
Usuário Nível 3
Usuário Nível 3
Mensagens: 332
Registrado em: 16 Jun 2005 22:53

Flag pra Harbour 3.2 x 3.4

Mensagem por marcosgambeta »

José,

Você pode usar o include hbver.h. Veja o exemplo abaixo:

Código: Selecionar todos

#include "hbver.h"

PROCEDURE Main()

#if __HARBOUR__ == 0x030400
   ? "Harbour 3.4"
#else
   ? "Not Harbour 3.4"
#endif

RETURN
Atenciosamente,
Marcos Antonio Gambeta
marcosgambeta
Usuário Nível 3
Usuário Nível 3
Mensagens: 332
Registrado em: 16 Jun 2005 22:53

Flag pra Harbour 3.2 x 3.4

Mensagem por marcosgambeta »

Segue um segundo exemplo:

Código: Selecionar todos

#include "hbver.h"

PROCEDURE Main()

#if __HARBOUR__ == 0x030400
   ? "Harbour 3.4"
#elif __HARBOUR__ == 0x030200
   ? "Harbour 3.2"
#else
   ? "Not Harbour 3.4 and not Harbour 3.2"
#endif

RETURN
Atenciosamente,
Marcos Antonio Gambeta
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Flag pra Harbour 3.2 x 3.4

Mensagem por JoséQuintas »

Valeu.
Conferi, e tem o arquivo no 3.2 e no 3.4
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/
Responder