• Your recent searches
Result:
found more than 625 distributions - search limited to the first 2001 files matching your query ( run in 1.015 )


Acme-Pointer
2 results

 view release on metacpan or  search on metacpan

lib/Acme/Pointer.xs  view on Meta::CPAN 

        RETVAL = get_address(aTHX_ 6, len, ref);
    } else {
        RETVAL = &PL_sv_undef;
    }
}
OUTPUT:
    RETVAL

SV *
pointer(addr_str)
    SV *addr_str

lib/Acme/Pointer.xs  view on Meta::CPAN 

        RETVAL = _pointer(aTHX_ addr);
    } else {
        RETVAL = &PL_sv_undef;
    }
}
OUTPUT:
    RETVAL

 view all matches for this distribution


Acme-RedShirt
1 match

 view release on metacpan or  search on metacpan

lib/Acme/RedShirt.pm  view on Meta::CPAN 

=head1 SYNOPSIS 

  use Acme::RedShirt;
  . . . # Program dies like a Red Shirt. Won't be executed. 
  
  __OUTPUT__
  He's dead, Jim.

  # Specify a method of death
  use Acme::RedShirt 'phaser';
  . . . 
  
  __OUTPUT__
  He got hit by a phaser.  He's dead, Jim.

=head2 DESCRIPTION

Every good captain is surrounded by a bunch of extras wearing red shirts, whose

 view all matches for this distribution


Acme-Ref
1 match

 view release on metacpan or  search on metacpan

Ref.xs  view on Meta::CPAN 

            }
        }
        else {
            RETVAL = &PL_sv_undef;
        }
    OUTPUT:
        RETVAL

 view all matches for this distribution


Acme-RequireModule
1 match

 view release on metacpan or  search on metacpan

RequireModule.xs  view on Meta::CPAN 

		PL_check[OP_REQUIRE] = my_ck_require;
	}
	my_depth++;
	RETVAL = newSV(0);
	sv_setref_uv(RETVAL, HINT_KEY, my_depth);
OUTPUT:
	RETVAL

void
DESTROY(...)
CODE:

 view all matches for this distribution


Acme-ReturnValue
1 match

 view release on metacpan or  search on metacpan

t/pms/RayApp.pm  view on Meta::CPAN 

into requests for directories. As B<RayApp>'s output is dynamically
generated, pure B<DirectoryIndex> cannot be used.

If not set, nothing will be served for directory requests.

=item RayAppInputModule / RAYAPP_INPUT_MODULE

As already noted, B<RayApp> runs the B<handler> function found
in the application file (app.pl). Often applications share the same
context -- all of them want to be passed an open B<$dbh> database
handler (instead of doing their own DBI->connect), all of them want to

 view all matches for this distribution


Acme-StringFormat
1 match

 view release on metacpan or  search on metacpan

StringFormat.xs  view on Meta::CPAN 

		PL_check[OP_MODULO] = sf_ck_modulo;
	}
	sf_depth++;
	RETVAL = newSV(0);
	sv_setref_uv(RETVAL, HINT_KEY, sf_depth);
OUTPUT:
	RETVAL

void
DESTROY(...)
CODE:

 view all matches for this distribution


Acme-TestDist-Cpp-EUMM-EUCppGuess
2 results

 view release on metacpan or  search on metacpan

EUCppGuess.xs  view on Meta::CPAN 

MODULE = Acme::TestDist::Cpp::EUMM::EUCppGuess		PACKAGE = Acme::TestDist::Cpp::EUMM::EUCppGuess

int
returnOne()

	OUTPUT:
		RETVAL

 view all matches for this distribution


Acme-Text-Rhombus
2 results

 view release on metacpan or  search on metacpan

lib/Acme/Text/Rhombus.pm  view on Meta::CPAN 

     case    =>  'upper',
     fillup  =>      '.',
     forward =>        1,
 );

 __OUTPUT__
 .......C.......
 ......DDD......
 .....EEEEE.....
 ....FFFFFFF....
 ...GGGGGGGGG...

 view all matches for this distribution


Acme-Throw
1 match

 view release on metacpan or  search on metacpan

lib/Acme/Throw.pm  view on Meta::CPAN 


  perl -MAcme::Throw /path/to/program.pl

=head1 DESCRIPTION

B<THIS CODE IS CRAP! IT'S SO BAD IT MAKES THE I<COMPUTER> ANGRY!!!>

