From ac30b53cd332157d8a7fe385bc900e135bcfc400 Mon Sep 17 00:00:00 2001 From: Jens Arnold Date: Fri, 5 Jun 2009 06:40:16 +0000 Subject: Add language identifiers for Arabic. Also map 'walon' to Belgian French. It is probably not 100% correct, but at least there is a mapping, similar to how the script handles Wallisertitsch. git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21193 a1c6a512-1295-4272-9138-f99709370657 --- tools/sapi_voice.vbs | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs index 57c16f013a..20caaebb14 100644 --- a/tools/sapi_voice.vbs +++ b/tools/sapi_voice.vbs @@ -270,6 +270,13 @@ Function LangIDs(ByRef sLanguage) Dim aIDs Select Case sLanguage + Case "arabic" + LangIDs = Array( &h401, &h801, &hc01, &h1001, &h1401, &h1801, _ + &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _ + &h3401, &h3801, &h3c01, &h4001) + ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia, + ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain, + ' Qatar Case "afrikaans" LangIDs = Array(&h436) Case "bulgarian" @@ -311,8 +318,8 @@ Function LangIDs(ByRef sLanguage) Case "finnish" LangIDs = Array(&h40b) Case "francais" - LangIDs = Array(&h40c, &h80c, &hc0c, &h100c, &h140c, &h180c) - ' Standard, Belgian, Canadian, Swiss, Luxembourg, Monaco + LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c) + ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon) Case "galego" LangIDs = Array(&h456) Case "greek" @@ -361,6 +368,8 @@ Function LangIDs(ByRef sLanguage) LangIDs = Array(&h41f) Case "wallisertitsch" LangIDs = Array(&h807) ' Swiss German + Case "walon" + LangIDs = Array(&h80c) ' Belgian French End Select End Function -- cgit v1.2.3