Menu
▾
▴
[css-cvs] CVS: CSS-SAC/lib/CSS/SAC/Condition Attribute.pm,1.1.1.1,1.2 Combinator.pm,1.1.1.1,1.2 Content.pm,1.1.1.1,1.2 Lang.pm,1.1.1.1,1.2 Negative.pm,1.1.1.1,1.2 Positional.pm,1.1.1.1,1.2
|
From: Robin B. <da...@us...> - 2001-08-17 17:50:18
|
Update of /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition
In directory usw-pr-cvs1:/tmp/cvs-serv18736/lib/CSS/SAC/Condition
Modified Files:
Attribute.pm Combinator.pm Content.pm Lang.pm Negative.pm
Positional.pm
Log Message:
first batch of 0.04 changes
Index: Attribute.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Attribute.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Attribute.pm 2001/08/17 13:32:15 1.1.1.1
+++ Attribute.pm 2001/08/17 17:50:15 1.2
@@ -1,191 +1,191 @@
-
-###
-# CSS::SAC::Condition::Attribute - SAC AttributeConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Attribute;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _local_name_
- _value_
- _ns_uri_
- _specified_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Attribute->new($type,$lname,$ns,$specified,$value)
-# creates a new sac AttributeCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the attribute conditions
- my $local_name = shift;
- my $ns_uri = shift;
- my $specified = shift;
- my $value = shift;
-
- # create a condition
- my $acond = $class->SUPER::new($type);
-
- # add our fields
- $acond->[_local_name_] = $local_name if $local_name;
- $acond->[_value_] = $value if defined $value;
- $acond->[_ns_uri_] = $ns_uri if defined $ns_uri;
- $acond->[_specified_] = $specified if $specified;
-
- return $acond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Attribute::getLocalName = \&LocalName;
-*CSS::SAC::Condition::Attribute::getNamespaceURI = \&NamespaceURI;
-*CSS::SAC::Condition::Attribute::getValue = \&Value;
-*CSS::SAC::Condition::Attribute::getSpecified = \&Specified;
-
-
-#---------------------------------------------------------------------#
-# my $lname = $cond->LocalName()
-# $cond->LocalName($lname)
-# get/set the local name
-#---------------------------------------------------------------------#
-sub LocalName {
- (@_==2) ? $_[0]->[_local_name_] = $_[1] :
- $_[0]->[_local_name_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $ns = $cond->NamespaceURI()
-# $cond->NamespaceURI($ns)
-# get/set the ns uri
-#---------------------------------------------------------------------#
-sub NamespaceURI {
- (@_==2) ? $_[0]->[_ns_uri_] = $_[1] :
- $_[0]->[_ns_uri_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $value = $cond->Value()
-# $cond->Value($value)
-# get/set the value
-#---------------------------------------------------------------------#
-sub Value {
- (@_==2) ? $_[0]->[_value_] = $_[1] :
- $_[0]->[_value_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $spec = $cond->Specified()
-# $cond->Specified($spec)
-# get/set the 'specified' state, ie whether a specific value was
-# requested for this attr
-#---------------------------------------------------------------------#
-sub Specified {
- (@_==2) ? $_[0]->[_specified_] = $_[1] :
- $_[0]->[_specified_];
-}
-#---------------------------------------------------------------------#
-
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Attribute - SAC AttributeConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Attribute->new($type,$lname,$ns,$specified,$value)
-
-=item * $cond->new($type,$lname,$ns,$specified,$value)
-
-Creates a new attribute condition.
-
-=item * $acond->LocalName([$lname])
-
-get/set the local name
-
-=item * $acond->NamespaceURI([$ns])
-
-get/set the ns uri
-
-=item * $acond->Value([$value])
-
-get/set the value
-
-=item * $acond->Specified([$spec])
-
-get/set the 'specified' state, ie whether a specific value was
-requested for this attr
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Attribute - SAC AttributeConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Attribute;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _local_name_
+ _value_
+ _ns_uri_
+ _specified_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Attribute->new($type,$lname,$ns,$specified,$value)
+# creates a new sac AttributeCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the attribute conditions
+ my $local_name = shift;
+ my $ns_uri = shift;
+ my $specified = shift;
+ my $value = shift;
+
+ # create a condition
+ my $acond = $class->SUPER::new($type);
+
+ # add our fields
+ $acond->[_local_name_] = $local_name if $local_name;
+ $acond->[_value_] = $value if defined $value;
+ $acond->[_ns_uri_] = $ns_uri if defined $ns_uri;
+ $acond->[_specified_] = $specified if $specified;
+
+ return $acond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Attribute::getLocalName = \&LocalName;
+*CSS::SAC::Condition::Attribute::getNamespaceURI = \&NamespaceURI;
+*CSS::SAC::Condition::Attribute::getValue = \&Value;
+*CSS::SAC::Condition::Attribute::getSpecified = \&Specified;
+
+
+#---------------------------------------------------------------------#
+# my $lname = $cond->LocalName()
+# $cond->LocalName($lname)
+# get/set the local name
+#---------------------------------------------------------------------#
+sub LocalName {
+ (@_==2) ? $_[0]->[_local_name_] = $_[1] :
+ $_[0]->[_local_name_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $ns = $cond->NamespaceURI()
+# $cond->NamespaceURI($ns)
+# get/set the ns uri
+#---------------------------------------------------------------------#
+sub NamespaceURI {
+ (@_==2) ? $_[0]->[_ns_uri_] = $_[1] :
+ $_[0]->[_ns_uri_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $value = $cond->Value()
+# $cond->Value($value)
+# get/set the value
+#---------------------------------------------------------------------#
+sub Value {
+ (@_==2) ? $_[0]->[_value_] = $_[1] :
+ $_[0]->[_value_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $spec = $cond->Specified()
+# $cond->Specified($spec)
+# get/set the 'specified' state, ie whether a specific value was
+# requested for this attr
+#---------------------------------------------------------------------#
+sub Specified {
+ (@_==2) ? $_[0]->[_specified_] = $_[1] :
+ $_[0]->[_specified_];
+}
+#---------------------------------------------------------------------#
+
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Attribute - SAC AttributeConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Attribute->new($type,$lname,$ns,$specified,$value)
+
+=item * $cond->new($type,$lname,$ns,$specified,$value)
+
+Creates a new attribute condition.
+
+=item * $acond->LocalName([$lname])
+
+get/set the local name
+
+=item * $acond->NamespaceURI([$ns])
+
+get/set the ns uri
+
+=item * $acond->Value([$value])
+
+get/set the value
+
+=item * $acond->Specified([$spec])
+
+get/set the 'specified' state, ie whether a specific value was
+requested for this attr
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
Index: Combinator.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Combinator.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Combinator.pm 2001/08/17 13:32:15 1.1.1.1
+++ Combinator.pm 2001/08/17 17:50:15 1.2
@@ -1,147 +1,147 @@
-
-###
-# CSS::SAC::Condition::Combinator - SAC CombinatorConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Combinator;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _condition_1_
- _condition_2_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Combinator->new($type,$first_cond,$second_cond)
-# creates a new sac CombinatorCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the combinator conditions
- my $condition_1 = shift; # any default ?
- my $condition_2 = shift;
-
- # create a condition
- my $ccond = $class->SUPER::new($type);
-
- # add our fields
- $ccond->[_condition_1_] = $condition_1 if $condition_1;
- $ccond->[_condition_2_] = $condition_2 if $condition_2;
-
- return $ccond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Combinator::getFirstCondition = \&FirstCondition;
-*CSS::SAC::Condition::Combinator::getSecondCondition = \&SecondCondition;
-
-
-#---------------------------------------------------------------------#
-# my $cond1 = $ccond->FirstCondition()
-# $ccond->FirstCondition($cond1)
-# get/set the first condition
-#---------------------------------------------------------------------#
-sub FirstCondition {
- (@_==2) ? $_[0]->[_condition_1_] = $_[1] :
- $_[0]->[_condition_1_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $cond2 = $ccond->SecondCondition()
-# $ccond->SecondCondition($cond2)
-# get/set the second condition
-#---------------------------------------------------------------------#
-sub SecondCondition {
- (@_==2) ? $_[0]->[_condition_2_] = $_[1] :
- $_[0]->[_condition_2_];
-}
-#---------------------------------------------------------------------#
-
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Combinator - SAC CombinatorConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Combinator->new($type,$cond1,$cond2)
-
-=item * $cond->new($type,$cond1,$cond2)
-
-Creates a new combinator condition.
-
-=item * $ccond->FirstCondition([$cond])
-=item * $ccond->SecondCondition([$cond])
-
-get/set the conditions that compose the combinator
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Combinator - SAC CombinatorConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Combinator;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _condition_1_
+ _condition_2_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Combinator->new($type,$first_cond,$second_cond)
+# creates a new sac CombinatorCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the combinator conditions
+ my $condition_1 = shift; # any default ?
+ my $condition_2 = shift;
+
+ # create a condition
+ my $ccond = $class->SUPER::new($type);
+
+ # add our fields
+ $ccond->[_condition_1_] = $condition_1 if $condition_1;
+ $ccond->[_condition_2_] = $condition_2 if $condition_2;
+
+ return $ccond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Combinator::getFirstCondition = \&FirstCondition;
+*CSS::SAC::Condition::Combinator::getSecondCondition = \&SecondCondition;
+
+
+#---------------------------------------------------------------------#
+# my $cond1 = $ccond->FirstCondition()
+# $ccond->FirstCondition($cond1)
+# get/set the first condition
+#---------------------------------------------------------------------#
+sub FirstCondition {
+ (@_==2) ? $_[0]->[_condition_1_] = $_[1] :
+ $_[0]->[_condition_1_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $cond2 = $ccond->SecondCondition()
+# $ccond->SecondCondition($cond2)
+# get/set the second condition
+#---------------------------------------------------------------------#
+sub SecondCondition {
+ (@_==2) ? $_[0]->[_condition_2_] = $_[1] :
+ $_[0]->[_condition_2_];
+}
+#---------------------------------------------------------------------#
+
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Combinator - SAC CombinatorConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Combinator->new($type,$cond1,$cond2)
+
+=item * $cond->new($type,$cond1,$cond2)
+
+Creates a new combinator condition.
+
+=item * $ccond->FirstCondition([$cond])
+=item * $ccond->SecondCondition([$cond])
+
+get/set the conditions that compose the combinator
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
Index: Content.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Content.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Content.pm 2001/08/17 13:32:15 1.1.1.1
+++ Content.pm 2001/08/17 17:50:15 1.2
@@ -1,128 +1,128 @@
-
-###
-# CSS::SAC::Condition::Content - SAC ContentConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Content;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _data_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Content->new($type,$data)
-# creates a new sac ContentCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the content conditions
- my $data = shift;
-
- # create a condition
- my $ccond = $class->SUPER::new($type);
-
- # add our fields
- $ccond->[_data_] = $data if defined $data;
-
- return $ccond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Content::getData = \&Data;
-
-#---------------------------------------------------------------------#
-# my $data = $ccond->Data()
-# $ccond->Data($data)
-# get/set the condition's data
-#---------------------------------------------------------------------#
-sub Data {
- (@_==2) ? $_[0]->[_data_] = $_[1] :
- $_[0]->[_data_];
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Content - SAC ContentConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Content->new($type,$data)
-
-=item * $cond->new($type,$data)
-
-Creates a new content condition.
-
-=item * $ccond->Data([$data])
-
-get/set the condition's data
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Content - SAC ContentConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Content;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _data_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Content->new($type,$data)
+# creates a new sac ContentCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the content conditions
+ my $data = shift;
+
+ # create a condition
+ my $ccond = $class->SUPER::new($type);
+
+ # add our fields
+ $ccond->[_data_] = $data if defined $data;
+
+ return $ccond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Content::getData = \&Data;
+
+#---------------------------------------------------------------------#
+# my $data = $ccond->Data()
+# $ccond->Data($data)
+# get/set the condition's data
+#---------------------------------------------------------------------#
+sub Data {
+ (@_==2) ? $_[0]->[_data_] = $_[1] :
+ $_[0]->[_data_];
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Content - SAC ContentConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Content->new($type,$data)
+
+=item * $cond->new($type,$data)
+
+Creates a new content condition.
+
+=item * $ccond->Data([$data])
+
+get/set the condition's data
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
Index: Lang.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Lang.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Lang.pm 2001/08/17 13:32:15 1.1.1.1
+++ Lang.pm 2001/08/17 17:50:15 1.2
@@ -1,128 +1,128 @@
-
-###
-# CSS::SAC::Condition::Lang - SAC LangConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Lang;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _lang_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Lang->new($type,$lang)
-# creates a new sac LangCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the content conditions
- my $lang = shift;
-
- # create a condition
- my $ccond = $class->SUPER::new($type);
-
- # add our fields
- $ccond->[_lang_] = $lang if $lang;
-
- return $ccond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Lang::getLang = \⟪
-
-#---------------------------------------------------------------------#
-# my $lang = $lcond->Lang()
-# $lcond->Lang($lang)
-# get/set the condition's lang
-#---------------------------------------------------------------------#
-sub Lang {
- (@_==2) ? $_[0]->[_lang_] = $_[1] :
- $_[0]->[_lang_];
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Lang - SAC LangConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Lang->new($type,$lang)
-
-=item * $cond->new($type,$lang)
-
-Creates a new lang condition.
-
-=item * $ccond->Lang([$lang])
-
-get/set the condition's lang
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Lang - SAC LangConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Lang;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _lang_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Lang->new($type,$lang)
+# creates a new sac LangCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the content conditions
+ my $lang = shift;
+
+ # create a condition
+ my $ccond = $class->SUPER::new($type);
+
+ # add our fields
+ $ccond->[_lang_] = $lang if $lang;
+
+ return $ccond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Lang::getLang = \⟪
+
+#---------------------------------------------------------------------#
+# my $lang = $lcond->Lang()
+# $lcond->Lang($lang)
+# get/set the condition's lang
+#---------------------------------------------------------------------#
+sub Lang {
+ (@_==2) ? $_[0]->[_lang_] = $_[1] :
+ $_[0]->[_lang_];
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Lang - SAC LangConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Lang->new($type,$lang)
+
+=item * $cond->new($type,$lang)
+
+Creates a new lang condition.
+
+=item * $ccond->Lang([$lang])
+
+get/set the condition's lang
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
Index: Negative.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Negative.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Negative.pm 2001/08/17 13:32:15 1.1.1.1
+++ Negative.pm 2001/08/17 17:50:15 1.2
@@ -1,129 +1,129 @@
-
-###
-# CSS::SAC::Condition::Negative - SAC NegativeConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Negative;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _cond_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Negative->new($type,$cond)
-# creates a new sac NegativeCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the content conditions
- my $cond = shift;
-
- # create a condition
- my $ncond = $class->SUPER::new($type);
-
- # add our fields
- $ncond->[_cond_] = $cond;
-
- return $ncond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Negative::getCondition = \&Condition;
-
-
-#---------------------------------------------------------------------#
-# my $cond = $ncond->Condition()
-# $ncond->Condition($cond)
-# get/set the condition's sub condition
-#---------------------------------------------------------------------#
-sub Condition {
- (@_==2) ? $_[0]->[_cond_] = $_[1] :
- $_[0]->[_cond_];
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Negative - SAC NegativeConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Negative->new($type,$cond)
-
-=item * $cond->new($type,$cond)
-
-Creates a new negative condition.
-
-=item * $ccond->Condition([$cond])
-
-get/set the condition's sub condition
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Negative - SAC NegativeConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Negative;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _cond_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Negative->new($type,$cond)
+# creates a new sac NegativeCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the content conditions
+ my $cond = shift;
+
+ # create a condition
+ my $ncond = $class->SUPER::new($type);
+
+ # add our fields
+ $ncond->[_cond_] = $cond;
+
+ return $ncond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Negative::getCondition = \&Condition;
+
+
+#---------------------------------------------------------------------#
+# my $cond = $ncond->Condition()
+# $ncond->Condition($cond)
+# get/set the condition's sub condition
+#---------------------------------------------------------------------#
+sub Condition {
+ (@_==2) ? $_[0]->[_cond_] = $_[1] :
+ $_[0]->[_cond_];
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Negative - SAC NegativeConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Negative->new($type,$cond)
+
+=item * $cond->new($type,$cond)
+
+Creates a new negative condition.
+
+=item * $ccond->Condition([$cond])
+
+get/set the condition's sub condition
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
Index: Positional.pm
===================================================================
RCS file: /cvsroot/perl-css/CSS-SAC/lib/CSS/SAC/Condition/Positional.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Positional.pm 2001/08/17 13:32:15 1.1.1.1
+++ Positional.pm 2001/08/17 17:50:15 1.2
@@ -1,182 +1,182 @@
-
-###
-# CSS::SAC::Condition::Positional - SAC PositionalConditions
-# Robin Berjon <ro...@kn...>
-# 24/02/2001
-###
-
-package CSS::SAC::Condition::Positional;
-use strict;
-use vars qw($VERSION);
-$VERSION = $CSS::SAC::VERSION || '0.03';
-
-use base qw(CSS::SAC::Condition);
-
-
-#---------------------------------------------------------------------#
-# build the fields for an array based object
-#---------------------------------------------------------------------#
-use Class::ArrayObjects extend => {
- class => 'CSS::SAC::Condition',
- with => [qw(
- _position_
- _same_type_
- _same_node_type_
- )],
- };
-#---------------------------------------------------------------------#
-
-
-
-
-### Constructor #######################################################
-# #
-# #
-
-
-#---------------------------------------------------------------------#
-# CSS::SAC::Condition::Positional->new($type,$position,$node_type,$same_type)
-# creates a new sac PositionalCondition object
-#---------------------------------------------------------------------#
-sub new {
- my $class = ref($_[0])?ref(shift):shift;
- my $type = shift; # should be one of the content conditions
- my $position = shift;
- my $same_type = shift;
- my $node_type = shift;
-
-
-### IMPORTANT NOTE ###
-#
-# we will need to parse the new an+b expressions that can be found in
-# positional conditions. In fact, old style simple numbers will be
-# expressed that new way because they can be mapped to it.
-#
-# We'll need to provide for the corresponding accessors. Also, a
-# ->position_matches($pos) method would be cool as it would allow
-# client code to simply ask whether a position matches instead of
-# calculating it itself.
-
-
- # create a condition
- my $pcond = $class->SUPER::new($type);
-
- # add our fields
- $pcond->[_position_] = $position if defined $position;
- $pcond->[_same_type_] = $same_type if defined $same_type;
- $pcond->[_same_node_type_] = $node_type if defined $node_type;
-
- return $pcond;
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Constructor #######################################################
-
-
-
-### Accessors #########################################################
-# #
-# #
-
-# aliases
-*CSS::SAC::Condition::Positional::getPosition = \&Position;
-*CSS::SAC::Condition::Positional::getType = \&Type;
-*CSS::SAC::Condition::Positional::getTypeNode = \&TypeNode;
-
-
-#---------------------------------------------------------------------#
-# my $pos = $pcond->Position()
-# $pcond->Position($pos)
-# get/set the condition's position
-#---------------------------------------------------------------------#
-sub Position {
- (@_==2) ? $_[0]->[_position_] = $_[1] :
- $_[0]->[_position_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $bool = $pcond->Type()
-# $pcond->Type($bool)
-# get/set the condition's type constraint
-#---------------------------------------------------------------------#
-sub Type {
- (@_==2) ? $_[0]->[_same_type_] = $_[1] :
- $_[0]->[_same_type_];
-}
-#---------------------------------------------------------------------#
-
-
-#---------------------------------------------------------------------#
-# my $bool = $pcond->TypeNode()
-# $pcond->TypeNode($bool)
-# get/set the condition's node type constraint
-#---------------------------------------------------------------------#
-sub TypeNode {
- (@_==2) ? $_[0]->[_same_node_type_] = $_[1] :
- $_[0]->[_same_node_type_];
-}
-#---------------------------------------------------------------------#
-
-
-# #
-# #
-### Accessors #########################################################
-
-
-
-1;
-
-=pod
-
-=head1 NAME
-
-CSS::SAC::Condition::Positional - SAC PositionalConditions
-
-=head1 SYNOPSIS
-
- see CSS::SAC::Condition
-
-=head1 DESCRIPTION
-
-This is a subclass of CSS::SAC::Condition, look there for more
-documentation. This class adds the following methods (the spec
-equivalents are available as well, just prepend 'get'):
-
-=head1 METHODS
-
-=over 4
-
-=item * CSS::SAC::Condition::Positional->new($type,$pos,$node_type,$same_type)
-
-=item * $cond->new($type,$pos,$node_type,$same_type)
-
-Creates a new positional condition.
-
-=item * $pcond->Position([$pos])
-
-get/set the condition's position
-
-=item * $pcond->Type([$bool])
-
-get/set the condition's type constraint
-
-=item * $pcond->TypeNode([$bool])
-
-get/set the condition's node type constraint
-
-=back
-
-=head1 AUTHOR
-
-Robin Berjon <ro...@kn...>
-
-This module is licensed under the same terms as Perl itself.
-
-=cut
-
-
+
+###
+# CSS::SAC::Condition::Positional - SAC PositionalConditions
+# Robin Berjon <ro...@kn...>
+# 24/02/2001
+###
+
+package CSS::SAC::Condition::Positional;
+use strict;
+use vars qw($VERSION);
+$VERSION = $CSS::SAC::VERSION || '0.03';
+
+use base qw(CSS::SAC::Condition);
+
+
+#---------------------------------------------------------------------#
+# build the fields for an array based object
+#---------------------------------------------------------------------#
+use Class::ArrayObjects extend => {
+ class => 'CSS::SAC::Condition',
+ with => [qw(
+ _position_
+ _same_type_
+ _same_node_type_
+ )],
+ };
+#---------------------------------------------------------------------#
+
+
+
+
+### Constructor #######################################################
+# #
+# #
+
+
+#---------------------------------------------------------------------#
+# CSS::SAC::Condition::Positional->new($type,$position,$node_type,$same_type)
+# creates a new sac PositionalCondition object
+#---------------------------------------------------------------------#
+sub new {
+ my $class = ref($_[0])?ref(shift):shift;
+ my $type = shift; # should be one of the content conditions
+ my $position = shift;
+ my $same_type = shift;
+ my $node_type = shift;
+
+
+### IMPORTANT NOTE ###
+#
+# we will need to parse the new an+b expressions that can be found in
+# positional conditions. In fact, old style simple numbers will be
+# expressed that new way because they can be mapped to it.
+#
+# We'll need to provide for the corresponding accessors. Also, a
+# ->position_matches($pos) method would be cool as it would allow
+# client code to simply ask whether a position matches instead of
+# calculating it itself.
+
+
+ # create a condition
+ my $pcond = $class->SUPER::new($type);
+
+ # add our fields
+ $pcond->[_position_] = $position if defined $position;
+ $pcond->[_same_type_] = $same_type if defined $same_type;
+ $pcond->[_same_node_type_] = $node_type if defined $node_type;
+
+ return $pcond;
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Constructor #######################################################
+
+
+
+### Accessors #########################################################
+# #
+# #
+
+# aliases
+*CSS::SAC::Condition::Positional::getPosition = \&Position;
+*CSS::SAC::Condition::Positional::getType = \&Type;
+*CSS::SAC::Condition::Positional::getTypeNode = \&TypeNode;
+
+
+#---------------------------------------------------------------------#
+# my $pos = $pcond->Position()
+# $pcond->Position($pos)
+# get/set the condition's position
+#---------------------------------------------------------------------#
+sub Position {
+ (@_==2) ? $_[0]->[_position_] = $_[1] :
+ $_[0]->[_position_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $bool = $pcond->Type()
+# $pcond->Type($bool)
+# get/set the condition's type constraint
+#---------------------------------------------------------------------#
+sub Type {
+ (@_==2) ? $_[0]->[_same_type_] = $_[1] :
+ $_[0]->[_same_type_];
+}
+#---------------------------------------------------------------------#
+
+
+#---------------------------------------------------------------------#
+# my $bool = $pcond->TypeNode()
+# $pcond->TypeNode($bool)
+# get/set the condition's node type constraint
+#---------------------------------------------------------------------#
+sub TypeNode {
+ (@_==2) ? $_[0]->[_same_node_type_] = $_[1] :
+ $_[0]->[_same_node_type_];
+}
+#---------------------------------------------------------------------#
+
+
+# #
+# #
+### Accessors #########################################################
+
+
+
+1;
+
+=pod
+
+=head1 NAME
+
+CSS::SAC::Condition::Positional - SAC PositionalConditions
+
+=head1 SYNOPSIS
+
+ see CSS::SAC::Condition
+
+=head1 DESCRIPTION
+
+This is a subclass of CSS::SAC::Condition, look there for more
+documentation. This class adds the following methods (the spec
+equivalents are available as well, just prepend 'get'):
+
+=head1 METHODS
+
+=over 4
+
+=item * CSS::SAC::Condition::Positional->new($type,$pos,$node_type,$same_type)
+
+=item * $cond->new($type,$pos,$node_type,$same_type)
+
+Creates a new positional condition.
+
+=item * $pcond->Position([$pos])
+
+get/set the condition's position
+
+=item * $pcond->Type([$bool])
+
+get/set the condition's type constraint
+
+=item * $pcond->TypeNode([$bool])
+
+get/set the condition's node type constraint
+
+=back
+
+=head1 AUTHOR
+
+Robin Berjon <ro...@kn...>
+
+This module is licensed under the same terms as Perl itself.
+
+=cut
+
+
|