view release on metacpan or  search on metacpan

siod_wrap.c  view on Meta::CPAN

        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_obj, SWIG_SHADOW|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_set_gc_hooks) {
    {
        long arg1 ;
        LISP (*arg2)(LISP) = (LISP (*)(LISP)) 0 ;
        LISP (*arg3)(LISP) = (LISP (*)(LISP)) 0 ;
        void (*arg4)(LISP) = (void (*)(LISP)) 0 ;
        void (*arg5)(LISP) = (void (*)(LISP)) 0 ;
        long *arg6 = (long *) 0 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 6) || (items > 6)) {
            SWIG_croak("Usage: set_gc_hooks(type,rel,mark,scan,free,kind);");
        }
        arg1 = (long) SvIV(ST(0));
        {
            if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_f_LISP__p_obj,0) < 0) {
                SWIG_croak("Type error in argument 2 of set_gc_hooks. Expected _p_f_LISP__p_obj");
            }
        }
        {
            if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_f_LISP__p_obj,0) < 0) {
                SWIG_croak("Type error in argument 3 of set_gc_hooks. Expected _p_f_LISP__p_obj");
            }
        }
        {
            if (SWIG_ConvertPtr(ST(3), (void **) &arg4, SWIGTYPE_p_f_p_struct_obj__void,0) < 0) {
                SWIG_croak("Type error in argument 4 of set_gc_hooks. Expected _p_f_p_struct_obj__void");
            }
        }
        {
            if (SWIG_ConvertPtr(ST(4), (void **) &arg5, SWIGTYPE_p_f_p_struct_obj__void,0) < 0) {
                SWIG_croak("Type error in argument 5 of set_gc_hooks. Expected _p_f_p_struct_obj__void");
            }
        }
        {
            if (SWIG_ConvertPtr(ST(5), (void **) &arg6, SWIGTYPE_p_long,0) < 0) {
                SWIG_croak("Type error in argument 6 of set_gc_hooks. Expected _p_long");
            }
        }
        set_gc_hooks(arg1,arg2,arg3,arg4,arg5,arg6);
        
        
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_gc_relocate) {
    {
        LISP arg1 = (LISP) 0 ;
        LISP result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: gc_relocate(x);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_obj,0) < 0) {
                SWIG_croak("Type error in argument 1 of gc_relocate. Expected _p_obj");
            }
        }
        result = (LISP)gc_relocate(arg1);
        
        ST(argvi) = sv_newmortal();
        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_obj, SWIG_SHADOW|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_user_gc) {
    {
        LISP arg1 = (LISP) 0 ;
        LISP result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: user_gc(args);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_obj,0) < 0) {
                SWIG_croak("Type error in argument 1 of user_gc. Expected _p_obj");
            }
        }
        result = (LISP)user_gc(arg1);
        
        ST(argvi) = sv_newmortal();
        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_obj, SWIG_SHADOW|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;
    }
    croak(Nullch);
}


XS(_wrap_gc_status) {
    {
        LISP arg1 = (LISP) 0 ;
        LISP result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: gc_status(args);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_obj,0) < 0) {
                SWIG_croak("Type error in argument 1 of gc_status. Expected _p_obj");
            }
        }
        result = (LISP)gc_status(arg1);
        
        ST(argvi) = sv_newmortal();
        SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_obj, SWIG_SHADOW|SWIG_OWNER);
        XSRETURN(argvi);
        fail:
        ;

siod_wrap.c  view on Meta::CPAN

