mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
adding define-library-alias (issue #650)
This commit is contained in:
Alex Shinn
parent
0957b54f51
commit
9901a67b20
36 changed files with 48 additions and 1353 deletions
|
|
@ -312,6 +312,18 @@
|
|||
(define-syntax define-library define-library-transformer)
|
||||
(define-syntax module define-library-transformer)
|
||||
|
||||
(define-syntax define-library-alias
|
||||
(er-macro-transformer
|
||||
(lambda (expr rename compare)
|
||||
;; we need to load the original module first, not just find it,
|
||||
;; or else the includes would happen relative to the alias
|
||||
(let ((name (cadr expr))
|
||||
(orig (load-module (car (cddr expr)))))
|
||||
(if (not orig)
|
||||
(error "couldn't find library to alias" (car (cddr expr)))
|
||||
`(,(rename 'add-module!) (,(rename 'quote) ,name)
|
||||
(,(rename 'quote) ,orig)))))))
|
||||
|
||||
(define-syntax pop-this-path
|
||||
(er-macro-transformer
|
||||
(lambda (expr rename compare)
|
||||
|
|
|
|||
|
|
@ -1,22 +1,2 @@
|
|||
|
||||
(define-library (scheme bitwise)
|
||||
(import (srfi 151))
|
||||
(export bitwise-not
|
||||
bitwise-and bitwise-ior
|
||||
bitwise-xor bitwise-eqv
|
||||
bitwise-nand bitwise-nor
|
||||
bitwise-andc1 bitwise-andc2
|
||||
bitwise-orc1 bitwise-orc2
|
||||
arithmetic-shift bit-count integer-length
|
||||
bitwise-if
|
||||
bit-set? any-bit-set? every-bit-set?
|
||||
first-set-bit
|
||||
bit-field bit-field-any? bit-field-every?
|
||||
bit-field-clear bit-field-set
|
||||
bit-field-replace bit-field-replace-same
|
||||
bit-field-rotate bit-field-reverse
|
||||
copy-bit bits->list list->bits
|
||||
bits->vector vector->bits
|
||||
bits bit-swap
|
||||
bitwise-fold bitwise-for-each bitwise-unfold
|
||||
make-bitwise-generator))
|
||||
(define-library-alias (scheme bitwise) (srfi 151))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,2 @@
|
|||
|
||||
(define-library (scheme box)
|
||||
(import (srfi 111))
|
||||
(export box box? unbox set-box!))
|
||||
(define-library-alias (scheme box) (srfi 111))
|
||||
|
|
|
|||
|
|
@ -1,4 +1,2 @@
|
|||
|
||||
(define-library (scheme case-lambda)
|
||||
(import (srfi 16))
|
||||
(export case-lambda))
|
||||
(define-library-alias (scheme case-lambda) (srfi 16))
|
||||
|
|
|
|||
|
|
@ -1,37 +1,2 @@
|
|||
|
||||
(define-library (scheme charset)
|
||||
(import (srfi 14))
|
||||
(export
|
||||
char-set? char-set= char-set<=
|
||||
char-set-hash
|
||||
char-set-cursor char-set-ref char-set-cursor-next end-of-char-set?
|
||||
char-set-fold char-set-unfold char-set-unfold!
|
||||
char-set-for-each char-set-map
|
||||
char-set-copy char-set
|
||||
|
||||
list->char-set string->char-set
|
||||
list->char-set! string->char-set!
|
||||
|
||||
char-set-filter ucs-range->char-set ->char-set
|
||||
char-set-filter! ucs-range->char-set!
|
||||
|
||||
char-set->list char-set->string
|
||||
|
||||
char-set-size char-set-count char-set-contains?
|
||||
char-set-every char-set-any
|
||||
|
||||
char-set-adjoin char-set-delete
|
||||
char-set-adjoin! char-set-delete!
|
||||
|
||||
char-set-complement char-set-union char-set-intersection
|
||||
char-set-complement! char-set-union! char-set-intersection!
|
||||
|
||||
char-set-difference char-set-xor char-set-diff+intersection
|
||||
char-set-difference! char-set-xor! char-set-diff+intersection!
|
||||
|
||||
char-set:lower-case char-set:upper-case char-set:title-case
|
||||
char-set:letter char-set:digit char-set:letter+digit
|
||||
char-set:graphic char-set:printing char-set:whitespace
|
||||
char-set:iso-control char-set:punctuation char-set:symbol
|
||||
char-set:hex-digit char-set:blank char-set:ascii
|
||||
char-set:empty char-set:full))
|
||||
(define-library-alias (scheme charset) (srfi 14))
|
||||
|
|
|
|||
|
|
@ -1,25 +1,2 @@
|
|||
|
||||
(define-library (scheme comparator)
|
||||
(import (srfi 128))
|
||||
(export
|
||||
;; Predicates:
|
||||
comparator? comparator-ordered? comparator-hashable?
|
||||
;; Constructors:
|
||||
make-comparator make-pair-comparator make-list-comparator
|
||||
make-vector-comparator make-eq-comparator make-eqv-comparator
|
||||
make-equal-comparator
|
||||
;; Standard hash functions:
|
||||
boolean-hash char-hash char-ci-hash string-hash string-ci-hash
|
||||
symbol-hash number-hash
|
||||
;; Bounds and salt:
|
||||
hash-bound hash-salt
|
||||
;; Default comparators:
|
||||
make-default-comparator default-hash comparator-register-default!
|
||||
;; Accessors and invokers:
|
||||
comparator-type-test-predicate comparator-equality-predicate
|
||||
comparator-ordering-predicate comparator-hash-function
|
||||
comparator-test-type comparator-check-type comparator-hash
|
||||
;; Comparison predicates:
|
||||
=? <? >? <=? >=?
|
||||
;;Syntax:
|
||||
comparator-if<=>))
|
||||
(define-library-alias (scheme comparator) (srfi 128))
|
||||
|
|
|
|||
|
|
@ -1,5 +1,2 @@
|
|||
|
||||
(define-library (scheme ephemeron)
|
||||
(import (srfi 124))
|
||||
(export make-ephemeron ephemeron? ephemeron-broken?
|
||||
ephemeron-key ephemeron-datum))
|
||||
(define-library-alias (scheme ephemeron) (srfi 124))
|
||||
|
|
|
|||
|
|
@ -1,32 +1,2 @@
|
|||
(define-library (scheme flonum)
|
||||
(import (srfi 144))
|
||||
(export
|
||||
fl-e fl-e-2 fl-log2-e fl-log10-e fl-log-2 fl-log-10 fl-pi
|
||||
fl-1/pi fl-2/pi fl-pi/2 fl-pi/4 fl-sqrt-pi fl-2/sqrt-pi
|
||||
fl-sqrt-2 fl-sqrt-3 fl-sqrt-5 fl-sqrt-10 fl-1/sqrt-2
|
||||
fl-cbrt-2 fl-cbrt-3 fl-4thrt-2 fl-phi fl-log-phi fl-1/log-phi
|
||||
fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least
|
||||
fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
|
||||
|
||||
flonum flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
|
||||
flunordered? flinteger? flzero? flpositive? flnegative?
|
||||
|
||||
fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff
|
||||
flnumerator fldenominator
|
||||
|
||||
fladjacent flcopysign flsgn make-flonum flinteger-fraction
|
||||
flexponent flinteger-exponent flnormalized-fraction-exponent
|
||||
sign-bit flfinite? flinfinite? flnan? flnormalized? fldenormalized?
|
||||
flabs flposdiff flfloor flceiling flround fltruncate
|
||||
|
||||
flexp flexp2 flexp-1 flsquare flsqrt flcbrt flhypot flexpt fllog fllog1+
|
||||
fllog2 fllog10 flsin flcos fltan flasin flacos flatan
|
||||
flsinh flcosh fltanh flasinh flacosh flatanh flremquo
|
||||
flgamma flloggamma flfirst-bessel flsecond-bessel flerf flerfc
|
||||
|
||||
flfloor/ flfloor-quotient flfloor-remainder
|
||||
flceiling/ flceiling-quotient flceiling-remainder
|
||||
fltruncate/ fltruncate-quotient fltruncate-remainder
|
||||
flround/ flround-quotient flround-remainder
|
||||
fleuclidean/ fleuclidean-quotient fleuclidean-remainder
|
||||
flbalanced/ flbalanced-quotient flbalanced-remainder))
|
||||
(define-library-alias (scheme flonum) (srfi 144))
|
||||
|
|
|
|||
|
|
@ -1,39 +1,2 @@
|
|||
|
||||
(define-library (scheme generator)
|
||||
(import (srfi 121))
|
||||
(export generator
|
||||
make-iota-generator
|
||||
make-range-generator
|
||||
make-coroutine-generator
|
||||
list->generator
|
||||
vector->generator
|
||||
reverse-vector->generator
|
||||
string->generator
|
||||
bytevector->generator
|
||||
make-for-each-generator
|
||||
make-unfold-generator
|
||||
gcons*
|
||||
gappend
|
||||
gcombine
|
||||
gfilter
|
||||
gremove
|
||||
gtake
|
||||
gdrop
|
||||
gtake-while
|
||||
gdrop-while
|
||||
gdelete
|
||||
gdelete-neighbor-dups
|
||||
gindex
|
||||
gselect
|
||||
generator->list
|
||||
generator->reverse-list
|
||||
generator->vector
|
||||
generator->vector!
|
||||
generator->string
|
||||
generator-fold
|
||||
generator-for-each
|
||||
generator-find
|
||||
generator-count
|
||||
generator-any
|
||||
generator-every
|
||||
generator-unfold))
|
||||
(define-library-alias (scheme generator) (srfi 121))
|
||||
|
|
|
|||
|
|
@ -1,29 +1,2 @@
|
|||
|
||||
(define-library (scheme hash-table)
|
||||
(import (srfi 125))
|
||||
(export
|
||||
;; Constructors:
|
||||
make-hash-table hash-table hash-table-unfold alist->hash-table
|
||||
;; Predicates:
|
||||
hash-table? hash-table-contains? hash-table-exists?
|
||||
hash-table-empty? hash-table=? hash-table-mutable?
|
||||
;; Accessors:
|
||||
hash-table-ref hash-table-ref/default
|
||||
;; Mutators:
|
||||
hash-table-set! hash-table-delete! hash-table-intern!
|
||||
hash-table-update! hash-table-update!/default hash-table-pop!
|
||||
hash-table-clear!
|
||||
;; The whole hash table:
|
||||
hash-table-size hash-table-keys hash-table-values
|
||||
hash-table-entries hash-table-find hash-table-count
|
||||
;; Mapping and folding:
|
||||
hash-table-map hash-table-for-each hash-table-walk
|
||||
hash-table-map! hash-table-map->list hash-table-fold hash-table-prune!
|
||||
;; Copying and conversion:
|
||||
hash-table-copy hash-table-empty-copy hash-table->alist
|
||||
;; Hash tables as sets:
|
||||
hash-table-union! hash-table-merge!
|
||||
hash-table-intersection! hash-table-difference! hash-table-xor!
|
||||
;; Hash functions and reflectivity:
|
||||
hash string-hash string-ci-hash hash-by-identity
|
||||
hash-table-equivalence-function hash-table-hash-function))
|
||||
(define-library-alias (scheme hash-table) (srfi 125))
|
||||
|
|
|
|||
|
|
@ -1,31 +1,2 @@
|
|||
|
||||
(define-library (scheme ideque)
|
||||
(import (srfi 134))
|
||||
(export ideque ideque-tabulate ideque-unfold ideque-unfold-right
|
||||
ideque? ideque-empty? ideque= ideque-any ideque-every
|
||||
|
||||
ideque-front ideque-add-front ideque-remove-front
|
||||
ideque-back ideque-add-back ideque-remove-back
|
||||
|
||||
ideque-ref
|
||||
ideque-take ideque-take-right ideque-drop ideque-drop-right
|
||||
ideque-split-at
|
||||
|
||||
ideque-length ideque-append ideque-reverse
|
||||
ideque-count ideque-zip
|
||||
|
||||
ideque-map ideque-filter-map
|
||||
ideque-for-each ideque-for-each-right
|
||||
ideque-fold ideque-fold-right
|
||||
ideque-append-map
|
||||
|
||||
ideque-filter ideque-remove ideque-partition
|
||||
|
||||
ideque-find ideque-find-right
|
||||
ideque-take-while ideque-take-while-right
|
||||
ideque-drop-while ideque-drop-while-right
|
||||
ideque-span ideque-break
|
||||
|
||||
list->ideque ideque->list
|
||||
generator->ideque ideque->generator
|
||||
))
|
||||
(define-library-alias (scheme ideque) (srfi 134))
|
||||
|
|
|
|||
|
|
@ -1,79 +1,2 @@
|
|||
|
||||
(define-library (scheme ilist)
|
||||
(import (srfi 116))
|
||||
(export
|
||||
;; Syntax
|
||||
iq
|
||||
|
||||
;; Constructors
|
||||
ipair ilist
|
||||
xipair ipair* make-ilist ilist-tabulate
|
||||
ilist-copy iiota
|
||||
|
||||
;; Predicates
|
||||
ipair? proper-ilist? ilist? dotted-ilist?
|
||||
not-ipair? null-ilist?
|
||||
ilist=
|
||||
|
||||
;; Selectors
|
||||
icar icdr icaar icadr icdar icddr
|
||||
icaaaar icaaadr icaadar icaaddr
|
||||
icadaar icadadr icaddar icadddr
|
||||
icdaaar icdaadr icdadar icdaddr
|
||||
icddaar icddadr icdddar icddddr
|
||||
icaaar icaadr icadar icaddr
|
||||
icdaar icdadr icddar icdddr
|
||||
ilist-ref
|
||||
ifirst isecond ithird ifourth ififth isixth iseventh ieighth ininth itenth
|
||||
icar+icdr
|
||||
itake idrop ilist-tail
|
||||
itake-right idrop-right
|
||||
isplit-at
|
||||
ilast last-ipair
|
||||
|
||||
;; Miscellaneous: length, append, concatenate, reverse, zip & count
|
||||
ilength
|
||||
iappend iconcatenate ireverse iappend-reverse
|
||||
izip iunzip1 iunzip2 iunzip3 iunzip4 iunzip5
|
||||
icount
|
||||
|
||||
;; Fold, unfold & map
|
||||
imap ifor-each
|
||||
ifold iunfold ipair-fold ireduce
|
||||
ifold-right iunfold-right ipair-fold-right ireduce-right
|
||||
iappend-map ipair-for-each ifilter-map imap-in-order
|
||||
|
||||
;; Filtering & partitioning
|
||||
ifilter ipartition iremove
|
||||
|
||||
;; Searching
|
||||
imember imemq imemv
|
||||
ifind ifind-tail
|
||||
iany ievery
|
||||
ilist-index
|
||||
itake-while idrop-while
|
||||
ispan ibreak
|
||||
|
||||
;; Deleting
|
||||
idelete idelete-duplicates
|
||||
|
||||
;; Immutable association lists
|
||||
iassoc iassq iassv
|
||||
ialist-cons ialist-delete
|
||||
|
||||
;; Replacement
|
||||
replace-icar replace-icdr
|
||||
|
||||
;; Conversion
|
||||
pair->ipair ipair->pair
|
||||
list->ilist ilist->list
|
||||
tree->itree itree->tree
|
||||
gtree->itree gtree->tree
|
||||
|
||||
;; Procedure application
|
||||
iapply
|
||||
|
||||
;; Comparators
|
||||
ipair-comparator ilist-comparator
|
||||
make-ilist-comparator make-improper-ilist-comparator
|
||||
make-icar-comparator make-icdr-comparator))
|
||||
(define-library-alias (scheme ilist) (srfi 116))
|
||||
|
|
|
|||
|
|
@ -1,11 +1,2 @@
|
|||
|
||||
(define-library (scheme list-queue)
|
||||
(import (srfi 117))
|
||||
(export
|
||||
make-list-queue list-queue list-queue-copy list-queue-unfold
|
||||
list-queue-unfold-right list-queue? list-queue-empty?
|
||||
list-queue-front list-queue-back list-queue-list list-queue-first-last
|
||||
list-queue-add-front! list-queue-add-back! list-queue-remove-front!
|
||||
list-queue-remove-back! list-queue-remove-all! list-queue-set-list!
|
||||
list-queue-append list-queue-append! list-queue-concatenate
|
||||
list-queue-map list-queue-map! list-queue-for-each))
|
||||
(define-library-alias (scheme list-queue) (srfi 117))
|
||||
|
|
|
|||
|
|
@ -1,21 +1,2 @@
|
|||
|
||||
(define-library (scheme list)
|
||||
(import (srfi 1))
|
||||
(export
|
||||
xcons cons* make-list list-tabulate list-copy circular-list iota
|
||||
proper-list? circular-list? dotted-list? not-pair? null-list? list=
|
||||
first second third fourth fifth sixth seventh eighth ninth tenth
|
||||
car+cdr take drop take-right drop-right take! drop-right! split-at split-at!
|
||||
last last-pair length+ concatenate append! concatenate! reverse!
|
||||
append-reverse append-reverse!
|
||||
zip unzip1 unzip2 unzip3 unzip4 unzip5 count
|
||||
fold unfold pair-fold reduce fold-right unfold-right
|
||||
pair-fold-right reduce-right
|
||||
append-map append-map! map! pair-for-each filter-map map-in-order
|
||||
filter partition remove filter! partition! remove! find find-tail any every
|
||||
list-index take-while drop-while take-while! span break span! break!
|
||||
delete delete-duplicates delete! delete-duplicates!
|
||||
alist-cons alist-copy alist-delete alist-delete!
|
||||
lset<= lset= lset-adjoin lset-union lset-union! lset-intersection
|
||||
lset-intersection! lset-difference lset-difference! lset-xor lset-xor!
|
||||
lset-diff+intersection lset-diff+intersection!))
|
||||
(define-library-alias (scheme list) (srfi 1))
|
||||
|
|
|
|||
|
|
@ -1,25 +1,2 @@
|
|||
|
||||
(define-library (scheme lseq)
|
||||
(import (srfi 127))
|
||||
(export
|
||||
;; Constructors
|
||||
generator->lseq
|
||||
;; Predicates
|
||||
lseq? lseq=?
|
||||
;; Selectors
|
||||
lseq-car lseq-cdr
|
||||
lseq-first lseq-rest lseq-ref
|
||||
lseq-take lseq-drop
|
||||
;; The whole lazy sequence
|
||||
lseq-realize lseq->generator
|
||||
lseq-length
|
||||
lseq-append lseq-zip
|
||||
;; Mapping and filtering
|
||||
lseq-map lseq-for-each
|
||||
lseq-filter lseq-remove
|
||||
;; Searching
|
||||
lseq-find lseq-find-tail
|
||||
lseq-any lseq-every
|
||||
lseq-index
|
||||
lseq-take-while lseq-drop-while
|
||||
lseq-member lseq-memq lseq-memv))
|
||||
(define-library-alias (scheme lseq) (srfi 127))
|
||||
|
|
|
|||
|
|
@ -1,38 +1,2 @@
|
|||
|
||||
(define-library (scheme mapping)
|
||||
(import (srfi 146))
|
||||
(export mapping mapping-unfold
|
||||
mapping/ordered mapping-unfold/ordered
|
||||
mapping? mapping-contains? mapping-empty? mapping-disjoint?
|
||||
mapping-ref mapping-ref/default mapping-key-comparator
|
||||
mapping-adjoin mapping-adjoin!
|
||||
mapping-set mapping-set!
|
||||
mapping-replace mapping-replace!
|
||||
mapping-delete mapping-delete! mapping-delete-all mapping-delete-all!
|
||||
mapping-intern mapping-intern!
|
||||
mapping-update mapping-update! mapping-update/default mapping-update!/default
|
||||
mapping-pop mapping-pop!
|
||||
mapping-search mapping-search!
|
||||
mapping-size mapping-find mapping-count mapping-any? mapping-every?
|
||||
mapping-keys mapping-values mapping-entries
|
||||
mapping-map mapping-map->list mapping-for-each mapping-fold
|
||||
mapping-filter mapping-filter!
|
||||
mapping-remove mapping-remove!
|
||||
mapping-partition mapping-partition!
|
||||
mapping-copy mapping->alist alist->mapping alist->mapping!
|
||||
alist->mapping/ordered alist->mapping/ordered!
|
||||
mapping=? mapping<? mapping>? mapping<=? mapping>=?
|
||||
mapping-union mapping-intersection mapping-difference mapping-xor
|
||||
mapping-union! mapping-intersection! mapping-difference! mapping-xor!
|
||||
make-mapping-comparator
|
||||
mapping-comparator
|
||||
mapping-min-key mapping-max-key
|
||||
mapping-min-value mapping-max-value
|
||||
mapping-key-predecessor mapping-key-successor
|
||||
mapping-range= mapping-range< mapping-range> mapping-range<= mapping-range>=
|
||||
mapping-range=! mapping-range<! mapping-range>! mapping-range<=! mapping-range>=!
|
||||
mapping-split
|
||||
mapping-catenate mapping-catenate!
|
||||
mapping-map/monotone mapping-map/monotone!
|
||||
mapping-fold/reverse
|
||||
comparator?))
|
||||
(define-library-alias (scheme mapping) (srfi 146))
|
||||
|
|
|
|||
|
|
@ -1,9 +1,2 @@
|
|||
(define-library (scheme regex)
|
||||
(import (srfi 115))
|
||||
(export regexp regexp? valid-sre? rx regexp->sre char-set->sre
|
||||
regexp-matches regexp-matches? regexp-search
|
||||
regexp-replace regexp-replace-all regexp-match->list
|
||||
regexp-fold regexp-extract regexp-split regexp-partition
|
||||
regexp-match? regexp-match-count
|
||||
regexp-match-submatch
|
||||
regexp-match-submatch-start regexp-match-submatch-end))
|
||||
|
||||
(define-library-alias (scheme regex) (srfi 115))
|
||||
|
|
|
|||
|
|
@ -1,60 +1,2 @@
|
|||
|
||||
(define-library (scheme set)
|
||||
(import (srfi 113))
|
||||
(export
|
||||
set set-contains? set-unfold
|
||||
;; Predicates:
|
||||
set? set-empty? set-disjoint?
|
||||
;; Accessors:
|
||||
set-member set-element-comparator
|
||||
;; Updaters:
|
||||
set-adjoin set-adjoin! set-replace set-replace!
|
||||
set-delete set-delete! set-delete-all set-delete-all!
|
||||
set-search!
|
||||
;; The whole set:
|
||||
set-size set-find set-count set-any? set-every?
|
||||
;; Mapping and folding:
|
||||
set-map set-for-each set-fold set-filter set-filter!
|
||||
set-remove set-remove! set-partition set-partition!
|
||||
;; Copying and conversion:
|
||||
set-copy set->list list->set list->set!
|
||||
;; Subsets:
|
||||
set=? set<? set>? set<=? set>=?
|
||||
;; Set theory operations:
|
||||
set-union set-intersection set-difference set-xor
|
||||
set-union! set-intersection! set-difference! set-xor!
|
||||
;; Comparators:
|
||||
set-comparator
|
||||
|
||||
;; Constructors:
|
||||
bag bag-contains? bag-unfold
|
||||
;; Predicates:
|
||||
bag? bag-empty? bag-disjoint?
|
||||
;; Accessors:
|
||||
bag-member bag-element-comparator
|
||||
;; Updaters:
|
||||
bag-adjoin bag-adjoin! bag-replace bag-replace!
|
||||
bag-delete bag-delete! bag-delete-all bag-delete-all!
|
||||
bag-search!
|
||||
;; The whole bag:
|
||||
bag-size bag-find bag-count bag-any? bag-every?
|
||||
;; Mapping and folding:
|
||||
bag-map bag-for-each bag-fold bag-filter bag-filter!
|
||||
bag-remove bag-remove! bag-partition bag-partition!
|
||||
;; Copying and conversion:
|
||||
bag-copy bag->list list->bag list->bag!
|
||||
;; Subbags:
|
||||
bag=? bag<? bag>? bag<=? bag>=?
|
||||
;; Bag theory operations:
|
||||
bag-union bag-intersection bag-difference bag-xor
|
||||
bag-union! bag-intersection! bag-difference! bag-xor!
|
||||
;; Comparators:
|
||||
bag-comparator
|
||||
|
||||
;; Additional bag procedures:
|
||||
bag-unique-size
|
||||
bag-sum bag-sum! bag-product bag-product! bag-element-count
|
||||
bag-for-each-unique bag-fold-unique bag-increment! bag-decrement!
|
||||
bag->set set->bag set->bag!
|
||||
bag->alist alist->bag
|
||||
))
|
||||
(define-library-alias (scheme set) (srfi 113))
|
||||
|
|
|
|||
|
|
@ -1,25 +1,2 @@
|
|||
|
||||
(define-library (scheme show)
|
||||
(import (srfi 159))
|
||||
(export
|
||||
;; base
|
||||
show fn forked with with! each each-in-list call-with-output
|
||||
displayed written written-simply pretty pretty-simply
|
||||
numeric numeric/comma numeric/si numeric/fitted
|
||||
nothing nl fl space-to tab-to escaped maybe-escaped
|
||||
padded padded/right padded/both
|
||||
trimmed trimmed/right trimmed/both trimmed/lazy
|
||||
fitted fitted/right fitted/both
|
||||
joined joined/prefix joined/suffix joined/last joined/dot joined/range
|
||||
;; columnar
|
||||
call-with-output-generator call-with-output-generators
|
||||
string->line-generator
|
||||
tabular columnar show-columns wrapped wrapped/list wrapped/char
|
||||
justified line-numbers from-file
|
||||
;; unicode
|
||||
as-unicode unicode-terminal-width
|
||||
;; color
|
||||
as-red as-blue as-green as-cyan as-yellow
|
||||
as-magenta as-white as-black
|
||||
as-bold as-underline
|
||||
))
|
||||
(define-library-alias (scheme show) (srfi 166))
|
||||
|
|
|
|||
|
|
@ -1,19 +1,2 @@
|
|||
|
||||
(define-library (scheme sort)
|
||||
(import (srfi 132))
|
||||
(export
|
||||
list-sorted? vector-sorted?
|
||||
list-sort list-stable-sort
|
||||
list-sort! list-stable-sort!
|
||||
vector-sort vector-stable-sort
|
||||
vector-sort! vector-stable-sort!
|
||||
list-merge list-merge!
|
||||
vector-merge vector-merge!
|
||||
list-delete-neighbor-dups
|
||||
list-delete-neighbor-dups!
|
||||
vector-delete-neighbor-dups
|
||||
vector-delete-neighbor-dups!
|
||||
vector-find-median
|
||||
vector-find-median!
|
||||
vector-select!
|
||||
vector-separate!))
|
||||
(define-library-alias (scheme sort) (srfi 132))
|
||||
|
|
|
|||
|
|
@ -1,12 +1,2 @@
|
|||
|
||||
(define-library (scheme stream)
|
||||
(import (srfi 41))
|
||||
(export
|
||||
stream-null stream-cons stream? stream-null? stream-pair?
|
||||
stream-car stream-cdr stream-lambda
|
||||
define-stream list->stream port->stream stream stream->list
|
||||
stream-append stream-concat stream-constant stream-drop
|
||||
stream-drop-while stream-filter stream-fold stream-for-each stream-from
|
||||
stream-iterate stream-length stream-let stream-map stream-match _
|
||||
stream-of stream-range stream-ref stream-reverse stream-scan stream-take
|
||||
stream-take-while stream-unfold stream-unfolds stream-zip))
|
||||
(define-library-alias (scheme stream) (srfi 41))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme text)
|
||||
(import (srfi 135))
|
||||
(export
|
||||
;; Predicates
|
||||
text? textual?
|
||||
textual-null?
|
||||
textual-every textual-any
|
||||
;; Constructors
|
||||
make-text text
|
||||
text-tabulate
|
||||
text-unfold text-unfold-right
|
||||
;; Conversion
|
||||
textual->text
|
||||
textual->string textual->vector textual->list
|
||||
string->text vector->text list->text reverse-list->text
|
||||
textual->utf8 textual->utf16be
|
||||
textual->utf16 textual->utf16le
|
||||
utf8->text utf16be->text
|
||||
utf16->text utf16le->text
|
||||
;; Selection
|
||||
text-length textual-length
|
||||
text-ref textual-ref
|
||||
subtext subtextual
|
||||
textual-copy
|
||||
textual-take textual-take-right
|
||||
textual-drop textual-drop-right
|
||||
textual-pad textual-pad-right
|
||||
textual-trim textual-trim-right textual-trim-both
|
||||
;; Replacement
|
||||
textual-replace
|
||||
;; Comparison
|
||||
textual=? textual-ci=?
|
||||
textual<? textual-ci<?
|
||||
textual>? textual-ci>?
|
||||
textual<=? textual-ci<=?
|
||||
textual>=? textual-ci>=?
|
||||
;; Prefixes & suffixes
|
||||
textual-prefix-length textual-suffix-length
|
||||
textual-prefix? textual-suffix?
|
||||
;; Searching
|
||||
textual-index textual-index-right
|
||||
textual-skip textual-skip-right
|
||||
textual-contains textual-contains-right
|
||||
;; Case conversion
|
||||
textual-upcase textual-downcase
|
||||
textual-foldcase textual-titlecase
|
||||
;; Concatenation
|
||||
textual-append textual-concatenate textual-concatenate-reverse
|
||||
textual-join
|
||||
;; Fold & map & friends
|
||||
textual-fold textual-fold-right
|
||||
textual-map textual-for-each
|
||||
textual-map-index textual-for-each-index
|
||||
textual-count
|
||||
textual-filter textual-remove
|
||||
;; Replication & splitting
|
||||
textual-replicate textual-split
|
||||
))
|
||||
(define-library-alias (scheme text) (srfi 135))
|
||||
|
|
|
|||
|
|
@ -1,36 +1,2 @@
|
|||
|
||||
(define-library (scheme vector)
|
||||
(import (srfi 133))
|
||||
(export
|
||||
;; Constructors
|
||||
make-vector vector
|
||||
vector-unfold vector-unfold-right
|
||||
vector-copy vector-reverse-copy
|
||||
vector-append vector-concatenate vector-append-subvectors
|
||||
;; Predicates
|
||||
vector?
|
||||
vector-empty?
|
||||
vector=
|
||||
;; Selectors
|
||||
vector-ref
|
||||
vector-length
|
||||
;; Iteration
|
||||
vector-fold vector-fold-right
|
||||
vector-map vector-map!
|
||||
vector-for-each vector-count
|
||||
vector-cumulate
|
||||
;; Searching
|
||||
vector-index vector-index-right
|
||||
vector-skip vector-skip-right
|
||||
vector-binary-search
|
||||
vector-any vector-every
|
||||
vector-partition
|
||||
;; Mutators
|
||||
vector-set! vector-swap!
|
||||
vector-fill! vector-reverse!
|
||||
vector-copy! vector-reverse-copy!
|
||||
vector-unfold! vector-unfold-right!
|
||||
;; Conversion
|
||||
vector->list reverse-vector->list
|
||||
list->vector reverse-list->vector
|
||||
vector->string string->vector))
|
||||
(define-library-alias (scheme vector) (srfi 133))
|
||||
|
|
|
|||
|
|
@ -1,56 +1,2 @@
|
|||
|
||||
(define-library (scheme vector base)
|
||||
(import (srfi 160 base))
|
||||
(export
|
||||
;;
|
||||
make-u1vector u1vector u1? u1vector?
|
||||
u1vector-ref u1vector-set! u1vector-length
|
||||
u1vector->list list->u1vector
|
||||
;;
|
||||
make-u8vector u8vector u8? u8vector?
|
||||
u8vector-ref u8vector-set! u8vector-length
|
||||
u8vector->list list->u8vector
|
||||
;;
|
||||
make-s8vector s8vector s8? s8vector?
|
||||
s8vector-ref s8vector-set! s8vector-length
|
||||
s8vector->list list->s8vector
|
||||
;;
|
||||
make-u16vector u16vector u16? u16vector?
|
||||
u16vector-ref u16vector-set! u16vector-length
|
||||
u16vector->list list->u16vector
|
||||
;;
|
||||
make-s16vector s16vector s16? s16vector?
|
||||
s16vector-ref s16vector-set! s16vector-length
|
||||
s16vector->list list->s16vector
|
||||
;;
|
||||
make-u32vector u32vector u32? u32vector?
|
||||
u32vector-ref u32vector-set! u32vector-length
|
||||
u32vector->list list->u32vector
|
||||
;;
|
||||
make-s32vector s32vector s32? s32vector?
|
||||
s32vector-ref s32vector-set! s32vector-length
|
||||
s32vector->list list->s32vector
|
||||
;;
|
||||
make-u64vector u64vector u64? u64vector?
|
||||
u64vector-ref u64vector-set! u64vector-length
|
||||
u64vector->list list->u64vector
|
||||
;;
|
||||
make-s64vector s64vector s64? s64vector?
|
||||
s64vector-ref s64vector-set! s64vector-length
|
||||
s64vector->list list->s64vector
|
||||
;;
|
||||
make-f32vector f32vector f32? f32vector?
|
||||
f32vector-ref f32vector-set! f32vector-length
|
||||
f32vector->list list->f32vector
|
||||
;;
|
||||
make-f64vector f64vector f64? f64vector?
|
||||
f64vector-ref f64vector-set! f64vector-length
|
||||
f64vector->list list->f64vector
|
||||
;;
|
||||
make-c64vector c64vector c64? c64vector?
|
||||
c64vector-ref c64vector-set! c64vector-length
|
||||
c64vector->list list->c64vector
|
||||
;;
|
||||
make-c128vector c128vector c128? c128vector?
|
||||
c128vector-ref c128vector-set! c128vector-length
|
||||
c128vector->list list->c128vector))
|
||||
(define-library-alias (scheme vector base) (srfi 160 base))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector c128)
|
||||
(import (srfi 160 c128))
|
||||
(export
|
||||
make-c128vector
|
||||
c128?
|
||||
c128vector?
|
||||
c128vector-ref
|
||||
c128vector-set!
|
||||
c128vector-length
|
||||
c128vector
|
||||
c128vector-unfold
|
||||
c128vector-unfold-right
|
||||
c128vector-copy
|
||||
c128vector-reverse-copy
|
||||
c128vector-append
|
||||
c128vector-concatenate
|
||||
c128vector-append-subvectors
|
||||
c128vector-empty?
|
||||
c128vector=
|
||||
c128vector-take
|
||||
c128vector-take-right
|
||||
c128vector-drop
|
||||
c128vector-drop-right
|
||||
c128vector-segment
|
||||
c128vector-fold
|
||||
c128vector-fold-right
|
||||
c128vector-map
|
||||
c128vector-map!
|
||||
c128vector-for-each
|
||||
c128vector-count
|
||||
c128vector-cumulate
|
||||
c128vector-take-while
|
||||
c128vector-take-while-right
|
||||
c128vector-drop-while
|
||||
c128vector-drop-while-right
|
||||
c128vector-index
|
||||
c128vector-index-right
|
||||
c128vector-skip
|
||||
c128vector-skip-right
|
||||
c128vector-binary-search
|
||||
c128vector-any
|
||||
c128vector-every
|
||||
c128vector-partition
|
||||
c128vector-filter
|
||||
c128vector-remove
|
||||
c128vector-swap!
|
||||
c128vector-fill!
|
||||
c128vector-reverse!
|
||||
c128vector-copy!
|
||||
c128vector-reverse-copy!
|
||||
c128vector->list
|
||||
reverse-c128vector->list
|
||||
list->c128vector
|
||||
reverse-list->c128vector
|
||||
c128vector->vector
|
||||
vector->c128vector
|
||||
make-c128vector-generator
|
||||
write-c128vector))
|
||||
(define-library-alias (scheme vector c128) (srfi 160 c128))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector c64)
|
||||
(import (srfi 160 c64))
|
||||
(export
|
||||
make-c64vector
|
||||
c64?
|
||||
c64vector?
|
||||
c64vector-ref
|
||||
c64vector-set!
|
||||
c64vector-length
|
||||
c64vector
|
||||
c64vector-unfold
|
||||
c64vector-unfold-right
|
||||
c64vector-copy
|
||||
c64vector-reverse-copy
|
||||
c64vector-append
|
||||
c64vector-concatenate
|
||||
c64vector-append-subvectors
|
||||
c64vector-empty?
|
||||
c64vector=
|
||||
c64vector-take
|
||||
c64vector-take-right
|
||||
c64vector-drop
|
||||
c64vector-drop-right
|
||||
c64vector-segment
|
||||
c64vector-fold
|
||||
c64vector-fold-right
|
||||
c64vector-map
|
||||
c64vector-map!
|
||||
c64vector-for-each
|
||||
c64vector-count
|
||||
c64vector-cumulate
|
||||
c64vector-take-while
|
||||
c64vector-take-while-right
|
||||
c64vector-drop-while
|
||||
c64vector-drop-while-right
|
||||
c64vector-index
|
||||
c64vector-index-right
|
||||
c64vector-skip
|
||||
c64vector-skip-right
|
||||
c64vector-binary-search
|
||||
c64vector-any
|
||||
c64vector-every
|
||||
c64vector-partition
|
||||
c64vector-filter
|
||||
c64vector-remove
|
||||
c64vector-swap!
|
||||
c64vector-fill!
|
||||
c64vector-reverse!
|
||||
c64vector-copy!
|
||||
c64vector-reverse-copy!
|
||||
c64vector->list
|
||||
reverse-c64vector->list
|
||||
list->c64vector
|
||||
reverse-list->c64vector
|
||||
c64vector->vector
|
||||
vector->c64vector
|
||||
make-c64vector-generator
|
||||
write-c64vector))
|
||||
(define-library-alias (scheme vector c64) (srfi 160 c64))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector f32)
|
||||
(import (srfi 160 f32))
|
||||
(export
|
||||
make-f32vector
|
||||
f32?
|
||||
f32vector?
|
||||
f32vector-ref
|
||||
f32vector-set!
|
||||
f32vector-length
|
||||
f32vector
|
||||
f32vector-unfold
|
||||
f32vector-unfold-right
|
||||
f32vector-copy
|
||||
f32vector-reverse-copy
|
||||
f32vector-append
|
||||
f32vector-concatenate
|
||||
f32vector-append-subvectors
|
||||
f32vector-empty?
|
||||
f32vector=
|
||||
f32vector-take
|
||||
f32vector-take-right
|
||||
f32vector-drop
|
||||
f32vector-drop-right
|
||||
f32vector-segment
|
||||
f32vector-fold
|
||||
f32vector-fold-right
|
||||
f32vector-map
|
||||
f32vector-map!
|
||||
f32vector-for-each
|
||||
f32vector-count
|
||||
f32vector-cumulate
|
||||
f32vector-take-while
|
||||
f32vector-take-while-right
|
||||
f32vector-drop-while
|
||||
f32vector-drop-while-right
|
||||
f32vector-index
|
||||
f32vector-index-right
|
||||
f32vector-skip
|
||||
f32vector-skip-right
|
||||
f32vector-binary-search
|
||||
f32vector-any
|
||||
f32vector-every
|
||||
f32vector-partition
|
||||
f32vector-filter
|
||||
f32vector-remove
|
||||
f32vector-swap!
|
||||
f32vector-fill!
|
||||
f32vector-reverse!
|
||||
f32vector-copy!
|
||||
f32vector-reverse-copy!
|
||||
f32vector->list
|
||||
reverse-f32vector->list
|
||||
list->f32vector
|
||||
reverse-list->f32vector
|
||||
f32vector->vector
|
||||
vector->f32vector
|
||||
make-f32vector-generator
|
||||
write-f32vector))
|
||||
(define-library-alias (scheme vector f32) (srfi 160 f32))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector f64)
|
||||
(import (srfi 160 f64))
|
||||
(export
|
||||
make-f64vector
|
||||
f64?
|
||||
f64vector?
|
||||
f64vector-ref
|
||||
f64vector-set!
|
||||
f64vector-length
|
||||
f64vector
|
||||
f64vector-unfold
|
||||
f64vector-unfold-right
|
||||
f64vector-copy
|
||||
f64vector-reverse-copy
|
||||
f64vector-append
|
||||
f64vector-concatenate
|
||||
f64vector-append-subvectors
|
||||
f64vector-empty?
|
||||
f64vector=
|
||||
f64vector-take
|
||||
f64vector-take-right
|
||||
f64vector-drop
|
||||
f64vector-drop-right
|
||||
f64vector-segment
|
||||
f64vector-fold
|
||||
f64vector-fold-right
|
||||
f64vector-map
|
||||
f64vector-map!
|
||||
f64vector-for-each
|
||||
f64vector-count
|
||||
f64vector-cumulate
|
||||
f64vector-take-while
|
||||
f64vector-take-while-right
|
||||
f64vector-drop-while
|
||||
f64vector-drop-while-right
|
||||
f64vector-index
|
||||
f64vector-index-right
|
||||
f64vector-skip
|
||||
f64vector-skip-right
|
||||
f64vector-binary-search
|
||||
f64vector-any
|
||||
f64vector-every
|
||||
f64vector-partition
|
||||
f64vector-filter
|
||||
f64vector-remove
|
||||
f64vector-swap!
|
||||
f64vector-fill!
|
||||
f64vector-reverse!
|
||||
f64vector-copy!
|
||||
f64vector-reverse-copy!
|
||||
f64vector->list
|
||||
reverse-f64vector->list
|
||||
list->f64vector
|
||||
reverse-list->f64vector
|
||||
f64vector->vector
|
||||
vector->f64vector
|
||||
make-f64vector-generator
|
||||
write-f64vector))
|
||||
(define-library-alias (scheme vector f64) (srfi 160 f64))
|
||||
|
|
|
|||
|
|
@ -1,60 +1,2 @@
|
|||
|
||||
(define-library (scheme vector s16)
|
||||
(import (srfi 160 s16))
|
||||
(export
|
||||
make-s16vector
|
||||
s16?
|
||||
s16vector?
|
||||
s16vector-ref
|
||||
s16vector-set!
|
||||
s16vector-length
|
||||
s16vector
|
||||
s16vector-unfold
|
||||
s16vector-unfold-right
|
||||
s16vector-copy
|
||||
s16vector-reverse-copy
|
||||
s16vector-append
|
||||
s16vector-concatenate
|
||||
s16vector-append-subvectors
|
||||
s16vector-empty?
|
||||
s16vector=
|
||||
s16vector-take
|
||||
s16vector-take-right
|
||||
s16vector-drop
|
||||
s16vector-drop-right
|
||||
s16vector-segment
|
||||
s16vector-fold
|
||||
s16vector-fold-right
|
||||
s16vector-map
|
||||
s16vector-map!
|
||||
s16vector-for-each
|
||||
s16vector-count
|
||||
s16vector-cumulate
|
||||
s16vector-take-while
|
||||
s16vector-take-while-right
|
||||
s16vector-drop-while
|
||||
s16vector-drop-while-right
|
||||
s16vector-index
|
||||
s16vector-index-right
|
||||
s16vector-skip
|
||||
s16vector-skip-right
|
||||
s16vector-binary-search
|
||||
s16vector-any
|
||||
s16vector-every
|
||||
s16vector-partition
|
||||
s16vector-filter
|
||||
s16vector-remove
|
||||
s16vector-swap!
|
||||
s16vector-fill!
|
||||
s16vector-reverse!
|
||||
s16vector-copy!
|
||||
s16vector-reverse-copy!
|
||||
s16vector->list
|
||||
reverse-s16vector->list
|
||||
list->s16vector
|
||||
reverse-list->s16vector
|
||||
s16vector->vector
|
||||
vector->s16vector
|
||||
make-s16vector-generator
|
||||
write-s16vector))
|
||||
|
||||
(define-library-alias (scheme vector s16) (srfi 160 s16))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector s32)
|
||||
(import (srfi 160 s32))
|
||||
(export
|
||||
make-s32vector
|
||||
s32?
|
||||
s32vector?
|
||||
s32vector-ref
|
||||
s32vector-set!
|
||||
s32vector-length
|
||||
s32vector
|
||||
s32vector-unfold
|
||||
s32vector-unfold-right
|
||||
s32vector-copy
|
||||
s32vector-reverse-copy
|
||||
s32vector-append
|
||||
s32vector-concatenate
|
||||
s32vector-append-subvectors
|
||||
s32vector-empty?
|
||||
s32vector=
|
||||
s32vector-take
|
||||
s32vector-take-right
|
||||
s32vector-drop
|
||||
s32vector-drop-right
|
||||
s32vector-segment
|
||||
s32vector-fold
|
||||
s32vector-fold-right
|
||||
s32vector-map
|
||||
s32vector-map!
|
||||
s32vector-for-each
|
||||
s32vector-count
|
||||
s32vector-cumulate
|
||||
s32vector-take-while
|
||||
s32vector-take-while-right
|
||||
s32vector-drop-while
|
||||
s32vector-drop-while-right
|
||||
s32vector-index
|
||||
s32vector-index-right
|
||||
s32vector-skip
|
||||
s32vector-skip-right
|
||||
s32vector-binary-search
|
||||
s32vector-any
|
||||
s32vector-every
|
||||
s32vector-partition
|
||||
s32vector-filter
|
||||
s32vector-remove
|
||||
s32vector-swap!
|
||||
s32vector-fill!
|
||||
s32vector-reverse!
|
||||
s32vector-copy!
|
||||
s32vector-reverse-copy!
|
||||
s32vector->list
|
||||
reverse-s32vector->list
|
||||
list->s32vector
|
||||
reverse-list->s32vector
|
||||
s32vector->vector
|
||||
vector->s32vector
|
||||
make-s32vector-generator
|
||||
write-s32vector))
|
||||
(define-library-alias (scheme vector s32) (srfi 160 s32))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector s64)
|
||||
(import (srfi 160 s64))
|
||||
(export
|
||||
make-s64vector
|
||||
s64?
|
||||
s64vector?
|
||||
s64vector-ref
|
||||
s64vector-set!
|
||||
s64vector-length
|
||||
s64vector
|
||||
s64vector-unfold
|
||||
s64vector-unfold-right
|
||||
s64vector-copy
|
||||
s64vector-reverse-copy
|
||||
s64vector-append
|
||||
s64vector-concatenate
|
||||
s64vector-append-subvectors
|
||||
s64vector-empty?
|
||||
s64vector=
|
||||
s64vector-take
|
||||
s64vector-take-right
|
||||
s64vector-drop
|
||||
s64vector-drop-right
|
||||
s64vector-segment
|
||||
s64vector-fold
|
||||
s64vector-fold-right
|
||||
s64vector-map
|
||||
s64vector-map!
|
||||
s64vector-for-each
|
||||
s64vector-count
|
||||
s64vector-cumulate
|
||||
s64vector-take-while
|
||||
s64vector-take-while-right
|
||||
s64vector-drop-while
|
||||
s64vector-drop-while-right
|
||||
s64vector-index
|
||||
s64vector-index-right
|
||||
s64vector-skip
|
||||
s64vector-skip-right
|
||||
s64vector-binary-search
|
||||
s64vector-any
|
||||
s64vector-every
|
||||
s64vector-partition
|
||||
s64vector-filter
|
||||
s64vector-remove
|
||||
s64vector-swap!
|
||||
s64vector-fill!
|
||||
s64vector-reverse!
|
||||
s64vector-copy!
|
||||
s64vector-reverse-copy!
|
||||
s64vector->list
|
||||
reverse-s64vector->list
|
||||
list->s64vector
|
||||
reverse-list->s64vector
|
||||
s64vector->vector
|
||||
vector->s64vector
|
||||
make-s64vector-generator
|
||||
write-s64vector))
|
||||
(define-library-alias (scheme vector s64) (srfi 160 s64))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector s8)
|
||||
(import (srfi 160 s8))
|
||||
(export
|
||||
make-s8vector
|
||||
s8?
|
||||
s8vector?
|
||||
s8vector-ref
|
||||
s8vector-set!
|
||||
s8vector-length
|
||||
s8vector
|
||||
s8vector-unfold
|
||||
s8vector-unfold-right
|
||||
s8vector-copy
|
||||
s8vector-reverse-copy
|
||||
s8vector-append
|
||||
s8vector-concatenate
|
||||
s8vector-append-subvectors
|
||||
s8vector-empty?
|
||||
s8vector=
|
||||
s8vector-take
|
||||
s8vector-take-right
|
||||
s8vector-drop
|
||||
s8vector-drop-right
|
||||
s8vector-segment
|
||||
s8vector-fold
|
||||
s8vector-fold-right
|
||||
s8vector-map
|
||||
s8vector-map!
|
||||
s8vector-for-each
|
||||
s8vector-count
|
||||
s8vector-cumulate
|
||||
s8vector-take-while
|
||||
s8vector-take-while-right
|
||||
s8vector-drop-while
|
||||
s8vector-drop-while-right
|
||||
s8vector-index
|
||||
s8vector-index-right
|
||||
s8vector-skip
|
||||
s8vector-skip-right
|
||||
s8vector-binary-search
|
||||
s8vector-any
|
||||
s8vector-every
|
||||
s8vector-partition
|
||||
s8vector-filter
|
||||
s8vector-remove
|
||||
s8vector-swap!
|
||||
s8vector-fill!
|
||||
s8vector-reverse!
|
||||
s8vector-copy!
|
||||
s8vector-reverse-copy!
|
||||
s8vector->list
|
||||
reverse-s8vector->list
|
||||
list->s8vector
|
||||
reverse-list->s8vector
|
||||
s8vector->vector
|
||||
vector->s8vector
|
||||
make-s8vector-generator
|
||||
write-s8vector))
|
||||
(define-library-alias (scheme vector s8) (srfi 160 s8))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector u16)
|
||||
(import (srfi 160 u16))
|
||||
(export
|
||||
make-u16vector
|
||||
u16?
|
||||
u16vector?
|
||||
u16vector-ref
|
||||
u16vector-set!
|
||||
u16vector-length
|
||||
u16vector
|
||||
u16vector-unfold
|
||||
u16vector-unfold-right
|
||||
u16vector-copy
|
||||
u16vector-reverse-copy
|
||||
u16vector-append
|
||||
u16vector-concatenate
|
||||
u16vector-append-subvectors
|
||||
u16vector-empty?
|
||||
u16vector=
|
||||
u16vector-take
|
||||
u16vector-take-right
|
||||
u16vector-drop
|
||||
u16vector-drop-right
|
||||
u16vector-segment
|
||||
u16vector-fold
|
||||
u16vector-fold-right
|
||||
u16vector-map
|
||||
u16vector-map!
|
||||
u16vector-for-each
|
||||
u16vector-count
|
||||
u16vector-cumulate
|
||||
u16vector-take-while
|
||||
u16vector-take-while-right
|
||||
u16vector-drop-while
|
||||
u16vector-drop-while-right
|
||||
u16vector-index
|
||||
u16vector-index-right
|
||||
u16vector-skip
|
||||
u16vector-skip-right
|
||||
u16vector-binary-search
|
||||
u16vector-any
|
||||
u16vector-every
|
||||
u16vector-partition
|
||||
u16vector-filter
|
||||
u16vector-remove
|
||||
u16vector-swap!
|
||||
u16vector-fill!
|
||||
u16vector-reverse!
|
||||
u16vector-copy!
|
||||
u16vector-reverse-copy!
|
||||
u16vector->list
|
||||
reverse-u16vector->list
|
||||
list->u16vector
|
||||
reverse-list->u16vector
|
||||
u16vector->vector
|
||||
vector->u16vector
|
||||
make-u16vector-generator
|
||||
write-u16vector))
|
||||
(define-library-alias (scheme vector u16) (srfi 160 u16))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector u32)
|
||||
(import (srfi 160 u32))
|
||||
(export
|
||||
make-u32vector
|
||||
u32?
|
||||
u32vector?
|
||||
u32vector-ref
|
||||
u32vector-set!
|
||||
u32vector-length
|
||||
u32vector
|
||||
u32vector-unfold
|
||||
u32vector-unfold-right
|
||||
u32vector-copy
|
||||
u32vector-reverse-copy
|
||||
u32vector-append
|
||||
u32vector-concatenate
|
||||
u32vector-append-subvectors
|
||||
u32vector-empty?
|
||||
u32vector=
|
||||
u32vector-take
|
||||
u32vector-take-right
|
||||
u32vector-drop
|
||||
u32vector-drop-right
|
||||
u32vector-segment
|
||||
u32vector-fold
|
||||
u32vector-fold-right
|
||||
u32vector-map
|
||||
u32vector-map!
|
||||
u32vector-for-each
|
||||
u32vector-count
|
||||
u32vector-cumulate
|
||||
u32vector-take-while
|
||||
u32vector-take-while-right
|
||||
u32vector-drop-while
|
||||
u32vector-drop-while-right
|
||||
u32vector-index
|
||||
u32vector-index-right
|
||||
u32vector-skip
|
||||
u32vector-skip-right
|
||||
u32vector-binary-search
|
||||
u32vector-any
|
||||
u32vector-every
|
||||
u32vector-partition
|
||||
u32vector-filter
|
||||
u32vector-remove
|
||||
u32vector-swap!
|
||||
u32vector-fill!
|
||||
u32vector-reverse!
|
||||
u32vector-copy!
|
||||
u32vector-reverse-copy!
|
||||
u32vector->list
|
||||
reverse-u32vector->list
|
||||
list->u32vector
|
||||
reverse-list->u32vector
|
||||
u32vector->vector
|
||||
vector->u32vector
|
||||
make-u32vector-generator
|
||||
write-u32vector))
|
||||
(define-library-alias (scheme vector u32) (srfi 160 u32))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector u64)
|
||||
(import (srfi 160 u64))
|
||||
(export
|
||||
make-u64vector
|
||||
u64?
|
||||
u64vector?
|
||||
u64vector-ref
|
||||
u64vector-set!
|
||||
u64vector-length
|
||||
u64vector
|
||||
u64vector-unfold
|
||||
u64vector-unfold-right
|
||||
u64vector-copy
|
||||
u64vector-reverse-copy
|
||||
u64vector-append
|
||||
u64vector-concatenate
|
||||
u64vector-append-subvectors
|
||||
u64vector-empty?
|
||||
u64vector=
|
||||
u64vector-take
|
||||
u64vector-take-right
|
||||
u64vector-drop
|
||||
u64vector-drop-right
|
||||
u64vector-segment
|
||||
u64vector-fold
|
||||
u64vector-fold-right
|
||||
u64vector-map
|
||||
u64vector-map!
|
||||
u64vector-for-each
|
||||
u64vector-count
|
||||
u64vector-cumulate
|
||||
u64vector-take-while
|
||||
u64vector-take-while-right
|
||||
u64vector-drop-while
|
||||
u64vector-drop-while-right
|
||||
u64vector-index
|
||||
u64vector-index-right
|
||||
u64vector-skip
|
||||
u64vector-skip-right
|
||||
u64vector-binary-search
|
||||
u64vector-any
|
||||
u64vector-every
|
||||
u64vector-partition
|
||||
u64vector-filter
|
||||
u64vector-remove
|
||||
u64vector-swap!
|
||||
u64vector-fill!
|
||||
u64vector-reverse!
|
||||
u64vector-copy!
|
||||
u64vector-reverse-copy!
|
||||
u64vector->list
|
||||
reverse-u64vector->list
|
||||
list->u64vector
|
||||
reverse-list->u64vector
|
||||
u64vector->vector
|
||||
vector->u64vector
|
||||
make-u64vector-generator
|
||||
write-u64vector))
|
||||
(define-library-alias (scheme vector u64) (srfi 160 u64))
|
||||
|
|
|
|||
|
|
@ -1,59 +1,2 @@
|
|||
|
||||
(define-library (scheme vector u8)
|
||||
(import (srfi 160 u8))
|
||||
(export
|
||||
make-u8vector
|
||||
u8?
|
||||
u8vector?
|
||||
u8vector-ref
|
||||
u8vector-set!
|
||||
u8vector-length
|
||||
u8vector
|
||||
u8vector-unfold
|
||||
u8vector-unfold-right
|
||||
u8vector-copy
|
||||
u8vector-reverse-copy
|
||||
u8vector-append
|
||||
u8vector-concatenate
|
||||
u8vector-append-subvectors
|
||||
u8vector-empty?
|
||||
u8vector=
|
||||
u8vector-take
|
||||
u8vector-take-right
|
||||
u8vector-drop
|
||||
u8vector-drop-right
|
||||
u8vector-segment
|
||||
u8vector-fold
|
||||
u8vector-fold-right
|
||||
u8vector-map
|
||||
u8vector-map!
|
||||
u8vector-for-each
|
||||
u8vector-count
|
||||
u8vector-cumulate
|
||||
u8vector-take-while
|
||||
u8vector-take-while-right
|
||||
u8vector-drop-while
|
||||
u8vector-drop-while-right
|
||||
u8vector-index
|
||||
u8vector-index-right
|
||||
u8vector-skip
|
||||
u8vector-skip-right
|
||||
u8vector-binary-search
|
||||
u8vector-any
|
||||
u8vector-every
|
||||
u8vector-partition
|
||||
u8vector-filter
|
||||
u8vector-remove
|
||||
u8vector-swap!
|
||||
u8vector-fill!
|
||||
u8vector-reverse!
|
||||
u8vector-copy!
|
||||
u8vector-reverse-copy!
|
||||
u8vector->list
|
||||
reverse-u8vector->list
|
||||
list->u8vector
|
||||
reverse-list->u8vector
|
||||
u8vector->vector
|
||||
vector->u8vector
|
||||
make-u8vector-generator
|
||||
write-u8vector))
|
||||
(define-library-alias (scheme vector u8) (srfi 160 u8))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue