[Guile-commits] GNU Guile branch, wip-r6rs-libraries, updated. release_1-9-8-100-ge2861a5

[Julian Graham]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e2861a55896fba3e06e86763eec850bad82b6584

The branch, wip-r6rs-libraries has been updated
       via  e2861a55896fba3e06e86763eec850bad82b6584 (commit)
      from  80c3b20dad2f5129021b35d81ae37098a74f4ab3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e2861a55896fba3e06e86763eec850bad82b6584
Author: Julian Graham <address@hidden>
Date:   Fri Apr 9 00:23:28 2010 -0400

    Implementation for R6RS (rnrs) composite library.  (Can't be loaded yet
    because of conflict between `syntax-case' transformer binding and
    `(rnrs syntax-case)' hierarchical namespace module binding.)
    
    * module/6/rnrs.scm: New file.
    * module/Makefile.am: Add 6/rnrs.scm to RNRS_SOURCES.

-----------------------------------------------------------------------

Summary of changes:
 module/6/rnrs.scm  |  239 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 module/Makefile.am |    1 +
 2 files changed, 240 insertions(+), 0 deletions(-)
 create mode 100644 module/6/rnrs.scm

diff --git a/module/6/rnrs.scm b/module/6/rnrs.scm
new file mode 100644
index 0000000..d8d7567
--- /dev/null
+++ b/module/6/rnrs.scm
@@ -0,0 +1,239 @@
+;;; rnrs.scm --- The R6RS composite library
+
+;;      Copyright (C) 2010 Free Software Foundation, Inc.
+;;
+;; This library is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU Lesser General Public
+;; License as published by the Free Software Foundation; either
+;; version 3 of the License, or (at your option) any later version.
+;; 
+;; This library is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; Lesser General Public License for more details.
+;; 
+;; You should have received a copy of the GNU Lesser General Public
+;; License along with this library; if not, write to the Free Software
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+
+(library (rnrs (6))
+  (export ;; (rnrs arithmetic bitwise)
+
+          bitwise-not bitwise-and bitwise-ior bitwise-xor bitwise-if 
+         bitwise-bit-count bitwise-length bitwise-first-bit-set 
+         bitwise-bit-set? bitwise-copy-bit bitwise-bit-field 
+         bitwise-copy-bit-field bitwise-arithmetic-shift 
+         bitwise-arithmetic-shift-left bitwise-arithmetic-shift-right
+         bitwise-rotate-bit-field bitwise-reverse-bit-field
+          
+         ;; (rnrs arithmetic fixnums)
+
+         fixnum? fixnum-width least-fixnum greatest-fixnum fx=? fx>? fx<? fx>=?
+         fx<=? fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin fx+
+         fx* fx- fxdiv-and-mod fxdiv fxmod fxdiv0-and-mod0 fxdiv0 fxmod0
+         fx+/carry fx-/carry fx*/carry fxnot fxand fxior fxxor fxif fxbit-count
+         fxlength fxfirst-bit-set fxbit-set? fxcopy-bit fxbit-field
+         fxcopy-bit-field fxarithmetic-shift fxarithmetic-shift-left
+         fxarithmetic-shift-right fxrotate-bit-field fxreverse-bit-field
+
+         ;; (rnrs arithmetic flonums)
+
+         flonum? real->flonum fl=? fl<? fl<=? fl>? fl>=? flinteger? flzero? 
+         flpositive? flnegative? flodd? fleven? flfinite? flinfinite? flnan?
+         flmax flmin fl+ fl* fl- fl/ flabs fldiv-and-mod fldiv flmod
+         fldiv0-and-mod0 fldiv0 flmod0 flnumerator fldenominator flfloor 
+         flceiling fltruncate flround flexp fllog flsin flcos fltan flacos 
+         flasin flatan flsqrt flexpt &no-infinities
+         make-no-infinities-violation no-infinities-violation? &no-nans
+         make-no-nans-violation no-nans-violation? fixnum->flonum
+         
+         ;; (rnrs base)
+
+         boolean? symbol? char? vector? null? pair? number? string? procedure?
+         define define-syntax syntax-rules lambda let let* let-values
+         let*-values letrec begin quote lambda if set! cond case or and not
+         eqv? equal? eq? + - * / max min abs numerator denominator gcd lcm 
+         floor ceiling truncate round rationalize real-part imag-part 
+         make-rectangular angle div mod div-and-mod div0 mod0 div0-and-mod0
+         expt exact-integer-sqrt sqrt exp log sin cos tan asin acos atan 
+         make-polar magnitude angle complex? real? rational? integer? exact? 
+         inexact? real-valued? rational-valued? integer-values? zero? 
+         positive? negative? odd? even? nan? finite? infinite? exact inexact =
+         < > <= >= number->string string->number cons car cdr caar cadr cdar 
+         cddr caaar caadr cadar cdaar caddr cdadr cddar cdddr caaaar caaadr 
+         caadar cadaar cdaaar cddaar cdadar cdaadr cadadr caaddr caddar cadddr
+         cdaddr cddadr cdddar cddddr list? list length append reverse 
+         list-tail list-ref map for-each symbol->string string->symbol symbol=?
+         char->integer integer->char char=? char<? char>? char<=? char>=?
+         make-string string string-length string-ref string=? string<? string>?
+         string<=? string>=? substring string-append string->list list->string
+         string-for-each string-copy vector? make-vector vector vector-length 
+         vector-ref vector-set! vector->list list->vector vector-fill! 
+         vector-map vector-for-each error assertion-violation assert
+         call-with-current-continuation call/cc call-with-values dynamic-wind
+         values apply quasiquote unquote unquote-splicing let-syntax 
+         letrec-syntax syntax-rules identifier-syntax
+
+         ;; (rnrs bytevector)
+         
+         endianness native-endianness bytevector? make-bytevector 
+         bytevector-length bytevector=? bytevector-fill! bytevector-copy! 
+         bytevector-copy uniform-array->bytevector bytevector-u8-ref 
+         bytevector-s8-ref bytevector-u8-set! bytevector-s8-set! 
+         bytevector->u8-list u8-list->bytevector bytevector-uint-ref 
+         bytevector-uint-set! bytevector-sint-ref bytevector-sint-set!
+         bytevector->sint-list bytevector->uint-list uint-list->bytevector 
+         sint-list->bytevector bytevector-u16-ref bytevector-s16-ref
+         bytevector-u16-set! bytevector-s16-set! bytevector-u16-native-ref 
+         bytevector-s16-native-ref bytevector-u16-native-set! 
+         bytevector-s16-native-set! bytevector-u32-ref bytevector-s32-ref
+         bytevector-u32-set! bytevector-s32-set! bytevector-u32-native-ref 
+         bytevector-s32-native-ref bytevector-u32-native-set! 
+         bytevector-s32-native-set! bytevector-u64-ref bytevector-s64-ref
+         bytevector-u64-set! bytevector-s64-set! bytevector-u64-native-ref 
+         bytevector-s64-native-ref bytevector-u64-native-set! 
+         bytevector-s64-native-set! bytevector-ieee-single-ref
+         bytevector-ieee-single-set! bytevector-ieee-single-native-ref
+         bytevector-ieee-single-native-set! bytevector-ieee-double-ref
+         bytevector-ieee-double-set! bytevector-ieee-double-native-ref
+         bytevector-ieee-double-native-set! string->utf8 string->utf16 
+         string->utf32 utf8->string utf16->string utf32->string
+
+         ;; (rnrs conditions)
+
+         &condition condition simple-conditions condition? condition-predicate
+         condition-accessor define-condition-type &message
+         make-message-condition message-condition? condition-message &warning
+         make-warning warning? &serious make-serious-condition
+         serious-condition? &error make-error error? &violation make-violation
+         violation? &assertion make-assertion-violation assertion-violation?
+         &irritants make-irritants-condition irritants-condition?
+         condition-irritants &who make-who-condition who-condition?
+         condition-who &non-continuable make-non-continuable-violation
+         non-continuable-violation? &implementation-restriction
+         make-implementation-restriction-violation
+         implementation-restriction-violation? &lexical make-lexical-violation
+         lexical-violation? &syntax make-syntax-violation syntax-violation?
+         syntax-violation-form syntax-violation-subform &undefined
+         make-undefined-violation undefined-violation?
+
+         ;; (rnrs control)
+
+         when unless do case-lambda
+
+         ;; (rnrs enums)
+
+         make-enumeration enum-set-universe enum-set-indexer 
+         enum-set-constructor enum-set->list enum-set-member? enum-set-subset?
+         enum-set=? enum-set-union enum-set-intersection enum-set-difference
+         enum-set-complement enum-set-projection define-enumeration
+
+         ;; (rnrs exceptions)
+
+         guard with-exception-handler raise raise-continuable
+
+         ;; (rnrs files)
+
+         file-exists? delete-file &i/o make-i/o-error i/o-error? &i/o-read 
+         make-i/o-read-error i/o-read-error? &i/o-write make-i/o-write-error 
+         i/o-write-error? &i/o-invalid-position 
+         make-i/o-invalid-position-error i/o-invalid-position-error? 
+         i/o-error-position &i/o-filename make-i/o-filename-error
+         i/o-filename-error? i/o-error-filename &i/o-file-protection 
+         make-i/o-file-protection-error i/o-file-protection-error?
+         &i/o-file-is-read-only make-i/o-file-is-read-only-error
+         i/o-file-is-read-only-error? &i/o-file-already-exists
+         make-i/o-file-already-exists-error i/o-file-already-exists-error?
+         &i/o-file-does-not-exist make-i/o-file-does-not-exist-error
+         i/o-file-does-not-exist-error? &i/o-port make-i/o-port-error
+         i/o-port-error? i/o-error-port
+
+         ;; (rnrs hashtables)
+
+         make-eq-hashtable make-eqv-hashtable make-hashtable hashtable?
+         hashtable-size hashtable-ref hashtable-set! hashtable-delete!
+         hashtable-contains? hashtable-update! hashtable-copy hashtable-clear!
+         hashtable-keys hashtable-entries hashtable-equivalence-function
+         hashtable-hash-function hashtable-mutable? equal-hash string-hash
+         string-ci-hash symbol-hash
+
+         ;; (rnrs io ports)
+
+         eof-object? port? input-port? output-port? eof-object port-transcoder
+         binary-port? transcoded-port port-position set-port-position!
+         port-has-port-position? port-has-set-port-position!? call-with-port
+         open-bytevector-input-port make-custom-binary-input-port get-u8 
+         lookahead-u8 get-bytevector-n get-bytevector-n! get-bytevector-some 
+         get-bytevector-all open-bytevector-output-port
+         make-custom-binary-output-port put-u8 put-bytevector
+
+         ;; (rnrs io simple)
+         
+         call-with-input-file call-with-output-file current-input-port
+         current-output-port current-error-port with-input-from-file
+         with-output-to-file open-input-file open-output-file close-input-port
+         close-output-port read-char peek-char read write-char newline display
+         write
+
+         ;; (rnrs lists)
+
+         find for-all exists filter partition fold-left fold-right remp remove 
+         remv remq memp member memv memq assp assoc assv assq cons*
+
+         ;; (rnrs programs)
+
+         command-line exit
+
+         ;; (rnrs records inspection)
+
+         record? record-rtd record-type-name record-type-parent
+         record-type-uid record-type-generative? record-type-sealed? 
+         record-type-opaque? record-type-field-names record-field-mutable?
+
+         ;; (rnrs records procedural)
+
+         make-record-type-descriptor record-type-descriptor?
+         make-record-constructor-descriptor record-constructor record-predicate
+         record-accessor record-mutator
+
+         ;; (rnrs records syntactic)
+
+         define-record-type record-type-descriptor 
+         record-constructor-descriptor
+
+         ;; (rnrs sorting)
+         
+         list-sort vector-sort vector-sort!
+
+         ;; (rnrs syntax-case)
+
+         make-variable-transformer syntax syntax-case identifier?
+         bound-identifier=? free-identifier=? syntax->datum datum->syntax
+         generate-temporaries with-syntax quasisyntax unsyntax
+         unsyntax-splicing syntax-violation)
+
+  (import (rnrs arithmetic bitwise (6))
+         (rnrs arithmetic fixnums (6))
+         (rnrs arithmetic flonums (6))
+         (rnrs base (6))
+
+         (rnrs bytevector)
+
+         (rnrs conditions (6))
+         (rnrs control (6))
+         (rnrs enums (6))
+         (rnrs exceptions (6))
+         (rnrs files (6))
+         (rnrs hashtables (6))
+
+         (rnrs io ports)
+
+         (rnrs io simple (6))
+         (rnrs lists (6))
+         (rnrs programs (6))
+         (rnrs records inspection (6))
+         (rnrs records procedural (6))
+         (rnrs records syntactic (6))
+         (rnrs sorting (6))
+         (rnrs syntax-case (6))))
diff --git a/module/Makefile.am b/module/Makefile.am
index 6a9a34d..6af1051 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -256,6 +256,7 @@ SRFI_SOURCES = \
   srfi/srfi-98.scm
 
 RNRS_SOURCES =                                 \
+  6/rnrs.scm                                   \
   rnrs/6/base.scm                              \
   rnrs/6/conditions.scm                                \
   rnrs/6/control.scm                           \


hooks/post-receive
-- 
GNU Guile