diff options
Diffstat (limited to '')
-rw-r--r-- | debian/vendor-h2o/deps/mruby-dir/src/Win/dirent.c | 154 | ||||
-rw-r--r-- | debian/vendor-h2o/deps/mruby-dir/src/dir.c | 281 |
2 files changed, 0 insertions, 435 deletions
diff --git a/debian/vendor-h2o/deps/mruby-dir/src/Win/dirent.c b/debian/vendor-h2o/deps/mruby-dir/src/Win/dirent.c deleted file mode 100644 index 98728bc..0000000 --- a/debian/vendor-h2o/deps/mruby-dir/src/Win/dirent.c +++ /dev/null @@ -1,154 +0,0 @@ -/* - - Implementation of POSIX directory browsing functions and types for Win32. - - Author: Kevlin Henney (kevlin@acm.org, kevlin@curbralan.com) - History: Created March 1997. Updated June 2003 and July 2012. - Rights: See end of file. - -*/ - -#include <errno.h> -#include <io.h> /* _findfirst and _findnext set errno iff they return -1 */ -#include <stdlib.h> -#include <string.h> - -#ifdef __cplusplus -extern "C" -{ -#endif - -typedef ptrdiff_t handle_type; /* C99's intptr_t not sufficiently portable */ - -struct dirent -{ - char *d_name; -}; - -struct DIR -{ - handle_type handle; /* -1 for failed rewind */ - struct _finddata_t info; - struct dirent result; /* d_name null iff first time */ - char *name; /* null-terminated char string */ -}; - -typedef struct DIR DIR; - -DIR *opendir(const char *name) -{ - DIR *dir = 0; - - if(name && name[0]) - { - size_t base_length = strlen(name); - const char *all = /* search pattern must end with suitable wildcard */ - strchr("/\\", name[base_length - 1]) ? "*" : "/*"; - - if((dir = (DIR *) malloc(sizeof *dir)) != 0 && - (dir->name = (char *) malloc(base_length + strlen(all) + 1)) != 0) - { - strcat(strcpy(dir->name, name), all); - - if((dir->handle = - (handle_type) _findfirst(dir->name, &dir->info)) != -1) - { - dir->result.d_name = 0; - } - else /* rollback */ - { - free(dir->name); - free(dir); - dir = 0; - } - } - else /* rollback */ - { - free(dir); - dir = 0; - errno = ENOMEM; - } - } - else - { - errno = EINVAL; - } - - return dir; -} - -int closedir(DIR *dir) -{ - int result = -1; - - if(dir) - { - if(dir->handle != -1) - { - result = _findclose(dir->handle); - } - - free(dir->name); - free(dir); - } - - if(result == -1) /* map all errors to EBADF */ - { - errno = EBADF; - } - - return result; -} - -struct dirent *readdir(DIR *dir) -{ - struct dirent *result = 0; - - if(dir && dir->handle != -1) - { - if(!dir->result.d_name || _findnext(dir->handle, &dir->info) != -1) - { - result = &dir->result; - result->d_name = dir->info.name; - } - } - else - { - errno = EBADF; - } - - return result; -} - -void rewinddir(DIR *dir) -{ - if(dir && dir->handle != -1) - { - _findclose(dir->handle); - dir->handle = (handle_type) _findfirst(dir->name, &dir->info); - dir->result.d_name = 0; - } - else - { - errno = EBADF; - } -} - -#ifdef __cplusplus -} -#endif - -/* - - Copyright Kevlin Henney, 1997, 2003, 2012. All rights reserved. - - Permission to use, copy, modify, and distribute this software and its - documentation for any purpose is hereby granted without fee, provided - that this copyright and permissions notice appear in all copies and - derivatives. - - This software is supplied "as is" without express or implied warranty. - - But that said, if there are any problems please get in touch. - -*/ diff --git a/debian/vendor-h2o/deps/mruby-dir/src/dir.c b/debian/vendor-h2o/deps/mruby-dir/src/dir.c deleted file mode 100644 index 0f55ed9..0000000 --- a/debian/vendor-h2o/deps/mruby-dir/src/dir.c +++ /dev/null @@ -1,281 +0,0 @@ -/* -** dir.c - Dir -** -** See Copyright Notice in mruby.h -*/ - -#include "mruby.h" -#include "mruby/class.h" -#include "mruby/data.h" -#include "mruby/string.h" -#include "error.h" -#include <sys/types.h> -#if defined(_WIN32) || defined(_WIN64) - #define MAXPATHLEN 1024 - #if !defined(PATH_MAX) - #define PATH_MAX MAX_PATH - #endif - #define S_ISDIR(B) ((B)&_S_IFDIR) - #include "Win/dirent.c" - #include <direct.h> - #define rmdir _rmdir - #define getcwd _getcwd - #define mkdir _mkdir - #define chdir _chdir -#else - #include <sys/param.h> - #include <dirent.h> - #include <unistd.h> -#endif -#include <sys/stat.h> -#include <fcntl.h> -#include <stdio.h> -#include <stdlib.h> -#include <signal.h> -#include <string.h> - -/* with/without IO module */ -#ifdef ENABLE_IO -#include "mruby/ext/io.h" -#else -#define E_IO_ERROR E_RUNTIME_ERROR -#endif - -struct mrb_dir { - DIR *dir; -}; - -void -mrb_dir_free(mrb_state *mrb, void *ptr) -{ - struct mrb_dir *mdir = ptr; - - if (mdir->dir) { - closedir(mdir->dir); - mdir->dir = NULL; - } - mrb_free(mrb, mdir); -} - -static struct mrb_data_type mrb_dir_type = { "DIR", mrb_dir_free }; - -mrb_value -mrb_dir_close(mrb_state *mrb, mrb_value self) -{ - struct mrb_dir *mdir; - mdir = (struct mrb_dir *)mrb_get_datatype(mrb, self, &mrb_dir_type); - if (!mdir) return mrb_nil_value(); - if (!mdir->dir) { - mrb_raise(mrb, E_IO_ERROR, "closed directory"); - } - if (closedir(mdir->dir) == -1) { - mrb_sys_fail(mrb, "closedir"); - } - mdir->dir = NULL; - return mrb_nil_value(); -} - -mrb_value -mrb_dir_init(mrb_state *mrb, mrb_value self) -{ - DIR *dir; - struct mrb_dir *mdir; - mrb_value path; - char *cpath; - - mdir = (struct mrb_dir *)DATA_PTR(self); - if (mdir) { - mrb_dir_free(mrb, mdir); - } - DATA_TYPE(self) = &mrb_dir_type; - DATA_PTR(self) = NULL; - - mdir = (struct mrb_dir *)mrb_malloc(mrb, sizeof(*mdir)); - mdir->dir = NULL; - DATA_PTR(self) = mdir; - - mrb_get_args(mrb, "S", &path); - cpath = mrb_str_to_cstr(mrb, path); - if ((dir = opendir(cpath)) == NULL) { - mrb_sys_fail(mrb, cpath); - } - mdir->dir = dir; - return self; -} - -mrb_value -mrb_dir_delete(mrb_state *mrb, mrb_value klass) -{ - mrb_value path; - char *cpath; - - mrb_get_args(mrb, "S", &path); - cpath = mrb_str_to_cstr(mrb, path); - if (rmdir(cpath) == -1) { - mrb_sys_fail(mrb, cpath); - } - return mrb_fixnum_value(0); -} - -mrb_value -mrb_dir_existp(mrb_state *mrb, mrb_value klass) -{ - mrb_value path; - struct stat sb; - char *cpath; - - mrb_get_args(mrb, "S", &path); - cpath = mrb_str_to_cstr(mrb, path); - if (stat(cpath, &sb) == 0 && S_ISDIR(sb.st_mode)) { - return mrb_true_value(); - } else { - return mrb_false_value(); - } -} - -mrb_value -mrb_dir_getwd(mrb_state *mrb, mrb_value klass) -{ - mrb_value path; - - path = mrb_str_buf_new(mrb, MAXPATHLEN); - if (getcwd(RSTRING_PTR(path), MAXPATHLEN) == NULL) { - mrb_sys_fail(mrb, "getcwd(2)"); - } - mrb_str_resize(mrb, path, strlen(RSTRING_PTR(path))); - return path; -} - -mrb_value -mrb_dir_mkdir(mrb_state *mrb, mrb_value klass) -{ - mrb_int mode; - mrb_value spath; - char *path; - - mode = 0777; - mrb_get_args(mrb, "S|i", &spath, &mode); - path = mrb_str_to_cstr(mrb, spath); -#ifndef _WIN32 - if (mkdir(path, mode) == -1) { -#else - if (mkdir(path) == -1) { -#endif - mrb_sys_fail(mrb, path); - } - return mrb_fixnum_value(0); -} - -mrb_value -mrb_dir_chdir(mrb_state *mrb, mrb_value klass) -{ - mrb_value spath; - char *path; - - mrb_get_args(mrb, "S", &spath); - path = mrb_str_to_cstr(mrb, spath); - if (chdir(path) == -1) { - mrb_sys_fail(mrb, path); - } - return mrb_fixnum_value(0); -} - -mrb_value -mrb_dir_read(mrb_state *mrb, mrb_value self) -{ - struct mrb_dir *mdir; - struct dirent *dp; - - mdir = (struct mrb_dir *)mrb_get_datatype(mrb, self, &mrb_dir_type); - if (!mdir) return mrb_nil_value(); - if (!mdir->dir) { - mrb_raise(mrb, E_IO_ERROR, "closed directory"); - } - dp = readdir(mdir->dir); - if (dp != NULL) { - return mrb_str_new_cstr(mrb, dp->d_name); - } else { - return mrb_nil_value(); - } -} - -mrb_value -mrb_dir_rewind(mrb_state *mrb, mrb_value self) -{ - struct mrb_dir *mdir; - - mdir = (struct mrb_dir *)mrb_get_datatype(mrb, self, &mrb_dir_type); - if (!mdir) return mrb_nil_value(); - if (!mdir->dir) { - mrb_raise(mrb, E_IO_ERROR, "closed directory"); - } - rewinddir(mdir->dir); - return self; -} - -mrb_value -mrb_dir_seek(mrb_state *mrb, mrb_value self) -{ - #if defined(_WIN32) || defined(_WIN64) || defined(__android__) - mrb_raise(mrb, E_RUNTIME_ERROR, "dirseek() unreliable on Win platforms"); - return self; - #else - struct mrb_dir *mdir; - mrb_int pos; - - mdir = (struct mrb_dir *)mrb_get_datatype(mrb, self, &mrb_dir_type); - if (!mdir) return mrb_nil_value(); - if (!mdir->dir) { - mrb_raise(mrb, E_IO_ERROR, "closed directory"); - } - mrb_get_args(mrb, "i", &pos); - seekdir(mdir->dir, (long)pos); - return self; - #endif -} - -mrb_value -mrb_dir_tell(mrb_state *mrb, mrb_value self) -{ - #if defined(_WIN32) || defined(_WIN64) || defined(__android__) - mrb_raise(mrb, E_RUNTIME_ERROR, "dirtell() unreliable on Win platforms"); - return mrb_fixnum_value(0); - #else - struct mrb_dir *mdir; - mrb_int pos; - - mdir = (struct mrb_dir *)mrb_get_datatype(mrb, self, &mrb_dir_type); - if (!mdir) return mrb_nil_value(); - if (!mdir->dir) { - mrb_raise(mrb, E_IO_ERROR, "closed directory"); - } - pos = (mrb_int)telldir(mdir->dir); - return mrb_fixnum_value(pos); - #endif -} - -void -mrb_mruby_dir_gem_init(mrb_state *mrb) -{ - struct RClass *d; - - d = mrb_define_class(mrb, "Dir", mrb->object_class); - MRB_SET_INSTANCE_TT(d, MRB_TT_DATA); - mrb_define_class_method(mrb, d, "delete", mrb_dir_delete, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, d, "exist?", mrb_dir_existp, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, d, "getwd", mrb_dir_getwd, MRB_ARGS_NONE()); - mrb_define_class_method(mrb, d, "mkdir", mrb_dir_mkdir, MRB_ARGS_REQ(1)|MRB_ARGS_OPT(1)); - mrb_define_class_method(mrb, d, "_chdir", mrb_dir_chdir, MRB_ARGS_REQ(1)); - - mrb_define_method(mrb, d, "close", mrb_dir_close, MRB_ARGS_NONE()); - mrb_define_method(mrb, d, "initialize", mrb_dir_init, MRB_ARGS_REQ(1)); - mrb_define_method(mrb, d, "read", mrb_dir_read, MRB_ARGS_NONE()); - mrb_define_method(mrb, d, "rewind", mrb_dir_rewind, MRB_ARGS_NONE()); - mrb_define_method(mrb, d, "seek", mrb_dir_seek, MRB_ARGS_REQ(1)); - mrb_define_method(mrb, d, "tell", mrb_dir_tell, MRB_ARGS_NONE()); -} - -void -mrb_mruby_dir_gem_final(mrb_state *mrb) -{ -} |