Server IP : 111.118.215.189 / Your IP : 18.217.89.171 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/nxml/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:33 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/xsd-regexp.el ;;; in Emacs version 24.3.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@186 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. (defalias 'xsdre-translate #[(regexp) "\301\302!!\207" [regexp xsdre-from-symbolic xsdre-to-symbolic] 3 (#$ . 559)]) (defvar xsdre-test-history nil) (defalias 'xsdre-test-regexp #[nil "\306\307\310\211\211\311%\312!\nr\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-\202 " [str symbolic default-directory #1=#:old-dir buffer-read-only buffer-file-name 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 buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 7 nil nil]) #@179 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. (defalias 'xsdre-make-range #[(first last) " U\203 \207 B\207" [first last] 2 (#$ . 1667)]) (put 'xsdre-make-range 'byte-optimizer 'byte-compile-inline-expand) #@38 Return the first integer in a range. (defalias 'xsdre-range-first #[(r) ":\203 @\207\207" [r] 1 (#$ . 2015)]) (put 'xsdre-range-first 'byte-optimizer 'byte-compile-inline-expand) #@37 Return the last integer in a range. (defalias 'xsdre-range-last #[(r) ":\203 A\207\207" [r] 1 (#$ . 2204)]) (put 'xsdre-range-last 'byte-optimizer 'byte-compile-inline-expand) #@216 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. (defalias 'xsdre-make-range-list #[(list) "\205\327 \306\307\"\211A@\211\211:\203 \f@\202 \f)\211:\203, \fA\202- \f) \203\270 @\211\211:\203C \fA\202D \f) V\203\261 \211:\203W \f@\202X \f) TX\203s \211:\203l \fA\202m \f) \202\261 \n \211 U\203\205 \202\211 B*\240\210\n \241\210 \211:\203\236 \f@\202\237 \f)\211:\203\255 \fA\202\256 \f) A\211\2044 \n \211 U\203\312 \202\316 B*\240\210\n\310\241\210-\207" [list next tail head r first sort xsdre-range-less-than nil last] 4 (#$ . 2391)]) #@58 Return a range-list, the union of a list of range-lists. (defalias 'xsdre-range-list-union #[(range-lists) "\301\302\303\"!\207" [range-lists xsdre-make-range-list apply append] 4 (#$ . 3157)]) #@60 Return a range-list for the difference of two range-lists. (defalias 'xsdre-range-list-difference #[(orig subtract) "\205#\306\211\211\211\211\203 @\211\211:\203# @\202% )\f\211:\2035 A\2027 )\203_ @\211:\203N A\202P )\nW\203_ A\211\204>