diff options
Diffstat (limited to 'debian/vendor-h2o/deps/mruby-io/src/file_test.c')
| -rw-r--r-- | debian/vendor-h2o/deps/mruby-io/src/file_test.c | 365 |
1 files changed, 0 insertions, 365 deletions
diff --git a/debian/vendor-h2o/deps/mruby-io/src/file_test.c b/debian/vendor-h2o/deps/mruby-io/src/file_test.c deleted file mode 100644 index 6c380c4..0000000 --- a/debian/vendor-h2o/deps/mruby-io/src/file_test.c +++ /dev/null @@ -1,365 +0,0 @@ -/* -** file.c - File class -*/ - -#include "mruby.h" -#include "mruby/class.h" -#include "mruby/data.h" -#include "mruby/string.h" -#include "mruby/ext/io.h" - -#if MRUBY_RELEASE_NO < 10000 -#include "error.h" -#else -#include "mruby/error.h" -#endif - -#include <sys/types.h> -#include <sys/stat.h> - -#if defined(_WIN32) || defined(_WIN64) - #define LSTAT stat - #include <winsock.h> -#else - #define LSTAT lstat - #include <sys/file.h> - #include <sys/param.h> - #include <sys/wait.h> - #include <libgen.h> - #include <pwd.h> - #include <unistd.h> -#endif - -#include <fcntl.h> - -#include <errno.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -extern struct mrb_data_type mrb_io_type; - -static int -mrb_stat0(mrb_state *mrb, mrb_value obj, struct stat *st, int do_lstat) -{ - mrb_value tmp; - mrb_value io_klass, str_klass; - - io_klass = mrb_obj_value(mrb_class_get(mrb, "IO")); - str_klass = mrb_obj_value(mrb_class_get(mrb, "String")); - - tmp = mrb_funcall(mrb, obj, "is_a?", 1, io_klass); - if (mrb_test(tmp)) { - struct mrb_io *fptr; - fptr = (struct mrb_io *)mrb_get_datatype(mrb, obj, &mrb_io_type); - - if (fptr && fptr->fd >= 0) { - return fstat(fptr->fd, st); - } - - mrb_raise(mrb, E_IO_ERROR, "closed stream"); - return -1; - } - - tmp = mrb_funcall(mrb, obj, "is_a?", 1, str_klass); - if (mrb_test(tmp)) { - if (do_lstat) { - return LSTAT(mrb_str_to_cstr(mrb, obj), st); - } else { - return stat(mrb_str_to_cstr(mrb, obj), st); - } - } - - return -1; -} - -static int -mrb_stat(mrb_state *mrb, mrb_value obj, struct stat *st) -{ - return mrb_stat0(mrb, obj, st, 0); -} - -static int -mrb_lstat(mrb_state *mrb, mrb_value obj, struct stat *st) -{ - return mrb_stat0(mrb, obj, st, 1); -} - -/* - * Document-method: directory? - * - * call-seq: - * File.directory?(file_name) -> true or false - * - * Returns <code>true</code> if the named file is a directory, - * or a symlink that points at a directory, and <code>false</code> - * otherwise. - * - * File.directory?(".") - */ - -mrb_value -mrb_filetest_s_directory_p(mrb_state *mrb, mrb_value klass) -{ -#ifndef S_ISDIR -# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) -#endif - - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - if (S_ISDIR(st.st_mode)) - return mrb_true_value(); - - return mrb_false_value(); -} - -/* - * call-seq: - * File.pipe?(file_name) -> true or false - * - * Returns <code>true</code> if the named file is a pipe. - */ - -mrb_value -mrb_filetest_s_pipe_p(mrb_state *mrb, mrb_value klass) -{ -#ifdef S_IFIFO -# ifndef S_ISFIFO -# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) -# endif - - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - if (S_ISFIFO(st.st_mode)) - return mrb_true_value(); - -#endif - return mrb_false_value(); -} - -/* - * call-seq: - * File.symlink?(file_name) -> true or false - * - * Returns <code>true</code> if the named file is a symbolic link. - */ - -mrb_value -mrb_filetest_s_symlink_p(mrb_state *mrb, mrb_value klass) -{ -#ifndef S_ISLNK -# ifdef _S_ISLNK -# define S_ISLNK(m) _S_ISLNK(m) -# else -# ifdef _S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == _S_IFLNK) -# else -# ifdef S_IFLNK -# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) -# endif -# endif -# endif -#endif - -#ifdef S_ISLNK - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_lstat(mrb, obj, &st) == -1) - return mrb_false_value(); - if (S_ISLNK(st.st_mode)) - return mrb_true_value(); -#endif - - return mrb_false_value(); -} - -/* - * call-seq: - * File.socket?(file_name) -> true or false - * - * Returns <code>true</code> if the named file is a socket. - */ - -mrb_value -mrb_filetest_s_socket_p(mrb_state *mrb, mrb_value klass) -{ -#ifndef S_ISSOCK -# ifdef _S_ISSOCK -# define S_ISSOCK(m) _S_ISSOCK(m) -# else -# ifdef _S_IFSOCK -# define S_ISSOCK(m) (((m) & S_IFMT) == _S_IFSOCK) -# else -# ifdef S_IFSOCK -# define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK) -# endif -# endif -# endif -#endif - -#ifdef S_ISSOCK - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - if (S_ISSOCK(st.st_mode)) - return mrb_true_value(); -#endif - - return mrb_false_value(); -} - -/* - * call-seq: - * File.exist?(file_name) -> true or false - * File.exists?(file_name) -> true or false - * - * Return <code>true</code> if the named file exists. - */ - -mrb_value -mrb_filetest_s_exist_p(mrb_state *mrb, mrb_value klass) -{ - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - - return mrb_true_value(); -} - -/* - * call-seq: - * File.file?(file_name) -> true or false - * - * Returns <code>true</code> if the named file exists and is a - * regular file. - */ - -mrb_value -mrb_filetest_s_file_p(mrb_state *mrb, mrb_value klass) -{ -#ifndef S_ISREG -# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) -#endif - - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - if (S_ISREG(st.st_mode)) - return mrb_true_value(); - - return mrb_false_value(); -} - -/* - * call-seq: - * File.zero?(file_name) -> true or false - * - * Returns <code>true</code> if the named file exists and has - * a zero size. - */ - -mrb_value -mrb_filetest_s_zero_p(mrb_state *mrb, mrb_value klass) -{ - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_false_value(); - if (st.st_size == 0) - return mrb_true_value(); - - return mrb_false_value(); -} - -/* - * call-seq: - * File.size(file_name) -> integer - * - * Returns the size of <code>file_name</code>. - * - * _file_name_ can be an IO object. - */ - -mrb_value -mrb_filetest_s_size(mrb_state *mrb, mrb_value klass) -{ - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - mrb_sys_fail(mrb, "mrb_stat"); - - return mrb_fixnum_value(st.st_size); -} - -/* - * call-seq: - * File.size?(file_name) -> Integer or nil - * - * Returns +nil+ if +file_name+ doesn't exist or has zero size, the size of the - * file otherwise. - */ - -mrb_value -mrb_filetest_s_size_p(mrb_state *mrb, mrb_value klass) -{ - struct stat st; - mrb_value obj; - - mrb_get_args(mrb, "o", &obj); - - if (mrb_stat(mrb, obj, &st) < 0) - return mrb_nil_value(); - if (st.st_size == 0) - return mrb_nil_value(); - - return mrb_fixnum_value(st.st_size); -} - -void -mrb_init_file_test(mrb_state *mrb) -{ - struct RClass *f; - - f = mrb_define_class(mrb, "FileTest", mrb->object_class); - - mrb_define_class_method(mrb, f, "directory?", mrb_filetest_s_directory_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "exist?", mrb_filetest_s_exist_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "exists?", mrb_filetest_s_exist_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "file?", mrb_filetest_s_file_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "pipe?", mrb_filetest_s_pipe_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "size", mrb_filetest_s_size, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "size?", mrb_filetest_s_size_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "socket?", mrb_filetest_s_socket_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "symlink?", mrb_filetest_s_symlink_p, MRB_ARGS_REQ(1)); - mrb_define_class_method(mrb, f, "zero?", mrb_filetest_s_zero_p, MRB_ARGS_REQ(1)); -} |