Current File : //usr/local/share/emacs/27.2/lisp/nxml/rng-dt.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'rng-util)
(defvar rng-dt-error-reporter nil)
#@26
(fn STRING &rest OBJS)
(defalias 'rng-dt-error #[385 "\205\n \301B\"\207" [rng-dt-error-reporter apply] 6 (#$ . 463)])
#@410 A list used by datatype libraries to expand names.
The car of the list is a symbol which is the name of a function.
This function is applied to the cdr of the list. The function must
return a list whose car is the default namespace and whose cdr is an
alist of (PREFIX . NAMESPACE) pairs, where PREFIX is a string and
NAMESPACE is a symbol. This must be dynamically bound before calling
a datatype library.
(defvar rng-dt-namespace-context-getter nil (#$ . 595))
#@15
(fn DT STR)
(defalias 'rng-dt-make-value #[514 "\300@AB\"\207" [apply] 6 (#$ . 1066)])
(put 'rng-dt-make-value 'byte-optimizer 'byte-compile-inline-expand)
#@20
(fn NAME PARAMS)
(defalias 'rng-dt-builtin-compile #[514 "\300\267\202 \211\204\f \301\207\302\303!\207\211\204 \304\207\302\305!\207\302\306\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 6 token 16)) (t identity) rng-dt-error "The string datatype does not take any parameters" (t rng-collapse-space) "The token datatype does not take any parameters" "There is no built-in datatype %s"] 5 (#$ . 1233)])
(byte-code "\300\301\302!\303\304#\210\305\306!\207" [put rng-make-datatypes-uri "" rng-dt-compile rng-dt-builtin-compile provide rng-dt] 4)
Mini Shell