14 lines
411 B
Scheme
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"))
|