Changeset: 352 fdbozzo - 06/07/2014 15:13:46:

2014-07-06 15:14:40 +02:00
parent ad9b0339a1 cc9f1d9e24
commit df95a12a1a
3 changed files with 18 additions and 8 deletions
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -90,6 +90,7 @@
 * 14/06/2014	FDBOZZO		v1.19.24	Arreglo bug vcx/scx: Un campo de tabla llamado "text" que comienza la l<>nea puede confundirse con la estructura TEXT/ENDTEXT y reconocer mal el resto del c<>digo
 * 16/06/2014	FDBOZZO		v1.19.25	Mejora: Agregado soporte de configuraciones (CFG) por directorio que, si existen, se usan en lugar del principal (Mario Peschke)
 * 17/06/2014	FDBOZZO		v1.19.25	Mejora: Si durante la generaci<63>n de binarios o de textos se producen errores, mostrar un mensaje avisando de ello (Pedro Guti<74>rrez M.)
+* 27/06/2014	FDBOZZO		v1.19.26	Mejora: Si el campo memo "methods" de los vcx/scx contiene asteriscos fuera de lugar (que no deber<65>a), FoxBin2Prg lo procesa igualmente. (Daniel S<>nchez)
 * 06/07/2014	FDBOZZO		v1.19.26	Bug Fix cfg: ExtraBackupLevel no se tiene en cuenta cuando se usa multi-configuraci<63>n
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
@@ -125,6 +126,7 @@
 * 13/06/2014	Mario Peschke		REPORTE BUG vcx/scx v1.19.23: Los campos de tabla con nombre "text" a veces provocan corrupci<63>n del binario generado (Arreglado en v1.19.24)
 * 16/06/2014	Mario Peschke		MEJORA v1.19.24: Agregado soporte de configuraciones (CFG) por directorio que, si existen, se usan en lugar del CFG principal (Agregado en v1.19.25)
 * 17/06/2014	Pedro Guti<74>rrez M.	MEJORA v1.19.24: Si durante la generaci<63>n de binarios o de textos se producen errores, mostrar un mensaje avisando de ello (Agregado en v1.19.25)
+* 27/06/2014	Daniel S<>nchez		MEJORA v1.19.25: Si el campo memo "methods" de los vcx/scx contiene asteriscos fuera de lugar (que no deber<65>a), FoxBin2Prg falla. Deber<65>a poder procesarlo igual.
 * </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
 *
 *---------------------------------------------------------------------------------------------------
@@ -347,7 +349,7 @@ LPARAMETERS tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDeb
 	#DEFINE C_ONLY_SETNAME_AND_GETNAME_RECOGNIZED_LOC			"Operaci<63>n no reconocida. Solo re reconoce SETNAME y GETNAME."
 	#DEFINE C_OUTPUT_FILE_IS_NOT_OVERWRITEN_LOC					"Optimizaci<63>n: El archivo de salida [<<THIS.c_OutputFile>>] no se sobreescribe por ser igual al generado."
 	#DEFINE C_OUTPUTFILE_NEWER_THAN_INPUTFILE_LOC				"Optimizaci<63>n: El archivo de salida [<<THIS.c_OutputFile>>] no se regenera por ser m<>s nuevo que el de entrada."
-	#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedimiento sin cerrar. La <20>ltima l<>nea de c<>digo debe ser ENDPROC. [<<laLineas(1)>>]"
+	#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedimiento sin cerrar. La <20>ltima l<>nea de c<>digo debe ser ENDPROC. [<<laLineas(1)>>, Recno:<<RECNO()>>]"
 	#DEFINE C_PROCESSING_LOC									"Procesando archivo"
 	#DEFINE C_PROCESS_PROGRESS_LOC								"Avance del proceso:"
 	#DEFINE C_PROPERTY_NAME_NOT_RECOGNIZED_LOC					"Propiedad [<<TRANSFORM(tnPropertyID)>>] no reconocida."
@@ -1247,7 +1249,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 					ENDIF
 					tcExtraBackupLevels		= EVL( tcExtraBackupLevels, TRANSFORM( lo_CFG.n_ExtraBackupLevels ) )
 					IF ISDIGIT(tcExtraBackupLevels)
-						lo_CFG.n_ExtraBackupLevels	= INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
+					lo_CFG.n_ExtraBackupLevels	= INT( VAL( TRANSFORM(tcExtraBackupLevels) ) )
 					ENDIF
 					IF INLIST( TRANSFORM(tcOptimizeByFilestamp), '0', '1' ) THEN
 						lo_CFG.l_OptimizeByFilestamp	= NOT (TRANSFORM(tcOptimizeByFilestamp) == '0')
@@ -8527,7 +8529,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 		*-- taCode[1]
 		*--		Bloque de c<>digo del m<>todo en su posici<63>n original
 		TRY
-			LOCAL lnLineCount, laLine(1), I, lnTextNodes, tcSorted, lnProtectedLine, lcMethod, lnLine_Len, lcLine
+			LOCAL lnLineCount, laLine(1), I, lnTextNodes, tcSorted, lnProtectedLine, lcMethod, lnLine_Len, lcLine, llProcOpen
 			LOCAL loEx AS EXCEPTION
 			DIMENSION taMethods(1,3)
 			STORE '' TO taMethods, tcSorted, taCode
@@ -8545,7 +8547,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base

 				*-- Delete beginning empty lines before first "PROCEDURE", that is the first not empty line.
 				FOR I = 1 TO lnLineCount
-					IF NOT EMPTY(laLine(I))
+					IF EMPTY(laLine(I)) OR LEFT( LTRIM(laLine(I)),1 ) = '*'
+						*-- Skip empty and commented lines
+					ELSE
 						IF I > 1
 							FOR X = I-1 TO 1 STEP -1
 								ADEL(laLine, X)
