use v6;
use NativeCall;

unit class Algorithm::LibSVM::Parameter:auth<zef:titsuki>:ver<0.0.16> is export is repr('CStruct');

my constant $library = %?RESOURCES<libraries/svm>.Str;

enum SVMType is export <C_SVC NU_SVC ONE_CLASS EPSILON_SVR NU_SVR>;
enum KernelType is export <LINEAR POLY RBF SIGMOID PRECOMPUTED>;

has int32 $!svm_type;
has int32 $!kernel_type;
has int32 $!degree;
has num64 $!gamma;
has num64 $!coef0;
has num64 $!cache_size;
has num64 $!eps;
has num64 $!C;
has int32 $!nr_weight;
has CArray[int32] $!weight_label;
has CArray[num64] $!weight;
has num64 $!nu;
has num64 $!p;
has int32 $!shrinking;
has int32 $!probability;

submethod BUILD(SVMType :$svm-type?,
                KernelType :$kernel-type?,
                Num :$gamma?,
                Num :$coef0?,
                Num :$cache-size?,
                Num :$eps?,
                Num :$C?,
                Int :$nr-weight?,
                :@weight-label?,
                :@weight?,
                Int :$degree?,
                Num :$nu?,
                Num :$p?,
                Bool :$shrinking?,
                Bool :$probability?)
{
    $!svm_type = $svm-type // C_SVC;
    $!kernel_type = $kernel-type // RBF;
    $!gamma = $gamma // 0e0;
    $!coef0 = $coef0 // 0e0;
    $!cache_size = $cache-size // 100e0;
    $!eps = $eps // 1e-3;
    $!C = $C // 1e0;
    $!nr_weight = $nr-weight // 0;
    $!weight_label := CArray[int32].new; $!weight_label[$_] = @weight-label[$_] for ^@weight-label;
    $!weight := CArray[num64].new; $!weight[$_] = @weight[$_] for ^@weight;
    $!degree = $degree // 3;
    $!nu = $nu // 0.5e0;
    $!p = $p // 0.1e0;
    $!shrinking = $shrinking // 1;
    $!probability = $probability // 0;
}

multi method svm-type(SVMType $svm-type) {
    $!svm_type = $svm-type;
}

multi method svm-type {
    $!svm_type
}

multi method kernel-type(KernelType $kernel-type) {
    $!kernel_type = $kernel-type;
}

multi method kernel-type {
    $!kernel_type
}

multi method degree(Int:D $degree) {
    $!degree = $degree;
}

multi method degree {
    $!degree
}

multi method gamma(Num:D $gamma) {
    $!gamma = $gamma;
}

multi method gamma {
    $!gamma
}

multi method coef0(Num:D $coef0) {
    $!coef0 = $coef0;
}

multi method coef0 {
    $!coef0
}

multi method cache-size(Num:D $cache-size) {
    $!cache_size = $cache-size;
}

multi method cache-size {
    $!cache_size
}

multi method eps(Num:D $eps) {
    $!eps = $eps;
}

multi method eps {
    $!eps
}

multi method C(Num:D $C) {
    $!C = $C;
}

multi method C {
    $!C
}

multi method nr-weight(Int:D $nr-weight) {
    $!nr_weight = $nr-weight;
}

multi method nr-weight {
    $!nr_weight
}

# TODO: setter for weight-label, weight

method weight-label {
   $!weight_label.list
}

method weight {
    $!nr_weight.list
}

multi method nu(Num:D $nu) {
    $!nu = $nu;
}

multi method nu {
    $!nu
}

multi method p(Num:D $p) {
    $!p = $p;
}

multi method p {
    $!p
}

multi method shrinking(Bool:D $shrinking) {
    $!shrinking = $shrinking ?? 1 !! 0;
}

multi method shrinking(--> Bool) {
    Bool($!shrinking)
}

multi method probability(Bool:D $probability) {
    $!probability = $probability ?? 1 !! 0;
}

multi method probability(--> Bool) {
    Bool($!probability)
}

# my sub svm_destroy_param(Algorithm::LibSVM::Parameter) is native($library) { * }

# submethod DESTROY {
#     svm_destroy_param(self);
# }



head

Algorithm::LibSVM::Parameter - A Raku Algorithm::LibSVM::Parameter class


Algorithm::LibSVM::Parameter is a Raku Algorithm::LibSVM::Parameter class


multi method svm-type
multi method svm-type(SVMType $svm-type)


Are getter/setter methods for the parameter svm-type.


multi method kernel-type
multi method kernel-type(KernelType $kernel-type)


Are getter/setter methods for the parameter kernel-type.


multi method degree
multi method degree(Int:D $degree)


Are getter/setter methods for the parameter degree.


multi method gamma
multi method gamma(Num:D $gamma)


Are getter/setter methods for the parameter gamma.


multi method coef0
multi method coef0(Num:D $coef0)


Are getter/setter methods for the parameter coef0.


multi method cache-size
multi method cache-size(Num:D $cache-size)


Are getter/setter methods for the parameter cache-size.


multi method eps
multi method eps(Num:D $eps)


Are getter/setter methods for the parameter eps.


Are getter/setter methods for the parameter C.


multi method nr-weight
multi method nr-weight(Int:D $nr-weight)


Are getter/setter methods for the parameter nr-weight.


is a getter method for the parameter weight-label.


root

Problem

Node

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Parameter

NAME

SYNOPSIS

DESCRIPTION

METHODS

svm-type

kernel-type

degree

gamma

coef0

cache-size

eps

C

nr-weight

weight-label

weight

nu

p

shrinking

probability

CONSTANTS

SVMType

KernelType

AUTHOR

COPYRIGHT AND LICENSE

Algorithm::LibSVM v0.0.16

Authors

License

Dependencies

Test Dependencies

Provides

Documentation