romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 394 fdbozzo - 06/08/2014 23:45:03:

Browse Source 
- Arreglo bug ";" y "," antes de EndText
This commit is contained in:
fdbozzo
2014-08-07 00:11:46 +02:00
parent 130899a4ba
commit 8cea2ff6d0
6 changed files with 62 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
foxbin2prg.prg
View File

@@ -3164,10 +3164,11 @@ DEFINE CLASS c_conversor_base AS SESSION
DO CASE
CASE .elTextoEvaluadoEsElTokenIndicado( @lcLine, @ta_ID_Bloques, lnLen_IDFinBQ, X, 1 ) ;
AND NOT THIS.currentLineIsPreviousLineContinuation( @taCodeLines, I )
*-- Busca el primer marcador (#IF o TEXT)
lnAnidamientos = lnAnidamientos + 1
CASE .elTextoEvaluadoEsElTokenIndicado( @lcLine, @ta_ID_Bloques, lnLen_IDFinBQ, X, 2 ) ;
AND NOT THIS.currentLineIsPreviousLineContinuation( @taCodeLines, I )
CASE .elTextoEvaluadoEsElTokenIndicado( @lcLine, @ta_ID_Bloques, lnLen_IDFinBQ, X, 2 )
*-- Busca el segundo marcador (#ENDIF o ENDTEXT)
lnAnidamientos = lnAnidamientos - 1
IF lnAnidamientos = 0