xoonips/AL/xnpal.cc

/*
        $Revision: 1.16 $
        VPAL: Visiome Platform Abstract Layer
        
        zend_parse_parameters??hp4.1.0??綽?荀?
        .so???＜?ゃ?????????荀????????贋????舟??鴻????
        C++?с????extern "C"{}, BEGIN/END_EXTERN_C()??綽?荀???
*/


#include <stdio.h>
#include "criteria.h"
#include "common.h"
#include "commonal.h"
#include "session.h"
#include "group.h"
#include "account.h"
#include "vpal.h"

// for inet_aton
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>

// global variables
MYSQL *mysql = NULL;


/* declaration of functions to be exported */
extern "C" {
ZEND_FUNCTION(first_module         );
ZEND_FUNCTION(vp_initialize_db     );
ZEND_FUNCTION(vp_login_user        );
ZEND_FUNCTION(vp_logout_user       );
ZEND_FUNCTION(vp_create_session    );
ZEND_FUNCTION(vp_get_session       );
ZEND_FUNCTION(vp_is_activated      );
ZEND_FUNCTION(vp_activate          );
ZEND_FUNCTION(vp_get_account_count );
ZEND_FUNCTION(vp_delete_account    );
ZEND_FUNCTION(vp_get_account       );
ZEND_FUNCTION(vp_get_accounts      );
ZEND_FUNCTION(vp_insert_account    );
ZEND_FUNCTION(vp_update_account    );
ZEND_FUNCTION(vp_dump_uids         );
ZEND_FUNCTION(vp_get_group_count   );
ZEND_FUNCTION(vp_get_groups_by_uid );
ZEND_FUNCTION(vp_is_group_admin    );
ZEND_FUNCTION(vp_dump_gids         );
ZEND_FUNCTION(vp_dump_group_admins );
ZEND_FUNCTION(vp_delete_member     );
ZEND_FUNCTION(vp_insert_member     );
ZEND_FUNCTION(vp_get_members       );
ZEND_FUNCTION(vp_delete_group      );
ZEND_FUNCTION(vp_insert_group      );
ZEND_FUNCTION(vp_update_group      );
ZEND_FUNCTION(vp_get_group         );
ZEND_FUNCTION(vp_get_groups        );
ZEND_FUNCTION(vp_is_moderator      );
ZEND_FUNCTION(vp_get_uid           );

ZEND_FUNCTION(vp_is_valid_session_id );
ZEND_FUNCTION(vp_get_last_error_string );

ZEND_FUNCTION(vp_test_criteria     );
ZEND_FUNCTION(vp_test_uids         );
};
/* compiled function list so Zend knows what's in this module */
zend_function_entry vpalmod_functions[] =
{
    ZEND_FE(first_module         ,NULL)
    ZEND_FE(vp_initialize_db     ,NULL)
    ZEND_FE(vp_login_user        ,NULL)
    ZEND_FE(vp_logout_user       ,NULL)
    ZEND_FE(vp_create_session    ,NULL)
    ZEND_FE(vp_get_session       ,NULL)
    ZEND_FE(vp_is_activated      ,NULL)
    ZEND_FE(vp_activate          ,NULL)
    ZEND_FE(vp_get_account_count ,NULL)
    ZEND_FE(vp_delete_account    ,NULL)
    ZEND_FE(vp_get_account       ,NULL)
    ZEND_FE(vp_get_accounts      ,NULL)
    ZEND_FE(vp_insert_account    ,NULL)
    ZEND_FE(vp_update_account    ,NULL)
    ZEND_FE(vp_dump_uids         ,NULL)
    ZEND_FE(vp_get_group_count   ,NULL)
    ZEND_FE(vp_get_groups_by_uid ,NULL)
    ZEND_FE(vp_is_group_admin    ,NULL)
    ZEND_FE(vp_dump_gids         ,NULL)
    ZEND_FE(vp_dump_group_admins ,NULL)
    ZEND_FE(vp_delete_member     ,NULL)
    ZEND_FE(vp_insert_member     ,NULL)
    ZEND_FE(vp_get_members       ,NULL)
    ZEND_FE(vp_delete_group      ,NULL)
    ZEND_FE(vp_insert_group      ,NULL)
    ZEND_FE(vp_update_group      ,NULL)
    ZEND_FE(vp_get_group         ,NULL)
    ZEND_FE(vp_get_groups        ,NULL)
    ZEND_FE(vp_is_moderator      ,NULL)
    ZEND_FE(vp_get_uid           ,NULL)
    ZEND_FE(vp_is_valid_session_id ,NULL)
    ZEND_FE(vp_get_last_error_string ,NULL)
    ZEND_FE(vp_test_criteria     ,NULL)
    ZEND_FE(vp_test_uids         ,NULL)
    {NULL, NULL, NULL}
};

/* compiled module information */
zend_module_entry vpalmod_module_entry =
{
    STANDARD_MODULE_HEADER,
    "Visiome Platform Abstract Layer",
    vpalmod_functions,
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NO_VERSION_YET,
    STANDARD_MODULE_PROPERTIES
};

/* implement standard "stub" routine to introduce ourselves to Zend */
#if COMPILE_DL_FIRST_MODULE
BEGIN_EXTERN_C()
ZEND_GET_MODULE(vpalmod)
END_EXTERN_C()
#endif


/* implement function that is meant to be made available to PHP */
ZEND_FUNCTION(first_module)
{
    long parameter;
//      if(ZEND_NUM_ARGS() != 2) WRONG_PARAM_COUNT;
    if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &parameter) == FAILURE) {
        return;
    }
        parameter++;
    RETURN_LONG(parameter);
}
/** zval????C????絖?????緇?????
  */
char *getZvalString( zval **p ){
        convert_to_string_ex(p);
        return Z_STRVAL_PP(p); //(**p).value.str.val;
}

/** zval????int??緇?????
  */
int getZvalInt( zval **p ){
        convert_to_long_ex(p);
        return Z_LVAL_PP(p); // (int)(**p).value.lval;
}

// keylen????鮎??0????????
static void print_hash_key( int res, const char *key, uint keyLen, ulong index ){
        zend_printf( "print_hash_key : key=0x%08x keylen=%08d index=%08d<br>  ", key, keyLen, index );
        if ( res == HASH_KEY_IS_STRING ){
                char *p = new char[keyLen+1];
                memcpy( p, key, keyLen );
                p[keyLen] = 0;
                zend_printf( "  key is string[%s]<br>\n", p );
        }
        else {
                zend_printf( "  key is integer[%d]<br>\n", index );
        }
}


/** zval*????criteria_t?????????????????????鴻??????紊掩??????getResult()!=RES_OK <br>
    criteria : 
    array( 'start'=>0, 'rows'=>10, 
       'orders'=>array(
        array('name'=>'id','order'=>'0'),
        array('name'=>'timestamp','name'=>'1'), ...)
    ); ??????就???ｆ?渇????
  */
class zCriteria_t : public criteria {
private:
        result_t result;

