Annotation of perl/modules/fast.diff, revision 1.1.2.1
1.1.2.1 ! eric 1: Index: W3C/Rdf/Atoms.pm
! 2: ===================================================================
! 3: RCS file: /sources/public/perl/modules/W3C/Rdf/Atoms.pm,v
! 4: retrieving revision 1.25
! 5: diff -u -r1.25 Atoms.pm
! 6: --- W3C/Rdf/Atoms.pm 2002/12/23 20:03:48 1.25
! 7: +++ W3C/Rdf/Atoms.pm 2002/12/26 20:52:54
! 8: @@ -389,10 +389,10 @@
! 9: my $self = $class->SUPER::new();
! 10: ($self->{TRUSTED}, $self->{SOURCE}, $self->{AUTH}, $self->{PARENT}) =
! 11: ($trusted, $source, $auth, $parent);
! 12: - eval {$self->{SOURCE}->show};
! 13: - if ($@) {
! 14: - print %$self,"\n";
! 15: - }
! 16: +# eval {$self->{SOURCE}->show};
! 17: +# if ($@) {
! 18: +# print %$self,"\n";
! 19: +# }
! 20: return $self;
! 21: }
! 22:
! 23: @@ -992,10 +992,16 @@
! 24: if ($uri =~ m/^[a-zA-Z]*:/) {
! 25: $absoluteUri = $uri;
! 26: } else {
! 27: - eval {
! 28: - $absoluteUri = new URI::URL($uri, $base)->abs->as_string;
! 29: - }; if ($@) {
! 30: - &throw(new W3C::Util::MalformedUriException(-uri => $uri));
! 31: + if ($uri =~ /^\#/) {
! 32: + $absoluteUri = $base.$uri;
! 33: + } elsif ($uri eq '') {
! 34: + $absoluteUri = $base;
! 35: + } else {
! 36: + eval {
! 37: + $absoluteUri = new URI::URL($uri, $base)->abs->as_string;
! 38: + }; if ($@) {
! 39: + &throw(new W3C::Util::MalformedUriException(-uri => $uri));
! 40: + }
! 41: }
! 42: }
! 43: return $self->getAbsoluteUri($absoluteUri, $flags);
! 44: Index: W3C/Rdf/Parser.pm
! 45: ===================================================================
! 46: RCS file: /sources/public/perl/modules/W3C/Rdf/Parser.pm,v
! 47: retrieving revision 1.67
! 48: diff -u -r1.67 Parser.pm
! 49: --- W3C/Rdf/Parser.pm 2002/04/18 22:04:31 1.67
! 50: +++ W3C/Rdf/Parser.pm 2002/12/26 20:44:51
! 51: @@ -450,7 +450,7 @@
! 52: }
! 53: push (@parms, $result);
! 54: }
! 55: - my $parmString = join (', ', map {$_ ? ref $_ ? scalar $_->show('', $self->{-namespaceHandler}) : '!'.$_.'!' : 'NULL'}@parms);
! 56: + my $parmString = ''; # join (', ', map {$_ ? ref $_ ? scalar $_->show('', $self->{-namespaceHandler}) : '!'.$_.'!' : 'NULL'}@parms);
! 57: # print $funcOrVar.'('.$parmString.")\n";
! 58: if ($command eq 'addStatement') {
! 59: $result = $self->{-rdfDB}->addStatement(@parms, $self->{ATTRIBUTION});
! 60: @@ -461,11 +461,12 @@
! 61: } elsif ($command eq 'mappedNode') {
! 62: $result = $self->{-atomDictionary}->getMappedNode(@parms, $self->{ATTRIBUTION});
! 63: } elsif ($command eq 'checkTrust') {
! 64: + if (0) {
! 65: if (my $nextAttribution = $self->{-trustedIds}{$parms[0]->show}) {
! 66: my $currentAttribution = $self->{ATTRIBUTION}->show;
! 67: # print "switching from $currentAttribution to $parmString\n";
! 68: $result = $self->{ATTRIBUTION} = $nextAttribution;
! 69: - }
! 70: + }}
! 71: } elsif ($command eq 'echo') {
! 72: print $parmString."\n";
! 73: } elsif ($command eq 'warning') {
! 74: @@ -725,7 +726,7 @@
! 75: $self->{STACK}[-1]{-variables}{'elementNs'} = $self->{-atomDictionary}->getUriLink($namespace, $self->{SYSTEM_ID});
! 76: $self->{STACK}[-1]{-variables}{'sp'} = $self->{-atomDictionary}->getString(scalar @{$self->{STACK}}, 'PLAIN');
! 77:
! 78: - $self->calculateSum($name, $attributeList);
! 79: +# $self->calculateSum($name, $attributeList);
! 80: if ($self->{STACK}[-2]{-literalMode}) {
! 81: my $elementStr = $qName;
! 82: for (my $i = 0; $i < $attributeList->getLength; $i++) {
! 83: @@ -776,7 +777,7 @@
! 84: sub endElement {
! 85: my ($self, $namespace, $localName, $qName) = @_;
! 86: my $name = $namespace.$localName;
! 87: - $self->sumParent;
! 88: +# $self->sumParent;
! 89:
! 90: if (my $literalArgs = $self->{STACK}[-1]{-literalMode}) {
! 91: if ($self->{STACK}[-2]{-literalMode}) {
! 92: @@ -824,7 +825,7 @@
! 93: my $nameAtom = $self->{-atomDictionary}->getString($ch, 'PLAIN');# !!! need a real solution rather than
! 94: my $nameTmp = $self->{STACK}[-1]{-variables}{'name'};
! 95: $self->{STACK}[-1]{-variables}{'name'} = $nameAtom; # treating the characters as a tag
! 96: - $self->calculateSum($ch, undef);
! 97: +# $self->calculateSum($ch, undef);
! 98: $self->{STACK}[-1]{-variables}{'name'} = $nameTmp;
! 99: }
! 100: if ($self->{STACK}[-1]{-literalMode}) {
! 101: Index: W3C/Rdf/RdfDB.pm
! 102: ===================================================================
! 103: RCS file: /sources/public/perl/modules/W3C/Rdf/RdfDB.pm,v
! 104: retrieving revision 1.134
! 105: diff -u -r1.134 RdfDB.pm
! 106: --- W3C/Rdf/RdfDB.pm 2002/11/14 12:37:28 1.134
! 107: +++ W3C/Rdf/RdfDB.pm 2002/12/26 20:52:59
! 108: @@ -768,11 +768,11 @@
! 109: push (@errors, $self->makeAtomErrorString('attrib', $triple->getAttribution));}
! 110: if (@errors) {
! 111: $self->{-errorHandler}->fatalError(new W3C::Rdf::RdfDBException("added bogus triple $triple to triple database: $self - ".join(' - ', @errors)));
! 112: - }
! 113: - if (exists $self->{BY_CONTENTS}{$triple->getPredicate->show}{$triple->getSubject->show}{
! 114: - $triple->getObject}{$triple->getAttribution->show}) {
! 115: - $self->{-errorHandler}->warning(new W3C::Rdf::RdfDBException('added duplicage triple '.$triple->show.' to triple database: '.$self));
! 116: }
! 117: +# if (exists $self->{BY_CONTENTS}{$triple->getPredicate->show}{$triple->getSubject->show}{
! 118: +# $triple->getObject}{$triple->getAttribution->show}) {
! 119: +# $self->{-errorHandler}->warning(new W3C::Rdf::RdfDBException('added duplicage triple '.$triple->show.' to triple database: '.$self));
! 120: +# }
! 121:
! 122: # notify interested observers
! 123: foreach my $observerEntry (@{$self->{OBSERVERS}}) {
Webmaster