Current File : //kunden/usr/share/emacs/27.2/lisp/rtree.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defalias 'rtree-make-node '(macro . #[0 "\300\207" [(list (list nil) nil)] 1]))
#@18 

(fn NODE LEFT)
(defalias 'rtree-set-left '(macro . #[514 "\300\301DE\207" [setcar cdr] 5 (#$ . 489)]))
#@19 

(fn NODE RIGHT)
(defalias 'rtree-set-right '(macro . #[514 "\300\301DE\207" [setcdr cdr] 5 (#$ . 602)]))
#@19 

(fn NODE RANGE)
(defalias 'rtree-set-range '(macro . #[514 "\300E\207" [setcar] 5 (#$ . 717)]))
#@13 

(fn NODE)
(defalias 'rtree-low '(macro . #[257 "\300
D\207" [caar] 3 (#$ . 823)]))
#@13 

(fn NODE)
(defalias 'rtree-high '(macro . #[257 "\300
D\207" [cdar] 3 (#$ . 914)]))
#@20 

(fn NODE NUMBER)
(defalias 'rtree-set-low '(macro . #[514 "\300\301DE\207" [setcar car] 5 (#$ . 1006)]))
#@20 

(fn NODE NUMBER)
(defalias 'rtree-set-high '(macro . #[514 "\300\301DE\207" [setcdr car] 5 (#$ . 1121)]))
#@13 

(fn NODE)
(defalias 'rtree-left '(macro . #[257 "\300
D\207" [cadr] 3 (#$ . 1237)]))
#@13 

(fn NODE)
(defalias 'rtree-right '(macro . #[257 "\300
D\207" [cddr] 3 (#$ . 1330)]))
#@13 

(fn NODE)
(defalias 'rtree-range '(macro . #[257 "\300
D\207" [car] 3 (#$ . 1424)]))
#@14 

(fn RANGE)
(defalias 'rtree-normalize-range #[257 "\211\247\203\n\211
B\262
\207" [] 3 (#$ . 1517)])
(byte-code "\300\301\302\303#\210\304\305\301\306#\210\307\305\301\310#\207" [put rtree-normalize-range byte-optimizer byte-compile-inline-expand defalias rtree-normalise-range nil make-obsolete "25.1"] 4)
#@39 Make an rtree from RANGE.

(fn RANGE)
(defalias 'rtree-make #[257 "\211\243<\204\n\211C\262
\300\301BG\"\207" [rtree-make-1 nil] 4 (#$ . 1833)])
#@21 

(fn RANGE LENGTH)
(defalias 'rtree-make-1 #[514 "\211\300\245\301C\301D
\302V\203\211A\303\"\240\210\211A@\211\247\203#\211
B\262
\240\210\211AA\241\210\304\305#\302V\203C\211A\303\304\305#\"\241\210\207" [2 nil 0 rtree-make-1 - 1] 11 (#$ . 1987)])
#@64 Return non-nil if NUMBER is present in TREE.

(fn TREE NUMBER)
(defalias 'rtree-memq #[514 "
\203*\211@@Y\203\211@AX\204*\211@@W\203\"
A@\202%
AA\262\202
\207" [] 4 (#$ . 2259)])
#@39 Add NUMBER to TREE.

(fn TREE NUMBER)
(defalias 'rtree-add #[514 "
\205\340\211@@Y\203\211@AX\203\300\262\202\211@@W\203\201\211@@SU\203Y
@
\240\210
A@\203S
A@@A
SU\203S
@A@@@\240\210
AA@A@\240\210\300\262\202
A@\203g
A@\262\202\300C\300D\211@\240\210\211@\241\210A
\240\210\300\262\210\202\211@ATU\203\270
@
\241\210
AA\203\262
AA@@
TU\203\262
@AA@A\241\210
AAAAA\241\210\300\262\202
AA\203\306
AA\262\202\300C\300D\211@\240\210\211@\241\210A
\241\210\300\262\210\202\207" [nil] 5 (#$ . 2456)])
#@81 Remove NUMBER from TREE destructively.  Returns the new tree.

(fn TREE NUMBER)
(defalias 'rtree-delq #[514 "
\300\2037
@@W\203\262
A@\262\202@AV\203,\262
AA\262\202@@@AU\203\223A@\203gAA\203g\211AA\211A@\203W\211\262\211A@\262
\202F
@\240\210
A
AA\240\266\2021
A@\206pAA
\204z\211\262\202\217
A@=\203\212
A
\240\210\202\217
A
\241\210\210\2021
@@U\203\244@T\240\210\2021
@AU\203\265@S\241\210\2021
\300C\300D\211@@@\240\210\211@S\241\210@T\240\210A@\203\362AA\203\362A@\211AA\203\351\211AA\262
\202\333\211A\241\266\2020
A@\203+
\211A\241\210\211AA@\240\210A\300\240\210
\204
\211\262\2020

A@=\203#

A
\240\210\2020

A
\241\210\2020
A
\240\210\210\300\262\202
\207" [nil] 8 (#$ . 3008)])
#@40 Convert TREE to range form.

(fn TREE)
(defalias 'rtree-extract #[257 "\300\211
\204\n\203A\203B\262AA\262\202
\211A\262\242\262@@@AU\2033@@\2025@
B\262
A@\262\202\207" [nil] 5 (#$ . 3778)])
#@57 Return the number of numbers stored in TREE.

(fn TREE)
(defalias 'rtree-length #[257 "\211\204\300\207\301\302A@!@A@@ZT\302AA!#\207" [0 + rtree-length] 6 (#$ . 4000)])
(provide 'rtree)