Clipper On Line • Ver Tópico - Ferramentas simples

Ferramentas simples

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Ferramentas simples

Mensagempor JoséQuintas » 07 Ago 2019 13:38

O lado chato dessas coisas é que quem precisa não sabe mexer.
Quando a gente formata a máquina, ou troca de máquina, é configurar tudo de novo.
É relativamente fácil, mas... a gente pode esquecer de coisas.

Meu pré-hbmk é uma ajuda nisso.
Mas cada um precisa ajustar de acordo com o que usa.

/*
BUILD - PRE-COMPILACAO
José Quintas
*/

REQUEST errorsys

#include "directry.ch"

FUNCTION Main( ... )

   LOCAL aParams

   SetMode( 38, 132 )
   aParams := hb_AParams()
   CheckPath()
   checkHbmkHbc()
   CheckGetEnv()
   CheckBuild()
   WriteBat( aParams )
   Inkey(2)

   RETURN NIL

STATIC FUNCTION WriteBat( aParams )

   LOCAL oElement, cPath, cCmd := "", cBatFile := "d:\tools\util\c.bat"

   cPath := Upper( hb_cwd() )

   DO CASE
   CASE "\HMGE\"  $ cPath ; AAdd( aParams, "hmge.hbc" )
   CASE "\HMG3\"  $ cPath ; AAdd( aParams, "hmg3.hbc" )
   CASE "\OOHG"   $ cPath ; AAdd( aParams, "oohg.hbc" )
   CASE "\HWGUI\" $ cPath ; AAdd( aParams, "hwgui.hbc" )
   ENDCASE
   IF Len( aParams ) != 0 .AND. aParams[ 1 ] == "/cmd"
      hb_ADel( aParams, 1, .T. )
   ELSEIF Len( Directory( "*.hbp" ) ) != 0
      AAdd( aParams, "*.hbp" )
   ELSEIF Len( Directory( "*.prg" ) ) != 0
      Aadd( aParams, "*.prg" )
      AAdd( aParams, "*.rc" )
   ELSE
      ? hb_cwd()
      Inkey(0)
   ENDIF
   AAdd( aParams, "-workdir=c:\temp" )
   //AAdd( aParams, "-quiet" )
   AAdd( aParams, "-q" )
   AAdd( aParams, "-I" + hb_FNameDir( hb_ProgName() ) )
   cCmd += "HBMK2 "
   FOR EACH oElement IN aParams
      cCmd += oElement + " "
   NEXT
   cCmd := hb_ProgName() + " %*" + hb_Eol() + cCmd + hb_Eol()
   DO CASE
   CASE "\SJPA\"     $ cPath .AND. File( "..\sjpa.exe" );  cCmd += "assina ..\sjpa.exe" + hb_Eol()
   CASE "\HAROLDO\"  $ cPath .AND. File( "hl.exe" );       cCmd += "assina hl.exe" + hb_Eol()
   CASE "\LABOROIL\" $ cPath .AND. File( "nfe.exe" );      cCmd += "assina nfe.exe" + hb_Eol()
   CASE "\BUILD\"    $ cPath .AND. File( "build.exe" );    cCmd += "assina build.exe" + hb_Eol()
   CASE "\INTEGRA\"  $ cPath .AND. File( "jpa.exe" );      cCmd += "assina jpa.exe" + hb_Eol()
   ENDCASE
   ? "Atualizando " + cBatFile
   hb_MemoWrit( cBatFile, cCmd )

   RETURN NIL

