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

Changeset: 472 fdbozzo - 09/11/2014 19:30:05:

Browse Source 
- Agregado de varios RELEASE para recolección de basura manual
This commit is contained in:
fdbozzo
2014-11-09 21:08:11 +01:00
parent b1c1556659
commit 2c88a26189
1 changed files with 226 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

263
foxbin2prg.prg
View File

@@ -652,6 +652,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
lc_Foxbin2prg_EXE = FORCEEXT( THIS.c_Foxbin2prg_FullPath, 'EXE' )
THIS.c_FB2PRG_EXE_Version = IIF( AGETFILEVERSION( laValues, lc_Foxbin2prg_EXE ) = 0, TRANSFORM(THIS.n_FB2PRG_Version), laValues(4) )
ADDPROPERTY(_SCREEN, 'ExitCode', 0)
RELEASE lcSys16, lnPosProg, lc_Foxbin2prg_EXE, laValues
RETURN
ENDPROC
@@ -1008,6 +1009,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
FINALLY
CLEAR DLLS fb2p_SetFileAttributes, fb2p_GetFileAttributes
RELEASE tcFileName, tcAttrib, dwFileAttributes
ENDTRY
RETURN
@@ -1037,6 +1039,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
COMPILE DATABASE (tcFileName)
ENDCASE
RELEASE tcFileName, lcType
RETURN
ENDPROC
@@ -1124,6 +1129,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THROW
ENDIF
FINALLY
RELEASE toEx, tlRelanzarError, tcBakFile_1, tcBakFile_2, tcBakFile_3 ;
, lcNext_Bak, lcExt_1, lcExt_2, lcExt_3
ENDTRY
RETURN
@@ -1412,8 +1420,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THROW
FINALLY
STORE NULL TO lo_Configuration, lo_CFG
RELEASE lo_Configuration, lo_CFG
STORE NULL TO lo_Configuration, lo_CFG, loEx
RELEASE tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile ;
, lcConfigFile, llExisteConfig, laConfig, I, lcConfData, lcExt, lcValue, lc_CFG_Path ;
, lo_CFG, lo_Configuration, loEx
ENDTRY
@@ -1439,6 +1450,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF
ENDFOR
RELEASE tcFileName, tcFilters, llFound, laFiltros
RETURN llFound
ENDFUNC
@@ -1460,6 +1472,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
, 'XXX' )
ENDWITH && THIS
RELEASE tcExt
RETURN lcExt2
ENDPROC
@@ -1467,6 +1480,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
PROCEDURE TieneSoporte_Bin2Prg
LPARAMETERS tcExt
LOCAL llTieneSoporte
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
llTieneSoporte = ICASE( tcExt == 'PJX', .PJX_Conversion_Support >= 1 ;
, tcExt == 'VCX', .VCX_Conversion_Support >= 1 ;
@@ -1478,6 +1492,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
, tcExt == 'DBC', .DBC_Conversion_Support >= 1 ;
, .F. )
ENDWITH && THIS
RELEASE tcExt
RETURN llTieneSoporte
ENDPROC
@@ -1485,6 +1501,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
PROCEDURE TieneSoporte_Prg2Bin
LPARAMETERS tcExt
LOCAL llTieneSoporte
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
llTieneSoporte = ICASE( tcExt == .c_PJ2, .PJX_Conversion_Support = 2 ;
, tcExt == .c_VC2, .VCX_Conversion_Support = 2 ;
@@ -1496,6 +1513,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
, tcExt == .c_DC2, .DBC_Conversion_Support = 2 ;
, .F. )
ENDWITH && THIS
RELEASE tcExt
RETURN llTieneSoporte
ENDPROC
@@ -1862,7 +1881,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF
CD (JUSTPATH(THIS.c_CurDir))
STORE NULL TO loFSO
RELEASE loFSO
RELEASE tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress ;
, toModulo, toEx, tlRelanzarError, tcOriginalFileName, tcRecompile, tcNoTimestamps ;
, tcBackupLevels, tcClearUniqueID, tcOptimizeByFilestamp ;
, I, lcPath, lcFileSpec, lcFile, laFiles, lnFileCount, lcErrorInfo, loEx, loFSO
ENDTRY
RETURN lnCodError
@@ -2162,6 +2184,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*THIS.writeLog_Flush()
ENDIF
RELEASE tc_InputFile, toModulo, toEx, tlRelanzarError, tcOriginalFileName ;
, lcErrorInfo, laDirFile, lcExtension, lnFileCount, laFiles, I ;
, ltFilestamp, lcExtA, lcExtB ;
, loFSO
ENDTRY
RETURN lnCodError
@@ -2585,6 +2611,8 @@ DEFINE CLASS c_conversor_base AS SESSION
THIS.c_Foxbin2prg_FullPath = SUBSTR( lcSys16, lnPosProg )
THIS.SortSpecialProps()
RELEASE lcSys16, lnPosProg
RETURN
ENDPROC
@@ -2682,6 +2710,8 @@ DEFINE CLASS c_conversor_base AS SESSION
THROW
FINALLY
RELEASE tcPropName, tcValue, taProps, tnProp_Count, I, tcTAG_I, tcTAG_F, tnLEN_TAG_I, tnLEN_TAG_F, loEx
ENDTRY
RETURN llBloqueEncontrado
@@ -2738,6 +2768,8 @@ DEFINE CLASS c_conversor_base AS SESSION
THROW
FINALLY
RELEASE tcNombreObjeto, toClase, I, X, N, lcRutaDelNombre, loObjeto
ENDTRY
RETURN lnObjeto
@@ -2755,6 +2787,9 @@ DEFINE CLASS c_conversor_base AS SESSION
CATCH TO loEx
llError = .T.
tnCodError = loEx.ERRORNO
FINALLY
RELEASE tcAsignacion, tnCodError, tcExpNormalizada, loEx
ENDTRY
RETURN NOT llError
@@ -2774,6 +2809,8 @@ DEFINE CLASS c_conversor_base AS SESSION
#ENDIF
THIS.writeLog( '' )
THIS.writeLog( C_CONVERTING_FILE_LOC + ' ' + THIS.c_OutputFile + '...' )
RELEASE toModulo, toEx, toFoxBin2Prg
RETURN
ENDPROC
@@ -2795,7 +2832,7 @@ DEFINE CLASS c_conversor_base AS SESSION
llIsContinuation = .T.
ENDIF
RELEASE lcPrevLine
RELEASE taCodeLines, I, lcPrevLine
RETURN llIsContinuation
ENDPROC
@@ -2803,7 +2840,7 @@ DEFINE CLASS c_conversor_base AS SESSION
PROCEDURE elTextoEvaluadoEsElTokenIndicado
LPARAMETERS tcLine, ta_ID_Bloques, tnLen_IDFinBQ, X, tnIniFin
LOCAL llEncontrado, lcWord
LOCAL llEncontrado, lcWord, lcLine
TRY
*-- Pre-normalizaci<63>n
@@ -2847,6 +2884,9 @@ DEFINE CLASS c_conversor_base AS SESSION
llEncontrado = .T.
ENDIF
ENDIF
FINALLY
RELEASE tcLine, ta_ID_Bloques, tnLen_IDFinBQ, X, tnIniFin, lcLine
ENDTRY
RETURN llEncontrado
@@ -2863,6 +2903,7 @@ DEFINE CLASS c_conversor_base AS SESSION
FOR I = 0 TO 31
tcText = STRTRAN( tcText, '{' + TRANSFORM(I) + '}', CHR(I) )
ENDFOR
RELEASE I
RETURN tcText
ENDPROC
@@ -2875,7 +2916,7 @@ DEFINE CLASS c_conversor_base AS SESSION
lcComentario = ''
THIS.desnormalizarValorPropiedad( @lcPropName, @lcValor, @lcComentario )
tcAsignacion = lcPropName + ' = ' + lcValor
RELEASE lcPropName, lcValor, lnCodError, lcExpNormalizada, lnPos, lcComentario
RETURN tcAsignacion
ENDPROC
@@ -2924,6 +2965,7 @@ DEFINE CLASS c_conversor_base AS SESSION
ENDCASE
RELEASE tcProp, tcComentario, lnCodError, lnPos, lcValue
RETURN tcValue
ENDPROC
@@ -2961,6 +3003,7 @@ DEFINE CLASS c_conversor_base AS SESSION
tcValor = STUFF(tcValor, lnPos, lnPos2 - lnPos + 1, CHR(lnAscii)) && ASCII
ENDDO
RELEASE lnPos, lnPos2, lnAscii
RETURN tcValor
ENDPROC
@@ -2972,6 +3015,7 @@ DEFINE CLASS c_conversor_base AS SESSION
FOR I = 0 TO 31
tcText = STRTRAN( tcText, CHR(I), '{' + TRANSFORM(I) + '}' )
ENDFOR
RELEASE I
RETURN tcText
ENDPROC
@@ -2983,6 +3027,7 @@ DEFINE CLASS c_conversor_base AS SESSION
lcError = 'Error ' + TRANSFORM(toEx.ERRORNO) + ', ' + toEx.MESSAGE + CHR(13) + CHR(13) ;
+ toEx.PROCEDURE + ', ' + TRANSFORM(toEx.LINENO) + CHR(13) + CHR(13) ;
+ toEx.LINECONTENTS
RELEASE toEx
RETURN lcError
ENDPROC
@@ -3100,7 +3145,7 @@ DEFINE CLASS c_conversor_base AS SESSION
EXTERNAL ARRAY taPropsAndValues
LOCAL lcMetadatos, I, lnEqualSigns, lcNextVar, lcStr, lcVirtualMeta, lnPos1, lnPos2, lnLastPos, lnCantComillas
LOCAL lcMetadatos, I, lcVirtualMeta, lnPos1, lnPos2, lnLastPos, lnCantComillas
STORE '' TO lcVirtualMeta
STORE 0 TO lnPos1, lnPos2, lnLastPos, tnPropsAndValues_Count, I
@@ -3137,6 +3182,8 @@ DEFINE CLASS c_conversor_base AS SESSION
lnLastPos = lnPos2 + 1
ENDFOR
RELEASE tcLineWithMetadata, taPropsAndValues, tnPropsAndValues_Count, tcLeftTag, tcRightTag ;
, lcMetadatos, I, lcVirtualMeta, lnPos1, lnPos2, lnLastPos, lnCantComillas
RETURN
ENDPROC
@@ -3158,6 +3205,7 @@ DEFINE CLASS c_conversor_base AS SESSION
tcComment = ''
ENDIF
RELEASE tcLine, tcComment
RETURN (ln_AT_Cmt > 0)
ENDPROC
@@ -3206,6 +3254,7 @@ DEFINE CLASS c_conversor_base AS SESSION
ENDIF
ENDIF
RELEASE tcAsignacion, tcPropName, tcValue, toClase, taCodeLines, tnCodeLines, I, ln_AT_Cmt
RETURN
ENDPROC
@@ -3220,6 +3269,7 @@ DEFINE CLASS c_conversor_base AS SESSION
ELSE
lcValue = CHRTRAN( LEFT( tcNullTerminatedValue, lnNullPos - 1 ), ['], ["] )
ENDIF
RELEASE tcNullTerminatedValue, lnNullPos
RETURN lcValue
ENDPROC
@@ -3337,6 +3387,9 @@ DEFINE CLASS c_conversor_base AS SESSION
THROW
FINALLY
RELEASE taCodeLines, tnCodeLines, ta_ID_Bloques, taLineasExclusion, tnBloquesExclusion, taBloquesExclusion ;
, lnBloques, I, X, lnPrimerID, lnLen_IDFinBQ, lnID_Bloques_Count, lcWord, lnAnidamientos, lcLine, lcPrevLine
ENDTRY
RETURN
@@ -3367,6 +3420,7 @@ DEFINE CLASS c_conversor_base AS SESSION
ENDCASE
RELEASE tcLine, tcComment, ln_AT_Cmt
RETURN lllineIsOnlyCommentAndNoMetadata
ENDPROC
@@ -3379,6 +3433,7 @@ DEFINE CLASS c_conversor_base AS SESSION
tcComentario = ''
THIS.normalizarValorPropiedad( @lcPropName, @lcValor, @tcComentario )
tcAsignacion = lcPropName + ' = ' + lcValor
RELEASE tcComentario, lcPropName, lcValor, lnCodError, lcExpNormalizada, lnPos
RETURN tcAsignacion
ENDPROC
@@ -3424,6 +3479,7 @@ DEFINE CLASS c_conversor_base AS SESSION
ENDCASE
RELEASE tcProp, lcValue, I, tcComentario
RETURN tcValue
ENDPROC
@@ -3632,6 +3688,8 @@ DEFINE CLASS c_conversor_base AS SESSION
THROW
FINALLY
RELEASE tcOperation, tcPropName, lnPos, loEx
ENDTRY
RETURN lcPropName
@@ -3760,6 +3818,9 @@ DEFINE CLASS c_conversor_base AS SESSION
THROW
FINALLY
RELEASE taPropsAndValues, tnPropsAndValues_Count, tnSortType ;
, I, X, lnArrayCols, laPropsAndValues, lcPropName, lcSortedMemo, lcMethods
ENDTRY
RETURN
@@ -4014,6 +4075,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDCASE
RELEASE tcPropName, tcValueType, taPropsAndValues, lnPos
RETURN luPropValue
ENDFUNC
@@ -4036,6 +4098,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toModulo._SourceFile = THIS.get_ValueByName_FromListNamesWithValues( 'SourceFile', 'C', @laPropsAndValues )
ENDIF
RELEASE toModulo, tcLine, taCodeLines, I, tnCodeLines
RETURN llBloqueEncontrado
ENDPROC
@@ -4056,6 +4119,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toModulo._Comment = ALLTRIM( STREXTRACT( tcLine, C_LIBCOMMENT_I, C_LIBCOMMENT_F ) )
ENDIF
RELEASE toModulo, tcLine, taCodeLines, I, tnCodeLines, laPropsAndValues, lnPropsAndValues_Count
RETURN llBloqueEncontrado
ENDPROC
@@ -4419,8 +4483,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
*-- Fin: ESTRUCTURA A ANALIZAR:
TRY
LOCAL lcDefinedPAM, lnPos, lnPos2, laProps(1,2), lcLine, lcPropName, lcValue, I, lcAsignacion, lcMemo ;
, laPropsAndValues(1,2), lnPropsAndValues_Count
LOCAL I, lcMemo, laPropsAndValues(1,2), lnPropsAndValues_Count
lcMemo = ''
IF toClase._Prop_Count > 0
@@ -4438,7 +4501,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
lcMemo = lcMemo + laPropsAndValues(I,1) + ' = ' + laPropsAndValues(I,2) + CR_LF
ENDFOR
ENDIF && laProps > 0
ENDIF && toClase._Prop_Count > 0
CATCH TO loEx
IF THIS.l_Debug AND _VFP.STARTMODE = 0
@@ -4447,6 +4510,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
THROW
FINALLY
RELEASE toClase, I, laPropsAndValues, lnPropsAndValues_Count
ENDTRY
RETURN lcMemo
@@ -4463,7 +4528,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, toObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG'
#ENDIF
LOCAL lcMemo, I, laPropsAndValues(1,2), lcPropName, lcValue
LOCAL lcMemo, I, laPropsAndValues(1,2)
lcMemo = ''
IF toObjeto._Prop_Count > 0
@@ -4483,6 +4548,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF
RELEASE toObjeto, toClase, I, laPropsAndValues
RETURN lcMemo
ENDPROC
@@ -4540,7 +4606,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDFOR
loProcedure = NULL
RELEASE loProcedure
RELEASE toClase, I, X, lcNombreObjeto, loProcedure
RETURN lcMemo
ENDPROC
@@ -4581,7 +4647,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDFOR
loProcedure = NULL
RELEASE loProcedure
RELEASE toObjeto, toClase, I, X, lcNombreObjeto, loProcedure
RETURN lcMemo
ENDPROC
@@ -4606,6 +4672,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF
ENDFOR
RELEASE tcPropName, toClase, I
RETURN lcComentario
ENDPROC
@@ -4633,7 +4700,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDFOR
loProcedure = NULL
RELEASE loProcedure
RELEASE tcMethodName, toClase, loProcedure, I
RETURN lcComentario
ENDPROC
@@ -4682,6 +4749,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
lnPos2 = AT( ']', tcSeparatedCommaVars, I )
tcSeparatedCommaVars = STUFF( tcSeparatedCommaVars, lnPos1, lnPos2 - lnPos1 + 1, '' )
ENDFOR
RELEASE tcSeparatedCommaVars, lnPos1, lnPos2, I
RETURN
ENDPROC
@@ -4703,6 +4773,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
.Evaluate_PAM( @lcMemo, toClase._HiddenMethods, 'method', 'hidden' )
ENDWITH && THIS
RELEASE toClase, I, lcPAM, lcComentario
RETURN lcMemo
ENDPROC
@@ -4727,6 +4798,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDTEXT
ENDIF
ENDFOR
RELEASE tcMemo, tcPAM, tcPAM_Type, tcPAM_Visibility, lcPAM, I
RETURN
ENDPROC
@@ -4802,6 +4876,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, toObjeto._User )
ENDIF
ENDWITH && THIS
RELEASE toClase, toObjeto, toFoxBin2Prg, lcPropsMemo, lcMethodsMemo
RETURN
ENDPROC
@@ -4881,7 +4958,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
FINALLY
loObjeto = NULL
RELEASE loObjeto
RELEASE toClase, toFoxBin2Prg, N, X, lcObjName, loObjeto
ENDTRY
@@ -4967,7 +5044,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
FINALLY
loProcedure = NULL
RELEASE loProcedure
RELEASE toClase, toObjeto, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto, tc_Comentario ;
, taLineasExclusion, tnBloquesExclusion, llEsProcedureDeClase, loProcedure
ENDTRY
@@ -5094,6 +5172,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
THROW
FINALLY
RELEASE toModulo, toClase, tcLine, I, taCodeLines, tnCodeLines ;
, laPropsAndValues, lnPropsAndValues_Count, Z, lcProp, lcValue, lcNombre, lcObjName
ENDTRY
RETURN llBloqueEncontrado
@@ -5194,6 +5275,9 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
THROW
FINALLY
RELEASE toClase, tcLine, taCodeLines, tnCodeLines, I ;
, lcDefinedPAM, lnPos, lnPos2, lcPAM_Name, lcItem, lcMethods, lcPAM_Type
ENDTRY
RETURN llBloqueEncontrado
@@ -5359,6 +5443,12 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
THROW
FINALLY
RELEASE toModulo, toClase, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto ;
, taLineasExclusion, tnBloquesExclusion, tc_Comentario, Z, lcProp, lcValue, loEx ;
, llCLASSMETADATA_Completed, llPROTECTED_Completed, llHIDDEN_Completed, llDEFINED_PAM_Completed ;
, llINCLUDE_Completed, llCLASS_PROPERTY_Completed, llOBJECTMETADATA_Completed ;
, llCLASSCOMMENTS_Completed, loObjeto
ENDTRY
ENDIF
@@ -5393,6 +5483,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
STORE '' TO tcProcedureAbierto
ENDIF
RELEASE toClase, tcLine, I, tcProcedureAbierto
RETURN llBloqueEncontrado
ENDPROC
@@ -5412,6 +5503,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._HiddenProps = LOWER( ALLTRIM( SUBSTR( tcLine, 8 ) ) )
ENDIF
RELEASE toClase, tcLine
RETURN llBloqueEncontrado
ENDPROC
@@ -5435,6 +5527,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF
ENDIF
RELEASE toModulo, toClase, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto
RETURN llBloqueEncontrado
ENDPROC
@@ -5484,6 +5577,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
THROW
FINALLY
RELEASE toClase, tcLine ,taCodeLines, tnCodeLines, I
ENDTRY
RETURN llBloqueEncontrado
@@ -5523,6 +5618,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDIF
ENDIF
RELEASE toClase, tcLine, laPropsAndValues, lnPropsAndValues_Count
RETURN llBloqueEncontrado
ENDPROC
@@ -5554,7 +5650,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
ENDWITH && THIS
loObjeto = NULL
RELEASE laPropsAndValues, lnPropsAndValues_Count, loObjeto
RELEASE toClase, tcLine, laPropsAndValues, lnPropsAndValues_Count, loObjeto
ENDIF
RETURN llBloqueEncontrado
@@ -5606,6 +5702,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
RELEASE loOle, laPropsAndValues, lnPropsAndValues_Count
ENDIF
RELEASE toModulo, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto
RETURN llBloqueEncontrado
ENDPROC
@@ -5651,6 +5748,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
, @tc_Comentario, @taLineasExclusion, @tnBloquesExclusion )
ENDIF
RELEASE toModulo, toClase, toObjeto, tcLine, taCodeLines, I, tnCodeLines, tcProcedureAbierto ;
, tc_Comentario, taLineasExclusion, tnBloquesExclusion
RETURN llBloqueEncontrado
ENDPROC
@@ -5670,6 +5769,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
toClase._ProtectedProps = LOWER( ALLTRIM( SUBSTR( tcLine, 11 ) ) )
ENDIF
RELEASE toClase, tcLine
RETURN llBloqueEncontrado
ENDPROC
@@ -5739,8 +5839,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
FINALLY
STORE NULL TO loProcedure
RELEASE loProcedure, I, lcNombreObjeto, lnObjProc
RELEASE loProcedure, I, lcNombreObjeto, lnObjProc ;
, toClase, tnX, tc_Comentario, tcProcName, tcProcType, toObjeto
ENDTRY
RETURN
@@ -5828,7 +5928,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base
FINALLY
STORE NULL TO loClase
RELEASE loClase, I ;
RELEASE taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toModulo, loClase, I ;
, llFoxBin2Prg_Completed, llOLE_DEF_Completed, llINCLUDE_SCX_Completed, llLIBCOMMENT_Completed ;
, lc_Comentario, lcProcedureAbierto, lcLine
ENDTRY
@@ -6724,6 +6824,11 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toProject ;
, I, lc_Comentario, lcLine, llBuildProj_Completed, llDevInfo_Completed ;
, llServerHead_Completed, llFileComments_Completed, llFoxBin2Prg_Completed ;
, llExcludedFiles_Completed, llTextFiles_Completed, llProjectProperties_Completed
ENDTRY
RETURN
@@ -6804,7 +6909,8 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
FINALLY
STORE NULL TO loFile
RELEASE lcComment, lcMetadatos, luValor, laPropsAndValues, lnPropsAndValues_Count, loFile
RELEASE toProject, tcLine, taCodeLines, I, tnCodeLines ;
, lcComment, lcMetadatos, luValor, laPropsAndValues, lnPropsAndValues_Count, loFile
ENDTRY
RETURN llBloqueEncontrado
@@ -7515,6 +7621,9 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE toReport, tcLine, taCodeLines, I, tnCodeLines, toReg, tcPropName ;
, lcValue, loEx
ENDTRY
RETURN llBloqueEncontrado
@@ -7533,9 +7642,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
#ENDIF
TRY
LOCAL llBloqueEncontrado, X, lnPos, lnPos2, lcValue, lnLenPropName, laProps(1) ;
, lcComment, lcMetadatos, luValor ;
, laPropsAndValues(1,2), lnPropsAndValues_Count
LOCAL llBloqueEncontrado, X, lnPos, lnPos2, lcValue, lnLenPropName, laProps(1)
IF LOWER( LEFT(tcLine, 10) ) == 'platform="'
llBloqueEncontrado = .T.
@@ -7564,6 +7671,9 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE toReport, tcLine, taCodeLines, I, tnCodeLines, toReg ;
, X, lnPos, lnPos2, lcValue, lnLenPropName, laProps
ENDTRY
RETURN llBloqueEncontrado
@@ -7939,6 +8049,9 @@ DEFINE CLASS c_conversor_prg_a_dbf AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toTable ;
, I, lc_Comentario, lcLine, llFoxBin2Prg_Completed, llBloqueTable_Completed
ENDTRY
RETURN
@@ -8116,6 +8229,9 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toDatabase ;
, I, lc_Comentario, lcLine, llFoxBin2Prg_Completed, llBloqueDatabase_Completed
ENDTRY
RETURN
@@ -8251,6 +8367,9 @@ DEFINE CLASS c_conversor_prg_a_mnx AS c_conversor_prg_a_bin
THROW
FINALLY
RELEASE taCodeLines, tnCodeLines, taLineasExclusion, tnBloquesExclusion, toMenu ;
, I, lc_Comentario, lcLine, llFoxBin2Prg_Completed, llBloqueMenu_Completed
ENDTRY
RETURN
@@ -8421,6 +8540,11 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE toRegObj, toRegClass, tcMethods, taMethods, taCode, tnMethodCount ;
, taPropsAndComments, tnPropsAndComments_Count, taProtected, tnProtected_Count ;
, toFoxBin2Prg, lcMethodName, lnMethodCount
ENDTRY
RETURN
@@ -8488,6 +8612,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tnMethodCount, taMethods, taCode, taProtected, taPropsAndComments ;
, lcMethod, lcMethodName, lnProtectedItem, lnCommentRow, lcProcDef, lcMethods, lnLen
ENDTRY
RETURN
@@ -8555,6 +8683,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMemo, tlSort, taPropsAndComments, tnPropsAndComments_Count, tcSortedMemo ;
, laLines, I, lnPos, loEx
ENDTRY
RETURN
@@ -8668,6 +8800,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMemo, tnSort, taPropsAndValues, tnPropsAndValues_Count, tcSortedMemo ;
, laItems, I, X, lnLenAcum, lnPosEQ, lcPropName, lnLenVal, lcValue, lcMethods
ENDTRY
RETURN
@@ -8689,6 +8825,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
EXTERNAL ARRAY taProtected
LOCAL I
tcSortedMemo = ''
tnProtected_Count = ALINES(taProtected, tcMemo, 1+4)
@@ -8712,6 +8849,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
DIMENSION taProtected(tnProtected_Count)
ENDIF
RELEASE tcMemo, tlSort, taProtected, tnProtected_Count, tcSortedMemo, I
RETURN
ENDPROC
@@ -8777,6 +8915,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMethod, tcIndentation, tlKeepProcHeader ;
, I, X, llProcedure, lnInicio, lnFin, laLineas, lnOffset
ENDTRY
RETURN lcMethod
@@ -8784,7 +8926,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
*******************************************************************************************************************
PROCEDURE MemoInOneLine( tcMethod )
PROCEDURE MemoInOneLine
LPARAMETERS tcMethod
TRY
LOCAL lcLine, I
lcLine = ''
@@ -8803,6 +8947,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMethod, I
ENDTRY
RETURN lcLine
@@ -8839,6 +8986,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE taPropsAndValues, tnPropCount, tcLeftIndentation, tlNormalizeLine ;
, I, lcComentarios, laLines, lcFinDeLinea
ENDTRY
RETURN lcLine
@@ -8903,6 +9054,11 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMethod, taMethods, taCode, tcSorted, tnMethodCount, taPropsAndComments, tnPropsAndComments_Count ;
, taProtected, tnProtected_Count, toFoxBin2Prg ;
, I, I2, laMethods, lnDeleted, lcMethodName, lnMethodPos, lcMethodType, loEx
ENDTRY
RETURN
@@ -9121,6 +9277,13 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE tcMethod, taMethods, taCode, tcSorted, tnMethodCount, taPropsAndComments, tnPropsAndComments_Count ;
, taProtected, tnProtected_Count, toFoxBin2Prg ;
, lnLineCount, laLine, I, lnTextNodes, tcSorted, lnProtectedLine, lcMethod, lnLine_Len, lcLine, llProcOpen ;
, laLineasExclusion, lnBloquesExclusion ;
, loEx
ENDTRY
RETURN
@@ -9197,6 +9360,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE toRegObj, lcMemo, laPropsAndValues, lnPropsAndValues_Count
ENDTRY
RETURN
@@ -9235,6 +9401,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
C_FB2PRG_CODE = C_FB2PRG_CODE + lcMethods
ENDIF
RELEASE tcMethods, taMethods, taCode, tnMethodCount, taPropsAndComments, tnPropsAndComments_Count, taProtected, tnProtected_Count, toFoxBin2Prg ;
, laMethods, laCode, lnMethodCount, I, lcMethods
RETURN
ENDPROC
@@ -9248,7 +9416,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
TRY
LOCAL lcHiddenProp, lcProtectedProp, lcPropsMethodsDefd, I ;
, lcPropName, lnProtectedItem, lcComentarios
, lcPropName, lnProtectedItem, lcComentarios ;
, loEx as Exception
WITH THIS AS c_conversor_bin_a_prg OF 'FOXBIN2PRG.PRG'
*-- DEFINIR PROPIEDADES ( HIDDEN, PROTECTED, *DEFINED_PAM )
@@ -9341,6 +9510,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDIF
THROW
FINALLY
RELEASE toRegClass, taPropsAndValues, taPropsAndComments, taProtected ;
, tnPropsAndValues_Count, tnPropsAndComments_Count, tnProtected_Count ;
, lcHiddenProp, lcProtectedProp, lcPropsMethodsDefd, I ;
, lcPropName, lnProtectedItem, lcComentarios, loEx
ENDTRY
RETURN
@@ -9403,8 +9578,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
C_FB2PRG_CODE = C_FB2PRG_CODE + CR_LF
RELEASE I, lcPropsMethodsDefd, lcType
ENDIF
RELEASE taPropsAndComments, tnPropsAndComments_Count
RETURN
ENDPROC
@@ -10279,7 +10456,8 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
FINALLY
USE IN (SELECT("TABLABIN"))
STORE NULL TO loRegClass, loRegObj
RELEASE lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen, lnObjCount ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen, lnObjCount ;
, laPropsAndValues, laPropsAndComments, lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle ;
, laObjs, I, lnPropsAndValues_Count, lnPropsAndComments_Count, lnProtected_Count
@@ -10524,7 +10702,8 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
FINALLY
USE IN (SELECT("TABLABIN"))
STORE NULL TO loRegClass, loRegObj
RELEASE lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen, lnObjCount ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen, lnObjCount ;
, laPropsAndValues, laPropsAndComments, lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle ;
, laObjs, I, lnPropsAndValues_Count, lnPropsAndComments_Count, lnProtected_Count
@@ -10868,7 +11047,8 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
FINALLY
USE IN (SELECT("TABLABIN"))
STORE NULL TO loProject, loReg, loServerHead, loServerData
RELEASE lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
, loProject, loServerHead, loServerData
ENDTRY
@@ -11249,7 +11429,8 @@ DEFINE CLASS c_conversor_pjm_a_prg AS c_conversor_bin_a_prg
FINALLY
*USE IN (SELECT("TABLABIN"))
STORE NULL TO loProject, loReg, loServerHead, loServerData
RELEASE lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
, lcStrPJM, laLines, laProps, loProject, loServerHead, loServerData
ENDTRY
@@ -11417,7 +11598,8 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
USE IN (SELECT("TABLABIN"))
USE IN (SELECT("TABLABIN_0"))
STORE NULL TO loRegObj, loRegCab, loRegDataEnv, loRegCur
RELEASE lnCodError, loRegCab, loRegDataEnv, loRegCur, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, loRegCab, loRegDataEnv, loRegCur, loRegObj, lnMethodCount, laMethods, laCode, laProtected, lnLen ;
, laPropsAndValues, laPropsAndComments, lnLastClass, lnRecno, lcMethods, lcObjName, la_NombresObjsOle
ENDTRY
@@ -11554,7 +11736,8 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg
ENDFOR
STORE NULL TO loTable, loDBFUtils
RELEASE lnCodError, laDatabases, lnDatabases_Count, laDatabases2, lnLen, lc_FileTypeDesc ;
RELEASE toModulo, toEx, toFoxBin2Prg ;
, lnCodError, laDatabases, lnDatabases_Count, laDatabases2, lnLen, lc_FileTypeDesc ;
, ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name, lnDataSessionID, lnSelect ;
, loTable, loDBFUtils
ENDTRY
@@ -11633,7 +11816,8 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
FINALLY
USE IN (SELECT("TABLABIN"))
CLOSE DATABASES
RELEASE toDatabase, toEx, toFoxBin2Prg ;
, lnCodError, laDatabases, lnDatabases_Count, lnLen
ENDTRY
RETURN
@@ -11714,7 +11898,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg
FINALLY
USE IN (SELECT("TABLABIN"))
RELEASE toMenu, toEx, toFoxBin2Prg, lnCodError, lnLen
ENDTRY
RETURN
@@ -11782,15 +11966,16 @@ DEFINE CLASS CL_CUS_BASE AS CUSTOM
*---------------------------------------------------------------------------------------------------
LPARAMETERS tcLine, tcComment
LOCAL ln_AT_Cmt
tcComment = ''
ln_AT_Cmt = AT( '&'+'&', tcLine)
IF ln_AT_Cmt > 0
tcComment = LTRIM( SUBSTR( tcLine, ln_AT_Cmt + 2 ) )
*tcLine = RTRIM( LEFT( tcLine, ln_AT_Cmt - 1 ), 0, ' ', CHR(9) ) && Quito espacios y TABS
tcLine = RTRIM( LEFT( tcLine, ln_AT_Cmt - 1 ), 0, CHR(9) ) && Quito TABS
ELSE
tcComment = ''
ENDIF
RELEASE tcLine, tcComment
RETURN (ln_AT_Cmt > 0)
ENDPROC
@@ -11861,8 +12046,11 @@ DEFINE CLASS CL_COL_BASE AS COLLECTION
IF ln_AT_Cmt > 0
tcComment = LTRIM( SUBSTR( tcLine, ln_AT_Cmt + 2 ) )
tcLine = RTRIM( LEFT( tcLine, ln_AT_Cmt - 1 ), 0, CHR(9) ) && Quito TABS
ELSE
tcComment = ''
ENDIF
RELEASE tcLine, tcComment
RETURN (ln_AT_Cmt > 0)
ENDPROC
@@ -18931,7 +19119,8 @@ DEFINE CLASS CL_MENU_OPTION AS CL_MENU_COL_BASE
FINALLY
STORE NULL TO loReg
RELEASE lcText, loReg, lnPos, lcPadName, lcExpr, lcComment, lcProcName, lcProcCode, lnNegContainer, lnNegObject
RELEASE tcLine, taCodeLines, I, tnCodeLines, toConversor ;
, lcText, loReg, lnPos, lcPadName, lcExpr, lcComment, lcProcName, lcProcCode, lnNegContainer, lnNegObject
ENDTRY