Do you feel that the error messages in your code don't express your
frustration with enough I<oomph>? Do screens full of stack dumps fill
you with a deep-seated rage?

 view all matches for this distribution


Acme-VOYAGEGROUP-ConferenceRoom
1 match

 view release on metacpan or  search on metacpan

lib/Acme/VOYAGEGROUP/ConferenceRoom.pm  view on Meta::CPAN 

        normalization => qr/^あじと|アジト$/ms,
        position      => qr{ \s(/*\|)$ }x,
    },
);

my %OUTPUT_OF = (
    color        => 'Acme::VOYAGEGROUP::ConferenceRoom::Output::Color',
    json         => 'Acme::VOYAGEGROUP::ConferenceRoom::Output::JSON',
    xml          => 'Acme::VOYAGEGROUP::ConferenceRoom::Output::XML',
    message_pack => 'Acme::VOYAGEGROUP::ConferenceRoom::Output::MessagePack',
);

lib/Acme/VOYAGEGROUP/ConferenceRoom.pm  view on Meta::CPAN 

    for my $i (@{ $process->{lines} }) {
        1 while $lines[$i] =~ s{$process->{position}}{$head$1$tail};
    }

    if ($output_type ne 'none') {
        my $module = $OUTPUT_OF{$output_type};
        croak "No Type: $output_type" unless $module;

        return $module->convert(\@lines) if $module->use;
    }

 view all matches for this distribution


Acme-YAPC-Okinawa-Bus
1 match

 view release on metacpan or  search on metacpan

lib/Acme/YAPC/Okinawa/ppport.h  view on Meta::CPAN 

PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PadARRAY||5.021008|
PadMAX||5.021008|
PadlistARRAY||5.021008|
PadlistMAX||5.021008|
PadlistNAMESARRAY||5.021008|

lib/Acme/YAPC/Okinawa/ppport.h  view on Meta::CPAN 

    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
        croak(SvPVx(GvSV(errgv), na));

    return sv;

 view all matches for this distribution


Acme-require-case
1 match

 view release on metacpan or  search on metacpan

t/require.t  view on Meta::CPAN 


my @output = split "\n", capture { require wrapper };
my $oops = 0;
like( $output[0], qr/^0 wrapper/, "saw wrapper first in call stack" ) or $oops++;
like( $output[1], qr/^1 main /,   "saw main next in call stack" ) or $oops++;
diag( "OUTPUT:\n", join("\n", @output) ) if $oops;

done_testing;
#
# This file is part of Acme-require-case
#

 view all matches for this distribution


Activator
1 match

 view release on metacpan or  search on metacpan

bin/activator.pl  view on Meta::CPAN 

		next;
	    }
#	    $fq_dest_file = "$config->{sync_conf_dir}/$out";
	    my $tt = Template->new( { DEBUG => 1,
				      ABSOLUTE => 1,
				      OUTPUT_PATH  => $config->{sync_conf_dir},
				    }
				  );
	    DEBUG( qq(tt processing: $fq_source_file, $config, $out ));
	    $tt->process( $fq_source_file, $config, $out ) || Activator::Log->logdie( $tt->error()."\n");
	}

bin/activator.pl  view on Meta::CPAN 

    return unless $out;

    DEBUG( qq( processing $file into ).$config->{apache2}->{ServerRoot}.'/'.$out );
    my $tt = Template->new( { DEBUG => 1,
			      ABSOLUTE => 1,
			      OUTPUT_PATH  => $config->{apache2}->{ServerRoot},
			    }
			  );
    $tt->process( $fq, $config, $out ) || Activator::Log->logdie( $tt->error()."\n");

    # TODO: use some smart hueristics to properly chmod that which

 view all matches for this distribution


ActiveResource
1 match

 view release on metacpan or  search on metacpan

lib/ActiveResource/Connection.pm  view on Meta::CPAN 


sub put {
    my ($self, $path, $body) = @_;
    my $url = $self->url($path);

    my $request = HTTP::Request->new("PUT", $url);
    $request->header("Content-Type" => "text/xml");
    $request->content($body);
    return ua->request($request);
}

 view all matches for this distribution


Activiti-Rest-Client
4 results

 view release on metacpan or  search on metacpan

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 

    params => {},
    headers => {
      'Content-Type' => "application/json",
      Content => encode_json({ action => "suspend" })
    },
    method => "PUT"
  );
  Activiti::Rest::Response->from_http_response($res);
}
sub activate_process_instance {
  my($self,%args)=@_;

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 

    params => {},
    headers => {
      'Content-Type' => "application/json",
      Content => encode_json({ action => "activate" })
    },
    method => "PUT"
  );
  Activiti::Rest::Response->from_http_response($res);
}

=head2 query_process_instances

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 

sub update_process_instance_variable {
  my($self,%args)=@_;
  my $res = $self->ua->request(
    path => "/runtime/process-instances/".uri_escape($args{processInstanceId})."/variables/".uri_escape($args{variableName}),
    params => {},
    method => "PUT",
    headers => {
      'Content-Type' => "application/json",
      Content => encode_json($args{content})
    }
  );

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 

sub signal_execution {
  my($self,%args)=@_;
  my $res = $self->ua->request(
    path => "/runtime/executions/".uri_escape($args{executionId}),
    params => {},
    method => "PUT",
    headers => {
      'Content-Type' => "application/json",
      Content => encode_json($args{content})
    }
  );

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 


    send signal to execution

    equal to rest call:

        PUT runtime/executions/{executionId}
=cut

=head2 execution

  Get an execution

lib/Activiti/Rest/Client.pm  view on Meta::CPAN 


  Body parameters: see user guide (http://www.activiti.org/userguide/index.html#N148FA)

  equal to rest call:

    PUT runtime/tasks/:taskId

=cut

sub update_task {
  my($self,%args)=@_;
  my $res = $self->ua->request(
    path => "/runtime/tasks/".uri_escape($args{taskId}),
    params => {},
    method => "PUT",
    headers => {
      'Content-Type' => "application/json",
      Content => encode_json($args{content})
    }
  );

 view all matches for this distribution


Ado
6 results

 view release on metacpan or  search on metacpan

lib/Ado/Command/generate/crud.pm  view on Meta::CPAN 

            via   => [qw(GET POST)],
            to    => "$route#create",
            over  => {authenticated => 1},
          },
          { route => "/$route/update/:id",
            via   => [qw(GET PUT)],
            to    => "$route#update",
            over  => {authenticated => 1},
          },
          { route => "/$route/delete/:id",
            via   => [qw(GET DELETE)],

 view all matches for this distribution


Affix
1 match

 view release on metacpan or  search on metacpan

lib/Affix.c  view on Meta::CPAN 

            croak("Unsupported callback argument type");
        SV * arg_sv = newSV(0);
        puller(aTHX_ nullptr, arg_sv, type, args[i]);
        mXPUSHs(arg_sv);
    }
    PUTBACK;
    const infix_type * ret_type = infix_reverse_get_return_type(ctx);
    U32 call_flags = /* G_EVAL |*/ G_KEEPERR | ((ret_type->category == INFIX_TYPE_VOID) ? G_VOID : G_SCALAR);
    size_t count = call_sv(cb_data->coderef_rv, call_flags);
    if (SvTRUE(ERRSV)) {
        Perl_warn(aTHX_ "Perl callback died: %" SVf, ERRSV);

lib/Affix.c  view on Meta::CPAN 

    }
    else if (call_flags & G_SCALAR) {
        SPAGAIN;
        SV * return_sv = (count == 1) ? POPs : &PL_sv_undef;
        sv2ptr(aTHX_ nullptr, return_sv, retval, ret_type);
        PUTBACK;
    }
    FREETMPS;
    LEAVE;
}

lib/Affix.c  view on Meta::CPAN 

    ENTER;
    SAVETMPS;
    PUSHMARK(SP);
    EXTEND(SP, 1);
    PUSHs(scalar);
    PUTBACK;
    count = call_pv("Data::Printer::p", G_SCALAR);
    SPAGAIN;
    if (count != 1) {
        warn("Big trouble\n");
        return;
    }
    STRLEN len;
    const char * s = SvPVx(POPs, len);
    printf("%s at %s line %d\n", s, file, line);
    fflush(stdout);
    PUTBACK;
    FREETMPS;
    LEAVE;
}

