1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
TYPEMAP
SVM * T_SVM
DataSet* T_DATASET
OUTPUT
T_SVM
if( $var == NULL ) XSRETURN_UNDEF;
sv_setref_pv( $arg, "Algorithm::SVM", (void*)$var );
T_DATASET
if( $var == NULL ) XSRETURN_UNDEF;
sv_setref_pv( $arg, "Algorithm::SVM::DataSet", (void*)$var );
INPUT
T_SVM
if( sv_isobject($arg) && sv_isa($arg, \"Algorithm::SVM\") ) {
$var = ($type)SvIV((SV*)SvRV( $arg ));
} else {
warn( \"${Package}::$func_name() -- $var is not an Algorithm::SVM object\" );
XSRETURN_UNDEF;
}
T_DATASET
if( sv_isobject($arg) && sv_isa($arg, \"Algorithm::SVM::DataSet\") ) {
$var = ($type)SvIV((SV*)SvRV( $arg ));
} else {
warn( \"${Package}::$func_name() -- $var is not an Algorithm::SVM::DataSet object\" );
XSRETURN_UNDEF;
}
|
