Changeset 12420


Ignore:
Timestamp:
Jul 17, 2009, 5:02:44 AM (10 years ago)
Author:
rme
Message:

Use IANA names for for encodings :euc-jp (formerly :eucjp, which is
retained as an alias) and :windows-31j (formerly :cp932, also retained
as an alias).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/jp-encode.lisp

    r12375 r12420  
    1771317713
    1771417714
    17715 (defmacro define-jp-encoding (name document max-units-per-char
     17715(defmacro define-jp-encoding (name docstring aliases max-units-per-char
    1771617716                              from-ucs
    1771717717                              to-ucs
     
    1771917719                              length-by-1st-unit)
    1772017720  `(define-character-encoding ,name
    17721        ,document
     17721       ,docstring
     17722     :aliases ,aliases
    1772217723     :native-endianness nil
    1772317724     :max-units-per-char ,max-units-per-char
     
    1790917910
    1791017911
    17911 (define-jp-encoding :eucjp
     17912(define-jp-encoding :euc-jp
    1791217913    "An 8-bit, variable-length character encoding in which
    1791317914character code points in the range #x00-#x7f can be encoded in a
    1791417915single octet; characters with larger code values can be encoded
    1791517916in 2 to 3 bytes."
     17917  '(:eucjp)
    1791617918  3
    1791717919  ucs-to-eucjp
     
    1792717929        (t 1)))
    1792817930
    17929 (define-jp-encoding :cp932
     17931(define-jp-encoding :windows-31j
    1793017932    "An 8-bit, variable-length character encoding in which
    1793117933character code points in the range #x00-#x7f can be encoded in a
    1793217934single octet; characters with larger code values can be encoded
    1793317935in 2 bytes."
     17936  '(:cp932 :csWindows31J)
    1793417937  2
    1793517938  ucs-to-cp932
Note: See TracChangeset for help on using the changeset viewer.