XS_INTERNAL(Affix_sv_dump) {

 view all matches for this distribution


Aion-Run
1 match

 view release on metacpan or  search on metacpan

script/act  view on Meta::CPAN 

    print << "END";
Usage:
	
	act <run> [arguments]
	
	act [GET|QUERY|POST|PUT|DELETE|PATCH|OPTIONS|HEAD] /<path> [query_params] [body]
	
	act [options]

Options:
    -h, --help      Display this help message

script/act  view on Meta::CPAN 

	require Aion::Run;
    print "act version ", Aion::Run->VERSION, "\n";
    exit 0;
}

if($ARGV[0] ~~ ['GET', 'QUERY', 'POST', 'PUT', 'DELETE', 'PATCH', 'OPTIONS', 'HEAD'] && $ARGV[1] =~ m{^/} || $ARGV[0] =~ m{^/}) {
    unshift @ARGV, 'act';
}

Aion::Run::Runner->run(@ARGV);

 view all matches for this distribution


Aion-Surf
4 results

 view release on metacpan or  search on metacpan

lib/Aion/Surf.pm  view on Meta::CPAN 

}

sub head (;$) { my $x = @_ == 0? $_: shift;	surf HEAD   => ref $x? @{$x}: $x }
sub get  (;$) { my $x = @_ == 0? $_: shift; surf GET    => ref $x? @{$x}: $x }
sub post (@)  { my $x = @_ == 0? $_: \@_;   surf POST   => ref $x? @{$x}: $x }
sub put  (@)  { my $x = @_ == 0? $_: \@_;   surf PUT    => ref $x? @{$x}: $x }
sub patch(@)  { my $x = @_ == 0? $_: \@_;   surf PATCH  => ref $x? @{$x}: $x }
sub del  (;$) { my $x = @_ == 0? $_: shift; surf DELETE => ref $x? @{$x}: $x }


