view release on metacpan or search on metacpan
ext/Rosetta/lib/Rosetta/TODO.pod view on Meta::CPAN
=item *
Implement starter Rosetta::Model module, which in its first post-rewrite
incarnation will resemble a limited XML DOM, having typed nodes with
attributes, but never having 'cdata' sections. Input checking will be kept
to a minimum initially, with Rosetta::Model assuming its input is correct;
eventually the input checking code will make up most of the mass of this
module, and most of that will be done on demand rather than automatically.
=item *
view release on metacpan or search on metacpan
lib/PerlPoint/Generator/XML.pm view on Meta::CPAN
# declare XML tags (TODO: should it become part of the object so that derived classes
# can access and adapt it?)
my %xmltags=(
# document root and other structures
__root => 'presentation',
__docdata => 'docdata',
__slides => 'slides',
__slide => 'slide',
# document data (meta data)
_title => 'title',
lib/PerlPoint/Generator/XML.pm view on Meta::CPAN
# the DATA section contains the DTD
__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!ELEMENT =__root= (=__docdata=, =__slides=)>
<!ELEMENT =__docdata= (=_author=, =_title=)>
<!ELEMENT =_author= (#PCDATA)>
<!ELEMENT =_title= (#PCDATA)>
<!ELEMENT =__slides= (=__slide=+)>
<!ELEMENT =__slide= (=headline= | =text= | =example= | =TABLE= | =ulist= | =olist= | =dlist= | %standalonetag;)+>
<!ENTITY % standalonetag "=IMAGE= | =INDEX=">
view release on metacpan or search on metacpan
examples/xmldefault2html.cfg view on Meta::CPAN
-xmldoctypeid "SYSTEM //W3C//DTD XHTML 1.0 Transitional//EN"
-tagtrans __root:html
-tagtrans __docdata:head
-tagtrans __slides:body
-tagtrans __slide:span
-tagtrans _title:title
view release on metacpan or search on metacpan
lib/PerlPoint/Template/TT2.pm view on Meta::CPAN
# derive ...
use base qw(PerlPoint::Template);
# declare object data fields
use fields qw(
docdata
tt2
);
# = LIBRARY SECTION ======================================================================
lib/PerlPoint/Template/TT2.pm view on Meta::CPAN
# build template directory path
my $tdir="$me->{generator}{cfg}{setup}{stylepath}/$options->{style}/templates";
# generate document data structure unless done before
unless ($me->{docdata})
{push(@{$me->{docdata}}, $me->preprocessData($_)) for 1..$me->numberOfChapters;}
# act action dependent: generate document pages
$params{action}==TEMPLATE_ACTION_DOC and do
{
# first look if there is a template defined
lib/PerlPoint/Template/TT2.pm view on Meta::CPAN
# the page data structure
{
options => $me->options, # options
page => $page, # page number
docdata => $me->{docdata}, # document data (structure, no contents except headlines)
slides => $slides, # prepared content
},
# target file name
$targetfile
view release on metacpan or search on metacpan
local/lib/perl5/x86_64-linux-thread-multi/HTML/Parser.pm view on Meta::CPAN
"by HTML::Parser $VERSION");
}
if ($api_version < 3) {
# Set up method callbacks compatible with HTML-Parser-2.xx
$self->handler(text => "text", "self,text,is_cdata");
$self->handler(end => "end", "self,tagname,text");
$self->handler(process => "process", "self,token0,text");
$self->handler(start => "start",
"self,tagname,attr,attrseq,text");
local/lib/perl5/x86_64-linux-thread-multi/HTML/Parser.pm view on Meta::CPAN
Event causes the event name to be passed.
The event name is one of C<text>, C<start>, C<end>, C<declaration>,
C<comment>, C<process>, C<start_document> or C<end_document>.
=item C<is_cdata>
Is_cdata causes a TRUE value to be passed if the event is inside a CDATA
section or between literal start and end tags (C<script>,
C<style>, C<xmp>, C<iframe>, C<title>, C<textarea> and C<plaintext>).
if the flag is FALSE for a text event, then you should normally
either use C<dtext> or decode the entities yourself before the text is
local/lib/perl5/x86_64-linux-thread-multi/HTML/Parser.pm view on Meta::CPAN
This is equivalent to the following method calls:
$p->handler(start => "start", "self, tagname, attr, attrseq, text");
$p->handler(end => "end", "self, tagname, text");
$p->handler(text => "text", "self, text, is_cdata");
$p->handler(process => "process", "self, token0, text");
$p->handler(
comment => sub {
my ($self, $tokens) = @_;
for (@$tokens) { $self->comment($_); }
view release on metacpan or search on metacpan
share/js/jquery.js view on Meta::CPAN
},
// Contents
"empty": function( elem ) {
// http://www.w3.org/TR/selectors/#empty-pseudo
// :empty is negated by element (1) or content nodes (text: 3; cdata: 4; entity ref: 5),
// but not by others (comment: 8; processing instruction: 7; etc.)
// nodeType < 6 works because attributes (2) do not appear as children
for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
if ( elem.nodeType < 6 ) {
return false;
view release on metacpan or search on metacpan
lib/Pod/Confluence.pm view on Meta::CPAN
}
sub end_L {
my ( $self, $attribute_hash ) = @_;
if ( $self->{link_type} eq 'pod' ) {
$self->{in_cdata} = 0;
$self->_print( ']]></ac:plain-text-link-body>' . '</ac:link>' );
}
elsif ( $self->{link_type} eq 'url' ) {
$self->_print('</a>');
}
lib/Pod/Confluence.pm view on Meta::CPAN
$self->{in_non_breaking} = 0;
}
sub end_Verbatim {
my ( $self, $attribute_hash ) = @_;
$self->{in_cdata} = 0;
$self->_print( $self->_confluence_macro_end( has_text => 1 ) );
pop( @{ $self->{element_stack} } );
}
sub _handle_element_end {
lib/Pod/Confluence.pm view on Meta::CPAN
}
sub handle_text {
my ( $self, $text ) = @_;
$text = encode_entities($text) unless ( $self->{in_cdata} );
$text =~ s/[ \t]/ /g if ( $self->{in_non_breaking} );
$logger->tracef( 'handle_text(%s)', $text );
$self->_print($text);
}
lib/Pod/Confluence.pm view on Meta::CPAN
. ( $to ? "<ri:page ri:content-title='$to' ri:space-key='$self->{space_key}'/>"
: ''
)
. '<ac:plain-text-link-body><![CDATA['
);
$self->{in_cdata} = 1;
}
else {
my $url = $to ? "https://metacpan.org/pod/$to" : '';
my $section = $attribute_hash->{section};
if ($section) {
lib/Pod/Confluence.pm view on Meta::CPAN
'code',
has_text => 1,
parameters => { language => 'perl' }
)
);
$self->{in_cdata} = 1;
}
1;
__END__
view release on metacpan or search on metacpan
lib/Pod/PXML.pm view on Meta::CPAN
$post = "</pod>\n"; # harmless newline, I figure.
} elsif($type eq 'for') {
$out .= "<for target=\"" . xml_attr_escape($it->get_arg) . "\">";
$out .= xml_escape_maybe_cdata($it->get_text);
$out .= "</for>\n\n";
return;
} elsif($type eq 'sequence') {
$type = lc($it->get_letter);
lib/Pod/PXML.pm view on Meta::CPAN
} elsif($type eq 'verbatim') {
( $FUSE_ADJACENT_PRES and $out =~ s/<\/pre>\n\n$//s )
or $out .= "<pre>";
# possibly combine adjacent verbatims into a single 'pre'
$out .= xml_escape_maybe_cdata("\n" . $it->get_text . "\n");
$out =~ s/]]><!\[CDATA\[// if $out =~ m/]]>$/s;
# combining adjacent CDATA sections is nice, and always harmless
$out .= "</pre>\n\n";
return;
lib/Pod/PXML.pm view on Meta::CPAN
return $out;
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub xml_escape_maybe_cdata { # not destructive
my $x;
$x = '' unless defined($x = $_[0]);
if($x =~ m/[&<>]/ and not $x =~ m/[^\x00-\x80]/) {
# CDATA only if uses those [&<>], and does not use anything highbit.
$x =~ s/]]>/]]>]]><!\[CDATA\[/g; # "escape" any ]]'s
lib/Pod/PXML.pm view on Meta::CPAN
use vars qw(%Acceptable_children);
{
# This just recapitulates what's in the DTD:
my $style = {map{;$_,1} qw(b i c x f s link)};
my $pstyle = {'#PCDATA',1, %$style};
my $pcdata = {'#PCDATA',1};
%Acceptable_children = (
'pod' => {map{;$_,1} qw(head1 head2 head3 head4 p pre list for)},
map(($_=>$pstyle), qw(head1 head2 head3 head4 p)),
'pre' => $pcdata,
'list' => {map{;$_,1} qw(item p pre list for)},
'item' => $pstyle,
'for' => $pcdata,
map(($_=>$pstyle), qw(link b i c f x s)),
);
}
sub xml2pod ($) {
view release on metacpan or search on metacpan
lib/Pod/ToDocBook/DoSequences.pm view on Meta::CPAN
}
$el;
}
#process conten of code
sub on_cdata {
my ( $self, $el, $text ) = @_;
return $text unless $el->local_name eq 'code';
#clean
$text =~ s/^\w<(.*)>$/$1/;
lib/Pod/ToDocBook/DoSequences.pm view on Meta::CPAN
return $self->mk_characters( $el->{TITLE} );
}
elsif ( $code eq 'C' ) {
( my $literal = $el->mk_element('literal') )->attrs_by_name->{role} =
'code';
$literal->add_content( $self->mk_cdata( $el->{TITLE} ) );
return $literal;
}
elsif ( $code eq 'S' ) {
my $str = $el->{TITLE};
$str =~ s/\s(?![^<]*>)/ /gx;
view release on metacpan or search on metacpan
lib/Protocol/XMPP/Handler.pod view on Meta::CPAN
=over 4
=item L<XML::SAX::Base>
L<attlist_decl|XML::SAX::Base/attlist_decl>, L<attribute_decl|XML::SAX::Base/attribute_decl>, L<comment|XML::SAX::Base/comment>, L<doctype_decl|XML::SAX::Base/doctype_decl>, L<element_decl|XML::SAX::Base/element_decl>, L<end_cdata|XML::SAX::Base/end_...
=back
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Prty/Html/Tag.pm view on Meta::CPAN
# Liste aller Attribute und ihrer Domänen.
# FIXME: anhand DTD überprüfen
my %Attribute = (
'accept-charset'=>'charsets', # form
'http-equiv'=>'cdata', # meta
'xml:lang'=>'languageCode', # I18N (XHTML)
'xml:space'=>'space', # ENUM pre,script,style(XHTML)
abbr=>'text', # Cell
accept=>'contentTypes', # form,input
accesskey=>'character', # Focus,legend
action=>'uri', # form
align=>'cellAlign', # ENUM CellAlign
alt=>'cdata', # input(cdata);area,img(text)
archive=>'uriList', # object
axis=>'cdata', # Cell
border=>'pixels', # table
cellpadding=>'length', # table
cellspacing=>'length', # table
char=>'character', # CellAlign
charoff=>'length', # CellAlign
lib/Prty/Html/Tag.pm view on Meta::CPAN
classid=>'uri', # object
codebase=>'uri', # object
codetype=>'contentType', # object
cols=>'multiLengths', # frameset(multiLengths),textarea(number)
colspan=>'number', # Cell
content=>'cdata', # meta
coords=>'coords', # a, area
data=>'uri', # object
datetime=>'datetime', # del, ins
declare=>'bool', # object
defer=>'bool', # script
lib/Prty/Html/Tag.pm view on Meta::CPAN
rel=>'linkTypes', # ENUM a,link
rev=>'linkTypes', # ENUM a,link
rows=>'multiLengths', # frameset(multiLengths);textarea(number)
rowspan=>'number', # Cell
rules=>'trules', # ENUM table
scheme=>'cdata', # meta
scope=>'scope', # ENUM Cell
scoped=>'bool', # style
scrolling=>'scrolling', # ENUM frame,iframe
selected=>'bool', # option
shape=>'shape', # ENUM a,area
lib/Prty/Html/Tag.pm view on Meta::CPAN
title=>'text', # Core,style
type=>'ContentType', # button(ENUM);a,link,object,param,script,
# style;input(ENUM)
usemap=>'uri', # img,input,object
valign=>'cellValign', # ENUM CellAlign
value=>'cdata', # button,input,option,param
valuetype=>'valueType', # ENUM param
width=>'length', # iframe,img,object,table(length);
# col,colgroup(multiLength)
xmlns=>'uri', # html (XHTML)
);
lib/Prty/Html/Tag.pm view on Meta::CPAN
# Attribut-Domänen (werden aktuell nicht geprüft)
my %Domain = (
bool=>1,
buttonType=>[qw/button reset submit/],
cdata=>1,
cellAlign=>[qw/center char justify left right/],
cellValign=>[qw/baseline bottom middle top/],
character=>1,
charset=>1,
charsets=>1,
lib/Prty/Html/Tag.pm view on Meta::CPAN
<TAG ...>
CONTENT
</TAG>\n
=item 'c' (cdata)
Wie 'm', nur dass der Content in CDATA eingefasst wird:
<TAG ...>
// <![CDATA[
view release on metacpan or search on metacpan
lib/Qgoda/Processor/HTMLFilter.pm view on Meta::CPAN
my ($self, $content, $asset) = @_;
my $output = '';
my $handler = sub {
my ($event, $text, $tagname, $attr, $attrseq, $is_cdata) = @_;
my $chunk;
if ('start_document' eq $event || 'end_document' eq $event) {
$chunk = $output;
$output = '';
lib/Qgoda/Processor/HTMLFilter.pm view on Meta::CPAN
output => \$output,
text => $text,
tagname => $tagname,
attr => $attr,
attrseq => $attrseq,
is_cdata => $is_cdata,
asset => $asset,
);
}
$output .= $chunk;
};
my $parser = HTML::Parser->new(
comment_h => [$handler, 'event, text'],
declaration_h => [$handler, 'event, text'],
start_h => [$handler, 'event, text, tagname, attr, attrseq, is_cdata'],
end_h => [$handler, 'event, text, tagname'],
process_h => [$handler, 'event, text'],
text_h => [$handler, 'event, text'],
start_document_h => [$handler, 'event'],
);
view release on metacpan or search on metacpan
lib/Quiq/Html/Tag.pm view on Meta::CPAN
# Liste aller Attribute und ihrer Domänen.
# FIXME: anhand DTD überprüfen
my %Attribute = (
'accept-charset' => 'charsets', # form
'http-equiv' => 'cdata', # meta
'xml:lang' => 'languageCode', # I18N (XHTML)
'xml:space' => 'space', # ENUM pre,script,style(XHTML)
abbr => 'text', # Cell
accept => 'contentTypes', # form,input
accesskey => 'character', # Focus,legend
action => 'uri', # form
align => 'cellAlign', # ENUM CellAlign
alt => 'cdata', # input(cdata);area,img(text)
archive => 'uriList', # object
axis => 'cdata', # Cell
border => 'pixels', # table
cellpadding => 'length', # table
cellspacing => 'length', # table
char => 'character', # CellAlign
charoff => 'length', # CellAlign
lib/Quiq/Html/Tag.pm view on Meta::CPAN
classid => 'uri', # object
codebase => 'uri', # object
codetype => 'contentType', # object
cols => 'multiLengths', # frameset(multiLengths),textarea(number)
colspan => 'number', # Cell
content => 'cdata', # meta
coords => 'coords', # a, area
data => 'uri', # object
datetime => 'datetime', # del, ins
declare => 'bool', # object
defer => 'bool', # script
lib/Quiq/Html/Tag.pm view on Meta::CPAN
rel => 'linkTypes', # ENUM a,link
rev => 'linkTypes', # ENUM a,link
rows => 'multiLengths', # frameset(multiLengths);textarea(number)
rowspan => 'number', # Cell
rules => 'trules', # ENUM table
scheme => 'cdata', # meta
scope => 'scope', # ENUM Cell
scoped => 'bool', # style
scrolling => 'scrolling', # ENUM frame,iframe
selected => 'bool', # option
shape => 'shape', # ENUM a,area
lib/Quiq/Html/Tag.pm view on Meta::CPAN
title => 'text', # Core,style
type => 'ContentType', # button(ENUM);a,link,object,param,script,
# style;input(ENUM)
usemap => 'uri', # img,input,object
valign => 'cellValign', # ENUM CellAlign
value => 'cdata', # button,input,option,param
valuetype => 'valueType', # ENUM param
width => 'length', # iframe,img,object,table(length);
# col,colgroup(multiLength)
xmlns => 'uri', # html (XHTML)
);
lib/Quiq/Html/Tag.pm view on Meta::CPAN
# Attribut-Domänen (werden aktuell nicht geprüft)
my %Domain = (
bool => 1,
buttonType => [qw/button reset submit/],
cdata => 1,
cellAlign => [qw/center char justify left right/],
cellValign => [qw/baseline bottom middle top/],
character => 1,
charset => 1,
charsets => 1,
lib/Quiq/Html/Tag.pm view on Meta::CPAN
<TAG ...>
CONTENT
</TAG>\n
=item 'c' (cdata)
Wie 'm', nur dass der Content in CDATA eingefasst wird:
<TAG ...>
// <![CDATA[
view release on metacpan or search on metacpan
share/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/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/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();}
view release on metacpan or search on metacpan
share/prefix.cc view on Meta::CPAN
enc http://www.w3.org/2001/04/xmlenc# 20111028
environ http://eulersharp.sourceforge.net/2003/03swap/environment# 20111028
es http://eulersharp.sourceforge.net/2003/03swap/log-rules# 20111028
esd http://def.esd.org.uk/ 20111028
eu http://eulersharp.sourceforge.net/2003/03swap/log-rules# 20111028
eui http://institutions.publicdata.eu/# 20111028
event http://purl.org/NET/c4dm/event.owl# 20111028
events http://eulersharp.sourceforge.net/2003/03swap/event# 20111028
evopat http://ns.aksw.org/Evolution/ 20111028
evset http://dsnotify.org/vocab/eventset/0.1/ 20111028
ex http://example.com/ 20111028
share/prefix.cc view on Meta::CPAN
erce http://xxefe.de/ 20140901
esadm http://vocab.linkeddata.es/datosabiertos/def/sector-publico/territorio# 20140901
escjr http://vocab.linkeddata.es/datosabiertos/def/urbanismo-infraestructuras/callejero# 20140901
estatwrap http://ontologycentral.com/2009/01/eurostat/ns# 20140901
estrn http://vocab.linkeddata.es/datosabiertos/def/urbanismo-infraestructuras/transporte# 20140901
eurlex http://eur-lex.publicdata.eu/ontology/ 20140901
evident http://purl.org/net/evident# 20140901
ext http://def.seegrid.csiro.au/isotc211/iso19115/2003/extent# 20140901
fabio http://purl.org/spar/fabio/ 20140901
fam http://vocab.fusepool.info/fam# 20140901
fao http://fao.270a.info/dataset/ 20140901
view release on metacpan or search on metacpan
share/catalogue/www.w3.org/MarkUp/DTD/xhtml-basic10-f.dtd view on Meta::CPAN
<!-- W3C XML 1.0 Recommendation -->
<!NOTATION w3c-xml
PUBLIC "ISO 8879//NOTATION Extensible Markup Language (XML) 1.0//EN" >
<!-- XML 1.0 CDATA -->
<!NOTATION cdata
PUBLIC "-//W3C//NOTATION XML 1.0: CDATA//EN" >
<!-- SGML Formal Public Identifiers -->
<!NOTATION fpi
PUBLIC "ISO 8879:1986//NOTATION Formal Public Identifier//EN" >
view release on metacpan or search on metacpan
t/xmlliteral.t view on Meta::CPAN
my $l = RDF::Trine::Node::Literal::XML->new( $doc , 'tlh' );
} 'lives on documentfragment node with lang';
lives_ok {
my $node = XML::LibXML::CDATASection->new( '<cdata>' );
my $l = RDF::Trine::Node::Literal::XML->new( $node );
} 'lives on cdatasection';
lives_ok {
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string( '<root><bar>baz</bar><foo>dahut</foo></root>');
view release on metacpan or search on metacpan
libxwrite.c view on Meta::CPAN
this->element_has_children = TRUE;
this->last_node_was_text = TRUE;
}
void xwrite_add_CDATA(XWrite* this, const gchar* cdata) {
#if HAVE_STRSTR
g_assert(strstr(cdata, "]]>") == NULL);
#endif
xwrite_finish_element(this);
xwrite_copy(this, "<![CDATA[");
xwrite_copy(this, cdata);
xwrite_copy(this, "]]>");
this->element_has_children = TRUE;
this->last_node_was_text = TRUE;
}
view release on metacpan or search on metacpan
lib/RPC/XML/Parser/XMLParser.pm view on Meta::CPAN
my ($op, $newobj, $class, $list, $name);
# This should always be one of the stack machine ops defined above
$op = pop @{$robj->[M_STACK]};
my $cdata = q{};
if ($robj->[M_SPOOLING_BASE64_DATA])
{
$cdata = $robj->[M_CDATA];
seek $cdata, 0, 0;
}
elsif ($robj->[M_CDATA])
{
$cdata = join q{} => @{$robj->[M_CDATA]};
}
# Decide what to do from here
if (VALIDTYPES->{$elem}) ## no critic (ProhibitCascadingIfElse)
{
lib/RPC/XML/Parser/XMLParser.pm view on Meta::CPAN
$class = 'datetime_iso8601';
}
# Some minimal data-integrity checking
if ($class eq 'int' or $class eq 'i4' or $class eq 'i8')
{
if ($cdata !~ /^[-+]?\d+$/)
{
return error($robj, $self, 'Bad integer data read');
}
}
elsif ($class eq 'double')
{
if ($cdata !~
# Taken from perldata(1)
/^[+-]?(?=\d|[.]\d)\d*(?:[.]\d*)?(?:[Ee](?:[+-]?\d+))?$/x)
{
return error($robj, $self, 'Bad floating-point data read');
}
}
elsif ($class eq 'nil')
{
# We now allow parsing of <nil/> at all times.
# By definition though, it must be, well... nil.
if ($cdata !~ /^\s*$/)
{
return error($robj, $self, '<nil /> element must be empty');
}
}
$class = "RPC::XML::$class";
# The string at the end is only seen by the RPC::XML::base64 class
$newobj = $class->new($cdata, 'base64 is encoded, nil is allowed');
push @{$robj->[M_STACK]}, $newobj, DATAOBJECT;
if ($robj->[M_SPOOLING_BASE64_DATA])
{
$robj->[M_SPOOLING_BASE64_DATA] = 0;
$robj->[M_CDATA] = undef; # Won't close FH, $newobj still holds it
lib/RPC/XML/Parser/XMLParser.pm view on Meta::CPAN
return stack_error($robj, $self, $elem);
}
}
else
{
$newobj = RPC::XML::string->new($cdata);
}
push @{$robj->[M_STACK]}, $newobj, DATAOBJECT;
}
elsif ($elem eq 'param')
lib/RPC/XML/Parser/XMLParser.pm view on Meta::CPAN
push @{$robj->[M_STACK]}, $name, $newobj, STRUCTMEM;
}
elsif ($elem eq 'name')
{
# Fairly simple: just push the current content of CDATA on w/ a marker
push @{$robj->[M_STACK]}, $cdata, STRUCTNAME;
}
elsif ($elem eq 'struct')
{
# Create the hash table in-place, then pass the ref to the constructor
$list = {};
lib/RPC/XML/Parser/XMLParser.pm view on Meta::CPAN
return error(
$robj, $self,
"$elem tag must immediately follow a methodCall tag"
);
}
push @{$robj->[M_STACK]}, $cdata, NAMEVAL;
}
elsif ($elem eq 'methodCall')
{
# A methodCall closing should have on the stack an optional PARAMLIST
# marker, a NAMEVAL marker, then the METHOD token from the
view release on metacpan or search on metacpan
HTMLConverter.pm view on Meta::CPAN
my $buf = $self->set_new_group_buffer();
$self->parse();
return $buf->get_text();
}
sub get_parsed_group_pcdata { $_[0]->set_pcdata_mode(); $_[0]->get_parsed_group_text() }
sub set_group_cwhandler {
my ($self, $prefix) = @_;
my @oldvalues;
$oldvalues[0] = $self->set_token_handler(CWORD, 'pth_cword');
HTMLConverter.pm view on Meta::CPAN
sub store_notes {
my ($self, $arr) = splice(@_, 0, 2);
$self->add_on_leave_handler(sub { push @{$_[1]}, map { $_[0]->notes($_) } @{$_[2]} }, [$arr, [@_]]);
}
sub set_pcdata_mode { $_[0]->group_notes(pcdata => 1) }
sub _add_on_leave { unshift @{$_[0]->{$_[1]}[0]}, [$_[2], $_[3] || []] }
sub add_on_leave_handler { shift()->_add_on_leave('on_leave1', @_) }
HTMLConverter.pm view on Meta::CPAN
###### Font Table
sub cw_fonttbl {
my $self = shift;
$self->set_pcdata_mode();
$self->set_new_group_buffer();
$self->set_group_cwhandler('fcw_');
$self->parse();
my $deff = $self->notes('deff');
if(length $deff){
HTMLConverter.pm view on Meta::CPAN
sub fcw_f {
my ($self, $num) = @_;
my $font = {};
$self->notes(f => $font);
$self->notes('f'.$num => $font);
my $txt = $self->get_parsed_group_pcdata();
$txt =~ s/;$//;
$font->{face} = $txt;
}
sub fcw_fnil { delete (($_[0]->notes('f') || {})->{family}) }
HTMLConverter.pm view on Meta::CPAN
}
sub fcw_falt {
my $self = shift;
my $font = $self->notes('f');
my $txt = $self->get_parsed_group_pcdata();
($font || {})->{falt} = $txt;
}
sub _get_text_encoding {
($_[0]->notes('pcdata') ? {} : $_[0]->notes('f') || {})->{codepage}
|| $_[0]->notes('ansicpg') || $_[0]->{doc_codepage}
}
sub _get_font_family { $_[1]->{family} }
###### Color Table
sub cw_colortbl {
my $self = shift;
$self->set_pcdata_mode();
$self->notes(colortbl => []);
$self->group_notes(colortbl_current => [(undef)x3]);
$self->set_group_token_handler(PTEXT, 'th_ptext_colortbl');
}
HTMLConverter.pm view on Meta::CPAN
###### Style Sheet
sub cw_stylesheet {
my $self = shift;
$self->set_pcdata_mode();
$self->set_new_group_buffer();
$self->set_group_cwhandler('scw_');
my $oldh = $self->set_group_token_handler(ENTER, 'th_enter_style');
$self->group_notes(stylesheet_enter => $oldh);
}
HTMLConverter.pm view on Meta::CPAN
sub ltcw_listsimple { ($_[0]->notes('list') || {})->{simple} = $_[1] }
sub ltcw_listhybrid { ($_[0]->notes('list') || {})->{hybrid} = 1 }
sub ltcw_listname {
my $self = shift;
my $txt = $self->get_parsed_group_pcdata();
$txt =~ s/;$//;
($self->notes('list') || {})->{name} = $txt;
}
######## List Levels
HTMLConverter.pm view on Meta::CPAN
sub cw_info { }
sub cw_title {
my $self = shift;
my $text = $self->get_parsed_group_pcdata();
my $head = $self->get_head_element();
return unless $head;
my $title = $self->create_element('title', $head);
$self->append_text_node($title, $text);
}
HTMLConverter.pm view on Meta::CPAN
return $self->{ancors}{$txt} = 'a'.$self->{ancor_count}++;
}
sub cw_bkmkstart {
my $self = shift;
$self->set_pcdata_mode();
my $txt = $self->get_parsed_group_text();
my $name = $self->_get_ancor_name($txt);
my $el= $self->create_element('a');
$el->setAttribute(name => $name);
$self->append_text_node($el, ' ');
view release on metacpan or search on metacpan
sbin/foundry-lib/VCP/Utils/svn.pm
sbin/foundry-lib/VCP/Utils/vss.pm
sbin/foundry-setup
sbin/foundry-svn-pre-revprop-change
sbin/foundry-svn-start-commit
sbin/foundry-syncdata
sbin/foundry-vcp
SIGNATURE
t/0-signature.t
var/kwiki/.default/config.yaml
var/kwiki/.default/css/Display.css
view release on metacpan or search on metacpan
share/assets/misc/prism.css view on Meta::CPAN
.token.comment,
.token.block-comment,
.token.prolog,
.token.doctype,
.token.cdata {
color: #7D8B99;
}
.token.punctuation {
color: #5F6364;
view release on metacpan or search on metacpan
lib/RayApp/DSD.pm view on Meta::CPAN
'num' => 'num',
'string' => 'string',
'natural' => 'natural',
'' => 'natural',
},
'cdata' => {
'yes' => 'yes',
'no' => 'no',
'' => 'no',
},
);
lib/RayApp/DSD.pm view on Meta::CPAN
and not $data =~ /^[+-]?\d*\.?\d+$/) {
$self->{errstr} .= "Value '$data' of $showname is not numeric for data element defined at line $spec->{'ln'}\n";
removeChildNodeNicely($node->parentNode, $node);
return 0;
}
if ($spec->{'cdata'} eq 'yes') {
while ($data =~ s/^(.*\])(?=\]>)//sg) {
$node->appendChild($dom->createCDATASection($1));
}
$node->appendChild($dom->createCDATASection($data));
} else {
lib/RayApp/DSD.pm view on Meta::CPAN
Order of elements for values binded using multiple values B<hash> or
B<hashelement>. Possible values are B<num>, B<string>, and
(the default) B<natural>.
=item cdata
When set to yes, the scalar content of this element will be
output as a CDATA section.
=back
view release on metacpan or search on metacpan
redland/ChangeLog.3 view on Meta::CPAN
* raptor/tests/bad-04.rdf: Check rdf:ID and rdf:bagID with same
value fails
* raptor/tests/bad-02.rdf: Duplicate rdf:ID names
* raptor/raptor_parse.c: Make debug less chatty about cdata,
unless RAPTOR_DEBUG_CDATA defined.
* raptor/raptor_parse.c (raptor_record_ID): Added, notes rdf:ID
and rdf:bagID values, checks for duplicates (per in-scope
base-URI).
redland/ChangeLog.3 view on Meta::CPAN
* raptor/Makefile.am:
Restore rule to make librdf.la for when embedded in Redland
* raptor/raptor_libxml.c (raptor_libxml_init):
Enable handling of cdata blocks -
<![CDATA[...]> by registering callback to raptor_xml_cdata_handler
* raptor/tests/ex-40.out: Fix node
* raptor/tests/Makefile.am: Added ex-40
redland/ChangeLog.3 view on Meta::CPAN
revert default number hashes to 3 for now
* librdf/Makefile.am:
Always have compiled java class files in distribution.
* raptor/raptor_parse.c (raptor_xml_cdata_handler):
Allow to be ignored when there is no
element (XML very damaged)
* raptor/rdfdump.c: Tidy output formatting
view release on metacpan or search on metacpan
share/flot/examples/axes-time-zones/tz/asia view on Meta::CPAN
# was still controlled by Japan. This is hard to believe, but we don't
# have any other information.
# From smallufo (2010-04-03):
# According to Taiwan's CWB,
# <a href="http://www.cwb.gov.tw/V6/astronomy/cdata/summert.htm">
# http://www.cwb.gov.tw/V6/astronomy/cdata/summert.htm
# </a>
# Taipei has DST in 1979 between July 1st and Sep 30.
# From Arthur David Olson (2010-04-07):
# Here's Google's translation of the table at the bottom of the "summert.htm" page:
view release on metacpan or search on metacpan
lib/Rex/JobControl/public/3rdparty/jquery-ui-1.11.1/external/jquery/jquery.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 ) {
view release on metacpan or search on metacpan
lib/Rinchi/CPlusPlus/Preprocessor.pm view on Meta::CPAN
$closed = 0;
}
}
sub characterDataHandler() {
my ($cdata) = @_;
print $cdata;
}
sub processingInstructionHandler() {
my ($target,$data) = @_;
print "<?$target $data?>\n";
view release on metacpan or search on metacpan
lib/Rinchi/DOM.pm view on Meta::CPAN
=cut
use vars qw( $_RD_document
$_RD_cur_node
$_RD_cdata_value
$_RD_in_cdata
);
=item new
Constructor for Rinchi::DOM.
lib/Rinchi/DOM.pm view on Meta::CPAN
$_RD_cur_node = $_RD_cur_node->getParentNode();
}
sub _characterDataHandler() {
my ($cdata) = @_;
if($_RD_in_cdata) {
$_RD_cdata_value .= $cdata;
} else {
my $text = $_RD_document->createTextNode($cdata);
$_RD_cur_node->appendChild($text);
}
}
sub _processingInstructionHandler() {
lib/Rinchi/DOM.pm view on Meta::CPAN
$_RD_cur_node->appendChild($comment);
}
sub _startCdataHandler() {
$_RD_cdata_value = "";
$_RD_in_cdata = 1;
}
sub _endCdataHandler() {
my $cdata = $_RD_document->createCDATASection($_RD_cdata_value);
$_RD_cur_node->appendChild($cdata);
$_RD_in_cdata = 0;
}
sub _xmlDeclHandler() {
my ($version, $encoding, $standalone) = @_;
view release on metacpan or search on metacpan
lib/Rinchi/Fortran/Preprocessor.pm view on Meta::CPAN
$closed = 0;
}
}
sub characterDataHandler() {
my ($cdata) = @_;
print $cdata;
}
sub processingInstructionHandler() {
my ($target,$data) = @_;
print "<?$target $data?>\n";
lib/Rinchi/Fortran/Preprocessor.pm view on Meta::CPAN
This event is generated when an XML end tag is recognized. Note that
an XML empty tag (<tagname/>) generates both a start and an end event.
=item * Char (String)
my ($cdata) = @_;
print $cdata;
This event is generated when non-markup is recognized. The non-markup
sequence of characters is in String. A single non-markup sequence of
characters may generate multiple calls to this handler. Whatever the
encoding of the string in the original document, this is given to the
lib/Rinchi/Fortran/Preprocessor.pm view on Meta::CPAN
Default Character Data handler.
=cut
sub characterDataHandler() {
my ($cdata) = @_;
print $cdata;
}
=item processingInstructionHandler()
Default Processing Instruction handler.
lib/Rinchi/Fortran/Preprocessor.pm view on Meta::CPAN
print "$delim";
}
}
sub _characterDataHandler() {
my ($cdata) = @_;
print $cdata;
}
sub _processingInstructionHandler() {
my ($target,$data) = @_;
print "\n";
view release on metacpan or search on metacpan
lib/Rinchi/Outlook.pm view on Meta::CPAN
'Start' => \&handle_start,
'End' => \&handle_end,
'Char' => \&handle_char,
'Proc' => \&handle_proc,
'Comment' => \&handle_comment,
'CdataStart' => \&handle_cdata_start,
'CdataEnd' => \&handle_cdata_end,
'Default' => \&handle_default,
'Unparsed' => \&handle_unparsed,
'Notation' => \&handle_notation,
'ExternEnt' => \&handle_extern_ent,
'ExternEntFin' => \&handle_extern_ent_fin,
lib/Rinchi/Outlook.pm view on Meta::CPAN
}
#=================================================================
# CdataStart (Expat)
sub handle_cdata_start() {
my ($expat) = @_;
}
#=================================================================
# CdataEnd (Expat)
sub handle_cdata_end() {
my ($expat) = @_;
}
#=================================================================