83 lines
3.1 KiB
Scheme
83 lines
3.1 KiB
Scheme
; Copyright (c) 2003 RT Happe <rthappe at web de>
|
|
; See the file COPYING distributed with the Scheme Untergrund Library
|
|
|
|
;;; refers to structure KRIMS from sunterlib/s48/krims
|
|
|
|
;; sequences as data + behaviour
|
|
(define-structure absequences absequences-face
|
|
(open srfi-9+ ; define-record-type -discloser
|
|
krims ; assert
|
|
let-opt ; let-optionals [ from scsh ]
|
|
scheme)
|
|
(files uniseqs))
|
|
|
|
;; specialists for lists, vectors, strings
|
|
(define-structure sequence-specifics sequence-specifics-face
|
|
(open srfi-1 ; list procs
|
|
srfi-13 ; string procs
|
|
scheme)
|
|
(files specseqs))
|
|
|
|
;; basic sequence accessors etc.
|
|
(define-structure sequence-basics sequence-basics-face
|
|
(open krims ; gen-dispatch
|
|
let-opt ; :optional [ from scsh ]
|
|
sequence-specifics ; list-set! make-list
|
|
absequences
|
|
byte-vectors
|
|
srfi-1 ; make-list
|
|
srfi-23 ; error
|
|
scheme)
|
|
(files baseqs))
|
|
|
|
;; sequence operations defined in terms of the basic protocol
|
|
(define-structure sequence-extras sequence-extras-face
|
|
(open sequence-basics
|
|
krims ; assert
|
|
util ; unspecific
|
|
srfi-1+ ; append! rest
|
|
srfi-23 ; error
|
|
let-opt ; let-optionals [ from scsh ]
|
|
scheme)
|
|
(files genseqs))
|
|
|
|
|
|
|
|
;; sequence procedures specialised to vectors
|
|
(define-structure vector-lib vector-lib-face
|
|
(open krims ; assert
|
|
util ; unspecific
|
|
let-opt ; let-optionals [ from scsh ]
|
|
srfi-1+ ; append! drop first rest
|
|
scheme)
|
|
;; bind the basic operations to vector specialists
|
|
(begin
|
|
(define sequence? vector?)
|
|
(define sequence-length vector-length)
|
|
(define sequence-ref vector-ref)
|
|
(define sequence-set! vector-set!)
|
|
(define (make-another-sequence v k . maybe-fill)
|
|
(apply make-vector k maybe-fill)))
|
|
(files genseqs ; generic code
|
|
vecnames) ; renames stuff, defines constructors
|
|
)
|
|
|
|
|
|
;; elementary and other general sequence operations, typically dispatching
|
|
;; early on the sequence type in order to make use of built-ins or special
|
|
;; code (notably for lists)
|
|
(define-structure sequence-lib (compound-interface sequence-basics-face
|
|
sequence-extras-face
|
|
absequences-face)
|
|
(open (with-prefix sequence-extras contiguous-)
|
|
sequence-basics
|
|
absequences
|
|
sequence-specifics
|
|
vector-lib
|
|
srfi-1 ; list procs
|
|
srfi-13 ; string procs
|
|
byte-vectors
|
|
let-opt ; let-optionals [ from scsh ]
|
|
scheme)
|
|
(files composeqs))
|