        // pz: array('name'=>'timestamp','name'=>'1')
        // ????????orderby??篏???????申????
        void setOrder( zval *pz ){
                char *column = 0;
                order_t order = (order_t)0;
                
                HashPosition pos;
                zval **ppzTmp = 0;
                int res2;
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                //print_hash_key( keyType, key, keyLen, index );
                                if ( strncasecmp( key, "name", keyLen ) == 0 && keyLen == 5 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        column = getZvalString(ppzTmp);
//                                      zend_printf( "column=%s<br>\n", column );
                                }
                                else if ( strncasecmp( key, "order", keyLen ) == 0 && keyLen == 6 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        order = (order_t)getZvalInt(ppzTmp);
//                                      zend_printf( "order=%d<br>\n", order );
                                }
                        }
                        
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                if ( column ){
                        orderby *o = new orderby( column, order );
                        addOrderBy( o );
                }
                
                result = RES_OK;
        }
        
        // pz: array( array('column'=>'hoge','order'=>'1'), array('column'=>'huga','order'=>'2'), ...)
        void setOrders( zval *pz ){
                HashPosition pos;
                
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                
                zval **ppzTmp = 0;
                int res2;
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                //print_hash_key( keyType, key, keyLen, index );
                                setOrder( *ppzTmp );
                        }
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                result = RES_OK;
        }
        
        void initialize( zval *pz ){
                HashPosition pos;
                zval **ppzTmp = 0;
                int res2;
                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pz), &pos);
                while ( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(pz), (void **)&ppzTmp, &pos)) == SUCCESS ) {
                        char *key = 0;
                        uint keyLen = 0;
                        ulong index = 0;
                        int keyType = zend_hash_get_current_key_ex(Z_ARRVAL_P(pz), &key, &keyLen, &index, false/*duplicate flag*/, &pos );
                        if ( keyType == HASH_KEY_IS_STRING/*1*/ ||  keyType == HASH_KEY_IS_LONG/*2*/ ){
                                //print_hash_key( keyType, key, keyLen, index );
                                if ( strncasecmp( key, "start", keyLen ) == 0 && keyLen == 6 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        int tmp = getZvalInt(ppzTmp);
//                                      zend_printf( "start=%d<br>\n", tmp );
                                        setLimit( tmp, getLimitRows() );
                                }
                                else if ( strncasecmp( key, "rows", keyLen ) == 0 && keyLen == 5 ){
                                        SEPARATE_ZVAL(ppzTmp);
                                        int tmp = getZvalInt(ppzTmp);
//                                      zend_printf( "rows=%d<br>\n", tmp );
                                        setLimit( getLimitStart(), tmp );
                                }
                                else if ( strncasecmp( key, "orders", keyLen ) == 0 && keyLen == 7 ){
                                        setOrders( *ppzTmp );
                                }
                                else
                                        ;       // ignore unknown key
                        }
                        else
                                ; // ignore bad key
                        zend_hash_move_forward_ex(Z_ARRVAL_P(pz), &pos);
                }
                result = RES_OK;
        }

public:
        zCriteria_t() : criteria(){ result = RES_ERROR; }
        zCriteria_t( zval *pz ) : criteria(){ initialize(pz); }
        zCriteria_t( zval **ppz ) : criteria() { initialize(*ppz); }
        result_t getResult(){ return result; };
        
        void dump(){
                zend_printf( "dumping zCriteria...<br>\n" );
                zend_printf( "result=%d<br>\n", (int)result );
                zend_printf( "start=%d, rows=%d<br>\n", getLimitStart(), getLimitRows() );
                const orderby *p = headOrderBy();
                while ( p ){
                        zend_printf( "column=%s, order=%d<br>\n", p->getColumn(), p->getOrder() );
                        p = nextOrderBy();
                }
        }
};


/** ?ｆ?渇???????≪???祉?鴻????ong?ゃ??緇?????
  @param   ht   ?ｆ?渇????
  @param   key  ????/span>
  @param   val  long?ゃ?????????????ゃ?潟??/span>
  @return  ????????true
 */
