Result:
found 674 distributions and 1899 files matching your query !
( run in 0.439 )
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/mode-csound_document.js view on Meta::CPAN
var XmlHighlightRules = function(normalize) {
var tagRegex = "[_:a-zA-Z\xc0-\uffff][-_:.a-zA-Z0-9\xc0-\uffff]*";
this.$rules = {
start : [
{token : "string.cdata.xml", regex : "<\\!\\[CDATA\\[", next : "cdata"},
{
token : ["punctuation.instruction.xml", "keyword.instruction.xml"],
regex : "(<\\?)(" + tagRegex + ")", next : "processing_instruction"
},
{token : "comment.start.xml", regex : "<\\!--", next : "comment"},
public/javascripts/ace/mode-csound_document.js view on Meta::CPAN
next : "pop"
},
{include : "string"}]
}],
cdata : [
{token : "string.cdata.xml", regex : "\\]\\]>", next : "start"},
{token : "text.xml", regex : "\\s+"},
{token : "text.xml", regex : "(?:[^\\]]|\\](?!\\]>))+"}
],
comment : [
public/javascripts/ace/mode-csound_document.js view on Meta::CPAN
this.embedRules(HighlightRules, prefix, [{
token: ["meta.tag.punctuation.end-tag-open.xml", "meta.tag." + tag + ".tag-name.xml"],
regex : "(</)(" + tag + "(?=\\s|>|$))",
next: tag + "-end"
}, {
token: "string.cdata.xml",
regex : "<\\!\\[CDATA\\["
}, {
token: "string.cdata.xml",
regex : "\\]\\]>"
}]);
};
}).call(TextHighlightRules.prototype);
App-Navegante
view release on metacpan or search on metacpan
lib/App/Navegante/CGI.pm view on Meta::CPAN
$Navegante->{init}();
if($MES eq "OK"){
$pag=dtstring($CON,
-html => 1,
-pcdata => sub{ $c =~ s/&/&/g; $c =~ s/</</g ; $c =~ s/>/>/g ;
wrapper_proc($c) },
img => sub{ $v{src} = _abs($v{src}); toxml},
($Navegante->{monadic}
? (body => sub{ $c = ####TOOLBAR#### . $c; toxml } )
: ()),
App-Netdisco
view release on metacpan or search on metacpan
lib/App/Netdisco/Web/Device.pm view on Meta::CPAN
# always do this so that embedded links to device ports page have user prefs
if (param('reset')) {
cookie('nd_ports-form' => '', expires => '-1 day');
}
elsif (my $cookie = cookie('nd_ports-form')) {
my $cdata = url_params_mixed($cookie);
if ($cdata and (ref {} eq ref $cdata)) {
foreach my $key (keys %{ $defaults }) {
$defaults->{$key} = $cdata->{$key};
}
}
}
# used in the device search sidebar template to set selected items
App-PLab
view release on metacpan or search on metacpan
bin/MorphometryI view on Meta::CPAN
$w-> IV-> image($w-> {mirrorImage});
$w-> {mirrorImage} = undef;
$w-> {recWindow}-> RestoreBtn-> enabled( 0) if $w-> {recWindow};
}
sub win_syncrecdata
{
my $w = $_[0];
return unless $w-> {recWindow};
my $r = $w-> {recWindow};
my $i = $w-> {ini};
bin/MorphometryI view on Meta::CPAN
my ( $min, $max, $edge);
my ( $umax, $umin, $j, $iptr);
return unless defined $w-> {file};
$w-> win_syncrecdata;
$umin = $w-> {ini}-> {MinArea};
$umax = $w-> {ini}-> {MaxArea};
unless ( $silent) {
$w-> iv_cancelmode( $w-> IV);
bin/MorphometryI view on Meta::CPAN
my $w = $_[0];
$w-> iv_cancelmode( $w-> IV);
return if defined $w-> {lineStorage}->[0] &&
( Prima::MsgBox::message( "Erase present contours?", mb::YesNoCancel|mb::Warning) != mb::Yes);
$w-> win_syncrecdata;
my $i = $w-> {ini};
my ( $u, $b, $e, $mi, $ma) = (
$i-> {UFThreshold},
$i-> {BinThreshold},
$i-> {EdgeSize},
bin/MorphometryI view on Meta::CPAN
if ( open F, "> $xmlname") {
my $waitPtr = $::application-> pointer;
$::application-> pointer( cr::Wait);
$w-> sb_text("saving $xmlname");
$w-> win_validate(1);
$w-> win_syncrecdata;
my $image = $w-> IV-> image;
if ( $w->{ini}->{CalcBrightness} && $w->{ini}->{EqualBrightness}) {
# subtracting low frequencies
$w-> sb_text("Equalizing background ...");
my $i1 = Prima::IPA::Global::butterworth( $image,
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/socialcalcserver.pl view on Meta::CPAN
<div style="padding:6px;background-color:#80A9F3;">
<div style="font-weight:bold;color:white;">SIMPLE SYSTEM FOR EDITING SOCIALCALC FILES</div>
<div style="color:#FDD;font-weight:bold;">Initial Setup</div>
<div style="padding:6px;background-color:#80A9F3;">
Name of subdirectory of where the code is to hold spreadsheet data files:
<input name="datadir" type="text" value="scdata/"><br>
Name of subdirectory of server home page that has the JavaScript files and the images subdirectory
(only needed if running on Apache, etc., not when running standalone from the
command line in Perl): <input name="jsdir" type="text" value="/sgi/scjs/"><br>
<input type="submit" name="setup" value="Save">
</div>
socialcalc/socialcalcserver.pl view on Meta::CPAN
var loadtimerobj;
function loadsheet(sheetname) {
var matches = sheetname.match(/^\\{scdata\\:\\s+(.+?)\\}\$/); // {scdata: URL w/o http://)
if (!matches) {
return false;
}
App-TemplateCMD
view release on metacpan or search on metacpan
templates/perl/pod/SYNOPSIS.pl
templates/perl/pod.pl
templates/php.php
templates/html.html
templates/css/file.css
templates/xml/cdata.xml
templates/css.css
templates/bash.sh
templates/node.js
App-contenttype
view release on metacpan or search on metacpan
script/contenttype view on Meta::CPAN
application/vnd.lotus-organizer org
application/vnd.lotus-screencam scm
application/vnd.lotus-wordpro lwp
application/vnd.macports.portpkg portpkg
application/vnd.mcd mcd
application/vnd.medcalcdata mc1
application/vnd.mediastation.cdkey cdkey
application/vnd.mfer mwf
application/vnd.mfmp mfm
application/vnd.micrografx.flo flo
application/vnd.micrografx.igx igx
script/contenttype view on Meta::CPAN
application/x-nzb nzb
application/x-object o
application/x-oebps-package+xml opf
application/x-oleo oleo
application/x-omc omc
application/x-omcdatamaker omcd
application/x-omcregerator omcr
application/x-omdoc+xml omdoc
application/x-onenote onepkg
application/x-onenote onetmp
application/x-onenote onetoc
AproJo
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/jquery-1.8.2.js view on Meta::CPAN
return !Expr.pseudos["empty"]( elem );
},
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is only affected by element nodes and content nodes(including text(3), cdata(4)),
// not comment, processing instructions, or others
// Thanks to Diego Perini for the nodeName shortcut
// Greater than "@" means alpha characters (specifically not starting with "#" or "?")
var nodeType;
elem = elem.firstChild;
Archive-Unzip-Burst
view release on metacpan or search on metacpan
unzip-6.0/extract.c view on Meta::CPAN
unsigned size;
unsigned *retlen;
ZCONST uch *init;
unsigned needlen;
{
uch *ucdata; /* Pointer to block allocated */
int cmptype;
unsigned usiz, csiz;
cmptype = (makeword(ebdata+EB_IZVMS_FLGS) & EB_IZVMS_BCMASK);
csiz = size - EB_IZVMS_HLEN;
unzip-6.0/extract.c view on Meta::CPAN
csiz : makeword(ebdata+EB_IZVMS_UCSIZ));
if (retlen)
*retlen = usiz;
if ((ucdata = (uch *)malloc(MAX(needlen, usiz))) == NULL)
return NULL;
if (init && (usiz < needlen))
memcpy((char *)ucdata, (ZCONST char *)init, needlen);
switch (cmptype)
{
case EB_IZVMS_BCSTOR: /* The simplest case */
memcpy(ucdata, ebdata+EB_IZVMS_HLEN, usiz);
break;
case EB_IZVMS_BC00:
decompress_bits(ucdata, usiz, ebdata+EB_IZVMS_HLEN);
break;
case EB_IZVMS_BCDEFL:
memextract(__G__ ucdata, (ulg)usiz,
ebdata+EB_IZVMS_HLEN, (ulg)csiz);
break;
default:
free(ucdata);
ucdata = NULL;
}
return ucdata;
} /* end of extract_izvms_block */
Astro-Catalog
view release on metacpan or search on metacpan
lib/Astro/Catalog/IO/JCMT.pm view on Meta::CPAN
# Get the name but do not deal with undef yet
# in case the type is not valid
my $name = $src->name;
# Somewhere to store the extracted information
my %srcdata;
# Store the name (stripped of spaces) and
# treat srcdata{name} as the primary name from here on
$srcdata{name} = $class->clean_target_name($name);
# Store a comment
$srcdata{comment} = $star->comment;
# prepopulate the default velocity settings
$srcdata{rv} = 'n/a';
$srcdata{vdefn} = 'RADIO';
$srcdata{vframe} = 'LSR';
# Default proper motion and parallax.
$srcdata{'pm1'} = 'n/a';
$srcdata{'pm2'} = 'n/a';
$srcdata{'parallax'} = 'n/a';
# Get the miscellaneous data.
my $misc = $star->misc;
if (defined $misc) {
$srcdata{vrange} = ((defined $misc->{'velocity_range'})
? sprintf("%s", $misc->{'velocity_range'})
: "n/a");
$srcdata{flux850} = ((defined $misc->{'flux850'})
? sprintf("%s", $misc->{'flux850'})
: "n/a" );
}
else {
$srcdata{vrange} = "n/a";
$srcdata{flux850} = "n/a";
}
foreach (qw/_jcmt_com_before _jcmt_com_after/) {
$srcdata{$_} = $misc->{$_} if exists $misc->{$_};
}
# Get the type of source
my $type = $src->type;
if ($type eq 'RADEC') {
$srcdata{system} = "RJ";
# Need to get the space separated RA/Dec and the sign
$srcdata{long} = $src->ra2000(format => 'array');
$srcdata{lat} = $src->dec2000(format => 'array');
# Get the velocity information
my $rv = $src->rv;
if ($rv) {
$srcdata{rv} = $rv;
$srcdata{vdefn} = $src->vdefn;
$srcdata{vframe} = $src->vframe;
# JCMT compatibility
$srcdata{vframe} = "LSR" if $srcdata{vframe} eq 'LSRK';
}
my $parallax = $src->parallax;
my @pm = $src->pm;
if (scalar @pm) {
if (not $parallax) {
my $errname = (defined $srcdata{name} ? $srcdata{name} : "<undefined>");
warnings::warnif "Proper motion for target $errname specified without parallax";
}
$srcdata{'pm1'} = $pm[0] * 1000.0;
$srcdata{'pm2'} = $pm[1] * 1000.0;
}
if ($parallax) {
$srcdata{'parallax'} = $parallax * 1000.0;
}
}
elsif ($type eq 'PLANET') {
# Planets are not supported in catalog form. Skip them
next;
}
elsif ($type eq 'FIXED') {
$srcdata{system} = "AZ";
$srcdata{long} = $src->az(format => 'array');
$srcdata{lat} = $src->el(format => 'array');
# Need to remove + sign from long/AZ since we are not expecting
# it in RA/DEC. This is probably a bug in Astro::Coords
shift(@{$srcdata{long}}) if $srcdata{long}->[0] eq '+';
}
else {
my $errname = (defined $srcdata{name} ? $srcdata{name} : "<undefined>");
warnings::warnif "Coordinate of type $type for target $errname not supported in JCMT catalog files\n";
next;
}
# Generate a name if not defined
if (!defined $srcdata{name}) {
$srcdata{name} = "UNKNOWN$unk";
$unk++;
}
# See if we already have this source and that it is really the
# same source Note that we do not see whether this name is the
lib/Astro/Catalog/IO/JCMT.pm view on Meta::CPAN
# messages rather than 1 because we do not check that CRL618_2 is
# the same as CRL618_1
# Note that velocity specification is included in this comparison
if ($options{'removeduplicates'} and exists $targets{$srcdata{name}}) {
my $previous = $targets{$srcdata{name}};
# Create stringified form of previous coordinate with same name
# and current coordinate
my $prevcoords = join(" ",@{$previous->{long}},@{$previous->{lat}},
$previous->{rv}, $previous->{vdefn}, $previous->{vframe});
my $curcoords = join(" ",@{$srcdata{long}},@{$srcdata{lat}},
$srcdata{rv}, $srcdata{vdefn}, $srcdata{vframe});
if ($prevcoords eq $curcoords) {
# This is the same target so we can ignore it
}
else {
# Make up a new name. Use a counter for this.
my $oldname = $srcdata{name};
# loop for 100 times
my $count;
while (1) {
# protection loop
lib/Astro/Catalog/IO/JCMT.pm view on Meta::CPAN
# Try to construct a new name based on the counter.
my $suffix = "_$count";
# Abort if we have gone round too many times
if ($count > 100) {
$srcdata{name} = substr($oldname, 0, int(MAX_SRC_LENGTH / 2)) .
int(rand(10000) + 1000);
warn "Uncontrollable looping (or unfeasibly large number of duplicate sources with different coordinates). Panicked and generated random source name of $srcdata{name}\n";
last;
}
# Assume the old name will do fine
my $root = $oldname;
lib/Astro/Catalog/IO/JCMT.pm view on Meta::CPAN
my $newname = $root . $suffix;
# check to see if this name is in the existing target list
unless ((exists $allnames{$newname}) or (exists $targets{$newname})) {
# Store it in the targets array and exit loop
$srcdata{name} = $newname;
last;
}
}
# different target
warn "Found target with the same name [$oldname] but with different coordinates, renaming it to $srcdata{name}\n";
$targets{$srcdata{name}} = \%srcdata;
# Store it in the array
push @processed, \%srcdata;
}
}
else {
# Store in hash for easy lookup for duplicates
$targets{$srcdata{name}} = \%srcdata;
# Store it in the array
push @processed, \%srcdata;
}
}
# Output array for new catalog lines
my @lines;
Attean
view release on metacpan or search on metacpan
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
my $action = shift;
my ($queryd) = $model->objects( $action, iri("${RQ}query") )->elements;
my @data = $model->objects( $action, iri("${RQ}data") )->elements;
my @gdata = $model->objects( $action, iri("${RQ}graphData") )->elements;
my @sdata = $model->objects( $action, iri("${RQ}serviceData") )->elements;
my @cdata = $model->objects( $action, iri("${RQ}constructDataFile") )->elements;
my ($fnode) = $model->objects( $action, iri("${RQ}format") )->elements;
my $format = blessed($fnode) ? $fnode->value : 'text/turtle';
my $uri = URI->new( $queryd->value );
my $filename = $uri->file;
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
my $end = $test_model->size;
unless ($start < $end) {
warn "*** Loading file did not result in any new quads: " . $g;
}
}
foreach my $n (@cdata) {
my ($bytes, $format) = $self->construct_data($model, $n);
my $p = Attean->get_parser(media_type => $format)->new();
my $iter = $p->parse_iter_from_bytes($bytes);
$test_model->add_iter($iter->as_quads($self->default_graph));
}
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
my ($approved) = $model->objects( $test, iri("${DAWGT}approval") )->elements;
my ($queryd) = $model->objects( $action, iri("${RQ}query") )->elements;
my @data = $model->objects( $action, iri("${RQ}data") )->elements;
my @gdata = $model->objects( $action, iri("${RQ}graphData") )->elements;
my @sdata = $model->objects( $action, iri("${RQ}serviceData") )->elements;
my @cdata = $model->objects( $action, iri("${RQ}constructDataFile") )->elements;
if ($self->strict_approval) {
unless ($approved) {
warn "- skipping test because it isn't approved\n" if ($self->debug);
return;
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
warn "# sparql : $q\n";
foreach my $data (@data) {
warn "# data : " . ($data->value =~ s#file://##r) . "\n" if (blessed($data));
}
warn "# graph data : " . ($_->value =~ s#file://##r) . "\n" for (@gdata);
warn "# constructed data : " . ($_->value =~ s#file://##r) . "\n" for (@cdata);
warn "# result : " . ($result->value =~ s#file://##r) . "\n";
warn "# requires : " . ($req->value =~ s#file://##r) . "\n" if (blessed($req));
}
STRESS: foreach (1 .. $count) {
lib/Test/Attean/W3CManifestTestSuite.pm view on Meta::CPAN
my $end = $test_model->size;
unless ($start < $end) {
warn "*** Loading file did not result in any new quads: " . $g;
}
}
foreach my $n (@cdata) {
my ($bytes, $format) = $self->construct_data($model, $n);
my $p = Attean->get_parser(media_type => $format)->new();
my $iter = $p->parse_iter_from_bytes($bytes);
$test_model->add_iter($iter->as_quads($self->default_graph));
}
AtteanX-Endpoint
view release on metacpan or search on metacpan
share/endpoint/www/js/parsexml.js view on Meta::CPAN
var XMLParser = Editor.Parser = (function() {
var Kludges = {
autoSelfClosers: {"br": true, "img": true, "hr": true, "link": true, "input": true,
"meta": true, "col": true, "frame": true, "base": true, "area": true},
doNotIndent: {"pre": true, "!cdata": true}
};
var NoKludges = {autoSelfClosers: {}, doNotIndent: {"!cdata": true}};
var UseKludges = Kludges;
var alignCDATA = false;
// Simple stateful tokenizer for XML documents. Returns a
// MochiKit-style iterator, with a state property that contains a
share/endpoint/www/js/parsexml.js view on Meta::CPAN
if (ch == "<") {
if (source.equals("!")) {
source.next();
if (source.equals("[")) {
if (source.lookAhead("[CDATA[", true)) {
setState(inBlock("xml-cdata", "]]>"));
return null;
}
else {
return "xml-text";
}
share/endpoint/www/js/parsexml.js view on Meta::CPAN
}
var harmlessTokens = {"xml-text": true, "xml-entity": true, "xml-comment": true, "xml-processing": true, "xml-doctype": true};
function element(style, content) {
if (content == "<") cont(tagname, attributes, endtag(tokenNr == 1));
else if (content == "</") cont(closetagname, expect(">"));
else if (style == "xml-cdata") {
if (!context || context.name != "!cdata") pushContext("!cdata");
if (/\]\]>$/.test(content)) popContext();
cont();
}
else if (harmlessTokens.hasOwnProperty(style)) cont();
else {markErr(); cont();}
AtteanX-Store-DBI
view release on metacpan or search on metacpan
lib/AtteanX/Store/DBI.pm view on Meta::CPAN
my @where = @{ $self->where };
if ($bind) {
foreach my $var ($bind->variables) {
my $id = $store->_get_term_id($bind->value($var));
return unless defined($id);
if (my $cdata = $self->variables->{ $var }) {
my ($table, $col) = @$cdata;
push(@where, sprintf("%s.%s = ?", $table, $col));
push(@bind, $id);
}
}
}
Audio-MPC
view release on metacpan or search on metacpan
if (mpc_decoder_initialize(&md, &msi) == FALSE) {
Safefree(mr);
throw MPC_exception (ERROR_CODE_DECODER);
}
}
MPC (pTHX_ MPC_data *mpcdata, SV *obj) throw (MPC_exception) {
int ec;
New(0, mr, 1, mpc_reader_file);
mr->reader.read = read_impl; /* SCRESTO */
mr->reader.seek = seek_impl;
mr->reader.tell = tell_impl;
mr->reader.get_size = get_size_impl;
mr->reader.canseek = canseek_impl;
mr->reader.data = mpcdata;
mpc_streaminfo_init(&msi);
mpc_decoder_setup(&md, &mr->reader);
/* delayed initialization of 'self' field */
mcustomreader = mpcdata->self = obj;
if ((ec = mpc_streaminfo_read(&msi, &mr->reader)) != ERROR_CODE_OK) {
throw MPC_exception (ec);
}
if (mpc_decoder_initialize(&md, &msi) == FALSE) {
CODE:
{
FILE *file;
PerlIO *perlio = NULL;
char *fname = NULL;
MPC_data *mpcdata = NULL;
bool isperlio = false;
if (items == 1 || !SvOK(ST(1))) {
perlio = PerlIO_stdin();
file = PerlIO_exportFILE(PerlIO_stdin(), NULL);
isperlio = true;
}
else {
if (sv_isobject(ST(1)) and sv_derived_from(ST(1), "Audio::MPC::Reader")) {
mpcdata = (MPC_data*)SvIV(SvRV(ST(1)));
}
else if (!SvROK(ST(1))) {
file = fopen(fname = SvPV_nolen(ST(1)), "r");
if (!file) {
MPC_exception e(ERROR_CODE_FILE, fname);
isperlio = true;
}
}
try {
if (mpcdata) RETVAL = new MPC (aTHX_ mpcdata, ST(1));
else if (isperlio) RETVAL = new MPC (aTHX_ perlio, fname);
else RETVAL = new MPC (aTHX_ file, fname);
} catch (MPC_exception e) {
errstr = e.to_string();
XSRETURN_UNDEF;
Audio-SoundFile
view release on metacpan or search on metacpan
Reader/Reader.xs view on Meta::CPAN
CHECK_AND_INIT(self, hash, file, head);
newp = PDL->create(PDL_PERM);
newp->datatype = PDL_S;
PDL->setdims(newp, (PDL_Long *)&blocks, 1);
PDL->allocdata(newp);
blen = sf_read_short((SNDFILE *)SvIV(*file), newp->data, blocks);
if (blen > 0) {
newp->nvals = blen;
Audit-DBI-TT2
view release on metacpan or search on metacpan
examples/js/jquery-1.9.1.js view on Meta::CPAN
},
// Contents
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is only affected by element nodes and content nodes(including text(3), cdata(4)),
// not comment, processing instructions, or others
// Thanks to Diego Perini for the nodeName shortcut
// Greater than "@" means alpha characters (specifically not starting with "#" or "?")
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeName > "@" || elem.nodeType === 3 || elem.nodeType === 4 ) {
AxKit2
view release on metacpan or search on metacpan
lib/AxKit2/Transformer/XPathScript.pm view on Meta::CPAN
my $out_dom;
unless ( eval { $out_dom = $parser->parse_string( $result ) } ) {
$out_dom = $parser->parse_string(
'<xpathscript:wrapper '
.'xmlns:xpathscript="http://babyl.dyndns.org/xpathscript" '
.'xpathscript:type="cdata">'
.'<![CDATA['
. $result
. ']]></xpathscript:wrapper>' );
}
lib/AxKit2/Transformer/XPathScript.pm view on Meta::CPAN
if ( my( $root ) = eval { $dom->findnodes( '/xpathscript:wrapper' ) } ) {
warn "xpathscript:wrapper";
$ct = $root->getAttribute( 'type' )
if $root->getAttribute( 'type' );
if ( $ct eq 'cdata' ) {
$ct = 'text/plain';
$out = $root->textContent;
}
else {
$out .= $_->toString for $root->childNodes;
B-C
view release on metacpan or search on metacpan
ramblings/remark.js view on Meta::CPAN
require=function(e,t,n){function i(n,s){if(!t[n]){if(!e[n]){var o=typeof require=="function"&&require;if(!s&&o)return o(n,!0);if(r)return r(n,!0);throw new Error("Cannot find module '"+n+"'")}var u=t[n]={exports:{}};e[n][0].call(u.exports,function(t)...
this.QUOTE_STRING_MODE={className:"string",begin:'"',end:'"',illegal:"\\n",contains:[this.BACKSLASH_ESCAPE]};this.PHRASAL_WORDS_MODE={begin:/\b(a|an|the|are|I|I'm|isn't|don't|doesn't|won't|but|just|should|pretty|simply|enough|gonna|going|wtf|so|such)...
SUBST.contains=EXPRESSIONS;return{aliases:["coffee","cson","iced"],keywords:KEYWORDS,contains:EXPRESSIONS.concat([{className:"comment",begin:"###",end:"###"},hljs.HASH_COMMENT_MODE,{className:"function",begin:"("+JS_IDENT_RE+"\\s*=\\s*)?(\\(.*\\))?\\...
}()},{}],8:[function(require,module,exports){exports.addClass=function(element,className){element.className=exports.getClasses(element).concat([className]).join(" ")};exports.removeClass=function(element,className){element.className=exports.getClasse...
events.on("slideChanged",updateHash);navigateByHash()}function navigateByHash(){var slideNoOrName=(dom.getLocationHash()||"").substr(1);events.emit("gotoSlide",slideNoOrName)}function updateHash(slideNoOrName){dom.setLocationHash("#"+slideNoOrName)}}...
Bio-Biblio
view release on metacpan or search on metacpan
lib/Bio/Biblio/IO/medlinexml.pm view on Meta::CPAN
sub handle_end {
my ($expat, $e) = @_;
#
# First I have to deal with those elements which are both PCDATA
# (and therefore they are on the pcdataStack) and which have an
# attribute list (therefore they are also known as a separate
# p-object on the objectStack.
#
if ($e eq 'QualifierName' or
$e eq 'SubHeading') {
lib/Bio/Biblio/IO/medlinexml.pm view on Meta::CPAN
# &_debug_object_stack ("END", $e);
return;
}
#
# both object and pcdata stacks elements mixed here together
# (the element names appear in the order of frequency in the
# medline data set)
#
if (exists $POP_DATA_AND_PEEK_OBJ{$e}) {
Bio-Draw-Pictogram
view release on metacpan or search on metacpan
lib/Bio/Draw/Pictogram.pm view on Meta::CPAN
'width'=>$width,x=>$x,y=>$size,
'transform'=>"translate(0,$y_trans),scale(1,$scale)",
'style'=>{"font-size"=>$fontsize,
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>$color->{uc $letter->[0]}})->cdata(uc $letter->[0]) if $scale > 0;
$prev_size = $scale * $size;
$count++;
}
#plot the bit if required
lib/Bio/Draw/Pictogram.pm view on Meta::CPAN
$seq_grp->text('x'=>$x,
'y'=>$bit_y,
'style'=>{"font-size"=>'10',
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>'black'})->cdata($bits);
}
$bp++;
$x+=$width;
}
#plot the tags
$seq_grp->text(x=>int($width/2),y=>$bit_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Bits:") if $self->plot_bits;
$seq_grp->text(x=>int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Position:");
#plot the base positions
$x = 45+$size/2-int($width/2);
foreach my $nbr(1..($bp-1)){
$seq_grp->text(x=>$x+int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'left','font-family'=>'Verdana','fill'=>'black'})->cdata($nbr);
$x+=$width;
}
# $seq_grp->transform("scale(2,2)");
Bio-Gonzales
view release on metacpan or search on metacpan
lib/Bio/Gonzales/Util/Graphics/Color/Generator.pm view on Meta::CPAN
my $width = 500;
my $svg = SVG->new( width => $width, height => $height );
my $i = 0;
while ( my ( $group_id, $color ) = each %{$a} ) {
my $y_offset = $i * ( 30 + 10 );
my $text1 = $svg->text( id => "text_$i", x => 45, y => $y_offset + 15 )->cdata($group_id);
my $tag = $svg->rectangle( x => 0, y => $y_offset, width => 40, height => 30, id => "rect_$i", fill => $color );
$i++;
}
return $svg->xmlify;
Bio-Graphics
view release on metacpan or search on metacpan
lib/Bio/Graphics/Pictogram.pm view on Meta::CPAN
'width'=>$width,x=>$x,y=>$size,
'transform'=>"translate(0,$y_trans),scale(1,$scale)",
'style'=>{"font-size"=>$fontsize,
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>$color->{uc $letter->[0]}})->cdata(uc $letter->[0]) if $scale > 0;
$prev_size = $scale * $size;
$count++;
}
#plot the bit if required
lib/Bio/Graphics/Pictogram.pm view on Meta::CPAN
$seq_grp->text('x'=>$x,
'y'=>$bit_y,
'style'=>{"font-size"=>'10',
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>'black'})->cdata($bits);
}
$bp++;
$x+=$width;
}
#plot the tags
$seq_grp->text(x=>int($width/2),y=>$bit_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Bits:") if $self->plot_bits;
$seq_grp->text(x=>int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Position:");
#plot the base positions
$x = 45+$size/2-int($width/2);
foreach my $nbr(1..($bp-1)){
$seq_grp->text(x=>$x+int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'left','font-family'=>'Verdana','fill'=>'black'})->cdata($nbr);
$x+=$width;
}
# $seq_grp->transform("scale(2,2)");
Bio-Phylo
view release on metacpan or search on metacpan
lib/Bio/Phylo/Treedrawer/Svg.pm view on Meta::CPAN
'x' => $x,
'y' => $y,
'style' => join('; ',@style),
'transform' => "rotate(@${rotation})",
%args
)->cdata($text);
}
=begin comment
# -x => $x,
Bio-Roary
view release on metacpan or search on metacpan
contrib/roary2svg/roary2svg.pl view on Meta::CPAN
'style' => { fill=>$colour, opacity=>($is_core[$i] ? 1 : 0.75) },
);
}
}
# taxon label for each row
$svg->text( x=>$fontsize, y=>($j+0.75)*$dy, -cdata=>$id[$j], style=>$font_style );
# number of genes for each row
$svg->text( x=>$llen+$width2+$fontsize, y=>($j+0.75)*$dy, -cdata=>$tally[$j], style=>$font_style );
# separator line
my $ypos = ($j+1)*$dy;
$svg->line( x1=>0, y1=>$ypos, x2=>$width, y2=>$ypos, style=>{stroke=>$sepcolour});
}
# bottom label
my $bottom_text = "$N taxa, $C clusters";
$bottom_text .= $acconly ? " (accessory only)" : " (core + accessory)";
$svg->text( x=>$llen, y=>($N+0.75)*$dy, -cdata=>$bottom_text, style=>$font_style );
# border
if ($border) {
$svg->rectangle(
'x' => 0, 'y' => 0, 'width' => $width, 'height' => $real_height,
BioPerl
view release on metacpan or search on metacpan
Bio/Draw/Pictogram.pm view on Meta::CPAN
'width'=>$width,x=>$x,y=>$size,
'transform'=>"translate(0,$y_trans),scale(1,$scale)",
'style'=>{"font-size"=>$fontsize,
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>$color->{uc $letter->[0]}})->cdata(uc $letter->[0]) if $scale > 0;
$prev_size = $scale * $size;
$count++;
}
#plot the bit if required
Bio/Draw/Pictogram.pm view on Meta::CPAN
$seq_grp->text('x'=>$x,
'y'=>$bit_y,
'style'=>{"font-size"=>'10',
'text-anchor'=>'middle',
'font-family'=>'Verdana',
'fill'=>'black'})->cdata($bits);
}
$bp++;
$x+=$width;
}
#plot the tags
$seq_grp->text(x=>int($width/2),y=>$bit_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Bits:") if $self->plot_bits;
$seq_grp->text(x=>int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'middle','font-family'=>'Verdana','fill'=>'black'})->cdata("Position:");
#plot the base positions
$x = 45+$size/2-int($width/2);
foreach my $nbr(1..($bp-1)){
$seq_grp->text(x=>$x+int($width/2),y=>$pos_y,style=>{"font-size"=>'10','text-anchor'=>'left','font-family'=>'Verdana','fill'=>'black'})->cdata($nbr);
$x+=$width;
}
# $seq_grp->transform("scale(2,2)");
Bookmarks-Parser
view release on metacpan or search on metacpan
examples/stuffurls.pl view on Meta::CPAN
my $srcfh;
my $storeduris = 0;
my $doneimporting = 0;
my $parseuri = URI::Find->new(\&adduri);
open($srcfh, "<$srcfile") or die "Can't open $srcfile ($!)";
while(my $srcdata = <$srcfh>)
{
$storeduris += $parseuri->find(\$srcdata);
last if($doneimporting);
}
close($srcfh);
print "Imported $storeduris URLs\n";
Boost-Geometry-Utils
view release on metacpan or search on metacpan
src/boost/test/impl/xml_log_formatter.ipp view on Meta::CPAN
<< " line" << attr_value() << loc.m_line_num;
if( !loc.m_function.is_empty() )
ostr << " function" << attr_value() << loc.m_function;
ostr << ">" << cdata() << ex.what();
if( !checkpoint_data.m_file_name.is_empty() ) {
ostr << "<LastCheckpoint file" << attr_value() << checkpoint_data.m_file_name
<< " line" << attr_value() << checkpoint_data.m_line_num
<< ">"
<< cdata() << checkpoint_data.m_message
<< "</LastCheckpoint>";
}
ostr << "</Exception>";
}
Boost-Graph
view release on metacpan or search on metacpan
include/boost/test/impl/xml_log_formatter.ipp view on Meta::CPAN
void
xml_log_formatter::log_exception( std::ostream& ostr, log_checkpoint_data const& checkpoint_data, const_string explanation )
{
ostr << "<Exception name" << attr_value() << framework::current_test_case().p_name.get() << ">"
<< pcdata() << explanation;
if( !checkpoint_data.m_message.empty() ) {
ostr << "<LastCheckpoint file" << attr_value() << checkpoint_data.m_file
<< " line" << attr_value() << checkpoint_data.m_line
<< ">"
<< pcdata() << checkpoint_data.m_message
<< "</LastCheckpoint>";
}
ostr << "</Exception>";
}
include/boost/test/impl/xml_log_formatter.ipp view on Meta::CPAN
//____________________________________________________________________________//
void
xml_log_formatter::log_entry_value( std::ostream& ostr, const_string value )
{
ostr << pcdata() << value;
}
//____________________________________________________________________________//
void
Bot-BasicBot-Pluggable-Module-Notes
view release on metacpan or search on metacpan
root/js/jquery.jqGrid.min.js view on Meta::CPAN
g){if(g=="success"){c(d.responseXML,a);b.isFunction(a.importComplete)&&a.importComplete(d)}}},a.ajaxOptions));break;case "xmlstring":if(a.impstring&&typeof a.impstring=="string"){var h=b.jgrid.stringToDoc(a.impstring);if(h){c(h,a);b.isFunction(a.impo...
a.ajaxOptions));break;case "jsonstring":if(a.impstring&&typeof a.impstring=="string"){j(a.impstring,a);b.isFunction(a.importComplete)&&a.importComplete(a.impstring);a.impstring=null}break}})},jqGridExport:function(a){a=b.extend({exptype:"xmlstring",r...
1);c.colModel.splice(0,1)}if(c.treeGrid)for(var j in c.treeReader){c.colNames.splice(c.colNames.length-1);c.colModel.splice(c.colModel.length-1)}switch(a.exptype){case "xmlstring":e="<"+a.root+">"+xmlJsonClass.json2xml(c,a.ident)+"</"+a.root+">";brea...
tag:"excel",exportOptions:{}},a||{});return this.each(function(){$t=this;if(this.grid)if(a.exptype=="remote"){var e=b.extend({},this.p.postData);e[a.oper]=a.tag;e=jQuery.param(e);window.location=a.url+"?"+e}})}})})(jQuery);
var xmlJsonClass={xml2json:function(a,b){if(a.nodeType===9)a=a.documentElement;a=this.toJson(this.toObj(this.removeWhite(a)),a.nodeName,"\t");return"{\n"+b+(b?a.replace(/\t/g,b):a.replace(/\t|\n/g,""))+"\n}"},json2xml:function(a,b){var g=function(d,c...
"@")i+=" "+h.substr(1)+'="'+d[h].toString()+'"';else k=true;i+=k?">":"/>";if(k){for(h in d)if(d.hasOwnProperty(h))if(h==="#text")i+=d[h];else if(h==="#cdata")i+="<![CDATA["+d[h]+"]]\>";else if(h.charAt(0)!=="@")i+=g(d[h],h,j+"\t");i+=(i.charAt(i.leng...
g(a[f],f,"");return b?e.replace(/\t/g,b):e.replace(/\t|\n/g,"")},toObj:function(a){var b={},g=/function/i;if(a.nodeType===1){if(a.attributes.length){var e;for(e=0;e<a.attributes.length;e+=1)b["@"+a.attributes[e].nodeName]=(a.attributes[e].nodeValue||...
a.firstChild;c;c=c.nextSibling)if(c.nodeType===3)b["#text"]=this.escape(c.nodeValue);else if(c.nodeType===4)if(g.test(c.nodeValue))b[c.nodeName]=[b[c.nodeName],c.nodeValue];else b["#cdata"]=this.escape(c.nodeValue);else if(b[c.nodeName])if(b[c.nodeNa...
else if(e)if(a.attributes.length)b["#text"]=this.escape(this.innerXml(a));else{b=this.escape(this.innerXml(a));if(b==="__EMPTY_ARRAY_")b="[]";else if(b==="__EMPTY_STRING_")b=""}else if(f)if(f>1)b=this.escape(this.innerXml(a));else for(c=a.firstChild;...
a.nodeType);return b},toJson:function(a,b,g){var e=b?'"'+b+'"':"";if(a==="[]")e+=b?":[]":"[]";else if(a instanceof Array){var f,d,c=[];d=0;for(f=a.length;d<f;d+=1)c[d]=this.toJson(a[d],"",g+"\t");e+=(b?":[":"[")+(c.length>1?"\n"+g+"\t"+c.join(",\n"+g...
"}"}else if(typeof a==="string"){g=/function/i;f=a.toString();e+=/(^-?\d+\.?\d*$)/.test(f)||g.test(f)||f==="false"||f==="true"?(b&&":")+f:(b&&":")+'"'+a+'"'}else e+=(b&&":")+a.toString();return e},innerXml:function(a){var b="";if("innerHTML"in a)b=a....
g(d);f+="</"+e.nodeName+">"}else f+="/>"}else if(e.nodeType===3)f+=e.nodeValue;else if(e.nodeType===4)f+="<![CDATA["+e.nodeValue+"]]\>";return f};for(a=a.firstChild;a;a=a.nextSibling)b+=g(a)}return b},escape:function(a){return a.replace(/[\\]/g,"\\\\...
b=g}else{b.nodeType===1&&this.removeWhite(b);b=b.nextSibling}return a}};
(function(b){b.jgrid.extend({setColumns:function(a){a=b.extend({top:0,left:0,width:200,height:"auto",dataheight:"auto",modal:false,drag:true,beforeShowForm:null,afterShowForm:null,afterSubmitForm:null,closeOnEscape:true,ShrinkToFit:false,jqModal:fals...
Builder
view release on metacpan or search on metacpan
lib/Builder.pm view on Meta::CPAN
First arg is the block to use, for eg. 'Builder::XML'. Second arg must be a hashref of options (named parameters).
my $builder = Builder->new();
my $xm = $builder->block( 'Builder::XML', { cdata => 1 } );
For options that can be passed as args please see relevant Builder::* documentation.
( run in 0.439 second using v1.01-cache-2.11-cpan-454fe037f31 )