use config TELEGRAM_BOT_TOKEN => undef;

lib/Aion/Surf.pm  view on Meta::CPAN 

	
	    given ($request->method . " " . $request->uri) {
	        $response->content("get")    when $_ eq "GET http://example/ex";
	        $response->content("head")   when $_ eq "HEAD http://example/ex";
	        $response->content("post")   when $_ eq "POST http://example/ex";
	        $response->content("put")    when $_ eq "PUT http://example/ex";
	        $response->content("patch")  when $_ eq "PATCH http://example/ex";
	        $response->content("delete") when $_ eq "DELETE http://example/ex";
	
	        $response->content('{"a":10}')  when $_ eq "PATCH http://example/json";
	        default {

lib/Aion/Surf.pm  view on Meta::CPAN 

	head "http://example/not-found"     # -> ""
	
	surf HEAD => "http://example/ex"    # -> 1
	surf HEAD => "http://example/not-found"  # -> ""
	
	[map { surf $_ => "http://example/ex" } qw/GET HEAD POST PUT PATCH DELETE/] # --> [qw/get 1 post put patch delete/]
	
	patch "http://example/json" # --> {a => 10}
	
	[map patch, qw! http://example/ex http://example/json !]  # --> ["patch", {a => 10}]

 view all matches for this distribution


Akamai-Edgegrid
1 match

 view release on metacpan or  search on metacpan

t/testdata.json  view on Meta::CPAN 

                ]
            },
            "expectedAuthorization": "EG1-HMAC-SHA256 client_token=akab-client-token-xxx-xxxxxxxxxxxxxxxx;access_token=akab-access-token-xxx-xxxxxxxxxxxxxxxx;timestamp=20140321T19:34:21+0000;nonce=nonce-xx-xxxx-xxxx-xxxx-xxxxxxxxxxxx;signature=Knd/jc...
        },
        {
            "testName": "PUT test",
            "request": {
                "method": "PUT",
                "path": "/testapi/v1/t6",
                "data": "PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
            },
            "expectedAuthorization": "EG1-HMAC-SHA256 client_token=akab-client-token-xxx-xxxxxxxxxxxxxxxx;access_token=akab-access-token-xxx-xxxxxxxxxxxxxxxx;timestamp=20140321T19:34:21+0000;nonce=nonce-xx-xxxx-xxxx-xxxx-xxxxxxxxxxxx;signature=GNBWEY...
        }

 view all matches for this distribution


Akamai-Open-Client
2 results

 view release on metacpan or  search on metacpan

lib/Akamai/Open/Request/EdgeGridV1.pm  view on Meta::CPAN 


