f378b64024
- Arreglo de bug introducido durante el desarrollo (se acumulaban los objetos de todas las clases) - Limpieza de código
88 lines
2.8 KiB
Plaintext
88 lines
2.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
LPARAMETERS tcDir
|
|
|
|
lcCurdir = SYS(5)+CURDIR()
|
|
CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
|
|
|
|
*<DevInfo>
|
|
_Author = "Fernando D. Bozzo"
|
|
_Company = ""
|
|
_Address = ""
|
|
_City = "Coslada"
|
|
_State = "MAD"
|
|
_PostalCode = "28823"
|
|
_Country = "Spain"
|
|
*--
|
|
_Comments = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
|
|
_CompanyName = "Fernando D. Bozzo"
|
|
_FileDescription = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
|
|
_LegalCopyright = "Open Source - LICENCIA Creative Commons: Reconocimiento - CompartirIgual (by-sa): http://es.creativecommons.org/blog/licencias/"
|
|
_LegalTrademark = "Open Source"
|
|
_ProductName = " FOXBIN2PRG"
|
|
_MajorVer = "1"
|
|
_MinorVer = "19"
|
|
_Revision = " 270"
|
|
_LanguageID = "1034"
|
|
_AutoIncrement = "1"
|
|
*</DevInfo>
|
|
|
|
|
|
*<BuildProj>
|
|
*<.HomeDir = 'c:\desa\foxbin2prg' />
|
|
|
|
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
|
loProject.Close()
|
|
ENDFOR
|
|
|
|
STRTOFILE( '', '__newproject.f2b' )
|
|
BUILD PROJECT foxbin2prg.pjx FROM '__newproject.f2b'
|
|
FOR EACH loProject IN _VFP.Projects FOXOBJECT
|
|
loProject.Close()
|
|
ENDFOR
|
|
|
|
MODIFY PROJECT 'foxbin2prg.pjx' NOWAIT NOSHOW NOPROJECTHOOK
|
|
|
|
loProject = _VFP.Projects('foxbin2prg.pjx')
|
|
|
|
WITH loProject.FILES
|
|
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="1131721714" ObjRev="0" />
|
|
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="1130644423" ObjRev="544" />
|
|
*</BuildProj>
|
|
|
|
.ITEM('__newproject.f2b').Remove()
|
|
|
|
*<FileComments>
|
|
.ITEM(lcCurdir + 'foxbin2prg.prg').Description = 'Conversor'
|
|
*</FileComments>
|
|
|
|
*<ExcludedFiles>
|
|
*</ExcludedFiles>
|
|
|
|
*<TextFiles>
|
|
.ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
|
|
*</TextFiles>
|
|
ENDWITH
|
|
|
|
WITH loProject
|
|
*<ProjectProperties>
|
|
.SetMain(lcCurdir + 'foxbin2prg.prg')
|
|
.Debug = .T.
|
|
.Encrypted = .F.
|
|
*<.CmntStyle = 1 />
|
|
*<.NoLogo = .F. />
|
|
*<.SaveCode = .T. />
|
|
.ProjectHookLibrary = ''
|
|
.ProjectHookClass = ''
|
|
*</ProjectProperties>
|
|
ENDWITH
|
|
|
|
|
|
_VFP.Projects('foxbin2prg.pjx').Close()
|
|
*ERASE '__newproject.f2b'
|
|
CD (lcCurdir)
|
|
RETURN |