Current File : //proc/self/root/kunden/usr/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&