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

Changeset: 471 fdbozzo - 09/11/2014 19:26:22:

Browse Source 
- Quitado el condicionamiento de los EXTERNAL: Los IF .F. son más lentos :(
This commit is contained in:
fdbozzo
2014-11-09 19:30:04 +01:00
parent c4f0d854af
commit b1c1556659
1 changed files with 37 additions and 108 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
foxbin2prg.prg
View File

@@ -2621,9 +2621,8 @@ DEFINE CLASS c_conversor_base AS SESSION
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS tcPropName, tcValue, taProps, tnProp_Count, I, tcTAG_I, tcTAG_F, tnLEN_TAG_I, tnLEN_TAG_F LPARAMETERS tcPropName, tcValue, taProps, tnProp_Count, I, tcTAG_I, tcTAG_F, tnLEN_TAG_I, tnLEN_TAG_F
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taProps
EXTERNAL ARRAY taProps
ENDIF
LOCAL llBloqueEncontrado, loEx AS EXCEPTION LOCAL llBloqueEncontrado, loEx AS EXCEPTION
TRY TRY
@@ -3099,9 +3098,7 @@ DEFINE CLASS c_conversor_base AS SESSION
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS tcLineWithMetadata, taPropsAndValues, tnPropsAndValues_Count, tcLeftTag, tcRightTag LPARAMETERS tcLineWithMetadata, taPropsAndValues, tnPropsAndValues_Count, tcLeftTag, tcRightTag
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndValues
EXTERNAL ARRAY taPropsAndValues
ENDIF
LOCAL lcMetadatos, I, lnEqualSigns, lcNextVar, lcStr, lcVirtualMeta, lnPos1, lnPos2, lnLastPos, lnCantComillas LOCAL lcMetadatos, I, lnEqualSigns, lcNextVar, lcStr, lcVirtualMeta, lnPos1, lnPos2, lnLastPos, lnCantComillas
STORE '' TO lcVirtualMeta STORE '' TO lcVirtualMeta
@@ -3245,9 +3242,7 @@ DEFINE CLASS c_conversor_base AS SESSION
* taLineasExclusion (@? OUT) Array unidimensional con un .T. o .F. seg<65>n la l<>nea sea de exclusi<73>n o no * taLineasExclusion (@? OUT) Array unidimensional con un .T. o .F. seg<65>n la l<>nea sea de exclusi<73>n o no
* tnBloquesExclusion (@? OUT) Cantidad de bloques de exclusi<73>n * tnBloquesExclusion (@? OUT) Cantidad de bloques de exclusi<73>n
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY ta_ID_Bloques, taLineasExclusion
EXTERNAL ARRAY ta_ID_Bloques, taLineasExclusion
ENDIF
TRY TRY
LOCAL lnBloques, I, X, lnPrimerID, lnLen_IDFinBQ, lnID_Bloques_Count, lcWord, lnAnidamientos, lcLine, lcPrevLine LOCAL lnBloques, I, X, lnPrimerID, lnLen_IDFinBQ, lnID_Bloques_Count, lcWord, lnAnidamientos, lcLine, lcPrevLine
@@ -3660,9 +3655,7 @@ DEFINE CLASS c_conversor_base AS SESSION
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS taPropsAndValues, tnPropsAndValues_Count, tnSortType LPARAMETERS taPropsAndValues, tnPropsAndValues_Count, tnSortType
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndValues
EXTERNAL ARRAY taPropsAndValues
ENDIF
TRY TRY
LOCAL I, X, lnArrayCols, laPropsAndValues(1,2), lcPropName, lcSortedMemo, lcMethods LOCAL I, X, lnArrayCols, laPropsAndValues(1,2), lcPropName, lcSortedMemo, lcMethods
@@ -4908,9 +4901,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
LPARAMETERS toClase, toObjeto, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto, tc_Comentario ; LPARAMETERS toClase, toObjeto, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto, tc_Comentario ;
, taLineasExclusion, tnBloquesExclusion , taLineasExclusion, tnBloquesExclusion
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines
EXTERNAL ARRAY taCodeLines
ENDIF
#IF .F. #IF .F.
LOCAL toObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG' LOCAL toObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG'
@@ -4988,9 +4979,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
PROCEDURE analizarBloque_ADD_OBJECT PROCEDURE analizarBloque_ADD_OBJECT
LPARAMETERS toModulo, toClase, tcLine, I, taCodeLines, tnCodeLines LPARAMETERS toModulo, toClase, tcLine, I, taCodeLines, tnCodeLines
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines
EXTERNAL ARRAY taCodeLines
ENDIF
#IF .F. #IF .F.
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG' LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
@@ -5216,9 +5205,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
LPARAMETERS toModulo, toClase, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto ; LPARAMETERS toModulo, toClase, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto ;
, taLineasExclusion, tnBloquesExclusion, tc_Comentario , taLineasExclusion, tnBloquesExclusion, tc_Comentario
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, tnBloquesExclusion, taLineasExclusion
EXTERNAL ARRAY taCodeLines, tnBloquesExclusion, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG' LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
@@ -5455,9 +5442,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
PROCEDURE analizarBloque_CLASSCOMMENTS PROCEDURE analizarBloque_CLASSCOMMENTS
LPARAMETERS toClase, tcLine ,taCodeLines, tnCodeLines, I LPARAMETERS toClase, tcLine ,taCodeLines, tnCodeLines, I
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines
EXTERNAL ARRAY taCodeLines
ENDIF
#IF .F. #IF .F.
LOCAL toClase AS CL_CLASE OF 'FOXBIN2PRG.PRG' LOCAL toClase AS CL_CLASE OF 'FOXBIN2PRG.PRG'
@@ -5777,9 +5762,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toModulo LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toModulo
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG' LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
@@ -6674,9 +6657,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
* NOTA: * NOTA:
* Como identificador se usa el nombre de clase o de procedimiento, seg<65>n corresponda. * Como identificador se usa el nombre de clase o de procedimiento, seg<65>n corresponda.
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
@@ -7009,9 +6990,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
*------------------------------------------------------ *------------------------------------------------------
LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY toProject
EXTERNAL ARRAY toProject
ENDIF
#IF .F. #IF .F.
LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
@@ -7074,9 +7053,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
*------------------------------------------------------ *------------------------------------------------------
LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY toProject
EXTERNAL ARRAY toProject
ENDIF
#IF .F. #IF .F.
LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
@@ -7139,9 +7116,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
*------------------------------------------------------ *------------------------------------------------------
LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines LPARAMETERS toProject, tcLine, taCodeLines, I, tnCodeLines
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY toProject
EXTERNAL ARRAY toProject
ENDIF
#IF .F. #IF .F.
LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG' LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
@@ -7439,9 +7414,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
* NOTA: * NOTA:
* Como identificador se usa el nombre de clase o de procedimiento, seg<65>n corresponda. * Como identificador se usa el nombre de clase o de procedimiento, seg<65>n corresponda.
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toReport AS CL_REPORT OF 'FOXBIN2PRG.PRG' LOCAL toReport AS CL_REPORT OF 'FOXBIN2PRG.PRG'
@@ -7923,9 +7896,7 @@ DEFINE CLASS c_conversor_prg_a_dbf AS c_conversor_prg_a_bin
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toTable LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toTable
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toTable AS CL_DBF_TABLE OF 'FOXBIN2PRG.PRG' LOCAL toTable AS CL_DBF_TABLE OF 'FOXBIN2PRG.PRG'
@@ -8102,9 +8073,7 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toDatabase LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toDatabase
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toDatabase AS CL_DBC OF 'FOXBIN2PRG.PRG' LOCAL toDatabase AS CL_DBC OF 'FOXBIN2PRG.PRG'
@@ -8239,9 +8208,7 @@ DEFINE CLASS c_conversor_prg_a_mnx AS c_conversor_prg_a_bin
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toMenu LPARAMETERS taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toMenu
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taCodeLines, taLineasExclusion
EXTERNAL ARRAY taCodeLines, taLineasExclusion
ENDIF
#IF .F. #IF .F.
LOCAL toMenu AS CL_MENU OF 'FOXBIN2PRG.PRG' LOCAL toMenu AS CL_MENU OF 'FOXBIN2PRG.PRG'
@@ -8402,9 +8369,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
, taPropsAndComments, tnPropsAndComments_Count, taProtected, tnProtected_Count ; , taPropsAndComments, tnPropsAndComments_Count, taProtected, tnProtected_Count ;
, toFoxBin2Prg , toFoxBin2Prg
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndComments, taProtected
EXTERNAL ARRAY taPropsAndComments, taProtected
ENDIF
#IF .F. #IF .F.
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
@@ -8467,9 +8432,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS tnMethodCount, taMethods, taCode, taProtected, taPropsAndComments LPARAMETERS tnMethodCount, taMethods, taCode, taProtected, taPropsAndComments
*-- DEFINIR M<>TODOS DE LA CLASE *-- DEFINIR M<>TODOS DE LA CLASE
*-- Ubico los m<>todos protegidos y les cambio la definici<63>n *-- Ubico los m<>todos protegidos y les cambio la definici<63>n
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taMethods, taCode, taProtected, taPropsAndComments
EXTERNAL ARRAY taMethods, taCode, taProtected, taPropsAndComments
ENDIF
TRY TRY
LOCAL lcMethod, lcMethodName, lnProtectedItem, lnCommentRow, lcProcDef, lcMethods, lnLen LOCAL lcMethod, lcMethodName, lnProtectedItem, lnCommentRow, lcProcDef, lcMethods, lnLen
@@ -8556,9 +8519,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcMemo, tlSort, taPropsAndComments, tnPropsAndComments_Count, tcSortedMemo LPARAMETERS tcMemo, tlSort, taPropsAndComments, tnPropsAndComments_Count, tcSortedMemo
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndComments
EXTERNAL ARRAY taPropsAndComments
ENDIF
TRY TRY
LOCAL laLines(1), I, lnPos, loEx AS EXCEPTION LOCAL laLines(1), I, lnPos, loEx AS EXCEPTION
@@ -8618,9 +8579,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcMemo, tnSort, taPropsAndValues, tnPropsAndValues_Count, tcSortedMemo LPARAMETERS tcMemo, tnSort, taPropsAndValues, tnPropsAndValues_Count, tcSortedMemo
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndValues
EXTERNAL ARRAY taPropsAndValues
ENDIF
TRY TRY
LOCAL laItems(1), I, X, lnLenAcum, lnPosEQ, lcPropName, lnLenVal, lcValue, lcMethods LOCAL laItems(1), I, X, lnLenAcum, lnPosEQ, lcPropName, lnLenVal, lcValue, lcMethods
@@ -8728,9 +8687,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcMemo, tlSort, taProtected, tnProtected_Count, tcSortedMemo LPARAMETERS tcMemo, tlSort, taProtected, tnProtected_Count, tcSortedMemo
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taProtected
EXTERNAL ARRAY taProtected
ENDIF
tcSortedMemo = '' tcSortedMemo = ''
tnProtected_Count = ALINES(taProtected, tcMemo, 1+4) tnProtected_Count = ALINES(taProtected, tcMemo, 1+4)
@@ -8856,9 +8813,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
PROCEDURE set_MultilineMemoWithAddObjectProperties PROCEDURE set_MultilineMemoWithAddObjectProperties
LPARAMETERS taPropsAndValues, tnPropCount, tcLeftIndentation, tlNormalizeLine LPARAMETERS taPropsAndValues, tnPropCount, tcLeftIndentation, tlNormalizeLine
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndValues
EXTERNAL ARRAY taPropsAndValues
ENDIF
TRY TRY
LOCAL lcLine, I, lcComentarios, laLines(1), lcFinDeLinea LOCAL lcLine, I, lcComentarios, laLines(1), lcFinDeLinea
@@ -8895,9 +8850,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS tcMethod, taMethods, taCode, tcSorted, tnMethodCount, taPropsAndComments, tnPropsAndComments_Count ; LPARAMETERS tcMethod, taMethods, taCode, tcSorted, tnMethodCount, taPropsAndComments, tnPropsAndComments_Count ;
, taProtected, tnProtected_Count, toFoxBin2Prg , taProtected, tnProtected_Count, toFoxBin2Prg
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taMethods, taCode, taPropsAndComments, taProtected
EXTERNAL ARRAY taMethods, taCode, taPropsAndComments, taProtected
ENDIF
#IF .F. #IF .F.
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
@@ -8963,9 +8916,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*-- 29/10/2013 Fernando D. Bozzo *-- 29/10/2013 Fernando D. Bozzo
*-- Se tiene en cuenta la posibilidad de que haya un PROC/ENDPROC dentro de un TEXT/ENDTEXT *-- Se tiene en cuenta la posibilidad de que haya un PROC/ENDPROC dentro de un TEXT/ENDTEXT
*-- cuando es usado en un generador de c<>digo o similar. *-- cuando es usado en un generador de c<>digo o similar.
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taMethods, taCode, taPropsAndComments, taProtected
EXTERNAL ARRAY taMethods, taCode, taPropsAndComments, taProtected
ENDIF
#IF .F. #IF .F.
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
@@ -9293,9 +9244,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS toRegClass, taPropsAndValues, taPropsAndComments, taProtected ; LPARAMETERS toRegClass, taPropsAndValues, taPropsAndComments, taProtected ;
, tnPropsAndValues_Count, tnPropsAndComments_Count, tnProtected_Count , tnPropsAndValues_Count, tnPropsAndComments_Count, tnProtected_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taPropsAndValues, taPropsAndComments
EXTERNAL ARRAY taPropsAndValues, taPropsAndComments
ENDIF
TRY TRY
LOCAL lcHiddenProp, lcProtectedProp, lcPropsMethodsDefd, I ; LOCAL lcHiddenProp, lcProtectedProp, lcPropsMethodsDefd, I ;
@@ -12782,9 +12731,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcName, tcType, taProperties, tnProperty_Count LPARAMETERS tcName, tcType, taProperties, tnProperty_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taProperties && STRUCTURE: PropName,RecordLen,DataIDLen,DataID,DataType,Data
EXTERNAL ARRAY taProperties && STRUCTURE: PropName,RecordLen,DataIDLen,DataID,DataType,Data
ENDIF
TRY TRY
LOCAL lcValue, leValue, lnSelect, laProperty(1,1), lnRecordLen, lcBinRecord, lnPropertyID ; LOCAL lcValue, leValue, lnSelect, laProperty(1,1), lnRecordLen, lcBinRecord, lnPropertyID ;
@@ -14248,9 +14195,7 @@ DEFINE CLASS CL_DBC_TABLES AS CL_DBC_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taTables, tnTable_Count LPARAMETERS taTables, tnTable_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taTables
EXTERNAL ARRAY taTables
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION ; LOCAL I, lcText, loEx AS EXCEPTION ;
@@ -15187,9 +15132,7 @@ DEFINE CLASS CL_DBC_VIEWS AS CL_DBC_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taViews, tnView_Count LPARAMETERS taViews, tnView_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taViews
EXTERNAL ARRAY taViews
ENDIF
TRY TRY
LOCAL I, lcText, lcDBC, lnField_Count, laFields(1), loEx AS EXCEPTION ; LOCAL I, lcText, lcDBC, lnField_Count, laFields(1), loEx AS EXCEPTION ;
@@ -15954,9 +15897,7 @@ DEFINE CLASS CL_DBC_RELATIONS AS CL_DBC_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tcTable, taRelations, tnRelation_Count LPARAMETERS tcTable, taRelations, tnRelation_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taRelations
EXTERNAL ARRAY taRelations
ENDIF
TRY TRY
LOCAL I, X, lcText, loEx AS EXCEPTION ; LOCAL I, X, lcText, loEx AS EXCEPTION ;
@@ -16476,9 +16417,7 @@ DEFINE CLASS CL_DBF_FIELDS AS CL_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taFields, tnField_Count LPARAMETERS taFields, tnField_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taFields
EXTERNAL ARRAY taFields
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION ; LOCAL I, lcText, loEx AS EXCEPTION ;
@@ -16639,9 +16578,7 @@ DEFINE CLASS CL_DBF_FIELD AS CL_CUS_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taFields, I LPARAMETERS taFields, I
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taFields
EXTERNAL ARRAY taFields
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION LOCAL I, lcText, loEx AS EXCEPTION
@@ -16767,9 +16704,7 @@ DEFINE CLASS CL_DBF_INDEXES AS CL_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taTagInfo, tnTagInfo_Count, tc_InputFile LPARAMETERS taTagInfo, tnTagInfo_Count, tc_InputFile
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taTagInfo
EXTERNAL ARRAY taTagInfo
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION ; LOCAL I, lcText, loEx AS EXCEPTION ;
@@ -16909,9 +16844,7 @@ DEFINE CLASS CL_DBF_INDEX AS CL_CUS_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taTagInfo, I LPARAMETERS taTagInfo, I
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taTagInfo
EXTERNAL ARRAY taTagInfo
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION LOCAL I, lcText, loEx AS EXCEPTION
@@ -16976,9 +16909,7 @@ DEFINE CLASS CL_DBF_RECORDS AS CL_COL_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taFields, tnField_Count, tc_DBF_Conversion_Condition LPARAMETERS taFields, tnField_Count, tc_DBF_Conversion_Condition
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taFields
EXTERNAL ARRAY taFields
ENDIF
TRY TRY
LOCAL lcText, loEx AS EXCEPTION ; LOCAL lcText, loEx AS EXCEPTION ;
@@ -17056,9 +16987,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS taFields, tnField_Count LPARAMETERS taFields, tnField_Count
IF .F. && EXTERNAL consume ciclos de ejecuci<63>n, pero no aporta nada fuera del proyecto. EXTERNAL ARRAY taFields
EXTERNAL ARRAY taFields
ENDIF
TRY TRY
LOCAL I, lcText, loEx AS EXCEPTION, lcField, luValue, lcFieldType LOCAL I, lcText, loEx AS EXCEPTION, lcField, luValue, lcFieldType