%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/nxml/ |
Current File : //usr/local/share/emacs/27.2/lisp/nxml/xsd-regexp.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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 (#$ . 409)]) (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 (#$ . 1498)]) (put 'xsdre-make-range 'byte-optimizer 'byte-compile-inline-expand) #@46 Return the first integer in a range. (fn R) (defalias 'xsdre-range-first #[257 "\211:\203 \211@\207\207" [] 2 (#$ . 1844)]) (put 'xsdre-range-first 'byte-optimizer 'byte-compile-inline-expand) #@45 Return the last integer in a range. (fn R) (defalias 'xsdre-range-last #[257 "\211:\203 \211A\207\207" [] 2 (#$ . 2045)]) (put 'xsdre-range-last 'byte-optimizer 'byte-compile-inline-expand) #@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 (#$ . 2244)]) #@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 (#$ . 2985)]) #@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&