;ELC   
;;; compiled by nk@arafel.viteno.net on Tue Jun 21 10:12:45 2005
;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/mule-ucs/lisp/utf.el
;;; emacs version 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`utf.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))


(byte-code "ЖЗ!¬„ИЙ!€КЛ!€КМ!€ДBНГBОВBПБBПАBПРBПЖ‡" [utf-16-encode-buffer-magnification utf-8-decode-buffer-magnification utf-8-encode-buffer-magnification utf-7-decode-buffer-magnification utf-7-encode-buffer-magnification current-load-list featurep mule-ucs-unicode load-library "unicode" require tae trans-util 3 1 2 utf-16-decode-buffer-magnification] 2)
(defalias 'convert-unicode-lf-2-crlf #[(cr-output) "ВГД	EЕ!EC‡" [cr-output unicode-lf if r0 == append] 4])
(byte-code "БBВБ!¬¦ГБДЕЖДЗИЙEКДЗИЛEМДЗИНEОДЗИПEРBBFFFFC\"€СBВС!¬…ГСТ\"€УФХЦЧ$€УФШЩЪ$‡" [current-load-list utf-8-ccl-encode default-boundp set-default if (r0 < ?\^А) ((write r0)) r0 < 2048 ((write ((r0 >> 6) | ?А)) (write ((r0 & ?\?) | ?\^А))) 65536 ((write ((r0 >> 12) | ?а)) (write (((r0 >> 6) & ?\?) | ?\^А)) (write ((r0 & ?\?) | ?\^А))) 2097152 ((write ((r0 >> 18) | ?р)) (write (((r0 >> 12) & ?\?) | ?\^А)) (write (((r0 >> 6) & ?\?) | ?\^А)) (write ((r0 & ?\?) | ?\^А))) 67108864 (((write ((r0 >> 24) | ?ш)) (write (((r0 >> 18) & ?\?) | ?\^А)) (write (((r0 >> 12) & ?\?) | ?\^А)) (write (((r0 >> 6) & ?\?) | ?\^А)) (write ((r0 & ?\?) | ?\^А))) ((write ((r0 >> 30) | ?ь)) (write (((r0 >> 24) & ?\?) | ?\^А)) (write (((r0 >> 18) & ?\?) | ?\^А)) (write (((r0 >> 12) & ?\?) | ?\^А)) (write (((r0 >> 6) & ?\?) | ?\^А)) (write ((r0 & ?\?) | ?\^А)))) utf-8-ccl-decode ((read-if (r0 >= ?\^А) ((if (r0 < ?а) ((read r4) (r4 &= ?\?) (r0 = (((r0 & ?\^_) << 6) | r4))) (if (r0 < ?р) ((read r4 r6) (r4 = ((r4 & ?\?) << 6)) (r6 &= ?\?) (r0 = ((((r0 & ?\^O) << 12) | r4) | r6))) (if (r0 < ?ш) ((read r1 r4 r6) (r1 = ((r1 & ?\?) << 12)) (r4 = ((r4 & ?\?) << 6)) (r6 &= ?\?) (r0 = (((((r0 & ?\^G) << 18) | r1) | r4) | r6))) (if (r0 < ?ь) ((read r0 r1 r4 r6) (r1 = ((r1 & ?\?) << 12)) (r4 = ((r4 & ?\?) << 6)) (r6 &= ?\?) (r0 = (((((r0 & ?\?) << 18) | r1) | r4) | r6))) (r0 = 0)))))))) mucs-type-register-serialization ucs-generic utf-8 (backquote ((\, utf-8-ccl-encode))) (backquote ((\, utf-8-ccl-decode))) utf-8-dos (backquote ((\, (append (convert-unicode-lf-2-crlf '((write ?\r))) utf-8-ccl-encode)))) none] 18)
(defalias 'mucs-ccl-write-utf-8-signature #[nil "А‡" [((write "п»ї"))] 1])
(defalias 'mucs-ccl-utf-8-check-signature-read #[nil "В	ГДЕE	EC\"‡" [unicode-signature utf-8-ccl-decode append if r0 ==] 6])
(defalias 'utf-16-ccl-surrogate-pair-p #[(reg) "БВEГДE‡" [reg & 63488 == 55296] 3])
(byte-code "ГДЕ\"€Ж\nBЗЖ!¬љИЖЙКД!	FЙЛМ!ЙКД!НBBОBED\"€Г‡" [mucs-ccl-read-ex-be-2-octet mucs-ccl-read-ex-le-2-octet current-load-list mucs-ccl-internal-state-reserve utf-16-little-endian-p 1 utf-16-ccl-decode default-boundp set-default if mucs-ccl-check-internal-state utf-16-ccl-surrogate-pair-p r0 (((read r6 r4)) ((read r4 r6))) ((r0 = (((r0 & ?\? f) + ?@) << 10)) (r6 &= ?\?) (r4 = ((r4 & ?\^C) << 6) | r6) (r0 |= r4))] 8)
(defalias 'mucs-ccl-utf-16-check-signature-read #[nil "ДЕЖЗ\nEДИЙК\"\"ЕЖЗ	EДИЙЛ\"\"EFЕМЖ!ЕНЙ!ОBBЖПЖРСEТBУBEФBBED\"‡" [mucs-ccl-read-ex-be-2-octet unicode-reverse-signature unicode-signature mucs-ccl-read-ex-le-2-octet append if r0 == mucs-ccl-set-internal-state utf-16-little-endian-p t nil utf-16-ccl-surrogate-pair-p mucs-ccl-check-internal-state (((read r6 r4)) ((read r4 r6))) = & 1023 (+ ?@) (<< 10) ((r6 &= ?\?) (r4 = ((r4 & ?\^C) << 6) | r6) (r0 |= r4))] 11])
(defalias 'mucs-ccl-read-utf-16 #[nil "‡" [utf-16-ccl-decode] 1])
(byte-code "Г\nBДГ!¬—ЕГЖЗИЙE	КЛМНОEПBEРBFC\"€С\nBДС!¬ќЕСТЖУЗ!ФХЗЛЗНОEЦBЧBШBEEEC\"\"€ЩЪЫЬЭ$€ЩЪЮЯа$‡" [mucs-ccl-read-ex-le-2-octet mucs-ccl-write-ex-be-2-octet current-load-list utf-16-le-ccl-encode default-boundp set-default if r0 < 65535 r4 = (r0 >> 10) & 1023 (- ?@) ((write (r4 & ?я)) (write ((r4 >> 8) | ?Ш)) (write (r0 & ?я)) (write (((r0 >> 8) & ?\^C) | ?Ь))) utf-16-le-ccl-decode append utf-16-ccl-surrogate-pair-p (read r6 r4) (r4 = (((r4 & ?\^C) << 8) | r6)) (+ ?@) (<< 10) (| r4) mucs-type-register-serialization ucs-generic utf-16-le (backquote ((\, utf-16-le-ccl-encode))) (backquote ((\, utf-16-le-ccl-decode))) utf-16-le-dos (backquote ((\, (append (convert-unicode-lf-2-crlf '((write " "))) utf-16-le-ccl-encode)))) none] 13)
(defalias 'mucs-ccl-write-utf-16-le-signature #[nil "А‡" [((write "яю"))] 1])
(byte-code "Г\nBДГ!¬ќЕГЖ	ЗИЙ!КЛЙМЙНОEПBРBСBEEEC\"\"€Т\nBДТ!¬—ЕТЗЙУФEХМЦНОEЧBEШBFC\"€ЩЪЫЬЭ$€ЩЪЮЯа$‡" [mucs-ccl-write-ex-be-2-octet mucs-ccl-read-ex-be-2-octet current-load-list utf-16-be-ccl-decode default-boundp set-default append if utf-16-ccl-surrogate-pair-p r0 (read r4 r6) (r4 = (((r4 & ?\^C) << 8) | r6)) = & 1023 (+ ?@) (<< 10) (| r4) utf-16-be-ccl-encode < 65535 r4 (r0 >> 10) (- ?@) ((write ((r4 >> 8) | ?Ш)) (write (r4 & ?я)) (write (((r0 >> 8) & ?\^C) | ?Ь)) (write (r0 & ?я))) mucs-type-register-serialization ucs-generic utf-16-be (backquote ((\, utf-16-be-ccl-encode))) (backquote ((\, utf-16-be-ccl-decode))) utf-16-be-dos (backquote ((\, (append (convert-unicode-lf-2-crlf '((write " "))) utf-16-be-ccl-encode)))) none] 13)
(defalias 'mucs-ccl-write-utf-16-be-signature #[nil "А‡" [((write "юя"))] 1])
(byte-code "ЖЗИ\"€ДBЙКЛМН\"EВBЙОЛПР\"EГBСБBТАBУФХЦE\"€ФЧЦ\nF\"‡" [ccl-b64-decode-table ccl-b64-encode-table utf-7-optional-direct-characters-assoc utf-7-shifted-character-assoc utf-7-direct-characters-assoc current-load-list mucs-ccl-internal-state-reserve utf-7-shifted-p 2 assoc (ucs-generic . ucs-generic) mapcar #[(x) "‰B‡" [x] 2] (?+ ?\  ?\t ?\r ?\n ?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y ?Z ?a ?b ?c ?d ?e ?f ?g ?h ?i ?j ?k ?l ?m ?n ?o ?p ?q ?r ?s ?t ?u ?v ?w ?x ?y ?z ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?\' ?\( ?\) ?\, ?- ?\. ?/ ?: ?\?) (ucs-generic . ucs-generic) #[(x) "‰B‡" [x] 2] (?! ?\" ?\# ?$ ?% ?& ?* ?\; ?< ?= ?> ?@ ?\[ ?\] ?^ ?_ ?\` ?{ ?| ?}) (assoc (ucs-generic . ucs-generic) ((all . invalid))) [?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y ?Z ?a ?b ?c ?d ?e ?f ?g ?h ?i ?j ?k ?l ?m ?n ?o ?p ?q ?r ?s ?t ?u ?v ?w ?x ?y ?z ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?+ ?/] [-1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 62 -1 -1 -1 63 52 53 54 55 56 57 58 59 60 61 -1 -1 -1 -2 -1 -1 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 -1 -1 -1 -1 -1 -1 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1] tae-declare-translation utf-7-direct-character-p-translation | utf-7-direct-or-optional-character-p-translation] 6)
(defalias 'ccl-utf-7-base64-encode #[(valc valp &optional init) "Еa¬…Еa«„ЖЗ!€И«‹ЙКЛМ\"НBC\"Й	ОПРEЕСТBУBФХEЦЧEEСФХEЦШEEDЕСEЩBDFЪОЫBЬBЭ\nEЮBЭ\nEЯBЇОаBСбBвBEгBЭ\nEдBЭ\nEеBЭ\nEжBЇОзBСиBйBEкBЭ\nEлBЭ\nEмBЭ\nEнBЇECFCFОоBЕСEпBрBBEED\"‰)‡" [init result ccl-b64-encode-table valc valp r0 error "r0 is reserved for caliculation." nil append mucs-ccl-set-internal-state utf-7-shifted-p t (= 0) if > 65535 = (>> 10) (- ?@) & 1023 | 55296 56320 (= 0) loop (== 0) (= (r0 >> 10)) write (= ((r0 >> 4) & ?\?)) (= ((r0 & ?\^O) | ?0)) (>= ?0) (& ?\^O) (<< 2) (|= (r0 >> 14)) (= ((r0 >> 8) & ?\?)) (= ((r0 >> 2) & ?\?)) (= ((r0 & ?\^C) | ?\ )) (>= ?\ ) (& ?\^C) (<< 4) (|= (r0 >> 12)) (= ((r0 >> 6) & ?\?)) (= (r0 & ?\?)) (= 0) (!= 0) (= 0) ((repeat))] 21])
(defalias 'ccl-utf-7-base64-encode-flush #[(valp) "ВГДЕ\"Ж	ЗB	И	ЙBКBEЛ	EDЖ	МB	И	НBОBEЛ	EDECFП	РBE\"‡" [ccl-b64-encode-table valp append mucs-ccl-set-internal-state utf-7-shifted-p nil if (>= ?0) = (<< 2) (& ?\?) write (>= ?\ ) (<< 4) (& ?\?) (write ?-) (= 0)] 11])
(defalias 'mucs-ccl-utf-7-encode-eof #[nil "АБВ!ГД!EC‡" [if mucs-ccl-check-internal-state utf-7-shifted-p ccl-utf-7-base64-encode-flush r6] 4])
(defalias 'mucs-ccl-utf-7-encode #[(direct-character-translation dos) "БВГ\"ДЕЖ\"E‡" [direct-character-translation ((r4 = r0)) tae-compile nil mucs-ccl-if-invalid (backquote (((if (\, (mucs-ccl-check-internal-state 'utf-7-shifted-p)) (\, (ccl-utf-7-base64-encode 'r4 'r6)) ((write ?+) (\,@ (ccl-utf-7-base64-encode 'r4 'r6 t))))))) (backquote (((if (\, (mucs-ccl-check-internal-state 'utf-7-shifted-p)) (\, (ccl-utf-7-base64-encode-flush 'r6))) (\,@ (if dos '((if (r0 == ?\n) ((write "\n")) ((write r0)))) '((write r0)))) (if (r0 == ?+) ((write ?-))))))] 5])
(byte-code "А	BГДЕЖЗ!ИЙКЛ\nFЕМНОЙКЛ\nFЕПРЕСТУEФХЙКЛ\nFЕЦЧЕШЛКЩЪЫEEЬBЛКЭЪЫEEЮBFDЯЗа\"FEFDЯЗа\"FFбЯЗа\"в\"FEгдгежСКЛ\nFЕзиЙКЛ\nFЕйклЙКЛ\nFЕмнопЯЗр\"BBBEFEEEDFCECFЕсЛтуEЛКфЪуEхBцBчBEDЕшЛ!щBBCFEDъыьэю$€ъыяЃ@ ЃA $€ъыЃB ЃC ЃA $€ъыЃD ЃE ЃA $€ЃF ЃG !‡" [ccl-utf-7-decode current-load-list ccl-b64-decode-table (r4 = 0) loop if mucs-ccl-check-internal-state utf-7-shifted-p (read r0) r1 = r0 (r1 >= 0) (r6 = ((r6 << 6) | r1)) (read r0) (r1 >= 0) (r6 = ((r6 << 6) | r1)) r6 >= 196608 ((r0 = (r6 & ?я FF)) (r6 = 0)) (read r0) (r1 >= 0) (r6 = ((r6 << 6) | r1)) (r6 >= ?\^А 0) (r6 >> 4) & 65535 ((r6 = ((r6 & ?\^O) | ?0))) (r6 >> 2) ((r6 = ((r6 & ?\^C) | ?\ ))) mucs-ccl-set-internal-state nil append ((if (r0 == ?-) ((repeat)))) read-if (r0 == ?+) (r0 == ?-) ((r0 = ?+)) (r6 >= 0) (read r0) (r1 >= 0) (r6 = ((r6 << 6) | r1)) (read r0) (r1 >= 0) (r6 = ((r6 << 6) | r1)) (r0 = (r6 >> 2)) (r6 = ((r6 & ?\^C) | ?\ )) t (r4 != 0) &= 1023 r4 (+ ?@) (<< 10) (| r0) utf-16-ccl-surrogate-pair-p (((r4 = r0) (repeat))) mucs-type-register-serialization ucs-generic utf-7 (mucs-ccl-utf-7-encode 'utf-7-direct-or-optional-character-p-translation nil) (backquote ((\, ccl-utf-7-decode))) utf-7-safe (mucs-ccl-utf-7-encode 'utf-7-direct-character-p-translation nil) none utf-7-dos (mucs-ccl-utf-7-encode 'utf-7-direct-or-optional-character-p-translation t) utf-7-safe-dos (mucs-ccl-utf-7-encode 'utf-7-direct-character-p-translation t) provide utf] 30)