Changeset: 232 fdbozzo - 01/05/2014 16:39:56:

- Simplificación de la sección <DefinedPropArrayMethod>: Los métodos y arrays ya no requieren los símbolos * y ^ delante.

foxbin2prg.prg

@@ -82,11 +82,11 @@
 * 22/03/2014	FDBOZZO		v1.19.18 Arreglo bug vcx/scx: Las im<69>genes no mantienen sus dimensiones programadas y asumen sus dimensiones reales // El comentario a nivel de librer<65>a se pierde
 * 29/03/2014	FDBOZZO		v1.19.19 Nueva caracter<65>stica: Hooks al regenerar DBF para poder realizar procesos intermedios, como la carga de datos del DBF regenerado desde una fuente externa
 * 17/04/2014	FDBOZZO		v1.19.20 Relativizaci<63>n de directorios de CDX dentro de los DB2 para minimizar diferencias
-* 29/04/2014	FDBOZZO		v1.19.21 Agregada posibilidad de convertir un proyecto entero a tx2 // Optimizaciones en generaci<63>n seg<65>n timestamps // AGAIN en aperturas
+* 29/04/2014	FDBOZZO		v1.19.21 Agregada posibilidad de convertir un proyecto entero a tx2 // Optimizaciones en generaci<63>n seg<65>n timestamps // AGAIN en aperturas // Simplificaci<63>n secci<63>n PAM
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
-* <TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
+* <TESTEO, REPORTE DE BUGS Y MEJORAS (AGRADECIMIENTOS)>
 * 23/11/2013	Luis Mart<72>nez	REPORTE BUG scx v1.4: En algunos forms solo se generaba el dataenvironment (arreglado en v.1.5)
 * 27/11/2013	Fidel Charny	REPORTE BUG vcx v1.5: Error en el guardado de ciertas propiedades de array (arreglado en v.1.6)
 * 02/12/2013	Fidel Charny	REPORTE BUG scx v1.6: Se pierden algunas propiedades y no muestra picture si "Name" no es la <20>ltima (arreglado en v.1.7)
@@ -4193,7 +4193,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 		*--------------------------------------------------------------------------------------------------------------
 		LPARAMETERS toClase, tcLine, taCodeLines, tnCodeLines, I
 
-		*-- ESTRUCTURA A ANALIZAR:
+		*-- ESTRUCTURA A ANALIZAR (tambi<62>n se admite sin los s<>mbolos ^ y *):
 		*<DefinedPropArrayMethod>
 		*m: *metodovacio_con_comentarios		&& Este m<>todo no tiene c<>digo, pero tiene comentarios. A ver que pasa!
 		*m: *mimetodo		&& Mi metodo
@@ -4209,7 +4209,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 		#ENDIF
 
 		TRY
-			LOCAL llBloqueEncontrado, lcDefinedPAM, lnPos, lnPos2, lcPAM_Name, lcItem, lcMethods
+			LOCAL llBloqueEncontrado, lcDefinedPAM, lnPos, lnPos2, lcPAM_Name, lcItem, lcMethods, lcPAM_Type
 
 			IF LEFT( tcLine, C_LEN_DEFINED_PAM_I) == C_DEFINED_PAM_I
 				llBloqueEncontrado	= .T.
@@ -4225,28 +4225,32 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
 							EXIT
 
 						OTHERWISE
-							lnPos			= AT( ' ', tcLine, 1 )
+							lnPos		= AT( ':', tcLine, 1 )
-							lnPos2			= AT( '&'+'&', tcLine )
+							lnPos2		= AT( '&'+'&', tcLine )
+							lcPAM_Type	= LEFT(tcLine,3)
 
 							IF lnPos2 > 0
 								*-- Con comentarios
-								lcPAM_Name		= LOWER( RTRIM( SUBSTR( tcLine, lnPos+1, lnPos2 - lnPos - 1 ), 0, ' ', CHR(9) ) )
+								lcPAM_Name	= LOWER( ALLTRIM( SUBSTR( tcLine, lnPos+1, lnPos2 - lnPos - 1 ), 0, ' ', CHR(9) ) )
-								lcItem	= lcPAM_Name + ' ' + SUBSTR( tcLine, lnPos2 + 3 ) + CR_LF
+								lcItem		= lcPAM_Name + ' ' + SUBSTR( tcLine, lnPos2 + 3 ) + CR_LF
 
-								*-- Separo propiedades y m<>todos
+							ELSE
+								*-- Sin comentarios
+								lcPAM_Name	= LOWER( ALLTRIM( SUBSTR( tcLine, lnPos+1 ), 0, ' ', CHR(9) ) )
+								lcItem		= lcPAM_Name + IIF( LEFT(lcPAM_Name,1) $ '^*' , ' ', '') + CR_LF
+
+							ENDIF
+
+							*-- Separo propiedades y m<>todos
+							IF lcPAM_Type == '*m:'
 								IF LEFT(lcItem,1) == '*'
 									lcMethods		= lcMethods + lcItem
 								ELSE
-									lcDefinedPAM	= lcDefinedPAM + lcItem
+									lcMethods		= lcMethods + '*' + lcItem
 								ENDIF
 							ELSE
-								*-- Sin comentarios
+								IF lcPAM_Type == '*a:' AND LEFT(lcItem,1) <> '^'
-								lcPAM_Name		= LOWER( RTRIM( SUBSTR( tcLine, lnPos+1 ), 0, ' ', CHR(9) ) )
+									lcDefinedPAM	= lcDefinedPAM + '^' + lcItem
-								lcItem	= lcPAM_Name + IIF( LEFT(lcPAM_Name,1) $ '^*' , ' ', '') + CR_LF
-
-								*-- Separo propiedades y m<>todos
-								IF LEFT(lcItem,1) == '*'
-									lcMethods		= lcMethods + lcItem
 								ELSE
 									lcDefinedPAM	= lcDefinedPAM + lcItem
 								ENDIF
@@ -8240,9 +8244,15 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
 					, lcType == '^', 'a' ;
 					, 'p' )
 
-				TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+				IF lcType == 'p' THEN
-					<<>>		*<<lcType>>: <<taPropsAndComments(I,1)>>
+					TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
-				ENDTEXT
+						<<>>		*<<lcType>>: <<taPropsAndComments(I,1)>>
+					ENDTEXT
+				ELSE
+					TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
+						<<>>		*<<lcType>>: <<SUBSTR( taPropsAndComments(I,1), 2)>>
+					ENDTEXT
+				ENDIF
 
 				IF NOT EMPTY(taPropsAndComments(I,2))
 					TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2