From 04471359f56a41ff571b5419da8a6bb4f0c6d415 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 20 Aug 2014 18:12:01 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20412=20fdbozzo=20-=2020/08/2014=201?=
 =?UTF-8?q?8:10:36:=20-=20Mejorado=20el=20reconocimiento=20de=20instruccio?=
 =?UTF-8?q?nes=20#IF..#ENDIF=20cuando=20hay=20espacios=20entre=20#=20y=20e?=
 =?UTF-8?q?l=20nombre=20de=20funci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index ed888d6..ceb803d 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -99,6 +99,7 @@
 * 07/08/2014	FDBOZZO		v1.19.30	Arreglo bug vcx/scx: Cuando la línea anterior a un ENDTEXT termina en ";" o "," no se reconoce como ENDTEXT sino como continuación (Jim Nelson)
 * 08/08/2014	FDBOZZO		v1.19.30	Arreglo bug vcx/vct v1.19.29: En ciertos casos de herencia no se mantiene el orden alfabetico de algunos metodos (Ryan Harris)
 * 17/08/2014	FDBOZZO		v1.19.31	Agregada versión del EXE cuando se genera LOG de depuración
+* 20/08/2014	FDBOZZO		v1.19.31	Mejora vcx/scx: Mejorado el reconocimiento de instrucciones #IF..#ENDIF cuando hay espacios entre # y el nombre de función
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -2697,6 +2698,13 @@ DEFINE CLASS c_conversor_base AS SESSION
 		LOCAL llEncontrado, lcWord
 
 		TRY
+			*-- Pre-normalización
+			lcLine	= tcLine
+
+			IF LEFT(lcLine,1) == '#'
+				lcLine	= CHRTRAN( lcLine, ' ', '' )	&& Quito los espacios a lo que comience con #
+			ENDIF
+			
 			IF tnIniFin = 1
 				*-- TOKENS DE INICIO
 				IF UPPER( LEFT( tcLine, LEN(ta_ID_Bloques(X,1)) ) ) == ta_ID_Bloques(X,1)