Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-11 09:03:36 +02:00
Code Issues Releases Wiki Activity

Add rms.ny to Audacity bundle

Browse Source 
Tidy translation code in init.lsp
Include rms.ny in Makefile.am
Add rms.ny to Linux package
Update Makefiles with: autoreconf --force --no-recursive
Add rms.ny to mac build
Add rms.ny to Windows build
This commit is contained in:
Steve Daulton
2018-10-07 18:40:41 +01:00
parent 14fe11f4d4
commit 5d34d022a5
12 changed files with 156 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
nyquist/init.lsp
View File

@@ -26,19 +26,19 @@
(format t "Warning: Invalid *locale* (not a list).~%")
(let ((locale (get '*audacity* 'language)))
(if (not (setf language-list (assoc locale *locale* :test 'string-equal)))
(format t "Warning: No language-list for \"~a\" in *locale*.~%" locale)
(format t "Warning: No language-list for ~s in *locale*.~%" locale)
(if (/= (length language-list) 2)
(format t "Error: Invalid \"~a\" language list in *locale*.~%" locale)
(format t "Error: Invalid ~s language list in *locale*.~%" locale)
; Get just the list of substitution pairs
(let ((language-list (second language-list)))
(if (not (listp language-list))
(format t "Warning: No translations for \"~a\" in *locale*.~%" locale)
(format t "Warning: No translations for ~s in *locale*.~%" locale)
(let ((translation (assoc txt language-list :test 'string=)))
(if (not translation)
(format t "Warning: No ~a translations for \"~a\".~%" locale txt)
(format t "Warning: No ~a translations for ~s.~%" locale txt)
(if (not (and (listp translation)
(= (length translation) 2)))
(format t "Error: Invalid translation for ~a in *locale*.~%" txt)
(format t "Error: Invalid translation for ~s in *locale*.~%" txt)
(setf translated (second translation))))))))))))
(if translated
translated