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: 20416
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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: 20416
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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