Initial commit
This commit is contained in:
commit
7f076e8069
|
|
@ -0,0 +1,4 @@
|
||||||
|
codesets.chibi.c
|
||||||
|
*.so
|
||||||
|
*.dylib
|
||||||
|
*.o*
|
||||||
|
|
@ -0,0 +1,15 @@
|
||||||
|
#!/bin/sh
|
||||||
|
set -eu
|
||||||
|
cd "$(dirname "$0")"
|
||||||
|
echo "Entering directory '$PWD'"
|
||||||
|
chibi=$(pkg-config --cflags --libs chibi-scheme)
|
||||||
|
soext=.so
|
||||||
|
case $(uname) in
|
||||||
|
Darwin)
|
||||||
|
soext=.dylib
|
||||||
|
;;
|
||||||
|
esac
|
||||||
|
set -x
|
||||||
|
chibi-ffi codesets.chibi.stub
|
||||||
|
cc -std=c99 -Wall -Wextra -Wno-unused-parameter \
|
||||||
|
$chibi -fPIC -shared -o codesets.chibi$soext codesets.chibi.c glue.c
|
||||||
|
|
@ -0,0 +1,6 @@
|
||||||
|
#!/bin/sh
|
||||||
|
set -eu
|
||||||
|
cd "$(dirname "$0")"
|
||||||
|
echo "Entering directory '$PWD'"
|
||||||
|
set -x
|
||||||
|
gsc-script -cc-options glue.c codesets.sld
|
||||||
|
|
@ -0,0 +1,13 @@
|
||||||
|
(c-declare "#include \"glue.h\"")
|
||||||
|
|
||||||
|
(define-c (const string) (%codeset-list "codeset_list")
|
||||||
|
())
|
||||||
|
|
||||||
|
(define-c (const string) (%codeset-numbers "codeset_numbers")
|
||||||
|
((const string)))
|
||||||
|
|
||||||
|
(define-c (const string) (%codeset-symbols "codeset_symbols")
|
||||||
|
((const string)))
|
||||||
|
|
||||||
|
(define-c (const string) (%codeset-messages "codeset_messages")
|
||||||
|
((const string)))
|
||||||
|
|
@ -0,0 +1,13 @@
|
||||||
|
(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"))
|
||||||
|
|
@ -0,0 +1,34 @@
|
||||||
|
(define-library (codesets)
|
||||||
|
(export codeset-alist)
|
||||||
|
(cond-expand
|
||||||
|
(chibi
|
||||||
|
(import (scheme base))
|
||||||
|
(include-shared "codesets.chibi"))
|
||||||
|
(gambit
|
||||||
|
(import (gambit))
|
||||||
|
(include "codesets.gambit.scm")))
|
||||||
|
(begin
|
||||||
|
|
||||||
|
(define (split string)
|
||||||
|
(let loop ((list '()) (a 0) (b 0))
|
||||||
|
(cond ((= a (string-length string))
|
||||||
|
(reverse list))
|
||||||
|
((char=? #\newline (string-ref string b))
|
||||||
|
(loop (cons (string-copy string a b) list)
|
||||||
|
(+ b 1)
|
||||||
|
(+ b 1)))
|
||||||
|
(else
|
||||||
|
(loop list a (+ b 1))))))
|
||||||
|
|
||||||
|
(define (grovel-codeset codeset)
|
||||||
|
(define (append-map f a b c) (apply append (map f a b c)))
|
||||||
|
(cons (string->symbol codeset)
|
||||||
|
(list->vector
|
||||||
|
(append-map
|
||||||
|
list
|
||||||
|
(map string->number (split (%codeset-numbers codeset)))
|
||||||
|
(map string->symbol (split (%codeset-symbols codeset)))
|
||||||
|
(split (%codeset-messages codeset))))))
|
||||||
|
|
||||||
|
(define codeset-alist
|
||||||
|
(map grovel-codeset (split (%codeset-list))))))
|
||||||
|
|
@ -0,0 +1,453 @@
|
||||||
|
#ifdef E2BIG
|
||||||
|
XX(E2BIG)
|
||||||
|
#endif
|
||||||
|
#ifdef EACCES
|
||||||
|
XX(EACCES)
|
||||||
|
#endif
|
||||||
|
#ifdef EADDRINUSE
|
||||||
|
XX(EADDRINUSE)
|
||||||
|
#endif
|
||||||
|
#ifdef EADDRNOTAVAIL
|
||||||
|
XX(EADDRNOTAVAIL)
|
||||||
|
#endif
|
||||||
|
#ifdef EADV
|
||||||
|
XX(EADV)
|
||||||
|
#endif
|
||||||
|
#ifdef EAFNOSUPPORT
|
||||||
|
XX(EAFNOSUPPORT)
|
||||||
|
#endif
|
||||||
|
#ifdef EAGAIN
|
||||||
|
XX(EAGAIN)
|
||||||
|
#endif
|
||||||
|
#ifdef EALREADY
|
||||||
|
XX(EALREADY)
|
||||||
|
#endif
|
||||||
|
#ifdef EAUTH
|
||||||
|
XX(EAUTH)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADE
|
||||||
|
XX(EBADE)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADF
|
||||||
|
XX(EBADF)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADFD
|
||||||
|
XX(EBADFD)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADMSG
|
||||||
|
XX(EBADMSG)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADR
|
||||||
|
XX(EBADR)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADRPC
|
||||||
|
XX(EBADRPC)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADRQC
|
||||||
|
XX(EBADRQC)
|
||||||
|
#endif
|
||||||
|
#ifdef EBADSLT
|
||||||
|
XX(EBADSLT)
|
||||||
|
#endif
|
||||||
|
#ifdef EBFONT
|
||||||
|
XX(EBFONT)
|
||||||
|
#endif
|
||||||
|
#ifdef EBUSY
|
||||||
|
XX(EBUSY)
|
||||||
|
#endif
|
||||||
|
#ifdef ECANCELED
|
||||||
|
XX(ECANCELED)
|
||||||
|
#endif
|
||||||
|
#ifdef ECAPMODE
|
||||||
|
XX(ECAPMODE)
|
||||||
|
#endif
|
||||||
|
#ifdef ECHILD
|
||||||
|
XX(ECHILD)
|
||||||
|
#endif
|
||||||
|
#ifdef ECHRNG
|
||||||
|
XX(ECHRNG)
|
||||||
|
#endif
|
||||||
|
#ifdef ECOMM
|
||||||
|
XX(ECOMM)
|
||||||
|
#endif
|
||||||
|
#ifdef ECONNABORTED
|
||||||
|
XX(ECONNABORTED)
|
||||||
|
#endif
|
||||||
|
#ifdef ECONNREFUSED
|
||||||
|
XX(ECONNREFUSED)
|
||||||
|
#endif
|
||||||
|
#ifdef ECONNRESET
|
||||||
|
XX(ECONNRESET)
|
||||||
|
#endif
|
||||||
|
#ifdef EDEADLK
|
||||||
|
XX(EDEADLK)
|
||||||
|
#endif
|
||||||
|
#ifdef EDEADLOCK
|
||||||
|
XX(EDEADLOCK)
|
||||||
|
#endif
|
||||||
|
#ifdef EDESTADDRREQ
|
||||||
|
XX(EDESTADDRREQ)
|
||||||
|
#endif
|
||||||
|
#ifdef EDOM
|
||||||
|
XX(EDOM)
|
||||||
|
#endif
|
||||||
|
#ifdef EDOOFUS
|
||||||
|
XX(EDOOFUS)
|
||||||
|
#endif
|
||||||
|
#ifdef EDOTDOT
|
||||||
|
XX(EDOTDOT)
|
||||||
|
#endif
|
||||||
|
#ifdef EDQUOT
|
||||||
|
XX(EDQUOT)
|
||||||
|
#endif
|
||||||
|
#ifdef EEXIST
|
||||||
|
XX(EEXIST)
|
||||||
|
#endif
|
||||||
|
#ifdef EFAULT
|
||||||
|
XX(EFAULT)
|
||||||
|
#endif
|
||||||
|
#ifdef EFBIG
|
||||||
|
XX(EFBIG)
|
||||||
|
#endif
|
||||||
|
#ifdef EFTYPE
|
||||||
|
XX(EFTYPE)
|
||||||
|
#endif
|
||||||
|
#ifdef EHOSTDOWN
|
||||||
|
XX(EHOSTDOWN)
|
||||||
|
#endif
|
||||||
|
#ifdef EHOSTUNREACH
|
||||||
|
XX(EHOSTUNREACH)
|
||||||
|
#endif
|
||||||
|
#ifdef EHWPOISON
|
||||||
|
XX(EHWPOISON)
|
||||||
|
#endif
|
||||||
|
#ifdef EIDRM
|
||||||
|
XX(EIDRM)
|
||||||
|
#endif
|
||||||
|
#ifdef EILSEQ
|
||||||
|
XX(EILSEQ)
|
||||||
|
#endif
|
||||||
|
#ifdef EINPROGRESS
|
||||||
|
XX(EINPROGRESS)
|
||||||
|
#endif
|
||||||
|
#ifdef EINTR
|
||||||
|
XX(EINTR)
|
||||||
|
#endif
|
||||||
|
#ifdef EINVAL
|
||||||
|
XX(EINVAL)
|
||||||
|
#endif
|
||||||
|
#ifdef EIO
|
||||||
|
XX(EIO)
|
||||||
|
#endif
|
||||||
|
#ifdef EIPSEC
|
||||||
|
XX(EIPSEC)
|
||||||
|
#endif
|
||||||
|
#ifdef EISCONN
|
||||||
|
XX(EISCONN)
|
||||||
|
#endif
|
||||||
|
#ifdef EISDIR
|
||||||
|
XX(EISDIR)
|
||||||
|
#endif
|
||||||
|
#ifdef EISNAM
|
||||||
|
XX(EISNAM)
|
||||||
|
#endif
|
||||||
|
#ifdef EKEYEXPIRED
|
||||||
|
XX(EKEYEXPIRED)
|
||||||
|
#endif
|
||||||
|
#ifdef EKEYREJECTED
|
||||||
|
XX(EKEYREJECTED)
|
||||||
|
#endif
|
||||||
|
#ifdef EKEYREVOKED
|
||||||
|
XX(EKEYREVOKED)
|
||||||
|
#endif
|
||||||
|
#ifdef EL2HLT
|
||||||
|
XX(EL2HLT)
|
||||||
|
#endif
|
||||||
|
#ifdef EL2NSYNC
|
||||||
|
XX(EL2NSYNC)
|
||||||
|
#endif
|
||||||
|
#ifdef EL3HLT
|
||||||
|
XX(EL3HLT)
|
||||||
|
#endif
|
||||||
|
#ifdef EL3RST
|
||||||
|
XX(EL3RST)
|
||||||
|
#endif
|
||||||
|
#ifdef ELAST
|
||||||
|
XX(ELAST)
|
||||||
|
#endif
|
||||||
|
#ifdef ELIBACC
|
||||||
|
XX(ELIBACC)
|
||||||
|
#endif
|
||||||
|
#ifdef ELIBBAD
|
||||||
|
XX(ELIBBAD)
|
||||||
|
#endif
|
||||||
|
#ifdef ELIBEXEC
|
||||||
|
XX(ELIBEXEC)
|
||||||
|
#endif
|
||||||
|
#ifdef ELIBMAX
|
||||||
|
XX(ELIBMAX)
|
||||||
|
#endif
|
||||||
|
#ifdef ELIBSCN
|
||||||
|
XX(ELIBSCN)
|
||||||
|
#endif
|
||||||
|
#ifdef ELNRNG
|
||||||
|
XX(ELNRNG)
|
||||||
|
#endif
|
||||||
|
#ifdef ELOCKUNMAPPED
|
||||||
|
XX(ELOCKUNMAPPED)
|
||||||
|
#endif
|
||||||
|
#ifdef ELOOP
|
||||||
|
XX(ELOOP)
|
||||||
|
#endif
|
||||||
|
#ifdef EMEDIUMTYPE
|
||||||
|
XX(EMEDIUMTYPE)
|
||||||
|
#endif
|
||||||
|
#ifdef EMFILE
|
||||||
|
XX(EMFILE)
|
||||||
|
#endif
|
||||||
|
#ifdef EMLINK
|
||||||
|
XX(EMLINK)
|
||||||
|
#endif
|
||||||
|
#ifdef EMSGSIZE
|
||||||
|
XX(EMSGSIZE)
|
||||||
|
#endif
|
||||||
|
#ifdef EMULTIHOP
|
||||||
|
XX(EMULTIHOP)
|
||||||
|
#endif
|
||||||
|
#ifdef ENAMETOOLONG
|
||||||
|
XX(ENAMETOOLONG)
|
||||||
|
#endif
|
||||||
|
#ifdef ENAVAIL
|
||||||
|
XX(ENAVAIL)
|
||||||
|
#endif
|
||||||
|
#ifdef ENEEDAUTH
|
||||||
|
XX(ENEEDAUTH)
|
||||||
|
#endif
|
||||||
|
#ifdef ENETDOWN
|
||||||
|
XX(ENETDOWN)
|
||||||
|
#endif
|
||||||
|
#ifdef ENETRESET
|
||||||
|
XX(ENETRESET)
|
||||||
|
#endif
|
||||||
|
#ifdef ENETUNREACH
|
||||||
|
XX(ENETUNREACH)
|
||||||
|
#endif
|
||||||
|
#ifdef ENFILE
|
||||||
|
XX(ENFILE)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOANO
|
||||||
|
XX(ENOANO)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOATTR
|
||||||
|
XX(ENOATTR)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOBUFS
|
||||||
|
XX(ENOBUFS)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOCSI
|
||||||
|
XX(ENOCSI)
|
||||||
|
#endif
|
||||||
|
#ifdef ENODATA
|
||||||
|
XX(ENODATA)
|
||||||
|
#endif
|
||||||
|
#ifdef ENODEV
|
||||||
|
XX(ENODEV)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOENT
|
||||||
|
XX(ENOENT)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOEXEC
|
||||||
|
XX(ENOEXEC)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOKEY
|
||||||
|
XX(ENOKEY)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOLCK
|
||||||
|
XX(ENOLCK)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOLINK
|
||||||
|
XX(ENOLINK)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOMEDIUM
|
||||||
|
XX(ENOMEDIUM)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOMEM
|
||||||
|
XX(ENOMEM)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOMSG
|
||||||
|
XX(ENOMSG)
|
||||||
|
#endif
|
||||||
|
#ifdef ENONET
|
||||||
|
XX(ENONET)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOPKG
|
||||||
|
XX(ENOPKG)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOPROTOOPT
|
||||||
|
XX(ENOPROTOOPT)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOSPC
|
||||||
|
XX(ENOSPC)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOSR
|
||||||
|
XX(ENOSR)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOSTR
|
||||||
|
XX(ENOSTR)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOSYS
|
||||||
|
XX(ENOSYS)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTACTIVE
|
||||||
|
XX(ENOTACTIVE)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTBLK
|
||||||
|
XX(ENOTBLK)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTCAPABLE
|
||||||
|
XX(ENOTCAPABLE)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTCONN
|
||||||
|
XX(ENOTCONN)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTDIR
|
||||||
|
XX(ENOTDIR)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTEMPTY
|
||||||
|
XX(ENOTEMPTY)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTNAM
|
||||||
|
XX(ENOTNAM)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTRECOVERABLE
|
||||||
|
XX(ENOTRECOVERABLE)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTSOCK
|
||||||
|
XX(ENOTSOCK)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTSUP
|
||||||
|
XX(ENOTSUP)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTTY
|
||||||
|
XX(ENOTTY)
|
||||||
|
#endif
|
||||||
|
#ifdef ENOTUNIQ
|
||||||
|
XX(ENOTUNIQ)
|
||||||
|
#endif
|
||||||
|
#ifdef ENXIO
|
||||||
|
XX(ENXIO)
|
||||||
|
#endif
|
||||||
|
#ifdef EOPNOTSUPP
|
||||||
|
XX(EOPNOTSUPP)
|
||||||
|
#endif
|
||||||
|
#ifdef EOVERFLOW
|
||||||
|
XX(EOVERFLOW)
|
||||||
|
#endif
|
||||||
|
#ifdef EOWNERDEAD
|
||||||
|
XX(EOWNERDEAD)
|
||||||
|
#endif
|
||||||
|
#ifdef EPERM
|
||||||
|
XX(EPERM)
|
||||||
|
#endif
|
||||||
|
#ifdef EPFNOSUPPORT
|
||||||
|
XX(EPFNOSUPPORT)
|
||||||
|
#endif
|
||||||
|
#ifdef EPIPE
|
||||||
|
XX(EPIPE)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROCLIM
|
||||||
|
XX(EPROCLIM)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROCUNAVAIL
|
||||||
|
XX(EPROCUNAVAIL)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROGMISMATCH
|
||||||
|
XX(EPROGMISMATCH)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROGUNAVAIL
|
||||||
|
XX(EPROGUNAVAIL)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROTO
|
||||||
|
XX(EPROTO)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROTONOSUPPORT
|
||||||
|
XX(EPROTONOSUPPORT)
|
||||||
|
#endif
|
||||||
|
#ifdef EPROTOTYPE
|
||||||
|
XX(EPROTOTYPE)
|
||||||
|
#endif
|
||||||
|
#ifdef ERANGE
|
||||||
|
XX(ERANGE)
|
||||||
|
#endif
|
||||||
|
#ifdef EREMCHG
|
||||||
|
XX(EREMCHG)
|
||||||
|
#endif
|
||||||
|
#ifdef EREMOTE
|
||||||
|
XX(EREMOTE)
|
||||||
|
#endif
|
||||||
|
#ifdef EREMOTEIO
|
||||||
|
XX(EREMOTEIO)
|
||||||
|
#endif
|
||||||
|
#ifdef ERESTART
|
||||||
|
XX(ERESTART)
|
||||||
|
#endif
|
||||||
|
#ifdef ERFKILL
|
||||||
|
XX(ERFKILL)
|
||||||
|
#endif
|
||||||
|
#ifdef EROFS
|
||||||
|
XX(EROFS)
|
||||||
|
#endif
|
||||||
|
#ifdef ERPCMISMATCH
|
||||||
|
XX(ERPCMISMATCH)
|
||||||
|
#endif
|
||||||
|
#ifdef ESHUTDOWN
|
||||||
|
XX(ESHUTDOWN)
|
||||||
|
#endif
|
||||||
|
#ifdef ESOCKTNOSUPPORT
|
||||||
|
XX(ESOCKTNOSUPPORT)
|
||||||
|
#endif
|
||||||
|
#ifdef ESPIPE
|
||||||
|
XX(ESPIPE)
|
||||||
|
#endif
|
||||||
|
#ifdef ESRCH
|
||||||
|
XX(ESRCH)
|
||||||
|
#endif
|
||||||
|
#ifdef ESRMNT
|
||||||
|
XX(ESRMNT)
|
||||||
|
#endif
|
||||||
|
#ifdef ESTALE
|
||||||
|
XX(ESTALE)
|
||||||
|
#endif
|
||||||
|
#ifdef ESTRPIPE
|
||||||
|
XX(ESTRPIPE)
|
||||||
|
#endif
|
||||||
|
#ifdef ETIME
|
||||||
|
XX(ETIME)
|
||||||
|
#endif
|
||||||
|
#ifdef ETIMEDOUT
|
||||||
|
XX(ETIMEDOUT)
|
||||||
|
#endif
|
||||||
|
#ifdef ETOOMANYREFS
|
||||||
|
XX(ETOOMANYREFS)
|
||||||
|
#endif
|
||||||
|
#ifdef ETXTBSY
|
||||||
|
XX(ETXTBSY)
|
||||||
|
#endif
|
||||||
|
#ifdef EUCLEAN
|
||||||
|
XX(EUCLEAN)
|
||||||
|
#endif
|
||||||
|
#ifdef EUNATCH
|
||||||
|
XX(EUNATCH)
|
||||||
|
#endif
|
||||||
|
#ifdef EUSERS
|
||||||
|
XX(EUSERS)
|
||||||
|
#endif
|
||||||
|
#ifdef EWOULDBLOCK
|
||||||
|
XX(EWOULDBLOCK)
|
||||||
|
#endif
|
||||||
|
#ifdef EXDEV
|
||||||
|
XX(EXDEV)
|
||||||
|
#endif
|
||||||
|
#ifdef EXFULL
|
||||||
|
XX(EXFULL)
|
||||||
|
#endif
|
||||||
|
|
@ -0,0 +1,151 @@
|
||||||
|
E2BIG
|
||||||
|
EACCES
|
||||||
|
EADDRINUSE
|
||||||
|
EADDRNOTAVAIL
|
||||||
|
EADV
|
||||||
|
EAFNOSUPPORT
|
||||||
|
EAGAIN
|
||||||
|
EALREADY
|
||||||
|
EAUTH
|
||||||
|
EBADE
|
||||||
|
EBADF
|
||||||
|
EBADFD
|
||||||
|
EBADMSG
|
||||||
|
EBADR
|
||||||
|
EBADRPC
|
||||||
|
EBADRQC
|
||||||
|
EBADSLT
|
||||||
|
EBFONT
|
||||||
|
EBUSY
|
||||||
|
ECANCELED
|
||||||
|
ECAPMODE
|
||||||
|
ECHILD
|
||||||
|
ECHRNG
|
||||||
|
ECOMM
|
||||||
|
ECONNABORTED
|
||||||
|
ECONNREFUSED
|
||||||
|
ECONNRESET
|
||||||
|
EDEADLK
|
||||||
|
EDEADLOCK
|
||||||
|
EDESTADDRREQ
|
||||||
|
EDOM
|
||||||
|
EDOOFUS
|
||||||
|
EDOTDOT
|
||||||
|
EDQUOT
|
||||||
|
EEXIST
|
||||||
|
EFAULT
|
||||||
|
EFBIG
|
||||||
|
EFTYPE
|
||||||
|
EHOSTDOWN
|
||||||
|
EHOSTUNREACH
|
||||||
|
EHWPOISON
|
||||||
|
EIDRM
|
||||||
|
EILSEQ
|
||||||
|
EINPROGRESS
|
||||||
|
EINTR
|
||||||
|
EINVAL
|
||||||
|
EIO
|
||||||
|
EIPSEC
|
||||||
|
EISCONN
|
||||||
|
EISDIR
|
||||||
|
EISNAM
|
||||||
|
EKEYEXPIRED
|
||||||
|
EKEYREJECTED
|
||||||
|
EKEYREVOKED
|
||||||
|
EL2HLT
|
||||||
|
EL2NSYNC
|
||||||
|
EL3HLT
|
||||||
|
EL3RST
|
||||||
|
ELAST
|
||||||
|
ELIBACC
|
||||||
|
ELIBBAD
|
||||||
|
ELIBEXEC
|
||||||
|
ELIBMAX
|
||||||
|
ELIBSCN
|
||||||
|
ELNRNG
|
||||||
|
ELOCKUNMAPPED
|
||||||
|
ELOOP
|
||||||
|
EMEDIUMTYPE
|
||||||
|
EMFILE
|
||||||
|
EMLINK
|
||||||
|
EMSGSIZE
|
||||||
|
EMULTIHOP
|
||||||
|
ENAMETOOLONG
|
||||||
|
ENAVAIL
|
||||||
|
ENEEDAUTH
|
||||||
|
ENETDOWN
|
||||||
|
ENETRESET
|
||||||
|
ENETUNREACH
|
||||||
|
ENFILE
|
||||||
|
ENOANO
|
||||||
|
ENOATTR
|
||||||
|
ENOBUFS
|
||||||
|
ENOCSI
|
||||||
|
ENODATA
|
||||||
|
ENODEV
|
||||||
|
ENOENT
|
||||||
|
ENOEXEC
|
||||||
|
ENOKEY
|
||||||
|
ENOLCK
|
||||||
|
ENOLINK
|
||||||
|
ENOMEDIUM
|
||||||
|
ENOMEM
|
||||||
|
ENOMSG
|
||||||
|
ENONET
|
||||||
|
ENOPKG
|
||||||
|
ENOPROTOOPT
|
||||||
|
ENOSPC
|
||||||
|
ENOSR
|
||||||
|
ENOSTR
|
||||||
|
ENOSYS
|
||||||
|
ENOTACTIVE
|
||||||
|
ENOTBLK
|
||||||
|
ENOTCAPABLE
|
||||||
|
ENOTCONN
|
||||||
|
ENOTDIR
|
||||||
|
ENOTEMPTY
|
||||||
|
ENOTNAM
|
||||||
|
ENOTRECOVERABLE
|
||||||
|
ENOTSOCK
|
||||||
|
ENOTSUP
|
||||||
|
ENOTTY
|
||||||
|
ENOTUNIQ
|
||||||
|
ENXIO
|
||||||
|
EOPNOTSUPP
|
||||||
|
EOVERFLOW
|
||||||
|
EOWNERDEAD
|
||||||
|
EPERM
|
||||||
|
EPFNOSUPPORT
|
||||||
|
EPIPE
|
||||||
|
EPROCLIM
|
||||||
|
EPROCUNAVAIL
|
||||||
|
EPROGMISMATCH
|
||||||
|
EPROGUNAVAIL
|
||||||
|
EPROTO
|
||||||
|
EPROTONOSUPPORT
|
||||||
|
EPROTOTYPE
|
||||||
|
ERANGE
|
||||||
|
EREMCHG
|
||||||
|
EREMOTE
|
||||||
|
EREMOTEIO
|
||||||
|
ERESTART
|
||||||
|
ERFKILL
|
||||||
|
EROFS
|
||||||
|
ERPCMISMATCH
|
||||||
|
ESHUTDOWN
|
||||||
|
ESOCKTNOSUPPORT
|
||||||
|
ESPIPE
|
||||||
|
ESRCH
|
||||||
|
ESRMNT
|
||||||
|
ESTALE
|
||||||
|
ESTRPIPE
|
||||||
|
ETIME
|
||||||
|
ETIMEDOUT
|
||||||
|
ETOOMANYREFS
|
||||||
|
ETXTBSY
|
||||||
|
EUCLEAN
|
||||||
|
EUNATCH
|
||||||
|
EUSERS
|
||||||
|
EWOULDBLOCK
|
||||||
|
EXDEV
|
||||||
|
EXFULL
|
||||||
|
|
@ -0,0 +1,35 @@
|
||||||
|
(import (scheme base)
|
||||||
|
(scheme file)
|
||||||
|
(scheme read)
|
||||||
|
(scheme write))
|
||||||
|
|
||||||
|
(define disp
|
||||||
|
(lambda args
|
||||||
|
(for-each display args)
|
||||||
|
(newline)))
|
||||||
|
|
||||||
|
(define (read-all)
|
||||||
|
(let loop ((xs '()))
|
||||||
|
(let ((x (read)))
|
||||||
|
(if (eof-object? x)
|
||||||
|
(reverse xs)
|
||||||
|
(loop (cons x xs))))))
|
||||||
|
|
||||||
|
(define (gen out in)
|
||||||
|
(let ((symbols (with-input-from-file in read-all)))
|
||||||
|
(with-output-to-file out
|
||||||
|
(lambda ()
|
||||||
|
(for-each (lambda (symbol)
|
||||||
|
(disp "#ifdef " symbol)
|
||||||
|
(disp " XX(" symbol ")")
|
||||||
|
(disp "#endif"))
|
||||||
|
symbols)))))
|
||||||
|
|
||||||
|
(define main
|
||||||
|
(lambda ignored
|
||||||
|
(gen "errnolist.h"
|
||||||
|
"errnolist.txt")
|
||||||
|
(gen "signallist.h"
|
||||||
|
"signallist.txt")))
|
||||||
|
|
||||||
|
(main)
|
||||||
|
|
@ -0,0 +1,118 @@
|
||||||
|
#include <ctype.h>
|
||||||
|
#include <errno.h>
|
||||||
|
#include <signal.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
|
||||||
|
#undef XX
|
||||||
|
#define XX(x) x,
|
||||||
|
|
||||||
|
static const int errno_numbers[] = {
|
||||||
|
#include "errnolist.h"
|
||||||
|
0};
|
||||||
|
|
||||||
|
static const int signal_numbers[] = {
|
||||||
|
#include "signallist.h"
|
||||||
|
0};
|
||||||
|
|
||||||
|
#undef XX
|
||||||
|
#define XX(x) #x "\n"
|
||||||
|
|
||||||
|
static const char errno_symbols[] =
|
||||||
|
#include "errnolist.h"
|
||||||
|
;
|
||||||
|
|
||||||
|
static const char signal_symbols[] =
|
||||||
|
#include "signallist.h"
|
||||||
|
;
|
||||||
|
|
||||||
|
static char buffer[16384];
|
||||||
|
|
||||||
|
static char *portable_strsignal(int number) {
|
||||||
|
char *str;
|
||||||
|
char *pos;
|
||||||
|
|
||||||
|
str = strsignal(number);
|
||||||
|
pos = str ? strchr(str, ':') : 0;
|
||||||
|
if (pos) {
|
||||||
|
*pos = 0;
|
||||||
|
}
|
||||||
|
return str;
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *format_number(int number) {
|
||||||
|
static char numbuf[16];
|
||||||
|
|
||||||
|
snprintf(numbuf, sizeof(numbuf), "%d", number);
|
||||||
|
return numbuf;
|
||||||
|
}
|
||||||
|
|
||||||
|
static void whitespace_cleanup(char *str) {
|
||||||
|
char *ptr;
|
||||||
|
char *lim;
|
||||||
|
|
||||||
|
lim = strchr(str, 0);
|
||||||
|
while (lim > str) {
|
||||||
|
if (!isspace(lim[-1])) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
*--lim = 0;
|
||||||
|
}
|
||||||
|
for (ptr = str; ptr < lim; ptr++) {
|
||||||
|
if (isspace(*ptr)) {
|
||||||
|
*ptr = ' ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static const char *prepare(const int *numbers, char *(*tostring)(int)) {
|
||||||
|
char *str;
|
||||||
|
size_t len, i;
|
||||||
|
|
||||||
|
memset(buffer, 0, sizeof(buffer));
|
||||||
|
for (i = 0; numbers[i]; i++) {
|
||||||
|
str = tostring(numbers[i]);
|
||||||
|
if (!str) {
|
||||||
|
str = "";
|
||||||
|
}
|
||||||
|
whitespace_cleanup(str);
|
||||||
|
len = strlen(buffer);
|
||||||
|
snprintf(&buffer[len], sizeof(buffer) - len, "%s\n", str);
|
||||||
|
}
|
||||||
|
return buffer;
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *codeset_symbols(const char *codeset) {
|
||||||
|
if (!strcmp(codeset, "errno")) {
|
||||||
|
return errno_symbols;
|
||||||
|
}
|
||||||
|
if (!strcmp(codeset, "signal")) {
|
||||||
|
return signal_symbols;
|
||||||
|
}
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *codeset_numbers(const char *codeset) {
|
||||||
|
if (!strcmp(codeset, "errno")) {
|
||||||
|
return prepare(errno_numbers, format_number);
|
||||||
|
}
|
||||||
|
if (!strcmp(codeset, "signal")) {
|
||||||
|
return prepare(signal_numbers, format_number);
|
||||||
|
}
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *codeset_messages(const char *codeset) {
|
||||||
|
if (!strcmp(codeset, "errno")) {
|
||||||
|
return prepare(errno_numbers, strerror);
|
||||||
|
}
|
||||||
|
if (!strcmp(codeset, "signal")) {
|
||||||
|
return prepare(signal_numbers, portable_strsignal);
|
||||||
|
}
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
|
||||||
|
const char *codeset_list(void) {
|
||||||
|
return "errno\n"
|
||||||
|
"signal\n";
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,4 @@
|
||||||
|
char *codeset_list(void);
|
||||||
|
char *codeset_numbers(const char *codeset);
|
||||||
|
char *codeset_symbols(const char *codeset);
|
||||||
|
char *codeset_messages(const char *codeset);
|
||||||
|
|
@ -0,0 +1,93 @@
|
||||||
|
#ifdef SIGABRT
|
||||||
|
XX(SIGABRT)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGALRM
|
||||||
|
XX(SIGALRM)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGBUS
|
||||||
|
XX(SIGBUS)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGCHLD
|
||||||
|
XX(SIGCHLD)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGCONT
|
||||||
|
XX(SIGCONT)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGEMT
|
||||||
|
XX(SIGEMT)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGFPE
|
||||||
|
XX(SIGFPE)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGHUP
|
||||||
|
XX(SIGHUP)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGILL
|
||||||
|
XX(SIGILL)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGINFO
|
||||||
|
XX(SIGINFO)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGINT
|
||||||
|
XX(SIGINT)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGIO
|
||||||
|
XX(SIGIO)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGKILL
|
||||||
|
XX(SIGKILL)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGPIPE
|
||||||
|
XX(SIGPIPE)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGPROF
|
||||||
|
XX(SIGPROF)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGQUIT
|
||||||
|
XX(SIGQUIT)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGSEGV
|
||||||
|
XX(SIGSEGV)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGSTOP
|
||||||
|
XX(SIGSTOP)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGSYS
|
||||||
|
XX(SIGSYS)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGTERM
|
||||||
|
XX(SIGTERM)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGTRAP
|
||||||
|
XX(SIGTRAP)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGTSTP
|
||||||
|
XX(SIGTSTP)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGTTIN
|
||||||
|
XX(SIGTTIN)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGTTOU
|
||||||
|
XX(SIGTTOU)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGURG
|
||||||
|
XX(SIGURG)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGUSR1
|
||||||
|
XX(SIGUSR1)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGUSR2
|
||||||
|
XX(SIGUSR2)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGVTALRM
|
||||||
|
XX(SIGVTALRM)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGWINCH
|
||||||
|
XX(SIGWINCH)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGXCPU
|
||||||
|
XX(SIGXCPU)
|
||||||
|
#endif
|
||||||
|
#ifdef SIGXFSZ
|
||||||
|
XX(SIGXFSZ)
|
||||||
|
#endif
|
||||||
|
|
@ -0,0 +1,31 @@
|
||||||
|
SIGABRT
|
||||||
|
SIGALRM
|
||||||
|
SIGBUS
|
||||||
|
SIGCHLD
|
||||||
|
SIGCONT
|
||||||
|
SIGEMT
|
||||||
|
SIGFPE
|
||||||
|
SIGHUP
|
||||||
|
SIGILL
|
||||||
|
SIGINFO
|
||||||
|
SIGINT
|
||||||
|
SIGIO
|
||||||
|
SIGKILL
|
||||||
|
SIGPIPE
|
||||||
|
SIGPROF
|
||||||
|
SIGQUIT
|
||||||
|
SIGSEGV
|
||||||
|
SIGSTOP
|
||||||
|
SIGSYS
|
||||||
|
SIGTERM
|
||||||
|
SIGTRAP
|
||||||
|
SIGTSTP
|
||||||
|
SIGTTIN
|
||||||
|
SIGTTOU
|
||||||
|
SIGURG
|
||||||
|
SIGUSR1
|
||||||
|
SIGUSR2
|
||||||
|
SIGVTALRM
|
||||||
|
SIGWINCH
|
||||||
|
SIGXCPU
|
||||||
|
SIGXFSZ
|
||||||
Loading…
Reference in New Issue