view release on metacpan or search on metacpan
The overall theme of Embedix::DB is to try to improve upon the areas
where tigger is lacking. It's a lot of work, and I'd like to emphasize
that I'm not doing this out of disrespect. Surely, I would have made
many of the same mistakes (and some original ones of my own) if I were
implementing this without the benefit of hindsight. I believe the
concept of TargetWizard is a good one, and that's why I'm doing this.
Embedix::DB is an exploratory work where I am trying to put certain
ideas about how tigger could be improved into practice.
view release on metacpan or search on metacpan
lib/MAB2/Record/lokal.pm view on Meta::CPAN
$a = Einleitender Text
$b = Zusammenfassende Bestandsangabe
$c = Lueckenangabe (allgemein)
$d = Lueckenangabe (Desideratenverzeichnisse)
$e = Kommentar
$f = Magazin- / Grundsignatur
$g = (Sonder-) Standort
$h = (Sonder-) Standortsignatur
$k = Kommentar zur Grundsignatur
$n = SUBITO-Lieferbedingungen
$0 = Sortierhilfe
view release on metacpan or search on metacpan
lib/Farabi/files/public/assets/codemirror/mode/fortran/fortran.js view on Meta::CPAN
"dacos", "dasin", "datan", "date_and_time",
"dbesj", "dbesj", "dbesjn", "dbesy", "dbesy",
"dbesyn", "dble", "dcos", "dcosh", "ddim", "derf",
"derfc", "dexp", "digits", "dim", "dint", "dlog",
"dlog", "dmax", "dmin", "dmod", "dnint",
"dot_product", "dprod", "dsign", "dsinh",
"dsin", "dsqrt", "dtanh", "dtan", "dtime",
"eoshift", "epsilon", "erf", "erfc", "etime",
"exit", "exp", "exponent", "extends_type_of",
"fdate", "fget", "fgetc", "float", "floor",
"flush", "fnum", "fputc", "fput", "fraction",
view release on metacpan or search on metacpan
lib/Fault/Notepad.pm view on Meta::CPAN
#
# Revision 1.6 2008-08-17 21:56:37 amon
# Make all titles fit CPAN standard.
#
# Revision 1.5 2008-07-28 10:57:37 amon
# Dropped last of tsag/dsig; new addObject method; sprint bugfix; newlines added to prints.
#
# Revision 1.4 2008-07-24 21:17:24 amon
# Moved all todo notes to elsewhere; made Stderr the default delegate instead
# of Stdout.
#
view release on metacpan or search on metacpan
%EXPORT_TAGS = (
loglevels => [@loglevels],
trace => [@loglevels, qw(trace_level trace_to)],
result => [@result],
error => [@result, qw(strerror)],
file => [@result, qw(md4_file sig_file loadsig_file delta_file patch_file)],
nonblocking => [@result],
);
my %export_ok;
@export_ok{map @$_, values %EXPORT_TAGS} = ();
=item $md4 = md4_file $fh
=item sig_file $old_fh, $sig_fh[, $block_len[, $strong_len]]
=item $sig = loadsig_file $fh
=item delta_file $signature, $new_fh, $delta_fh
=item patch_file $base_fh, $delta_fh, $new_fh
=item new_sig File::Rdiff::Job [$new_block_len[, $strong_sum_len]]
Create a job that converts a base stream into a signature stream (i.e. creates signatures).
=item new_loadsig File::Rdiff::Job
Create a job that converts the input stream into a in-memory
File::Rdiff::Signature object. The signature object can be fetched anytime
with the C<signature>-method.
and/or fill the input buffer and loop), or some error code indicating that
the operation failed.
=item $job->signature
Only valid for C<new_loadsig>, so look there.
=back
=head1 EXAMPLE PROGRAM ONE
} elsif ($ARGV[0] eq "delta") {
open $sig, "<$ARGV[1]" or die "$ARGV[1]: $!";
open $new, "<$ARGV[2]" or die "$ARGV[2]: $!";
open $delta, ">$ARGV[3]" or die "$ARGV[3]: $!";
$sig = loadsig_file $sig;
ref $sig or exit 1;
$sig->build_hash_table;
open $sig, "<$ARGV[1]" or die "$ARGV[1]: $!";
open $new, "<$ARGV[2]" or die "$ARGV[2]: $!";
open $delta, ">$ARGV[3]" or die "$ARGV[3]: $!";
# first load the signature into memory
my $job = new_loadsig File::Rdiff::Job;
my $buf = new File::Rdiff::Buffers 0;
do {
$buf->avail_in or do {
my $in;
view release on metacpan or search on metacpan
CompanyNames/TextSupport.pm view on Meta::CPAN
hindered
hindering
hinders
hindrance
hindrances
hindsight
hinge
hinged
hinges
hint
hinted
view release on metacpan or search on metacpan
lib/Font/GlyphNames/glyphlist.txt view on Meta::CPAN
H18551;25AB
H22073;25A1
HPsquare;33CB
Haabkhasiancyrillic;04A8
Hadescendercyrillic;04B2
Hardsigncyrillic;042A
Hbar;0126
Hbrevebelow;1E2A
Hcedilla;1E28
Hcircle;24BD
Hcircumflex;0124
lib/Font/GlyphNames/glyphlist.txt view on Meta::CPAN
hamzalowarabic;0621
hamzalowkasraarabic;0621 0650
hamzalowkasratanarabic;0621 064D
hamzasukunarabic;0621 0652
hangulfiller;3164
hardsigncyrillic;044A
harpoonleftbarbup;21BC
harpoonrightbarbup;21C0
hasquare;33CA
hatafpatah;05B2
hatafpatah16;05B2
view release on metacpan or search on metacpan
scripts/ttf2woff view on Meta::CPAN
if ($opts{'c'})
{
# Force checksum recalcuation by copying font
# If font has non-empty DSIG, delete it first:
my $dsig = $if->{'DSIG'};
delete $if->{'DSIG'} if ($dsig && !$dsig->isempty);
#Copy the rest of the font to string file:
my ($tfh) = IO::String->new($string);
my (@tlist) = sort {$if->{$a}{' OFFSET'} <=> $if->{$b}{' OFFSET'}}
grep(length($_) == 4, keys %{$if});
$if->out($tfh, @tlist);
# release original font to free up memory:
$if->{'DSIG'} = $dsig if $dsig;
$if->release;
# Now open copied font:
$tfh = IO::String->new($string);
$if = Font::TTF::Font->open($tfh);
view release on metacpan or search on metacpan
lib/Font/TTF/PSNames.pm view on Meta::CPAN
'Gsmallhook' => "\x{029B}",
'Gstroke' => "\x{01E4}",
'HPsquare' => "\x{33CB}",
'Haabkhasiancyrillic' => "\x{04A8}",
'Hadescendercyrillic' => "\x{04B2}",
'Hardsigncyrillic' => "\x{042A}",
'Hbrevebelow' => "\x{1E2A}",
'Hcedilla' => "\x{1E28}",
'Hcircle' => "\x{24BD}",
'Hdieresis' => "\x{1E26}",
'Hdotaccent' => "\x{1E22}",
lib/Font/TTF/PSNames.pm view on Meta::CPAN
'hamzalowarabic' => "\x{0621}",
'hamzalowkasraarabic' => "\x{0621}\x{0650}",
'hamzalowkasratanarabic' => "\x{0621}\x{064D}",
'hamzasukunarabic' => "\x{0621}\x{0652}",
'hangulfiller' => "\x{3164}",
'hardsigncyrillic' => "\x{044A}",
'harpoonleftbarbup' => "\x{21BC}",
'harpoonrightbarbup' => "\x{21C0}",
'hasquare' => "\x{33CA}",
'hatafpatah' => "\x{05B2}",
'hatafpatah16' => "\x{05B2}",
view release on metacpan or search on metacpan
lang_de/word_types.brain view on Meta::CPAN
type: n,
Durchsetzfgen:
type: n,
romy:
type: adj
Handsignale:
type: n,
Schwche:
type: n,
zentrieren:
type: vi
view release on metacpan or search on metacpan
JS/js/prdtoa.c view on Meta::CPAN
/* nspr2 watcom bug ifdef omitted */
PR_PUBLIC_API(double)
PR_strtod(CONST char *s00, char **se)
{
int32 bb2, bb5, bbe, bd2, bd5, bbbits, bs2, c, dsign,
e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign;
CONST char *s, *s0, *s1;
double aadj, aadj1, adj, rv, rv0;
Long L;
ULong y, z;
JS/js/prdtoa.c view on Meta::CPAN
if (bd2 > 0)
bd = lshift(bd, bd2);
if (bs2 > 0)
bs = lshift(bs, bs2);
delta = diff(bb, bd);
dsign = delta->sign;
delta->sign = 0;
i = cmp(delta, bs);
if (i < 0) {
/* Error is less than half an ulp -- check for
* special case of mantissa a power of two.
*/
if (dsign || word1(rv) || word0(rv) & Bndry_mask)
break;
delta = lshift(delta,Log2P);
if (cmp(delta, bs) > 0)
goto drop_down;
break;
}
if (i == 0) {
/* exactly half-way between */
if (dsign) {
if ((word0(rv) & Bndry_mask1) == Bndry_mask1
&& word1(rv) == 0xffffffff) {
/*boundary case -- increment exponent*/
word0(rv) = (word0(rv) & Exp_mask)
+ Exp_msk1
JS/js/prdtoa.c view on Meta::CPAN
}
#ifndef ROUND_BIASED
if (!(word1(rv) & LSB))
break;
#endif
if (dsign)
rv += ulp(rv);
#ifndef ROUND_BIASED
else {
rv -= ulp(rv);
#ifndef Sudden_Underflow
JS/js/prdtoa.c view on Meta::CPAN
}
#endif
break;
}
if ((aadj = ratio(delta, bs)) <= 2.) {
if (dsign)
aadj = aadj1 = 1.;
else if (word1(rv) || word0(rv) & Bndry_mask) {
#ifndef Sudden_Underflow
if (word1(rv) == Tiny1 && !word0(rv))
goto undfl;
JS/js/prdtoa.c view on Meta::CPAN
aadj1 = -aadj;
}
}
else {
aadj *= 0.5;
aadj1 = dsign ? aadj : -aadj;
#ifdef Check_FLT_ROUNDS
switch(FLT_ROUNDS) {
case 2: /* towards +infinity */
aadj1 -= 0.5;
break;
JS/js/prdtoa.c view on Meta::CPAN
* trouble from bits lost to denormalization;
* example: 1.2e-307 .
*/
if (y <= (P-1)*Exp_msk1 && aadj >= 1.) {
aadj1 = (double)(int32)(aadj + 0.5);
if (!dsign)
aadj1 = -aadj1;
}
adj = aadj1 * ulp(rv);
rv += adj;
#endif
JS/js/prdtoa.c view on Meta::CPAN
if (y == z) {
/* Can we stop now? */
L = (Long)aadj;
aadj -= L;
/* The tolerances below are conservative. */
if (dsign || word1(rv) || word0(rv) & Bndry_mask) {
if (aadj < .4999999 || aadj > .5000001)
break;
}
else if (aadj < .4999999/FLT_RADIX)
break;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
rpms: $(SPEC_PREFIX).spec
cp Fsdb-$(VERSION).tar.gz $$HOME/rpmbuild/SOURCES
cp $(SPEC_PREFIX).spec $$HOME/rpmbuild/SPECS
( cd $$HOME/rpmbuild; rpmbuild -ba SPECS/$(SPEC_PREFIX).spec && rpmsign --addsign RPMS/$(RPM_ARCH)/$(RPM_PREFIX)-$(VERSION)-1$(RPM_DIST).$(RPM_ARCH).rpm && rpmsign --addsign SRPMS/$(RPM_PREFIX)-$(VERSION)-1$(RPM_DIST).src.rpm; )
cp $$HOME/rpmbuild/RPMS/$(RPM_ARCH)/$(RPM_PREFIX)-$(VERSION)-1$(RPM_DIST).$(RPM_ARCH).rpm .
cp $$HOME/rpmbuild/SRPMS/$(RPM_PREFIX)-$(VERSION)-1$(RPM_DIST).src.rpm .
signrpms:
rpmsign --addsign $(RPM_PREFIX)-$(VERSION)*.rpm
WEBDIR=/home/johnh/WORKING/JOHNH/WWW/JOHNH_2016/SOFTWARE/FSDB
release:
@echo "You should have done (fix date in Fsdb.pm); \"make manifest; make dist; make rpms; make rpmlint\""
view release on metacpan or search on metacpan
lib/FP/Repl/Repl.pm view on Meta::CPAN
# all?)
my $r = $$self[Maybe_package] || $stack->package($frameno);
$r
};
my $oldsigint = $SIG{INT};
eval {
local $SIG{__DIE__};
# It seems this is the only way to make signal handlers work in
# both perl 5.6 and 5.8:
lib/FP/Repl/Repl.pm view on Meta::CPAN
}
}
}
}
print $OUTPUT "\n";
$SIG{INT} = defined($oldsigint) ? $oldsigint : "DEFAULT";
# (Is there no other return path from sub run? should I use
# DESTROY objects for this? -> nope, no returns, but if
# exceptions not trapped it would fail)
}
view release on metacpan or search on metacpan
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
adscriptitius
adscriptive
adscripts
adsessor
adsheart
adsignification
adsignify
adsmith
adsmithing
adsorb
adsorbability
adsorbable
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
behight
behind
behinder
behindhand
behinds
behindsight
behint
behither
behn
behold
beholdable
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
hindquarters
hindrance
hindrances
hinds
hindsaddle
hindsight
hindu
hinduism
hindus
hindustan
hindustani
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
mindlessly
mindlessness
mindly
minds
mindsickness
mindsight
mine
mineable
mined
minefield
minelayer
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
secondment
secondness
secondo
secondrater
seconds
secondsighted
secondsightedness
secos
secours
secpar
secpars
secque
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|3|4|5|2|7:Anthony|Antoine|Barclay|Bateman|Bechtel|Benares|Bentley|Bolshoi|CENTREX|Capitan|Caspian|Centrex|Compton|Delaney|Dempsey|Eastman|Edmonds|Eduardo|Edwards|England|Fairfax|Georges|Gregory|Hadrian|Halifax|Hartman|Hershel|Hershey|Houston|Indi...
1|2|3|4|5|2|7|1:download|entrance|seducers|
1|2|3|4|5|2|7|1|2:strictest|
1|2|3|4|5|2|7|1|3|1|11|12:intransitive|
1|2|3|4|5|2|7|1|3|1|11|12|13|14:intransitively|
1|2|3|4|5|2|7|1|9:downloads|enchanted|enchanter|encounter|entranced|entrances|hindsight|laughable|laughably|
1|2|3|4|5|2|7|1|9|1:downloaded|
1|2|3|4|5|2|7|1|9|10:drawbridge|encounters|midshipman|midshipmen|
1|2|3|4|5|2|7|1|9|10|11:drawbridges|polymorphic|
1|2|3|4|5|2|7|1|9|10|2|12:encountering|
1|2|3|4|5|2|7|1|9|10|2|3:intransigent|
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
hillo hilloa hilloaed hilloaing hilloas hillock hillocks hillocky hilloed
hilloes hilloing hillos hills hillside hillsides hilltop hilltops hilly hilt
hilted hilting hiltless hilts hilum hilus him himatia himation himations
himself hin hind hindbrain hindbrains hinder hindered hinderer hinderers
hindering hinders hindgut hindguts hindmost hindquarter hindquarters hindrance
hindrances hinds hindsight hindsights hinge hinged hinger hingers hinges
hinging hinnied hinnies hinny hinnying hins hint hinted hinter hinterland
hinterlands hinters hinting hints hip hipbone hipbones hipless hiplike hipline
hiplines hipness hipnesses hipparch hipparchs hipped hipper hippest hippie
hippiedom hippiedoms hippieness hippienesses hippier hippies hippiest
hippiness hippinesses hipping hippish hippo hippocampal hippocampi hippocampus
view release on metacpan or search on metacpan
=cut
sub cntrlc {
my($sig) = @_;
&Raster::gdsigint(1);
}
=pod
=head1 HELP
view release on metacpan or search on metacpan
MailBot/IniConf.pm view on Meta::CPAN
local $_;
while (($k, $v) = each %parms) {
if ($k eq '-file') {
$self->{cf} = $v;
}
elsif ($k eq '-reloadsig') {
$v =~ s/^SIG//;
$self->{reloadsig} = uc($v);
}
elsif ($k eq '-default') {
$self->{default} = $v;
}
elsif ($k eq '-nocase') {
MailBot/IniConf.pm view on Meta::CPAN
return undef if $errs;
# Set up a signal handler if requested
my($sig, $oldhandler, $newhandler);
if ($sig = $self->{reloadsig}) {
$oldhandler[$instnum] = $SIG{$sig};
$newhandler = "${class}::SigHand_$instnum";
my $toeval = <<"EOT";
sub $newhandler {
view release on metacpan or search on metacpan
lib/Google/SAML/Response.pm view on Meta::CPAN
=over
=item XML-Signature Syntax and Processing
L<http://www.w3.org/TR/xmldsig-core/>
=item Google-Documentation on SSO and SAML
L<https://developers.google.com/google-apps/sso/saml_reference_implementation>
lib/Google/SAML/Response.pm view on Meta::CPAN
=head2 get_response_xml
Generate the signed response xml and return it as a string
The method does what the w3c tells us to do (L<http://www.w3.org/TR/xmldsig-core/#sec-CoreGeneration>):
=over
3.1.1 Reference Generation
lib/Google/SAML/Response.pm view on Meta::CPAN
sub _signature_xml {
my $self = shift;
my $signed_info = shift;
my $signature_value = shift;
return qq|<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
$signed_info
<SignatureValue>$signature_value</SignatureValue>
$self->{ KeyInfo }
</Signature>|;
}
lib/Google/SAML/Response.pm view on Meta::CPAN
sub _signedinfo_xml {
my $self = shift;
my $digest_xml = shift;
return qq|<SignedInfo xmlns="http://www.w3.org/2000/09/xmldsig#" xmlns:samlp="urn:oasis:names:tc:SAML:2.0:protocol" xmlns:xenc="http://www.w3.org/2001/04/xmlenc#">
<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315#WithComments" />
<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#$self->{ key_type }-sha1" />
$digest_xml
</SignedInfo>|;
}
lib/Google/SAML/Response.pm view on Meta::CPAN
my $self = shift;
my $digest = shift;
return qq|<Reference URI="">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />
</Transforms>
<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
<DigestValue>$digest</DigestValue>
</Reference>|;
}
view release on metacpan or search on metacpan
lib/Gtk2/Ex/GraphViz.pm view on Meta::CPAN
return $hbox;
}
sub signal_connect {
my ($self, $signal, $callback) = @_;
my $allowedsignals = [
'mouse-enter-node',
'mouse-exit-node',
'mouse-enter-edge',
'mouse-exit-edge',
];
my %hash = map { $_ => 1 } @$allowedsignals;
unless ($hash{$signal}) {
my $str = "Warning !! No such signal $signal. Allowed signals are\n";
$str .= join "\n", @$allowedsignals;
warn $str."\n";
}
$self->{signals}->{$signal} = $callback;
}
view release on metacpan or search on metacpan
lib/Haineko/Sendmail.pm view on Meta::CPAN
my $preforkset = undef; # (Parallel::Prefork) object
my $preforkarg = undef; # (Ref->Hash) arguments for Parallel::Prefork
my $preforkipc = []; # (Ref->Array) IO::Pipe objects
my $useprefork = 0; # (Integer) use fork() or not
my $procnumber = 0; # (Integer) Job ID of each child process
my $trappedsig = 0; # (Integer) The number of received USR2 signal
if( $maxworkers > 1 ) {
# Adjust the number of max worker processes.
my $xprocesses = $serverconf->{'max_workers'} // $defaultset->{'smtpd'}->{'max_workers'};
lib/Haineko/Sendmail.pm view on Meta::CPAN
};
$preforkset = Parallel::Prefork->new( $preforkarg );
$SIG{'USR2'} = sub {
# Trap signal from each child process
$trappedsig++;
kill( 'TERM', $$ ) if $trappedsig >= $maxworkers;
};
}
my $sendmailto = sub {
# Code reference for sending an email to each recipient which called
view release on metacpan or search on metacpan
libeio/xthread.h view on Meta::CPAN
static int
xthread_create (xthread_t *tid, void *(*proc)(void *), void *arg)
{
int retval;
sigset_t fullsigset, oldsigset;
pthread_attr_t attr;
pthread_attr_init (&attr);
pthread_attr_setdetachstate (&attr, PTHREAD_CREATE_DETACHED);
pthread_attr_setstacksize (&attr, PTHREAD_STACK_MIN < X_STACKSIZE ? X_STACKSIZE : PTHREAD_STACK_MIN);
libeio/xthread.h view on Meta::CPAN
pthread_attr_setscope (&attr, PTHREAD_SCOPE_PROCESS);
#endif
sigfillset (&fullsigset);
pthread_sigmask (SIG_SETMASK, &fullsigset, &oldsigset);
retval = pthread_create (tid, &attr, proc, arg) == 0;
pthread_sigmask (SIG_SETMASK, &oldsigset, 0);
pthread_attr_destroy (&attr);
return retval;
}
view release on metacpan or search on metacpan
suitability.
* Get Module::Build to create Makefile.PL.
0.02 BUGFIXES:
* Don't upset perl 5.6.2's POSIX::sigprocmask() by passing 'undef'
as oldsigmask
0.01 First version, released on an unsuspecting world.
view release on metacpan or search on metacpan
ccv-src/lib/ccv_sift.c view on Meta::CPAN
else
custom_keypoints = 1;
int i, j, k, x, y;
double sigma0 = 1.6;
double sigmak = pow(2.0, 1.0 / (params.nlevels - 3));
double dsigma0 = sigma0 * sigmak * sqrt(1.0 - 1.0 / (sigmak * sigmak));
if (params.up2x)
{
ccv_sample_up(a, &g[-(params.nlevels + 1)], 0, 0, 0);
/* since there is a gaussian filter in sample_up function already,
* the default sigma for upsampled image is sqrt(2) */
double sd = sqrt(sigma0 * sigma0 - 2.0);
ccv_blur(g[-(params.nlevels + 1)], &g[-(params.nlevels + 1) + 1], CCV_32F | CCV_C1, sd);
ccv_matrix_free(g[-(params.nlevels + 1)]);
for (j = 1; j < params.nlevels; j++)
{
sd = dsigma0 * pow(sigmak, j - 1);
ccv_blur(g[-(params.nlevels + 1) + j], &g[-(params.nlevels + 1) + j + 1], 0, sd);
ccv_subtract(g[-(params.nlevels + 1) + j + 1], g[-(params.nlevels + 1) + j], (ccv_matrix_t**)&dog[-(params.nlevels - 1) + j - 1], 0);
if (j > 1 && j < params.nlevels - 1)
ccv_gradient(g[-(params.nlevels + 1) + j], &th[-(params.nlevels - 3) + j - 2], 0, &md[-(params.nlevels - 3) + j - 2], 0, 1, 1);
ccv_matrix_free(g[-(params.nlevels + 1) + j]);
ccv-src/lib/ccv_sift.c view on Meta::CPAN
g[0] = a;
/* generate gaussian pyramid (g, dog) & gradient pyramid (th, md) */
ccv_blur(g[0], &g[1], CCV_32F | CCV_C1, sd);
for (j = 1; j < params.nlevels; j++)
{
sd = dsigma0 * pow(sigmak, j - 1);
ccv_blur(g[j], &g[j + 1], 0, sd);
ccv_subtract(g[j + 1], g[j], (ccv_matrix_t**)&dog[j - 1], 0);
if (j > 1 && j < params.nlevels - 1)
ccv_gradient(g[j], &th[j - 2], 0, &md[j - 2], 0, 1, 1);
ccv_matrix_free(g[j]);
ccv-src/lib/ccv_sift.c view on Meta::CPAN
ccv_matrix_free(g[(i - 1) * (params.nlevels + 1)]);
sd = sqrt(sigma0 * sigma0 - 0.25);
ccv_blur(g[i * (params.nlevels + 1)], &g[i * (params.nlevels + 1) + 1], CCV_32F | CCV_C1, sd);
for (j = 1; j < params.nlevels; j++)
{
sd = dsigma0 * pow(sigmak, j - 1);
ccv_blur(g[i * (params.nlevels + 1) + j], &g[i * (params.nlevels + 1) + j + 1], 0, sd);
ccv_subtract(g[i * (params.nlevels + 1) + j + 1], g[i * (params.nlevels + 1) + j], (ccv_matrix_t**)&dog[i * (params.nlevels - 1) + j - 1], 0);
if (j > 1 && j < params.nlevels - 1)
ccv_gradient(g[i * (params.nlevels + 1) + j], &th[i * (params.nlevels - 3) + j - 2], 0, &md[i * (params.nlevels - 3) + j - 2], 0, 1, 1);
ccv_matrix_free(g[i * (params.nlevels + 1) + j]);
view release on metacpan or search on metacpan
lib/Image/ExifTool/GoPro.pm view on Meta::CPAN
},
LOGS => 'HealthLogs',
HCTL => 'HorizonControl', #3
HDRV => { Name => 'HDRVideo', PrintConv => \%noYes }, #3/PH (NC)
# HFLG (APP6) - seen: 0
HSGT => 'HindsightSettings', #3
ISOE => 'ISOSpeeds', #PH (gpmd)
ISOG => { #2 (gpmd)
Name => 'ImageSensorGain',
Binary => 1,
},
view release on metacpan or search on metacpan
lib/Imager/Graph/Pie.pm view on Meta::CPAN
my $ex = $cx + cos($angle)*$radius;
my $ey = $cy + sin($angle)*$radius;
my @line = line_from_points($cx, $cy, $ex, $ey);
#_test_line($cx, $cy, @line);
#_test_line($ex, $ey, @line);
my $goodsign = $line[0] * $tcx + $line[1] * $tcy + $line[2];
for my $pos (@entry{qw/left right/}) {
my $sign = $line[0] * ($pos+$tcx) + $line[1] * $y + $line[2];
if ($goodsign * $sign < 0) {
if (my @p = intersect_lines(@line, @{$entry{line}})) {
# die "$goodsign $sign ($pos, $tcx) no intersect (@line) (@{$entry{line}})" ; # this would be wierd
#_test_line(@p, @line);
#_test_line(@p, @{$entry{line}});
$pos = $p[0]-$tcx;
}
else {
view release on metacpan or search on metacpan
t/fixtures/jquery.js view on Meta::CPAN
return this.each(function() {
jQuery.dequeue( this, type );
});
},
// Based off of the plugin by Clint Helfers, with permission.
// http://blindsignals.com/index.php/2009/07/jquery-delay/
delay: function( time, type ) {
time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time;
type = type || "fx";
return this.queue( type, function( next, hooks ) {
view release on metacpan or search on metacpan
t/data/daringfireball.json view on Meta::CPAN
"id" : "https://daringfireball.net/2019/01/ram_double_engst",
"url" : "https://daringfireball.net/2019/01/ram_double_engst",
"author" : {
"name" : "John Gruber"
},
"content_html" : "\n<p>Adam Engst, <a href=\"https://tidbits.com/1994/01/10/ram-doubler/\">writing for TidBITS from Macworld Expo 25 years ago</a>:</p>\n\n<blockquote>\n <p>RAM Doubler is a single small extension that literally doubles\nyou...
},
{
"title" : "★ The R-Word",
"date_published" : "2019-01-18T05:24:22Z",
"date_modified" : "2019-01-20T01:34:24Z",