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

Changeset: 550 fdbozzo - 06/12/2014 03:33:12:

Browse Source 
- Agregada parametrización del lenguaje en foxbin2prg.cfg
This commit is contained in:
fdbozzo
2014-12-06 04:18:07 +01:00
parent 0c27522cf3
commit 8be9181ff0
2 changed files with 40 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
foxbin2prg.prg
View File

@@ -550,7 +550,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*--
n_FB2PRG_Version = 1.19
*--
c_Language = 'ES'
c_Language = '' && EN, FR, ES, DE
c_loc_processing_file = ''
c_loc_process_progress = ''
c_FB2PRG_EXE_Version = 0
@@ -1411,6 +1411,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
.writeLog( JUSTFNAME(lcConfigFile) + ' > DropNullCharsFromCode: ' + TRANSFORM(lcValue) )
ENDIF
CASE LEFT( laConfig(I), 9 ) == LOWER('Language:')
lcValue = ALLTRIM( SUBSTR( laConfig(I), 10 ) )
IF .T.
.ChangeLanguage(lcValue)
.writeLog( JUSTFNAME(lcConfigFile) + ' > Language: ' + TRANSFORM(lcValue) + ' (' + .c_Language + ')' )
ENDIF
CASE LEFT( laConfig(I), 23 ) == LOWER('PJX_Conversion_Support:')
lcValue = ALLTRIM( SUBSTR( laConfig(I), 24 ) )
IF INLIST( lcValue, '0', '1', '2' ) THEN
@@ -1529,6 +1536,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
.writeLog( '> l_OptimizeByFilestamp: ' + TRANSFORM(.l_OptimizeByFilestamp) )
.writeLog( '> l_DropNullCharsFromCode: ' + TRANSFORM(.l_DropNullCharsFromCode) )
.writeLog( '> l_ClearDBFLastUpdate: ' + TRANSFORM(.l_ClearDBFLastUpdate) )
.writeLog( '> c_Language: ' + TRANSFORM(.c_Language) )
lo_CFG = NULL
RELEASE lo_CFG
@@ -2173,7 +2181,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDPROC
PROCEDURE ejecutar_WriteErrorLog
HIDDEN PROCEDURE ejecutar_WriteErrorLog
LPARAMETERS toEx, tcErrorInfo
LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
@@ -11139,7 +11147,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
#ENDIF
LOCAL llFileExists
LOCAL llFileExists, lnBytes
LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
loLang = _SCREEN.o_FoxBin2Prg_Lang
@@ -11155,7 +11163,10 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
toFoxBin2Prg.ChangeFileAttribute( tcOutputFile, '-R' )
ENDIF
IF STRTOFILE( tcCodigo, tcOutputFile ) = 0
lnBytes = STRTOFILE( tcCodigo, tcOutputFile )
THIS.writeLog( 'Generated file size: ' + TRANSFORM(lnBytes/1024) + ' KiB' )
IF lnBytes = 0
*ERROR 'No se puede generar el archivo [' + .c_OutputFile + '] porque es ReadOnly'
ERROR (TEXTMERGE(loLang.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC))
ENDIF
@@ -21445,23 +21456,23 @@ DEFINE CLASS CL_LANG AS Custom
*-------------------------------------------------------------------------------------------------------------------------------------------
C_ASTERISK_EXT_NOT_ALLOWED_LOC = "* and ? extensions are not allowed because it's dangerous (binaries can be overwritten with xx2 empty files)"
C_BACKLINK_CANT_UPDATE_BL_LOC = "Could not update backlink"
C_BACKLINK_OF_TABLE_LOC = "of table"
C_BACKUP_OF_LOC = "Doing Backup of: "
C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "Cannot generate file [<<THIS.c_OutputFile>>] because it is ReadOnly"
C_BACKLINK_OF_TABLE_LOC = "of table"
C_BACKUP_OF_LOC = "Doing Backup of: "
C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "Cannot generate file [<<THIS.c_OutputFile>>] because it is ReadOnly"
C_CONFIGFILE_LOC = "Using configuration file:"
C_CONVERSION_CANCELLED_BY_USER_LOC = "Conversion Cancelled by the user"
C_CONVERTER_UNLOAD_LOC = "Converter unload"
C_CONVERTING_FILE_LOC = "Converting file"
C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC = "Data Error: Can't parse because of unpaired double-quotes on line <<lcMetadatos>>"
C_DATA_ERROR_CANT_PARSE_UNPAIRING_DOUBLE_QUOTES_LOC = "Data Error: Can't parse because of unpaired double-quotes on line <<lcMetadatos>>"
C_DUPLICATED_FILE_LOC = "Duplicated file"
C_ENDDEFINE_MARKER_NOT_FOUND_LOC = "Cannot find end marker [ENDDEFINE] of line <<TRANSFORM( toClase._Inicio )>> for ID [<<toClase._Nombre>>]"
C_END_MARKER_NOT_FOUND_LOC = "Cannot find end marker [<<ta_ID_Bloques(lnPrimerID,2)>>] that closes start marker [<<ta_ID_Bloques(lnPrimerID,1)>>] on line <<TRANSFORM(taBloquesExclusion(tnBloquesExclusion,1))>>"
C_END_OF_PROCESS_LOC = "End of Process"
C_EXTENSION_RECONFIGURATION_LOC = "Extension Reconfiguration:"
C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC = "External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
C_EXTENSION_RECONFIGURATION_LOC = "Extension Reconfiguration:"
C_EXTERNAL_CLASS_COUNT_DOES_NOT_MATCH_FOUND_CLASSES_LOC = "External class count (<<toModulo._ExternalClasses_Count>>) does not match found classes (<<toModulo._Clases_Count>>) for file [<<toFoxBin2Prg.c_InputFile>>]"
C_EXTERNAL_CLASS_NAME_DOES_NOT_FOUND_LOC = "External class [<<toModulo._ExternalClasses(I)>>] is not found in file [<<toFoxBin2Prg.c_InputFile>>]"
C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC = "Field [<<laProps(I)>>] not found in structure of file <<DBF('TABLABIN')>>"
C_FILE_DOESNT_EXIST_LOC = "File does not exist:"
C_FIELD_NOT_FOUND_ON_FILE_STRUCTURE_LOC = "Field [<<laProps(I)>>] not found in structure of file <<DBF('TABLABIN')>>"
C_FILE_DOESNT_EXIST_LOC = "File does not exist:"
C_FILE_NAME_IS_NOT_SUPPORTED_LOC = "File [<<.c_InputFile>>] is not supported"
C_FILE_NOT_FOUND_LOC = "File not found"
C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERROR!!"
@@ -21471,23 +21482,24 @@ DEFINE CLASS CL_LANG AS Custom
+ " FOXBIN2PRG 'c:\development\classes\*.vcx' '0' '0' '0' '1' '1'" + CR_LF + CR_LF ;
+ "Example of generating TXT from all VCX is 'c:\development\classes', without showing error window and without LOG file: " + CR_LF ;
+ " FOXBIN2PRG 'c:\development\classes\*.vc2' '0' '0' '0' '1' '0'"
C_FOXBIN2PRG_JUST_VFP_9_LOC = "FOXBIN2PRG is only for Visual FoxPro 9.0!"
C_FOXBIN2PRG_JUST_VFP_9_LOC = "FOXBIN2PRG is only for Visual FoxPro 9.0!"
C_FOXBIN2PRG_WARN_CAPTION_LOC = "FOXBIN2PRG: WARNING!"
C_GENERATED_FILE_SIZE_LOC = "Generated file size"
C_LANGUAGE_LOC = "EN"
C_MENU_NOT_IN_VFP9_FORMAT_LOC = "Menu [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY MENU '<<THIS.c_InputFile>>'"
C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC = "* Names capitalization program [<<lcEXE_CAPS>>] found"
C_NAMES_CAPITALIZATION_PROGRAM_NOT_FOUND_LOC = "* Names capitalization program [<<lcEXE_CAPS>>] not found"
C_OBJECT_NAME_WITHOUT_OBJECT_OREG_LOC = "Object [<<toObj.CLASS>>] does not contain oReg object (level <<TRANSFORM(tnNivel)>>)"
C_ONLY_SETNAME_AND_GETNAME_RECOGNIZED_LOC = "Operation not recognized. Only SETNAME and GETNAME allowed."
C_OUTPUT_FILE_IS_NOT_OVERWRITEN_LOC = "Optimization: Output file [<<THIS.c_OutputFile>>] was not overwritten because it is the same as was generated."
C_OUTPUT_FILE_IS_NOT_OVERWRITEN_LOC = "Optimization: Output file [<<THIS.c_OutputFile>>] was not overwritten because it is the same as was generated."
C_OUTPUTFILE_NEWER_THAN_INPUTFILE_LOC = "Optimization: Output file [<<THIS.c_OutputFile>>] was not regenerated because it is newer than the inputfile."
C_PRESS_ESC_TO_CANCEL = "Press Esc to Cancel"
C_PROCEDURE_NOT_CLOSED_ON_LINE_LOC = "Procedure not closed. Last line of code must be ENDPROC. [<<laLineas(1)>>, Recno:<<RECNO()>>]"
C_PROCESSING_LOC = "Processing file"
C_PROCESS_PROGRESS_LOC = "Process Progress:"
C_PROPERTY_NAME_NOT_RECOGNIZED_LOC = "Property [<<TRANSFORM(tnPropertyID)>>] is not recognized."
C_REPORT_NOT_IN_VFP9_FORMAT_LOC = "Report [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY REPORT '<<THIS.c_InputFile>>'"
C_REQUESTING_CAPITALIZATION_OF_FILE_LOC = "- Requesting capitalization of file [<<tcFileName>>]"
C_REPORT_NOT_IN_VFP9_FORMAT_LOC = "Report [<<THIS.c_InputFile>>] is NOT in VFP 9 Format! - Please convert to VFP 9 with MODIFY REPORT '<<THIS.c_InputFile>>'"
C_REQUESTING_CAPITALIZATION_OF_FILE_LOC = "- Requesting capitalization of file [<<tcFileName>>]"
C_SCANNING_FILE_AND_DIR_INFO_LOC = "Scanning file and directory information for"
C_SOURCEFILE_LOC = "Source file: "
C_STRUCTURE_NESTING_ERROR_ENDPROC_EXPECTED_LOC = "Nesting structure error. ENDPROC expected but found ENDDEFINE on class <<toClase._Nombre>> (<<loProcedure._Nombre>>), line <<TRANSFORM(I)>> of file <<THIS.c_InputFile>>"
@@ -21560,7 +21572,7 @@ DEFINE CLASS CL_LANG AS Custom
*-- Ya se carg<72>
.n_LanguageSelectedMethod = 2 && 2=Loaded from foxbin2prg.h
CASE tcLanguage == '33' && French (Franc<6E>s)
CASE INLIST(tcLanguage, '33', 'FR') && French (Franc<6E>s)
*-------------------------------------------------------------------------------------------------------------------------------------------
*-- NOTE: MUST USE DOUBLE QUOTES, OR SYNTAX ERRORS HAPPEN WHEN COMPILING. STRANGE :(
*-------------------------------------------------------------------------------------------------------------------------------------------
@@ -21594,6 +21606,7 @@ DEFINE CLASS CL_LANG AS Custom
+ " FOXBIN2PRG 'c:\development\classes\*.vc2' '0' '0' '0' '1' '0'"
.C_FOXBIN2PRG_JUST_VFP_9_LOC = "FOXBIN2PRG est seulement pour Visual FoxPro 9.0!"
.C_FOXBIN2PRG_WARN_CAPTION_LOC = "FOXBIN2PRG: AVERTISSEMENT!"
.C_GENERATED_FILE_SIZE_LOC = "Taille du fichier g<>n<EFBFBD>r<EFBFBD>"
.C_LANGUAGE_LOC = "FR"
.C_MENU_NOT_IN_VFP9_FORMAT_LOC = "Menu [<<THIS.c_InputFile>>] ne est pas dans VFP 9 Format! - Se il vous pla<6C>t se convertir <20> VFP 9 avec MODIFY MENU '<<THIS.c_InputFile>>'"
.C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC = "* Programme des noms de capitalisation [<<lcEXE_CAPS>>] trouv<75>"
@@ -21617,7 +21630,7 @@ DEFINE CLASS CL_LANG AS Custom
.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<43>S!! (exemple: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag keyname)"
.C_WITH_ERRORS_LOC = "avec des erreurs"
CASE tcLanguage == '34' && Spanish (Espa<70>ol)
CASE INLIST(tcLanguage, '34', 'ES') && Spanish (Espa<70>ol)
*-------------------------------------------------------------------------------------------------------------------------------------------
*-- NOTA: SE DEBEN USAR COMILLAS DOBLES, O ERRORES DE SINTAXIS OCURREN AL COMPILAR. EXTRA<52>O :(
*-------------------------------------------------------------------------------------------------------------------------------------------
@@ -21651,6 +21664,7 @@ DEFINE CLASS CL_LANG AS Custom
+ " FOXBIN2PRG 'c:\desa\clases\*.vc2' '0' '0' '0' '1' '0'"
.C_FOXBIN2PRG_JUST_VFP_9_LOC = "<22>FOXBIN2PRG es solo para Visual FoxPro 9.0!"
.C_FOXBIN2PRG_WARN_CAPTION_LOC = "FOXBIN2PRG: <20>ATENCI<43>N!"
.C_GENERATED_FILE_SIZE_LOC = "Tama<6D>o del archivo generado"
.C_MENU_NOT_IN_VFP9_FORMAT_LOC = "El Men<65> [<<THIS.c_InputFile>>] NO est<73> en formato VFP 9! - Por favor convertirlo a VFP 9 con MODIFY MENU '<<THIS.c_InputFile>>'"
.C_LANGUAGE_LOC = "ES"
.C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC = "* Se ha encontrado el programa de capitalizaci<63>n de nombres [<<lcEXE_CAPS>>]"
@@ -21674,7 +21688,7 @@ DEFINE CLASS CL_LANG AS Custom
.C_WARN_TABLE_ALIAS_ON_INDEX_EXPRESSION_LOC = "<22><>ATENCI<43>N!!" + CR_LF+ "ASEG<45>RESE DE QUE NO EST<53> USANDO UN ALIAS DE TABLA EN LAS EXPRESIONES DE LOS <20>NDICES!! (ej: index on <<UPPER(JUSTSTEM(THIS.c_InputFile))>>.campo tag nombreclave)"
.C_WITH_ERRORS_LOC = "con errores"
CASE tcLanguage == '49' && German (Alem<65>n)
CASE INLIST(tcLanguage, '49', 'DE') && German (Alem<65>n)
*-------------------------------------------------------------------------------------------------------------------------------------------
*-- NOTE: ES M<>SSEN ANF<4E>HRUNGSZEICHEN BENUTZT WERDEN, ODER SYNTAX ERRORS PASSIEREN BEIM COMPILE. SELTSAM :(
*-------------------------------------------------------------------------------------------------------------------------------------------
@@ -21708,6 +21722,7 @@ DEFINE CLASS CL_LANG AS Custom
+ " FOXBIN2PRG 'c:\development\classes\*.vc2' '0' '0' '0' '1' '0'"
.C_FOXBIN2PRG_JUST_VFP_9_LOC = "FOXBIN2PRG ist nur f<>r Visual FoxPro 9.0!"
.C_FOXBIN2PRG_WARN_CAPTION_LOC = "FOXBIN2PRG: WARNUNG!"
.C_GENERATED_FILE_SIZE_LOC = "Generierte Dateigr<67><72>e"
.C_LANGUAGE_LOC = "DE"
.C_MENU_NOT_IN_VFP9_FORMAT_LOC = "Menu [<<THIS.c_InputFile>>] ist NICHT in VFP 9 Format! - Bitte zuerst nach VFP 9 konvertieren mit MODIFY MENU '<<THIS.c_InputFile>>'"
.C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC = "* Programm f<>r Gro<72>schreibungssetzung [<<lcEXE_CAPS>>] gefunden"