Result:
found 674 distributions and 1899 files matching your query !
( run in 0.466 )
libxml-perl
view release on metacpan or search on metacpan
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
if (UNIVERSAL::can($doc_h, 'characters'));
push (@handlers, Proc => sub { $self->_handle_proc(@_) } )
if (UNIVERSAL::can($doc_h, 'processing_instruction'));
push (@handlers, Comment => sub { $self->_handle_comment(@_) } )
if (UNIVERSAL::can($doc_h, 'comment'));
push (@handlers, CdataStart => sub { $self->_handle_cdatastart(@_) } )
if (UNIVERSAL::can($doc_h, 'start_cdata'));
push (@handlers, CdataEnd => sub { $self->_handle_cdataend(@_) } )
if (UNIVERSAL::can($doc_h, 'end_cdata'));
if (UNIVERSAL::can($doc_h, 'entity_reference')) {
push (@handlers, Default => sub { $self->_handle_default(@_) } );
$self->{UseEntRefs} = 1;
}
}
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
my $data = shift;
$self->{DocumentHandler}->comment( { Data => $data } );
}
sub _handle_cdatastart {
my $self = shift;
my $expat = shift;
$self->{DocumentHandler}->start_cdata( { } );
}
sub _handle_cdataend {
my $self = shift;
my $expat = shift;
$self->{DocumentHandler}->end_cdata( { } );
}
# Default receives all characters that aren't handled by some other
# handler, this means a lot of stuff goes through here. All we're
# looking for are `&NAME;' entity reference sequences
lib/XML/Parser/PerlSAX.pm view on Meta::CPAN
Receive notification of a comment.
Data The comment data, if any.
=item start_cdata
Receive notification of the start of a CDATA section.
No properties defined.
=item end_cdata
Receive notification of the end of a CDATA section.
No properties defined.
mod_perl
view release on metacpan or search on metacpan
xs/tables/current/Apache2/StructureTable.pm view on Meta::CPAN
'type' => 'const char *',
'name' => 'lang'
},
{
'type' => 'apr_text_header',
'name' => 'first_cdata'
},
{
'type' => 'apr_text_header',
'name' => 'following_cdata'
},
{
'type' => 'apr_xml_elem *',
'name' => 'parent'
},
oEdtk
view release on metacpan or search on metacpan
lib/oEdtk/Main.pm view on Meta::CPAN
fmt_address
fmt_address_sender
fmt_monetary
prodEdtk_Current_Rec
prodEdtk_Previous_Rec
prodEtk_rec_cdata_join
recEdtk_erase
recEdtk_join_tmplte
recEdtk_post_process
recEdtk_redefine
toC7date
oe_app_usage
oe_CAP_sans_accents
oe_cdata_table_build
oe_char_xlate
oe_clean_addr_line
oe_close_fo
oe_compo_link
oe_compo_set_value
lib/oEdtk/Main.pm view on Meta::CPAN
#$LAST_ENR=$Rec_ID;
return 1, $Rec_ID;
}
sub prodEtk_rec_cdata_join ($){ # migrer prodEtk_rec_cdata_join
$PUSH_VALUE .=shift;
1;
}
sub prodEdtk_Previous_Rec () { # migrer oe_previous_rec
lib/oEdtk/Main.pm view on Meta::CPAN
return ${$refValue};
}
# NE SERT PLUS À RIEN DANS LE CONTEXTE LaTeX
sub oe_compo_set_value ($;$){ # oe_cdata_set
my ($value, $noedit) = @_;
# A RETIRER : CERTAINS NUM SONT DÉJÀ US
# -> oe_compo_set_value($value) => oe_compo_set_value(oe_num2txt_us($value))
my $result = $TAG_L_SET . oe_num2txt_us($value);
lib/oEdtk/Main.pm view on Meta::CPAN
return $result;
}
# NE SERT PLUS À RIEN DANS LE CONTEXTE LaTeX
sub oe_cdata_table_build($@){ # oe_xdata_table_build
my $name = shift;
my @DATATAB = shift;
my $cdata="";
for (my $i = 0; $i <= $#DATATAB; $i++) {
my $elem = sprintf("%.6s%0.2d", $name, $i);
$cdata .= oe_data_build($elem, $DATATAB[$i] || "");
}
#warn "\n";
return $cdata;
}
sub oe_include_build ($$){ # dans le cadre nettoyage code C7 il faudra raccourcir ces appels
my ($name, $path)= @_;
perl
view release on metacpan or search on metacpan
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm view on Meta::CPAN
if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) {
(my $xdc = $exportlist) =~ s#def\z#xdc#;
$xdc = '$(BASEEXT).xdc';
push @m, sprintf <<'MAKE_FRAG', $xdc, $exportlist;
$(MPKTOOL) $(XDCFLAGS) %s
$(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> %s
MAKE_FRAG
}
# Reconstruct the X.Y.Z version.
my $version = join '.', map { sprintf "%d", $_ }
"$]" =~ /(\d)\.(\d{3})(\d{2})/;
perlSGML.1997Sep
view release on metacpan or search on metacpan
lib/SGML/DTD.pm view on Meta::CPAN
my $this = shift;
$this->{ParEntity} = {}; # Int parameter entities
$this->{PubParEntity} = {}; # Ext public parameter entities
$this->{SysParEntity} = {}; # Ext system parameter entities
$this->{GenEntity} = {}; # (pcdata) general entities
$this->{StartTagEntity} = {}; # Start tag entities (STARTTAG)
$this->{EndTagEntity} = {}; # End tag entities (ENDTAG)
$this->{MSEntity} = {}; # Marked section ents (MS)
$this->{MDEntity} = {}; # Markup declaration ents (MD)
$this->{PIEntity} = {}; # Processing instructions ents (PI)
lib/SGML/DTD.pm view on Meta::CPAN
$this->{SDataEntity} = {}; # System data ents (SDATA)
## Following ent structures currently not used.
$this->{PubEntity} = {}; # External public ents (PUBLIC)
$this->{SysEntity} = {}; # External system ents (SYSTEM)
$this->{SysCDEntity} = {}; # Ext cdata ents (SYSTEM CDATA)
$this->{SysNDEntity} = {}; # Ext non-SGML ents (SYSTEM NDATA)
$this->{SysSDEntity} = {}; # Ext sdata ents (SYSTEM SDATA)
$this->{SysSubDEntity} = {}; # Ext sub doc ents (SYSTEM SUBDOC)
$this->{SysNotation} = {}; # Notations w/SYSTEM ids
lib/SGML/DTD.pm view on Meta::CPAN
if $tmp =~ /^\s*$MS\s*$/io;
$this->do_ge_md($name, $line), last GENSW
if $tmp =~ /^\s*$MD\s*$/io;
$this->do_ge_pi($name, $line), last GENSW
if $tmp =~ /^\s*$PI\s*$/io;
$this->do_ge_cdata($name, $line), last GENSW
if $tmp =~ /^\s*$CDATA\s*$/io;
$this->do_ge_sdata($name, $line), last GENSW
if $tmp =~ /^\s*$SDATA\s*$/io;
$this->do_ge_public($name, $line), last GENSW
if $tmp =~ /^\s*$PUBLIC\s*$/io;
lib/SGML/DTD.pm view on Meta::CPAN
$tmp = &get_next_group($line);
$this->{PIEntity}{$name} = $tmp;
$this->{_AGE}{$name} = $pio_ . $tmp . $pic_;
}
sub do_ge_cdata {
my $this = shift;
my($name, $line) = @_;
my($tmp);
$tmp = &get_next_group($line);
perl_mlb
view release on metacpan or search on metacpan
sub _style {
my ($self,$style) = @_;
my (@result);
my $type = 'text/css';
my $cdata_start = $XHTML ? "\n<!--/* <![CDATA[ */" : "\n<!-- ";
my $cdata_end = $XHTML ? "\n/* ]]> */-->\n" : " -->\n";
if (ref($style)) {
my($src,$code,$verbatim,$stype,$foo,@other) =
rearrange([SRC,CODE,VERBATIM,TYPE],
'-foo'=>'bar', # trick to allow dash to be omitted
) if $src;
}
if ($verbatim) {
push(@result, "<style type=\"text/css\">\n$verbatim\n</style>");
}
push(@result,style({'type'=>$type},"$cdata_start\n$code\n$cdata_end")) if $code;
} else {
my $src = $style;
push(@result,$XHTML ? qq(<link rel="stylesheet" type="$type" href="$src" $other/>)
: qq(<link rel="stylesheet" type="$type" href="$src"$other>));
}
my $comment = '//'; # javascript by default
$comment = '#' if $type=~/perl|tcl/i;
$comment = "'" if $type=~/vbscript/i;
my ($cdata_start,$cdata_end);
if ($XHTML) {
$cdata_start = "$comment<![CDATA[\n";
$cdata_end .= "\n$comment]]>";
} else {
$cdata_start = "\n<!-- Hide script\n";
$cdata_end = $comment;
$cdata_end .= " End script hiding -->\n";
}
my(@satts);
push(@satts,'src'=>$src) if $src;
push(@satts,'language'=>$language) unless defined $type;
push(@satts,'type'=>$type);
$code = "$cdata_start$code$cdata_end" if defined $code;
push(@result,script({@satts},$code || ''));
}
@result;
}
END_OF_FUNC
pmcheck
view release on metacpan or search on metacpan
use Module::Build;
my $builder = Module::Build->new(
add_to_cleanup => ['pmcheck-*'],
build_requires => { 'Test::Differences' => 0, },
dist_author => 'Andrew Pam <andrew.pam@strategicdata.com.au>',
dist_version_from => 'script/pmcheck',
license => 'perl',
module_name => 'pmcheck',
recommends => { 'Module::Used' => 0, 'Term::Activity' => 0, },
requires => { 'PPI::Document' => 0, 'perl' => '5.10.0', 'version' => 0, },
rss2leafnode
view release on metacpan or search on metacpan
t/RSS2Leafnode.t view on Meta::CPAN
<rss version="2.0">
<channel>
<item>
<description>
<p>This bit subelem.</p><br/>
<![CDATA[This bit cdata.]]>
<b><a href="page.html">This bit more subelem</a></b><br/>
</description>
</item>
</channel>
</rss>
HERE
'<p>This bit subelem.</p><br/>
This bit cdata.
<b><a href="page.html">This bit more subelem</a></b><br/>'],
) {
my ($xml, $want) = @$data;
simplexmlparse
view release on metacpan or search on metacpan
lib/simpleXMLParse.pm view on Meta::CPAN
use strict;
no warnings;
#use open ':encoding(utf8)';
my @cdata;
my $cdataInd = 0;
my $MAXIND = 10000;
sub new {
my $class = shift;
my %args = (@_ == 1) ? ((ref($_[0]) eq 'HASH') ? %{$_[0]}:(input => $_[0])):@_;
lib/simpleXMLParse.pm view on Meta::CPAN
$self->{"data"} = _ParseXML( $self->{"xml"}, $altstyle );
my $ret = bless $self;
if ($altstyle) {
$ret->_convertToStyle();
}
$cdataInd = $cdataInd % $MAXIND;
return $ret;
}
sub parse {
my $self = shift;
lib/simpleXMLParse.pm view on Meta::CPAN
}
}
}
}
sub _cdatasub {
my $cdata = shift;
my $tmpind = $cdataInd++;
$cdata[$tmpind] = $cdata;
return "0x0CDATA0x0".($tmpind)."0x0";
}
sub _cdatasubout {
my $ind = shift;
my $cdata = $cdata[$ind];
return $cdata;
}
sub _unescp {
my $firsttag = shift;
$firsttag =~ s/\\\\/\\/gs;
lib/simpleXMLParse.pm view on Meta::CPAN
}
sub _ParseXML {
my ($xml, $altstyle) = @_;
# $xml =~ s/\n//g;
$xml =~ s/\<\!\[CDATA\[(.*?)\]\]\>/&_cdatasub($1)/egs;
$xml =~ s/\<\!\-\-.*?\-\-\>//gs;
$xml =~ s/\<\?xml.*?\?\>//gs;
$xml =~ s/\<\?[^\>]*?\?\>//gs;
$xml =~ s/\<\!\-\-[^\>]*?\-\-\>//gs;
$xml =~ s/\<\!ELEMENT[^\>]*?\>//gs;
lib/simpleXMLParse.pm view on Meta::CPAN
$xmlfragment = $2;
$attr =~ s/\/\>$//gs;
} else {
if (!ref($xml)) {
$xml = _entity($xml);
$xml =~ s/0x0CDATA0x0(\d+?)0x0/&_cdatasubout($1)/egs;
}
if ($xml eq '') {
return {};
} else {
return $xml;
text-highlight
view release on metacpan or search on metacpan
lib/Text/Highlight/HTML.pm view on Meta::CPAN
'idref' => 'IDREF',
'name' => 'name',
'scheme' => 'scheme',
'charset' => 'charset',
'prompt' => 'prompt',
'#pcdata' => '#PCDATA',
'frameborder' => 'frameborder',
'onmousedown' => 'onmousedown',
'rev' => 'rev',
'title' => 'title',
'span' => 'span',
lib/Text/Highlight/HTML.pm view on Meta::CPAN
'headers' => 'headers',
'scrolling' => 'scrolling',
'noresize' => 'noresize',
'rules' => 'rules',
'rows' => 'rows',
'cdata' => 'CDATA',
'onfocus' => 'onfocus',
'alink' => 'alink',
'rowspan' => 'rowspan',
'colspan' => 'colspan',
'defer' => 'defer',
tk-zinc
view release on metacpan or search on metacpan
static void
UpdateTristrip(CurveItem cv,
ZnPoly *poly,
ZnBool revert)
{
ZnCombineData *cdata, *cnext;
GLdouble v[3];
unsigned int j, k;
int i;
//printf("UpdateTristrips sur %d\n", ((ZnItem) cv)->id);
//printf("\n");
gluTessEndContour(ZnTesselator.tess);
}
}
gluTessEndPolygon(ZnTesselator.tess);
cdata = ZnTesselator.combine_list;
//printf("Combine length: %d\n", ZnTesselator.combine_length);
while (cdata) {
ZnTesselator.combine_length--;
cnext = cdata->next;
ZnFree(cdata);
cdata = cnext;
}
ZnTesselator.combine_list = NULL;
}
//printf("Fin UpdateTristrips sur %d\n", ((ZnItem) cv)->id);
}
static void
UpdateOutlines(CurveItem cv,
ZnPoly *poly,
ZnBool revert)
{
ZnCombineData *cdata, *cnext;
GLdouble v[3];
unsigned int j, k;
int i;
//printf("UpdateOutlines sur %d\n", ((ZnItem) cv)->id);
}
gluTessEndContour(ZnTesselator.tess);
}
}
gluTessEndPolygon(ZnTesselator.tess);
cdata = ZnTesselator.combine_list;
while (cdata) {
ZnTesselator.combine_length--;
cnext = cdata->next;
ZnFree(cdata);
cdata = cnext;
}
ZnTesselator.combine_list = NULL;
}
//printf("Fin UpdateOutlines sur %d\n", ((ZnItem) cv)->id);
}
webrobot
view release on metacpan or search on metacpan
t/plan-assert-file.t
t/plan-assert-file/constant_html_1.txt
t/plan-assert-get-neg.t
t/plan-assert-get.t
t/plan-assert-header.t
t/plan-cdata.t
t/plan-child-id.t
t/plan-get.t
t/plan-globalassert-2.t
t/plan-globalassert-2a.t
t/plan-globalassert-neg.t
xmltv
view release on metacpan or search on metacpan
lib/XMLTV.pm.in view on Meta::CPAN
my @children = get_subelements($node);
if (@children == 0) {
return '';
}
elsif (@children == 1) {
my $v = $children[0]->pcdata();
t 'got pcdata: ' . d $v;
if (not defined $v) {
my $name = get_name($node);
warn "node $name expected to contain text has other stuff\n";
}
else {
zxid
view release on metacpan or search on metacpan
PKCS12_add_localkeyid(bag, keyid, keyidlen);
sk_push((_STACK*)bags, (char*)bag);
/* Turn certbags into encrypted (why?) authsafe */
if (!(authsafe = PKCS12_pack_p7encdata(NID_pbe_WithSHA1And40BitRC2_CBC,
pkcs12_passwd, -1 /* use strlen */,
NULL /*salt*/, 0 /*saltlen*/,
PKCS12_DEFAULT_ITER, bags)))
GOTO_ERR("PKCS12_pack_p7encdata");
sk_pop_free((_STACK*)bags, (void (*)(void *))PKCS12_SAFEBAG_free);
bags = NULL;
if (!(safes = (STACK_OF(PKCS7)*)sk_new(NULL))) GOTO_ERR("no memory?");
sk_push((_STACK*)safes, (char*)authsafe);
/*if (canames) sk_free(canames);*/
/* Turn certbags into encrypted authsafe */
if (!(authsafe = PKCS12_pack_p7encdata(NID_pbe_WithSHA1And40BitRC2_CBC,
pkcs12_passwd, -1 /* use strlen */,
NULL /*salt*/, 0 /*saltlen*/,
PKCS12_DEFAULT_ITER, bags)))
GOTO_ERR("PKCS12_pack_p7encdata");
sk_pop_free((_STACK*)bags, (void (*)(void *))PKCS12_SAFEBAG_free);
if (!(safes = (STACK_OF(PKCS7)*)sk_new(NULL))) GOTO_ERR("no memory?");
sk_push((_STACK*)safes, (char *)authsafe);
if (bagnid == NID_pkcs7_data) {
bags = M_PKCS12_unpack_p7data(authsafe);
} else if (bagnid == NID_pkcs7_encrypted) {
/* undo transport armour encryption */
bags = M_PKCS12_unpack_p7encdata(authsafe, pkcs12_passwd, -1);
} else continue; /* unrecognized bag type */
if (!bags) GOTO_ERR("02 no bags found (is this a PKCS12 file?)");
/* Now iterate over all bags found */
if (bagnid == NID_pkcs7_data) {
bags = M_PKCS12_unpack_p7data(authsafe);
} else if (bagnid == NID_pkcs7_encrypted) {
/* undo transport armour encryption */
bags = M_PKCS12_unpack_p7encdata(authsafe, pkcs12_passwd, -1);
} else continue; /* unrecognized bag type */
if (!bags) GOTO_ERR("02 no bags found (is this a PKCS12 file?)");
/* Now iterate over all bags found */
( run in 0.466 second using v1.01-cache-2.11-cpan-454fe037f31 )