static bool hashGetLong( HashTable *ht, const char *key, long *val ){
    zval         **tmp;
    if( zend_hash_find( ht, (char *)key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_long_ex( tmp );
        *val = Z_LVAL_PP(tmp);
        return true;
    }
    return false;
}

/** ?ｆ?渇???????≪???祉?鴻??????絖?????緇?????
  @param   ht   ?ｆ?渇????
  @param   key  ????/span>
  @param   val  ??絖????????????????ゃ?潟??/span>
  @return  ????????true
 */
static bool hashGetString( HashTable *ht, const char *key, char **val ){
    zval         **tmp;
    if( zend_hash_find( ht, (char *)key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_string_ex( tmp );
        *val = Z_STRVAL_PP(tmp);
        return true;
    }
    return false;
}

/** ?ｆ?渇???????≪???祉?鴻????ouble?ゃ??緇?????
  @param   ht   ?ｆ?渇????
  @param   key  ????/span>
  @param   val  double?ゃ?????????????ゃ?潟??/span>
  @return  ????????true
 */
static bool hashGetDouble( HashTable *ht, const char *key, double *val ){
    zval         **tmp;
    if( zend_hash_find( ht, (char *)key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_double_ex( tmp );
        *val = Z_DVAL_PP(tmp);
        return true;
    }
    return false;
}

/** zval*????account?????????????????????鴻?? <br>
    ????紊掩??????getResult()!=RES_OK <br>
  */
class zAccount_t : public account {
private:
        result_t result;
        void initialize(zval *pz){
                HashTable *ht = Z_ARRVAL_P(pz);
                long l;
                char *p;
                double d;
                if ( hashGetLong  ( ht, "uid"               , &l ) ) setUID              ( l );
                if ( hashGetString( ht, "uname"             , &p ) ) setUname            ( p );
                if ( hashGetString( ht, "name"              , &p ) ) setName             ( p );
                if ( hashGetString( ht, "email"             , &p ) ) setEmail            ( p );
                if ( hashGetString( ht, "url"               , &p ) ) setURL              ( p );
                if ( hashGetString( ht, "user_avatar"       , &p ) ) setUserAvatar       ( p );
                if ( hashGetString( ht, "user_icq"          , &p ) ) setUserIcq          ( p );
                if ( hashGetString( ht, "user_from"         , &p ) ) setUserFrom         ( p );
                if ( hashGetString( ht, "user_sig"          , &p ) ) setUserSig          ( p );
                if ( hashGetString( ht, "actkey"            , &p ) ) setActkey           ( p );
                if ( hashGetString( ht, "user_aim"          , &p ) ) setUserAim          ( p );
                if ( hashGetString( ht, "user_yim"          , &p ) ) setUserYim          ( p );
                if ( hashGetString( ht, "user_msnm"         , &p ) ) setUserMsnm         ( p );
                if ( hashGetString( ht, "pass"              , &p ) ) setPass             ( p );
                if ( hashGetString( ht, "theme"             , &p ) ) setTheme            ( p );
                if ( hashGetString( ht, "umode"             , &p ) ) setUmode            ( p );
                if ( hashGetString( ht, "user_occ"          , &p ) ) setUserOcc          ( p );
                if ( hashGetString( ht, "bio"               , &p ) ) setBio              ( p );
                if ( hashGetString( ht, "user_intrest"      , &p ) ) setUserIntrest      ( p );
                if ( hashGetDouble( ht, "timezone_offset"   , &d ) ) setTimezoneOffset   ( d );
                if ( hashGetLong  ( ht, "attachsig"         , &l ) ) setAttachsig        ( l );
                if ( hashGetLong  ( ht, "last_login"        , &l ) ) setLastLogin        ( l );
                if ( hashGetLong  ( ht, "level"             , &l ) ) setLevel            ( l );
                if ( hashGetLong  ( ht, "notify_method"     , &l ) ) setNotifyMethod     ( l );
                if ( hashGetLong  ( ht, "notify_mode"       , &l ) ) setNotifyMode       ( l );
                if ( hashGetLong  ( ht, "posts"             , &l ) ) setPosts            ( l );
                if ( hashGetLong  ( ht, "rank"              , &l ) ) setRank             ( l );
                if ( hashGetLong  ( ht, "uorder"            , &l ) ) setUorder           ( l );
                if ( hashGetLong  ( ht, "user_mailok"       , &l ) ) setUserMailok       ( l );
                if ( hashGetLong  ( ht, "user_regdate"      , &l ) ) setUserRegdate      ( l );
                if ( hashGetLong  ( ht, "user_viewemail"    , &l ) ) setUserViewemail    ( l );
                if ( hashGetLong  ( ht, "activate"          , &l ) ) setActivate         ( l );
                if ( hashGetString( ht, "address"           , &p ) ) setAddress          ( p );
                if ( hashGetString( ht, "division"          , &p ) ) setDivision         ( p );
                if ( hashGetString( ht, "tel"               , &p ) ) setTel              ( p );
                if ( hashGetString( ht, "company_name"      , &p ) ) setCompanyName      ( p );
                if ( hashGetString( ht, "country"           , &p ) ) setCountry          ( p );
                if ( hashGetString( ht, "zipcode"           , &p ) ) setZipcode          ( p );
                if ( hashGetString( ht, "fax"               , &p ) ) setFax              ( p );
                if ( hashGetString( ht, "base_url"          , &p ) ) setBaseURL          ( p );
                if ( hashGetLong  ( ht, "notice_mail"       , &l ) ) setNoticeMail       ( l );
                if ( hashGetLong  ( ht, "notice_mail_since" , &l ) ) setNoticeMailSince  ( l );

                result = RES_OK;
        }
public:
        zAccount_t() : account(){ result = RES_ERROR; }
    
    /** ?潟?潟?鴻????????/span>
      @param pz  array( 'uid'=>1, 'uname'=>'root', ... ); ??????就???ｆ?渇???? */
        zAccount_t( zval *pz ) : account(){ initialize(pz); }
        zAccount_t( zval **ppz ) : account() { initialize(*ppz); }
        result_t getResult(){ return result; };
};

/** zval*????(userid_t *puid,int uidLen)?????????????????????鴻?? <br>
    ????紊掩??????getResult()!=RES_OK <br>
  */
class zUIDs_t {
private:
        result_t result;
        userid_t *pUID;
        int len;
public:
        zUIDs_t(){
                pUID = 0;
                len = 0;
                result = RES_ERROR;
        }
        
    /** ?潟?潟?鴻????????/span>
      @param pza  array( '1', '3', '4', '6', ... ); ??????就?????? */
        zUIDs_t( zval *pza ){
                pUID = 0;
                len = 0;
                result = RES_ERROR;
                
                if ( Z_TYPE_P(pza) != IS_ARRAY ){
                        result = RES_ERROR;
                }
                else {
                        len = zend_hash_num_elements(Z_ARRVAL_P(pza));
                        if(len == 0) {
                                pUID = new userid_t[1];
                                result = RES_OK;
                        }
                        else {
                                /* php/ext/standard/string.c ? implode??????????????????
                                   zend_hash_*???????ャ?＜?潟???ｃ????????????????鐚?
                                */
                                zval         **tmp;
                                HashPosition   pos;
                                int i = 0;
                                pUID = new userid_t[len];
                                
                                zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(pza), &pos);
                                while (zend_hash_get_current_data_ex(Z_ARRVAL_P(pza), (void **) &tmp, &pos) == SUCCESS ) {
                                        SEPARATE_ZVAL(tmp); // zend.arguments.write-safety.html ????/span>
                                        convert_to_long_ex(tmp);
                                        if ( i < len )
                                                pUID[i++] = Z_LVAL_PP(tmp);
                                        zend_hash_move_forward_ex(Z_ARRVAL_P(pza), &pos);
                                }
                                len = i;
                                result = RES_OK;
                        }
                }
        }
        
        ~zUIDs_t(){
                if ( pUID ) delete[] pUID;
        }
        result_t getResult(){ return result; }
        userid_t *getPUID(){ return pUID; }
        int getLen(){ return len; }
        void dump(){
                zend_printf( "dumping zUIDs...<br>\n" );
                zend_printf( "result=%d<br>\n", (int)result );
                zend_printf( "len=%d<br>\n", len );
                for ( int i = 0; i < len; i++ ){
                        zend_printf( "pUID[%d] = %d<br>\n", i, pUID[i] );
                }
        }
};

/**
 * 
 * uids_t????????PHP???????????????
 * 
 * @param pUID 紊???????serid_t??????
 * @param len pUID?????????激??
 * @param pz 紊???腟??????吾??莨若??????(??????羝??帥?с????????
 * @return RES_OK
 * 
 */
result_t uidsToZval( userid_t *pUID, int len, zval **ppz )
{
    zend_hash_clean( Z_ARRVAL_PP(ppz) );
        
        // add UIDs
        for ( int i = 0; i < len; i++ ){
                add_next_index_long(*ppz, (long)(pUID[i]) );
        }
        
        return RES_OK;
}
/**
 *
 * groupid_t????????PHP???????????????
 * @param pGID 紊???????roupid_t??????
 * @param len  pGID?????????激??
 * @param ppz  紊???腟??????吾??莨若??????(??????羝??帥?с????????
 * @return RES_OK
 *
 */
result_t gidsToZval( groupid_t *pGID, int len, zval **ppz )
{
    zend_hash_clean( Z_ARRVAL_PP(ppz) );
        
        // add GIDs
        for ( int i = 0; i < len; i++ ){
                add_next_index_long(*ppz, (long)(pGID[i]) );
        }
        
        return RES_OK;
}


/**
 *
 * account_t????絎鴻??PHP???????????????
 * @param pAccount 紊???????ccount_t*
 * @param z        紊???腟??????吾??莨若??????(??????羝??帥?с????????
 * @return RES_OK
 *
 */
result_t accountToZval( const account_t *pAccount, zval *z )
{
    zend_hash_clean( z -> value.ht );
    
    add_assoc_long( z, "uid", pAccount -> getUID( ) );
    add_assoc_string( z, "uname", ( char* )pAccount -> getUname( ), 1 );
    add_assoc_string( z, "name", ( char* )pAccount -> getName( ), 1 );
    add_assoc_string( z, "email", ( char* )pAccount -> getEmail( ), 1 );
    add_assoc_string( z, "url", ( char* )pAccount -> getURL( ), 1 );
    add_assoc_string( z, "user_avatar", ( char* )pAccount -> getUserAvatar( ), 1 );
    add_assoc_string( z, "user_icq", ( char* )pAccount -> getUserIcq( ), 1 );
    add_assoc_string( z, "user_from", ( char* )pAccount -> getUserFrom( ), 1 );
    add_assoc_string( z, "user_sig", ( char* )pAccount -> getUserSig( ), 1 );
    add_assoc_string( z, "actkey", ( char* )pAccount -> getActkey( ), 1 );
    add_assoc_string( z, "user_aim", ( char* )pAccount -> getUserAim( ), 1 );
    add_assoc_string( z, "user_yim", ( char* )pAccount -> getUserYim( ), 1 );
    add_assoc_string( z, "user_msnm", ( char* )pAccount -> getUserMsnm( ), 1 );
    add_assoc_string( z, "pass", ( char* )pAccount -> getPass( ), 1 );
    add_assoc_string( z, "theme", ( char* )pAccount -> getTheme( ), 1 );
    add_assoc_string( z, "umode", ( char* )pAccount -> getUmode( ), 1 );
    add_assoc_string( z, "user_occ", ( char* )pAccount -> getUserOcc( ), 1 );
    add_assoc_string( z, "bio", ( char* )pAccount -> getBio( ), 1 );
    add_assoc_string( z, "user_intrest", ( char* )pAccount -> getUserIntrest( ), 1 );
    add_assoc_double( z, "timezone_offset", pAccount -> getTimezoneOffset( ) );
    add_assoc_long( z, "attachsig", pAccount -> getAttachsig( ) );
    add_assoc_long( z, "last_login", pAccount -> getLastLogin( ) );
    add_assoc_long( z, "level", pAccount -> getLevel( ) );
    add_assoc_long( z, "notify_method", pAccount -> getNotifyMethod( ) );
    add_assoc_long( z, "notify_mode", pAccount -> getNotifyMode( ) );
    add_assoc_long( z, "posts", pAccount -> getPosts( ) );
    add_assoc_long( z, "rank", pAccount -> getRank( ) );
    add_assoc_long( z, "uorder", pAccount -> getUorder( ) );
    add_assoc_long( z, "user_mailok", pAccount -> getUserMailok( ) );
    add_assoc_long( z, "user_regdate", pAccount -> getUserRegdate( ) );
    add_assoc_long( z, "user_viewemail", pAccount -> getUserViewemail( ) );
    
    add_assoc_long( z, "activate", pAccount -> getActivate( ) );
    add_assoc_string( z, "address", ( char* )pAccount -> getAddress( ), 1 );
    add_assoc_string( z, "division", ( char* )pAccount -> getDivision( ), 1 );
    add_assoc_string( z, "tel", ( char* )pAccount -> getTel( ), 1 );
    add_assoc_string( z, "company_name", ( char* )pAccount -> getCompanyName( ), 1 );
    add_assoc_string( z, "country", ( char* )pAccount -> getCountry( ), 1 );
    add_assoc_string( z, "zipcode", ( char* )pAccount -> getZipcode( ), 1 );
    add_assoc_string( z, "fax", ( char* )pAccount -> getFax( ), 1 );
    add_assoc_string( z, "base_url", ( char* )pAccount -> getBaseURL( ), 1 );
    add_assoc_long( z, "notice_mail", pAccount -> getNoticeMail( ) );
    add_assoc_long( z, "notice_mail_since", pAccount -> getNoticeMailSince( ) );
        return RES_OK;
}
/**
 *
 * 茲??違??ccount_t????絎鴻??PHP?????????????????????
 * @param pAccounts 紊???????ccount_t*
 * @param accountsLen pAccounts?????????激??
 * @param z        紊???腟??????吾??莨若??????(??????羝??帥?с????????
 * @return RES_OK
 *
  z: ?????????????????????????? <br>
    array( 
      array(
        'uid'=>100,
        'activate'=>1,
        'division'=>'foo',
        'tel'=>'123-456-789',
        ...
      ), 
      ...
    )
 */
result_t accountsToZval( const account_t *pAccounts, int accountsLen, zval *z )
{
    zend_hash_clean( z -> value.ht );
    for( int i = 0; i < accountsLen; i++ ){
        zval *new_array;
        MAKE_STD_ZVAL(new_array);
        if(array_init(new_array) != SUCCESS){
            return RES_ERROR;
        }
        add_index_zval( z, i, new_array );
        accountToZval( &pAccounts[ i ], new_array );
    }
        return RES_OK;
}

/**
 *
 * 茲??違??roup_t????絎鴻??PHP?????????????????????
 * @param pGroups 紊???????roup_t*
 * @param groupsLen pGroups?????????激??
 * @param z        紊???腟??????吾??莨若??????(??????羝??帥?с????????
 * @return RES_OK
 *
  z: ?????????????????????????? <br>
    array( 
      array(
        'gid'=>1,
        'gname'=>'foo group',
        'gdesc'=>'group of foo'
      ), 
      ...
    )
 */
result_t groupsToZval( const group_t *pGroups, int groupsLen, zval *z )
{
    zend_hash_clean( z -> value.ht );
    for( int i = 0; i < groupsLen; i++ ){
        zval *new_array;
        MAKE_STD_ZVAL(new_array);
        if(array_init(new_array) != SUCCESS){
            return RES_ERROR;
        }
        add_index_zval( z, i, new_array );
        add_assoc_long( new_array, "gid",  pGroups[ i ].getGID( ) );
        add_assoc_string( new_array, "gname", ( char* )pGroups[ i ].getGname( ), 1 );
        add_assoc_string( new_array, "gdesc", ( char* )pGroups[ i ].getDesc( ), 1 );
    }
        return RES_OK;
}

/**
 * 
 * group_t????絎鴻??PHP???ｆ?渇?????????????
 * 
 * @param pGroup 紊????????違???若??????/span>
 * @param z 紊???腟??????吾??莨若???ｆ?渇????(??????羝??帥?с????????
 * @return RES_OK
 * 
 */
result_t groupToZval( const group_t *pGroup, zval *z )
{
    zend_hash_clean( z -> value.ht );
    add_assoc_long( z, "gid",  pGroup -> getGID( ) );
    add_assoc_string( z, "gname", ( char* )pGroup -> getGname( ), 1 );
    add_assoc_string( z, "gdesc", ( char* )pGroup -> getDesc( ), 1 );
        return RES_OK;
}

/**
 * 
 * PHP???ｆ?渇????????絎鴻??group_t?????????
 * 
 * @param z 紊????????ｆ?渇????
 * @param pGroup 紊???腟??????吾??莨若???違???若??
 * @return RES_OK
 * 
 */
result_t zvalToGroup( zval *z, group_t *pGroup )
{
    zval         **tmp;
    HashPosition   pos;
    int i = 0;
    char* key = 0;
    
    key = "gid";
    if( zend_hash_find( z -> value.ht, key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_long_ex( tmp ) ;
        pGroup -> setGID( (*tmp) -> value.lval );
    }    
    key = "gname";
    if( zend_hash_find( z -> value.ht, key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_string_ex( tmp ) ;
        pGroup -> setGname( (*tmp) -> value.str.val );
    }    
    key = "gdesc";
    if( zend_hash_find( z -> value.ht, key, strlen( key ) + 1, ( void** )&tmp ) == SUCCESS ){
        convert_to_string_ex( tmp ) ;
        pGroup -> setDesc( (*tmp) -> value.str.val );
    }
        return RES_OK;
}

/**
 * 
 * session_t????絎鴻??PHP???ｆ?渇?????????????
 * 
 * @param pSession 紊???????ession_t
 * @param z 紊???腟??????吾??莨若???ｆ?渇????(??????羝??帥?с????????
 * @return RES_OK
 * 
 */
result_t sessionToZval( const session_t *pSession, zval *z )
{
        string sessionID(unsignedIntToString(pSession->getSessionID()));
        add_assoc_string(z, "session_id", (char *)sessionID.c_str(), 1);
        
        string date(unsignedIntToString((unsigned int)pSession->getDate()));
        add_assoc_string(z, "date", (char *)date.c_str(), 1);
        
        string userID(unsignedIntToString((unsigned int)pSession->getUserID()));
        add_assoc_string(z, "user_id", (char *)userID.c_str(), 1);
        
        return RES_OK;
}


/** ??絎??????違???若???????宴??緇???<br>
    int vp_get_group( int sid, int gid, array group );
    @param sid    VP???祉???激?с??D
    @param gid    VP ? group_id
    @param group  腟?????????????????
    @return 0 success <br>
  */
ZEND_FUNCTION(vp_get_group)
{
        long sid, gid;
        zval *zgroup;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lla",
                              &sid, &gid, &zgroup) == FAILURE) {
                return;
        }
        
        const group_t *pgroup;
        result_t result = getGroup( (sessionid_t)sid, (groupid_t)gid, &pgroup );
        if ( RES_OK == result ){
                groupToZval( pgroup, zgroup );
                freeResult( pgroup );
        }
        
    RETURN_LONG(result);
}


/** ??絎??????違???若??(茲????????宴??緇???<br>
    vp_get_groups( int sid, array gids, array criteria, array groups );
    @param sid      VP???祉???激?с??D
    @param gids     VP ? group_id ??????
    @param criteria ?＞散
    @param groups   腟???????????????????????
    @return 0 success <br>
  */
ZEND_FUNCTION(vp_get_groups)
{
        result_t result;
        long sid, uid;
        zval *zcriteria;
        zval *zgids;
        zval *zgroups;
    zval **ppzTmp = 0;
    HashPosition pos;
    int res2;
    int gidsLen;
    const group_t* groups;
    int groupsLen;
    
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laaa",
                              &sid, &zgids, &zcriteria, &zgroups) == FAILURE) {
                return;
        }
        
    //gids???違???若??ID???潟???若????
    gidsLen = zend_hash_num_elements(Z_ARRVAL_P(zgids));
    groupid_t *gids = new groupid_t[ gidsLen ];
    zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(zgids), &pos);
    for( int i = 0; i < gidsLen; i++ ){
        if( (res2=zend_hash_get_current_data_ex(Z_ARRVAL_P(zgids), (void **)&ppzTmp, &pos)) == SUCCESS ){
            SEPARATE_ZVAL(ppzTmp);
            convert_to_long_ex(ppzTmp);
            gids[ i ] = Z_LVAL_PP(ppzTmp);
        }
        zend_hash_move_forward_ex(Z_ARRVAL_P(zgids), &pos);
    }
    
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
        result = getGroups( (sessionid_t)sid, gids, gidsLen, &zcri, &groups, &groupsLen );
        if ( RES_OK == result ){
            groupsToZval( groups, groupsLen, zgroups );
            delete[] gids;
            freeResult( groups );
        }
    }
    RETURN_LONG(result);
}


