diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | eval.c | 2 | ||||
| -rw-r--r-- | extension/ChangeLog | 12 | ||||
| -rw-r--r-- | extension/Makefile.am | 13 | ||||
| -rw-r--r-- | extension/Makefile.in | 49 | ||||
| -rw-r--r-- | extension/errlist.h | 455 | ||||
| -rw-r--r-- | extension/errno.c | 145 | ||||
| -rw-r--r-- | extension/select.c | 2 | ||||
| -rw-r--r-- | extension/siglist.h | 11 |
9 files changed, 665 insertions, 28 deletions
@@ -1,3 +1,7 @@ +2013-07-01 Andrew J. Schorr <aschorr@telemetry-investments.com> + + * eval.c (update_ERRNO_int, unset_ERRNO): Update PROCINFO["errno"]. + 2013-06-30 Andrew J. Schorr <aschorr@telemetry-investments.com> * awk.h (redirect_string): Declare new function that provides API access to the redirection mechanism. @@ -997,6 +997,7 @@ update_ERRNO_int(int errcode) { char *cp; + update_PROCINFO_num("errno", errcode); if (errcode) { cp = strerror(errcode); cp = gettext(cp); @@ -1020,6 +1021,7 @@ update_ERRNO_string(const char *string) void unset_ERRNO(void) { + update_PROCINFO_num("errno", 0); unref(ERRNO_node->var_value); ERRNO_node->var_value = dupnode(Nnull_string); } diff --git a/extension/ChangeLog b/extension/ChangeLog index e4dcf009..8b3e4bc5 100644 --- a/extension/ChangeLog +++ b/extension/ChangeLog @@ -1,5 +1,17 @@ 2013-07-01 Andrew J. Schorr <aschorr@telemetry-investments.com> + * errlist.h: New file containing a list of all the errno values I could + find. + * errno.c: Implement a new errno extension providing strerror, + errno2name, and name2errno. + * Makefile.am (pkgextension_LTLIBRARIES): Add errno.la. + (errno_la_SOURCES, errno_la_LDFLAGS, errno_la_LIBADD): Build new errno + extension. + * select.c (ext_version): Fix version string. + * siglist.h: Update to newest glibc version. + +2013-07-01 Andrew J. Schorr <aschorr@telemetry-investments.com> + * siglist.h: New file copied from glibc to provide a mapping between signal number and name. * select.c: Add a new "select_signal" function and provide support diff --git a/extension/Makefile.am b/extension/Makefile.am index 58fc3df6..1d545227 100644 --- a/extension/Makefile.am +++ b/extension/Makefile.am @@ -32,6 +32,7 @@ ACLOCAL_AMFLAGS = -I m4 # Note: rwarray does not currently compile. pkgextension_LTLIBRARIES = \ + errno.la \ filefuncs.la \ fnmatch.la \ fork.la \ @@ -50,6 +51,10 @@ MY_MODULE_FLAGS = -module -avoid-version -no-undefined # on Cygwin, gettext requires that we link with -lintl MY_LIBS = $(LTLIBINTL) +errno_la_SOURCES = errno.c +errno_la_LDFLAGS = $(MY_MODULE_FLAGS) +errno_la_LIBADD = $(MY_LIBS) + filefuncs_la_SOURCES = filefuncs.c stack.h stack.c gawkfts.h \ gawkfts.c gawkdirfd.h filefuncs_la_LDFLAGS = $(MY_MODULE_FLAGS) @@ -71,10 +76,6 @@ ordchr_la_SOURCES = ordchr.c ordchr_la_LDFLAGS = $(MY_MODULE_FLAGS) ordchr_la_LIBADD = $(MY_LIBS) -select_la_SOURCES = select.c -select_la_LDFLAGS = $(MY_MODULE_FLAGS) -select_la_LIBADD = $(MY_LIBS) - readdir_la_SOURCES = readdir.c gawkdirfd.h readdir_la_LDFLAGS = $(MY_MODULE_FLAGS) readdir_la_LIBADD = $(MY_LIBS) @@ -95,6 +96,10 @@ rwarray_la_SOURCES = rwarray.c rwarray_la_LDFLAGS = $(MY_MODULE_FLAGS) rwarray_la_LIBADD = $(MY_LIBS) +select_la_SOURCES = select.c +select_la_LDFLAGS = $(MY_MODULE_FLAGS) +select_la_LIBADD = $(MY_LIBS) + time_la_SOURCES = time.c time_la_LDFLAGS = $(MY_MODULE_FLAGS) time_la_LIBADD = $(MY_LIBS) diff --git a/extension/Makefile.in b/extension/Makefile.in index 97ee41fe..5c45b494 100644 --- a/extension/Makefile.in +++ b/extension/Makefile.in @@ -139,13 +139,19 @@ am__installdirs = "$(DESTDIR)$(pkgextensiondir)" \ LTLIBRARIES = $(pkgextension_LTLIBRARIES) am__DEPENDENCIES_1 = am__DEPENDENCIES_2 = $(am__DEPENDENCIES_1) -filefuncs_la_DEPENDENCIES = $(am__DEPENDENCIES_2) -am_filefuncs_la_OBJECTS = filefuncs.lo stack.lo gawkfts.lo -filefuncs_la_OBJECTS = $(am_filefuncs_la_OBJECTS) +errno_la_DEPENDENCIES = $(am__DEPENDENCIES_2) +am_errno_la_OBJECTS = errno.lo +errno_la_OBJECTS = $(am_errno_la_OBJECTS) AM_V_lt = $(am__v_lt_@AM_V@) am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) am__v_lt_0 = --silent am__v_lt_1 = +errno_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(errno_la_LDFLAGS) $(LDFLAGS) -o $@ +filefuncs_la_DEPENDENCIES = $(am__DEPENDENCIES_2) +am_filefuncs_la_OBJECTS = filefuncs.lo stack.lo gawkfts.lo +filefuncs_la_OBJECTS = $(am_filefuncs_la_OBJECTS) filefuncs_la_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(filefuncs_la_LDFLAGS) $(LDFLAGS) -o $@ @@ -255,18 +261,18 @@ AM_V_CCLD = $(am__v_CCLD_@AM_V@) am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) am__v_CCLD_0 = @echo " CCLD " $@; am__v_CCLD_1 = -SOURCES = $(filefuncs_la_SOURCES) $(fnmatch_la_SOURCES) \ - $(fork_la_SOURCES) $(inplace_la_SOURCES) $(ordchr_la_SOURCES) \ - $(readdir_la_SOURCES) $(readfile_la_SOURCES) \ - $(revoutput_la_SOURCES) $(revtwoway_la_SOURCES) \ - $(rwarray_la_SOURCES) $(select_la_SOURCES) \ - $(testext_la_SOURCES) $(time_la_SOURCES) -DIST_SOURCES = $(filefuncs_la_SOURCES) $(fnmatch_la_SOURCES) \ - $(fork_la_SOURCES) $(inplace_la_SOURCES) $(ordchr_la_SOURCES) \ - $(readdir_la_SOURCES) $(readfile_la_SOURCES) \ - $(revoutput_la_SOURCES) $(revtwoway_la_SOURCES) \ - $(rwarray_la_SOURCES) $(select_la_SOURCES) \ - $(testext_la_SOURCES) $(time_la_SOURCES) +SOURCES = $(errno_la_SOURCES) $(filefuncs_la_SOURCES) \ + $(fnmatch_la_SOURCES) $(fork_la_SOURCES) $(inplace_la_SOURCES) \ + $(ordchr_la_SOURCES) $(readdir_la_SOURCES) \ + $(readfile_la_SOURCES) $(revoutput_la_SOURCES) \ + $(revtwoway_la_SOURCES) $(rwarray_la_SOURCES) \ + $(select_la_SOURCES) $(testext_la_SOURCES) $(time_la_SOURCES) +DIST_SOURCES = $(errno_la_SOURCES) $(filefuncs_la_SOURCES) \ + $(fnmatch_la_SOURCES) $(fork_la_SOURCES) $(inplace_la_SOURCES) \ + $(ordchr_la_SOURCES) $(readdir_la_SOURCES) \ + $(readfile_la_SOURCES) $(revoutput_la_SOURCES) \ + $(revtwoway_la_SOURCES) $(rwarray_la_SOURCES) \ + $(select_la_SOURCES) $(testext_la_SOURCES) $(time_la_SOURCES) RECURSIVE_TARGETS = all-recursive check-recursive cscopelist-recursive \ ctags-recursive dvi-recursive html-recursive info-recursive \ install-data-recursive install-dvi-recursive \ @@ -495,6 +501,7 @@ ACLOCAL_AMFLAGS = -I m4 # Note: rwarray does not currently compile. pkgextension_LTLIBRARIES = \ + errno.la \ filefuncs.la \ fnmatch.la \ fork.la \ @@ -512,6 +519,9 @@ pkgextension_LTLIBRARIES = \ MY_MODULE_FLAGS = -module -avoid-version -no-undefined # on Cygwin, gettext requires that we link with -lintl MY_LIBS = $(LTLIBINTL) +errno_la_SOURCES = errno.c +errno_la_LDFLAGS = $(MY_MODULE_FLAGS) +errno_la_LIBADD = $(MY_LIBS) filefuncs_la_SOURCES = filefuncs.c stack.h stack.c gawkfts.h \ gawkfts.c gawkdirfd.h @@ -529,9 +539,6 @@ inplace_la_LIBADD = $(MY_LIBS) ordchr_la_SOURCES = ordchr.c ordchr_la_LDFLAGS = $(MY_MODULE_FLAGS) ordchr_la_LIBADD = $(MY_LIBS) -select_la_SOURCES = select.c -select_la_LDFLAGS = $(MY_MODULE_FLAGS) -select_la_LIBADD = $(MY_LIBS) readdir_la_SOURCES = readdir.c gawkdirfd.h readdir_la_LDFLAGS = $(MY_MODULE_FLAGS) readdir_la_LIBADD = $(MY_LIBS) @@ -547,6 +554,9 @@ revtwoway_la_LIBADD = $(MY_LIBS) rwarray_la_SOURCES = rwarray.c rwarray_la_LDFLAGS = $(MY_MODULE_FLAGS) rwarray_la_LIBADD = $(MY_LIBS) +select_la_SOURCES = select.c +select_la_LDFLAGS = $(MY_MODULE_FLAGS) +select_la_LIBADD = $(MY_LIBS) time_la_SOURCES = time.c time_la_LDFLAGS = $(MY_MODULE_FLAGS) time_la_LIBADD = $(MY_LIBS) @@ -656,6 +666,8 @@ clean-pkgextensionLTLIBRARIES: echo rm -f $${locs}; \ rm -f $${locs}; \ } +errno.la: $(errno_la_OBJECTS) $(errno_la_DEPENDENCIES) $(EXTRA_errno_la_DEPENDENCIES) + $(AM_V_CCLD)$(errno_la_LINK) -rpath $(pkgextensiondir) $(errno_la_OBJECTS) $(errno_la_LIBADD) $(LIBS) filefuncs.la: $(filefuncs_la_OBJECTS) $(filefuncs_la_DEPENDENCIES) $(EXTRA_filefuncs_la_DEPENDENCIES) $(AM_V_CCLD)$(filefuncs_la_LINK) -rpath $(pkgextensiondir) $(filefuncs_la_OBJECTS) $(filefuncs_la_LIBADD) $(LIBS) fnmatch.la: $(fnmatch_la_OBJECTS) $(fnmatch_la_DEPENDENCIES) $(EXTRA_fnmatch_la_DEPENDENCIES) @@ -689,6 +701,7 @@ mostlyclean-compile: distclean-compile: -rm -f *.tab.c +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/errno.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/filefuncs.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fnmatch.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fork.Plo@am__quote@ diff --git a/extension/errlist.h b/extension/errlist.h new file mode 100644 index 00000000..caa6d63b --- /dev/null +++ b/extension/errlist.h @@ -0,0 +1,455 @@ +/* + * errlist.h - List of errno values. + */ + +/* + * Copyright (C) 2013 the Free Software Foundation, Inc. + * + * This file is part of GAWK, the GNU implementation of the + * AWK Programming Language. + * + * GAWK is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * GAWK 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA + */ + +#ifdef E2BIG +init_errno (E2BIG, "E2BIG") +#endif +#ifdef EACCES +init_errno (EACCES, "EACCES") +#endif +#ifdef EADDRINUSE +init_errno (EADDRINUSE, "EADDRINUSE") +#endif +#ifdef EADDRNOTAVAIL +init_errno (EADDRNOTAVAIL, "EADDRNOTAVAIL") +#endif +#ifdef EADV +init_errno (EADV, "EADV") +#endif +#ifdef EAFNOSUPPORT +init_errno (EAFNOSUPPORT, "EAFNOSUPPORT") +#endif +#ifdef EAGAIN +init_errno (EAGAIN, "EAGAIN") +#endif +#ifdef EALREADY +init_errno (EALREADY, "EALREADY") +#endif +#ifdef EAUTH +init_errno (EAUTH, "EAUTH") +#endif +#ifdef EBADE +init_errno (EBADE, "EBADE") +#endif +#ifdef EBADF +init_errno (EBADF, "EBADF") +#endif +#ifdef EBADFD +init_errno (EBADFD, "EBADFD") +#endif +#ifdef EBADMSG +init_errno (EBADMSG, "EBADMSG") +#endif +#ifdef EBADR +init_errno (EBADR, "EBADR") +#endif +#ifdef EBADRPC +init_errno (EBADRPC, "EBADRPC") +#endif +#ifdef EBADRQC +init_errno (EBADRQC, "EBADRQC") +#endif +#ifdef EBADSLT +init_errno (EBADSLT, "EBADSLT") +#endif +#ifdef EBFONT +init_errno (EBFONT, "EBFONT") +#endif +#ifdef EBUSY +init_errno (EBUSY, "EBUSY") +#endif +#ifdef ECANCELED +init_errno (ECANCELED, "ECANCELED") +#endif +#ifdef ECHILD +init_errno (ECHILD, "ECHILD") +#endif +#ifdef ECHRNG +init_errno (ECHRNG, "ECHRNG") +#endif +#ifdef ECOMM +init_errno (ECOMM, "ECOMM") +#endif +#ifdef ECONNABORTED +init_errno (ECONNABORTED, "ECONNABORTED") +#endif +#ifdef ECONNREFUSED +init_errno (ECONNREFUSED, "ECONNREFUSED") +#endif +#ifdef ECONNRESET +init_errno (ECONNRESET, "ECONNRESET") +#endif +#ifdef EDEADLK +init_errno (EDEADLK, "EDEADLK") +#endif +#ifdef EDEADLOCK +#if !defined(EDEADLK) || (EDEADLK != EDEADLOCK) +init_errno (EDEADLOCK, "EDEADLOCK") +#endif +#endif +#ifdef EDESTADDRREQ +init_errno (EDESTADDRREQ, "EDESTADDRREQ") +#endif +#ifdef EDOM +init_errno (EDOM, "EDOM") +#endif +#ifdef EDOTDOT +init_errno (EDOTDOT, "EDOTDOT") +#endif +#ifdef EDQUOT +init_errno (EDQUOT, "EDQUOT") +#endif +#ifdef EEXIST +init_errno (EEXIST, "EEXIST") +#endif +#ifdef EFAULT +init_errno (EFAULT, "EFAULT") +#endif +#ifdef EFBIG +init_errno (EFBIG, "EFBIG") +#endif +#ifdef EFTYPE +init_errno (EFTYPE, "EFTYPE") +#endif +#ifdef EHOSTDOWN +init_errno (EHOSTDOWN, "EHOSTDOWN") +#endif +#ifdef EHOSTUNREACH +init_errno (EHOSTUNREACH, "EHOSTUNREACH") +#endif +#ifdef EIDRM +init_errno (EIDRM, "EIDRM") +#endif +#ifdef EILSEQ +init_errno (EILSEQ, "EILSEQ") +#endif +#ifdef EINPROGRESS +init_errno (EINPROGRESS, "EINPROGRESS") +#endif +#ifdef EINTR +init_errno (EINTR, "EINTR") +#endif +#ifdef EINVAL +init_errno (EINVAL, "EINVAL") +#endif +#ifdef EIO +init_errno (EIO, "EIO") +#endif +#ifdef EISCONN +init_errno (EISCONN, "EISCONN") +#endif +#ifdef EISDIR +init_errno (EISDIR, "EISDIR") +#endif +#ifdef EISNAM +init_errno (EISNAM, "EISNAM") +#endif +#ifdef EKEYEXPIRED +init_errno (EKEYEXPIRED, "EKEYEXPIRED") +#endif +#ifdef EKEYREJECTED +init_errno (EKEYREJECTED, "EKEYREJECTED") +#endif +#ifdef EKEYREVOKED +init_errno (EKEYREVOKED, "EKEYREVOKED") +#endif +#ifdef EL2HLT +init_errno (EL2HLT, "EL2HLT") +#endif +#ifdef EL2NSYNC +init_errno (EL2NSYNC, "EL2NSYNC") +#endif +#ifdef EL3HLT +init_errno (EL3HLT, "EL3HLT") +#endif +#ifdef EL3RST +init_errno (EL3RST, "EL3RST") +#endif +#ifdef ELAST +init_errno (ELAST, "ELAST") +#endif +#ifdef ELIBACC +init_errno (ELIBACC, "ELIBACC") +#endif +#ifdef ELIBBAD +init_errno (ELIBBAD, "ELIBBAD") +#endif +#ifdef ELIBEXEC +init_errno (ELIBEXEC, "ELIBEXEC") +#endif +#ifdef ELIBMAX +init_errno (ELIBMAX, "ELIBMAX") +#endif +#ifdef ELIBSCN +init_errno (ELIBSCN, "ELIBSCN") +#endif +#ifdef ELNRNG +init_errno (ELNRNG, "ELNRNG") +#endif +#ifdef ELOOP +init_errno (ELOOP, "ELOOP") +#endif +#ifdef EMEDIUMTYPE +init_errno (EMEDIUMTYPE, "EMEDIUMTYPE") +#endif +#ifdef EMFILE +init_errno (EMFILE, "EMFILE") +#endif +#ifdef EMLINK +init_errno (EMLINK, "EMLINK") +#endif +#ifdef EMSGSIZE +init_errno (EMSGSIZE, "EMSGSIZE") +#endif +#ifdef EMULTIHOP +init_errno (EMULTIHOP, "EMULTIHOP") +#endif +#ifdef ENAMETOOLONG +init_errno (ENAMETOOLONG, "ENAMETOOLONG") +#endif +#ifdef ENAVAIL +init_errno (ENAVAIL, "ENAVAIL") +#endif +#ifdef ENEEDAUTH +init_errno (ENEEDAUTH, "ENEEDAUTH") +#endif +#ifdef ENETDOWN +init_errno (ENETDOWN, "ENETDOWN") +#endif +#ifdef ENETRESET +init_errno (ENETRESET, "ENETRESET") +#endif +#ifdef ENETUNREACH +init_errno (ENETUNREACH, "ENETUNREACH") +#endif +#ifdef ENFILE +init_errno (ENFILE, "ENFILE") +#endif +#ifdef ENOANO +init_errno (ENOANO, "ENOANO") +#endif +#ifdef ENOBUFS +init_errno (ENOBUFS, "ENOBUFS") +#endif +#ifdef ENOCSI +init_errno (ENOCSI, "ENOCSI") +#endif +#ifdef ENODATA +init_errno (ENODATA, "ENODATA") +#endif +#ifdef ENODEV +init_errno (ENODEV, "ENODEV") +#endif +#ifdef ENOENT +init_errno (ENOENT, "ENOENT") +#endif +#ifdef ENOEXEC +init_errno (ENOEXEC, "ENOEXEC") +#endif +#ifdef ENOKEY +init_errno (ENOKEY, "ENOKEY") +#endif +#ifdef ENOLCK +init_errno (ENOLCK, "ENOLCK") +#endif +#ifdef ENOLINK +init_errno (ENOLINK, "ENOLINK") +#endif +#ifdef ENOMEDIUM +init_errno (ENOMEDIUM, "ENOMEDIUM") +#endif +#ifdef ENOMEM +init_errno (ENOMEM, "ENOMEM") +#endif +#ifdef ENOMSG +init_errno (ENOMSG, "ENOMSG") +#endif +#ifdef ENONET +init_errno (ENONET, "ENONET") +#endif +#ifdef ENOPKG +init_errno (ENOPKG, "ENOPKG") +#endif +#ifdef ENOPROTOOPT +init_errno (ENOPROTOOPT, "ENOPROTOOPT") +#endif +#ifdef ENOSPC +init_errno (ENOSPC, "ENOSPC") +#endif +#ifdef ENOSR +init_errno (ENOSR, "ENOSR") +#endif +#ifdef ENOSTR +init_errno (ENOSTR, "ENOSTR") +#endif +#ifdef ENOSYS +init_errno (ENOSYS, "ENOSYS") +#endif +#ifdef ENOTBLK +init_errno (ENOTBLK, "ENOTBLK") +#endif +#ifdef ENOTCONN +init_errno (ENOTCONN, "ENOTCONN") +#endif +#ifdef ENOTDIR +init_errno (ENOTDIR, "ENOTDIR") +#endif +#ifdef ENOTEMPTY +init_errno (ENOTEMPTY, "ENOTEMPTY") +#endif +#ifdef ENOTNAM +init_errno (ENOTNAM, "ENOTNAM") +#endif +#ifdef ENOTRECOVERABLE +init_errno (ENOTRECOVERABLE, "ENOTRECOVERABLE") +#endif +#ifdef ENOTSOCK +init_errno (ENOTSOCK, "ENOTSOCK") +#endif +#ifdef ENOTTY +init_errno (ENOTTY, "ENOTTY") +#endif +#ifdef ENOTUNIQ +init_errno (ENOTUNIQ, "ENOTUNIQ") +#endif +#ifdef ENXIO +init_errno (ENXIO, "ENXIO") +#endif +#ifdef EOPNOTSUPP +init_errno (EOPNOTSUPP, "EOPNOTSUPP") +#endif +#ifdef EOVERFLOW +init_errno (EOVERFLOW, "EOVERFLOW") +#endif +#ifdef EOWNERDEAD +init_errno (EOWNERDEAD, "EOWNERDEAD") +#endif +#ifdef EPERM +init_errno (EPERM, "EPERM") +#endif +#ifdef EPFNOSUPPORT +init_errno (EPFNOSUPPORT, "EPFNOSUPPORT") +#endif +#ifdef EPIPE +init_errno (EPIPE, "EPIPE") +#endif +#ifdef EPROCLIM +init_errno (EPROCLIM, "EPROCLIM") +#endif +#ifdef EPROCUNAVAIL +init_errno (EPROCUNAVAIL, "EPROCUNAVAIL") +#endif +#ifdef EPROGMISMATCH +init_errno (EPROGMISMATCH, "EPROGMISMATCH") +#endif +#ifdef EPROGUNAVAIL +init_errno (EPROGUNAVAIL, "EPROGUNAVAIL") +#endif +#ifdef EPROTO +init_errno (EPROTO, "EPROTO") +#endif +#ifdef EPROTONOSUPPORT +init_errno (EPROTONOSUPPORT, "EPROTONOSUPPORT") +#endif +#ifdef EPROTOTYPE +init_errno (EPROTOTYPE, "EPROTOTYPE") +#endif +#ifdef ERANGE +init_errno (ERANGE, "ERANGE") +#endif +#ifdef EREMCHG +init_errno (EREMCHG, "EREMCHG") +#endif +#ifdef EREMOTE +init_errno (EREMOTE, "EREMOTE") +#endif +#ifdef EREMOTEIO +init_errno (EREMOTEIO, "EREMOTEIO") +#endif +#ifdef ERESTART +init_errno (ERESTART, "ERESTART") +#endif +#ifdef ERFKILL +init_errno (ERFKILL, "ERFKILL") +#endif +#ifdef EROFS +init_errno (EROFS, "EROFS") +#endif +#ifdef ERPCMISMATCH +init_errno (ERPCMISMATCH, "ERPCMISMATCH") +#endif +#ifdef ESHUTDOWN +init_errno (ESHUTDOWN, "ESHUTDOWN") +#endif +#ifdef ESOCKTNOSUPPORT +init_errno (ESOCKTNOSUPPORT, "ESOCKTNOSUPPORT") +#endif +#ifdef ESPIPE +init_errno (ESPIPE, "ESPIPE") +#endif +#ifdef ESRCH +init_errno (ESRCH, "ESRCH") +#endif +#ifdef ESRMNT +init_errno (ESRMNT, "ESRMNT") +#endif +#ifdef ESTALE +init_errno (ESTALE, "ESTALE") +#endif +#ifdef ESTRPIPE +init_errno (ESTRPIPE, "ESTRPIPE") +#endif +#ifdef ETIME +init_errno (ETIME, "ETIME") +#endif +#ifdef ETIMEDOUT +init_errno (ETIMEDOUT, "ETIMEDOUT") +#endif +#ifdef ETOOMANYREFS +init_errno (ETOOMANYREFS, "ETOOMANYREFS") +#endif +#ifdef ETXTBSY +init_errno (ETXTBSY, "ETXTBSY") +#endif +#ifdef EUCLEAN +init_errno (EUCLEAN, "EUCLEAN") +#endif +#ifdef EUNATCH +init_errno (EUNATCH, "EUNATCH") +#endif +#ifdef EUSERS +init_errno (EUSERS, "EUSERS") +#endif +#ifdef EWOULDBLOCK +#if !defined(EAGAIN) || (EWOULDBLOCK != EAGAIN) +init_errno (EWOULDBLOCK, "EWOULDBLOCK") +#endif +#endif +#ifdef EXDEV +init_errno (EXDEV, "EXDEV") +#endif +#ifdef EXFULL +init_errno (EXFULL, "EXFULL") +#endif diff --git a/extension/errno.c b/extension/errno.c new file mode 100644 index 00000000..2eafa437 --- /dev/null +++ b/extension/errno.c @@ -0,0 +1,145 @@ +/* + * errno.c - Builtin functions to map errno values. + */ + +/* + * Copyright (C) 2013 the Free Software Foundation, Inc. + * + * This file is part of GAWK, the GNU implementation of the + * AWK Programming Language. + * + * GAWK is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * GAWK 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA + */ + +#ifdef HAVE_CONFIG_H +#include <config.h> +#endif + +#include <stdio.h> +#include <assert.h> +#include <errno.h> +#include <stdlib.h> +#include <string.h> +#include <unistd.h> + +#include <sys/types.h> +#include <sys/stat.h> + +#include "gawkapi.h" + +#include "gettext.h" +#define _(msgid) gettext(msgid) +#define N_(msgid) msgid + +static const gawk_api_t *api; /* for convenience macros to work */ +static awk_ext_id_t *ext_id; +static const char *ext_version = "errno extension: version 1.0"; +static awk_bool_t (*init_func)(void) = NULL; + +int plugin_is_GPL_compatible; + +static const char *const errno2name[] = { +#define init_errno(A, B) [A] = B, +#include "errlist.h" +#undef init_errno +}; +#define NUMERR sizeof(errno2name)/sizeof(errno2name[0]) + +/* do_strerror --- call strerror */ + +static awk_value_t * +do_strerror(int nargs, awk_value_t *result) +{ + awk_value_t errnum; + + if (do_lint && nargs > 1) + lintwarn(ext_id, _("strerror: called with too many arguments")); + + if (get_argument(0, AWK_NUMBER, & errnum)) { + const char *str = gettext(strerror(errnum.num_value)); + return make_const_string(str, strlen(str), result); + } + if (do_lint) { + if (nargs == 0) + lintwarn(ext_id, _("strerror: called with no arguments")); + else + lintwarn(ext_id, _("strerror: called with inappropriate argument(s)")); + } + return make_null_string(result); +} + +/* do_errno2name --- convert an integer errno value to it's symbolic name */ + +static awk_value_t * +do_errno2name(int nargs, awk_value_t *result) +{ + awk_value_t errnum; + const char *str; + + if (do_lint && nargs > 1) + lintwarn(ext_id, _("errno2name: called with too many arguments")); + + if (get_argument(0, AWK_NUMBER, & errnum)) { + int i = errnum.num_value; + + if ((i == errnum.num_value) && (i >= 0) && ((size_t)i < NUMERR) && errno2name[i]) + return make_const_string(errno2name[i], strlen(errno2name[i]), result); + warning(ext_id, _("errno2name: called with invalid argument")); + } else if (do_lint) { + if (nargs == 0) + lintwarn(ext_id, _("errno2name: called with no arguments")); + else + lintwarn(ext_id, _("errno2name: called with inappropriate argument(s)")); + } + return make_null_string(result); +} + +/* do_name2errno --- convert a symbolic errno name to an integer */ + +static awk_value_t * +do_name2errno(int nargs, awk_value_t *result) +{ + awk_value_t err; + const char *str; + + if (do_lint && nargs > 1) + lintwarn(ext_id, _("name2errno: called with too many arguments")); + + if (get_argument(0, AWK_STRING, & err)) { + size_t i; + + for (i = 0; i < NUMERR; i++) { + if (errno2name[i] && ! strcasecmp(err.str_value.str, errno2name[i])) + return make_number(i, result); + } + warning(ext_id, _("name2errno: called with invalid argument")); + } else if (do_lint) { + if (nargs == 0) + lintwarn(ext_id, _("name2errno: called with no arguments")); + else + lintwarn(ext_id, _("name2errno: called with inappropriate argument(s)")); + } + return make_number(-1, result); +} + +static awk_ext_func_t func_table[] = { + { "strerror", do_strerror, 1 }, + { "errno2name", do_errno2name, 1 }, + { "name2errno", do_name2errno, 1 }, +}; + +/* define the dl_load function using the boilerplate macro */ + +dl_load_func(func_table, errno, "") diff --git a/extension/select.c b/extension/select.c index 8729a59e..62116351 100644 --- a/extension/select.c +++ b/extension/select.c @@ -45,7 +45,7 @@ static const gawk_api_t *api; /* for convenience macros to work */ static awk_ext_id_t *ext_id; -static const char *ext_version = "ordchr extension: version 1.0"; +static const char *ext_version = "select extension: version 1.0"; static awk_bool_t (*init_func)(void) = NULL; int plugin_is_GPL_compatible; diff --git a/extension/siglist.h b/extension/siglist.h index dacd4a1f..7ecb8ab1 100644 --- a/extension/siglist.h +++ b/extension/siglist.h @@ -1,5 +1,5 @@ /* Canonical list of all signal names. - Copyright (C) 1996,97,98,99 Free Software Foundation, Inc. + Copyright (C) 1996-2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -13,9 +13,8 @@ Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public - License along with the GNU C Library; if not, write to the Free - Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA - 02111-1307 USA. */ + License along with the GNU C Library; if not, see + <http://www.gnu.org/licenses/>. */ /* This file should be usable for any platform, since it just associates the SIG* macros with text names and descriptions. The actual values @@ -51,7 +50,6 @@ init_sig (SIGXFSZ, "XFSZ", N_("File size limit exceeded")) init_sig (SIGVTALRM, "VTALRM", N_("Virtual timer expired")) init_sig (SIGPROF, "PROF", N_("Profiling timer expired")) - init_sig (SIGWINCH, "WINCH", N_("Window changed")) init_sig (SIGUSR1, "USR1", N_("User defined signal 1")) init_sig (SIGUSR2, "USR2", N_("User defined signal 2")) @@ -73,3 +71,6 @@ #ifdef SIGLOST init_sig (SIGLOST, "LOST", N_("Resource lost")) #endif +#ifdef SIGWINCH + init_sig (SIGWINCH, "WINCH", N_("Window changed")) +#endif |