@@ -8559,7 +8563,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base

 				*-- Delete ending empty lines after last "ENDPROC", that is the last not empty line.
 				FOR I = lnLineCount TO 1 STEP -1
-					IF EMPTY(laLine(I))
+					IF EMPTY(laLine(I)) OR LEFT( LTRIM(laLine(I)),1 ) = '*'
 						ADEL(laLine, I)
 					ELSE
 						IF I < lnLineCount
@@ -8611,6 +8615,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 						taMethods(tnMethodCount, 2)	= tnMethodCount
 						taMethods(tnMethodCount, 3)	= ''
 						taCode(tnMethodCount)		= laLine(I) + CR_LF
+						llProcOpen					= .T.

 					CASE lnTextNodes = 0 AND UPPER( LEFT(laLine(I), 17) ) == 'HIDDEN PROCEDURE '
 						tnMethodCount	= tnMethodCount + 1
@@ -8619,6 +8624,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 						taMethods(tnMethodCount, 2)	= tnMethodCount
 						taMethods(tnMethodCount, 3)	= 'HIDDEN '
 						taCode(tnMethodCount)		= laLine(I) + CR_LF
+						llProcOpen					= .T.

 					CASE lnTextNodes = 0 AND UPPER( LEFT(laLine(I), 20) ) == 'PROTECTED PROCEDURE '
 						tnMethodCount	= tnMethodCount + 1
@@ -8627,6 +8633,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 						taMethods(tnMethodCount, 2)	= tnMethodCount
 						taMethods(tnMethodCount, 3)	= 'PROTECTED '
 						taCode(tnMethodCount)		= laLine(I) + CR_LF
+						llProcOpen					= .T.

 					CASE lnTextNodes = 0 AND LEFT(laLine(I), 7) == 'ENDPROC'
 						lcLine		= UPPER( CHRTRAN( laLine(I) , '&'+CHR(9)+CHR(0), '   ') ) + ' '
@@ -8639,8 +8646,11 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 						ENDIF

 						taCode(tnMethodCount)	= taCode(tnMethodCount) + laLine(I) + CR_LF
+						llProcOpen				= .F.

-					CASE tnMethodCount = 0	&& Skip empty lines before methods begin
+					CASE tnMethodCount = 0 OR NOT llProcOpen AND LEFT( LTRIM(laLine(I)),1 ) = '*'
+						*-- Skip empty and commented lines before methods begin
+						*-- Aqu<71> como condici<63>n podr<64>a poner: NOT llProcOpen AND LEFT(laLine(I), 7) # 'ENDPROC', pero abarcar<61>a demasiado.

 					OTHERWISE && Method Code
 						taCode(tnMethodCount)	= taCode(tnMethodCount) + laLine(I) + CR_LF
--- a/foxbin2prg_de.h
+++ b/foxbin2prg_de.h
@@ -35,7 +35,7 @@
 #DEFINE C_ONLY_SETNAME_AND_GETNAME_RECOGNIZED_LOC			"Befehl nicht erkannt. Nur SETNAME und GETNAME erlaubt."
 #DEFINE C_OUTPUT_FILE_IS_NOT_OVERWRITEN_LOC					"Optimierung: Ausgabedatei [<<THIS.c_OutputFile>>] wurde nicht <20>berschrieben da sie dieselbe ist wie die neu generierte."
 #DEFINE C_OUTPUTFILE_NEWER_THAN_INPUTFILE_LOC				"Optimierung: Ausgabedatei [<<THIS.c_OutputFile>>] wurde nicht erneuert da sie neuer ist als die Ursprungsdatei."
-#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedur nicht geschlossen. Letzte Zeile des Codes muss ENDPROC sein. [<<laLineas(1)>>]"
+#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedur nicht geschlossen. Letzte Zeile des Codes muss ENDPROC sein. [<<laLineas(1)>>, Recno:<<RECNO()>>]"
 #DEFINE C_PROCESSING_LOC									"Bearbeite Datei"
 #DEFINE C_PROCESS_PROGRESS_LOC								"Bearbeitungsfortschritt:"
 #DEFINE C_PROPERTY_NAME_NOT_RECOGNIZED_LOC					"Eigenschaft [<<TRANSFORM(tnPropertyID)>>] nicht erkannt."
--- a/foxbin2prg_en.h
+++ b/foxbin2prg_en.h
@@ -35,7 +35,7 @@
 #DEFINE C_ONLY_SETNAME_AND_GETNAME_RECOGNIZED_LOC			"Operation not recognized. Only SETNAME and GETNAME allowed."
 #DEFINE C_OUTPUT_FILE_IS_NOT_OVERWRITEN_LOC					"Optimization: Output file [<<THIS.c_OutputFile>>] was not overwritten because it is the same as was generated."
 #DEFINE C_OUTPUTFILE_NEWER_THAN_INPUTFILE_LOC				"Optimization: Output file [<<THIS.c_OutputFile>>] was not regenerated because it is newer than the inputfile."
-#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedure not closed. Last line of code must be ENDPROC. [<<laLineas(1)>>]"
+#DEFINE C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC					"Procedure not closed. Last line of code must be ENDPROC. [<<laLineas(1)>>, Recno:<<RECNO()>>]"
 #DEFINE C_PROCESSING_LOC									"Processing file"
 #DEFINE C_PROCESS_PROGRESS_LOC								"Process Progress:"
 #DEFINE C_PROPERTY_NAME_NOT_RECOGNIZED_LOC					"Property [<<TRANSFORM(tnPropertyID)>>] is not recognized."