;ELC ;;; Compiled by root@bugs.build.redhat.com on Fri Feb 4 11:21:13 2005 ;;; from file /usr/src/build/514901-i386/BUILD/emacs-21.3/Mule-UCS-current/lisp/trans-util.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`trans-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'string-to-number-with-radix #[(string radix) "\306G\306\307\211 W\203N\fH\211\310Y\203& \311X\203& \310Z\202A \226\211\312Y\203< \313X\203< \314Z\202A\315\316 \"\210\n _ \\\fT\211\202\n\n,\207" [string c result j i radix 0 nil 48 57 65 70 55 error "Invalid char:%c"] 5]) (defalias 'hex-string-to-number #[(string) "\301\302\"\207" [string string-to-number-with-radix 16] 3]) (defalias 'octal-string-to-number #[(string) "\301\302\"\207" [string string-to-number-with-radix 8] 3]) (byte-code "\303\304!\203\305\302 B\306\302\307\310#\210\306\302\311\312\302\"#\210)\310\207" [prog current-load-list ccl-c-notated-string-to-number fboundp ccl-execute [1 64 2753 65 14 2843 18 48 46 1339 18 120 4289 14 516 2241 256 1051 16 48 -191 10756 278713 55 296697 8 83896 677 -191 8708 6939 17 57 345785 16 262393 65 100280 677 -191 5892 3355 17 70 262329 97 278777 102 100280 677 -191 3076 16407 87 516 16407 55 516 16407 48 34392 88 14 -12028 22] put variable-documentation nil ccl-program-idx register-ccl-program] 6) (defalias 'c-notated-string-to-number #[(string) "\302\303!\203\304\305\306 #\210\307H)\207\310\311 \"\203\"\312\313\314 \"\315\"\207\310\316 \"\2031\312\313\314 \"\317\"\207\320 !\207" [vector string fboundp ccl-execute [0 0 0 0 0 0 0 0 nil] ccl-execute-on-string ccl-c-notated-string-to-number 2 string-match "0x\\(\\d+\\)" string-to-number-with-radix match-string 1 16 "0\\(\\d+\\)" 8 string-to-number] 4]) (defalias 'cn '(macro . #[(string) "\301!\207" [string c-notated-string-to-number] 2])) (defalias 'transformate-list-structure '(macro . #[(spec lstr) "\305\211\211\306\307 \203 @\f\"B A\211\204\310\237+D\207" [result func2 func1 lstr spec nil #[(le se) "\303!\203\n !\207<\203 <\203\n \"\207\304\305 #\207" [se le func2 functionp error "Invalid spec or element"] 4] #[(l s) "\306\211\211 A<\204\"\fA<\204\" @\f@\" A\fA\"B\202B @\211\203@\f@\211\203@ \n \"B A\fA\202\"\237+\207" [result se le l s func1 nil] 4] quote] 4])) (byte-code "\301B\303\304!\205\305\306\307\217\310=\302B\311\301\207" [current-load-list make-char-internal-usable-p charset-id-table fboundp make-char-internal err (make-char-internal 0 97) ((error)) 97 []] 3) (defalias 'update-charset-id-table #[nil "\306\307\310\"\311 \310\310\n@\211\203E\f\211\305N)\312H\nA Y\2036\313 \307 Z\314Z\310\"\"\211G \f\211\305N)\312H\fI\210\202 \211 -\207" [len vec csl id cs charset 256 make-vector nil charset-list 0 vconcat -1 charset-id-table] 6]) (defalias 'make-char-from-charset-id #[(id c1 &optional c2) "\203\n\305 \n #\207 \fGY\204\f H\203\306 \210\305\307\f H\206&\310\311 \"!\312H\n #\207" [make-char-internal-usable-p id c1 c2 charset-id-table make-char-internal update-charset-id-table charset-info error "ID:%d is not valid charset-id." 0] 5]) (put 'make-char-from-charset-id 'byte-optimizer 'byte-compile-inline-expand) #@29 Return a codepoint of char. (defalias 'char-codepoint #[(char) "\302!\211G\303U\203 A@\304_\305 8\\\202 A@)\207" [char info split-char 3 96 2] 4 (#$ . 3595)]) (put 'char-codepoint 'byte-optimizer 'byte-compile-inline-expand) #@44 Return a character of CODEPOINT in CHARSET (defalias 'make-char-from-charset-codepoint #[(charset codepoint) "\302V\203\303Z\304\305 !\306H\307\245\307\246\303\\#\207\304\305 !\306H\"\207" [codepoint charset 255 32 make-char-internal charset-info 0 96] 5 (#$ . 3832)]) (put 'make-char-from-charset-codepoint 'byte-optimizer 'byte-compile-inline-expand) #@44 Return a character of CODEPOINT in CHARSET (defalias 'make-char-from-charset-id-codepoint #[(charset codepoint) "\306V\203I\307Z \310\245\310\246\307\\ \203\"\311\f \n#\202G\fGY\2041\fH\2034\312 \210\311\313\fH\206A\314\315\f\"!\316H \n#+\207 \317 \203[\311\f \n#\202\200\fGY\204j\fH\203m\312 \210\311\313\fH\206z\314\315\f\"!\316H \n#+\207" [codepoint charset c2 c1 id make-char-internal-usable-p 255 32 96 make-char-internal update-charset-id-table charset-info error "ID:%d is not valid charset-id." 0 nil charset-id-table] 5 (#$ . 4199)]) (byte-code "\302\303\304\305#\210\301B\306\307\310\"\311\312\313\314!\203\314\202(\313\315!\203%\315\202(\316\317!\"\207" [current-load-list mucs-char-1-ucs-area-start put make-char-from-charset-id-codepoint byte-optimizer byte-compile-inline-expand lsh 1 24 defalias trans-util-charp fboundp char-valid-p characterp error "Cannot find out any equivalents to characterp."] 4) (defalias 'char-1-elisp-representation #[(x) " W\205\242\306\307\"\310\311\"\n\312V\203b\n\313Z \n\314\245\n\314\246\313\\\2035\315 \f#\202^GY\204FH\203I\316 \210\315\317H\206X\320\321\"!\322H \f#+\202\241 \n\323\203w\315 \f#\202\240GY\204\210H\203\213\316 \210\315\317H\206\232\320\321\"!\322H \f#+*\207" [x mucs-char-1-ucs-area-start codepoint charset c2 c1 lsh -16 logand 65535 255 32 96 make-char-internal update-charset-id-table charset-info error "ID:%d is not valid charset-id." 0 nil id make-char-internal-usable-p charset-id-table] 5]) (defalias 'char-1-ccl-representation #[(x) "\304!\2033\305\306\307!\211\301N)\310H\311\"\312\n!\211G\313U\203- A@\314_\315 8\\\2020 A@*\"\207\207" [x charset char info trans-util-charp logior lsh char-charset 0 16 split-char 3 96 2] 7]) (provide 'trans-util)