STATIC FUNCTION CheckHbmkHbc()

   LOCAL lUpdate := .F., cParam, cTxt := "", cFileHbmk, cPath
   LOCAL aParams := { ;
      "mt=yes", ;
      "gui=yes", ;
      "strip=yes", ;
      "compr=yes", ;
      "libpaths=d:/cdrom/fontes/integra/sefazclass", ;
      "libpaths=d:/cdrom/fontes/integra/josequintas", ;
      "libpaths=d:/cdrom/fontes/integra/josequintas/bostaurus", ;
      "libpaths=d:/github/allgui/hmg3", ;
      "libpaths=d:/github/allgui/hmge", ;
      "libpaths=d:/github/allgui/hwgui", ;
      "libpaths=d:/github/allgui/oohg", ;
      "CFLAGS=-Wno-implicit-fallthrough -Wno-cast-function-type -Wno-misleading-indentation", ;
      "PRGFLAGS=-m -n -w3 -es2 -ge1" }

   cPath := CheckFileOnPath( "hbmk2.exe" )
   IF Empty( cPath )
      ? "hbmk2.exe not found on path to check hbmk.hbc"
      RETURN NIL
   ENDIF
   IF Right( cPath, 1 ) != "\"
      cPath += "\"
   ENDIF
   cFileHbmk := cPath + "hbmk.hbc"
   IF File( cFileHbmk )
      cTxt := MemoRead( cFileHbmk )
      IF Right( cTxt, 2 ) != hb_Eol()
         cTxt += hb_Eol()
      ENDIF
   ENDIF
   IF "xharbour" $ Lower( cPath  )
      AAdd( aParams, "-xhb" )
   ENDIF
   FOR EACH cParam IN aParams
      IF ! cParam $ cTxt
         cTxt += cParam + hb_Eol()
         lUpdate := .T.
      ENDIF
   NEXT
   IF lUpdate
      hb_MemoWrit( cFileHbmk, cTxt )
   ENDIF

   RETURN NIL

STATIC FUNCTION CheckGetEnv()

   LOCAL oElement
   LOCAL aList := { ;
      { "HB_BUILD_DYN", "no" }, ;
      { "HB_BUILD_CONTRIB_DYN", "no" }, ;
      { "HB_BUILD_STRIP", "all" }, ;
      { "HB_COMPILER", "mingw" }, ;
      { "HB_INSTALL_PREFIX", "" } }

   FOR EACH oElement IN aList
      IF GetEnv( oElement[ 1 ] ) != oElement[ 2 ] .OR. Empty( GetEnv( oElement[ 1 ]  ) )
         ? "Not found SET " + oElement[ 1 ] + "=" + oElement[ 2 ]
      ENDIF
   NEXT

   RETURN NIL

STATIC FUNCTION CheckPath()

   LOCAL cFile

   FOR EACH cFile IN { "hbmk2.exe", "gcc.exe", "harbour.exe", "upx.exe", "c.bat" }
      IF Empty( CheckFileOnPath( cFile ) )
         ? cFile + " not in PATH"
      ENDIF
   NEXT

   RETURN NIL

STATIC FUNCTION CheckFileOnPath( cFile )

   LOCAL cPath, cPathFile

   cFile := Lower( cFile )
   FOR EACH cPath IN hb_RegExSplit( ";", GetEnv( "PATH" ) )
      IF Right( cPath, 1 ) != "\"
         cPath := cPath + "\"
      ENDIF
      IF File( cPath + cFile )
         cPathFile := cPath
         EXIT
      ENDIF
   NEXT

   RETURN cPathFile

