static void test_open_noreadwrite(abts_case *tc, void *data)
{
apr_status_t rv;
apr_file_t *thefile = NULL;
rv = apr_file_open(&thefile, FILENAME,
APR_CREATE | APR_EXCL,
APR_UREAD | APR_UWRITE | APR_GREAD, p);
ABTS_TRUE(tc, rv != APR_SUCCESS);
ABTS_INT_EQUAL(tc, 1, APR_STATUS_IS_EACCES(rv));
ABTS_PTR_EQUAL(tc, NULL, thefile);
}
static void test_open_noreadwrite(CuTest *tc)
{
apr_status_t rv;
apr_file_t *thefile = NULL;
rv = apr_file_open(&thefile, FILENAME,
APR_CREATE | APR_EXCL,
APR_UREAD | APR_UWRITE | APR_GREAD, p);
CuAssertTrue(tc, rv != APR_SUCCESS);
CuAssertIntEquals(tc, 1, APR_STATUS_IS_EACCES(rv));
CuAssertPtrEquals(tc, NULL, thefile);
}
svn_error_t *
svn_cl__edit_string_externally(svn_string_t **edited_contents /* UTF-8! */,
const char **tmpfile_left /* UTF-8! */,
const char *editor_cmd,
const char *base_dir /* UTF-8! */,
const svn_string_t *contents /* UTF-8! */,
const char *filename,
apr_hash_t *config,
svn_boolean_t as_text,
const char *encoding,
apr_pool_t *pool)
{
const char *editor;
const char *cmd;
apr_file_t *tmp_file;
const char *tmpfile_name;
const char *tmpfile_native;
const char *tmpfile_apr, *base_dir_apr;
svn_string_t *translated_contents;
apr_status_t apr_err, apr_err2;
apr_size_t written;
apr_finfo_t finfo_before, finfo_after;
svn_error_t *err = SVN_NO_ERROR, *err2;
char *old_cwd;
int sys_err;
svn_boolean_t remove_file = TRUE;
SVN_ERR(find_editor_binary(&editor, editor_cmd, config));
/* Convert file contents from UTF-8/LF if desired. */
if (as_text)
{
const char *translated;
SVN_ERR(svn_subst_translate_cstring2(contents->data, &translated,
APR_EOL_STR, FALSE,
NULL, FALSE, pool));
translated_contents = svn_string_create("", pool);
if (encoding)
SVN_ERR(svn_utf_cstring_from_utf8_ex2(&translated_contents->data,
translated, encoding, pool));
else
SVN_ERR(svn_utf_cstring_from_utf8(&translated_contents->data,
translated, pool));
translated_contents->len = strlen(translated_contents->data);
}
else
translated_contents = svn_string_dup(contents, pool);
/* Move to BASE_DIR to avoid getting characters that need quoting
into tmpfile_name */
apr_err = apr_filepath_get(&old_cwd, APR_FILEPATH_NATIVE, pool);
if (apr_err)
return svn_error_wrap_apr(apr_err, _("Can't get working directory"));
/* APR doesn't like "" directories */
if (base_dir[0] == '\0')
base_dir_apr = ".";
else
SVN_ERR(svn_path_cstring_from_utf8(&base_dir_apr, base_dir, pool));
apr_err = apr_filepath_set(base_dir_apr, pool);
if (apr_err)
{
return svn_error_wrap_apr
(apr_err, _("Can't change working directory to '%s'"), base_dir);
}
/*** From here on, any problems that occur require us to cd back!! ***/
/* Ask the working copy for a temporary file named FILENAME-something. */
err = svn_io_open_uniquely_named(&tmp_file, &tmpfile_name,
"" /* dirpath */,
filename,
".tmp",
svn_io_file_del_none, pool, pool);
if (err && (APR_STATUS_IS_EACCES(err->apr_err) || err->apr_err == EROFS))
{
const char *temp_dir_apr;
svn_error_clear(err);
SVN_ERR(svn_io_temp_dir(&base_dir, pool));
SVN_ERR(svn_path_cstring_from_utf8(&temp_dir_apr, base_dir, pool));
apr_err = apr_filepath_set(temp_dir_apr, pool);
if (apr_err)
{
return svn_error_wrap_apr
(apr_err, _("Can't change working directory to '%s'"), base_dir);
}
err = svn_io_open_uniquely_named(&tmp_file, &tmpfile_name,
"" /* dirpath */,
filename,
".tmp",
svn_io_file_del_none, pool, pool);
}
if (err)
goto cleanup2;
/*** From here on, any problems that occur require us to cleanup
the file we just created!! ***/
/* Dump initial CONTENTS to TMP_FILE. */
apr_err = apr_file_write_full(tmp_file, translated_contents->data,
translated_contents->len, &written);
apr_err2 = apr_file_close(tmp_file);
if (! apr_err)
apr_err = apr_err2;
/* Make sure the whole CONTENTS were written, else return an error. */
if (apr_err)
{
err = svn_error_wrap_apr(apr_err, _("Can't write to '%s'"),
tmpfile_name);
goto cleanup;
}
err = svn_path_cstring_from_utf8(&tmpfile_apr, tmpfile_name, pool);
if (err)
goto cleanup;
/* Get information about the temporary file before the user has
been allowed to edit its contents. */
apr_err = apr_stat(&finfo_before, tmpfile_apr,
APR_FINFO_MTIME, pool);
if (apr_err)
{
err = svn_error_wrap_apr(apr_err, _("Can't stat '%s'"), tmpfile_name);
goto cleanup;
}
/* Backdate the file a little bit in case the editor is very fast
and doesn't change the size. (Use two seconds, since some
filesystems have coarse granularity.) It's OK if this call
fails, so we don't check its return value.*/
apr_file_mtime_set(tmpfile_apr, finfo_before.mtime - 2000, pool);
/* Stat it again to get the mtime we actually set. */
apr_err = apr_stat(&finfo_before, tmpfile_apr,
APR_FINFO_MTIME | APR_FINFO_SIZE, pool);
if (apr_err)
{
err = svn_error_wrap_apr(apr_err, _("Can't stat '%s'"), tmpfile_name);
goto cleanup;
}
/* Prepare the editor command line. */
err = svn_utf_cstring_from_utf8(&tmpfile_native, tmpfile_name, pool);
if (err)
goto cleanup;
cmd = apr_psprintf(pool, "%s %s", editor, tmpfile_native);
/* If the caller wants us to leave the file around, return the path
of the file we'll use, and make a note not to destroy it. */
if (tmpfile_left)
{
*tmpfile_left = svn_dirent_join(base_dir, tmpfile_name, pool);
remove_file = FALSE;
}
/* Now, run the editor command line. */
sys_err = system(cmd);
if (sys_err != 0)
{
/* Extracting any meaning from sys_err is platform specific, so just
use the raw value. */
err = svn_error_createf(SVN_ERR_EXTERNAL_PROGRAM, NULL,
_("system('%s') returned %d"), cmd, sys_err);
goto cleanup;
}
/* Get information about the temporary file after the assumed editing. */
apr_err = apr_stat(&finfo_after, tmpfile_apr,
APR_FINFO_MTIME | APR_FINFO_SIZE, pool);
if (apr_err)
{
err = svn_error_wrap_apr(apr_err, _("Can't stat '%s'"), tmpfile_name);
goto cleanup;
}
/* If the file looks changed... */
if ((finfo_before.mtime != finfo_after.mtime) ||
(finfo_before.size != finfo_after.size))
{
svn_stringbuf_t *edited_contents_s;
err = svn_stringbuf_from_file2(&edited_contents_s, tmpfile_name, pool);
if (err)
goto cleanup;
*edited_contents = svn_stringbuf__morph_into_string(edited_contents_s);
/* Translate back to UTF8/LF if desired. */
if (as_text)
{
err = svn_subst_translate_string2(edited_contents, FALSE, FALSE,
*edited_contents, encoding, FALSE,
pool, pool);
if (err)
{
err = svn_error_quick_wrap
(err,
_("Error normalizing edited contents to internal format"));
goto cleanup;
}
}
}
else
{
/* No edits seem to have been made */
*edited_contents = NULL;
}
cleanup:
if (remove_file)
{
/* Remove the file from disk. */
err2 = svn_io_remove_file2(tmpfile_name, FALSE, pool);
/* Only report remove error if there was no previous error. */
if (! err && err2)
err = err2;
else
svn_error_clear(err2);
}
cleanup2:
/* If we against all probability can't cd back, all further relative
file references would be screwed up, so we have to abort. */
apr_err = apr_filepath_set(old_cwd, pool);
if (apr_err)
{
svn_handle_error2(svn_error_wrap_apr
(apr_err, _("Can't restore working directory")),
stderr, TRUE /* fatal */, "svn: ");
}
return svn_error_trace(err);
}
void status_to_name(lua_State *L, apr_status_t status)
{
/* Use a switch statement for fast number to string mapping: */
switch (status) {
# ifdef APR_ANONYMOUS
case APR_ANONYMOUS:
lua_pushliteral(L, "ANONYMOUS");
return;
# endif
# ifdef APR_BADARG
case APR_BADARG:
lua_pushliteral(L, "BADARG");
return;
# endif
# ifdef APR_BADCH
case APR_BADCH:
lua_pushliteral(L, "BADCH");
return;
# endif
# ifdef APR_DETACH
case APR_DETACH:
lua_pushliteral(L, "DETACH");
return;
# endif
# ifdef APR_EABOVEROOT
case APR_EABOVEROOT:
lua_pushliteral(L, "EABOVEROOT");
return;
# endif
# ifdef APR_EABSOLUTE
case APR_EABSOLUTE:
lua_pushliteral(L, "EABSOLUTE");
return;
# endif
# ifdef APR_EACCES
case APR_EACCES:
lua_pushliteral(L, "EACCES");
return;
# endif
# ifdef APR_EAFNOSUPPORT
case APR_EAFNOSUPPORT:
lua_pushliteral(L, "EAFNOSUPPORT");
return;
# endif
# ifdef APR_EAGAIN
case APR_EAGAIN:
lua_pushliteral(L, "EAGAIN");
return;
# endif
# ifdef APR_EBADDATE
case APR_EBADDATE:
lua_pushliteral(L, "EBADDATE");
return;
# endif
# ifdef APR_EBADF
case APR_EBADF:
lua_pushliteral(L, "EBADF");
return;
# endif
# ifdef APR_EBADIP
case APR_EBADIP:
lua_pushliteral(L, "EBADIP");
return;
# endif
# ifdef APR_EBADMASK
case APR_EBADMASK:
lua_pushliteral(L, "EBADMASK");
return;
# endif
# ifdef APR_EBADPATH
case APR_EBADPATH:
lua_pushliteral(L, "EBADPATH");
return;
# endif
# ifdef APR_EBUSY
case APR_EBUSY:
lua_pushliteral(L, "EBUSY");
return;
# endif
# ifdef APR_ECONNABORTED
case APR_ECONNABORTED:
lua_pushliteral(L, "ECONNABORTED");
return;
# endif
# ifdef APR_ECONNREFUSED
case APR_ECONNREFUSED:
lua_pushliteral(L, "ECONNREFUSED");
return;
# endif
# ifdef APR_ECONNRESET
case APR_ECONNRESET:
lua_pushliteral(L, "ECONNRESET");
return;
# endif
# ifdef APR_EDSOOPEN
case APR_EDSOOPEN:
lua_pushliteral(L, "EDSOOPEN");
return;
# endif
# ifdef APR_EEXIST
case APR_EEXIST:
lua_pushliteral(L, "EEXIST");
return;
# endif
# ifdef APR_EFTYPE
case APR_EFTYPE:
lua_pushliteral(L, "EFTYPE");
return;
# endif
# ifdef APR_EGENERAL
case APR_EGENERAL:
lua_pushliteral(L, "EGENERAL");
return;
# endif
# ifdef APR_EHOSTUNREACH
case APR_EHOSTUNREACH:
lua_pushliteral(L, "EHOSTUNREACH");
return;
# endif
# ifdef APR_EINCOMPLETE
case APR_EINCOMPLETE:
lua_pushliteral(L, "EINCOMPLETE");
return;
# endif
# ifdef APR_EINIT
case APR_EINIT:
lua_pushliteral(L, "EINIT");
return;
# endif
# ifdef APR_EINPROGRESS
case APR_EINPROGRESS:
lua_pushliteral(L, "EINPROGRESS");
return;
# endif
# ifdef APR_EINTR
case APR_EINTR:
lua_pushliteral(L, "EINTR");
return;
# endif
# ifdef APR_EINVAL
case APR_EINVAL:
lua_pushliteral(L, "EINVAL");
return;
# endif
# ifdef APR_EINVALSOCK
case APR_EINVALSOCK:
lua_pushliteral(L, "EINVALSOCK");
return;
# endif
# ifdef APR_EMFILE
case APR_EMFILE:
lua_pushliteral(L, "EMFILE");
return;
# endif
# ifdef APR_EMISMATCH
case APR_EMISMATCH:
lua_pushliteral(L, "EMISMATCH");
return;
# endif
# ifdef APR_ENAMETOOLONG
case APR_ENAMETOOLONG:
lua_pushliteral(L, "ENAMETOOLONG");
return;
# endif
# ifdef APR_ENETUNREACH
case APR_ENETUNREACH:
lua_pushliteral(L, "ENETUNREACH");
return;
# endif
# ifdef APR_ENFILE
case APR_ENFILE:
lua_pushliteral(L, "ENFILE");
return;
# endif
# ifdef APR_ENODIR
case APR_ENODIR:
lua_pushliteral(L, "ENODIR");
return;
# endif
# ifdef APR_ENOENT
case APR_ENOENT:
lua_pushliteral(L, "ENOENT");
return;
# endif
# ifdef APR_ENOLOCK
case APR_ENOLOCK:
lua_pushliteral(L, "ENOLOCK");
return;
# endif
# ifdef APR_ENOMEM
case APR_ENOMEM:
lua_pushliteral(L, "ENOMEM");
return;
# endif
# ifdef APR_ENOPOLL
case APR_ENOPOLL:
lua_pushliteral(L, "ENOPOLL");
return;
# endif
# ifdef APR_ENOPOOL
case APR_ENOPOOL:
lua_pushliteral(L, "ENOPOOL");
return;
# endif
# ifdef APR_ENOPROC
case APR_ENOPROC:
lua_pushliteral(L, "ENOPROC");
return;
# endif
# ifdef APR_ENOSHMAVAIL
case APR_ENOSHMAVAIL:
lua_pushliteral(L, "ENOSHMAVAIL");
return;
# endif
# ifdef APR_ENOSOCKET
case APR_ENOSOCKET:
lua_pushliteral(L, "ENOSOCKET");
return;
# endif
# ifdef APR_ENOSPC
case APR_ENOSPC:
lua_pushliteral(L, "ENOSPC");
return;
# endif
# ifdef APR_ENOSTAT
case APR_ENOSTAT:
lua_pushliteral(L, "ENOSTAT");
return;
# endif
# ifdef APR_ENOTDIR
case APR_ENOTDIR:
lua_pushliteral(L, "ENOTDIR");
return;
# endif
# ifdef APR_ENOTEMPTY
case APR_ENOTEMPTY:
lua_pushliteral(L, "ENOTEMPTY");
return;
# endif
# ifdef APR_ENOTENOUGHENTROPY
case APR_ENOTENOUGHENTROPY:
lua_pushliteral(L, "ENOTENOUGHENTROPY");
return;
# endif
# ifdef APR_ENOTHDKEY
case APR_ENOTHDKEY:
lua_pushliteral(L, "ENOTHDKEY");
return;
# endif
# ifdef APR_ENOTHREAD
case APR_ENOTHREAD:
lua_pushliteral(L, "ENOTHREAD");
return;
# endif
# ifdef APR_ENOTIME
case APR_ENOTIME:
lua_pushliteral(L, "ENOTIME");
return;
# endif
# ifdef APR_ENOTIMPL
case APR_ENOTIMPL:
lua_pushliteral(L, "ENOTIMPL");
return;
# endif
# ifdef APR_ENOTSOCK
case APR_ENOTSOCK:
lua_pushliteral(L, "ENOTSOCK");
return;
# endif
# ifdef APR_EOF
case APR_EOF:
lua_pushliteral(L, "EOF");
return;
# endif
# ifdef APR_EPATHWILD
case APR_EPATHWILD:
lua_pushliteral(L, "EPATHWILD");
return;
# endif
# ifdef APR_EPIPE
case APR_EPIPE:
lua_pushliteral(L, "EPIPE");
return;
# endif
# ifdef APR_EPROC_UNKNOWN
case APR_EPROC_UNKNOWN:
lua_pushliteral(L, "EPROC_UNKNOWN");
return;
# endif
# ifdef APR_ERELATIVE
case APR_ERELATIVE:
lua_pushliteral(L, "ERELATIVE");
return;
# endif
# ifdef APR_ESPIPE
case APR_ESPIPE:
lua_pushliteral(L, "ESPIPE");
return;
# endif
# ifdef APR_ESYMNOTFOUND
case APR_ESYMNOTFOUND:
lua_pushliteral(L, "ESYMNOTFOUND");
return;
# endif
# ifdef APR_ETIMEDOUT
case APR_ETIMEDOUT:
lua_pushliteral(L, "ETIMEDOUT");
return;
# endif
# ifdef APR_EXDEV
case APR_EXDEV:
lua_pushliteral(L, "EXDEV");
return;
# endif
# ifdef APR_FILEBASED
case APR_FILEBASED:
lua_pushliteral(L, "FILEBASED");
return;
# endif
# ifdef APR_INCHILD
case APR_INCHILD:
lua_pushliteral(L, "INCHILD");
return;
# endif
# ifdef APR_INCOMPLETE
case APR_INCOMPLETE:
lua_pushliteral(L, "INCOMPLETE");
return;
# endif
# ifdef APR_INPARENT
case APR_INPARENT:
lua_pushliteral(L, "INPARENT");
return;
# endif
# ifdef APR_KEYBASED
case APR_KEYBASED:
lua_pushliteral(L, "KEYBASED");
return;
# endif
# ifdef APR_NOTDETACH
case APR_NOTDETACH:
lua_pushliteral(L, "NOTDETACH");
return;
# endif
# ifdef APR_NOTFOUND
case APR_NOTFOUND:
lua_pushliteral(L, "NOTFOUND");
return;
# endif
# ifdef APR_SUCCESS
case APR_SUCCESS:
lua_pushliteral(L, "SUCCESS");
return;
# endif
# ifdef APR_TIMEUP
case APR_TIMEUP:
lua_pushliteral(L, "TIMEUP");
return;
# endif
}
/* If the switch statement fails we fall back to the following monstrosity :-) */
if (0) ;
# ifdef APR_STATUS_IS_ANONYMOUS
else if (APR_STATUS_IS_ANONYMOUS(status)) {
lua_pushliteral(L, "ANONYMOUS");
return;
}
# endif
# ifdef APR_STATUS_IS_BADARG
else if (APR_STATUS_IS_BADARG(status)) {
lua_pushliteral(L, "BADARG");
return;
}
# endif
# ifdef APR_STATUS_IS_BADCH
else if (APR_STATUS_IS_BADCH(status)) {
lua_pushliteral(L, "BADCH");
return;
}
# endif
# ifdef APR_STATUS_IS_DETACH
else if (APR_STATUS_IS_DETACH(status)) {
lua_pushliteral(L, "DETACH");
return;
}
# endif
# ifdef APR_STATUS_IS_EABOVEROOT
else if (APR_STATUS_IS_EABOVEROOT(status)) {
lua_pushliteral(L, "EABOVEROOT");
return;
}
# endif
# ifdef APR_STATUS_IS_EABSOLUTE
else if (APR_STATUS_IS_EABSOLUTE(status)) {
lua_pushliteral(L, "EABSOLUTE");
return;
}
# endif
# ifdef APR_STATUS_IS_EACCES
else if (APR_STATUS_IS_EACCES(status)) {
lua_pushliteral(L, "EACCES");
return;
}
# endif
# ifdef APR_STATUS_IS_EAFNOSUPPORT
else if (APR_STATUS_IS_EAFNOSUPPORT(status)) {
lua_pushliteral(L, "EAFNOSUPPORT");
return;
}
# endif
# ifdef APR_STATUS_IS_EAGAIN
else if (APR_STATUS_IS_EAGAIN(status)) {
lua_pushliteral(L, "EAGAIN");
return;
}
# endif
# ifdef APR_STATUS_IS_EBADDATE
else if (APR_STATUS_IS_EBADDATE(status)) {
lua_pushliteral(L, "EBADDATE");
return;
}
# endif
# ifdef APR_STATUS_IS_EBADF
else if (APR_STATUS_IS_EBADF(status)) {
lua_pushliteral(L, "EBADF");
return;
}
# endif
# ifdef APR_STATUS_IS_EBADIP
else if (APR_STATUS_IS_EBADIP(status)) {
lua_pushliteral(L, "EBADIP");
return;
}
# endif
# ifdef APR_STATUS_IS_EBADMASK
else if (APR_STATUS_IS_EBADMASK(status)) {
lua_pushliteral(L, "EBADMASK");
return;
}
# endif
# ifdef APR_STATUS_IS_EBADPATH
else if (APR_STATUS_IS_EBADPATH(status)) {
lua_pushliteral(L, "EBADPATH");
return;
}
# endif
# ifdef APR_STATUS_IS_EBUSY
else if (APR_STATUS_IS_EBUSY(status)) {
lua_pushliteral(L, "EBUSY");
return;
}
# endif
# ifdef APR_STATUS_IS_ECONNABORTED
else if (APR_STATUS_IS_ECONNABORTED(status)) {
lua_pushliteral(L, "ECONNABORTED");
return;
}
# endif
# ifdef APR_STATUS_IS_ECONNREFUSED
else if (APR_STATUS_IS_ECONNREFUSED(status)) {
lua_pushliteral(L, "ECONNREFUSED");
return;
}
# endif
# ifdef APR_STATUS_IS_ECONNRESET
else if (APR_STATUS_IS_ECONNRESET(status)) {
lua_pushliteral(L, "ECONNRESET");
return;
}
# endif
# ifdef APR_STATUS_IS_EDSOOPEN
else if (APR_STATUS_IS_EDSOOPEN(status)) {
lua_pushliteral(L, "EDSOOPEN");
return;
}
# endif
# ifdef APR_STATUS_IS_EEXIST
else if (APR_STATUS_IS_EEXIST(status)) {
lua_pushliteral(L, "EEXIST");
return;
}
# endif
# ifdef APR_STATUS_IS_EFTYPE
else if (APR_STATUS_IS_EFTYPE(status)) {
lua_pushliteral(L, "EFTYPE");
return;
}
# endif
# ifdef APR_STATUS_IS_EGENERAL
else if (APR_STATUS_IS_EGENERAL(status)) {
lua_pushliteral(L, "EGENERAL");
return;
}
# endif
# ifdef APR_STATUS_IS_EHOSTUNREACH
else if (APR_STATUS_IS_EHOSTUNREACH(status)) {
lua_pushliteral(L, "EHOSTUNREACH");
return;
}
# endif
# ifdef APR_STATUS_IS_EINCOMPLETE
else if (APR_STATUS_IS_EINCOMPLETE(status)) {
lua_pushliteral(L, "EINCOMPLETE");
return;
}
# endif
# ifdef APR_STATUS_IS_EINIT
else if (APR_STATUS_IS_EINIT(status)) {
lua_pushliteral(L, "EINIT");
return;
}
# endif
# ifdef APR_STATUS_IS_EINPROGRESS
else if (APR_STATUS_IS_EINPROGRESS(status)) {
lua_pushliteral(L, "EINPROGRESS");
return;
}
# endif
# ifdef APR_STATUS_IS_EINTR
else if (APR_STATUS_IS_EINTR(status)) {
lua_pushliteral(L, "EINTR");
return;
}
# endif
# ifdef APR_STATUS_IS_EINVAL
else if (APR_STATUS_IS_EINVAL(status)) {
lua_pushliteral(L, "EINVAL");
return;
}
# endif
# ifdef APR_STATUS_IS_EINVALSOCK
else if (APR_STATUS_IS_EINVALSOCK(status)) {
lua_pushliteral(L, "EINVALSOCK");
return;
}
# endif
# ifdef APR_STATUS_IS_EMFILE
else if (APR_STATUS_IS_EMFILE(status)) {
lua_pushliteral(L, "EMFILE");
return;
}
# endif
# ifdef APR_STATUS_IS_EMISMATCH
else if (APR_STATUS_IS_EMISMATCH(status)) {
lua_pushliteral(L, "EMISMATCH");
return;
}
# endif
# ifdef APR_STATUS_IS_ENAMETOOLONG
else if (APR_STATUS_IS_ENAMETOOLONG(status)) {
lua_pushliteral(L, "ENAMETOOLONG");
return;
}
# endif
# ifdef APR_STATUS_IS_ENETUNREACH
else if (APR_STATUS_IS_ENETUNREACH(status)) {
lua_pushliteral(L, "ENETUNREACH");
return;
}
# endif
# ifdef APR_STATUS_IS_ENFILE
else if (APR_STATUS_IS_ENFILE(status)) {
lua_pushliteral(L, "ENFILE");
return;
}
# endif
# ifdef APR_STATUS_IS_ENODIR
else if (APR_STATUS_IS_ENODIR(status)) {
lua_pushliteral(L, "ENODIR");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOENT
else if (APR_STATUS_IS_ENOENT(status)) {
lua_pushliteral(L, "ENOENT");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOLOCK
else if (APR_STATUS_IS_ENOLOCK(status)) {
lua_pushliteral(L, "ENOLOCK");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOMEM
else if (APR_STATUS_IS_ENOMEM(status)) {
lua_pushliteral(L, "ENOMEM");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOPOLL
else if (APR_STATUS_IS_ENOPOLL(status)) {
lua_pushliteral(L, "ENOPOLL");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOPOOL
else if (APR_STATUS_IS_ENOPOOL(status)) {
lua_pushliteral(L, "ENOPOOL");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOPROC
else if (APR_STATUS_IS_ENOPROC(status)) {
lua_pushliteral(L, "ENOPROC");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOSHMAVAIL
else if (APR_STATUS_IS_ENOSHMAVAIL(status)) {
lua_pushliteral(L, "ENOSHMAVAIL");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOSOCKET
else if (APR_STATUS_IS_ENOSOCKET(status)) {
lua_pushliteral(L, "ENOSOCKET");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOSPC
else if (APR_STATUS_IS_ENOSPC(status)) {
lua_pushliteral(L, "ENOSPC");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOSTAT
else if (APR_STATUS_IS_ENOSTAT(status)) {
lua_pushliteral(L, "ENOSTAT");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTDIR
else if (APR_STATUS_IS_ENOTDIR(status)) {
lua_pushliteral(L, "ENOTDIR");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTEMPTY
else if (APR_STATUS_IS_ENOTEMPTY(status)) {
lua_pushliteral(L, "ENOTEMPTY");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTENOUGHENTROPY
else if (APR_STATUS_IS_ENOTENOUGHENTROPY(status)) {
lua_pushliteral(L, "ENOTENOUGHENTROPY");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTHDKEY
else if (APR_STATUS_IS_ENOTHDKEY(status)) {
lua_pushliteral(L, "ENOTHDKEY");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTHREAD
else if (APR_STATUS_IS_ENOTHREAD(status)) {
lua_pushliteral(L, "ENOTHREAD");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTIME
else if (APR_STATUS_IS_ENOTIME(status)) {
lua_pushliteral(L, "ENOTIME");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTIMPL
else if (APR_STATUS_IS_ENOTIMPL(status)) {
lua_pushliteral(L, "ENOTIMPL");
return;
}
# endif
# ifdef APR_STATUS_IS_ENOTSOCK
else if (APR_STATUS_IS_ENOTSOCK(status)) {
lua_pushliteral(L, "ENOTSOCK");
return;
}
# endif
# ifdef APR_STATUS_IS_EOF
else if (APR_STATUS_IS_EOF(status)) {
lua_pushliteral(L, "EOF");
return;
}
# endif
# ifdef APR_STATUS_IS_EPATHWILD
else if (APR_STATUS_IS_EPATHWILD(status)) {
lua_pushliteral(L, "EPATHWILD");
return;
}
# endif
# ifdef APR_STATUS_IS_EPIPE
else if (APR_STATUS_IS_EPIPE(status)) {
lua_pushliteral(L, "EPIPE");
return;
}
# endif
# ifdef APR_STATUS_IS_EPROC_UNKNOWN
else if (APR_STATUS_IS_EPROC_UNKNOWN(status)) {
lua_pushliteral(L, "EPROC_UNKNOWN");
return;
}
# endif
# ifdef APR_STATUS_IS_ERELATIVE
else if (APR_STATUS_IS_ERELATIVE(status)) {
lua_pushliteral(L, "ERELATIVE");
return;
}
# endif
# ifdef APR_STATUS_IS_ESPIPE
else if (APR_STATUS_IS_ESPIPE(status)) {
lua_pushliteral(L, "ESPIPE");
return;
}
# endif
# ifdef APR_STATUS_IS_ESYMNOTFOUND
else if (APR_STATUS_IS_ESYMNOTFOUND(status)) {
lua_pushliteral(L, "ESYMNOTFOUND");
return;
}
# endif
# ifdef APR_STATUS_IS_ETIMEDOUT
else if (APR_STATUS_IS_ETIMEDOUT(status)) {
lua_pushliteral(L, "ETIMEDOUT");
return;
}
# endif
# ifdef APR_STATUS_IS_EXDEV
else if (APR_STATUS_IS_EXDEV(status)) {
lua_pushliteral(L, "EXDEV");
return;
}
# endif
# ifdef APR_STATUS_IS_FILEBASED
else if (APR_STATUS_IS_FILEBASED(status)) {
lua_pushliteral(L, "FILEBASED");
return;
}
# endif
# ifdef APR_STATUS_IS_INCHILD
else if (APR_STATUS_IS_INCHILD(status)) {
lua_pushliteral(L, "INCHILD");
return;
}
# endif
# ifdef APR_STATUS_IS_INCOMPLETE
else if (APR_STATUS_IS_INCOMPLETE(status)) {
lua_pushliteral(L, "INCOMPLETE");
return;
}
# endif
# ifdef APR_STATUS_IS_INPARENT
else if (APR_STATUS_IS_INPARENT(status)) {
lua_pushliteral(L, "INPARENT");
return;
}
# endif
# ifdef APR_STATUS_IS_KEYBASED
else if (APR_STATUS_IS_KEYBASED(status)) {
lua_pushliteral(L, "KEYBASED");
return;
}
# endif
# ifdef APR_STATUS_IS_NOTDETACH
else if (APR_STATUS_IS_NOTDETACH(status)) {
lua_pushliteral(L, "NOTDETACH");
return;
}
# endif
# ifdef APR_STATUS_IS_NOTFOUND
else if (APR_STATUS_IS_NOTFOUND(status)) {
lua_pushliteral(L, "NOTFOUND");
return;
}
# endif
# ifdef APR_STATUS_IS_TIMEUP
else if (APR_STATUS_IS_TIMEUP(status)) {
lua_pushliteral(L, "TIMEUP");
return;
}
# endif
lua_pushinteger(L, status);
}