sub sign_request {
    my $self = shift;

    # to create a valid auth header, we'll need
    # the http request method (i.e. GET, POST, PUT)
    my $http_method  = $self->request->method;
    # the http scheme in lowercases (i.e. http or https)
    my $http_scheme  = $self->request->uri->scheme;
    # the http host header 
    my $http_host    = $self->request->uri->host;
    # the encoded uri including the query string if present
    my $http_uri     = $self->request->uri->path_query;
    # the canonicalized headers which are choosed for signing
    my $http_headers = $self->canonicalize_headers;
    # the content hash for POST/PUT requests
    my $content_hash = $self->content_hash;
    # and the authorization header content
    my $auth_header  = sprintf('%s %s;', EDGEGRIDV1ALGO,
                                         join(';', CLIENT_TOKEN . $self->client->client_token,
                                                   ACCESS_TOKEN . $self->client->access_token,

 view all matches for this distribution


Algorithm-AM
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

PUSHSTACK|5.005000||Viu
PUSHSTACKi|5.005000||Viu
PUSHSTACK_INIT_HWM|5.027002||Viu
PUSHTARG|5.003007||Viu
PUSHu|5.004000|5.003007|p
PUTBACK|5.003007|5.003007|
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu

ppport.h  view on Meta::CPAN 

    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    D_PPP_CROAK_IF_ERROR(croak_on_error);

    return sv;
}

 view all matches for this distribution


Algorithm-AdaGrad
2 results

 view release on metacpan or  search on metacpan

lib/Algorithm/AdaGrad.xs  view on Meta::CPAN 

    New(__LINE__, obj, 1, struct AdaGradS);
    obj->classifers = new classifers_type();
    obj->eta = eta;
    RETVAL = obj;
}
OUTPUT:
    RETVAL

int
update(AdaGradPtr self, SV* sv)
CODE:

lib/Algorithm/AdaGrad.xs  view on Meta::CPAN 

            handleUpdate(self, *elm);       
        }
    }
    RETVAL = 0;
}
OUTPUT:
    RETVAL

int
classify(AdaGradPtr self, SV* sv)
CODE:

lib/Algorithm/AdaGrad.xs  view on Meta::CPAN 

        margin += ag->classify(gradient);
    }

    RETVAL = margin >= 0 ? POSITIVE_LABEL : NEGATIVE_LABEL;
}
OUTPUT:
    RETVAL


void save(AdaGradPtr self, SV* sv)
CODE:

 view all matches for this distribution


Algorithm-AhoCorasick-XS
5 results

 view release on metacpan or  search on metacpan

lib/Algorithm/AhoCorasick/XS.pm  view on Meta::CPAN 

=item new ( ARRAYREF_OF_SUBSTRINGS )

Constructs a matcher object given an arrayref of substrings. Builds the internal
automaton.

=item matches ( INPUT )

Given a string, returns a list of the substrings which are present in the input.
There may be duplicates if a substring occurs more than once.

=item unique_matches ( INPUT )

As above but runs C<uniq> on the list for you.

=item first_match ( INPUT )

Returns the first match only (or undef if none). This is efficient - the matcher
will stop once it encounters the first match, and the rest of the string will be
ignored.

=item match_details ( INPUT )

Returns a list of hashrefs, containing the keys C<word>, C<start> and C<end>.
These correspond to an occurence of a substring - the word, start and end offset
within the string.

 view all matches for this distribution


Algorithm-BIT-XS
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PadARRAY||5.021008|
PadMAX||5.021008|
PadlistARRAY||5.021008|
PadlistMAX||5.021008|
PadlistNAMESARRAY||5.021008|

ppport.h  view on Meta::CPAN 

    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
        croak(SvPVx(GvSV(errgv), na));

    return sv;

 view all matches for this distribution


Algorithm-Bertsekas
2 results

 view release on metacpan or  search on metacpan

lib/Algorithm/Bertsekas.pm  view on Meta::CPAN 


=head1 EXPORT

    "auction" function by default.

=head1 INPUT

    The input matrix should be in a two dimensional array (array of array) 
	and the 'auction' subroutine expects a reference to this array.

=head1 OUTPUT

    The $output_index_ref is the reference to the output_index array.
	The $assignment_ref  is the reference to the assignment hash.
	The $optimal is the total benefit which can be a minimum or maximum value.

 view all matches for this distribution


Algorithm-BinarySearch-Vec
2 results

 view release on metacpan or  search on metacpan

