Result:
found 301 distributions and 793 files matching your query !
( run in 1.597 )
Jifty
view release on metacpan or search on metacpan
share/web/static/js/jquery-1.4.1.js view on Meta::CPAN
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() {
Jvm
view release on metacpan or search on metacpan
}
sub call {
my($className, $methodName, $methodsig, @args) = @_;
if(! $className) {
die "Error: missing class name!";
}
if(! $methodName) {
die "Error: missing method name!";
}
if(! $methodsig) {
die "Error: missing method signature!";
}
my $class = findClass($className);
if(! $class) {
die "find class failed";
}
Jvm::DEBUG("Cls: $class");
my $mid = $class->getStaticMethodID($methodName, $methodsig);
if(! $mid) {
die "find static methodID failed";
}
Jvm::DEBUG("Method: $mid");
my(@sig) = _parseSig($methodsig);
my($returnType) = pop(@sig);
if(scalar(@sig) != scalar(@args)) {
die "Error: The count of Signatures doesn't match that of Arguments!";
LaTeXML-Plugin-LtxMojo
view release on metacpan or search on metacpan
lib/LaTeXML/Plugin/LtxMojo/public/js/external/ace-min/mode-php.js view on Meta::CPAN
define("ace/mode/php",["require","exports","module","ace/lib/oop","ace/mode/text","ace/tokenizer","ace/mode/php_highlight_rules","ace/mode/matching_brace_outdent","ace/range","ace/worker/worker_client","ace/mode/behaviour/cstyle","ace/mode/folding/cs...
LaTeXML
view release on metacpan or search on metacpan
lib/LaTeXML/Package/latexml.sty.ltxml view on Meta::CPAN
return; });
ProcessOptions(inorder => 1, keysets => ['LTXML']);
#======================================================================
# From latexml.sty
# Making these all be links, every time, seems in hindsight rather obnoxious.
# OTOH, would be nice to have an idiom to make (some of) them be links; or only the first one?
# [does this really belong here? or should this be disableable?]
DefConstructor('\URL[] Verbatim', "<ltx:ref href='#href'>?#1(#1)(#href)</ltx:ref>",
properties => sub { (href => CleanURL($_[2])); });
DefMacro('\XML', '\textsc{xml}'); # '\URL[\texttt{XML}]{http://www.w3.org/XML/}');
Language-DATR-DATR2XML
view release on metacpan or search on metacpan
How are you getting on with the XSLT? What you're attempting sounds very
do-able - especially if you have a copy of Mike Kay's book...
Let me know if you have any interesting problems - it's a while since I
coughed up for my copy of LPA Micro Prolog (for DOS!) but with hindsight
it was a really useful non-procedural skill, probably still paying off
whenever I bump into another non-procedural language - like XSLT itself.
Anyway, I like debugging interesting programming problems...
Lemonldap-NG-Common
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Common/Conf/SAML/Metadata.pm view on Meta::CPAN
my @params = $rsa_pub->get_key_parameters();
my $mod = encode_base64( $params[0]->to_bin() );
my $exp = encode_base64( $params[1]->to_bin() );
$str =
'<ds:KeyValue>' . "\n\t"
. '<RSAKeyValue xmlns="http://www.w3.org/2000/09/xmldsig#">'
. "\n\t\t"
. '<Modulus>'
. $mod
. '</Modulus>'
. "\n\t\t"
lib/Lemonldap/NG/Common/Conf/SAML/Metadata.pm view on Meta::CPAN
1;
__DATA__
<?xml version="1.0"?>
<EntityDescriptor xmlns="urn:oasis:names:tc:SAML:2.0:metadata"
xmlns:saml="urn:oasis:names:tc:SAML:2.0:assertion"
xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
entityID="<TMPL_VAR NAME="samlEntityID">">
<TMPL_UNLESS NAME="hideIDPMetadata">
<IDPSSODescriptor
WantAuthnRequestsSigned="<TMPL_VAR NAME="samlIDPSSODescriptorWantAuthnRequestsSigned">"
protocolSupportEnumeration="urn:oasis:names:tc:SAML:2.0:protocol">
<TMPL_LOOP name="signing_keys"><KeyDescriptor use="signing">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<TMPL_LOOP name="encryption_keys"><KeyDescriptor use="encryption">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<ArtifactResolutionService
isDefault="<TMPL_VAR NAME="samlIDPSSODescriptorArtifactResolutionServiceArtifactDefault">"
lib/Lemonldap/NG/Common/Conf/SAML/Metadata.pm view on Meta::CPAN
<SPSSODescriptor
AuthnRequestsSigned="<TMPL_VAR NAME="samlSPSSODescriptorAuthnRequestsSigned">"
WantAssertionsSigned="<TMPL_VAR NAME="samlSPSSODescriptorWantAssertionsSigned">"
protocolSupportEnumeration="urn:oasis:names:tc:SAML:2.0:protocol">
<TMPL_LOOP name="signing_keys"><KeyDescriptor use="signing">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<TMPL_LOOP name="encryption_keys"><KeyDescriptor use="encryption">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<ArtifactResolutionService
isDefault="<TMPL_VAR NAME="samlSPSSODescriptorArtifactResolutionServiceArtifactDefault">"
lib/Lemonldap/NG/Common/Conf/SAML/Metadata.pm view on Meta::CPAN
<TMPL_UNLESS NAME="hideIDPMetadata">
<AttributeAuthorityDescriptor
protocolSupportEnumeration="urn:oasis:names:tc:SAML:2.0:protocol">
<TMPL_LOOP name="signing_keys"><KeyDescriptor use="signing">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<TMPL_LOOP name="encryption_keys"><KeyDescriptor use="encryption">
<ds:KeyInfo xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
<TMPL_VAR NAME="keyInfo">
</ds:KeyInfo>
</KeyDescriptor></TMPL_LOOP>
<AttributeService
Binding="<TMPL_VAR NAME="samlAttributeAuthorityDescriptorAttributeServiceSOAPBinding">"
Lemonldap-NG-Portal
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Portal/Plugins/SamlFederation.pm view on Meta::CPAN
$partner->setNamespace( "urn:oasis:names:tc:SAML:2.0:metadata", "md", 0 );
$partner->setNamespace( "urn:oasis:names:tc:SAML:metadata:attribute",
"mdattr", 0 );
$partner->setNamespace( "urn:oasis:names:tc:SAML:2.0:assertion",
"saml", 0 );
$partner->setNamespace( "http://www.w3.org/2000/09/xmldsig#", "ds", 0 );
# Parse subject-id:req extension
my $requested_subject_id = "none";
if (
my $subjectid = $partner->findnodes(
Lingua-EN-SENNA
view release on metacpan or search on metacpan
lib/Lingua/EN/SENNA/third-party/senna/hash/words.lst view on Meta::CPAN
alliant
allianz
allibert
allie
allied
alliedsignal
allier
allies
allieu
alligator
alligators
lib/Lingua/EN/SENNA/third-party/senna/hash/words.lst view on Meta::CPAN
hindmarsh
hindquarters
hindrance
hindrances
hinds
hindsight
hindu
hindu-majority
hinduism
hinduja
hindukush
Lingua-EN-Segment
view release on metacpan or search on metacpan
share/count_1w.txt view on Meta::CPAN
morissette 717411
effortless 717369
hydroelectric 717342
ens 717319
cranial 717207
hindsight 717180
wrecked 717161
wince 717079
orientated 717028
friendliness 717008
abrasives 716996
share/count_1w.txt view on Meta::CPAN
egal 153768
conned 153760
tangram 153749
referen 153747
czechoslovak 153744
ledsign 153735
tinfoil 153732
mcus 153731
hoodlum 153729
divs 153729
jongg 153727
share/count_1w.txt view on Meta::CPAN
poznyakoff 64851
importants 64851
albini 64850
factotum 64849
ultralights 64848
handsigned 64847
almaria 64847
circuited 64846
haikou 64845
conterminous 64845
brahm 64845
share/count_1w.txt view on Meta::CPAN
rapidio 53040
ensag 53040
pleader 53037
hyperalgesia 53036
personify 53035
alliedsignal 53035
junkmail 53034
gdbarch 53034
blingo 53034
frens 53033
pavlovian 53032
share/count_1w.txt view on Meta::CPAN
ratjada 38984
fasynchronous 38984
unreduced 38983
kiddpeat 38983
fastrak 38982
dsig 38982
amarin 38982
tunare 38980
neighborworks 38979
mraible 38979
laurer 38979
share/count_1w.txt view on Meta::CPAN
artlantis 29012
sjewels 29011
mytheatre 29011
kombinierenerweiterte 29011
weekold 29010
roadsign 29010
insertbefore 29010
clavin 29010
calendering 29010
vncles 29009
rogs 29009
share/count_1w.txt view on Meta::CPAN
boulis 22827
beza 22827
cesp 22826
streamripper 22825
sosu 22825
roadsigns 22825
putah 22825
piastres 22825
mealworm 22825
steading 22824
megakaryocyte 22824
share/count_1w.txt view on Meta::CPAN
recits 21632
neeta 21632
efate 21632
corktown 21632
boresight 21632
blindsight 21632
pctl 21631
gnulinux 21631
slutsebony 21630
picssluty 21630
glahn 21630
share/count_1w.txt view on Meta::CPAN
woodglen 17601
thisse 17601
samtidigt 17601
realizm 17601
hilding 17601
dsign 17601
clust 17601
ayache 17601
wolly 17600
visionaire 17600
robinvale 17600
share/count_1w.txt view on Meta::CPAN
nazeer 17444
leavis 17444
infil 17444
groenendael 17444
ewz 17444
enandsignlr 17444
zond 17443
patins 17443
kazanjian 17443
anbg 17443
onoda 17442
share/count_1w.txt view on Meta::CPAN
mskb 14112
hsy 14112
getsysinfo 14112
fanclubs 14112
changeing 14112
arendsig 14112
snacked 14111
shavuos 14111
majoli 14111
kibs 14111
kessner 14111
Lingua-Preferred
view release on metacpan or search on metacpan
single language, and returns true iff that language is acceptable.
Again it assumes that different dialects of a language are mutually
comprehensible.
Note: I created this module by packaging up some of my own code, but
with hindsight I'm not sure it was a good idea. The world does not
need another NIH way of doing language selections. It would be better
to pick languages by adapting HTTP language negotiation or gettext.
So I do not plan further development on this module except for
bugfixes.
Lingua-Stem-Snowball-Da
view release on metacpan or search on metacpan
endog endog
endogså endogså
endrægtelig endræg
endrægtighed endræg
endrægtigt endræg
endsige ends
endskønt endskønt
endt endt
endte endt
endvidere endvid
ene ene
hidindtil hidindtil
hidkalder hidkald
hidkaldte hidkald
hidse hids
hidser hids
hidsig hids
hidsige hids
hidsighed hids
hidtidige hidtid
hidtil hidtil
hiel hiel
hier hier
hierapolis hierapolis
immanuel immanuel
immer imm
immers imm
imod imod
imodham imodham
imodsiges imods
imri imri
imris imris
ind ind
indad indad
indadtil indadtil
indsatte indsat
indsattes indsat
indse inds
indser inds
indset inds
indsigelse indsig
indsigt inds
indsigten inds
indsigtens inds
indsigts inds
indsigtsfuld indsigtsfuld
indsigtsfulde indsigtsfuld
indskrevet indskrev
indskrevne indskrevn
indskrift indskrift
indskrive indskriv
indskrivning indskrivning
modparten modpart
modparts modpart
modsagde modsag
modsat modsat
modsatte modsat
modsige mods
modsigelse modsig
modstander modstand
modstandere modstand
modstanderen modstand
modstanderes modstand
modstanderne modstand
sandhed sand
sandheden sand
sandhedens sand
sandheds sand
sandhedsord sandhedsord
sandsiger sands
sandsigere sands
sandsigeren sands
sandsigerens sands
sandsigeres sands
sandsigeri sandsigeri
sandsigerne sands
sandsigernes sands
sandsigerånd sandsigerånd
sandsigerånder sandsigerånd
sandskorn sandskorn
sandstøv sandstøv
sandt sand
sandtjeg sandtjeg
sang sang
sminke smink
sminkede sminked
smittes smit
smittet smit
smuds smud
smudsig smuds
smugveje smugvej
smuk smuk
smukke smuk
smukkere smuk
smukt smukt
troas troas
trods trod
trodse trods
trodsede trodsed
trodser trods
trodsige trods
trodsigt trods
troede troed
troen troen
troende troend
troendes troend
troens troen
udsendte udsend
udser uds
udset uds
udsete udset
udsfråler udsfrål
udsige uds
udsigt uds
udskift udskift
udskifte udskift
udskifted udskifted
udskiftede udskifted
udskifter udskift
uhumskhed uhumsk
uhyre uhyr
uhørt uhørt
uhørte uhørt
uigenkaldeligt uigenkald
uimodsigeligt uimodsig
uindtagelig uindtag
uindviede uindvied
uindviedes uindvied
uindviet uindvi
ujævne ujævn
utugts utug
utydelig utyd
utålmodig utålmod
utålmodigt utålmod
utæmmet utæm
uudsigelig uudsig
uudsigelige uudsig
uudsletteligt uudslet
uudslukkelige uudsluk
uudviklet uudvikl
uvalket uvalk
uvan uvan
Linux-DVB-DVBT-Advert
view release on metacpan or search on metacpan
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
static uint32_t arch_accel (uint32_t accel)
{
#ifdef ACCEL_DETECT
if ((accel & (MPEG2_ACCEL_PPC_ALTIVEC | MPEG2_ACCEL_DETECT)) ==
MPEG2_ACCEL_DETECT) {
static RETSIGTYPE (* oldsig) (int);
oldsig = signal (SIGILL, sigill_handler);
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
: "r" (-1));
canjump = 0;
accel |= MPEG2_ACCEL_PPC_ALTIVEC;
signal (SIGILL, oldsig);
}
#endif /* ACCEL_DETECT */
return accel;
}
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
accel |= MPEG2_ACCEL_SPARC_VIS;
#ifdef ACCEL_DETECT
if ((accel & (MPEG2_ACCEL_SPARC_VIS2 | MPEG2_ACCEL_DETECT)) ==
MPEG2_ACCEL_DETECT) {
static RETSIGTYPE (* oldsig) (int);
oldsig = signal (SIGILL, sigill_handler);
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
canjump = 0;
accel |= MPEG2_ACCEL_SPARC_VIS;
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
__asm__ __volatile__(".word\t0x81b00020");
canjump = 0;
accel |= MPEG2_ACCEL_SPARC_VIS2;
signal (SIGILL, oldsig);
}
#endif /* ACCEL_DETECT */
return accel;
}
Linux-DVB-DVBT-Apps-QuartzPVR
view release on metacpan or search on metacpan
js/jquery/jquery-1.4.js view on Meta::CPAN
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() {
Linux-DVB-DVBT-TS
view release on metacpan or search on metacpan
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
static uint32_t arch_accel (uint32_t accel)
{
#ifdef ACCEL_DETECT
if ((accel & (MPEG2_ACCEL_PPC_ALTIVEC | MPEG2_ACCEL_DETECT)) ==
MPEG2_ACCEL_DETECT) {
static RETSIGTYPE (* oldsig) (int);
oldsig = signal (SIGILL, sigill_handler);
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
: "r" (-1));
canjump = 0;
accel |= MPEG2_ACCEL_PPC_ALTIVEC;
signal (SIGILL, oldsig);
}
#endif /* ACCEL_DETECT */
return accel;
}
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
accel |= MPEG2_ACCEL_SPARC_VIS;
#ifdef ACCEL_DETECT
if ((accel & (MPEG2_ACCEL_SPARC_VIS2 | MPEG2_ACCEL_DETECT)) ==
MPEG2_ACCEL_DETECT) {
static RETSIGTYPE (* oldsig) (int);
oldsig = signal (SIGILL, sigill_handler);
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
canjump = 0;
accel |= MPEG2_ACCEL_SPARC_VIS;
if (sigsetjmp (jmpbuf, 1)) {
signal (SIGILL, oldsig);
return accel;
}
canjump = 1;
clib/libmpeg2/cpu_accel.c view on Meta::CPAN
__asm__ __volatile__(".word\t0x81b00020");
canjump = 0;
accel |= MPEG2_ACCEL_SPARC_VIS2;
signal (SIGILL, oldsig);
}
#endif /* ACCEL_DETECT */
return accel;
}
Locale-Maketext
view release on metacpan or search on metacpan
lib/Locale/Maketext.pm view on Meta::CPAN
DEBUG and warn '%' . $class . '::Lexicon contains ',
scalar(keys %{$class . '::Lexicon'}), " entries\n";
}
# Implements depth(height?)-first recursive searching of superclasses.
# In hindsight, I suppose I could have just used Class::ISA!
foreach my $superclass (@{$class . '::ISA'}) {
DEBUG and warn " Super-class search into $superclass\n";
next if $seen_r->{$superclass}++;
push @lex_refs, @{&_lex_refs($superclass, $seen_r)}; # call myself
}
Lucy
view release on metacpan or search on metacpan
modules/analysis/snowstem/source/test/tests.json view on Meta::CPAN
"stems" : [
"a",
"blot",
"find",
"grusdyng",
"indsigtsfuld",
"lid",
"oks",
"rør",
"stor",
"udbred"
modules/analysis/snowstem/source/test/tests.json view on Meta::CPAN
"words" : [
"a",
"blotter",
"find",
"grusdyngerne",
"indsigtsfulde",
"lidet",
"okse",
"røres",
"storheden",
"udbredtes"
MARC-File-MARCMaker
view release on metacpan or search on metacpan
lib/MARC/File/MARCMaker.pm view on Meta::CPAN
$inchar{ostrok} = chr(0xb2); # latin small letter o with stroke
$inchar{dstrok} = chr(0xb3); # latin small letter d with stroke
$inchar{thorn} = chr(0xb4); # latin small letter thorn (icelandic)
$inchar{aelig} = chr(0xb5); # latin small letter ae
$inchar{oelig} = chr(0xb6); # latin small letter oe
$inchar{hardsign} = chr(0xb7); # modifier letter hard sign
$inchar{inodot} = chr(0xb8); # latin small letter dotless i
$inchar{pound} = chr(0xb9); # pound sign
$inchar{eth} = chr(0xba); # latin small letter eth
$inchar{ohorn} = chr(0xbc); # latin small letter o with horn
$inchar{uhorn} = chr(0xbd); # latin small letter u with horn
lib/MARC/File/MARCMaker.pm view on Meta::CPAN
$outchar{chr(0xb2)} = '{ostrok}'; # latin small letter o with stroke
$outchar{chr(0xb3)} = '{dstrok}'; # latin small letter d with stroke
$outchar{chr(0xb4)} = '{thorn}'; # latin small letter thorn (icelandic)
$outchar{chr(0xb5)} = '{aelig}'; # latin small letter ae
$outchar{chr(0xb6)} = '{oelig}'; # latin small letter oe
$outchar{chr(0xb7)} = '{hardsign}'; # modifier letter hard sign
$outchar{chr(0xb8)} = '{inodot}'; # latin small letter dotless i
$outchar{chr(0xb9)} = '{pound}'; # pound sign
$outchar{chr(0xba)} = '{eth}'; # latin small letter eth
$outchar{chr(0xbc)} = '{ohorn}'; # latin small letter o with horn
$outchar{chr(0xbd)} = '{uhorn}'; # latin small letter u with horn
MARC
view release on metacpan or search on metacpan
$outchar{chr(0xb2)} = '{ostrok}'; # latin small letter o with stroke
$outchar{chr(0xb3)} = '{dstrok}'; # latin small letter d with stroke
$outchar{chr(0xb4)} = '{thorn}'; # latin small letter thorn (icelandic)
$outchar{chr(0xb5)} = '{aelig}'; # latin small letter ae
$outchar{chr(0xb6)} = '{oelig}'; # latin small letter oe
$outchar{chr(0xb7)} = '{hardsign}'; # modifier letter hard sign
$outchar{chr(0xb8)} = '{inodot}'; # latin small letter dotless i
$outchar{chr(0xb9)} = '{pound}'; # pound sign
$outchar{chr(0xba)} = '{eth}'; # latin small letter eth
$outchar{chr(0xbc)} = '{ohorn}'; # latin small letter o with horn
$outchar{chr(0xbd)} = '{uhorn}'; # latin small letter u with horn
$inchar{ostrok} = chr(0xb2); # latin small letter o with stroke
$inchar{dstrok} = chr(0xb3); # latin small letter d with stroke
$inchar{thorn} = chr(0xb4); # latin small letter thorn (icelandic)
$inchar{aelig} = chr(0xb5); # latin small letter ae
$inchar{oelig} = chr(0xb6); # latin small letter oe
$inchar{hardsign} = chr(0xb7); # modifier letter hard sign
$inchar{inodot} = chr(0xb8); # latin small letter dotless i
$inchar{pound} = chr(0xb9); # pound sign
$inchar{eth} = chr(0xba); # latin small letter eth
$inchar{ohorn} = chr(0xbc); # latin small letter o with horn
$inchar{uhorn} = chr(0xbd); # latin small letter u with horn
MIDI-SoundFont
view release on metacpan or search on metacpan
doc/headers.c view on Meta::CPAN
* SGI dmconvert assumes big-endian here -- this is an Atari format, so it's probably safe to assume big-endian.
*/
static int read_avr_header(const char *filename, int fd)
{
int dsize, dsigned, i;
chans = mus_char_to_bshort((unsigned char *)(hdrbuf + 12));
if (chans == 0) chans = 1; else if (chans == -1) chans = 2; else return(mus_error(MUS_HEADER_READ_FAILED, "%s chans: %d", filename, chans));
data_location = 128;
data_size = mus_char_to_bint((unsigned char *)(hdrbuf + 26));
srate = mus_char_to_ubshort((unsigned char *)(hdrbuf + 24));
dsize = mus_char_to_bshort((unsigned char *)(hdrbuf + 14));
dsigned = mus_char_to_bshort((unsigned char *)(hdrbuf + 16));
if (dsize == 16)
{
if (dsigned == 0)
data_format = MUS_UBSHORT;
else data_format = MUS_BSHORT;
}
else
{
if (dsize == 8)
{
if (dsigned == 0)
data_format = MUS_UBYTE;
else data_format = MUS_BYTE;
}
else return(mus_error(MUS_HEADER_READ_FAILED, "%s: unknown data format", filename));
}
MacOSX-File
view release on metacpan or search on metacpan
sub sig2txt{
return sprintf("0x%08x,0x%08x",unpack("N2",shift));
}
sub addsig{
my ($path, $mode,$uid,$gid,$size,$atime,$mtime, $action) = @_;
my $sig = pack("N2", (S_ISREG($mode) ? $size : 0), $mtime);
tied %Attribs or $Attribs{$path} = pack("N4", $mode, $uid, $gid, $atime);
if ($opt_v > 3 and $action > 0){
do_log qq(was: ) . sig2txt($Signature{$path});
$ScanCount % 8192 == 0 and printf "\n%10d:", $ScanCount;
$ScanCount % 128 == 0 and print ".";
$ScanCount++;
}
if ($path =~ $IgnorePat){
addsig($path, 0, 0, 0, 0, 0, 0, $Del_Ignored);
return;
}
$action > 0 and $Root{$path} = $root;
my $fpath = $root . $path;
my ($dev, $mode, $nlink, $uid, $gid, $size, $atime, $mtime) =
(lstat($fpath))[0,2,3,4,5,7,8,9] or warn "can't stat $fpath";
addsig($path, $mode, $uid, $gid, $size, $atime, $mtime, $action);
if (-d _){
$dev != $Topdev and return;
opendir my $d, $fpath or warn "$fpath:$!";
# see ._* is avoided
my @f = grep !/^\.(?:\.?$|_)/o, readdir $d;
closedir $d;
for my $f (@f){
my $spath = "$path/$f";
if ($IgnoreFiles{$f}){
addsig($spath, $mode, $uid, $gid, $size, $mtime, $atime,
$Del_IgFiles) unless $f eq $Psync_DB;
}else{
scantree($root, $spath, $action);
}
}
Mail-SpamAssassin
view release on metacpan or search on metacpan
rules/sa-update-pubkey.txt view on Meta::CPAN
D2zJIwqzRh1sytG+1YOfHrOMUCplImJaY/ARgOM324ZdBvhkgIi1XvT7Sy/ZmGWd
DKFo+GjX0r2cujR8Pd4i7VlKsF9wRypk+n/aupXiaz5GY44EIVbnweyS5IlCNrwn
4UtqcB9/9uk1tmUNIcC5xjbq5ud/Y+iMIqCKCH0C9WUwSNSdsg+K+9xoZuvlaXY0
JeXWNcDdq+tMir+x+/o0U4ENVYBkSFesnotmHwN6jZj4lSMRmvcFHPBljXqLqzM+
y5wZxnCo1N7T+erZaI7BUrpJYm8JxcJ2VCWV0JFoO1Ec//B6XYB0pckbRuSTX/Zw
pKEkNqOdmjm5AgsEQ6dsigEQAKvdggbwqJgfDbRE2Lcy2gsn4j7haqu3IVBbyUDn
kGuuDuEtSeoRjCZXEb5DaKibIpEy5vzvRGvCFFkrBs4KXk/uamkgCpGnQZFnoz/S
rNZ8U7+e1pecEePpIkhQyafUKox9+p43UVoq4UybdPRDvE9SmQ1qaNUhyQY2FP9S
WT1a63u5GA73aH4puGO0BuZ9R3MNaDYZe/MOlRRjmlAsbY4oqWOudlNVaZ71EV3O
FFmOH4pnpxdO0X0l6sF6nvqvO5/gdZ3dI5iqrJjUneVgVOmPkREq7tQ5qHS/2pny
rDrH8NZCDNT5TXciBxBrt53bxxL/V/HWaolmtJi8gK82uXt8YlmT6zuEsofufDmu
Maplat
view release on metacpan or search on metacpan
lib/Maplat/Web/Static/jquery/development-bundle/jquery-1.4.2.js view on Meta::CPAN
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() {
MarpaX-Languages-ECMAScript-AST
view release on metacpan or search on metacpan
t/jquery-1.10.2.t 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 ) {
Math-CDF
view release on metacpan or search on metacpan
cdflib/cdflib.h view on Meta::CPAN
double spmpar(int*);
double stvaln(double*);
double fifdint(double);
double fifdmax1(double,double);
double fifdmin1(double,double);
double fifdsign(double,double);
long fifidint(double);
long fifmod(long,long);
void ftnstop(char*);
extern int ipmpar(int*);
Math-Cephes
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
my $mconf = catfile $libmd, 'mconf.h';
my %defs = (HAVE_LONG_DOUBLE => 'd_longdbl',
SIZEOF_INT => 'intsize',
RETSIGTYPE => 'd_voidsig',
HAVE_MALLOC_H => 'i_malloc',
HAVE_STRING_H => 'i_string',
VOLATILE => 'd_volatile',
);
my $vals = {RETSIGTYPE => {define => 'void', undef => 'int'},
Math-LOESS
view release on metacpan or search on metacpan
loess/linpack_lite.f view on Meta::CPAN
c compute the transformation for the l-th column and
c place the l-th diagonal in s(l).
c
s(l) = dnrm2(n-l+1,x(l,l),1)
if (s(l) .eq. 0.0d0) go to 10
if (x(l,l) .ne. 0.0d0) s(l) = dsign(s(l),x(l,l))
call dscal(n-l+1,1.0d0/s(l),x(l,l),1)
x(l,l) = 1.0d0 + x(l,l)
10 continue
s(l) = -s(l)
20 continue
loess/linpack_lite.f view on Meta::CPAN
c compute the l-th row transformation and place the
c l-th super-diagonal in e(l).
c
e(l) = dnrm2(p-l,e(lp1),1)
if (e(l) .eq. 0.0d0) go to 80
if (e(lp1) .ne. 0.0d0) e(l) = dsign(e(l),e(lp1))
call dscal(p-l,1.0d0/e(l),e(lp1),1)
e(lp1) = 1.0d0 + e(lp1)
80 continue
e(l) = -e(l)
if (lp1 .gt. n .or. e(l) .eq. 0.0d0) go to 120
loess/linpack_lite.f view on Meta::CPAN
c
c compute the householder transformation for column l.
c
nrmxl = dnrm2(n-l+1,x(l,l),1)
if (nrmxl .eq. 0.0d0) go to 180
if (x(l,l) .ne. 0.0d0) nrmxl = dsign(nrmxl,x(l,l))
call dscal(n-l+1,1.0d0/nrmxl,x(l,l),1)
x(l,l) = 1.0d0 + x(l,l)
c
c apply the transformation to the remaining columns,
c updating the norms.
Math-Prime-Util
view release on metacpan or search on metacpan
_iset_resize(set);
}
return 1;
}
iset_t iset_create_from_array(UV* d, size_t dlen, int dsign) {
iset_t s = iset_create(dlen);
if (dsign != 0) {
unsigned char typemask = ((dsign > 0) ? ISET_TYPE_UV : ISET_TYPE_IV);
size_t i;
for (i = 0; i < dlen; i++) {
UV val = d[i];
if (val == 0) {
if (!s.contains_zero) { s.contains_zero = 1; s.size++; }
Math-Round-SignificantFigures
view release on metacpan or search on metacpan
lib/Math/Round/SignificantFigures.pm view on Meta::CPAN
use POSIX qw{ceil floor log10};
require Exporter;
our $VERSION = '0.02';
our @ISA = qw(Exporter);
my @figs = qw{roundsigfigs ceilsigfigs floorsigfigs};
my @digs = qw{roundsigdigs ceilsigdigs floorsigdigs};
our %EXPORT_TAGS = (
figs => \@figs,
digs => \@digs,
all => [@figs, @digs],
);
lib/Math/Round/SignificantFigures.pm view on Meta::CPAN
Math::Round::SignificantFigures - Perl package for rounding numbers to a specified number of Significant Figures
=head1 SYNOPSIS
use Math::Round::SignificantFigures qw{roundsigfigs};
print roundsigfigs(555.555, 3), "\n";
=head1 DESCRIPTION
Math::Round::SignificantFigures supplies functions that will round numbers based on significant figures.
This package spans the controversy whether people prefer to call significant figures or significant digits. You may export either or both but, I called the package significant figures since that is the page for Wikipedia.
=head1 FUNCTIONS
The exporter group :figs exports the roundsigfigs, ceilsigfigs, floorsigfigs functions. The exporter group :digs exports the roundsigdigs, ceilsigdigs, floorsigdigs functions. The exporter group :all exports all six functions
=cut
#head2 _floor_or_ceil_by_significant_digits
#
lib/Math/Round/SignificantFigures.pm view on Meta::CPAN
: $ceiling < 0 ? floor($num * $magnitude)
: int($num * $magnitude + $half); #round
return $shifted / $magnitude;
}
=head2 roundsigfigs, roundsigdigs
Rounds a number given the number and a number of significant figures.
=cut
sub roundsigfigs {
my $num = shift;
my $sigfigs = shift;
return _floor_or_ceil_by_significant_figures($num, $sigfigs, 0);
}
sub roundsigdigs {roundsigfigs(@_)};
=head2 floorsigfigs, floorsigdigs
Rounds a number toward -inf given the number and a number of significant figures.
Memcached-libmemcached
view release on metacpan or search on metacpan
src/libmemcached/Makefile.in view on Meta::CPAN
@BUILD_WIN32_FALSE@ @@RPMBUILD@ -ba $(top_srcdir)/support/@PACKAGE@.spec
@BUILD_WIN32_FALSE@ @cp $(BUILD_RPMS) $(BUILD_SRPMS) .
@BUILD_WIN32_FALSE@.PHONY: rpm-sign
@BUILD_WIN32_FALSE@rpm-sign: $(RPM_BUILD_TARGET)
@BUILD_WIN32_FALSE@ @@RPM@ --addsign $(RPM_DIST)
@BUILD_WIN32_FALSE@ @@RPM@ --checksig $(RPM_DIST)
@BUILD_WIN32_FALSE@.PHONY: clean-rpm
@BUILD_WIN32_FALSE@clean-rpm:
@BUILD_WIN32_FALSE@ -@rm -f $(BUILD_RPMS) $(BUILD_SRPMS) $(BUILD_RPM_SOURCE) $(BUILD_RPM_DIR) $(RPM_DIST)
Mojo-Collection-XS
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub setbuf;
sub setgid;
sub setjmp;
sub setlocale;
sub setpayload;
sub setpayloadsig;
sub setpgid;
sub setsid;
sub setuid;
sub setvbuf;
sub sigaction;
( run in 1.597 second using v1.01-cache-2.11-cpan-71847e10f99 )