Outdated egg!

This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for the CHICKEN 5 version of this egg, if it exists.

If it does not exist, there may be equivalent functionality provided by another egg; have a look at the egg index. Otherwise, please consider porting this egg to the current version of CHICKEN.

rope
  1. Outdated egg!
  2. rope
  3. Description
  4. API
  5. Author
  6. License

Description

Ropes, as described in "Ropes, An Alternative to Strings" (1995 - H. Boehm, R. Atkinson, M. Plass).

The source for this extension is available here.

API

[record] rope
[procedure] (rope? object) => boolean
[procedure] (rope-length rope) => integer
[procedure] (rope-depth rope) => integer

A rope is either a leaf containing a string or a binary tree consisting of such leaves.

Length and depth are stored on each node, so rope-length and rope-depth are constant time queries.

rope? simply tests if its argument is a rope.

[procedure] (rope=? rope1 rope2 [ropeN ...]) => boolean

rope=? tests whether two ropes represent the same string. Fast paths are provided on eq?ity and rope-length; otherwise, this comparison is O(n).

[parameter] (current-maximum-leaf-length [n])

current-maximum-leaf-length specifies the maximum string length for rope leaf nodes.

The default value is 512, which should be suitable for most purposes. Setting this value too low will result in frequent rebalancing, adversely affecting performance.

[procedure] (rope-null? rope) => boolean

Tests whether the given rope is empty. Equivalent to (= 0 (rope-length rope)).

[procedure] (rope [string ...]) => rope

Constructs a rope from the given strings. The resulting rope, while not guaranteed to be balanced, should be fairly so.

[procedure] (string->rope string) => rope

Constructs a rope from the given string. The resulting rope is guaranteed to be balanced.

[procedure] (rope->string rope) => string

Returns the full contents of the given rope as a string.

[procedure] (rope-ref rope i) => character

Returns the ith character of the rope, zero-indexed.

[procedure] (subrope rope start [end]) => rope

Returns a subrope consisting of the range of characters starting at the zero-indexed character start and ending at character end, or the end of the rope if no end is given.

[procedure] (rope-append [rope ...]) => rope

Appends the given ropes, trying to keep the resulting rope fairly well-balanced.

[procedure] (rope-concatenate list) => rope

Constructs a new rope from the the given list of ropes, trying to keep the resulting rope fairly well-balanced.

[procedure] (rope-reverse rope)

Constructs a new rope consisting of the characters in the given rope, reversed. This operation is expensive for large ropes (O(n) in the length of the rope, best-case).

[procedure] (rope-balanced? rope) => boolean

Tests whether the given rope is balanced. A rope is balanced if its length is at least F(n+2), where F(n) is the nth fibonacci number and n is the depth of the given rope.

[procedure] (rope-balance rope) => rope

Explicitly rebalances a rope.

The rebalancing strategy used is that described in Boehm, Atkinson & Plass' 1995 paper "Ropes, An Alternative to Strings".

[procedure] (rope-fold f a rope1 [ropeN ...]) => object
[procedure] (rope-for-each f rope1 [ropeN ...]) => void

These procedures implement characterwise fold and for-each over the given ropes.

[procedure] (read-rope [port [length]]) => rope

Reads a rope from the given port, or current-input-port if no port is specified.

If a numerical length argument is given, at most that many characters are read.

The resulting rope is guaranteed to be balanced.

[procedure] (make-rope-iterator rope) => procedure

Returns a cursor procedure over the given rope's characters.

The resulting procedure, when invoked, will return the current character in the rope and advance to the next character. When the characters of the rope are exhausted, the procedure will yield #!eof.

[procedure] (open-input-rope rope) => port

Returns a port from which the contents of the rope can be read. When the end of the rope is reached, subsequent reads will return #!eof.

[procedure] (open-output-rope) => port
[procedure] (get-output-rope [port]) => rope

open-output-rope returns a port to which output can be written and accumulated, until returned as a rope with get-output-rope.

In reality, open-output-rope and open-output-string are the same. Construction of the rope returned by get-output-rope is delayed until that procedure is called, so get-output-rope may be used to return a rope from the accumulated output of ports created by either open-output-rope or open-output-string.

Author

Evan Hanson

License

3-Clause BSD