From b01ee41affb9d3f3cc1e2dcf559e54862ca87a7f Mon Sep 17 00:00:00 2001 From: Patrick Mast Date: Tue, 14 Aug 2001 21:54:10 +0000 Subject: [PATCH] 2001-08-14 23:53 GMT+1 Patrick Mast * contrib/tprepro/tprepro.prg * Bug fix in TranslateFile() method --- harbour/ChangeLog | 4 ++++ harbour/contrib/tprepro/tprepro.prg | 11 ++--------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5bed754d99..60b5542db3 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-08-14 23:53 GMT+1 Patrick Mast + * contrib/tprepro/tprepro.prg + * Bug fix in TranslateFile() method + 2001-08-13 23:18 GMT+3 Alexander Kresin * source/vm/mainwin.c * added hInstance assignment to hb_hInstance diff --git a/harbour/contrib/tprepro/tprepro.prg b/harbour/contrib/tprepro/tprepro.prg index 43a5bf5d02..55ffd64e66 100644 --- a/harbour/contrib/tprepro/tprepro.prg +++ b/harbour/contrib/tprepro/tprepro.prg @@ -149,7 +149,6 @@ return cResult - METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreprocessor local cStr, cByte, hPPO, cExt, cPP @@ -206,14 +205,10 @@ METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreproce if lWasteNoSpace if !Empty( cPP ) - cResult+= LTrim( cPP ) + cResult+= LTrim( cPP ) + Replicate(CRLF,nPuntComma) endif else - if Empty( cPP ) - cResult+= Replicate(CRLF,nPuntComma) - else - cResult+=cPP + Replicate(CRLF,nPuntComma) - endif + cResult+=cPP + Replicate(CRLF,nPuntComma) endif enddo @@ -239,6 +234,4 @@ METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreproce endif - ::cPreProcessed := cResult - return cResult \ No newline at end of file