/** ??絎????????若?吟???≪?????若?帥??????????茯帥?鴻??<br>
    int vp_is_moderator(int sid, int uid)
    @param sid      VP???祉???激?с??D
    @param uid      xoops ? uid (xoops_users.uid)
    @return true  ?≪?????若?帥?с???? <br>
  */
ZEND_FUNCTION(vp_is_moderator)
{
        long vpSessionID;
        userid_t uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", 
                              &vpSessionID, &uid) == FAILURE) {
                return;
        }
        
        bool result = isModerator( (sessionid_t)vpSessionID, uid );
    RETURN_BOOL(result)
}

/** ???若?九??????uid??茯帥?鴻??<br>
    int vp_get_uid(string uname,int &uid)
    @param sid      VP???祉???激?с??D
    @param uname    xoops ? uname (xoops_users.uname)
    @param uid      xoops ? uid (xoops_users.uid) ??????????紊???/span>
    @return 0 success 
  */
ZEND_FUNCTION(vp_get_uid)
{
        char *uname;
        int unameLen;
        zval *zuid;
        userid_t uid;
    
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sz", 
          &uname, &unameLen, &zuid) == FAILURE) {
                return;
        }
        
        if (!PZVAL_IS_REF(zuid)) {
                zend_error(E_WARNING, "2nd parameter wasn't passed by reference");
                RETURN_LONG(RES_PHP_NONREF);
        }
        
        string strUname( uname, unameLen );
        result_t result = getUid( strUname.c_str(), &uid );
        ZVAL_LONG(zuid, (long)uid);
        RETURN_LONG((long)result);
}