STATIC FUNCTION CheckBuild()

   LOCAL cDateTime, cTxt, nBuildNum, cFileName, cLastPath

   cFileName  := hb_FNameDir( hb_ProgName() ) + hb_FNameName( hb_ProgName() )
   cDateTime  := Dtos( Date() ) + Substr( Time(), 1, 2 ) + Substr( Time(), 4, 2 )

   cTxt       := MemoRead( cFileName + ".xml" )

   nBuildNum  := Val( XmlNode( cTxt, "BuildNum" ) ) + 1
   cLastPath  := XmlNode( cTxt, "LastPath" )

   IF ! Upper( cLastPath ) == Upper( hb_cwd() )
      DeleteContent( "c:\temp", .F. )
      // DeleteContent( "c:\users\joseq\appdata\local\temp", .F. )
   ENDIF

   cTxt := "#define JOSEQUINTAS_VERSAO    " + ["]  + Transform( cDateTime, "@R 9999.99.99.9999" ) + ["] + hb_Eol()
   cTxt += "#define JOSEQUINTAS_VERSAO_RC  " + Transform( cDateTime, "@R 9999,99,99,9999" ) + hb_Eol()
   hb_MemoWrit( cFileName + ".ch", cTxt )
   IF File( "build.ch" ) // BHP ou projeto extra
      hb_MemoWrit( "build.ch", cTxt )
   ENDIF

   cTxt := XmlTag( "BuildNum", nBuildNum, 0 ) + hb_Eol()
   cTxt += XmlTag( "LastPath", hb_cwd() ) + hb_Eol()
   cTxt += XmlTag( "BuildDate", Dtos( Date() ) ) + hb_Eol()
   cTxt += XmlTag( "BuildTime", Time() ) + hb_Eol()

   hb_MemoWrit( cFileName + ".xml", cTxt )
   ? "Build atual " + cDateTime

   RETURN NIL

