package.lisp 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. ;; This software is Copyright (c) Leslie P. Polzer, 2011.
  2. ;; Leslie P. Polzer grants you the rights to distribute
  3. ;; and use this software as governed by the terms
  4. ;; of the Lisp Lesser GNU Public License
  5. ;; (http://opensource.franz.com/preamble.html),
  6. ;; known as the LLGPL
  7. (defpackage :i18n-conditions (:use
  8. :cl)
  9. (:export
  10. :no-translation-table-error
  11. :parsing-pofile-error
  12. :parsing-mofile-error
  13. :parsing-utxfile-error
  14. :no-translation
  15. :out-of-bounds))
  16. (defpackage :cl-i18n (:use
  17. :cl
  18. :alexandria
  19. :cl-ppcre)
  20. (:export
  21. :define-tokenizer
  22. :define-parser-skeleton
  23. :parsed-file
  24. :defnocfun
  25. :with-error
  26. :with-no-errors
  27. :with-no-errors*
  28. :peek-valid-stream
  29. :is-comment-line-p
  30. :next-token
  31. :comment-line
  32. :*file*
  33. :*has-errors*
  34. :*parsing-errors*
  35. :peek-token
  36. :peek-token-suppress-errors
  37. :parse-comment-line
  38. :seek
  39. :get-line
  40. :with-extract-parsed-file
  41. :parse-extract-parsed-file
  42. :*extr-function-re*
  43. :translation
  44. :translated
  45. :flag
  46. :make-translation
  47. :define-plural-form
  48. :n/=1-plural-form
  49. :english-plural-form
  50. :german-plural-form
  51. :dutch-plural-form
  52. :swedish-plural-form
  53. :danish-plural-form
  54. :norwegian-plural-form
  55. :faroese-plural-form
  56. :spanish-plural-form
  57. :portuguese-plural-form
  58. :italian-plural-form
  59. :bulgarian-plural-form
  60. :greek-plural-form
  61. :finnish-plural-form
  62. :estonian-plural-form
  63. :hebrew-plural-form
  64. :esperanto-plural-form
  65. :hungarian-plural-form
  66. :turkish-plural-form
  67. :polish-plural-form
  68. :slovenian-plural-form
  69. :czech-plural-form
  70. :slovak-plural-form
  71. :russian-plural-form
  72. :ukrainian-plural-form
  73. :serbian-plural-form
  74. :croatian-plural-form
  75. :brazilian-plural-form
  76. :portuguese-plural-form
  77. :french-plural-form
  78. :latvian-plural-form
  79. :gaeilge-plural-form
  80. :irish-plural-form
  81. :romanian-plural-form
  82. :lithuanian-plural-form
  83. :slurp-file
  84. :*categories*
  85. :translation-list->hash-table
  86. :translation-hash-table->list
  87. :return-empty-translation-table
  88. :return-untranslated
  89. :init-translation-table
  90. :translation-table
  91. :load-language
  92. :save-language
  93. :translate
  94. :ntranslate
  95. :use-value
  96. :with-translation
  97. :with-po-file
  98. :with-mo-file
  99. :mo-magic-number-p
  100. :*translation-file-root*
  101. :*translation-collect*
  102. :*plural-form-function*
  103. :*has-error*
  104. :*parsing-errors*
  105. :random-string
  106. :+fuzzy-flag+
  107. :+untranslated-flag+
  108. :+translated-flag+
  109. :+id+
  110. :+translation+
  111. :+plurals-form+
  112. :+status+
  113. :+plurals+
  114. :*directory-sep-regexp*
  115. :*directory-sep*
  116. :search-mo-repository
  117. :find-locale)
  118. (:documentation "An internationalisation framework for Common Lisp"))
  119. (defpackage :utx-file (:use
  120. :cl
  121. :alexandria
  122. :cl-ppcre)
  123. (:import-from :cl-i18n :peek-token)
  124. (:import-from :cl-i18n :parse-comment-line)
  125. (:import-from :cl-i18n :comment-line)
  126. (:export
  127. :utx-parsed-file
  128. :is-comment-line-p
  129. :comment-line
  130. :next-token
  131. :parse-utx-file
  132. :with-utx-file))
  133. (defpackage :cl-i18n-utils (:use
  134. :cl
  135. :alexandria
  136. :cl-ppcre)
  137. (:export
  138. :generate-i18n-file
  139. :gen-translation-file
  140. :convert-dictionary-format
  141. :convert-save-dictionary
  142. :levenshtein-distance
  143. :fuzzy-match))