ZEND_FUNCTION(vp_test_criteria)
{
        zval *z;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", 
          &z) == FAILURE) {
                return;
        }
        zend_printf("zend_printf...<br>\n");
        zCriteria_t zcri(z);
        zcri.dump();
        RETURN_FALSE
}

ZEND_FUNCTION(vp_test_uids)
{
        zval *z;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", 
          &z) == FAILURE) {
                return;
        }
        zend_printf("zend_printf...<br>\n");
        zUIDs_t zuids(z);
        zuids.dump();
        RETURN_FALSE
}


/** DB??･膓????????≪??･膓?筝???･膓???????????????<br>
    int initialize_db( string host[, string user[, string password[, string dbname[, string prefix]]]] );
    @param host      ?ョ????????ユ????ULL
    @param user      DB?ョ????????若?九???????ユ????ULL
    @param password  DB?ョ????????鴻???若???????ユ????ULL
    @param dbname    DB?ョ?????B???????ユ????quot;"
    @param prefix    XOOPS DB ??refix??
    @return 0 success <br>
  */
ZEND_FUNCTION(vp_initialize_db)
{
        zval **parameters[5];
        char *host;
        char *user;
        char *password;
        char *dbname;
        char *prefix;

        /* get the number of arguments */
        int argNum = ZEND_NUM_ARGS();
        if (argNum > 5)
                WRONG_PARAM_COUNT;

        /* argument count is correct, now retrieve arguments */
        if(zend_get_parameters_array_ex(argNum, parameters) != SUCCESS)
                WRONG_PARAM_COUNT;

        if (argNum < 1) host = NULL;
        else            host = getZvalString( parameters[0] );
        
        if (argNum < 2) user = NULL;
        else            user = getZvalString( parameters[1] );
        
        if (argNum < 3) password = NULL;
        else            password = getZvalString( parameters[2] );
        
        if (argNum < 4) dbname = "";
        else            dbname = getZvalString( parameters[3] );
        
        if (argNum < 5) prefix = "";
        else            prefix = getZvalString( parameters[4] );
        
        result_t result = initializeDB( host, user, password, dbname, prefix );
        
        RETURN_LONG(result);
}

