suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Russian and Ukranian translation files from Sergey Semerikov

Browse Source 
svn: r18272
This commit is contained in:
Eli Barzilay 2010-02-22 21:27:17 +00:00
parent d4b0f917df
commit 177f572cda
4 changed files with 3081 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/acks.ss
View File

@ -70,16 +70,18 @@
(define (get-translating-acks) (define (get-translating-acks)
(string-append (string-append
"Thanks to " "Thanks to "
"ChongKai Zhu, "
"Ian Barland, " "Ian Barland, "
"Biep Durieux, " "Biep Durieux, "
"Tim Hanson, " "Tim Hanson, "
"Chihiro Kuraya, " "Chihiro Kuraya, "
"Philippe Meunier, " "Philippe Meunier, "
"Irina Mintiy, "
"Sergey Semerikov, "
"Jens Axel Søgaard, " "Jens Axel Søgaard, "
"Francisco Solsona, " "Francisco Solsona, "
"Mike Sperber, " "Mike Sperber, "
"Reini Urban, " "Reini Urban, "
"ChongKai Zhu, "
"and " "and "
"Paolo Zoppetti " "Paolo Zoppetti "
"for their help translating DrScheme's GUI to other languages.")) "for their help translating DrScheme's GUI to other languages."))

1529
collects/string-constants/russian-string-constants.ss Normal file
View File

File diff suppressed because it is too large Load Diff

14
collects/string-constants/string-constant.ss
View File

@ -11,7 +11,9 @@
(prefix portuguese: "portuguese-string-constants.ss") (prefix portuguese: "portuguese-string-constants.ss")
(prefix japanese: "japanese-string-constants.ss") (prefix japanese: "japanese-string-constants.ss")
(prefix traditional-chinese: "traditional-chinese-string-constants.ss") (prefix traditional-chinese: "traditional-chinese-string-constants.ss")
(prefix simplified-chinese: "simplified-chinese-string-constants.ss")) (prefix simplified-chinese: "simplified-chinese-string-constants.ss")
(prefix russian: "russian-string-constants.ss")
(prefix ukrainian: "ukrainian-string-constants.ss"))
(require mzlib/file (require mzlib/file
mzlib/etc mzlib/etc
@ -26,7 +28,7 @@
;; table : (listof (list symbol regexp regexp)) ;; table : (listof (list symbol regexp regexp))
;; this table indicates what the default value of the natural language ;; this table indicates what the default value of the natural language
;; preference is. the first regexp is used under Windows and the second ;; preference is. the first regexp is used under Windows and the second
;; is used on other platofmr.s All regexps are compared to the result ;; is used on other platforms. All regexps are compared to the result
;; of (system-language+country) ;; of (system-language+country)
(define table (define table
'((english #rx"^en_" #rx"^English_") '((english #rx"^en_" #rx"^English_")
@ -38,7 +40,9 @@
(portuguese #rx"^pt_" #rx"Portuguese_") (portuguese #rx"^pt_" #rx"Portuguese_")
(japanese #rx"^ja_" #rx"^Japan_") (japanese #rx"^ja_" #rx"^Japan_")
(traditional-chinese #rx"^zh_(HK|TW)" #rx"Chinese_China") (traditional-chinese #rx"^zh_(HK|TW)" #rx"Chinese_China")
(simplified-chinese #rx"^zh_CN" #rx"Chinese_(Hong|Taiwan)"))) (simplified-chinese #rx"^zh_CN" #rx"Chinese_(Hong|Taiwan)")
(russian #rx"^ru_" #rx"^Russian_")
(ukrainian #rx"^uk_" #rx"^Ukrainian_")))
;; default-language : -> symbol ;; default-language : -> symbol
;; uses `table' and system-language+contry to find what language to start with ;; uses `table' and system-language+contry to find what language to start with
@ -77,7 +81,9 @@
(make-sc 'portuguese portuguese:string-constants #f) (make-sc 'portuguese portuguese:string-constants #f)
(make-sc 'japanese japanese:string-constants #f) (make-sc 'japanese japanese:string-constants #f)
(make-sc 'traditional-chinese traditional-chinese:string-constants #f) (make-sc 'traditional-chinese traditional-chinese:string-constants #f)
(make-sc 'simplified-chinese simplified-chinese:string-constants #f))) (make-sc 'simplified-chinese simplified-chinese:string-constants #f)
(make-sc 'russian russian: string-constants # f)
(make-sc 'ukrainian ukrainian: string-constants # f)))
(define first-string-constant-set (car available-string-constant-sets)) (define first-string-constant-set (car available-string-constant-sets))

1529
collects/string-constants/ukrainian-string-constants.ss Normal file
View File

File diff suppressed because it is too large Load Diff