%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Current File : //usr/local/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 "\300D\207" [caar] 3 (#$ . 823)]))
#@13 

(fn NODE)
(defalias 'rtree-high '(macro . #[257 "\300D\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 "\300D\207" [cadr] 3 (#$ . 1237)]))
#@13 

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

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

(fn RANGE)
(defalias 'rtree-normalize-range #[257 "\211\247\203\n\211B\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#\211B\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\210A@\203SA@@ASU\203S@A@@@\240\210AA@A@\240\210\300\262\202A@\203gA@\262\202\300C\300D\211@\240\210\211@\241\210A\240\210\300\262\210\202\211@ATU\203\270@\241\210AA\203\262AA@@TU\203\262@AA@A\241\210AAAAA\241\210\300\262\202AA\203\306AA\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\262A@\262\202@AV\203,\262AA\262\202@@@AU\203\223A@\203gAA\203g\211AA\211A@\203W\211\262\211A@\262\202F@\240\210AAA\240\266\2021A@\206pAA\204z\211\262\202\217A@=\203\212A\240\210\202\217A\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\2020A@\203+\211A\241\210\211AA@\240\210A\300\240\210\204\211\262\2020A@=\203#A\240\210\2020A\241\210\2020A\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\262A@\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)
Zerion Mini Shell 1.0