Download dictionaries and thesauri from SVN.

Patch from Eugene.

(cherry picked from commit 36a1f365f0)
This commit is contained in:
Richard Kimberly Heck 2020-04-05 14:48:19 -04:00
parent aede56fa20
commit 1bd2e72d5a
2 changed files with 8 additions and 32 deletions

View File

@ -73,22 +73,9 @@ Function DownloadHunspellDictionaries
${if} $DictCode == $R3 ${if} $DictCode == $R3
StrCpy $String $String -2 # delete the linebreak characters at the end StrCpy $String $String -2 # delete the linebreak characters at the end
# Download hunspell dictionaries, # Download hunspell dictionaries
# if first download repository is not available try the other ones listed in "DictionaryMirrors.txt" inetc::get /TIMEOUT=5000 "https://www.lyx.org/trac/export/HEAD/lyxsvn/dictionaries/trunk/dicts/$String" "$INSTDIR\Resources\dicts\$String" /END
FileOpen $R4 "$INSTDIR\Resources\DictionaryMirrors.txt" r Pop $R0
${For} $4 1 24 # there are 24 mirrors in the file
FileRead $R4 $Search # $Search is now the mirror
StrCpy $Search $Search -2 # delete the linebreak characters at the end
Push $R0
inetc::get /TIMEOUT=5000 "https://$Search.dl.sourceforge.net/project/lyxwininstaller/hunspell/$String" "$INSTDIR\Resources\dicts\$String" /END
Pop $R0
${if} $R0 == "OK"
${ExitFor}
${endif}
${Next}
FileClose $R4
# if download failed # if download failed
${if} $R0 != "OK" ${if} $R0 != "OK"
MessageBox MB_OK|MB_ICONEXCLAMATION "$(HunspellFailed)" MessageBox MB_OK|MB_ICONEXCLAMATION "$(HunspellFailed)"
@ -119,22 +106,9 @@ Function DownloadThesaurusDictionaries
${if} $ThesCode == $R3 ${if} $ThesCode == $R3
StrCpy $String $String -2 # delete the linebreak characters at the end StrCpy $String $String -2 # delete the linebreak characters at the end
# Download thesaurus files, # Download thesaurus files
# if first download repository is not available try the other ones listed in "DictionaryMirrors.txt" inetc::get /TIMEOUT=5000 "https://www.lyx.org/trac/export/HEAD/lyxsvn/dictionaries/trunk/thes/$String" "$INSTDIR\Resources\thes\$String" /END
FileOpen $R4 "$INSTDIR\Resources\DictionaryMirrors.txt" r Pop $R0
${For} $4 1 24 # there are 24 mirrors in the file
FileRead $R4 $Search # $Search is now the mirror
StrCpy $Search $Search -2 # delete the linebreak characters at the end
Push $R0
inetc::get /TIMEOUT=5000 "https://$Search.dl.sourceforge.net/project/lyxwininstaller/thesaurus/$String" "$INSTDIR\Resources\thes\$String" /END
Pop $R0
${if} $R0 == "OK"
${ExitFor}
${endif}
${Next}
FileClose $R4
# if download failed # if download failed
${if} $R0 != "OK" ${if} $R0 != "OK"
MessageBox MB_OK|MB_ICONEXCLAMATION "$(ThesaurusFailed)" MessageBox MB_OK|MB_ICONEXCLAMATION "$(ThesaurusFailed)"

View File

@ -120,3 +120,5 @@ What's new
- Do not break configuration if a layout file is not decodable. Rather than that, - Do not break configuration if a layout file is not decodable. Rather than that,
issue a warning and skip that file (bug 11736). issue a warning and skip that file (bug 11736).
- Download dictionary and thesaurus files, on Windows, from our SVN repo (bug 11192).