Changeset 27250 in project


Ignore:
Timestamp:
08/16/12 03:34:48 (7 years ago)
Author:
Alex Shinn
Message:

Supporting .mo files without a header (guessing utf8).

Location:
release/4/free-gettext
Files:
2 edited
7 copied

Legend:

Unmodified
Added
Removed
  • release/4/free-gettext/tags/1.5.1/free-gettext.scm

    r27220 r27250  
    221221(define (make-gettext-file filename locale)
    222222  (let* ((file-type (if (string-suffix? ".mo" filename) 'mo 'po))
    223          (property-msg (lookup-message filename "" #f))
     223         (property-msg (lookup-message filename "" "utf8"))
    224224         (properties (if property-msg
    225225                         (call-with-input-string property-msg
     
    232232         (encoding
    233233          (cond ((assoc "charset" content-type) => cdr)
    234                 (else (detect-file-encoding filename locale))))
     234                (else (or (detect-file-encoding filename locale) "utf8"))))
    235235         (plural-index
    236236          (cond
  • release/4/free-gettext/tags/1.5.1/free-gettext.setup

    r27220 r27250  
    77 'free-gettext
    88 '("free-gettext.so" "free-gettext.import.so")
    9  '((version 1.5)))
     9 '((version 1.5.1)))
  • release/4/free-gettext/trunk/free-gettext.scm

    r27220 r27250  
    221221(define (make-gettext-file filename locale)
    222222  (let* ((file-type (if (string-suffix? ".mo" filename) 'mo 'po))
    223          (property-msg (lookup-message filename "" #f))
     223         (property-msg (lookup-message filename "" "utf8"))
    224224         (properties (if property-msg
    225225                         (call-with-input-string property-msg
     
    232232         (encoding
    233233          (cond ((assoc "charset" content-type) => cdr)
    234                 (else (detect-file-encoding filename locale))))
     234                (else (or (detect-file-encoding filename locale) "utf8"))))
    235235         (plural-index
    236236          (cond
  • release/4/free-gettext/trunk/free-gettext.setup

    r27220 r27250  
    77 'free-gettext
    88 '("free-gettext.so" "free-gettext.import.so")
    9  '((version 1.5)))
     9 '((version 1.5.1)))
Note: See TracChangeset for help on using the changeset viewer.