srfi-238-string/codesets.gambit.scm

14 lines
411 B
Scheme

(c-declare "#include \"glue.h\"")
(define %codeset-list
(c-lambda () nonnull-char-string "codeset_list"))
(define %codeset-numbers
(c-lambda (nonnull-char-string) nonnull-char-string "codeset_numbers"))
(define %codeset-symbols
(c-lambda (nonnull-char-string) nonnull-char-string "codeset_symbols"))
(define %codeset-messages
(c-lambda (nonnull-char-string) nonnull-char-string "codeset_messages"))