Annotation of embedaddon/php/ext/spl/spl_dllist.c, revision 1.1

1.1     ! misho       1: /*
        !             2:    +----------------------------------------------------------------------+
        !             3:    | PHP Version 5                                                        |
        !             4:    +----------------------------------------------------------------------+
        !             5:    | Copyright (c) 1997-2012 The PHP Group                                |
        !             6:    +----------------------------------------------------------------------+
        !             7:    | This source file is subject to version 3.01 of the PHP license,      |
        !             8:    | that is bundled with this package in the file LICENSE, and is        |
        !             9:    | available through the world-wide-web at the following url:           |
        !            10:    | http://www.php.net/license/3_01.txt                                  |
        !            11:    | If you did not receive a copy of the PHP license and are unable to   |
        !            12:    | obtain it through the world-wide-web, please send a note to          |
        !            13:    | license@php.net so we can mail you a copy immediately.               |
        !            14:    +----------------------------------------------------------------------+
        !            15:    | Authors: Etienne Kneuss <colder@php.net>                             |
        !            16:    +----------------------------------------------------------------------+
        !            17:  */
        !            18: 
        !            19: /* $Id: spl_dllist.c 321634 2012-01-01 13:15:04Z felipe $ */
        !            20: 
        !            21: #ifdef HAVE_CONFIG_H
        !            22: # include "config.h"
        !            23: #endif
        !            24: 
        !            25: #include "php.h"
        !            26: #include "zend_exceptions.h"
        !            27: #include "zend_hash.h"
        !            28: 
        !            29: #include "php_spl.h"
        !            30: #include "spl_functions.h"
        !            31: #include "spl_engine.h"
        !            32: #include "spl_iterators.h"
        !            33: #include "spl_dllist.h"
        !            34: #include "spl_exceptions.h"
        !            35: 
        !            36: zend_object_handlers spl_handler_SplDoublyLinkedList;
        !            37: PHPAPI zend_class_entry  *spl_ce_SplDoublyLinkedList;
        !            38: PHPAPI zend_class_entry  *spl_ce_SplQueue;
        !            39: PHPAPI zend_class_entry  *spl_ce_SplStack;
        !            40: 
        !            41: #define SPL_LLIST_DELREF(elem) if(!--(elem)->rc) { \
        !            42:        efree(elem); \
        !            43:        elem = NULL; \
        !            44: }
        !            45: 
        !            46: #define SPL_LLIST_CHECK_DELREF(elem) if((elem) && !--(elem)->rc) { \
        !            47:        efree(elem); \
        !            48:        elem = NULL; \
        !            49: }
        !            50: 
        !            51: #define SPL_LLIST_ADDREF(elem) (elem)->rc++
        !            52: #define SPL_LLIST_CHECK_ADDREF(elem) if(elem) (elem)->rc++
        !            53: 
        !            54: #define SPL_DLLIST_IT_DELETE 0x00000001 /* Delete flag makes the iterator delete the current element on next */
        !            55: #define SPL_DLLIST_IT_LIFO   0x00000002 /* LIFO flag makes the iterator traverse the structure as a LastInFirstOut */
        !            56: #define SPL_DLLIST_IT_MASK   0x00000003 /* Mask to isolate flags related to iterators */
        !            57: #define SPL_DLLIST_IT_FIX    0x00000004 /* Backward/Forward bit is fixed */
        !            58: 
        !            59: #ifdef accept
        !            60: #undef accept
        !            61: #endif
        !            62: 
        !            63: typedef struct _spl_ptr_llist_element {
        !            64:        struct _spl_ptr_llist_element *prev;
        !            65:        struct _spl_ptr_llist_element *next;
        !            66:        int                            rc;
        !            67:        void                          *data;
        !            68: } spl_ptr_llist_element;
        !            69: 
        !            70: typedef void (*spl_ptr_llist_dtor_func)(spl_ptr_llist_element * TSRMLS_DC);
        !            71: typedef void (*spl_ptr_llist_ctor_func)(spl_ptr_llist_element * TSRMLS_DC);
        !            72: 
        !            73: typedef struct _spl_ptr_llist {
        !            74:        spl_ptr_llist_element   *head;
        !            75:        spl_ptr_llist_element   *tail;
        !            76:        spl_ptr_llist_dtor_func  dtor;
        !            77:        spl_ptr_llist_ctor_func  ctor;
        !            78:        int count;
        !            79: } spl_ptr_llist;
        !            80: 
        !            81: typedef struct _spl_dllist_object spl_dllist_object;
        !            82: typedef struct _spl_dllist_it spl_dllist_it;
        !            83: 
        !            84: struct _spl_dllist_object {
        !            85:        zend_object            std;
        !            86:        spl_ptr_llist         *llist;
        !            87:        int                    traverse_position;
        !            88:        spl_ptr_llist_element *traverse_pointer;
        !            89:        zval                  *retval;
        !            90:        int                    flags;
        !            91:        zend_function         *fptr_offset_get;
        !            92:        zend_function         *fptr_offset_set;
        !            93:        zend_function         *fptr_offset_has;
        !            94:        zend_function         *fptr_offset_del;
        !            95:        zend_function         *fptr_count;
        !            96:        zend_class_entry      *ce_get_iterator;
        !            97:        HashTable             *debug_info;
        !            98: };
        !            99: 
        !           100: /* define an overloaded iterator structure */
        !           101: struct _spl_dllist_it {
        !           102:        zend_user_iterator     intern;
        !           103:        int                    traverse_position;
        !           104:        spl_ptr_llist_element *traverse_pointer;
        !           105:        int                    flags;
        !           106:        spl_dllist_object     *object;
        !           107: };
        !           108: 
        !           109: /* {{{  spl_ptr_llist */
        !           110: static void spl_ptr_llist_zval_dtor(spl_ptr_llist_element *elem TSRMLS_DC) { /* {{{ */
        !           111:        if (elem->data) {
        !           112:                zval_ptr_dtor((zval **)&elem->data);
        !           113:        }
        !           114: }
        !           115: /* }}} */
        !           116: 
        !           117: static void spl_ptr_llist_zval_ctor(spl_ptr_llist_element *elem TSRMLS_DC) { /* {{{ */
        !           118:        Z_ADDREF_P((zval *)elem->data);
        !           119: }
        !           120: /* }}} */
        !           121: 
        !           122: static spl_ptr_llist *spl_ptr_llist_init(spl_ptr_llist_ctor_func ctor, spl_ptr_llist_dtor_func dtor) /* {{{ */
        !           123: {
        !           124:        spl_ptr_llist *llist = emalloc(sizeof(spl_ptr_llist));
        !           125: 
        !           126:        llist->head  = NULL;
        !           127:        llist->tail  = NULL;
        !           128:        llist->count = 0;
        !           129:        llist->dtor  = dtor;
        !           130:        llist->ctor  = ctor;
        !           131: 
        !           132:        return llist;
        !           133: }
        !           134: /* }}} */
        !           135: 
        !           136: static long spl_ptr_llist_count(spl_ptr_llist *llist) /* {{{ */
        !           137: {
        !           138:        return (long)llist->count;
        !           139: }
        !           140: /* }}} */
        !           141: 
        !           142: static void spl_ptr_llist_destroy(spl_ptr_llist *llist TSRMLS_DC) /* {{{ */
        !           143: {
        !           144:        spl_ptr_llist_element   *current = llist->head, *next;
        !           145:        spl_ptr_llist_dtor_func  dtor    = llist->dtor;
        !           146: 
        !           147:        while (current) {
        !           148:                next = current->next;
        !           149:                if(current && dtor) {
        !           150:                        dtor(current TSRMLS_CC);
        !           151:                }
        !           152:                SPL_LLIST_DELREF(current);
        !           153:                current = next;
        !           154:        }
        !           155: 
        !           156:        efree(llist);
        !           157: }
        !           158: /* }}} */
        !           159: 
        !           160: static spl_ptr_llist_element *spl_ptr_llist_offset(spl_ptr_llist *llist, long offset, int backward) /* {{{ */
        !           161: {
        !           162: 
        !           163:        spl_ptr_llist_element *current;
        !           164:        int pos = 0;
        !           165: 
        !           166:        if (backward) {
        !           167:                current = llist->tail;
        !           168:        } else {
        !           169:                current = llist->head;
        !           170:        }
        !           171: 
        !           172:        while (current && pos < offset) {
        !           173:                pos++;
        !           174:                if (backward) {
        !           175:                        current = current->prev;
        !           176:                } else {
        !           177:                        current = current->next;
        !           178:                }
        !           179:        }
        !           180: 
        !           181:        return current;
        !           182: }
        !           183: /* }}} */
        !           184: 
        !           185: static void spl_ptr_llist_unshift(spl_ptr_llist *llist, void *data TSRMLS_DC) /* {{{ */
        !           186: {
        !           187:        spl_ptr_llist_element *elem = emalloc(sizeof(spl_ptr_llist_element));
        !           188: 
        !           189:        elem->data = data;
        !           190:        elem->rc   = 1;
        !           191:        elem->prev = NULL;
        !           192:        elem->next = llist->head;
        !           193: 
        !           194:        if (llist->head) {
        !           195:                llist->head->prev = elem;
        !           196:        } else {
        !           197:                llist->tail = elem;
        !           198:        }
        !           199: 
        !           200:        llist->head = elem;
        !           201:        llist->count++;
        !           202: 
        !           203:        if (llist->ctor) {
        !           204:                llist->ctor(elem TSRMLS_CC);
        !           205:        }
        !           206: }
        !           207: /* }}} */
        !           208: 
        !           209: static void spl_ptr_llist_push(spl_ptr_llist *llist, void *data TSRMLS_DC) /* {{{ */
        !           210: {
        !           211:        spl_ptr_llist_element *elem = emalloc(sizeof(spl_ptr_llist_element));
        !           212: 
        !           213:        elem->data = data;
        !           214:        elem->rc   = 1;
        !           215:        elem->prev = llist->tail;
        !           216:        elem->next = NULL;
        !           217: 
        !           218:        if (llist->tail) {
        !           219:                llist->tail->next = elem;
        !           220:        } else {
        !           221:                llist->head = elem;
        !           222:        }
        !           223: 
        !           224:        llist->tail = elem;
        !           225:        llist->count++;
        !           226: 
        !           227:        if (llist->ctor) {
        !           228:                llist->ctor(elem TSRMLS_CC);
        !           229:        }
        !           230: }
        !           231: /* }}} */
        !           232: 
        !           233: static void *spl_ptr_llist_pop(spl_ptr_llist *llist TSRMLS_DC) /* {{{ */
        !           234: {
        !           235:        void                     *data;
        !           236:        spl_ptr_llist_element    *tail = llist->tail;
        !           237: 
        !           238:        if (tail == NULL) {
        !           239:                return NULL;
        !           240:        }
        !           241: 
        !           242:        if (tail->prev) {
        !           243:                tail->prev->next = NULL;
        !           244:        } else {
        !           245:                llist->head = NULL;
        !           246:        }
        !           247: 
        !           248:        llist->tail = tail->prev;
        !           249:        llist->count--;
        !           250:        data = tail->data;
        !           251: 
        !           252:        if (llist->dtor) {
        !           253:                llist->dtor(tail TSRMLS_CC);
        !           254:        }
        !           255: 
        !           256:        tail->data = NULL;
        !           257: 
        !           258:        SPL_LLIST_DELREF(tail);
        !           259: 
        !           260:        return data;
        !           261: }
        !           262: /* }}} */
        !           263: 
        !           264: static void *spl_ptr_llist_last(spl_ptr_llist *llist) /* {{{ */
        !           265: {
        !           266:        spl_ptr_llist_element *tail = llist->tail;
        !           267: 
        !           268:        if (tail == NULL) {
        !           269:                return NULL;
        !           270:        } else {
        !           271:                return tail->data;
        !           272:        }
        !           273: }
        !           274: /* }}} */
        !           275: 
        !           276: static void *spl_ptr_llist_first(spl_ptr_llist *llist) /* {{{ */
        !           277: {
        !           278:        spl_ptr_llist_element *head = llist->head;
        !           279: 
        !           280:        if (head == NULL) {
        !           281:                return NULL;
        !           282:        } else {
        !           283:                return head->data;
        !           284:        }
        !           285: }
        !           286: /* }}} */
        !           287: 
        !           288: static void *spl_ptr_llist_shift(spl_ptr_llist *llist TSRMLS_DC) /* {{{ */
        !           289: {
        !           290:        void                    *data;
        !           291:        spl_ptr_llist_element   *head = llist->head;
        !           292: 
        !           293:        if (head == NULL) {
        !           294:                return NULL;
        !           295:        }
        !           296: 
        !           297:        if (head->next) {
        !           298:                head->next->prev = NULL;
        !           299:        } else {
        !           300:                llist->tail = NULL;
        !           301:        }
        !           302: 
        !           303:        llist->head = head->next;
        !           304:        llist->count--;
        !           305:        data = head->data;
        !           306: 
        !           307:        if (llist->dtor) {
        !           308:                llist->dtor(head TSRMLS_CC);
        !           309:        }
        !           310:        head->data = NULL;
        !           311: 
        !           312:        SPL_LLIST_DELREF(head);
        !           313: 
        !           314:        return data;
        !           315: }
        !           316: /* }}} */
        !           317: 
        !           318: static void spl_ptr_llist_copy(spl_ptr_llist *from, spl_ptr_llist *to TSRMLS_DC) /* {{{ */
        !           319: {
        !           320:        spl_ptr_llist_element   *current = from->head, *next;
        !           321:        spl_ptr_llist_ctor_func  ctor    = from->ctor;
        !           322: 
        !           323:        while (current) {
        !           324:                next = current->next;
        !           325: 
        !           326:                if (ctor) {
        !           327:                        ctor(current TSRMLS_CC);
        !           328:                }
        !           329: 
        !           330:                spl_ptr_llist_push(to, current->data TSRMLS_CC);
        !           331:                current = next;
        !           332:        }
        !           333: 
        !           334: }
        !           335: /* }}} */
        !           336: 
        !           337: /* }}} */
        !           338: 
        !           339: static void spl_dllist_object_free_storage(void *object TSRMLS_DC) /* {{{ */
        !           340: {
        !           341:        spl_dllist_object *intern = (spl_dllist_object *)object;
        !           342:        zval              *tmp    = NULL;
        !           343: 
        !           344:        zend_object_std_dtor(&intern->std TSRMLS_CC);
        !           345: 
        !           346:        while(intern->llist->count > 0) {
        !           347:                tmp = (zval *)spl_ptr_llist_pop(intern->llist TSRMLS_CC);
        !           348:                zval_ptr_dtor(&tmp);
        !           349:        }
        !           350: 
        !           351:        spl_ptr_llist_destroy(intern->llist TSRMLS_CC);
        !           352:        SPL_LLIST_CHECK_DELREF(intern->traverse_pointer);
        !           353:        zval_ptr_dtor(&intern->retval);
        !           354: 
        !           355:        if (intern->debug_info != NULL) {
        !           356:                zend_hash_destroy(intern->debug_info);
        !           357:                efree(intern->debug_info);
        !           358:        }
        !           359: 
        !           360:        efree(object);
        !           361: }
        !           362: /* }}} */
        !           363: 
        !           364: zend_object_iterator *spl_dllist_get_iterator(zend_class_entry *ce, zval *object, int by_ref TSRMLS_DC);
        !           365: 
        !           366: static zend_object_value spl_dllist_object_new_ex(zend_class_entry *class_type, spl_dllist_object **obj, zval *orig, int clone_orig TSRMLS_DC) /* {{{ */
        !           367: {
        !           368:        zend_object_value  retval;
        !           369:        spl_dllist_object *intern;
        !           370:        zval              *tmp;
        !           371:        zend_class_entry  *parent = class_type;
        !           372:        int                inherited = 0;
        !           373: 
        !           374:        intern = ecalloc(1, sizeof(spl_dllist_object));
        !           375:        *obj = intern;
        !           376:        ALLOC_INIT_ZVAL(intern->retval);
        !           377: 
        !           378:        zend_object_std_init(&intern->std, class_type TSRMLS_CC);
        !           379:        zend_hash_copy(intern->std.properties, &class_type->default_properties, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
        !           380: 
        !           381:        intern->flags = 0;
        !           382:        intern->traverse_position = 0;
        !           383:        intern->debug_info = NULL;
        !           384: 
        !           385:        if (orig) {
        !           386:                spl_dllist_object *other = (spl_dllist_object*)zend_object_store_get_object(orig TSRMLS_CC);
        !           387:                intern->ce_get_iterator = other->ce_get_iterator;
        !           388: 
        !           389:                if (clone_orig) {
        !           390:                        intern->llist = (spl_ptr_llist *)spl_ptr_llist_init(other->llist->ctor, other->llist->dtor);
        !           391:                        spl_ptr_llist_copy(other->llist, intern->llist TSRMLS_CC);
        !           392:                        intern->traverse_pointer  = intern->llist->head;
        !           393:                        SPL_LLIST_CHECK_ADDREF(intern->traverse_pointer);
        !           394:                } else {
        !           395:                        intern->llist = other->llist;
        !           396:                        intern->traverse_pointer  = intern->llist->head;
        !           397:                        SPL_LLIST_CHECK_ADDREF(intern->traverse_pointer);
        !           398:                }
        !           399: 
        !           400:                intern->flags = other->flags;
        !           401:        } else {
        !           402:                intern->llist = (spl_ptr_llist *)spl_ptr_llist_init(spl_ptr_llist_zval_ctor, spl_ptr_llist_zval_dtor);
        !           403:                intern->traverse_pointer  = intern->llist->head;
        !           404:                SPL_LLIST_CHECK_ADDREF(intern->traverse_pointer);
        !           405:        }
        !           406: 
        !           407:        while (parent) {
        !           408:                if (parent == spl_ce_SplStack) {
        !           409:                        intern->flags |= (SPL_DLLIST_IT_FIX | SPL_DLLIST_IT_LIFO);
        !           410:                        retval.handlers = &spl_handler_SplDoublyLinkedList;
        !           411:                } else if (parent == spl_ce_SplQueue) {
        !           412:                        intern->flags |= SPL_DLLIST_IT_FIX;
        !           413:                        retval.handlers = &spl_handler_SplDoublyLinkedList;
        !           414:                }
        !           415: 
        !           416:                if (parent == spl_ce_SplDoublyLinkedList) {
        !           417:                        retval.handlers = &spl_handler_SplDoublyLinkedList;
        !           418:                        break;
        !           419:                }
        !           420: 
        !           421:                parent = parent->parent;
        !           422:                inherited = 1;
        !           423:        }
        !           424: 
        !           425:        retval.handle = zend_objects_store_put(intern, (zend_objects_store_dtor_t)zend_objects_destroy_object, spl_dllist_object_free_storage, NULL TSRMLS_CC);
        !           426: 
        !           427:        if (!parent) { /* this must never happen */
        !           428:                php_error_docref(NULL TSRMLS_CC, E_COMPILE_ERROR, "Internal compiler error, Class is not child of SplDoublyLinkedList");
        !           429:        }
        !           430:        if (inherited) {
        !           431:                zend_hash_find(&class_type->function_table, "offsetget",    sizeof("offsetget"),    (void **) &intern->fptr_offset_get);
        !           432:                if (intern->fptr_offset_get->common.scope == parent) {
        !           433:                        intern->fptr_offset_get = NULL;
        !           434:                }
        !           435:                zend_hash_find(&class_type->function_table, "offsetset",    sizeof("offsetset"),    (void **) &intern->fptr_offset_set);
        !           436:                if (intern->fptr_offset_set->common.scope == parent) {
        !           437:                        intern->fptr_offset_set = NULL;
        !           438:                }
        !           439:                zend_hash_find(&class_type->function_table, "offsetexists", sizeof("offsetexists"), (void **) &intern->fptr_offset_has);
        !           440:                if (intern->fptr_offset_has->common.scope == parent) {
        !           441:                        intern->fptr_offset_has = NULL;
        !           442:                }
        !           443:                zend_hash_find(&class_type->function_table, "offsetunset",  sizeof("offsetunset"),  (void **) &intern->fptr_offset_del);
        !           444:                if (intern->fptr_offset_del->common.scope == parent) {
        !           445:                        intern->fptr_offset_del = NULL;
        !           446:                }
        !           447:                zend_hash_find(&class_type->function_table, "count",        sizeof("count"),        (void **) &intern->fptr_count);
        !           448:                if (intern->fptr_count->common.scope == parent) {
        !           449:                        intern->fptr_count = NULL;
        !           450:                }
        !           451:        }
        !           452: 
        !           453:        return retval;
        !           454: }
        !           455: /* }}} */
        !           456: 
        !           457: static zend_object_value spl_dllist_object_new(zend_class_entry *class_type TSRMLS_DC) /* {{{ */
        !           458: {
        !           459:        spl_dllist_object *tmp;
        !           460:        return spl_dllist_object_new_ex(class_type, &tmp, NULL, 0 TSRMLS_CC);
        !           461: }
        !           462: /* }}} */
        !           463: 
        !           464: static zend_object_value spl_dllist_object_clone(zval *zobject TSRMLS_DC) /* {{{ */
        !           465: {
        !           466:        zend_object_value   new_obj_val;
        !           467:        zend_object        *old_object;
        !           468:        zend_object        *new_object;
        !           469:        zend_object_handle  handle = Z_OBJ_HANDLE_P(zobject);
        !           470:        spl_dllist_object  *intern;
        !           471: 
        !           472:        old_object  = zend_objects_get_address(zobject TSRMLS_CC);
        !           473:        new_obj_val = spl_dllist_object_new_ex(old_object->ce, &intern, zobject, 1 TSRMLS_CC);
        !           474:        new_object  = &intern->std;
        !           475: 
        !           476:        zend_objects_clone_members(new_object, new_obj_val, old_object, handle TSRMLS_CC);
        !           477: 
        !           478:        return new_obj_val;
        !           479: }
        !           480: /* }}} */
        !           481: 
        !           482: static int spl_dllist_object_count_elements(zval *object, long *count TSRMLS_DC) /* {{{ */
        !           483: {
        !           484:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(object TSRMLS_CC);
        !           485: 
        !           486:        if (intern->fptr_count) {
        !           487:                zval *rv;
        !           488:                zend_call_method_with_0_params(&object, intern->std.ce, &intern->fptr_count, "count", &rv);
        !           489:                if (rv) {
        !           490:                        zval_ptr_dtor(&intern->retval);
        !           491:                        MAKE_STD_ZVAL(intern->retval);
        !           492:                        ZVAL_ZVAL(intern->retval, rv, 1, 1);
        !           493:                        convert_to_long(intern->retval);
        !           494:                        *count = (long) Z_LVAL_P(intern->retval);
        !           495:                        return SUCCESS;
        !           496:                }
        !           497:                *count = 0;
        !           498:                return FAILURE;
        !           499:        }
        !           500: 
        !           501:        *count = spl_ptr_llist_count(intern->llist);
        !           502:        return SUCCESS;
        !           503: } 
        !           504: /* }}} */
        !           505: 
        !           506: static HashTable* spl_dllist_object_get_debug_info(zval *obj, int *is_temp TSRMLS_DC) /* {{{{ */
        !           507: {
        !           508:        spl_dllist_object     *intern  = (spl_dllist_object*)zend_object_store_get_object(obj TSRMLS_CC);
        !           509:        spl_ptr_llist_element *current = intern->llist->head, *next;
        !           510:        zval *tmp, zrv, *dllist_array;
        !           511:        char *pnstr;
        !           512:        int  pnlen;
        !           513:        int  i = 0;
        !           514: 
        !           515:        *is_temp = 0;
        !           516: 
        !           517:        if (intern->debug_info == NULL) {
        !           518:                ALLOC_HASHTABLE(intern->debug_info);
        !           519:                zend_hash_init(intern->debug_info, 1, NULL, ZVAL_PTR_DTOR, 0);
        !           520:        }
        !           521: 
        !           522:        if (intern->debug_info->nApplyCount == 0) {
        !           523:                INIT_PZVAL(&zrv);
        !           524:                Z_ARRVAL(zrv) = intern->debug_info;
        !           525: 
        !           526:                zend_hash_copy(intern->debug_info, intern->std.properties, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
        !           527: 
        !           528:                pnstr = spl_gen_private_prop_name(spl_ce_SplDoublyLinkedList, "flags", sizeof("flags")-1, &pnlen TSRMLS_CC);
        !           529:                add_assoc_long_ex(&zrv, pnstr, pnlen+1, intern->flags);
        !           530:                efree(pnstr);
        !           531: 
        !           532:                ALLOC_INIT_ZVAL(dllist_array);
        !           533:                array_init(dllist_array);
        !           534: 
        !           535:                while (current) {
        !           536:                        next = current->next;
        !           537: 
        !           538:                        add_index_zval(dllist_array, i, (zval *)current->data);
        !           539:                        Z_ADDREF_P(current->data);
        !           540:                        i++;
        !           541: 
        !           542:                        current = next;
        !           543:                }
        !           544: 
        !           545:                pnstr = spl_gen_private_prop_name(spl_ce_SplDoublyLinkedList, "dllist", sizeof("dllist")-1, &pnlen TSRMLS_CC);
        !           546:                add_assoc_zval_ex(&zrv, pnstr, pnlen+1, dllist_array);
        !           547:                efree(pnstr);
        !           548:        }
        !           549: 
        !           550:        return intern->debug_info;
        !           551: }
        !           552: /* }}}} */
        !           553: 
        !           554: /* {{{ proto bool SplDoublyLinkedList::push(mixed $value) U
        !           555:           Push $value on the SplDoublyLinkedList */
        !           556: SPL_METHOD(SplDoublyLinkedList, push)
        !           557: {
        !           558:        zval *value;
        !           559:        spl_dllist_object *intern;
        !           560: 
        !           561:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &value) == FAILURE) {
        !           562:                return;
        !           563:        }
        !           564: 
        !           565:        SEPARATE_ARG_IF_REF(value);
        !           566: 
        !           567:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           568:        spl_ptr_llist_push(intern->llist, value TSRMLS_CC);
        !           569: 
        !           570:        RETURN_TRUE;
        !           571: } 
        !           572: /* }}} */
        !           573: 
        !           574: /* {{{ proto bool SplDoublyLinkedList::unshift(mixed $value) U
        !           575:           Unshift $value on the SplDoublyLinkedList */
        !           576: SPL_METHOD(SplDoublyLinkedList, unshift)
        !           577: {
        !           578:        zval *value;
        !           579:        spl_dllist_object *intern;
        !           580: 
        !           581:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &value) == FAILURE) {
        !           582:                return;
        !           583:        }
        !           584: 
        !           585:        SEPARATE_ARG_IF_REF(value);
        !           586: 
        !           587:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           588:        spl_ptr_llist_unshift(intern->llist, value TSRMLS_CC);
        !           589: 
        !           590:        RETURN_TRUE;
        !           591: }
        !           592: /* }}} */
        !           593: 
        !           594: /* {{{ proto mixed SplDoublyLinkedList::pop() U
        !           595:           Pop an element out of the SplDoublyLinkedList */
        !           596: SPL_METHOD(SplDoublyLinkedList, pop)
        !           597: {
        !           598:        zval *value;
        !           599:        spl_dllist_object *intern;
        !           600: 
        !           601:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           602:                return;
        !           603:        }
        !           604: 
        !           605:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           606:        value = (zval *)spl_ptr_llist_pop(intern->llist TSRMLS_CC);
        !           607: 
        !           608:        if (value == NULL) {
        !           609:                zend_throw_exception(spl_ce_RuntimeException, "Can't pop from an empty datastructure", 0 TSRMLS_CC);
        !           610:                return;
        !           611:        }
        !           612: 
        !           613:        RETURN_ZVAL(value, 1, 1);
        !           614: } 
        !           615: /* }}} */
        !           616: 
        !           617: /* {{{ proto mixed SplDoublyLinkedList::shift() U
        !           618:           Shift an element out of the SplDoublyLinkedList */
        !           619: SPL_METHOD(SplDoublyLinkedList, shift)
        !           620: {
        !           621:        zval *value;
        !           622:        spl_dllist_object *intern;
        !           623: 
        !           624:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           625:                return;
        !           626:        }
        !           627: 
        !           628:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           629:        value  = (zval *)spl_ptr_llist_shift(intern->llist TSRMLS_CC);
        !           630: 
        !           631:        if (value == NULL) {
        !           632:                zend_throw_exception(spl_ce_RuntimeException, "Can't shift from an empty datastructure", 0 TSRMLS_CC);
        !           633:                return;
        !           634:        }
        !           635: 
        !           636:        RETURN_ZVAL(value, 1, 1);
        !           637: } 
        !           638: /* }}} */
        !           639: 
        !           640: /* {{{ proto mixed SplDoublyLinkedList::top() U
        !           641:           Peek at the top element of the SplDoublyLinkedList */
        !           642: SPL_METHOD(SplDoublyLinkedList, top)
        !           643: {
        !           644:        zval *value;
        !           645:        spl_dllist_object *intern;
        !           646: 
        !           647:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           648:                return;
        !           649:        }
        !           650: 
        !           651:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           652:        value  = (zval *)spl_ptr_llist_last(intern->llist);
        !           653: 
        !           654:        if (value == NULL) {
        !           655:                zend_throw_exception(spl_ce_RuntimeException, "Can't peek at an empty datastructure", 0 TSRMLS_CC);
        !           656:                return;
        !           657:        }
        !           658: 
        !           659:        RETURN_ZVAL(value, 1, 0);
        !           660: }
        !           661: /* }}} */
        !           662: 
        !           663: /* {{{ proto mixed SplDoublyLinkedList::bottom() U
        !           664:           Peek at the bottom element of the SplDoublyLinkedList */
        !           665: SPL_METHOD(SplDoublyLinkedList, bottom)
        !           666: {
        !           667:        zval *value;
        !           668:        spl_dllist_object *intern;
        !           669: 
        !           670:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           671:                return;
        !           672:        }
        !           673: 
        !           674:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           675:        value  = (zval *)spl_ptr_llist_first(intern->llist);
        !           676: 
        !           677:        if (value == NULL) {
        !           678:                zend_throw_exception(spl_ce_RuntimeException, "Can't peek at an empty datastructure", 0 TSRMLS_CC);
        !           679:                return;
        !           680:        }
        !           681: 
        !           682:        RETURN_ZVAL(value, 1, 0);
        !           683: }
        !           684: /* }}} */
        !           685: 
        !           686: /* {{{ proto int SplDoublyLinkedList::count() U
        !           687:  Return the number of elements in the datastructure. */
        !           688: SPL_METHOD(SplDoublyLinkedList, count)
        !           689: {
        !           690:        long count;
        !           691:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           692: 
        !           693:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           694:                return;
        !           695:        }
        !           696: 
        !           697:        count = spl_ptr_llist_count(intern->llist);
        !           698:        RETURN_LONG(count);
        !           699: }
        !           700: /* }}} */
        !           701: 
        !           702: /* {{{ proto int SplDoublyLinkedList::isEmpty() U
        !           703:  Return true if the SplDoublyLinkedList is empty. */
        !           704: SPL_METHOD(SplDoublyLinkedList, isEmpty)
        !           705: {
        !           706:        long count;
        !           707: 
        !           708:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           709:                return;
        !           710:        }
        !           711: 
        !           712:        spl_dllist_object_count_elements(getThis(), &count TSRMLS_CC);
        !           713:        RETURN_BOOL(count==0);
        !           714: }
        !           715: /* }}} */
        !           716: 
        !           717: /* {{{ proto int SplDoublyLinkedList::setIteratorMode($flags) U
        !           718:  Set the mode of iteration */
        !           719: SPL_METHOD(SplDoublyLinkedList, setIteratorMode)
        !           720: {
        !           721:        long value;
        !           722:        spl_dllist_object *intern;
        !           723: 
        !           724:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &value) == FAILURE) {
        !           725:                return;
        !           726:        }
        !           727: 
        !           728:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           729: 
        !           730:        if (intern->flags & SPL_DLLIST_IT_FIX
        !           731:                && (intern->flags & SPL_DLLIST_IT_LIFO) != (value & SPL_DLLIST_IT_LIFO)) {
        !           732:                zend_throw_exception(spl_ce_RuntimeException, "Iterators' LIFO/FIFO modes for SplStack/SplQueue objects are frozen", 0 TSRMLS_CC);
        !           733:                return;
        !           734:        }
        !           735: 
        !           736:        intern->flags = value & SPL_DLLIST_IT_MASK;
        !           737: 
        !           738:        RETURN_LONG(intern->flags);
        !           739: }
        !           740: /* }}} */
        !           741: 
        !           742: /* {{{ proto int SplDoublyLinkedList::getIteratorMode() U
        !           743:  Return the mode of iteration */
        !           744: SPL_METHOD(SplDoublyLinkedList, getIteratorMode)
        !           745: {
        !           746:        spl_dllist_object *intern;
        !           747: 
        !           748:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "") == FAILURE) {
        !           749:                return;
        !           750:        }
        !           751: 
        !           752:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           753: 
        !           754:        RETURN_LONG(intern->flags);
        !           755: }
        !           756: /* }}} */
        !           757: 
        !           758: /* {{{ proto bool SplDoublyLinkedList::offsetExists(mixed $index) U
        !           759:  Returns whether the requested $index exists. */
        !           760: SPL_METHOD(SplDoublyLinkedList, offsetExists)
        !           761: {
        !           762:        zval              *zindex;
        !           763:        spl_dllist_object *intern;
        !           764:        long               index;
        !           765: 
        !           766:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zindex) == FAILURE) {
        !           767:                return;
        !           768:        }
        !           769: 
        !           770:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           771:        index  = spl_offset_convert_to_long(zindex TSRMLS_CC);
        !           772: 
        !           773:        RETURN_BOOL(index >= 0 && index < intern->llist->count);
        !           774: } /* }}} */
        !           775: 
        !           776: /* {{{ proto mixed SplDoublyLinkedList::offsetGet(mixed $index) U
        !           777:  Returns the value at the specified $index. */
        !           778: SPL_METHOD(SplDoublyLinkedList, offsetGet)
        !           779: {
        !           780:        zval                  *zindex, *value;
        !           781:        long                   index;
        !           782:        spl_dllist_object     *intern;
        !           783:        spl_ptr_llist_element *element;
        !           784: 
        !           785:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zindex) == FAILURE) {
        !           786:                return;
        !           787:        }
        !           788: 
        !           789:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           790:        index  = spl_offset_convert_to_long(zindex TSRMLS_CC);
        !           791: 
        !           792:     if (index < 0 || index >= intern->llist->count) {
        !           793:                zend_throw_exception(spl_ce_OutOfRangeException, "Offset invalid or out of range", 0 TSRMLS_CC);
        !           794:                return;
        !           795:        }
        !           796: 
        !           797:        element = spl_ptr_llist_offset(intern->llist, index, intern->flags & SPL_DLLIST_IT_LIFO);
        !           798: 
        !           799:        if (element != NULL) {
        !           800:                value = (zval *)element->data;
        !           801:                RETURN_ZVAL(value, 1, 0);
        !           802:        } else {
        !           803:                zend_throw_exception(spl_ce_OutOfRangeException, "Offset invalid", 0 TSRMLS_CC);
        !           804:                return;
        !           805:        }
        !           806: } /* }}} */
        !           807: 
        !           808: /* {{{ proto void SplDoublyLinkedList::offsetSet(mixed $index, mixed $newval) U
        !           809:  Sets the value at the specified $index to $newval. */
        !           810: SPL_METHOD(SplDoublyLinkedList, offsetSet)
        !           811: {
        !           812:        zval                  *zindex, *value;
        !           813:        spl_dllist_object     *intern;
        !           814: 
        !           815:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zz", &zindex, &value) == FAILURE) {
        !           816:                return;
        !           817:        }
        !           818:        SEPARATE_ARG_IF_REF(value);
        !           819: 
        !           820:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           821: 
        !           822:        if (Z_TYPE_P(zindex) == IS_NULL) {
        !           823:                /* $obj[] = ... */
        !           824:                spl_ptr_llist_push(intern->llist, value TSRMLS_CC);
        !           825:        } else {
        !           826:                /* $obj[$foo] = ... */
        !           827:                long                   index;
        !           828:                spl_ptr_llist_element *element;
        !           829: 
        !           830:                index = spl_offset_convert_to_long(zindex TSRMLS_CC);
        !           831: 
        !           832:                if (index < 0 || index >= intern->llist->count) {
        !           833:                        zval_ptr_dtor(&value);
        !           834:                        zend_throw_exception(spl_ce_OutOfRangeException, "Offset invalid or out of range", 0 TSRMLS_CC);
        !           835:                        return;
        !           836:                }
        !           837: 
        !           838:                element = spl_ptr_llist_offset(intern->llist, index, intern->flags & SPL_DLLIST_IT_LIFO);
        !           839: 
        !           840:                if (element != NULL) {
        !           841:                        /* call dtor on the old element as in spl_ptr_llist_pop */
        !           842:                        if (intern->llist->dtor) {
        !           843:                                intern->llist->dtor(element TSRMLS_CC);
        !           844:                        }
        !           845: 
        !           846:                        /* the element is replaced, delref the old one as in
        !           847:                         * SplDoublyLinkedList::pop() */
        !           848:                        zval_ptr_dtor((zval **)&element->data);
        !           849:                        element->data = value;
        !           850: 
        !           851:                        /* new element, call ctor as in spl_ptr_llist_push */
        !           852:                        if (intern->llist->ctor) {
        !           853:                                intern->llist->ctor(element TSRMLS_CC);
        !           854:                        }
        !           855:                } else {
        !           856:                        zval_ptr_dtor(&value);
        !           857:                        zend_throw_exception(spl_ce_OutOfRangeException, "Offset invalid", 0 TSRMLS_CC);
        !           858:                        return;
        !           859:                }
        !           860:        }
        !           861: } /* }}} */
        !           862: 
        !           863: /* {{{ proto void SplDoublyLinkedList::offsetUnset(mixed $index) U
        !           864:  Unsets the value at the specified $index. */
        !           865: SPL_METHOD(SplDoublyLinkedList, offsetUnset)
        !           866: {
        !           867:        zval                  *zindex;
        !           868:        long                   index;
        !           869:        spl_dllist_object     *intern;
        !           870:        spl_ptr_llist_element *element;
        !           871:        spl_ptr_llist         *llist;
        !           872: 
        !           873:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &zindex) == FAILURE) {
        !           874:                return;
        !           875:        }
        !           876: 
        !           877:        intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !           878:        index  = (int)spl_offset_convert_to_long(zindex TSRMLS_CC);
        !           879:     llist  = intern->llist;
        !           880: 
        !           881:     if (index < 0 || index >= intern->llist->count) {
        !           882:                zend_throw_exception(spl_ce_OutOfRangeException, "Offset out of range", 0 TSRMLS_CC);
        !           883:                return;
        !           884:        }
        !           885: 
        !           886:        element = spl_ptr_llist_offset(intern->llist, index, intern->flags & SPL_DLLIST_IT_LIFO);
        !           887: 
        !           888:        if (element != NULL) {
        !           889:                /* connect the neightbors */
        !           890:                if (element->prev) {
        !           891:                        element->prev->next = element->next;
        !           892:                }
        !           893: 
        !           894:                if (element->next) {
        !           895:                        element->next->prev = element->prev;
        !           896:                }
        !           897: 
        !           898:                /* take care of head/tail */
        !           899:                if (element == llist->head) {
        !           900:                        llist->head = element->next;
        !           901:                }
        !           902: 
        !           903:                if (element == llist->tail) {
        !           904:                        llist->tail = element->prev;
        !           905:                }
        !           906: 
        !           907:                /* finally, delete the element */
        !           908:                llist->count--;
        !           909: 
        !           910:                if(llist->dtor) {
        !           911:                        llist->dtor(element TSRMLS_CC);
        !           912:                }
        !           913: 
        !           914:                zval_ptr_dtor((zval **)&element->data);
        !           915:                element->data = NULL;
        !           916: 
        !           917:                SPL_LLIST_DELREF(element);
        !           918:        } else {
        !           919:                zend_throw_exception(spl_ce_OutOfRangeException, "Offset invalid", 0 TSRMLS_CC);
        !           920:                return;
        !           921:        }
        !           922: } /* }}} */
        !           923: 
        !           924: static void spl_dllist_it_dtor(zend_object_iterator *iter TSRMLS_DC) /* {{{ */
        !           925: {
        !           926:        spl_dllist_it *iterator = (spl_dllist_it *)iter;
        !           927: 
        !           928:        SPL_LLIST_CHECK_DELREF(iterator->traverse_pointer);
        !           929: 
        !           930:        zend_user_it_invalidate_current(iter TSRMLS_CC);
        !           931:        zval_ptr_dtor((zval**)&iterator->intern.it.data);
        !           932: 
        !           933:        efree(iterator);
        !           934: }
        !           935: /* }}} */
        !           936: 
        !           937: static void spl_dllist_it_helper_rewind(spl_ptr_llist_element **traverse_pointer_ptr, int *traverse_position_ptr, spl_ptr_llist *llist, int flags TSRMLS_DC) /* {{{ */
        !           938: {
        !           939:        SPL_LLIST_CHECK_DELREF(*traverse_pointer_ptr);
        !           940: 
        !           941:        if (flags & SPL_DLLIST_IT_LIFO) {
        !           942:                *traverse_position_ptr = llist->count-1;
        !           943:                *traverse_pointer_ptr  = llist->tail;
        !           944:        } else {
        !           945:                *traverse_position_ptr = 0;
        !           946:                *traverse_pointer_ptr  = llist->head;
        !           947:        }
        !           948: 
        !           949:        SPL_LLIST_CHECK_ADDREF(*traverse_pointer_ptr);
        !           950: }
        !           951: /* }}} */
        !           952: 
        !           953: static void spl_dllist_it_helper_move_forward(spl_ptr_llist_element **traverse_pointer_ptr, int *traverse_position_ptr, spl_ptr_llist *llist, int flags TSRMLS_DC) /* {{{ */
        !           954: {
        !           955:        if (*traverse_pointer_ptr) {
        !           956:                spl_ptr_llist_element *old = *traverse_pointer_ptr;
        !           957: 
        !           958:                if (flags & SPL_DLLIST_IT_LIFO) {
        !           959:                        *traverse_pointer_ptr = old->prev;
        !           960:                        (*traverse_position_ptr)--;
        !           961: 
        !           962:                        if (flags & SPL_DLLIST_IT_DELETE) {
        !           963:                                zval *prev = (zval *)spl_ptr_llist_pop(llist TSRMLS_CC);
        !           964: 
        !           965:                                if (prev) {
        !           966:                                        zval_ptr_dtor((zval **)&prev);
        !           967:                                }
        !           968:                        }
        !           969:                } else {
        !           970:                        *traverse_pointer_ptr = old->next;
        !           971: 
        !           972:                        if (flags & SPL_DLLIST_IT_DELETE) {
        !           973:                                zval *prev = (zval *)spl_ptr_llist_shift(llist TSRMLS_CC);
        !           974: 
        !           975:                                if (prev) {
        !           976:                                        zval_ptr_dtor((zval **)&prev);
        !           977:                                }
        !           978:                        } else {
        !           979:                                (*traverse_position_ptr)++;
        !           980:                        }
        !           981:                }
        !           982: 
        !           983:                SPL_LLIST_DELREF(old);
        !           984:                SPL_LLIST_CHECK_ADDREF(*traverse_pointer_ptr);
        !           985:        }
        !           986: }
        !           987: /* }}} */
        !           988: 
        !           989: static void spl_dllist_it_rewind(zend_object_iterator *iter TSRMLS_DC) /* {{{ */
        !           990: {
        !           991:        spl_dllist_it     *iterator = (spl_dllist_it *)iter;
        !           992:        spl_dllist_object *object   = iterator->object;
        !           993:        spl_ptr_llist     *llist    = object->llist;
        !           994: 
        !           995:        spl_dllist_it_helper_rewind(&iterator->traverse_pointer, &iterator->traverse_position, llist, object->flags TSRMLS_CC);
        !           996: }
        !           997: /* }}} */
        !           998: 
        !           999: static int spl_dllist_it_valid(zend_object_iterator *iter TSRMLS_DC) /* {{{ */
        !          1000: {
        !          1001:        spl_dllist_it         *iterator = (spl_dllist_it *)iter;
        !          1002:        spl_ptr_llist_element *element  = iterator->traverse_pointer;
        !          1003: 
        !          1004:        return (element != NULL ? SUCCESS : FAILURE);
        !          1005: }
        !          1006: /* }}} */
        !          1007: 
        !          1008: static void spl_dllist_it_get_current_data(zend_object_iterator *iter, zval ***data TSRMLS_DC) /* {{{ */
        !          1009: {
        !          1010:        spl_dllist_it         *iterator = (spl_dllist_it *)iter;
        !          1011:        spl_ptr_llist_element *element  = iterator->traverse_pointer;
        !          1012: 
        !          1013:        if (element == NULL || element->data == NULL) {
        !          1014:                *data = NULL;
        !          1015:        } else {
        !          1016:                *data = (zval **)&element->data;
        !          1017:        }
        !          1018: }
        !          1019: /* }}} */
        !          1020: 
        !          1021: static int spl_dllist_it_get_current_key(zend_object_iterator *iter, char **str_key, uint *str_key_len, ulong *int_key TSRMLS_DC) /* {{{ */
        !          1022: {
        !          1023:        spl_dllist_it *iterator = (spl_dllist_it *)iter;
        !          1024: 
        !          1025:        *int_key = (ulong) iterator->traverse_position;
        !          1026:        return HASH_KEY_IS_LONG;
        !          1027: }
        !          1028: /* }}} */
        !          1029: 
        !          1030: static void spl_dllist_it_move_forward(zend_object_iterator *iter TSRMLS_DC) /* {{{ */
        !          1031: {
        !          1032:        spl_dllist_it     *iterator = (spl_dllist_it *)iter;
        !          1033:        spl_dllist_object *object   = iterator->object;
        !          1034: 
        !          1035:        zend_user_it_invalidate_current(iter TSRMLS_CC);
        !          1036: 
        !          1037:        spl_dllist_it_helper_move_forward(&iterator->traverse_pointer, &iterator->traverse_position, object->llist, object->flags TSRMLS_CC);
        !          1038: }
        !          1039: /* }}} */
        !          1040: 
        !          1041: /* {{{  proto int SplDoublyLinkedList::key() U
        !          1042:    Return current array key */
        !          1043: SPL_METHOD(SplDoublyLinkedList, key)
        !          1044: {
        !          1045:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1046:        
        !          1047:        if (zend_parse_parameters_none() == FAILURE) {
        !          1048:                return;
        !          1049:        }
        !          1050: 
        !          1051:        RETURN_LONG(intern->traverse_position);
        !          1052: }
        !          1053: /* }}} */
        !          1054: 
        !          1055: /* {{{ proto void SplDoublyLinkedList::prev() U
        !          1056:    Move to next entry */
        !          1057: SPL_METHOD(SplDoublyLinkedList, prev)
        !          1058: {
        !          1059:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1060:        
        !          1061:        if (zend_parse_parameters_none() == FAILURE) {
        !          1062:                return;
        !          1063:        }
        !          1064: 
        !          1065:        spl_dllist_it_helper_move_forward(&intern->traverse_pointer, &intern->traverse_position, intern->llist, intern->flags ^ SPL_DLLIST_IT_LIFO TSRMLS_CC);
        !          1066: }
        !          1067: /* }}} */
        !          1068: 
        !          1069: /* {{{ proto void SplDoublyLinkedList::next() U
        !          1070:    Move to next entry */
        !          1071: SPL_METHOD(SplDoublyLinkedList, next)
        !          1072: {
        !          1073:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1074:        
        !          1075:        if (zend_parse_parameters_none() == FAILURE) {
        !          1076:                return;
        !          1077:        }
        !          1078: 
        !          1079:        spl_dllist_it_helper_move_forward(&intern->traverse_pointer, &intern->traverse_position, intern->llist, intern->flags TSRMLS_CC);
        !          1080: }
        !          1081: /* }}} */
        !          1082: 
        !          1083: /* {{{ proto bool SplDoublyLinkedList::valid() U
        !          1084:    Check whether the datastructure contains more entries */
        !          1085: SPL_METHOD(SplDoublyLinkedList, valid)
        !          1086: {
        !          1087:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1088:        
        !          1089:        if (zend_parse_parameters_none() == FAILURE) {
        !          1090:                return;
        !          1091:        }
        !          1092: 
        !          1093:        RETURN_BOOL(intern->traverse_pointer != NULL);
        !          1094: }
        !          1095: /* }}} */
        !          1096: 
        !          1097: /* {{{ proto void SplDoublyLinkedList::rewind() U
        !          1098:    Rewind the datastructure back to the start */
        !          1099: SPL_METHOD(SplDoublyLinkedList, rewind)
        !          1100: {
        !          1101:        spl_dllist_object *intern = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1102:        
        !          1103:        if (zend_parse_parameters_none() == FAILURE) {
        !          1104:                return;
        !          1105:        }
        !          1106: 
        !          1107:        spl_dllist_it_helper_rewind(&intern->traverse_pointer, &intern->traverse_position, intern->llist, intern->flags TSRMLS_CC);
        !          1108: }
        !          1109: /* }}} */
        !          1110: 
        !          1111: /* {{{ proto mixed|NULL SplDoublyLinkedList::current() U
        !          1112:    Return current datastructure entry */
        !          1113: SPL_METHOD(SplDoublyLinkedList, current)
        !          1114: {
        !          1115:        spl_dllist_object     *intern  = (spl_dllist_object*)zend_object_store_get_object(getThis() TSRMLS_CC);
        !          1116:        spl_ptr_llist_element *element = intern->traverse_pointer;
        !          1117:        
        !          1118:        if (zend_parse_parameters_none() == FAILURE) {
        !          1119:                return;
        !          1120:        }
        !          1121: 
        !          1122:        if (element == NULL || element->data == NULL) {
        !          1123:                RETURN_NULL();
        !          1124:        } else {
        !          1125:                zval *data    = (zval *)element->data;
        !          1126:                RETURN_ZVAL(data, 1, 0);
        !          1127:        }
        !          1128: }
        !          1129: /* }}} */
        !          1130: 
        !          1131: /* iterator handler table */
        !          1132: zend_object_iterator_funcs spl_dllist_it_funcs = {
        !          1133:        spl_dllist_it_dtor,
        !          1134:        spl_dllist_it_valid,
        !          1135:        spl_dllist_it_get_current_data,
        !          1136:        spl_dllist_it_get_current_key,
        !          1137:        spl_dllist_it_move_forward,
        !          1138:        spl_dllist_it_rewind
        !          1139: };
        !          1140: 
        !          1141: zend_object_iterator *spl_dllist_get_iterator(zend_class_entry *ce, zval *object, int by_ref TSRMLS_DC) /* {{{ */
        !          1142: {
        !          1143:        spl_dllist_it     *iterator;
        !          1144:        spl_dllist_object *dllist_object = (spl_dllist_object*)zend_object_store_get_object(object TSRMLS_CC);
        !          1145: 
        !          1146:        if (by_ref) {
        !          1147:                zend_throw_exception(spl_ce_RuntimeException, "An iterator cannot be used with foreach by reference", 0 TSRMLS_CC);
        !          1148:                return NULL;
        !          1149:        }
        !          1150: 
        !          1151:        Z_ADDREF_P(object);
        !          1152: 
        !          1153:        iterator                     = emalloc(sizeof(spl_dllist_it));
        !          1154:        iterator->intern.it.data     = (void*)object;
        !          1155:        iterator->intern.it.funcs    = &spl_dllist_it_funcs;
        !          1156:        iterator->intern.ce          = ce;
        !          1157:        iterator->intern.value       = NULL;
        !          1158:        iterator->traverse_position  = dllist_object->traverse_position;
        !          1159:        iterator->traverse_pointer   = dllist_object->traverse_pointer;
        !          1160:        iterator->flags              = dllist_object->flags & SPL_DLLIST_IT_MASK;
        !          1161:        iterator->object             = dllist_object;
        !          1162: 
        !          1163:        SPL_LLIST_CHECK_ADDREF(iterator->traverse_pointer);
        !          1164: 
        !          1165: 
        !          1166:        return (zend_object_iterator*)iterator;
        !          1167: }
        !          1168: /* }}} */
        !          1169: 
        !          1170: /*  Function/Class/Method definitions */
        !          1171: ZEND_BEGIN_ARG_INFO(arginfo_dllist_setiteratormode, 0)
        !          1172:        ZEND_ARG_INFO(0, flags)
        !          1173: ZEND_END_ARG_INFO()
        !          1174: 
        !          1175: ZEND_BEGIN_ARG_INFO(arginfo_dllist_push, 0)
        !          1176:        ZEND_ARG_INFO(0, value)
        !          1177: ZEND_END_ARG_INFO()
        !          1178: 
        !          1179: ZEND_BEGIN_ARG_INFO_EX(arginfo_dllist_offsetGet, 0, 0, 1)
        !          1180:        ZEND_ARG_INFO(0, index)
        !          1181: ZEND_END_ARG_INFO()
        !          1182: 
        !          1183: ZEND_BEGIN_ARG_INFO_EX(arginfo_dllist_offsetSet, 0, 0, 2)
        !          1184:        ZEND_ARG_INFO(0, index)
        !          1185:        ZEND_ARG_INFO(0, newval)
        !          1186: ZEND_END_ARG_INFO()
        !          1187: 
        !          1188: ZEND_BEGIN_ARG_INFO(arginfo_dllist_void, 0)
        !          1189: ZEND_END_ARG_INFO()
        !          1190: 
        !          1191: static const zend_function_entry spl_funcs_SplQueue[] = {
        !          1192:        SPL_MA(SplQueue, enqueue, SplDoublyLinkedList, push,  arginfo_dllist_push, ZEND_ACC_PUBLIC)
        !          1193:        SPL_MA(SplQueue, dequeue, SplDoublyLinkedList, shift, arginfo_dllist_void, ZEND_ACC_PUBLIC)
        !          1194:        PHP_FE_END
        !          1195: };
        !          1196: 
        !          1197: static const zend_function_entry spl_funcs_SplDoublyLinkedList[] = {
        !          1198:        SPL_ME(SplDoublyLinkedList, pop,             arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1199:        SPL_ME(SplDoublyLinkedList, shift,           arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1200:        SPL_ME(SplDoublyLinkedList, push,            arginfo_dllist_push,            ZEND_ACC_PUBLIC)
        !          1201:        SPL_ME(SplDoublyLinkedList, unshift,         arginfo_dllist_push,            ZEND_ACC_PUBLIC)
        !          1202:        SPL_ME(SplDoublyLinkedList, top,             arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1203:        SPL_ME(SplDoublyLinkedList, bottom,          arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1204:        SPL_ME(SplDoublyLinkedList, count,           arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1205:        SPL_ME(SplDoublyLinkedList, isEmpty,         arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1206:        SPL_ME(SplDoublyLinkedList, setIteratorMode, arginfo_dllist_setiteratormode, ZEND_ACC_PUBLIC)
        !          1207:        SPL_ME(SplDoublyLinkedList, getIteratorMode, arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1208:        SPL_ME(SplDoublyLinkedList, offsetExists,    arginfo_dllist_offsetGet,       ZEND_ACC_PUBLIC)
        !          1209:        SPL_ME(SplDoublyLinkedList, offsetGet,       arginfo_dllist_offsetGet,       ZEND_ACC_PUBLIC)
        !          1210:        SPL_ME(SplDoublyLinkedList, offsetSet,       arginfo_dllist_offsetSet,       ZEND_ACC_PUBLIC)
        !          1211:        SPL_ME(SplDoublyLinkedList, offsetUnset,     arginfo_dllist_offsetGet,       ZEND_ACC_PUBLIC)
        !          1212:        SPL_ME(SplDoublyLinkedList, rewind,          arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1213:        SPL_ME(SplDoublyLinkedList, current,         arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1214:        SPL_ME(SplDoublyLinkedList, key,             arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1215:        SPL_ME(SplDoublyLinkedList, next,            arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1216:        SPL_ME(SplDoublyLinkedList, prev,            arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1217:        SPL_ME(SplDoublyLinkedList, valid,           arginfo_dllist_void,            ZEND_ACC_PUBLIC)
        !          1218:        PHP_FE_END
        !          1219: };
        !          1220: /* }}} */
        !          1221: 
        !          1222: PHP_MINIT_FUNCTION(spl_dllist) /* {{{ */
        !          1223: {
        !          1224:        REGISTER_SPL_STD_CLASS_EX(SplDoublyLinkedList, spl_dllist_object_new, spl_funcs_SplDoublyLinkedList);
        !          1225:        memcpy(&spl_handler_SplDoublyLinkedList, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
        !          1226: 
        !          1227:        spl_handler_SplDoublyLinkedList.clone_obj      = spl_dllist_object_clone;
        !          1228:        spl_handler_SplDoublyLinkedList.count_elements = spl_dllist_object_count_elements;
        !          1229:        spl_handler_SplDoublyLinkedList.get_debug_info = spl_dllist_object_get_debug_info;
        !          1230: 
        !          1231:        REGISTER_SPL_CLASS_CONST_LONG(SplDoublyLinkedList, "IT_MODE_LIFO",  SPL_DLLIST_IT_LIFO);
        !          1232:        REGISTER_SPL_CLASS_CONST_LONG(SplDoublyLinkedList, "IT_MODE_FIFO",  0);
        !          1233:        REGISTER_SPL_CLASS_CONST_LONG(SplDoublyLinkedList, "IT_MODE_DELETE",SPL_DLLIST_IT_DELETE);
        !          1234:        REGISTER_SPL_CLASS_CONST_LONG(SplDoublyLinkedList, "IT_MODE_KEEP",  0);
        !          1235: 
        !          1236:        REGISTER_SPL_IMPLEMENTS(SplDoublyLinkedList, Iterator);
        !          1237:        REGISTER_SPL_IMPLEMENTS(SplDoublyLinkedList, Countable);
        !          1238:        REGISTER_SPL_IMPLEMENTS(SplDoublyLinkedList, ArrayAccess);
        !          1239: 
        !          1240:        spl_ce_SplDoublyLinkedList->get_iterator = spl_dllist_get_iterator;
        !          1241: 
        !          1242:        REGISTER_SPL_SUB_CLASS_EX(SplQueue,           SplDoublyLinkedList,        spl_dllist_object_new, spl_funcs_SplQueue);
        !          1243:        REGISTER_SPL_SUB_CLASS_EX(SplStack,           SplDoublyLinkedList,        spl_dllist_object_new, NULL);
        !          1244: 
        !          1245:        spl_ce_SplQueue->get_iterator = spl_dllist_get_iterator;
        !          1246:        spl_ce_SplStack->get_iterator = spl_dllist_get_iterator;
        !          1247: 
        !          1248:        return SUCCESS;
        !          1249: }
        !          1250: /* }}} */
        !          1251: /*
        !          1252:  * Local variables:
        !          1253:  * tab-width: 4
        !          1254:  * c-basic-offset: 4
        !          1255:  * End:
        !          1256:  * vim600: fdm=marker
        !          1257:  * vim: noet sw=4 ts=4
        !          1258:  */

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>