;;; -*- Gerbil -*-
;;; (c) vyzo at hackzen.org
;;; SRFI-13: charset library
(import :gerbil/gambit
        :std/error
        :std/srfi/srfi-support
        :std/srfi/8
        :std/srfi/9)

(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!
  ucs-range->char-set  ->char-set
  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
  )

(def %latin1->char integer->char)
(def %char->latin1 char->integer)

(include "srfi-14.scm")
