Marius Mutu
f1abe5d3c5
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
33 lines
1.4 KiB
Plaintext
33 lines
1.4 KiB
Plaintext
* build_registratura.prg - M6: recompilare completa a proiectului (headless).
|
|
* Rulare: vfp9.exe -A -T "D:\ROA\ROAREGISTRATURA\Teste\build_registratura.prg"
|
|
* Log: D:\ROA\ROAREGISTRATURA\Teste\log_build.txt (+ erori de compilare in .err daca apar)
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
PUBLIC gcBuildLog
|
|
gcBuildLog = 'D:\ROA\ROAREGISTRATURA\Teste\log_build.txt'
|
|
STRTOFILE('=== build_registratura ' + TTOC(DATETIME()) + CHR(13)+CHR(10), gcBuildLog)
|
|
|
|
ON ERROR DO blog WITH '*** EROARE ' + TRANSFORM(ERROR()) + ': ' + MESSAGE() + ;
|
|
' | ' + MESSAGE(1) + ' | prg=' + PROGRAM() + ' lin=' + TRANSFORM(LINENO())
|
|
|
|
SET DEFAULT TO D:\ROA\ROAREGISTRATURA
|
|
* Caile stocate in clasele COMUN pentru include-uri (foxpro.h din VFP8, wincrypt.h)
|
|
* nu mai exista; compilatorul cauta fallback pe SET PATH.
|
|
SET PATH TO "C:\Program Files (x86)\Microsoft Visual FoxPro 9";"D:\ROA\ROACRYPT" ADDITIVE
|
|
DO blog WITH 'BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE ...'
|
|
BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE
|
|
DO blog WITH 'Build incheiat. Verificati roaregistratura.err daca exista.'
|
|
IF FILE('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
|
|
DO blog WITH '--- roaregistratura.err ---'
|
|
DO blog WITH FILETOSTR('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
|
|
ELSE
|
|
DO blog WITH 'FARA erori de compilare (.err inexistent).'
|
|
ENDIF
|
|
ON ERROR
|
|
QUIT
|
|
|
|
PROCEDURE blog
|
|
LPARAMETERS tcMsg
|
|
STRTOFILE(TRANSFORM(tcMsg) + CHR(13)+CHR(10), gcBuildLog, 1)
|
|
ENDPROC
|