/ext/spl/spl_directory.c
C | 2931 lines | 2298 code | 328 blank | 305 comment | 346 complexity | b835413e7c9873cc8785f3b168e2b19c MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, LGPL-2.1, BSD-3-Clause
Large files files are truncated, but you can click here to view the full file
- /*
- +----------------------------------------------------------------------+
- | PHP Version 5 |
- +----------------------------------------------------------------------+
- | Copyright (c) 1997-2011 The PHP Group |
- +----------------------------------------------------------------------+
- | This source file is subject to version 3.01 of the PHP license, |
- | that is bundled with this package in the file LICENSE, and is |
- | available through the world-wide-web at the following url: |
- | http://www.php.net/license/3_01.txt |
- | If you did not receive a copy of the PHP license and are unable to |
- | obtain it through the world-wide-web, please send a note to |
- | license@php.net so we can mail you a copy immediately. |
- +----------------------------------------------------------------------+
- | Author: Marcus Boerger <helly@php.net> |
- +----------------------------------------------------------------------+
- */
- /* $Id: spl_directory.c 309035 2011-03-08 19:56:29Z felipe $ */
- #ifdef HAVE_CONFIG_H
- # include "config.h"
- #endif
- #include "php.h"
- #include "php_ini.h"
- #include "ext/standard/info.h"
- #include "ext/standard/file.h"
- #include "ext/standard/php_string.h"
- #include "zend_compile.h"
- #include "zend_exceptions.h"
- #include "zend_interfaces.h"
- #include "php_spl.h"
- #include "spl_functions.h"
- #include "spl_engine.h"
- #include "spl_iterators.h"
- #include "spl_directory.h"
- #include "spl_exceptions.h"
- #include "php.h"
- #include "fopen_wrappers.h"
- #include "ext/standard/basic_functions.h"
- #include "ext/standard/php_filestat.h"
- #define SPL_HAS_FLAG(flags, test_flag) ((flags & test_flag) ? 1 : 0)
- /* declare the class handlers */
- static zend_object_handlers spl_filesystem_object_handlers;
- /* decalre the class entry */
- PHPAPI zend_class_entry *spl_ce_SplFileInfo;
- PHPAPI zend_class_entry *spl_ce_DirectoryIterator;
- PHPAPI zend_class_entry *spl_ce_FilesystemIterator;
- PHPAPI zend_class_entry *spl_ce_RecursiveDirectoryIterator;
- PHPAPI zend_class_entry *spl_ce_GlobIterator;
- PHPAPI zend_class_entry *spl_ce_SplFileObject;
- PHPAPI zend_class_entry *spl_ce_SplTempFileObject;
- static void spl_filesystem_file_free_line(spl_filesystem_object *intern TSRMLS_DC) /* {{{ */
- {
- if (intern->u.file.current_line) {
- efree(intern->u.file.current_line);
- intern->u.file.current_line = NULL;
- }
- if (intern->u.file.current_zval) {
- zval_ptr_dtor(&intern->u.file.current_zval);
- intern->u.file.current_zval = NULL;
- }
- } /* }}} */
- static void spl_filesystem_object_free_storage(void *object TSRMLS_DC) /* {{{ */
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)object;
- if (intern->oth_handler && intern->oth_handler->dtor) {
- intern->oth_handler->dtor(intern TSRMLS_CC);
- }
-
- zend_object_std_dtor(&intern->std TSRMLS_CC);
-
- if (intern->_path) {
- efree(intern->_path);
- }
- if (intern->file_name) {
- efree(intern->file_name);
- }
- switch(intern->type) {
- case SPL_FS_INFO:
- break;
- case SPL_FS_DIR:
- if (intern->u.dir.dirp) {
- php_stream_close(intern->u.dir.dirp);
- intern->u.dir.dirp = NULL;
- }
- if (intern->u.dir.sub_path) {
- efree(intern->u.dir.sub_path);
- }
- break;
- case SPL_FS_FILE:
- if (intern->u.file.stream) {
- if (intern->u.file.zcontext) {
- /* zend_list_delref(Z_RESVAL_P(intern->zcontext));*/
- }
- if (!intern->u.file.stream->is_persistent) {
- php_stream_free(intern->u.file.stream, PHP_STREAM_FREE_CLOSE);
- } else {
- php_stream_free(intern->u.file.stream, PHP_STREAM_FREE_CLOSE_PERSISTENT);
- }
- if (intern->u.file.open_mode) {
- efree(intern->u.file.open_mode);
- }
- if (intern->orig_path) {
- efree(intern->orig_path);
- }
- }
- spl_filesystem_file_free_line(intern TSRMLS_CC);
- break;
- }
- efree(object);
- } /* }}} */
- /* {{{ spl_ce_dir_object_new */
- /* creates the object by
- - allocating memory
- - initializing the object members
- - storing the object
- - setting it's handlers
- called from
- - clone
- - new
- */
- static zend_object_value spl_filesystem_object_new_ex(zend_class_entry *class_type, spl_filesystem_object **obj TSRMLS_DC)
- {
- zend_object_value retval;
- spl_filesystem_object *intern;
- zval *tmp;
- intern = emalloc(sizeof(spl_filesystem_object));
- memset(intern, 0, sizeof(spl_filesystem_object));
- /* intern->type = SPL_FS_INFO; done by set 0 */
- intern->file_class = spl_ce_SplFileObject;
- intern->info_class = spl_ce_SplFileInfo;
- if (obj) *obj = intern;
- zend_object_std_init(&intern->std, class_type TSRMLS_CC);
- zend_hash_copy(intern->std.properties, &class_type->default_properties, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
- retval.handle = zend_objects_store_put(intern, (zend_objects_store_dtor_t) zend_objects_destroy_object, (zend_objects_free_object_storage_t) spl_filesystem_object_free_storage, NULL TSRMLS_CC);
- retval.handlers = &spl_filesystem_object_handlers;
- return retval;
- }
- /* }}} */
- /* {{{ spl_filesystem_object_new */
- /* See spl_filesystem_object_new_ex */
- static zend_object_value spl_filesystem_object_new(zend_class_entry *class_type TSRMLS_DC)
- {
- return spl_filesystem_object_new_ex(class_type, NULL TSRMLS_CC);
- }
- /* }}} */
- PHPAPI char* spl_filesystem_object_get_path(spl_filesystem_object *intern, int *len TSRMLS_DC) /* {{{ */
- {
- #ifdef HAVE_GLOB
- if (intern->type == SPL_FS_DIR) {
- if (php_stream_is(intern->u.dir.dirp ,&php_glob_stream_ops)) {
- return php_glob_stream_get_path(intern->u.dir.dirp, 0, len);
- }
- }
- #endif
- if (len) {
- *len = intern->_path_len;
- }
- return intern->_path;
- } /* }}} */
- static inline void spl_filesystem_object_get_file_name(spl_filesystem_object *intern TSRMLS_DC) /* {{{ */
- {
- char slash = SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_UNIXPATHS) ? '/' : DEFAULT_SLASH;
- if (!intern->file_name) {
- switch (intern->type) {
- case SPL_FS_INFO:
- case SPL_FS_FILE:
- php_error_docref(NULL TSRMLS_CC, E_ERROR, "Object not initialized");
- break;
- case SPL_FS_DIR:
- intern->file_name_len = spprintf(&intern->file_name, 0, "%s%c%s",
- spl_filesystem_object_get_path(intern, NULL TSRMLS_CC),
- slash, intern->u.dir.entry.d_name);
- break;
- }
- }
- } /* }}} */
- static int spl_filesystem_dir_read(spl_filesystem_object *intern TSRMLS_DC) /* {{{ */
- {
- if (!intern->u.dir.dirp || !php_stream_readdir(intern->u.dir.dirp, &intern->u.dir.entry)) {
- intern->u.dir.entry.d_name[0] = '\0';
- return 0;
- } else {
- return 1;
- }
- }
- /* }}} */
- #define IS_SLASH_AT(zs, pos) (IS_SLASH(zs[pos]))
- static inline int spl_filesystem_is_dot(const char * d_name) /* {{{ */
- {
- return !strcmp(d_name, ".") || !strcmp(d_name, "..");
- }
- /* }}} */
- /* {{{ spl_filesystem_dir_open */
- /* open a directory resource */
- static void spl_filesystem_dir_open(spl_filesystem_object* intern, char *path TSRMLS_DC)
- {
- int skip_dots = SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_SKIPDOTS);
- intern->type = SPL_FS_DIR;
- intern->_path_len = strlen(path);
- intern->u.dir.dirp = php_stream_opendir(path, ENFORCE_SAFE_MODE|REPORT_ERRORS, NULL);
- if (intern->_path_len > 1 && IS_SLASH_AT(path, intern->_path_len-1)) {
- intern->_path = estrndup(path, --intern->_path_len);
- } else {
- intern->_path = estrndup(path, intern->_path_len);
- }
- intern->u.dir.index = 0;
- if (EG(exception) || intern->u.dir.dirp == NULL) {
- /* throw exception: should've been already happened */
- intern->u.dir.entry.d_name[0] = '\0';
- } else {
- do {
- spl_filesystem_dir_read(intern TSRMLS_CC);
- } while (skip_dots && spl_filesystem_is_dot(intern->u.dir.entry.d_name));
- }
- }
- /* }}} */
- static int spl_filesystem_file_open(spl_filesystem_object *intern, int use_include_path, int silent TSRMLS_DC) /* {{{ */
- {
- intern->type = SPL_FS_FILE;
- intern->u.file.context = php_stream_context_from_zval(intern->u.file.zcontext, 0);
- intern->u.file.stream = php_stream_open_wrapper_ex(intern->file_name, intern->u.file.open_mode, (use_include_path ? USE_PATH : 0) | ENFORCE_SAFE_MODE | REPORT_ERRORS, NULL, intern->u.file.context);
- if (!intern->file_name_len || !intern->u.file.stream) {
- if (!EG(exception)) {
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Cannot open file '%s'", intern->file_name_len ? intern->file_name : "");
- }
- intern->file_name = NULL; /* until here it is not a copy */
- intern->u.file.open_mode = NULL;
- return FAILURE;
- }
- if (intern->u.file.zcontext) {
- zend_list_addref(Z_RESVAL_P(intern->u.file.zcontext));
- }
- if (intern->file_name_len > 1 && IS_SLASH_AT(intern->file_name, intern->file_name_len-1)) {
- intern->file_name_len--;
- }
- intern->orig_path = estrndup(intern->u.file.stream->orig_path, strlen(intern->u.file.stream->orig_path));
- intern->file_name = estrndup(intern->file_name, intern->file_name_len);
- intern->u.file.open_mode = estrndup(intern->u.file.open_mode, intern->u.file.open_mode_len);
- /* avoid reference counting in debug mode, thus do it manually */
- ZVAL_RESOURCE(&intern->u.file.zresource, php_stream_get_resource_id(intern->u.file.stream));
- Z_SET_REFCOUNT(intern->u.file.zresource, 1);
-
- intern->u.file.delimiter = ',';
- intern->u.file.enclosure = '"';
- intern->u.file.escape = '\\';
- zend_hash_find(&intern->std.ce->function_table, "getcurrentline", sizeof("getcurrentline"), (void **) &intern->u.file.func_getCurr);
- return SUCCESS;
- } /* }}} */
- /* {{{ spl_filesystem_object_clone */
- /* Local zend_object_value creation (on stack)
- Load the 'other' object
- Create a new empty object (See spl_filesystem_object_new_ex)
- Open the directory
- Clone other members (properties)
- */
- static zend_object_value spl_filesystem_object_clone(zval *zobject TSRMLS_DC)
- {
- zend_object_value new_obj_val;
- zend_object *old_object;
- zend_object *new_object;
- zend_object_handle handle = Z_OBJ_HANDLE_P(zobject);
- spl_filesystem_object *intern;
- spl_filesystem_object *source;
- int index, skip_dots;
- old_object = zend_objects_get_address(zobject TSRMLS_CC);
- source = (spl_filesystem_object*)old_object;
- new_obj_val = spl_filesystem_object_new_ex(old_object->ce, &intern TSRMLS_CC);
- new_object = &intern->std;
- intern->flags = source->flags;
- switch (source->type) {
- case SPL_FS_INFO:
- intern->_path_len = source->_path_len;
- intern->_path = estrndup(source->_path, source->_path_len);
- intern->file_name_len = source->file_name_len;
- intern->file_name = estrndup(source->file_name, intern->file_name_len);
- break;
- case SPL_FS_DIR:
- spl_filesystem_dir_open(intern, source->_path TSRMLS_CC);
- /* read until we hit the position in which we were before */
- skip_dots = SPL_HAS_FLAG(source->flags, SPL_FILE_DIR_SKIPDOTS);
- for(index = 0; index < source->u.dir.index; ++index) {
- do {
- spl_filesystem_dir_read(intern TSRMLS_CC);
- } while (skip_dots && spl_filesystem_is_dot(intern->u.dir.entry.d_name));
- }
- intern->u.dir.index = index;
- break;
- case SPL_FS_FILE:
- php_error_docref(NULL TSRMLS_CC, E_ERROR, "An object of class %s cannot be cloned", old_object->ce->name);
- break;
- }
-
- intern->file_class = source->file_class;
- intern->info_class = source->info_class;
- intern->oth = source->oth;
- intern->oth_handler = source->oth_handler;
- zend_objects_clone_members(new_object, new_obj_val, old_object, handle TSRMLS_CC);
- if (intern->oth_handler && intern->oth_handler->clone) {
- intern->oth_handler->clone(source, intern TSRMLS_CC);
- }
- return new_obj_val;
- }
- /* }}} */
- void spl_filesystem_info_set_filename(spl_filesystem_object *intern, char *path, int len, int use_copy TSRMLS_DC) /* {{{ */
- {
- char *p1, *p2;
- intern->file_name = use_copy ? estrndup(path, len) : path;
- intern->file_name_len = len;
- while(IS_SLASH_AT(intern->file_name, intern->file_name_len-1) && intern->file_name_len > 1) {
- intern->file_name[intern->file_name_len-1] = 0;
- intern->file_name_len--;
- }
- p1 = strrchr(intern->file_name, '/');
- #if defined(PHP_WIN32) || defined(NETWARE)
- p2 = strrchr(intern->file_name, '\\');
- #else
- p2 = 0;
- #endif
- if (p1 || p2) {
- intern->_path_len = (p1 > p2 ? p1 : p2) - intern->file_name;
- } else {
- intern->_path_len = 0;
- }
- intern->_path = estrndup(path, intern->_path_len);
- } /* }}} */
- static spl_filesystem_object * spl_filesystem_object_create_info(spl_filesystem_object *source, char *file_path, int file_path_len, int use_copy, zend_class_entry *ce, zval *return_value TSRMLS_DC) /* {{{ */
- {
- spl_filesystem_object *intern;
- zval *arg1;
- zend_error_handling error_handling;
- if (!file_path || !file_path_len) {
- #if defined(PHP_WIN32)
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Cannot create SplFileInfo for empty path");
- if (file_path && !use_copy) {
- efree(file_path);
- }
- #else
- if (file_path && !use_copy) {
- efree(file_path);
- }
- use_copy = 1;
- file_path_len = 1;
- file_path = "/";
- #endif
- return NULL;
- }
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);
- ce = ce ? ce : source->info_class;
- zend_update_class_constants(ce TSRMLS_CC);
- return_value->value.obj = spl_filesystem_object_new_ex(ce, &intern TSRMLS_CC);
- Z_TYPE_P(return_value) = IS_OBJECT;
- if (ce->constructor->common.scope != spl_ce_SplFileInfo) {
- MAKE_STD_ZVAL(arg1);
- ZVAL_STRINGL(arg1, file_path, file_path_len, use_copy);
- zend_call_method_with_1_params(&return_value, ce, &ce->constructor, "__construct", NULL, arg1);
- zval_ptr_dtor(&arg1);
- } else {
- spl_filesystem_info_set_filename(intern, file_path, file_path_len, use_copy TSRMLS_CC);
- }
-
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return intern;
- } /* }}} */
- static spl_filesystem_object * spl_filesystem_object_create_type(int ht, spl_filesystem_object *source, int type, zend_class_entry *ce, zval *return_value TSRMLS_DC) /* {{{ */
- {
- spl_filesystem_object *intern;
- zend_bool use_include_path = 0;
- zval *arg1, *arg2;
- zend_error_handling error_handling;
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);
- switch (source->type) {
- case SPL_FS_INFO:
- case SPL_FS_FILE:
- break;
- case SPL_FS_DIR:
- if (!source->u.dir.entry.d_name[0]) {
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Could not open file");
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return NULL;
- }
- }
- switch (type) {
- case SPL_FS_INFO:
- ce = ce ? ce : source->info_class;
- zend_update_class_constants(ce TSRMLS_CC);
- return_value->value.obj = spl_filesystem_object_new_ex(ce, &intern TSRMLS_CC);
- Z_TYPE_P(return_value) = IS_OBJECT;
- spl_filesystem_object_get_file_name(source TSRMLS_CC);
- if (ce->constructor->common.scope != spl_ce_SplFileInfo) {
- MAKE_STD_ZVAL(arg1);
- ZVAL_STRINGL(arg1, source->file_name, source->file_name_len, 1);
- zend_call_method_with_1_params(&return_value, ce, &ce->constructor, "__construct", NULL, arg1);
- zval_ptr_dtor(&arg1);
- } else {
- intern->file_name = estrndup(source->file_name, source->file_name_len);
- intern->file_name_len = source->file_name_len;
- intern->_path = spl_filesystem_object_get_path(source, &intern->_path_len TSRMLS_CC);
- intern->_path = estrndup(intern->_path, intern->_path_len);
- }
- break;
- case SPL_FS_FILE:
- ce = ce ? ce : source->file_class;
- zend_update_class_constants(ce TSRMLS_CC);
- return_value->value.obj = spl_filesystem_object_new_ex(ce, &intern TSRMLS_CC);
- Z_TYPE_P(return_value) = IS_OBJECT;
-
- spl_filesystem_object_get_file_name(source TSRMLS_CC);
- if (ce->constructor->common.scope != spl_ce_SplFileObject) {
- MAKE_STD_ZVAL(arg1);
- MAKE_STD_ZVAL(arg2);
- ZVAL_STRINGL(arg1, source->file_name, source->file_name_len, 1);
- ZVAL_STRINGL(arg2, "r", 1, 1);
- zend_call_method_with_2_params(&return_value, ce, &ce->constructor, "__construct", NULL, arg1, arg2);
- zval_ptr_dtor(&arg1);
- zval_ptr_dtor(&arg2);
- } else {
- intern->file_name = source->file_name;
- intern->file_name_len = source->file_name_len;
- intern->_path = spl_filesystem_object_get_path(source, &intern->_path_len TSRMLS_CC);
- intern->_path = estrndup(intern->_path, intern->_path_len);
-
- intern->u.file.open_mode = "r";
- intern->u.file.open_mode_len = 1;
-
- if (ht && zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|sbr",
- &intern->u.file.open_mode, &intern->u.file.open_mode_len,
- &use_include_path, &intern->u.file.zcontext) == FAILURE) {
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- intern->u.file.open_mode = NULL;
- intern->file_name = NULL;
- zval_dtor(return_value);
- Z_TYPE_P(return_value) = IS_NULL;
- return NULL;
- }
-
- if (spl_filesystem_file_open(intern, use_include_path, 0 TSRMLS_CC) == FAILURE) {
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- zval_dtor(return_value);
- Z_TYPE_P(return_value) = IS_NULL;
- return NULL;
- }
- }
- break;
- case SPL_FS_DIR:
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Operation not supported");
- return NULL;
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return NULL;
- } /* }}} */
- static int spl_filesystem_is_invalid_or_dot(const char * d_name) /* {{{ */
- {
- return d_name[0] == '\0' || spl_filesystem_is_dot(d_name);
- }
- /* }}} */
- static char *spl_filesystem_object_get_pathname(spl_filesystem_object *intern, int *len TSRMLS_DC) { /* {{{ */
- switch (intern->type) {
- case SPL_FS_INFO:
- case SPL_FS_FILE:
- *len = intern->file_name_len;
- return intern->file_name;
- case SPL_FS_DIR:
- if (intern->u.dir.entry.d_name[0]) {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- *len = intern->file_name_len;
- return intern->file_name;
- }
- }
- *len = 0;
- return NULL;
- }
- /* }}} */
- static HashTable* spl_filesystem_object_get_debug_info(zval *obj, int *is_temp TSRMLS_DC) /* {{{ */
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(obj TSRMLS_CC);
- HashTable *rv;
- zval *tmp, zrv;
- char *pnstr, *path;
- int pnlen, path_len;
- char stmp[2];
- *is_temp = 1;
- ALLOC_HASHTABLE(rv);
- ZEND_INIT_SYMTABLE_EX(rv, zend_hash_num_elements(intern->std.properties) + 3, 0);
- INIT_PZVAL(&zrv);
- Z_ARRVAL(zrv) = rv;
- zend_hash_copy(rv, intern->std.properties, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
- pnstr = spl_gen_private_prop_name(spl_ce_SplFileInfo, "pathName", sizeof("pathName")-1, &pnlen TSRMLS_CC);
- path = spl_filesystem_object_get_pathname(intern, &path_len TSRMLS_CC);
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, path, path_len, 1);
- efree(pnstr);
- if (intern->file_name) {
- pnstr = spl_gen_private_prop_name(spl_ce_SplFileInfo, "fileName", sizeof("fileName")-1, &pnlen TSRMLS_CC);
- spl_filesystem_object_get_path(intern, &path_len TSRMLS_CC);
-
- if (path_len && path_len < intern->file_name_len) {
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, intern->file_name + path_len + 1, intern->file_name_len - (path_len + 1), 1);
- } else {
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, intern->file_name, intern->file_name_len, 1);
- }
- efree(pnstr);
- }
- if (intern->type == SPL_FS_DIR) {
- #ifdef HAVE_GLOB
- pnstr = spl_gen_private_prop_name(spl_ce_DirectoryIterator, "glob", sizeof("glob")-1, &pnlen TSRMLS_CC);
- if (php_stream_is(intern->u.dir.dirp ,&php_glob_stream_ops)) {
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, intern->_path, intern->_path_len, 1);
- } else {
- add_assoc_bool_ex(&zrv, pnstr, pnlen+1, 0);
- }
- efree(pnstr);
- #endif
- pnstr = spl_gen_private_prop_name(spl_ce_RecursiveDirectoryIterator, "subPathName", sizeof("subPathName")-1, &pnlen TSRMLS_CC);
- if (intern->u.dir.sub_path) {
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, intern->u.dir.sub_path, intern->u.dir.sub_path_len, 1);
- } else {
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, "", 0, 1);
- }
- efree(pnstr);
- }
- if (intern->type == SPL_FS_FILE) {
- pnstr = spl_gen_private_prop_name(spl_ce_SplFileObject, "openMode", sizeof("openMode")-1, &pnlen TSRMLS_CC);
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, intern->u.file.open_mode, intern->u.file.open_mode_len, 1);
- efree(pnstr);
- stmp[1] = '\0';
- stmp[0] = intern->u.file.delimiter;
- pnstr = spl_gen_private_prop_name(spl_ce_SplFileObject, "delimiter", sizeof("delimiter")-1, &pnlen TSRMLS_CC);
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, stmp, 1, 1);
- efree(pnstr);
- stmp[0] = intern->u.file.enclosure;
- pnstr = spl_gen_private_prop_name(spl_ce_SplFileObject, "enclosure", sizeof("enclosure")-1, &pnlen TSRMLS_CC);
- add_assoc_stringl_ex(&zrv, pnstr, pnlen+1, stmp, 1, 1);
- efree(pnstr);
- }
- return rv;
- }
- /* }}} */
- #define DIT_CTOR_FLAGS 0x00000001
- #define DIT_CTOR_GLOB 0x00000002
- void spl_filesystem_object_construct(INTERNAL_FUNCTION_PARAMETERS, long ctor_flags) /* {{{ */
- {
- spl_filesystem_object *intern;
- char *path;
- int parsed, len;
- long flags;
- zend_error_handling error_handling;
- zend_replace_error_handling(EH_THROW, spl_ce_UnexpectedValueException, &error_handling TSRMLS_CC);
- if (SPL_HAS_FLAG(ctor_flags, DIT_CTOR_FLAGS)) {
- flags = SPL_FILE_DIR_KEY_AS_PATHNAME|SPL_FILE_DIR_CURRENT_AS_FILEINFO;
- parsed = zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|l", &path, &len, &flags);
- } else {
- flags = SPL_FILE_DIR_KEY_AS_PATHNAME|SPL_FILE_DIR_CURRENT_AS_SELF;
- parsed = zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &path, &len);
- }
- if (SPL_HAS_FLAG(ctor_flags, SPL_FILE_DIR_SKIPDOTS)) {
- flags |= SPL_FILE_DIR_SKIPDOTS;
- }
- if (SPL_HAS_FLAG(ctor_flags, SPL_FILE_DIR_UNIXPATHS)) {
- flags |= SPL_FILE_DIR_UNIXPATHS;
- }
- if (parsed == FAILURE) {
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return;
- }
- if (!len) {
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Directory name must not be empty.");
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return;
- }
- intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- intern->flags = flags;
- #ifdef HAVE_GLOB
- if (SPL_HAS_FLAG(ctor_flags, DIT_CTOR_GLOB) && strstr(path, "glob://") != path) {
- spprintf(&path, 0, "glob://%s", path);
- spl_filesystem_dir_open(intern, path TSRMLS_CC);
- efree(path);
- } else
- #endif
- {
- spl_filesystem_dir_open(intern, path TSRMLS_CC);
- }
- intern->u.dir.is_recursive = instanceof_function(intern->std.ce, spl_ce_RecursiveDirectoryIterator TSRMLS_CC) ? 1 : 0;
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto void DirectoryIterator::__construct(string path)
- Cronstructs a new dir iterator from a path. */
- SPL_METHOD(DirectoryIterator, __construct)
- {
- spl_filesystem_object_construct(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0);
- }
- /* }}} */
- /* {{{ proto void DirectoryIterator::rewind()
- Rewind dir back to the start */
- SPL_METHOD(DirectoryIterator, rewind)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- intern->u.dir.index = 0;
- if (intern->u.dir.dirp) {
- php_stream_rewinddir(intern->u.dir.dirp);
- }
- spl_filesystem_dir_read(intern TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto string DirectoryIterator::key()
- Return current dir entry */
- SPL_METHOD(DirectoryIterator, key)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (intern->u.dir.dirp) {
- RETURN_LONG(intern->u.dir.index);
- } else {
- RETURN_FALSE;
- }
- }
- /* }}} */
- /* {{{ proto DirectoryIterator DirectoryIterator::current()
- Return this (needed for Iterator interface) */
- SPL_METHOD(DirectoryIterator, current)
- {
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- RETURN_ZVAL(getThis(), 1, 0);
- }
- /* }}} */
- /* {{{ proto void DirectoryIterator::next()
- Move to next entry */
- SPL_METHOD(DirectoryIterator, next)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- int skip_dots = SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_SKIPDOTS);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- intern->u.dir.index++;
- do {
- spl_filesystem_dir_read(intern TSRMLS_CC);
- } while (skip_dots && spl_filesystem_is_dot(intern->u.dir.entry.d_name));
- if (intern->file_name) {
- efree(intern->file_name);
- intern->file_name = NULL;
- }
- }
- /* }}} */
- /* {{{ proto void DirectoryIterator::seek(int position)
- Seek to the given position */
- SPL_METHOD(DirectoryIterator, seek)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- zval *retval = NULL;
- long pos;
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &pos) == FAILURE) {
- return;
- }
- if (intern->u.dir.index > pos) {
- /* we first rewind */
- zend_call_method_with_0_params(&this_ptr, Z_OBJCE_P(getThis()), &intern->u.dir.func_rewind, "rewind", &retval);
- if (retval) {
- zval_ptr_dtor(&retval);
- }
- }
- while (intern->u.dir.index < pos) {
- int valid = 0;
- zend_call_method_with_0_params(&this_ptr, Z_OBJCE_P(getThis()), &intern->u.dir.func_valid, "valid", &retval);
- if (retval) {
- valid = zend_is_true(retval);
- zval_ptr_dtor(&retval);
- }
- if (!valid) {
- break;
- }
- zend_call_method_with_0_params(&this_ptr, Z_OBJCE_P(getThis()), &intern->u.dir.func_next, "next", &retval);
- if (retval) {
- zval_ptr_dtor(&retval);
- }
- }
- } /* }}} */
- /* {{{ proto string DirectoryIterator::valid()
- Check whether dir contains more entries */
- SPL_METHOD(DirectoryIterator, valid)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- RETURN_BOOL(intern->u.dir.entry.d_name[0] != '\0');
- }
- /* }}} */
- /* {{{ proto string SplFileInfo::getPath()
- Return the path */
- SPL_METHOD(SplFileInfo, getPath)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *path;
- int path_len;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- path = spl_filesystem_object_get_path(intern, &path_len TSRMLS_CC);
- RETURN_STRINGL(path, path_len, 1);
- }
- /* }}} */
- /* {{{ proto string SplFileInfo::getFilename()
- Return filename only */
- SPL_METHOD(SplFileInfo, getFilename)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- int path_len;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- spl_filesystem_object_get_path(intern, &path_len TSRMLS_CC);
-
- if (path_len && path_len < intern->file_name_len) {
- RETURN_STRINGL(intern->file_name + path_len + 1, intern->file_name_len - (path_len + 1), 1);
- } else {
- RETURN_STRINGL(intern->file_name, intern->file_name_len, 1);
- }
- }
- /* }}} */
- /* {{{ proto string DirectoryIterator::getFilename()
- Return filename of current dir entry */
- SPL_METHOD(DirectoryIterator, getFilename)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- RETURN_STRING(intern->u.dir.entry.d_name, 1);
- }
- /* }}} */
- /* {{{ proto string SplFileInfo::getExtension()
- Returns file extension component of path */
- SPL_METHOD(SplFileInfo, getExtension)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *fname = NULL;
- const char *p;
- size_t flen;
- int path_len, idx;
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- spl_filesystem_object_get_path(intern, &path_len TSRMLS_CC);
- if (path_len && path_len < intern->file_name_len) {
- fname = intern->file_name + path_len + 1;
- flen = intern->file_name_len - (path_len + 1);
- } else {
- fname = intern->file_name;
- flen = intern->file_name_len;
- }
- php_basename(fname, flen, NULL, 0, &fname, &flen TSRMLS_CC);
- p = zend_memrchr(fname, '.', flen);
- if (p) {
- idx = p - fname;
- RETVAL_STRINGL(fname + idx + 1, flen - idx - 1, 1);
- efree(fname);
- return;
- } else {
- if (fname) {
- efree(fname);
- }
- RETURN_EMPTY_STRING();
- }
- }
- /* }}}*/
- /* {{{ proto string DirectoryIterator::getExtension()
- Returns the file extension component of path */
- SPL_METHOD(DirectoryIterator, getExtension)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *fname = NULL;
- const char *p;
- size_t flen;
- int idx;
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- php_basename(intern->u.dir.entry.d_name, strlen(intern->u.dir.entry.d_name), NULL, 0, &fname, &flen TSRMLS_CC);
- p = zend_memrchr(fname, '.', flen);
- if (p) {
- idx = p - fname;
- RETVAL_STRINGL(fname + idx + 1, flen - idx - 1, 1);
- efree(fname);
- return;
- } else {
- if (fname) {
- efree(fname);
- }
- RETURN_EMPTY_STRING();
- }
- }
- /* }}} */
- /* {{{ proto string SplFileInfo::getBasename([string $suffix]) U
- Returns filename component of path */
- SPL_METHOD(SplFileInfo, getBasename)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *fname, *suffix = 0;
- size_t flen;
- int slen = 0, path_len;
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &suffix, &slen) == FAILURE) {
- return;
- }
- spl_filesystem_object_get_path(intern, &path_len TSRMLS_CC);
- if (path_len && path_len < intern->file_name_len) {
- fname = intern->file_name + path_len + 1;
- flen = intern->file_name_len - (path_len + 1);
- } else {
- fname = intern->file_name;
- flen = intern->file_name_len;
- }
- php_basename(fname, flen, suffix, slen, &fname, &flen TSRMLS_CC);
- RETURN_STRINGL(fname, flen, 0);
- }
- /* }}}*/
- /* {{{ proto string DirectoryIterator::getBasename([string $suffix]) U
- Returns filename component of current dir entry */
- SPL_METHOD(DirectoryIterator, getBasename)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *suffix = 0, *fname;
- int slen = 0;
- size_t flen;
-
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|s", &suffix, &slen) == FAILURE) {
- return;
- }
- php_basename(intern->u.dir.entry.d_name, strlen(intern->u.dir.entry.d_name), suffix, slen, &fname, &flen TSRMLS_CC);
- RETURN_STRINGL(fname, flen, 0);
- }
- /* }}} */
- /* {{{ proto string SplFileInfo::getPathname()
- Return path and filename */
- SPL_METHOD(SplFileInfo, getPathname)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *path;
- int path_len;
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- path = spl_filesystem_object_get_pathname(intern, &path_len TSRMLS_CC);
- if (path != NULL) {
- RETURN_STRINGL(path, path_len, 1);
- } else {
- RETURN_FALSE;
- }
- }
- /* }}} */
- /* {{{ proto string FilesystemIterator::key()
- Return getPathname() or getFilename() depending on flags */
- SPL_METHOD(FilesystemIterator, key)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (SPL_FILE_DIR_KEY(intern, SPL_FILE_DIR_KEY_AS_FILENAME)) {
- RETURN_STRING(intern->u.dir.entry.d_name, 1);
- } else {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- RETURN_STRINGL(intern->file_name, intern->file_name_len, 1);
- }
- }
- /* }}} */
- /* {{{ proto string FilesystemIterator::current()
- Return getFilename(), getFileInfo() or $this depending on flags */
- SPL_METHOD(FilesystemIterator, current)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (SPL_FILE_DIR_CURRENT(intern, SPL_FILE_DIR_CURRENT_AS_PATHNAME)) {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- RETURN_STRINGL(intern->file_name, intern->file_name_len, 1);
- } else if (SPL_FILE_DIR_CURRENT(intern, SPL_FILE_DIR_CURRENT_AS_FILEINFO)) {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- spl_filesystem_object_create_type(0, intern, SPL_FS_INFO, NULL, return_value TSRMLS_CC);
- } else {
- RETURN_ZVAL(getThis(), 1, 0);
- /*RETURN_STRING(intern->u.dir.entry.d_name, 1);*/
- }
- }
- /* }}} */
- /* {{{ proto bool DirectoryIterator::isDot()
- Returns true if current entry is '.' or '..' */
- SPL_METHOD(DirectoryIterator, isDot)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- RETURN_BOOL(spl_filesystem_is_dot(intern->u.dir.entry.d_name));
- }
- /* }}} */
- /* {{{ proto void SplFileInfo::__construct(string file_name)
- Cronstructs a new SplFileInfo from a path. */
- /* zend_replace_error_handling() is used to throw exceptions in case
- the constructor fails. Here we use this to ensure the object
- has a valid directory resource.
-
- When the constructor gets called the object is already created
- by the engine, so we must only call 'additional' initializations.
- */
- SPL_METHOD(SplFileInfo, __construct)
- {
- spl_filesystem_object *intern;
- char *path;
- int len;
- zend_error_handling error_handling;
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &path, &len) == FAILURE) {
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- return;
- }
- intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- spl_filesystem_info_set_filename(intern, path, len, 1 TSRMLS_CC);
- zend_restore_error_handling(&error_handling TSRMLS_CC);
-
- /* intern->type = SPL_FS_INFO; already set */
- }
- /* }}} */
- /* {{{ FileInfoFunction */
- #define FileInfoFunction(func_name, func_num) \
- SPL_METHOD(SplFileInfo, func_name) \
- { \
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC); \
- zend_error_handling error_handling; \
- if (zend_parse_parameters_none() == FAILURE) { \
- return; \
- } \
- \
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);\
- spl_filesystem_object_get_file_name(intern TSRMLS_CC); \
- php_stat(intern->file_name, intern->file_name_len, func_num, return_value TSRMLS_CC); \
- zend_restore_error_handling(&error_handling TSRMLS_CC); \
- }
- /* }}} */
- /* {{{ proto int SplFileInfo::getPerms()
- Get file permissions */
- FileInfoFunction(getPerms, FS_PERMS)
- /* }}} */
- /* {{{ proto int SplFileInfo::getInode()
- Get file inode */
- FileInfoFunction(getInode, FS_INODE)
- /* }}} */
- /* {{{ proto int SplFileInfo::getSize()
- Get file size */
- FileInfoFunction(getSize, FS_SIZE)
- /* }}} */
- /* {{{ proto int SplFileInfo::getOwner()
- Get file owner */
- FileInfoFunction(getOwner, FS_OWNER)
- /* }}} */
- /* {{{ proto int SplFileInfo::getGroup()
- Get file group */
- FileInfoFunction(getGroup, FS_GROUP)
- /* }}} */
- /* {{{ proto int SplFileInfo::getATime()
- Get last access time of file */
- FileInfoFunction(getATime, FS_ATIME)
- /* }}} */
- /* {{{ proto int SplFileInfo::getMTime()
- Get last modification time of file */
- FileInfoFunction(getMTime, FS_MTIME)
- /* }}} */
- /* {{{ proto int SplFileInfo::getCTime()
- Get inode modification time of file */
- FileInfoFunction(getCTime, FS_CTIME)
- /* }}} */
- /* {{{ proto string SplFileInfo::getType()
- Get file type */
- FileInfoFunction(getType, FS_TYPE)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isWritable()
- Returns true if file can be written */
- FileInfoFunction(isWritable, FS_IS_W)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isReadable()
- Returns true if file can be read */
- FileInfoFunction(isReadable, FS_IS_R)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isExecutable()
- Returns true if file is executable */
- FileInfoFunction(isExecutable, FS_IS_X)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isFile()
- Returns true if file is a regular file */
- FileInfoFunction(isFile, FS_IS_FILE)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isDir()
- Returns true if file is directory */
- FileInfoFunction(isDir, FS_IS_DIR)
- /* }}} */
- /* {{{ proto bool SplFileInfo::isLink()
- Returns true if file is symbolic link */
- FileInfoFunction(isLink, FS_IS_LINK)
- /* }}} */
- /* {{{ proto string SplFileInfo::getLinkTarget() U
- Return the target of a symbolic link */
- SPL_METHOD(SplFileInfo, getLinkTarget)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- int ret;
- char buff[MAXPATHLEN];
- zend_error_handling error_handling;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);
- #if defined(PHP_WIN32) || HAVE_SYMLINK
- if (!IS_ABSOLUTE_PATH(intern->file_name, intern->file_name_len)) {
- char expanded_path[MAXPATHLEN];
- /* TODO: Fix expand_filepath to do not resolve links but only expand the path
- avoiding double two resolution attempts
- (Pierre) */
- if (!expand_filepath(intern->file_name, expanded_path TSRMLS_CC)) {
- php_error_docref(NULL TSRMLS_CC, E_WARNING, "No such file or directory");
- RETURN_FALSE;
- }
- ret = php_sys_readlink(expanded_path, buff, MAXPATHLEN - 1);
- } else {
- ret = php_sys_readlink(intern->file_name, buff, MAXPATHLEN-1);
- }
- #else
- ret = -1; /* always fail if not implemented */
- #endif
- if (ret == -1) {
- zend_throw_exception_ex(spl_ce_RuntimeException, 0 TSRMLS_CC, "Unable to read link %s, error: %s", intern->file_name, strerror(errno));
- RETVAL_FALSE;
- } else {
- /* Append NULL to the end of the string */
- buff[ret] = '\0';
- RETVAL_STRINGL(buff, ret, 1);
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- #if (!defined(__BEOS__) && !defined(NETWARE) && HAVE_REALPATH) || defined(ZTS)
- /* {{{ proto string SplFileInfo::getRealPath()
- Return the resolved path */
- SPL_METHOD(SplFileInfo, getRealPath)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char buff[MAXPATHLEN];
- char *filename;
- zend_error_handling error_handling;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- zend_replace_error_handling(EH_THROW, spl_ce_RuntimeException, &error_handling TSRMLS_CC);
- if (intern->type == SPL_FS_DIR && !intern->file_name && intern->u.dir.entry.d_name[0]) {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- }
-
- if (intern->orig_path) {
- filename = intern->orig_path;
- } else {
- filename = intern->file_name;
- }
- if (filename && VCWD_REALPATH(filename, buff)) {
- #ifdef ZTS
- if (VCWD_ACCESS(buff, F_OK)) {
- RETVAL_FALSE;
- } else
- #endif
- RETVAL_STRING(buff, 1);
- } else {
- RETVAL_FALSE;
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- #endif
- /* {{{ proto SplFileObject SplFileInfo::openFile([string mode = 'r' [, bool use_include_path [, resource context]]])
- Open the current file */
- SPL_METHOD(SplFileInfo, openFile)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- spl_filesystem_object_create_type(ht, intern, SPL_FS_FILE, NULL, return_value TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto void SplFileInfo::setFileClass([string class_name])
- Class to use in openFile() */
- SPL_METHOD(SplFileInfo, setFileClass)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- zend_class_entry *ce = spl_ce_SplFileObject;
- zend_error_handling error_handling;
-
- zend_replace_error_handling(EH_THROW, spl_ce_UnexpectedValueException, &error_handling TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|C", &ce) == SUCCESS) {
- intern->file_class = ce;
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto void SplFileInfo::setInfoClass([string class_name])
- Class to use in getFileInfo(), getPathInfo() */
- SPL_METHOD(SplFileInfo, setInfoClass)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- zend_class_entry *ce = spl_ce_SplFileInfo;
- zend_error_handling error_handling;
-
- zend_replace_error_handling(EH_THROW, spl_ce_UnexpectedValueException, &error_handling TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|C", &ce) == SUCCESS) {
- intern->info_class = ce;
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto SplFileInfo SplFileInfo::getFileInfo([string $class_name])
- Get/copy file info */
- SPL_METHOD(SplFileInfo, getFileInfo)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- zend_class_entry *ce = intern->info_class;
- zend_error_handling error_handling;
-
- zend_replace_error_handling(EH_THROW, spl_ce_UnexpectedValueException, &error_handling TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|C", &ce) == SUCCESS) {
- spl_filesystem_object_create_type(ht, intern, SPL_FS_INFO, ce, return_value TSRMLS_CC);
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto SplFileInfo SplFileInfo::getPathInfo([string $class_name])
- Get/copy file info */
- SPL_METHOD(SplFileInfo, getPathInfo)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- zend_class_entry *ce = intern->info_class;
- zend_error_handling error_handling;
-
- zend_replace_error_handling(EH_THROW, spl_ce_UnexpectedValueException, &error_handling TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|C", &ce) == SUCCESS) {
- int path_len;
- char *path = spl_filesystem_object_get_pathname(intern, &path_len TSRMLS_CC);
- if (path) {
- char *dpath = estrndup(path, path_len);
- path_len = php_dirname(dpath, path_len);
- spl_filesystem_object_create_info(intern, dpath, path_len, 1, ce, return_value TSRMLS_CC);
- efree(dpath);
- }
- }
- zend_restore_error_handling(&error_handling TSRMLS_CC);
- }
- /* }}} */
- /* {{{ proto void FilesystemIterator::__construct(string path [, int flags])
- Cronstructs a new dir iterator from a path. */
- SPL_METHOD(FilesystemIterator, __construct)
- {
- spl_filesystem_object_construct(INTERNAL_FUNCTION_PARAM_PASSTHRU, DIT_CTOR_FLAGS | SPL_FILE_DIR_SKIPDOTS);
- }
- /* }}} */
- /* {{{ proto void FilesystemIterator::rewind()
- Rewind dir back to the start */
- SPL_METHOD(FilesystemIterator, rewind)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- intern->u.dir.index = 0;
- if (intern->u.dir.dirp) {
- php_stream_rewinddir(intern->u.dir.dirp);
- }
- do {
- spl_filesystem_dir_read(intern TSRMLS_CC);
- } while (spl_filesystem_is_dot(intern->u.dir.entry.d_name));
- }
- /* }}} */
- /* {{{ proto int FilesystemIterator::getFlags()
- Get handling flags */
- SPL_METHOD(FilesystemIterator, getFlags)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- RETURN_LONG(intern->flags & (SPL_FILE_DIR_KEY_MODE_MASK | SPL_FILE_DIR_CURRENT_MODE_MASK | SPL_FILE_DIR_OTHERS_MASK));
- } /* }}} */
- /* {{{ proto void FilesystemIterator::setFlags(long $flags)
- Set handling flags */
- SPL_METHOD(FilesystemIterator, setFlags)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- long flags;
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &flags) == FAILURE) {
- return;
- }
- intern->flags &= ~(SPL_FILE_DIR_KEY_MODE_MASK|SPL_FILE_DIR_CURRENT_MODE_MASK|SPL_FILE_DIR_OTHERS_MASK);
- intern->flags |= ((SPL_FILE_DIR_KEY_MODE_MASK|SPL_FILE_DIR_CURRENT_MODE_MASK|SPL_FILE_DIR_OTHERS_MASK) & flags);
- } /* }}} */
- /* {{{ proto bool RecursiveDirectoryIterator::hasChildren([bool $allow_links = false])
- Returns whether current entry is a directory and not '.' or '..' */
- SPL_METHOD(RecursiveDirectoryIterator, hasChildren)
- {
- zend_bool allow_links = 0;
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|b", &allow_links) == FAILURE) {
- return;
- }
- if (spl_filesystem_is_invalid_or_dot(intern->u.dir.entry.d_name)) {
- RETURN_FALSE;
- } else {
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- if (!allow_links && !(intern->flags & SPL_FILE_DIR_FOLLOW_SYMLINKS)) {
- php_stat(intern->file_name, intern->file_name_len, FS_IS_LINK, return_value TSRMLS_CC);
- if (zend_is_true(return_value)) {
- RETURN_FALSE;
- }
- }
- php_stat(intern->file_name, intern->file_name_len, FS_IS_DIR, return_value TSRMLS_CC);
- }
- }
- /* }}} */
- /* {{{ proto RecursiveDirectoryIterator DirectoryIterator::getChildren()
- Returns an iterator for the current entry if it is a directory */
- SPL_METHOD(RecursiveDirectoryIterator, getChildren)
- {
- zval zpath, zflags;
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- spl_filesystem_object *subdir;
- char slash = SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_UNIXPATHS) ? '/' : DEFAULT_SLASH;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
-
- spl_filesystem_object_get_file_name(intern TSRMLS_CC);
- if (SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_CURRENT_AS_PATHNAME)) {
- RETURN_STRINGL(intern->file_name, intern->file_name_len, 1);
- } else {
- INIT_PZVAL(&zflags);
- INIT_PZVAL(&zpath);
- ZVAL_LONG(&zflags, intern->flags);
- ZVAL_STRINGL(&zpath, intern->file_name, intern->file_name_len, 0);
- spl_instantiate_arg_ex2(Z_OBJCE_P(getThis()), &return_value, 0, &zpath, &zflags TSRMLS_CC);
-
- subdir = (spl_filesystem_object*)zend_object_store_get_object(return_value TSRMLS_CC);
- if (subdir) {
- if (intern->u.dir.sub_path && intern->u.dir.sub_path[0]) {
- subdir->u.dir.sub_path_len = spprintf(&subdir->u.dir.sub_path, 0, "%s%c%s", intern->u.dir.sub_path, slash, intern->u.dir.entry.d_name);
- } else {
- subdir->u.dir.sub_path_len = strlen(intern->u.dir.entry.d_name);
- subdir->u.dir.sub_path = estrndup(intern->u.dir.entry.d_name, subdir->u.dir.sub_path_len);
- }
- subdir->info_class = intern->info_class;
- subdir->file_class = intern->file_class;
- subdir->oth = intern->oth;
- }
- }
- }
- /* }}} */
- /* {{{ proto void RecursiveDirectoryIterator::getSubPath()
- Get sub path */
- SPL_METHOD(RecursiveDirectoryIterator, getSubPath)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (intern->u.dir.sub_path) {
- RETURN_STRINGL(intern->u.dir.sub_path, intern->u.dir.sub_path_len, 1);
- } else {
- RETURN_STRINGL("", 0, 1);
- }
- }
- /* }}} */
- /* {{{ proto void RecursiveDirectoryIterator::getSubPathname()
- Get sub path and file name */
- SPL_METHOD(RecursiveDirectoryIterator, getSubPathname)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
- char *sub_name;
- int len;
- char slash = SPL_HAS_FLAG(intern->flags, SPL_FILE_DIR_UNIXPATHS) ? '/' : DEFAULT_SLASH;
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (intern->u.dir.sub_path) {
- len = spprintf(&sub_name, 0, "%s%c%s", intern->u.dir.sub_path, slash, intern->u.dir.entry.d_name);
- RETURN_STRINGL(sub_name, len, 0);
- } else {
- RETURN_STRING(intern->u.dir.entry.d_name, 1);
- }
- }
- /* }}} */
- /* {{{ proto int RecursiveDirectoryIterator::__construct(string path [, int flags])
- Cronstructs a new dir iterator from a path. */
- SPL_METHOD(RecursiveDirectoryIterator, __construct)
- {
- spl_filesystem_object_construct(INTERNAL_FUNCTION_PARAM_PASSTHRU, DIT_CTOR_FLAGS);
- }
- /* }}} */
- #ifdef HAVE_GLOB
- /* {{{ proto int GlobIterator::__construct(string path [, int flags])
- Cronstructs a new dir iterator from a glob expression (no glob:// needed). */
- SPL_METHOD(GlobIterator, __construct)
- {
- spl_filesystem_object_construct(INTERNAL_FUNCTION_PARAM_PASSTHRU, DIT_CTOR_FLAGS|DIT_CTOR_GLOB);
- }
- /* }}} */
- /* {{{ proto int GlobIterator::cont()
- Return the number of directories and files found by globbing */
- SPL_METHOD(GlobIterator, count)
- {
- spl_filesystem_object *intern = (spl_filesystem_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
-
- if (zend_parse_parameters_none() == FAILURE) {
- return;
- }
- if (php_stream_is(intern->u.dir.dirp ,&php_glob_stream_ops)) {
- RETURN_LONG(php_glob_stream_get_count(intern->u.dir.dirp, NULL));
- } else {
- /* should not happen */
- php_error_docref(NULL TSRMLS_CC, E_ERROR, "GlobIterator lost glob state");
- }
- }
- /* }}} */
- #endif /* HAVE_GLOB */
- /* {{{ forward declarations to the iterator handlers */
- static void spl_filesystem_dir_it_dtor(zend_object_iterator *iter TSRMLS_DC);
- static int spl_filesystem_dir_it_valid(zend_object_iterator *iter TSRMLS_DC);
- static void spl_filesystem_dir_it_current_data(zend_object_iterator *iter, zval ***data TSRMLS_DC);
- static int spl_filesystem_dir_it_current_key(zend_object_iterator *iter, char **str_key, uint *str_key_len, ulong *int_key TSRMLS_DC);
- static void spl_filesystem_dir_it_move_forward(zend_object_iterator *iter TSRMLS_DC);
- static void spl_filesystem_dir_it_rewind(zend_object_iterator *iter TSRMLS_DC);
- /* iterator handler table */
- zend_object_iterator_funcs spl_filesystem_dir_it_funcs = {
- spl_filesystem_dir_it_dtor,
- spl_filesystem_dir_it_valid,
- spl_filesystem_dir_it_current_data,
- spl_filesystem_dir_it_current_key,
- spl_filesystem_dir_it_move_forward,
- spl_filesystem_dir_it_rewind
- };
- /* }}} */
- /* {{{ spl_ce_dir_get_iterator */
- zend_object_iterator *spl_filesystem_dir_get_iterator(zend_class_entry *ce, zval *object, int by_ref TSRMLS_DC)
- {
- spl_filesystem_iterator *iterator;
- spl_filesystem_object *dir_object;
- if (by_ref) {
- zend_error(E_ERROR, "An iterator cannot be used with foreach by reference");
- }
- dir_object = (spl_filesystem_object*)zend_object_store_get_object(object TSRMLS_CC);
- iterator = spl_filesystem_object_to_iterator(dir_object);
- Z_SET_REFCOUNT_P(object, Z_REFCOUNT_P(obj…
Large files files are truncated, but you can click here to view the full file