/** ???違?ゃ?潟??????<br>
    int vp_login_user(string uname, string password, int &session_id)
    @param uname      ???若?九??(xoops_users.uname)
    @param password   ???鴻???若??(md5(password)=xoops_users.pass)
    @return 0 success 
  */
ZEND_FUNCTION(vp_login_user)
{
        char *uname;
        int unameLen;
        char *passwd;
        int passwdLen;
        zval *zVPSessionID;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ssz", 
          &uname, &unameLen, &passwd, &passwdLen, &zVPSessionID) == FAILURE) {
                return;
        }
        
        if (!PZVAL_IS_REF(zVPSessionID)) {
                zend_error(E_WARNING, "3rd parameter wasn't passed by reference");
                RETURN_LONG(RES_PHP_NONREF);
        }
        
        sessionid_t vpSessionID;
        result_t result = loginUser( uname, passwd, &vpSessionID );
        if ( result == RES_OK )
                ZVAL_LONG(zVPSessionID, (long)vpSessionID);
        RETURN_LONG((long)result);
}

/** ???違?≪??????????<br>
    void vp_logout_user(int vp_session_id)
    @param vp_session_id  VP???祉???激?с??D
    @return ????
  */
ZEND_FUNCTION(vp_logout_user)
{
        long vpSessionID;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &vpSessionID) == FAILURE) {
                return;
        }
        logoutUser( (sessionid_t)vpSessionID );
        
    RETURN_NULL();
}

/** VP???祉???激?с??D 篏???<br>
    int vp_create_session( string xoops_sess_id, int uid, int &session )
    @param xoops_sess_id  xoops???祉???激?с??D
    @param uid  xoops ? uid (xoops_users.uid)
    @param session  篏???????VP??ession??????????紊???/span>
    @return 0 ????
  */
ZEND_FUNCTION(vp_create_session)
{
        char *xoopsSessionID;
        int xoopsSessionIDLen;
        long uid;
        zval *zVPSessionID;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "slz",
          &xoopsSessionID, &xoopsSessionIDLen, &uid, &zVPSessionID) == FAILURE) {
                return;
        }
        
        if (!PZVAL_IS_REF(zVPSessionID)) {
                zend_error(E_WARNING, "3rd parameter wasn't passed by reference");
                RETURN_LONG(RES_PHP_NONREF);
        }
        
        sessionid_t vpSessionID = 0;
        result_t result = createSession( xoopsSessionID, (userid_t)uid, &vpSessionID );
        if ( result == RES_OK )
                ZVAL_LONG(zVPSessionID, (long)vpSessionID);
        RETURN_LONG((long)result);
}

/** VP ? session ???膣井???宴??緇???<br>
    int vp_get_session( int vp_session_id, array session_info )
    @param vp_session_id   VP???祉???激?с??D
    @param session_info  腟?????????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_session)
{
        long vpSessionID;
        zval *sessionInfo;
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la",
          &vpSessionID, &sessionInfo) == FAILURE) {
                return;
        }
        const session_t *session = 0;
        result_t result = getSession( (sessionid_t)vpSessionID, &session );
        if ( result == RES_OK ){
                sessionToZval( session, sessionInfo );
                freeResult( session );
        }
        
        RETURN_LONG((long)result);
}

/** ???若?吟??ctivate?倶??????緇?????<br>
    bool vp_is_activated( int vp_session_id, int user_id )
    @param vp_session_id   VP???祉???激?с??D
    @param user_id  xoops_users.uid
    @return 0 success
  */
ZEND_FUNCTION(vp_is_activated)
{
        long sid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", &sid, &uid) == FAILURE) {
                return;
        }
        
        bool result = isActivated( (sessionid_t)sid, (userid_t)uid );
        
    RETURN_BOOL(result);
}

/** activate??????<br>
    bool vp_activate( int vp_session_id, int user_id, bool activated )
    @param vp_session_id   vp ? session id
    @param user_id   xoops_users.uid
    @param activated  true:activate, false:inactivate
    @return 0 success
  */
ZEND_FUNCTION(vp_activate)
{
        long sid, uid;
        bool activated;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llb",
          &sid, &uid, &activated) == FAILURE) {
                return;
        }
        
        result_t result = activate( (sessionid_t)sid, (userid_t)uid, activated );
        
    RETURN_LONG(result);
}

/** VP???≪?????潟???違??緇?????<br>
    int vp_get_account_count( int vp_session_id )
    @param vp_session_id   VP???祉???激?с??D
    @return 0 success
  */
ZEND_FUNCTION(vp_get_account_count)
{
        long sid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l",
          &sid) == FAILURE) {
                return;
        }
        
        long count = getAccountCount( (sessionid_t)sid );
    RETURN_LONG(count);
}

/** ?≪?????潟???????ゃ??????<br>
    bool vp_delete_account( int vp_session_id, int user_id )
    @param vp_session_id   VP???祉???激?с??D
    @param user_id   xoops_users.uid
    @return 0 success
  */
ZEND_FUNCTION(vp_delete_account)
{
        long sid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll",
          &sid, &uid) == FAILURE) {
                return;
        }
        
        result_t result = deleteAccount( (sessionid_t)sid, (userid_t)uid );
        
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴??緇?????<br>
    int vp_get_account( int vp_session_id, int user_id, array account_info )
    @param vp_session_id   VP???祉???激?с??D
    @param user_id   xoops_users.uid
    @param account_info ?≪?????潟?????宴???????????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_account)
{
        long sid, uid;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lla",
          &sid, &uid, &zaccount) == FAILURE) {
        fprintf( stderr, "error occured " );
                return;
        }
        
        const account_t *paccount;
        result_t result = getAccount( (sessionid_t)sid, (userid_t)uid, &paccount );
        if ( RES_OK == result ){
                accountToZval( paccount, zaccount );
                freeResult( paccount );
        }
        
    RETURN_LONG(result);
}