STATIC FUNCTION DeleteContent( cFolder, lDeleteFolder )

   LOCAL oFiles, oFile, lDelete

   hb_Default( @lDeleteFolder, .F. )

   ? "Delete on  " + cFolder
   oFiles := Directory( cFolder + "*.*" )
   FOR EACH oFile IN oFiles
      IF oFile[ F_ATTR ] == "D"
         IF oFile[ F_NAME ] != "." .AND. oFile[ F_NAME ] != ".."
            DeleteContent( cFolder + "\" + oFile[ F_NAME ], .T. )
         ENDIF
      ELSE
         lDelete := .T.
         DO CASE
         CASE hb_FNameExt( oFile[ F_NAME ] ) == ".c"
         CASE hb_FNameExt( oFile[ F_NAME ] ) == ".o"
         CASE oFile[ F_DATE ] != Date()
         CASE Left( oFile[ F_TIME ], 4 ) != Left( Time(), 4 )
         OTHERWISE
            lDelete := .F.
         ENDCASE
         IF lDelete
            ? "Deleting " + cFolder + "\" + oFile[ F_NAME ]
            fErase( cFolder + "\" + oFile[ F_NAME ] )
         ENDIF
      ENDIF
   NEXT
   IF lDeleteFolder
      DirRemove( cFolder )
   ENDIF

   RETURN NIL

FUNCTION HB_GT_SYS()

   REQUEST HB_GT_WVG_DEFAULT

   RETURN NIL

FUNCTION AppVersaoExe()

   RETURN ""



O que ele tem de diferente?
Nada.
Apenas fui colocando o que achava interessante, ou coisas que eu poderia esquecer, ou coisas pra facilitar o dia a dia.

Primeiro princípio básico: um bat pode ser alterado.
tenho meu c.bat em \tools\útil que fica no path.
ele chama este programa, o build.exe
E o build.exe REESCREVE o que vai acontecer depois.
Começa por aí....

---c.bat----
d:\cdrom\fontes\build\build.exe %*


Em CheckGetEnv(), ele verifica se configurei as variáveis de ambiente do Harbour, isso faz parte do meu trabalho do dia a dia.

Em CheckPath(), ele verifica se os utilitários do Harbour estão no PATH, isso faz parte do meu dia a dia

Em CheckBuild(), ele vai atualizando o arquivo que indica versão/build, e também verifica se troquei minha pasta de trabalho, fazendo uma limpeza na temporária c:\temp

Em CheckHbmkHbc(), ele verifica se criei a pasta hbmk.hbc na pasta do Harbour, pra configurar minha compilação, com os parâmetros que uso

E finalmente, em WriteBat(), ele coloca o comando do HBMK2 que uso pra compilar.

Qualquer um pode fazer um programa assim, é só ir adicionando o que usa.

Vantagens:

Numa máquina zerada, vai me avisar tudo que preciso configurar.
Olhando o fonte, vejo tudo que uso.
Limpa minha pasta temporária ao trocar de projeto, pra eu não esquecer, e não misturar compilações
Já cria o comando do hbmk2 do jeito que uso
Nos programas que preciso assinar, já acrescenta pra assinar
Se forem pastas de minigui, hmg3, hmg extended, oohg, hwgui, já acrescenta o que precisa a mais pra essas LIBs

TODO meu trabalho sempre conferido, mesmo que eu troque de máquina.

A única coisa que preciso fazer é: pra compilar um projeto numa pasta digito C <ENTER>

Acrescentei a opção /cmd, pra poder digitar comandos livres, diferentes do padrão que ele usa.

Quem precisa disso?
Quem se perde pra configurar, e nem sabe configurar direito.
O problema é: vão saber ajustar para suas próprias necessidades?

Está aí pra quem quiser aproveitar a idéia.
Somos todos programadores, podemos fazer ferramentas pra nós.

Pra que espalhar BATs, se dá pra simplificar e centralizar?
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11905
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 759 vezes

Ferramentas simples

Mensagempor JoséQuintas » 07 Ago 2019 13:43

Um outro...
é normal a gente ficar trocando de pasta, pros aplicativos que precisamos mexer mais.
pra que inventar muitos bats?
Criei um com nome intuitivo.. não é pra fazer CD pasta... então chamei de ccd.bat

@echo off
echo.
d:
if "%1" == "f"     cd \cdrom\fontes\integra\sefazclass
if "%1" == "gera"  cd \cdrom\fontes\util\gerador
if "%1" == "h"     cd \cdrom\fontes\haroldo
if "%1" == "hl"    cd \cdrom\fontes\haroldo
if "%1" == "i"     cd \cdrom\fontes\integra
if "%1" == "in"    cd \cdrom\fontes\integra
if "%1" == "jpa"   cd \cdrom\dados\sistemas
if "%1" == "j"     cd \cdrom\fontes\integra\josequintas
if "%1" == "j50"   cd \cdrom\fontes\util\j50
if "%1" == "js"    cd \cdrom\fontes\integra\josequintas\source
if "%1" == "l"     cd \cdrom\fontes\laboroil
if "%1" == "s"     cd \cdrom\fontes\integra\sefazclass
if "%1" == "build" cd \cdrom\fontes\build
if "%1" == "a"     cd \cvsfiles\allgui\allgui
if "%1" == "oohg"  cd \cvsfiles\oohg
if "%1" == "hmg3"  cd \cvsfiles\hmg3
if "%1" == "hmge"  cd \cvsfiles\hmge
if "%1" == "hwgui" cd \cvsfiles\hwgui
if "%1" == "b"     cd \cdrom\fontes\bhp\bhp


ccd f... me leva pra pasta do projeto sefazclass
ccd j... me leva pra pasta do projeto josequintas
ccd i... me leva pra pasta do projeto integrado, meu ERP
ccd h... me leva pra pasta do projeto da imobiliária (h=inicial da empresa)
ccd b... me leva pra pasta do projeto Flagship (b=inicial da empresa)
e por aí vai.
simples e prático.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11905
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 759 vezes

Ferramentas simples

Mensagempor JoséQuintas » 07 Ago 2019 13:48

Como meu aplicativo ficou dividido em várias partes.... sefazclass, josequintas, integra, etc. complicou saber aonde foram parar os fontes.
Vou abrir um fonte... aonde está?
Então... lá vai outro bat pra ajudar...

@echo off
pushd .
if "%1" == "" goto :continue
if not exist %1 cd \cdrom\fontes\integra\sefazclass\source
if not exist %1 cd \cdrom\fontes\integra\josequintas\source
if not exist %1 cd \cdrom\fontes\integra\josequintas\prg
if not exist %1 cd \cdrom\fontes\integra\josequintas\main
if not exist %1 cd \cdrom\fontes\haroldo
if not exist %1 cd \cdrom\fontes\integra
:continue
start d:\tools\pnotepad\pn.exe %*
popd


O que ele faz?
Ao invés de eu procurar o fonte, ele procura pra mim e já abre.
q jpa.prg

o q... é herança do QEdit.... criei na época pra me forçar a NÃO usar o QEdit, carregando o PNotepad no lugar do QEdit.
Ficou até hoje... rs
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11905
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 759 vezes

Ferramentas simples

Mensagempor JoséQuintas » 07 Ago 2019 13:59

São essas "coisinhas" que ajudam a ganhar tempo no dia a dia.

O PNotepad lembra dos arquivos abertos... ok... mas... porque não deixar facilitado?

Voltando ao build....
Ele poderia configurar automático tudo?
Talvez... mas aí vou acabar esquecendo tudo.
Se ele me mostrar, já é uma graaaande ajuda, e ele vai estar sempre refrescando minha memória.

Se daqui um ano eu esquecer... acho que não vou... mas vai ser só olhar esse fonte, que vai estar tudo centralizado num só lugar.

1001 utilidades.

O principal do build.exe:
Por ser fonte.... entra no backup do git/GitHub.
Tá sempre salvo.

Já arquivos bat.... é normal a gente perder, multiplicar... etc.
É tudo coisa simples, e por ser tão simples, geralmente a gente não faz.
Nada impede de fazer do jeito comum, digitar hbmk2 alguma coisa, cd pasta, etc.

O mesmo pode ser feito pra Clipper, XHarbour, Linux, tudo misturado... tanto faz.

É só organizar o HD, vai começar a se livrar de bats velhos que só complicam...
Vai se livrando de um de cada vez, até se livrar da maioria...
Melhor pra trabalhar, melhor pra backup, melhor pra encontrar aonde está, melhor pra tudo.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11905
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 759 vezes

Ferramentas simples

Mensagempor JoséQuintas » 07 Ago 2019 18:19

Faltou dizer:

Salvar na pasta do Harbour? NÃO
Salvar na pasta do Clipper? NÃO

Tem usuário que faz isso, esquece, troca Harbour ou Clipper, ou vai de Clipper pra Harbour, e depois não sabe porque não funciona.
Ou salva LIBs junto com Clipper, e depois fica pensando que não usa LIBs..., etc.

Ferramentas? porque não numa pasta ferramentas.
O nome é grande? então vai em inglês: tools

LIBs especiais? uma pasta LIB, e dentro dela pasta para as LIBs especiais.
Ou até no ramo de trabalho: \trabalho\lib
Nesse caso tem mais é que chamar a atenção mesmo: se usa algo diferente, tem que lembrar disso sempre, e de vez em quanto confirmar se não pode se livrar dessa lib "diferente".
Isso também é problema pra alguns programadores Clipper: como fica tudo misturado, esquecem que usam, e depois não entendem porque no Harbour acusa falta de funções.

Já comentei disso: comecem a organizar o HD. Vão ver quanto lixo pode acabar sumindo.
Sem pressa, uma LIB por vez. Não pode correr o risco de apagar LIB de uma versão que precisava, ou de precisar de várias versões da mesma LIB e apagar durante a limpeza.
Aproveita quando for compilar um projeto, e ajusta somente aquele projeto, vai estar com a mão na massa, vai estar conferindo se continua funcionando.
Pronto.
Gostou? Viu vantagem? se prepara pra quando der fazer a mesma coisa com outro.

Já organiza pensando também no backup, isso é importante, pra ter certeza que o backup é completo.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 11905
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 12 vezes
Mens.Curtidas: 759 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 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
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro