From a8ec4da75cd77e7a0804f4768568d074252ab727 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Thu, 13 Nov 2014 22:39:29 +0100 Subject: [PATCH] Changeset: 484 fdbozzo - 13/11/2014 22:35:28: --- foxbin2prg.prg | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index afe63ce..171d322 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -4109,6 +4109,27 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base + ******************************************************************************************************************* + PROCEDURE analizarBloque_LIBCOMMENT + *------------------------------------------------------ + *-- Analiza el bloque * + *------------------------------------------------------ + LPARAMETERS toModulo, tcLine, taCodeLines, I, tnCodeLines + + LOCAL llBloqueEncontrado, laPropsAndValues(1,2), lnPropsAndValues_Count + + IF LEFT( tcLine, LEN(C_LIBCOMMENT_I) ) == C_LIBCOMMENT_I + llBloqueEncontrado = .T. + + *-- Metadatos del módulo + toModulo._Comment = ALLTRIM( STREXTRACT( tcLine, C_LIBCOMMENT_I, C_LIBCOMMENT_F ) ) + ENDIF + + RETURN llBloqueEncontrado + ENDPROC + + + ******************************************************************************************************************* PROCEDURE createProject @@ -5625,27 +5646,6 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base - ******************************************************************************************************************* - PROCEDURE analizarBloque_LIBCOMMENT - *------------------------------------------------------ - *-- Analiza el bloque * - *------------------------------------------------------ - LPARAMETERS toModulo, tcLine, taCodeLines, I, tnCodeLines - - LOCAL llBloqueEncontrado, laPropsAndValues(1,2), lnPropsAndValues_Count - - IF LEFT( tcLine, LEN(C_LIBCOMMENT_I) ) == C_LIBCOMMENT_I - llBloqueEncontrado = .T. - - *-- Metadatos del módulo - toModulo._Comment = ALLTRIM( STREXTRACT( tcLine, C_LIBCOMMENT_I, C_LIBCOMMENT_F ) ) - ENDIF - - RETURN llBloqueEncontrado - ENDPROC - - - ******************************************************************************************************************* PROCEDURE analizarBloque_OBJECTMETADATA LPARAMETERS toClase, tcLine