php-armadillo/src/resizable.cc

//
// php-armadillo/resizable.cc
//
// @Author CismonX
//

#include "resizable.hh"
#include "mat.hh"
#include "constants.hh"
#include "stream_utils.hh"

#include <armadillo>

#if PHP_VERSION_ID < 70200
#define zend_hash_str_find_deref zend_hash_str_find
#endif

namespace php_arma
{
#ifdef ARMA_USE_HDF5
    zend_always_inline
    arma::hdf5_name zend_array_to_hdf5_name(zend_array *ht)
    {
        auto fname_z = zend_hash_str_find_deref(ht, "file_name", sizeof("file_name") - 1);
        std::string fname(fname_z && Z_TYPE_P(fname_z) == IS_STRING ? Z_STRVAL_P(fname_z) : "");

        auto dsname_z = zend_hash_str_find_deref(ht, "dataset_name", sizeof("dataset_name") - 1);
        std::string dsname(dsname_z && Z_TYPE_P(dsname_z) == IS_STRING ? Z_STRVAL_P(dsname_z) : "");

        auto opts_z = zend_hash_str_find_deref(ht, "options", sizeof("options") - 1);
        arma::hdf5_opts::opts opts(opts_z && Z_TYPE_P(opts_z) == IS_LONG ? Z_LVAL_P(opts_z) : hdf5_opts::none);

        return { fname, dsname, opts };
    }
#endif

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, copySize, T, T1)
    {
        
    }

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, reset, T, T1)
    {
        auto native = THIS_NATIVE;
        native->reset();
    }

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, setReal, T, T1)
    {
        
    }

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, setImag, T, T1)
    {
        
    }

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, save, T, T1)
    {
        zval      *dest;
        zend_long  file_type = file_type::arma_binary;
        ZEND_PARSE_PARAMETERS_START(1, 2)
            Z_PARAM_ZVAL_DEREF(dest)
            Z_PARAM_OPTIONAL
            Z_PARAM_LONG(file_type)
        ZEND_PARSE_PARAMETERS_END();

        auto native = THIS_NATIVE;
        auto ftype = file_type::native(file_type);

        zend_bool retval;
        if (Z_TYPE_P(dest) == IS_STRING) {
            RETURN_BOOL(native->save(Z_STRVAL_P(dest), ftype, false));
        }
        if (Z_TYPE_P(dest) == IS_RESOURCE) {
#ifdef __GNUC__
            __gnu_cxx::stdio_filebuf<char> filebuf(zval_to_fd(dest), std::ios::out);
            std::ostream os(&filebuf);
            RETURN_BOOL(native->save(os, ftype, false));
#else
            filebuf_unsupported();
            RETURN_FALSE;
#endif // __GNUC__
        }
#ifdef ARMA_USE_HDF5
        if (Z_TYPE_P(dest) == IS_ARRAY) {
            if (ftype != arma::file_type::hdf5_binary) {
                ex_bad_type("string or resource", zval_get_type_name(dest));
                RETURN_FALSE;
            }
            RETURN_BOOL(native->save(zend_array_to_hdf5_name(Z_ARR_P(dest)), ftype, false));
        }
        ex_bad_type("string, resource or array", zval_get_type_name(dest));
#else
        ex_bad_type("string or resource", zval_get_type_name(dest));
#endif // ARMA_USE_HDF5
        RETURN_FALSE;
    }

    template <typename T, typename T1>
    PHP_ARMA_METHOD(resizable, load, T, T1)
    {
        zval      *from;
        zend_long  file_type = file_type::auto_detect;
        ZEND_PARSE_PARAMETERS_START(1, 2)
            Z_PARAM_ZVAL_DEREF(from)
            Z_PARAM_OPTIONAL
            Z_PARAM_LONG(file_type)
        ZEND_PARSE_PARAMETERS_END();

        auto native = THIS_NATIVE;
        auto ftype = file_type::native(file_type);

        zend_bool retval;
        if (Z_TYPE_P(from) == IS_STRING) {
            RETURN_BOOL(native->load(Z_STRVAL_P(from), ftype, false));
        }
        if (Z_TYPE_P(from) == IS_RESOURCE) {
#ifdef __GNUC__
            __gnu_cxx::stdio_filebuf<char> filebuf(zval_to_fd(from), std::ios::in);
            std::istream is(&filebuf);
            RETURN_BOOL(native->load(is, ftype, false));
#else
            filebuf_unsupported();
            RETURN_FALSE;
#endif // __GNUC__
        }
#ifdef ARMA_USE_HDF5
        if (Z_TYPE_P(from) == IS_ARRAY) {
            if (ftype != arma::file_type::hdf5_binary) {
                ex_bad_type("string or resource", zval_get_type_name(from));
                RETURN_FALSE;
            }
            RETURN_BOOL(native->load(zend_array_to_hdf5_name(Z_ARR_P(from)), ftype, false));
        }
        ex_bad_type("string, resource or array", zval_get_type_name(from));
#else
        ex_bad_type("string or resource", zval_get_type_name(from));
#endif // ARMA_USE_HDF5
        RETURN_FALSE;
    }

    template <typename T, typename T1>
    PHP_ARMA_START_ME(resizable, T, T1)
        PHP_ARMA_ME(copySize, ZEND_ACC_PUBLIC)
        PHP_ARMA_ME(reset,    ZEND_ACC_PUBLIC)
        PHP_ARMA_ME(setReal,  ZEND_ACC_PUBLIC)
        PHP_ARMA_ME(setImag,  ZEND_ACC_PUBLIC)
        PHP_ARMA_ME(save,     ZEND_ACC_PUBLIC)
        PHP_ARMA_ME(load,     ZEND_ACC_PUBLIC)
    PHP_ARMA_END_ME();

    void resizable_init()
    {
        resizable_ce = interface_register<resizable_php_name>();
    }

    PHP_ARMA_INSTANTIATE(resizable, mat);
}