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

Changeset: 518 fdbozzo - 23/11/2014 17:49:25:

Browse Source 
- Arreglo de capitalización en DEFINE CLASS <nombre>
This commit is contained in:
fdbozzo
2014-11-23 18:09:03 +01:00
parent c0f84601f6
commit 381051471b
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
TESTS/ut__foxbin2prg.prg
View File

@@ -212,7 +212,7 @@ DEFINE CLASS ut__foxbin2prg AS FxuTestCase OF FxuTestCase.prg
THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de RESERVED8 para " + lcExtraData ) THIS.assertequals( toReg_Esperado.Reserved8, toReg.Reserved8, "Valor de RESERVED8 para " + lcExtraData )
THIS.assertequals( LEN(toReg_Esperado.Reserved8), LEN(toReg.Reserved8), "Tama<6D>o de RESERVED8 para " + lcExtraData ) THIS.assertequals( LEN(toReg_Esperado.Reserved8), LEN(toReg.Reserved8), "Tama<6D>o de RESERVED8 para " + lcExtraData )
THIS.assertequals( toReg_Esperado.OLE2, toReg.OLE2, "Valor de OLE2 para " + lcExtraData ) THIS.assertequals( LOWER(toReg_Esperado.OLE2), LOWER(toReg.OLE2), "Valor de OLE2 para " + lcExtraData )
THIS.assertequals( LEN(toReg_Esperado.OLE2), LEN(toReg.OLE2), "Tama<6D>o de OLE2 para " + lcExtraData ) THIS.assertequals( LEN(toReg_Esperado.OLE2), LEN(toReg.OLE2), "Tama<6D>o de OLE2 para " + lcExtraData )
THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum) para " + lcExtraData ) THIS.assertequals( SYS(2007, toReg_Esperado.OLE), SYS(2007, toReg.OLE), "Valor de OLE (Checksum) para " + lcExtraData )

4
foxbin2prg.prg
View File

@@ -5556,7 +5556,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
STORE '' TO tcProcedureAbierto STORE '' TO tcProcedureAbierto
toClase = CREATEOBJECT('CL_CLASE') toClase = CREATEOBJECT('CL_CLASE')
toClase._Nombre = ALLTRIM( STREXTRACT( tcLine, 'DEFINE CLASS ', ' AS ', 1, 1 ) ) toClase._Nombre = LOWER( ALLTRIM( STREXTRACT( tcLine, 'DEFINE CLASS ', ' AS ', 1, 1 ) ) )
toClase._ObjName = toClase._Nombre toClase._ObjName = toClase._Nombre
toClase._Definicion = ALLTRIM( tcLine ) toClase._Definicion = ALLTRIM( tcLine )
IF NOT ' OF ' $ UPPER(tcLine) && Puede no tener "OF libreria.vcx" IF NOT ' OF ' $ UPPER(tcLine) && Puede no tener "OF libreria.vcx"
@@ -12780,7 +12780,7 @@ DEFINE CLASS CL_MODULO AS CL_CUS_BASE
WITH THIS AS CL_MODULO OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_MODULO OF 'FOXBIN2PRG.PRG'
FOR X = 1 TO ._Ole_Obj_count FOR X = 1 TO ._Ole_Obj_count
IF ._Ole_Objs(X)._Nombre == tcNombre IF LOWER(._Ole_Objs(X)._Nombre) == LOWER(tcNombre)
llExiste = .T. llExiste = .T.
EXIT EXIT
ENDIF ENDIF