;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Tue Aug 10 13:39:24 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/ring.el ;;; emacs version 19.18.0. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias 'ring-p #[(x) ":…@¨…A:…A@¨…ÁAA!‡" [x vectorp] 2 "\ Returns t if X is a ring; nil otherwise."]) (defalias 'make-ring #[(size) "À‰Á\nÃ\"BB‡" [0 make-vector size nil] 5 "\ Make a ring that can contain SIZE elements."]) (defalias 'ring-plus1 #[(index veclen) "Á\\‰ UƒÄ‚\n)‡" [index 1 new-index veclen 0] 3 "\ INDEX+1, with wraparound"]) (defalias 'ring-minus1 #[(index veclen) "ÁUƒ\n\n‚ ÃZ‡" [index 0 veclen 1] 2 "\ INDEX-1, with wraparound"]) (defalias 'ring-length #[(ring) "A@‡" [ring] 1 "\ Number of elements in the ring."]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias ring-empty-p #[(ring) "A@ÁU‡" [ring 0] 2] ring-index #[(index head ringlen veclen) " ¦\n Z\\S ¦‡" [index ringlen head veclen] 3]] 3) (defalias 'ring-insert #[(ring item) "AA‰G@A@ \\\n¦ I \nUƒ&Æ \n\" ˆ‚,A T ˆ,‡" [ring vec veclen hd ln item ring-plus1] 6 "\ Insert a new item onto the ring. If the ring is full, dump the oldest item to make room."]) (defalias 'ring-remove #[(ring &optional index) "À !ƒ\nÂÃ!‡ @ A@ AA‰G \\S¦É\n „/ S Ì $  H\n U„c Í \"HIˆÍ \"‰ ‚BÉIˆ A S ˆ\n.‡" [ring-empty-p ring error "Ring empty" hd ln vec veclen tl nil oldelt index ring-index ring-plus1] 7 "\ Remove an item from the RING. Return the removed item. If optional INDEX is nil, remove the oldest item. If it's numeric, remove the element indexed."]) (defalias 'ring-ref #[(ring index) "À !ƒ\nÂÃ!‡ @ A@ AA‰Ç G$H+‡" [ring-empty-p ring error "indexed empty ring" hd ln vec ring-index index] 7 "\ Returns RING's INDEX element. INDEX need not be <= the ring length, the appropriate modulo operation will be performed. Element 0 is the most recently inserted; higher indices correspond to older elements until they wrap."]) (provide (quote ring))