From 66b4429eadbc74ea910ad2c817c540d038c81412 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Mon, 22 Jun 2015 20:19:17 +0200 Subject: [PATCH] =?UTF-8?q?Mejora:=20Agregado=20soporte=20interno=20para?= =?UTF-8?q?=20consulta=20de=20informaci=C3=B3n=20de=20cfg=20de=20directori?= =?UTF-8?q?o,=20mediante=20nuevo=20par=C3=A1metro=20opcional,=20para=20los?= =?UTF-8?q?=20m=C3=A9todos=20API=20que=20lo=20requieren=20(por=20ej:=20get?= =?UTF-8?q?=5FExt2FromExt,=20hasSupport*)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- FoxBin2PRGVersionFile.txt | 1 + foxbin2prg.prg | 40 ++++++++++++++++++++++++++++++++++++--- 2 files changed, 38 insertions(+), 3 deletions(-) diff --git a/FoxBin2PRGVersionFile.txt b/FoxBin2PRGVersionFile.txt index 1ceb5ed..ae2df4d 100644 --- a/FoxBin2PRGVersionFile.txt +++ b/FoxBin2PRGVersionFile.txt @@ -19,6 +19,7 @@ Change History ------------------------------------------------------------- 2015/06/22 v1.19.46 - Bug Fix: set_UserValue() method causes error when trying to get information about another error and the VFP binary table can not be opened (ie, because corrupted memo) +- Feature: Added internal support for querying directory cfg information, with a new optional parameter, for API methods that require it (ie: get_Ext2FromExt, hasSupport*) 2015/06/21 v1.19.45 diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 620df32..c3c53c4 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -171,6 +171,7 @@ * 09/06/2015 FDBOZZO v1.19.45 Bug Fix: Cuando se procesan múltiples archivos PJ2, puede ocurrir un error de "variable llError no definida" (Lutz Scheffler) * 15/06/2015 FDBOZZO v1.19.45 Bug Fix pjx,*/pj2,*: Los proyectos PJX/PJ2 que referencian archivos de otras unidades de disco causan errores ne esos archivos al procesar con las opciones "*" o "*-" (Matt Slay) * 22/06/2015 FDBOZZO v1.19.46 Bug Fix: Arreglo de bug en método set_UserValue() cuando se intenta obtener información de un error que no puede abrir la tabla (por ej, porque el memo está corrupto) +* 22/06/2015 FDBOZZO v1.19.46 Mejora: Agregado soporte interno para consulta de información de cfg de directorio, mediante nuevo parámetro opcional, para los métodos API que lo requieren (por ej: get_Ext2FromExt, hasSupport*) * * *--------------------------------------------------------------------------------------------------- @@ -2285,11 +2286,22 @@ DEFINE CLASS c_foxbin2prg AS Session PROCEDURE get_Ext2FromExt - LPARAMETERS tcExt + *--------------------------------------------------------------------------------------------------- + * PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) + * tcExt (@! IN ) Extensión para comprobar si tiene soporte de conversión + * tcDir (@? IN ) Directorio del que devolver su configuración + * RETORNO (v? OUT) .T. si tiene soporte de conversión, .F. si no lo tiene + *--------------------------------------------------------------------------------------------------- + LPARAMETERS tcExt, tcDir + LOCAL lcExt2 tcExt = UPPER(tcExt) WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' + IF NOT EMPTY(tcDir) + .evaluateConfiguration( '', '', '', '', '', '', '', '', tcDir, 'D' ) + ENDIF + lcExt2 = ICASE( tcExt == 'PJX', .c_PJ2 ; , tcExt == 'VCX', .c_VC2 ; , tcExt == 'SCX', .c_SC2 ; @@ -2307,11 +2319,22 @@ DEFINE CLASS c_foxbin2prg AS Session PROCEDURE hasSupport_Bin2Prg - LPARAMETERS tcExt + *--------------------------------------------------------------------------------------------------- + * PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) + * tcExt (@! IN ) Extensión para comprobar si tiene soporte de conversión + * tcDir (@? IN ) Directorio del que devolver su configuración + * RETORNO (v? OUT) .T. si tiene soporte de conversión, .F. si no lo tiene + *--------------------------------------------------------------------------------------------------- + LPARAMETERS tcExt, tcDir + LOCAL llhasSupport tcExt = UPPER(JUSTEXT('.' + tcExt)) WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' + IF NOT EMPTY(tcDir) + .evaluateConfiguration( '', '', '', '', '', '', '', '', tcDir, 'D' ) + ENDIF + llhasSupport = ICASE( tcExt == 'PJX', .PJX_Conversion_Support > 0 ; , tcExt == 'VCX', .VCX_Conversion_Support > 0 ; , tcExt == 'SCX', .SCX_Conversion_Support > 0 ; @@ -2329,11 +2352,22 @@ DEFINE CLASS c_foxbin2prg AS Session PROCEDURE hasSupport_Prg2Bin - LPARAMETERS tcExt + *--------------------------------------------------------------------------------------------------- + * PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) + * tcExt (@! IN ) Extensión para comprobar si tiene soporte de conversión + * tcDir (@? IN ) Directorio del que devolver su configuración + * RETORNO (v? OUT) .T. si tiene soporte de conversión, .F. si no lo tiene + *--------------------------------------------------------------------------------------------------- + LPARAMETERS tcExt, tcDir + LOCAL llhasSupport tcExt = UPPER(JUSTEXT('.' + tcExt)) WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' + IF NOT EMPTY(tcDir) + .evaluateConfiguration( '', '', '', '', '', '', '', '', tcDir, 'D' ) + ENDIF + llhasSupport = ICASE( tcExt == .c_PJ2, .PJX_Conversion_Support = 2 ; , tcExt == .c_VC2, .VCX_Conversion_Support = 2 ; , tcExt == .c_SC2, .SCX_Conversion_Support = 2 ;