From 0957b54f5169b7f949db6c9dd7aadc2f21a6a6c7 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 26 May 2020 17:18:50 +0900 Subject: [PATCH] adding tangerine names for srfi 160 libs --- lib/scheme/vector/base.sld | 56 +++++++++++++++++++++++++++++++++++ lib/scheme/vector/c128.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/c64.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/f32.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/f64.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/s16.sld | 60 ++++++++++++++++++++++++++++++++++++++ lib/scheme/vector/s32.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/s64.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/s8.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/u16.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/u32.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/u64.sld | 59 +++++++++++++++++++++++++++++++++++++ lib/scheme/vector/u8.sld | 59 +++++++++++++++++++++++++++++++++++++ 13 files changed, 765 insertions(+) create mode 100644 lib/scheme/vector/base.sld create mode 100644 lib/scheme/vector/c128.sld create mode 100644 lib/scheme/vector/c64.sld create mode 100644 lib/scheme/vector/f32.sld create mode 100644 lib/scheme/vector/f64.sld create mode 100644 lib/scheme/vector/s16.sld create mode 100644 lib/scheme/vector/s32.sld create mode 100644 lib/scheme/vector/s64.sld create mode 100644 lib/scheme/vector/s8.sld create mode 100644 lib/scheme/vector/u16.sld create mode 100644 lib/scheme/vector/u32.sld create mode 100644 lib/scheme/vector/u64.sld create mode 100644 lib/scheme/vector/u8.sld diff --git a/lib/scheme/vector/base.sld b/lib/scheme/vector/base.sld new file mode 100644 index 00000000..c10bee8b --- /dev/null +++ b/lib/scheme/vector/base.sld @@ -0,0 +1,56 @@ + +(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)) diff --git a/lib/scheme/vector/c128.sld b/lib/scheme/vector/c128.sld new file mode 100644 index 00000000..4bf6febb --- /dev/null +++ b/lib/scheme/vector/c128.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/c64.sld b/lib/scheme/vector/c64.sld new file mode 100644 index 00000000..e939fa7f --- /dev/null +++ b/lib/scheme/vector/c64.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/f32.sld b/lib/scheme/vector/f32.sld new file mode 100644 index 00000000..48667715 --- /dev/null +++ b/lib/scheme/vector/f32.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/f64.sld b/lib/scheme/vector/f64.sld new file mode 100644 index 00000000..a42ad149 --- /dev/null +++ b/lib/scheme/vector/f64.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/s16.sld b/lib/scheme/vector/s16.sld new file mode 100644 index 00000000..f2fd293f --- /dev/null +++ b/lib/scheme/vector/s16.sld @@ -0,0 +1,60 @@ + +(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)) + diff --git a/lib/scheme/vector/s32.sld b/lib/scheme/vector/s32.sld new file mode 100644 index 00000000..397d209e --- /dev/null +++ b/lib/scheme/vector/s32.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/s64.sld b/lib/scheme/vector/s64.sld new file mode 100644 index 00000000..beed5cdf --- /dev/null +++ b/lib/scheme/vector/s64.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/s8.sld b/lib/scheme/vector/s8.sld new file mode 100644 index 00000000..e6783eb4 --- /dev/null +++ b/lib/scheme/vector/s8.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/u16.sld b/lib/scheme/vector/u16.sld new file mode 100644 index 00000000..41f2e5b5 --- /dev/null +++ b/lib/scheme/vector/u16.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/u32.sld b/lib/scheme/vector/u32.sld new file mode 100644 index 00000000..6fcd36db --- /dev/null +++ b/lib/scheme/vector/u32.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/u64.sld b/lib/scheme/vector/u64.sld new file mode 100644 index 00000000..19ac81b9 --- /dev/null +++ b/lib/scheme/vector/u64.sld @@ -0,0 +1,59 @@ + +(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)) diff --git a/lib/scheme/vector/u8.sld b/lib/scheme/vector/u8.sld new file mode 100644 index 00000000..7a15c964 --- /dev/null +++ b/lib/scheme/vector/u8.sld @@ -0,0 +1,59 @@ + +(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))