{"Language::SIOD::print_welcome", _wrap_print_welcome},
{"Language::SIOD::print_hs_1", _wrap_print_hs_1},
{"Language::SIOD::print_hs_2", _wrap_print_hs_2},
{"Language::SIOD::no_interrupt", _wrap_no_interrupt},
{"Language::SIOD::get_eof_val", _wrap_get_eof_val},
{"Language::SIOD::repl_driver", _wrap_repl_driver},
{"Language::SIOD::set_repl_hooks", _wrap_set_repl_hooks},
{"Language::SIOD::repl", _wrap_repl},
{"Language::SIOD::err", _wrap_err},
{"Language::SIOD::errswitch", _wrap_errswitch},
{"Language::SIOD::get_c_string", _wrap_get_c_string},
{"Language::SIOD::get_c_string_dim", _wrap_get_c_string_dim},
{"Language::SIOD::try_get_c_string", _wrap_try_get_c_string},
{"Language::SIOD::get_c_long", _wrap_get_c_long},
{"Language::SIOD::get_c_double", _wrap_get_c_double},
{"Language::SIOD::lerr", _wrap_lerr},
{"Language::SIOD::newcell", _wrap_newcell},
{"Language::SIOD::cons", _wrap_cons},
{"Language::SIOD::consp", _wrap_consp},
{"Language::SIOD::car", _wrap_car},
{"Language::SIOD::cdr", _wrap_cdr},
{"Language::SIOD::setcar", _wrap_setcar},
{"Language::SIOD::setcdr", _wrap_setcdr},
{"Language::SIOD::flocons", _wrap_flocons},
{"Language::SIOD::numberp", _wrap_numberp},
{"Language::SIOD::plus", _wrap_plus},
{"Language::SIOD::ltimes", _wrap_ltimes},
{"Language::SIOD::difference", _wrap_difference},
{"Language::SIOD::Quotient", _wrap_Quotient},
{"Language::SIOD::greaterp", _wrap_greaterp},
{"Language::SIOD::lessp", _wrap_lessp},
{"Language::SIOD::eq", _wrap_eq},
{"Language::SIOD::eql", _wrap_eql},
{"Language::SIOD::symcons", _wrap_symcons},
{"Language::SIOD::symbolp", _wrap_symbolp},
{"Language::SIOD::symbol_boundp", _wrap_symbol_boundp},
{"Language::SIOD::symbol_value", _wrap_symbol_value},
{"Language::SIOD::cintern", _wrap_cintern},
{"Language::SIOD::rintern", _wrap_rintern},
{"Language::SIOD::subrcons", _wrap_subrcons},
{"Language::SIOD::closure", _wrap_closure},
{"Language::SIOD::gc_protect", _wrap_gc_protect},
{"Language::SIOD::gc_protect_n", _wrap_gc_protect_n},
{"Language::SIOD::gc_protect_sym", _wrap_gc_protect_sym},
{"Language::SIOD::init_storage", _wrap_init_storage},
{"Language::SIOD::init_slibu", _wrap_init_slibu},
{"Language::SIOD::init_subr", _wrap_init_subr},
{"Language::SIOD::init_subr_0", _wrap_init_subr_0},
{"Language::SIOD::init_subr_1", _wrap_init_subr_1},
{"Language::SIOD::init_subr_2", _wrap_init_subr_2},
{"Language::SIOD::init_subr_2n", _wrap_init_subr_2n},
{"Language::SIOD::init_subr_3", _wrap_init_subr_3},
{"Language::SIOD::init_subr_4", _wrap_init_subr_4},
{"Language::SIOD::init_subr_5", _wrap_init_subr_5},
{"Language::SIOD::init_lsubr", _wrap_init_lsubr},
{"Language::SIOD::init_fsubr", _wrap_init_fsubr},
{"Language::SIOD::init_msubr", _wrap_init_msubr},
{"Language::SIOD::assq", _wrap_assq},
{"Language::SIOD::delq", _wrap_delq},
{"Language::SIOD::set_gc_hooks", _wrap_set_gc_hooks},
{"Language::SIOD::gc_relocate", _wrap_gc_relocate},
{"Language::SIOD::user_gc", _wrap_user_gc},
{"Language::SIOD::gc_status", _wrap_gc_status},
{"Language::SIOD::set_eval_hooks", _wrap_set_eval_hooks},
{"Language::SIOD::leval", _wrap_leval},
{"Language::SIOD::symbolconc", _wrap_symbolconc},
{"Language::SIOD::set_print_hooks", _wrap_set_print_hooks},
{"Language::SIOD::lprin1g", _wrap_lprin1g},
{"Language::SIOD::lprin1f", _wrap_lprin1f},
{"Language::SIOD::lprint", _wrap_lprint},
{"Language::SIOD::lread", _wrap_lread},
{"Language::SIOD::lreadtk", _wrap_lreadtk},
{"Language::SIOD::lreadf", _wrap_lreadf},
{"Language::SIOD::set_read_hooks", _wrap_set_read_hooks},
{"Language::SIOD::apropos", _wrap_apropos},
{"Language::SIOD::vload", _wrap_vload},
{"Language::SIOD::load", _wrap_load},
{"Language::SIOD::require", _wrap_require},
{"Language::SIOD::save_forms", _wrap_save_forms},
{"Language::SIOD::quit", _wrap_quit},
{"Language::SIOD::nullp", _wrap_nullp},
{"Language::SIOD::strcons", _wrap_strcons},
{"Language::SIOD::read_from_string", _wrap_read_from_string},
{"Language::SIOD::aref1", _wrap_aref1},
{"Language::SIOD::aset1", _wrap_aset1},
{"Language::SIOD::cons_array", _wrap_cons_array},
{"Language::SIOD::arcons", _wrap_arcons},
{"Language::SIOD::string_append", _wrap_string_append},
{"Language::SIOD::string_length", _wrap_string_length},
{"Language::SIOD::string_search", _wrap_string_search},
{"Language::SIOD::substring", _wrap_substring},
{"Language::SIOD::string_trim", _wrap_string_trim},
{"Language::SIOD::string_trim_left", _wrap_string_trim_left},
{"Language::SIOD::string_trim_right", _wrap_string_trim_right},
{"Language::SIOD::string_upcase", _wrap_string_upcase},
{"Language::SIOD::string_downcase", _wrap_string_downcase},
{"Language::SIOD::init_subrs", _wrap_init_subrs},
{"Language::SIOD::copy_list", _wrap_copy_list},
{"Language::SIOD::c_sxhash", _wrap_c_sxhash},
{"Language::SIOD::sxhash", _wrap_sxhash},
{"Language::SIOD::href", _wrap_href},
{"Language::SIOD::hset", _wrap_hset},
{"Language::SIOD::fast_print", _wrap_fast_print},
{"Language::SIOD::fast_read", _wrap_fast_read},
{"Language::SIOD::equal", _wrap_equal},
{"Language::SIOD::assoc", _wrap_assoc},
{"Language::SIOD::make_list", _wrap_make_list},
{"Language::SIOD::set_fatal_exit_hook", _wrap_set_fatal_exit_hook},
{"Language::SIOD::parse_number", _wrap_parse_number},
{"Language::SIOD::intern", _wrap_intern},
{"Language::SIOD::init_trace", _wrap_init_trace},
{"Language::SIOD::repl_c_string", _wrap_repl_c_string},
{"Language::SIOD::siod_version", _wrap_siod_version},
{"Language::SIOD::nreverse", _wrap_nreverse},
{"Language::SIOD::number2string", _wrap_number2string},
{"Language::SIOD::string2number", _wrap_string2number},
{"Language::SIOD::siod_verbose", _wrap_siod_verbose},
{"Language::SIOD::siod_verbose_check", _wrap_siod_verbose_check},
{"Language::SIOD::setvar", _wrap_setvar},
{"Language::SIOD::allocate_user_tc", _wrap_allocate_user_tc},
{"Language::SIOD::cadr", _wrap_cadr},