| Server IP : 217.160.0.135 / Your IP : 216.73.217.37 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1074145052 ( 1074145052) PHP Version : 8.3.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/nxml/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@199 Translate a W3C XML Schema Datatypes regexp to an Emacs regexp. Returns a string. REGEXP is a string. If REGEXP is not a valid XSD regexp, signal an `xsdre-invalid-regexp' condition. (fn REGEXP) (defalias 'xsdre-translate #[257 "\300\301!!\207" [xsdre-from-symbolic xsdre-to-symbolic] 4 (#$ . 85)]) (defvar xsdre-test-history nil) (defalias 'xsdre-test-regexp #[0 "\306\307\310\211\211\311%\312!r\313\314!q\210p\315 \210\310\211\316\211\316\317 \210\320\321!\210+\211\322\323!\210\322!\210\322\324!\210\322\325!\210\322\324!\210\326!\210\322\324!\210\322\327!\210\322\330!!\210\331!\210)\266\316\266\202\205b \202 \207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only read-from-minibuffer "Regexp: " nil xsdre-test-history xsdre-to-symbolic get-buffer-create "*XSD Regexp Test*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "XSD regexp: " "\n" "Symbolic: " pp "Emacs regexp: " xsdre-from-symbolic internal-temp-output-buffer-show standard-output] 8 nil nil]) #@196 Return a representation of a range of integers. If the range contains a single integer, it is represented by that integer. Otherwise, it is represented by a (FIRST . LAST) pair. (fn FIRST LAST) (defalias 'xsdre-make-range #[514 "U\203 \207B\207" [] 4 (#$ . 1173)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xsdre-make-range speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@46 Return the first integer in a range. (fn R) (defalias 'xsdre-range-first #[257 "\211:\203 \211@\207\207" [] 2 (#$ . 1593)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xsdre-range-first speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@45 Return the last integer in a range. (fn R) (defalias 'xsdre-range-last #[257 "\211:\203 \211A\207\207" [] 2 (#$ . 1868)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put xsdre-range-last speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@227 Make a range-list from a list of ranges. A range-list represents a set of integers by a list of ranges in a canonical form, in which ranges are in increasing order, and adjacent ranges are merged wherever possible. (fn LIST) (defalias 'xsdre-make-range-list #[257 "\211\205\262 \300\301\"\262\211A\211@\211\211:\203 \211@\262\211:\203# \211A\262\203\225 @\262\211:\2035 \211A\262V\203\216 \211:\203D \211@\262TX\203Y \211:\203T \211A\262\262\202\216 U\203h \266\202\202m B\266\202\240\210\241\210\262\211:\203\200 \211@\262\262\211:\203\214 \211A\262\262A\262\202# U\203\244 \266\202\202\251 B\266\202\240\210\302\241\210\266\205\207" [sort xsdre-range-less-than nil] 11 (#$ . 2141)]) #@76 Return a range-list, the union of a list of range-lists. (fn RANGE-LISTS) (defalias 'xsdre-range-list-union #[257 "\300\301\302\"!\207" [xsdre-make-range-list apply append] 5 (#$ . 2882)]) #@80 Return a range-list for the difference of two range-lists. (fn ORIG SUBTRACT) (defalias 'xsdre-range-list-difference #[514 "\205\343 \300\211\211\211\203\337 @\262\211:\203 \211@\262\262\211:\203&