/** ?＞散????眼?????≪?????潟???????宴??緇?????<br>
    int vp_get_accoutns( int sid, array uids, array criteria, array accounts );
    @param vp_session_id   VP???祉???激?с??D
    @param user_id   xoops_users.uid
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param account_info ?≪?????潟?????宴???????????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_accounts)
{
        result_t result;
        long sid;
        zval *zuids;
        zval *zcriteria;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laaa",
          &sid, &zuids, &zcriteria, &zaccount) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                zUIDs_t zUIDs(zuids);
                result = zUIDs.getResult();
                if ( RES_OK == result ){
                        const account_t *paccounts;
                        int accountLen;
                        result = getAccounts( (sessionid_t)sid, 
                                zUIDs.getPUID(), zUIDs.getLen(),
                                &zcri, &paccounts, &accountLen );
                        if ( RES_OK == result ){
                                accountsToZval( paccounts, accountLen, zaccount );
                                freeResult( paccounts );
                        }
                }
        }
        
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴??荐??蚊??????<br>
    int vp_insert_account( int sid, array account_info, int &user_id );
    @param vp_session_id   vp ? session id
    @param account_info 荐??蚊???????≪?????潟????????/span>
    @param user_id ???若??D(xoops_users.uid)???吾??莨若???????＜???潟??/span>
    @return 0 success
  */
ZEND_FUNCTION(vp_insert_account)
{
        result_t result;
        long sid;
        zval *zaccount;
        zval *zuid;
    userid_t uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laz",
          &sid, &zaccount, &zuid) == FAILURE) {
                return;
        }
        
        zAccount_t zacc(zaccount);
        result = zacc.getResult();
        if ( RES_OK == result ){
                result = insertAccount( (sessionid_t)sid, &zacc, &uid );
        }
    zuid -> type = IS_LONG;
    zuid -> value.lval = uid;
    RETURN_LONG(result);
}

/** ?≪?????潟?????宴???贋?違??????<br>
    int vp_update_account( int sid, array account );
    @param vp_session_id   VP???祉???激?с??D
    @param account_info ?吾??莨若???鴻???≪?????潟?????宴??茵????ｆ?渇????
    @return 0 success
  */
ZEND_FUNCTION(vp_update_account)
{
        result_t result;
        long sid;
        zval *zaccount;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la",
          &sid, &zaccount) == FAILURE) {
                return;
        }
        
        zAccount_t zacc(zaccount);
        result = zacc.getResult();
        if ( RES_OK == result ){
                result = updateAccount( (sessionid_t)sid, &zacc );
        }
        
    RETURN_LONG(result);
}

/** ?＞散???????≪?????潟????id???荀с??緇?????<br>
    int vp_dump_uids( int vp_session_id, array criteria, array uids );
    @param vp_session_id   VP???祉???激?с??D
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param uids uid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_dump_uids)
{
        result_t result;
        long sid;
        zval *zcriteria;
        zval *zuids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laa",
          &sid, &zcriteria, &zuids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                userid_t *puid;
                int uidLen;
                result = dumpUids( (sessionid_t)sid, &zcri, &puid, &uidLen );
                if ( RES_OK == result ){
                        uidsToZval( puid, uidLen, &zuids );
                        freeResult( puid );
                }
        }
        
    RETURN_LONG(result);
}

/** VP???違???若?????違??緇???<br>
    int vp_get_group_count( int vp_session_id );
    @param vp_session_id   VP???祉???激?с??D
    @return ?違???若????/span>
  */
ZEND_FUNCTION(vp_get_group_count)
{
        result_t result;
        long sid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l",
          &sid) == FAILURE) {
                return;
        }
        
        int count = getGroupCount( (sessionid_t)sid );
        
    RETURN_LONG(count);
}

/** uid?ф??絎????????若?吟??絮????違???若???с?????ゆ?＞散????眼?????違???若????id??緇???<br>
    int vp_get_group_by_uid( int vp_session_id, int uid, array criteria, array gids );
    @param vp_session_id   VP???祉???激?с??D
    @param user_id   xoops_users.uid
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param gids gid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_get_groups_by_uid)
{
        result_t result;
        long sid, uid;
        zval *zcriteria;
        zval *zgids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llaa",
          &sid, &uid, &zcriteria, &zgids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                groupid_t *pgids;
                int gidLen;
                result = getGroupsByUid( (sessionid_t)sid, (userid_t)uid, &zcri, &pgids, &gidLen );
                if ( RES_OK == result ){
                        gidsToZval( pgids, gidLen, &zgids );
                        freeResult( pgids );
                }
        }
        
    RETURN_LONG(result);
}


/** uid?ф??絎????????若?吟??gid?ф??絎??????違???若?????違???若??膊∞??????????????緇???<br>
    int vp_is_group_admin( int sid, int gid, int uid );
    @param vp_session_id   VP???祉???激?с??D
    @param group_id  VP???違???若??ID
    @param user_id   xoops_users.uid
    @return true: ?違???若??膊∞?????с??????
    @return false: ?違???若??膊∞?????с???????????????????若?с??????
  */
ZEND_FUNCTION(vp_is_group_admin)
{
        result_t result;
        long sid, gid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lll",
          &sid, &gid, &uid) == FAILURE) {
                return;
        }
        
        bool b  = isGroupAdmin( (sessionid_t)sid, (groupid_t)gid, (userid_t)uid );
        
    RETURN_BOOL(b);
}

/** ?＞散????眼?????違???若????id???荀с??緇?????<br>
    int vp_dump_gids( int sid, array criteria, array gids );
    @param vp_session_id   VP???祉???激?с??D
    @param criteria  ??緇?膀??蚊?祉?純?若??????茵???????
    @param gids gid??????????????
    @return 0 success
  */
ZEND_FUNCTION(vp_dump_gids)
{
        result_t result;
        long sid;
        zval *zcriteria;
        zval *zgids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laa",
          &sid, &zcriteria, &zgids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result = zcri.getResult();
        if ( RES_OK == result ){
                groupid_t *pgid;
                int gidLen;
                result = dumpGids( (sessionid_t)sid, &zcri, &pgid, &gidLen );
                if ( RES_OK == result ){
                        gidsToZval( pgid, gidLen, &zgids );
                        freeResult( pgid );
                }
        }
        
    RETURN_LONG(result);
}

/** gid?ф??絎??????違???若??????????с?????ゆ?＞散????眼?????違???若??膊∞??????id???荀с??緇?????<br>
    int vp_dump_group_admins(int sid, int group_id, array criteria, array uids )
    @param sid      VP???祉???激?с??D
    @param group_id VP???違???若??ID
    @param criteria ?＞散
    @param uids     uid???荀с??????????????
    @return 0 success 
  */

ZEND_FUNCTION(vp_dump_group_admins)
{
        long sid, gid;
        zval *zcriteria;
        zval *zuids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llaa", 
                              &sid, &gid, &zcriteria, &zuids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result_t result = zcri.getResult();
        if ( result == RES_OK ){
                userid_t *uids;
                int uidsLen;
                result = dumpGroupAdmins( sid, gid, &zcri, &uids, &uidsLen );
                if ( result == RES_OK ){
                        uidsToZval( uids, uidsLen, &zuids );
                        freeResult( uids );
                }
        }
        RETURN_LONG( result );
}