Vec.xs  view on Meta::CPAN 

 vp = (uchar *)SvPVbyte(vec, len);
 if (len > i*nbits/8)
   RETVAL = absv_vget(vp, i, nbits);
 else
   RETVAL = 0;
OUTPUT:
  RETVAL

 ##--------------------------------------------------------------
void
vset(SV *vec, ABSV_UINT i, ABSV_UINT nbits, ABSV_UINT val)

Vec.xs  view on Meta::CPAN 

#ifdef ABSV_HAVE_QUAD
 RETVAL = 1;
#else
 RETVAL = 0;
#endif
OUTPUT:
 RETVAL

##--------------------------------------------------------------
ABSV_UINT
KEY_NOT_FOUND()
CODE:
 RETVAL = KEY_NOT_FOUND;
OUTPUT:
 RETVAL

##=====================================================================
## BINARY SEARCH, element-wise

Vec.xs  view on Meta::CPAN 

CODE:
 v = SvPV(vec,vlen);
 ilo = items > 3 ? SvUV(ST(3)) : 0;
 ihi = items > 4 ? SvUV(ST(4)) : (vlen*8/nbits);
 RETVAL = absv_bsearch(v,key,ilo,ihi,nbits);
OUTPUT:
 RETVAL

##--------------------------------------------------------------
ABSV_UINT
vbsearch_lb(SV *vec, ABSV_UINT key, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

CODE:
 v = SvPV(vec,vlen);
 ilo = items > 3 ? SvUV(ST(3)) : 0;
 ihi = items > 4 ? SvUV(ST(4)) : (vlen*8/nbits);
 RETVAL = absv_bsearch_lb(v,key,ilo,ihi,nbits);
OUTPUT:
 RETVAL

##--------------------------------------------------------------
ABSV_UINT
vbsearch_ub(SV *vec, ABSV_UINT key, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

CODE:
 v = SvPV(vec,vlen);
 ilo = items > 3 ? SvUV(ST(3)) : 0;
 ihi = items > 4 ? SvUV(ST(4)) : (vlen*8/nbits);
 RETVAL = absv_bsearch_ub(v,key,ilo,ihi,nbits);
OUTPUT:
 RETVAL


##=====================================================================
## BINARY SEARCH, array-wise

Vec.xs  view on Meta::CPAN 

 for (i=0; i<=n; ++i) {
   SV   **key  = av_fetch(keys, i, 0);
   ABSV_UINT   found = absv_bsearch(v,SvUV(*key),ilo,ihi,nbits);
   av_store(RETVAL, i, newSVuv(found));
 }
OUTPUT:
 RETVAL

##--------------------------------------------------------------
AV*
vabsearch_lb(SV *vec, AV *keys, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

 for (i=0; i<=n; ++i) {
   SV   **key  = av_fetch(keys, i, 0);
   ABSV_UINT   found = absv_bsearch_lb(v,SvUV(*key),ilo,ihi,nbits);
   av_store(RETVAL, i, newSVuv(found));
 }
OUTPUT:
 RETVAL

##--------------------------------------------------------------
AV*
vabsearch_ub(SV *vec, AV *keys, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

 for (i=0; i<=n; ++i) {
   SV   **key  = av_fetch(keys, i, 0);
   ABSV_UINT   found = absv_bsearch_ub(v,SvUV(*key),ilo,ihi,nbits);
   av_store(RETVAL, i, newSVuv(found));
 }
OUTPUT:
 RETVAL

##=====================================================================
## BINARY SEARCH, vec-wise

Vec.xs  view on Meta::CPAN 

 for (i=0; i<n; ++i) {
   ABSV_UINT key   = absv_vget(k,i,nbits);
   ABSV_UINT found = absv_bsearch(v,key,ilo,ihi,nbits);
   absv_vset(rv,i,32,found);
 }
OUTPUT:
 RETVAL

##--------------------------------------------------------------
SV*
vvbsearch_lb(SV *vec, SV *vkeys, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

 for (i=0; i<n; ++i) {
   ABSV_UINT key   = absv_vget(k,i,nbits);
   ABSV_UINT found = absv_bsearch_lb(v,key,ilo,ihi,nbits);
   absv_vset(rv,i,32,found);
 }
OUTPUT:
 RETVAL

##--------------------------------------------------------------
SV*
vvbsearch_ub(SV *vec, SV *vkeys, ABSV_UINT nbits, ...)

Vec.xs  view on Meta::CPAN 

 for (i=0; i<n; ++i) {
   ABSV_UINT key   = absv_vget(k,i,nbits);
   ABSV_UINT found = absv_bsearch_ub(v,key,ilo,ihi,nbits);
   absv_vset(rv,i,32,found);
 }
OUTPUT:
 RETVAL

##=====================================================================
## SET OPERATIONS

Vec.xs  view on Meta::CPAN 

 for (; ai < na; ++ai, ++ci)
   absv_vset(c,ci,nbits,absv_vget(a,ai,nbits));
 for (; bi < nb; ++bi, ++ci)
   absv_vset(c,ci,nbits,absv_vget(b,bi,nbits));
 SvCUR_set(RETVAL, ci*nbits/8);
OUTPUT:
 RETVAL

##--------------------------------------------------------------
SV*
vintersect(SV *avec, SV *bvec, ABSV_UINT nbits)

Vec.xs  view on Meta::CPAN 

     absv_vset(c,ci++,nbits,aval);
   }
   blo = bi;
 }
 SvCUR_set(RETVAL, ci*nbits/8);
OUTPUT:
 RETVAL

##--------------------------------------------------------------
SV*
vsetdiff(SV *avec, SV *bvec, ABSV_UINT nbits)

Vec.xs  view on Meta::CPAN 

   blo = bi;
 }
 for ( ; ai < na; ++ai)
   absv_vset(c,ci++,nbits,absv_vget(a,ai,nbits));
 SvCUR_set(RETVAL, ci*nbits/8);
OUTPUT:
 RETVAL

 view all matches for this distribution


Algorithm-Bitonic-Sort
1 match

 view release on metacpan or  search on metacpan

lib/Algorithm/Bitonic/Sort.pm  view on Meta::CPAN 

	my $up = shift;
	my $single_bit = shift;
	my @num = @_;
	my @num_new;
	
	say "_SOME_SORTING_ALGORITHM: INPUT: ".Dumper(@num) if DEBUG;
	
	while (my $curr = shift @num) {
		say "_SOME_SORTING_ALGORITHM: for: ".Dumper($curr, $single_bit, @num) if DEBUG;
		if ($up and $single_bit < $curr) {
			push @num_new, $single_bit;

 view all matches for this distribution


Algorithm-BloomFilter
2 results

 view release on metacpan or  search on metacpan

BloomFilter.xs  view on Meta::CPAN 

PROTOTYPES: DISABLE

TYPEMAP: <<HERE
bloom_t*	O_OBJECT

OUTPUT

O_OBJECT
  sv_setref_pv( $arg, CLASS, (void*)$var );

INPUT

O_OBJECT
  if ( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
    $var = ($type)SvIV((SV*)SvRV( $arg ));
  else

BloomFilter.xs  view on Meta::CPAN 

new(const char *CLASS, UV n_bits, UV k_hashes)
  CODE:
    RETVAL = bl_alloc(n_bits, k_hashes, bl_siphash);
    if (!RETVAL)
      croak("Out of memory!");
  OUTPUT: RETVAL

void
DESTROY(bloom_t *bl)
  CODE:
    bl_free(bl);

BloomFilter.xs  view on Meta::CPAN 

    const unsigned char *str;
    STRLEN len;
  CODE:
    str = (const unsigned char *)SvPVbyte(value, len);
    RETVAL = (IV)bl_test(bl, str, len);
  OUTPUT: RETVAL

SV *
serialize(bloom_t *bl)
  PREINIT:
    char *out;

BloomFilter.xs  view on Meta::CPAN 

    SvPOK_on(RETVAL);
#else
    RETVAL = newSVpvn(out, len);
    free(out);
#endif
  OUTPUT: RETVAL

bloom_t *
deserialize(const char *CLASS, SV *blob)
  PREINIT:
    char *str;
    STRLEN len;
  CODE:
    str = SvPVbyte(blob, len);
    RETVAL = bl_deserialize(str, len, bl_siphash);
  OUTPUT: RETVAL

void
merge(bloom_t *self, bloom_t *other)
  PREINIT:
    int result;

 view all matches for this distribution


Algorithm-BreakOverlappingRectangles
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|

ppport.h  view on Meta::CPAN 

    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
	croak(SvPVx(GvSV(errgv), na));

    return sv;

 view all matches for this distribution


( run in 1.015 second using v1.01-cache-2.11-cpan-39bf76dae61 )