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

Enhancement for external config

Browse Source 
switch to control usa of "normal config" enhanced
This commit is contained in:
Lutz
2023-08-31 14:52:57 +02:00
parent af6db043ed
commit 110d8654dc
9 changed files with 193 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

227
foxbin2prg.prg
View File

@@ -1,5 +1,5 @@
#DEFINE DN_FB2PRG_VERSION 1.20
#DEFINE DC_FB2PRG_VERSION_REAL '1.20.01'
#DEFINE DC_FB2PRG_VERSION_REAL '1.20.02'
*---------------------------------------------------------------------------------------------------
* Module.........: FOXBIN2PRG.PRG - FOR VISUAL FOXPRO 9.0
@@ -306,11 +306,12 @@
* 20/03/2023 LScheffler v1.19.78 Enhancement: Text2Bin on PJX errors out for projects with an attach icon that has a drive letter on its path. #93 (ericbarte)
* 06/08/2023 LScheffler v1.20.00 Enhancement: Added option to return version number (LScheffler)
* 20/08/2023 LScheffler v1.20.00 Bug Fix: codepage is lost on recreation, issue #96, fixes issue #95 (OLE) as well (KestasL)
* 30/08/2023 LScheffler v1.20.21 Bug Fix: Some values of config file would not be read, if the inline comment "&&" was not in the line (LScheffler)
* 30/08/2023 LScheffler v1.20.21 Bug Fix: config file set by parameter would be ignored, if the folder contains FoxBin2Prg.cfg (LScheffler)
* 30/08/2023 LScheffler v1.20.21 Enhancement: For config file template new options to set config file and debug added
* 30/08/2023 LScheffler v1.20.21 Enhancement: New option for parameter set config file to control the use of "regular" config files
* 30/08/2023 LScheffler v1.20.21 Bug Fix: Fixed problems with table config files (LScheffler)
* 30/08/2023 LScheffler v1.20.01 Bug Fix: Some values of config file would not be read, if the inline comment "&&" was not in the line (LScheffler)
* 30/08/2023 LScheffler v1.20.01 Bug Fix: config file set by parameter would be ignored, if the folder contains FoxBin2Prg.cfg (LScheffler)
* 30/08/2023 LScheffler v1.20.01 Enhancement: For config file template new options to set config file and debug added
* 30/08/2023 LScheffler v1.20.01 Enhancement: New option for parameter set config file to control the use of "regular" config files
* 30/08/2023 LScheffler v1.20.01 Bug Fix: Fixed problems with table config files (LScheffler)
* 31/08/2023 LScheffler v1.20.02 Enhancement: New option for parameter set config file to control the use of "regular" config files enhanced.
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
*
*---------------------------------------------------------------------------------------------------
@@ -524,7 +525,8 @@
* generar errores de compilación, típicamente los #include.
* NOTA: Si en vez de '1' se indica un Path (p.ej, el del proyecto, se usará como base para recompilar
* tcNoTimestamps (v? IN ) Indica si se debe anular el timestamp ('1') o no ('0' ó vacío)
* tcCFG_File (v? IN ) Indica si se debe usar un archivo de configuración distinto al predeterminado
* tcCFG_File (v? IN ) Config file. If a config file is set, the normal chain of inheritance is reset and this file is read atop of the defaults
* Normal inheritance may or may not run, see setting AllowInheritance
*** DH 2021-03-04: added tcOutputFolder parameter
* tcOutputFolder (v? IN ) The output folder to write to (optional: if it isn't specified, the same folder as the source is used)
*---------------------------------------------------------------------------------------------------
@@ -536,11 +538,12 @@
* Usage 2
* PARAMETERS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
* tcType (c! IN ) Modus (case sensitive)
* -c Create config template "tcType" with default values
* -C Create config "tcType" with values of directory named by outputfile
* -t Create config template "tcType" for config-per-table file
* -c Create config template "tcType" with default values
* -C Create config "tcType" with values of directory named by outputfile
* -t Create config template "tcType" for config-per-table file
* tc_OutputFile (v? IN ) file to create
* tcCFG_File (v? IN ) Config file to load (no inheritance)
* tcCFG_File (v? IN ) Config file. If a config file is set, the normal chain of inheritance is reset and this file is read atop of the defaults
* Normal inheritance may or may not run, see setting AllowInheritance
* tcDebug (v? IN ) '1' write debug log (posiibly to GETENV("TEMP") )
*---------------------------------------------------------------------------------------------------
*** LScheffler 2023-08-06: added option to output version number
@@ -970,7 +973,6 @@ Define Class c_foxbin2prg As Session
+ [<memberdata name="l_cancelwithesckey" display="l_CancelWithEscKey"/>] ;
+ [<memberdata name="l_cfg_cachedaccess" display="l_CFG_CachedAccess"/>] ;
+ [<memberdata name="l_classperfilecheck" display="l_ClassPerFileCheck"/>] ;
+ [<memberdata name="l_allowinheritance" display="l_AllowInheritance"/>] ;
+ [<memberdata name="l_clearuniqueid" display="l_ClearUniqueID"/>] ;
+ [<memberdata name="l_cleardbflastupdate" display="l_ClearDBFLastUpdate"/>] ;
+ [<memberdata name="n_debug" display="n_Debug"/>] ;
@@ -991,7 +993,6 @@ Define Class c_foxbin2prg As Session
+ [<memberdata name="n_showprogressbar" display="n_ShowProgressbar"/>] ;
+ [<memberdata name="l_stdouthabilitado" display="l_StdOutHabilitado"/>] ;
+ [<memberdata name="l_test" display="l_Test"/>] ;
+ [<memberdata name="l_singleconfig" display="l_SingleConfig"/>] ;
+ [<memberdata name="n_useclassperfile" display="n_UseClassPerFile"/>] ;
+ [<memberdata name="n_cfg_actual" display="n_CFG_Actual"/>] ;
+ [<memberdata name="n_existecapitalizacion" display="n_ExisteCapitalizacion"/>] ;
@@ -1046,6 +1047,9 @@ Define Class c_foxbin2prg As Session
*!* + [<memberdata name="c_language_in" display="c_Language_In"/>] ;
*!* + [<memberdata name="writelog_flush" display="writeLog_Flush"/>] ;
*!* + [<memberdata name="n_checkfileinpath" display="n_CheckFileInPath"/>] ;
*!* + [<memberdata name="n_allowinheritance" display="n_AllowInheritance"/>] ;
*!* + [<memberdata name="l_singleconfig" display="l_SingleConfig"/>] ;
*!* + [<memberdata name="c_singleconfig_folder" display="c_SingleConfig_Folder"/>] ;
Dimension a_ProcessedFiles(1, 6)
Protected n_CFG_Actual, l_Main_CFG_Loaded, o_Configuration, l_CFG_CachedAccess
@@ -1119,7 +1123,7 @@ Define Class c_foxbin2prg As Session
n_ExcludeDBFAutoincNextval = 0
l_ClassPerFileCheck = .F.
*!* LScheffler 30.08.2023
l_AllowInheritance = .T.
n_AllowInheritance = 0
l_RedirectClassPerFileToMain = .F.
n_RedirectClassType = 0 && 0=Redireccionar Todas las clases, 1=Redireccionar solo la clase indicada
l_NoTimestamps = .T.
@@ -1177,6 +1181,8 @@ Define Class c_foxbin2prg As Session
*!* LScheffler 20.08.2023
*issue #96, [KestasL] keep CodePage relavant information for binary sources
i_CPID = 0 &&CPCURRENT(1)
*!* LScheffler 31.08.2023 more sophisticated control of inheritance for para file
c_SingleConfig_Folder = ''
Procedure Init
Lparameters tcCFG_File, tcCancelWithEscKey
@@ -1699,12 +1705,12 @@ Define Class c_foxbin2prg As Session
Endproc
*!* LScheffler 30.08.2023
Procedure l_AllowInheritance_ACCESS
Procedure n_AllowInheritance_ACCESS
*only from base config (and only if this is from parameter)
If This.n_CFG_Actual = 0 Or Isnull( This.o_Configuration( 1 ) )
Return This.l_AllowInheritance
Return This.n_AllowInheritance
Else
Return Nvl( This.o_Configuration( 1 ).l_AllowInheritance, This.l_AllowInheritance )
Return Nvl( This.o_Configuration( 1 ).n_AllowInheritance, This.n_AllowInheritance )
Endif
Endproc
@@ -2347,7 +2353,8 @@ Define Class c_foxbin2prg As Session
* tc_InputFile_Type (@? IN ) Tipo de archivo de entrada: (D)irectory, (F)ile, (Q)uerySupport
* toParentCFG (@? IN ) (Uso interno) Si se pasa un valor, el nuevo CFG copiará primero sus valores de aquí para heredarlos
* tl_ForceLog (v? IN ) Force logging of settings. used on cfg setting as object
* tcCFG_File (v? IN ) Config file. If a configfile is set, the normal chain of inheritance is stopped and only this file is used atop the defaults
* tcCFG_File (v? IN ) Config file. If a config file is set, the normal chain of inheritance is reset and this file is read atop of the defaults
* Normal inheritance may or may not run, see setting AllowInheritance
*--------------------------------------------------------------------------------------------------------------
Lparameters tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile, tcInputFile_Type, toParentCFG, tl_ForceLog, tcCFG_File
@@ -2362,8 +2369,8 @@ Define Class c_foxbin2prg As Session
, loCFG_Manual As CL_CFG Of 'FOXBIN2PRG.PRG' ;
, lo_Configuration As Collection ;
, loLang As CL_LANG Of 'FOXBIN2PRG.PRG' ;
, loEx As Exception, llSetSingleConfig, lc_Foxbin2prg_ConfigFile
, loEx As Exception, llSetSingleConfig, lc_Foxbin2prg_ConfigFile, lc_InputPath
Try
With This As c_foxbin2prg Of 'FOXBIN2PRG.PRG'
Store 0 To lnKey
@@ -2387,10 +2394,6 @@ Define Class c_foxbin2prg As Session
ENDIF &&VARTYPE(tcCFG_File)='C' AND !EMPTY(tcCFG_File)
*!* LScheffler 30.08.2023, just the single config from programm parameter, or sub dirs of the config file given by the parameter
IF .l_SingleConfig AND !.l_AllowInheritance THEN
Exit
ENDIF &&.l_SingleConfig AND !.l_AllowInheritance
lcConfigFile = .c_Foxbin2prg_ConfigFile
tc_InputFile = Evl(tc_InputFile, .c_InputFile)
@@ -2419,15 +2422,61 @@ Define Class c_foxbin2prg As Session
Do Case
Case Len(tc_InputFile) = 1
tcInputFile_Type = C_FILETYPE_QUERYSUPPORT
lc_InputPath = ""
Case Adir(laDirInfo, tc_InputFile, "D") = 1 And Substr( laDirInfo(1,5), 5, 1 ) = "D"
tcInputFile_Type = C_FILETYPE_DIRECTORY
lc_InputPath = tc_InputFile
Otherwise
tcInputFile_Type = C_FILETYPE_FILE
lc_InputPath = JUSTPATH(tc_InputFile)
Endcase
Else
If Empty(tc_InputFile) THEN
lc_InputPath = ""
ELSE &&Empty(tc_InputFile)
Do Case
Case tcInputFile_Type==C_FILETYPE_QUERYSUPPORT
lc_InputPath = ""
Case tcInputFile_Type==C_FILETYPE_DIRECTORY
lc_InputPath = tc_InputFile
Otherwise
* tcInputFile_Type = C_FILETYPE_FILE
lc_InputPath = JUSTPATH(tc_InputFile)
Endcase
ENDIF &&Empty(tc_InputFile)
Endif
*!* LScheffler 30.08.2023, just the single config from programm parameter, or sub dirs of the config file given by the parameter
*!* LScheffler 31.08.2023 more sophisticated control of inheritance for para file
lc_InputPath = UPPER(lc_InputPath)
DO CASE
CASE !.l_SingleConfig
*just go ahead
CASE .n_AllowInheritance=0
*read all
CASE Empty(lc_InputPath)
*whatever, just go ahead
CASE .n_AllowInheritance=3
*read nothing
Exit
*!* CASE INLIST(.n_AllowInheritance,1,2)
*!* *not a config file in FoxBinPrg's own folder
CASE INLIST(.n_AllowInheritance,1,2) AND lc_InputPath=.c_SingleConfig_Folder
*just in the directory or subdirectory of the config file set by the parameter
CASE .n_AllowInheritance=1 AND .c_SingleConfig_Folder=lc_InputPath
*just above the config file set by the parameter
Otherwise
Exit
ENDCASE
If .l_Main_CFG_Loaded And Not Empty(tc_InputFile) And Not tcInputFile_Type == C_FILETYPE_QUERYSUPPORT Then
If .n_CFG_EvaluateFromParam = 1
* Si se indicó por parámetro (modo objeto), usarlo como Maestro
@@ -2481,7 +2530,10 @@ Define Class c_foxbin2prg As Session
*-- Si no se pasó un CFG padre y no hay CFGs o no encuentra el del PATH indicado, analizo la jararquía
*!* LScheffler 30.08.2023 only read path if no config by parameter
If Isnull(llSetSingleConfig) AND Isnull(toParentCFG) And (lo_Configuration.Count = 0 Or .n_CFG_Actual = 0) Then
If Isnull(llSetSingleConfig);
AND Isnull(toParentCFG);
And (lo_Configuration.Count = 0 Or .n_CFG_Actual = 0);
AND !This.c_Foxbin2prg_ConfigFile==tc_InputFile Then
llMasterEval = .T.
toParentCFG = This
@@ -2582,7 +2634,6 @@ ASSERT lo_Configuration.Count<6
Case Empty( laConfig(m.I) ) Or Inlist( Left( laConfig(m.I), 1 ), '*', '#', '/', "'" )
Loop
*settings for internal work, not processing
* Depricated:
Case Left( laConfig(m.I), 17 ) == Lower('DontShowProgress:')
@@ -2771,9 +2822,9 @@ ASSERT lo_Configuration.Count<6
*!* LScheffler 30.08.2023
Case Left( laConfig(m.I), 17 ) == Lower('AllowInheritance:')
lcValue = Alltrim( Substr( laConfig(m.I), 18 ) )
If Inlist( lcValue, '0', '1' ) Then
If Inlist( lcValue, '0', '1' , '2' , '3' ) Then
IF llSetSingleConfig THEN
lo_CFG.l_AllowInheritance = ( Transform(lcValue) == '1' )
lo_CFG.n_AllowInheritance = Int( Val( lcValue ) )
ENDIF &&llSetSingleConfig
.writeLog( C_TAB + Justfname(lcConfigFile) + ' > AllowInheritance: ' + Transform(lcValue) +;
@@ -3117,15 +3168,33 @@ ASSERT lo_Configuration.Count<6
Throw
Finally
This.l_SingleConfig = NVL(llSetSingleConfig,This.l_SingleConfig)
This.l_SingleConfig = NVL(llSetSingleConfig,This.l_SingleConfig)
*!* LScheffler 31.08.2023 more sophisticated control of inheritance for para file
IF llSetSingleConfig THEN
.c_Foxbin2prg_ConfigFile = lc_Foxbin2prg_ConfigFile
.writeLog( '> ' + IIF(This.l_AllowInheritance, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
This.c_SingleConfig_Folder = UPPER(JUSTPATH(tcCFG_File))
This.c_Foxbin2prg_ConfigFile = lc_Foxbin2prg_ConfigFile
DO CASE
CASE This.n_AllowInheritance=0
This.writeLog( '> ' + IIF(This.n_AllowInheritance<3, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
CASE This.n_AllowInheritance=1
This.writeLog( '> ' + IIF(This.n_AllowInheritance<3, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
CASE This.n_AllowInheritance=2
This.writeLog( '> ' + IIF(This.n_AllowInheritance<3, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
CASE This.n_AllowInheritance=3
This.writeLog( '> ' + IIF(This.n_AllowInheritance<3, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
OTHERWISE
ENDCASE
This.writeLog( '> ' + IIF(This.n_AllowInheritance<3, loLang.C_USING_THIS_SETTINGS_LOC2, loLang.C_USING_THIS_SETTINGS_LOC3 ))
IF This.l_AllowInheritance THEN
This.evaluateConfiguration( '', '', '', '', '', '', '', '', JUSTPATH(This.c_Foxbin2prg_ConfigFile), C_FILETYPE_DIRECTORY, @toParentCFG)
ENDIF &&This.l_AllowInheritance
IF This.n_AllowInheritance=0 THEN
This.evaluateConfiguration( '', '', '', '', '', '', '', '', This.c_Foxbin2prg_ConfigFile, C_FILETYPE_FILE, @toParentCFG)
*In case we run FoxBin2Prg against FoxBin2Prg folder. do not reread
This.n_AllowInheritance = 1
ENDIF &&This.n_AllowInheritance=0
ENDIF &&llSetSingleConfig
Store .Null. To lo_Configuration, lo_CFG, loEx
@@ -3580,7 +3649,8 @@ ASSERT lo_Configuration.Count<6
* tcBackupLevels (v? IN ) Indica la cantidad de niveles de backup a realizar (por defecto '1')
* tcClearUniqueID (v? IN ) Indica si se debe limpiar el UniqueID ('1') o no ('0' ó vacío)
* tcOptimizeByFilestamp (v? IN ) Indica si se debe optimizar por filestamp mayor o igual ('1'), solo igual ('2') o no optimizar ('0' ó vacío)
* tcCFG_File (v? IN ) Indica si se debe usar un archivo de configuración distinto al predeterminado
* tcCFG_File (v? IN ) Config file. If a config file is set, the normal chain of inheritance is reset and this file is read atop of the defaults
* Normal inheritance may or may not run, see setting AllowInheritance
*--------------------------------------------------------------------------------------------------------------
Lparameters tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress ;
, toModulo, toEx As Exception, tlRelanzarError, tcOriginalFileName, tcRecompile, tcNoTimestamps ;
@@ -4020,7 +4090,7 @@ ASSERT lo_Configuration.Count<6
laOptions(49,2) = ".c_BackgroundImage"
laOptions(49,3) = 7
laOptions(50,1) = "*AllowInheritance:" && Inheritance out of config via parameter
laOptions(50,2) = ".l_AllowInheritance"
laOptions(50,2) = ".n_AllowInheritance"
laOptions(50,3) = 4
For lnOption = 1 To m.lnOptions
@@ -4029,11 +4099,11 @@ ASSERT lo_Configuration.Count<6
lcText = m.laLines( m.lnLine )
lcValue = Strextract( m.lcText , m.laOptions( m.lnOption, 1 ), '&'+'&' ,1 , 3)
Do Case
Case m.laOptions( m.lnOption, 3 ) = 0
Case m.laOptions( m.lnOption, 3 ) = 0 OR m.laOptions( m.lnOption, 3 ) = 4
*numeric to numeric
lcReturn = Padr(' ' + Transform( Evaluate( m.laOptions( m.lnOption, 2 ) ) ), Len(m.lcValue) + 1 )
Case m.laOptions( m.lnOption, 3 ) = 1 OR m.laOptions( m.lnOption, 3 ) = 4
Case m.laOptions( m.lnOption, 3 ) = 1
*logic to numeric
lcReturn = Padr(' ' + Iif ( Evaluate( m.laOptions( m.lnOption, 2 )), '1', '0' ), Len(m.lcValue) + 1 )
@@ -5390,12 +5460,14 @@ ASSERT lo_Configuration.Count<6
*---------------------------------------------------------------------------------------------------
* PARÁMETROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
* tcDir (@? IN ) Directorio del que devolver su configuración
* tcCFG_File (v? IN ) Config file. If a config file is set, the normal chain of inheritance is reset and this file is read atop of the defaults
* Normal inheritance may or may not run, see setting AllowInheritance
* RETORNO (@? OUT) Objeto CFG
*---------------------------------------------------------------------------------------------------
Lparameters tcDir
Lparameters tcDir, tcCFG_File
If Not Empty(tcDir)
This.evaluateConfiguration( '', '', '', '', '', '', '', '', tcDir, 'D' )
This.evaluateConfiguration( '', '', '', '', '', '', '', '', tcDir, 'D', , , tcCFG_File )
Endif
If This.n_CFG_Actual = 0 Then
@@ -30846,7 +30918,7 @@ Define Class CL_CFG As Custom
*!* /Changed by: LScheffler 21.02.2021
l_ClassPerFileCheck = .Null.
*!* LScheffler 30.08.2023
l_AllowInheritance = .Null.
n_AllowInheritance = .Null.
n_ExtraBackupLevels = .Null.
c_VC2 = .Null.
c_SC2 = .Null.
@@ -30913,7 +30985,7 @@ Define Class CL_CFG As Custom
*!* /Changed by: LScheffler 21.02.2021
.l_ClassPerFileCheck = toParentCFG.l_ClassPerFileCheck
*!* LScheffler 30.08.2023
.l_AllowInheritance = toParentCFG.l_AllowInheritance
.n_AllowInheritance = toParentCFG.n_AllowInheritance
.n_ExtraBackupLevels = toParentCFG.n_ExtraBackupLevels
.c_VC2 = toParentCFG.c_VC2
.c_SC2 = toParentCFG.c_SC2
@@ -31050,6 +31122,8 @@ Define Class CL_LANG As Custom
C_USING_THIS_SETTINGS_LOC1 = ""
C_USING_THIS_SETTINGS_LOC2 = ""
C_USING_THIS_SETTINGS_LOC3 = ""
C_USING_THIS_SETTINGS_LOC4 = ""
C_USING_THIS_SETTINGS_LOC5 = ""
C_WARNING_LOC = ""
C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = ""
C_WITH_ERRORS_LOC = ""
@@ -31217,7 +31291,15 @@ Define Class CL_LANG As Custom
<<>> && 1 save HomeDir in PJ2
<<>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<<>>-- Settings for config file via parameter only
<<>>AllowInheritance: 1 && 0=Not allow, 1=Allow scanning "regular" config files
<<>>AllowInheritance: 0 && 0=Allow scanning "regular" config files (file via parameter is just additional default)
<<>> && 1=Only read directory branch from root to parent of folder and below, not FoxBin2Prg default
<<>> && 2=Only read folder and subfolder of the file given by parameter
<<>> && 3=Read no other file
<<>> && This is like
<<>> && 0 Default | Parameter file | Default near FoxBin2Prg | all other config files
<<>> && 1 Default | Parameter file | Inheritance from root to parent of folder | folder and subdirs
<<>> && 2 Default | Parameter file | folder and subdirs
<<>> && 3 Default | Parameter file
<<>>----------------------------------------------------------------------------------------------------------------
<<>>
<<>>-- Conversion operation by type
@@ -31375,8 +31457,10 @@ Define Class CL_LANG As Custom
.C_USE_FILE_TIMESTAMP_OPTIMIZATION_LOC = "Utilisez le fichier Optimisation d'horodatage"
.C_USING_THIS_SETTINGS_LOC = "Utilisation de ce paramètre"
.C_USING_THIS_SETTINGS_LOC1 = " BY PARAMETER, skipping all previous config!"
.C_USING_THIS_SETTINGS_LOC2 = " Parsing configuration of subdirectories allowed."
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration of subdirectories not allowed."
.C_USING_THIS_SETTINGS_LOC2 = " Parsing of full configuration allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration in parent~ and subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC4 = " Parsing configuration in subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC5 = " Parsing of other configuration allowed."+0h0D0A
.C_WARNING_LOC = "AVERTISSEMENT!"
.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = "AVERTISSEMENT!" + CR_LF+ "ASSUREZ VOUS NE UTILISEZ PAS UN ALIAS DE TABLE SUR LES EXPRESSIONS INDEX CLÉS!! (exemple: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
.C_WITH_ERRORS_LOC = "avec des erreurs"
@@ -31522,7 +31606,15 @@ Define Class CL_LANG As Custom
<<>> && 1 save HomeDir in PJ2
<<>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<<>>-- Settings for config file via parameter only
<<>>AllowInheritance: 1 && 0=Not allow, 1=Allow scanning "regular" config files
<<>>AllowInheritance: 0 && 0=Allow scanning "regular" config files (file via parameter is just additional default)
<<>> && 1=Only read directory branch from root to parent of folder and below, not FoxBin2Prg default
<<>> && 2=Only read folder and subfolder of the file given by parameter
<<>> && 3=Read no other file
<<>> && This is like
<<>> && 0 Default | Parameter file | Default near FoxBin2Prg | all other config files
<<>> && 1 Default | Parameter file | Inheritance from root to parent of folder | folder and subdirs
<<>> && 2 Default | Parameter file | folder and subdirs
<<>> && 3 Default | Parameter file
<<>>----------------------------------------------------------------------------------------------------------------
<<>>
<<>>-- Conversion operation by type
@@ -31680,8 +31772,10 @@ Define Class CL_LANG As Custom
.C_USE_FILE_TIMESTAMP_OPTIMIZATION_LOC = "Usar Optimización de filestamp de archivo"
.C_USING_THIS_SETTINGS_LOC = "Usando esta configuración"
.C_USING_THIS_SETTINGS_LOC1 = " BY PARAMETER, skipping all previous config!"
.C_USING_THIS_SETTINGS_LOC2 = " Parsing configuration of subdirectories allowed."
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration of subdirectories not allowed."
.C_USING_THIS_SETTINGS_LOC2 = " Parsing of full configuration allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration in parent~ and subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC4 = " Parsing configuration in subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC5 = " Parsing of other configuration allowed."+0h0D0A
.C_WARNING_LOC = "¡ATENCIÓN!"
.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = "¡ATENCIÓN!" + CR_LF+ "ASEGÚRESE DE QUE NO ESTÁ USANDO UN ALIAS DE TABLA EN LAS EXPRESIONES DE LOS ÍNDICES!! (ej: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag nombreclave)"
.C_WITH_ERRORS_LOC = "con errores"
@@ -31829,7 +31923,16 @@ Define Class CL_LANG As Custom
<<>> && 1 Die Eigenschaft wird gespeichert
<<>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<<>>-- Settings for config file via parameter only
<<>>AllowInheritance: 1 && 0=Verbiete, 1=Erlaube die Auswertung von "normaler" Konfigurationsdateien
<<>>AllowInheritance: 0 && 0=Alle Konfiguration wird gelesen (Die Datei aus dem Parameter ist nur ein zusätzlicher default)
<<>> && 1=Nur die Vererbung in den Verezeichnissen , Im Verzeichnis der Konfiguration und Unterverzeichnisse werden gelesen
<<>> && 2=Nur die Konfiguration des Veruzeichnisses der Parameterdatei und Unterverzeichnisse werden gelesen
<<>> && 3=Keine weiter Konfiguration wird gelesen
<<>> && This is like
<<>> && 0 Default | Parameter Datei | Konfiguration im Programmverzeichnis von FoxBin2Prg | Alle anderen Konfigurationen
<<>> && 1 Default | Parameter Datei | Vererbung bis zum Verzeichnis der Parameter Datei | Das Verzeichnis und Unterverzeichnise der Parameter Datei
<<>> && 2 Default | Parameter Datei | Das Verzeichnis und Unterverzeichnise der Parameter Datei
<<>> && 3 Default | Parameter Datei
<<>>----------------------------------------------------------------------------------------------------------------
<<>>
<<>>-- Konvertierungs Optionen:
@@ -32009,8 +32112,10 @@ Define Class CL_LANG As Custom
.C_USE_FILE_TIMESTAMP_OPTIMIZATION_LOC = "Verwenden Sie die Datei-Zeitstempel-Optimierung"
.C_USING_THIS_SETTINGS_LOC = "Mit dieser Einstellung"
.C_USING_THIS_SETTINGS_LOC1 = " BY PARAMETER, alle vorherigen Einstellungen werden zurückgesetzt!"
.C_USING_THIS_SETTINGS_LOC2 = " Auswertung der Konfiguration der Unterverzeichnisse gestattet."
.C_USING_THIS_SETTINGS_LOC3 = " Auswertung der Konfiguration der Unterverzeichnisse nicht gestattet."
.C_USING_THIS_SETTINGS_LOC2 = " Komplette Auswertung der Konfiguration gestattet."+0h0D0A
.C_USING_THIS_SETTINGS_LOC3 = " Konfigurationsdateien von Unterverzeichnissen und ererbete Konfigurationen aus dem Baum werden ausgewertet."+0h0D0A
.C_USING_THIS_SETTINGS_LOC4 = " Konfigurationsdateien von Unterverzeichnissen werden ausgewertet."+0h0D0A
.C_USING_THIS_SETTINGS_LOC5 = " Es werdenm keine anderen Konfigurationsdateien gelesen."+0h0D0A
.C_WARNING_LOC = "WARNUNG!"
.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = "WARNUNG!" + CR_LF+ "STELLEN SIE SICHER, DAS KEIN TABELLENALIAS IM INDEXAUSDRUCK BENUTZT WIRD!! (z.B.: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
.C_WITH_ERRORS_LOC = "mit Fehlern"
@@ -32138,7 +32243,7 @@ Define Class CL_LANG As Custom
<<>> 1. Default values
<<>> 2., optional FOXBIN2PRG.CFG in folder of FOXBIN2PRG.EXE
<<>> or, if defined, a config file given by a parameter calling FOXBIN2PRG
<<>> if used, the AllowInheritance setting controls if other config files will be evaluated (default)
<<>> if used, the AllowInheritance setting controls if other config files will be evaluated (default). See below.
<<>> 3., optional FOXBIN2PRG.CFG in root of working directory
<<>> 4., optional FOXBIN2PRG.CFG in every folder up to the working directory
<<>> 5., optional Special settings per single DBF's Syntax: <TableName>.dbf.cfg in tables folder)
@@ -32158,7 +32263,15 @@ Define Class CL_LANG As Custom
<<>> && 1 save HomeDir in PJ2
<<>>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<<>>-- Settings for config file via parameter only
<<>>AllowInheritance: 1 && 0=Not allow, 1=Allow scanning "regular" config files
<<>>AllowInheritance: 0 && 0=Allow scanning "regular" config files (file via parameter is just additional default)
<<>> && 1=Only read tree from root of the file given by parameter, not FoxBin2Prg default
<<>> && 2=Only read folder and subfolder of the file given by parameter
<<>> && 3=Read no other file
<<>> && This is like
<<>> && 0 Default | Parameter file | Default near FoxBin2Prg | all other config files
<<>> && 1 Default | Parameter file | Inheritance from root to parent of folder | folder and subdirs
<<>> && 2 Default | Parameter file | folder and subdirs
<<>> && 3 Default | Parameter file
<<>>----------------------------------------------------------------------------------------------------------------
<<>>
<<>>-- Conversion operation by type
@@ -32316,8 +32429,10 @@ Define Class CL_LANG As Custom
.C_USE_FILE_TIMESTAMP_OPTIMIZATION_LOC = "Use file timestamp Optimization"
.C_USING_THIS_SETTINGS_LOC = "Using this settings"
.C_USING_THIS_SETTINGS_LOC1 = " BY PARAMETER, skipping all previous config!"
.C_USING_THIS_SETTINGS_LOC2 = " Parsing configuration of subdirectories allowed."
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration of subdirectories not allowed."
.C_USING_THIS_SETTINGS_LOC2 = " Parsing of full configuration allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC3 = " Parsing configuration in parent~ and subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC4 = " Parsing configuration in subdirectories allowed."+0h0D0A
.C_USING_THIS_SETTINGS_LOC5 = " Parsing of other configuration allowed."+0h0D0A
.C_WARNING_LOC = "WARNING!"
.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = "WARNING!" + CR_LF+ "MAKE SURE YOU ARE NOT USING A TABLE ALIAS ON INDEX KEY EXPRESSIONS!! (ex: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
.C_WITH_ERRORS_LOC = "with errors"