/** ?違???若???????＜?潟???若?????ゃ??????<br>
    int vp_delete_member(int sid, int group_id, int user_id )
    @param sid      VP???祉???激?с??D
    @param group_id VP???違???若??ID
    @param user_id  ???若??D
    @return 0 success 
  */

ZEND_FUNCTION(vp_delete_member)
{
        long sid, gid, uid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lll", 
                              &sid, &gid, &uid) == FAILURE) {
                return;
        }
        
        result_t result = deleteMember( (sessionid_t)sid, (groupid_t)gid, (userid_t)uid );
        RETURN_LONG( result );
}

/** ?違???若?????＜?潟???若??菴遵??????<br>
    int vp_insert_member(int sid, int group_id, int user_id, bool admin )
    @param sid      VP???祉???激?с??D
    @param group_id VP???違???若??ID
    @param user_id  ???若??D
    @param admin    ?違???若??膊∞????????true
    @return 0 success 
  */

ZEND_FUNCTION(vp_insert_member)
{
        long sid, gid, uid;
        zend_bool admin;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "lllb", 
                              &sid, &gid, &uid, &admin) == FAILURE) {
                return;
        }
        
        result_t result = insertMember( (sessionid_t)sid, (groupid_t)gid, (userid_t)uid, (bool)admin );
        RETURN_LONG( result );
}

/** gid?ф??絎??????違???若?????＜?潟???若??id???荀с??緇???<br>
    int vp_get_members(int sid, int group_id, array criteria, array uids )
    @param sid      VP???祉???激?с??D
    @param group_id VP???違???若??ID
    @param criteria ?＞散
    @param uids     uid???荀с??????????????
    @return 0 success 
  */

ZEND_FUNCTION(vp_get_members)
{
        long sid, gid;
        zval *zcriteria;
        zval *zuids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llaa", 
                              &sid, &gid, &zcriteria, &zuids) == FAILURE) {
                return;
        }
        
        zCriteria_t zcri(zcriteria);
        result_t result = zcri.getResult();
        if ( result == RES_OK ){
                userid_t *uids;
                int uidsLen;
                result = getMembers( (sessionid_t)sid, (groupid_t)gid, &zcri, &uids, &uidsLen );
                if ( result == RES_OK ){
                        uidsToZval( uids, uidsLen, &zuids );
                        freeResult( uids );
                }
        }
        RETURN_LONG( result );
}

/** ?違???若?????宴??紊??眼??????<br>
    int vp_update_group(int sid, array group )
    @param sid      VP???祉???激?с??D
    @param group    ?違???若?????宴???ｆ?渇????
    @return 0 success 
  */
ZEND_FUNCTION(vp_update_group)
{
        long sid;
        zval *zgroup;
    group_t group;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "la", 
                              &sid, &zgroup) == FAILURE) {
                return;
        }
        
    zvalToGroup( zgroup, &group );
    result_t result = updateGroup( sid, &group );
    RETURN_LONG( result );
}

/** ?違???若?????宴??菴遵????????<br>
    int vp_insert_group( int sid, array group, int &gid )
    @param sid      ?祉???激?с??D
    @param group    ?違???若?????宴???ｆ?渇????
    @param gid      絲上??????違???若??ID???吾??莨若???????＜???潟??/span>
    @return RES_OK
    @return RES_DB_NOT_INITIALIZED
    @return RES_NO_SUCH_SESSION
    @return RES_DB_QUERY_ERROR
*/
ZEND_FUNCTION(vp_insert_group)
{
        long sid;
        zval *zgroup;
    zval *zgid;
    group_t group;
    groupid_t gid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "laz", 
                              &sid, &zgroup, &zgid ) == FAILURE) {
                return;
        }
        
    zvalToGroup( zgroup, &group );
    result_t result = insertGroup( sid, &group, &gid );
    zgid -> type = IS_LONG;
    zgid -> value.lval = gid;
    RETURN_LONG( result );
}


/** ?違???若?????宴?????ゃ??????<br>
    int vp_delete_group( int sid, int gid )
    @param sid      VP???祉???激?с??D
    @param gid      ???ゃ???????違???若????D
    @return RES_OK
    @return RES_DB_QUERY_ERROR
    @return RES_NO_SUCH_SESSION
    @return RES_DB_NOT_INITIALIZED
  */
ZEND_FUNCTION(vp_delete_group)
{
        long sid;
        long gid;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ll", 
                              &sid, &gid) == FAILURE) {
                return;
        }
    RETURN_LONG( deleteGroup( sid, gid ) );
}

/** ?違???若?????????????緇???<br>
    int vp_dump_group_admins( int sid, int gid, array criteria, array uids )
    @param sid      VP???祉???激?с??D
    @param gid      VP?違???若????D
    @param criteria uids???吾??莨若?????????純?若???＞散鐚?膀??蚊????絎?
    @param uids     膊∞??????ID???吾??莨若??????
    @return RES_OK
    @return RES_DB_QUERY_ERROR
    @return RES_NO_SUCH_SESSION
    @return RES_DB_NOT_INITIALIZED
  */
/*
ZEND_FUNCTION(vp_dump_group_admins)
{
        long sid;
        long gid;
        zval *zcriteria;
        zval *zuids;
        
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "llaa", 
                              &sid, &gid, &zcriteria, &zuids) == FAILURE) {
                return;
        }
        zCriteria_t zcri(zcriteria);
        result_t result = zcri.getResult();
        if ( RES_OK == result ){
        userid_t* uids;
        int uidsLen;
        result_t result = dumpGroupAdmins( sid, gid, &zcri, &uids, &uidsLen );
        if( result != RES_OK ) RETURN_LONG( result );
        uidsToZval( uids, uidsLen, &zuids );
        fprintf( stderr, "uidsLen=%d\n", uidsLen );
        for( int i = 0; i < uidsLen; i++ ){
            fprintf( stderr, "%d, \n", uids[ i ] );
        }
        freeResult( uids );
        RETURN_LONG( result );
    }
    RETURN_LONG( result );
}
*/
    
/** VP??ession_id???綵??с???с????lt;br>
    bool vp_is_valid_session_id( int vp_session_id)
    @return true ???鴻??P??ession_id?с????<br>
    @return false ?≦?鴻??ession_id?障??????????/span>
  */
ZEND_FUNCTION(vp_is_valid_session_id)
{
        long sid;
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &sid ) == FAILURE) {
                return;
        }
        
        RETURN_BOOL(isValidSessionID((sessionid_t)sid));
}

/** ?????惹??絖?????緇???<br>
    string vp_get_last_error_string()
    @return 0 success 
  */
ZEND_FUNCTION(vp_get_last_error_string)
{
        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "" ) == FAILURE) {
                return;
        }
        
        string str( getLastErrorString() );
        RETURN_STRING((char *)str.c_str(), 1);
}
