:i/検索/流れ/コード のバックアップ差分(No.7)

• バックアップ一覧
• ソース を表示
• バックアップ を表示
• :i/検索/流れ/コード は削除されています。
  • 1 (2008-09-29 (月) 01:28:41)
  • 2 (2008-09-29 (月) 01:30:39)
  • 3 (2008-09-30 (火) 06:11:20)
  • 4 (2011-12-14 (水) 01:29:17)
  • 5 (2012-08-27 (月) 20:00:46)
  • 6 (2013-02-21 (木) 23:53:48)
  • 7 (2013-03-20 (水) 22:39:00)

• 追加された行はこの色です。
• 削除された行はこの色です。

RIGHT:[[:t/検索]] [[:t/コード]]
RIGHT:[[:t/検索]] [[:t/実装]]

 package main;
 
 use strict;
 use Smart::Comments;
 
 {
 	my @elements;
 	
 	@elements = (Element::PlainText->new(' *** Sample sites ***'), Element::URI->new('http://1.com/3rd'), Element::URI->new('http://3.com/2nd/'), Element::URI->new('http://2.com/1st/'));
 	
 	{
 		### not sorted, not filtered:
 		my $page = Page->new(@elements);
 		print $page->out();
 	}
 	print "\n--------\n";
 	
 	{
 		### sorted:
 		my $page = Page->new(Element::Container::Sort->new(@elements));
 		print $page->out();
 	}
 	print "\n--------\n";
 	
 	{
 		### link list:
 		my $page = Page->new(Element::Container::Filter->new(@elements));
 		print $page->out();
 	}
 	print "\n--------\n";
 	
 	{
 		### link list sorted by label:
 		my $page = Page->new(Element::Container::Sort->new(Element::Container::Filter->new(@elements)));
 		print $page->out();
 	}
 	print "\n--------\n";
 }
 
 package Page;
 
 sub new
 {
 	my $class = shift;
 	bless { element => [@_] }, $class;
 }
 
 sub elements
 {
 	my $self = shift;
 	map { $_->elements() } @{$self->{element}};
 }
 
 sub out
 {
 	my $self = shift;
 	join "\n", map { $_->out() } $self->elements();
 }
 
 sub string
 {
 	my $self = shift;
 	join '', map { $_->string() } $self->elements();
 }
 
 package Element::Container::Sort;
 
 sub new
 {
 	my $class = shift;
 	bless { element => [@_] }, $class;
 }
 
 sub elements
 {
 	my $self = shift;
 	my @r;
 	foreach (@{$self->{element}}){
 		push @r, $_->elements();
 	}
 	sort { $a->string() cmp $b->string() } @r;
 }
 
 sub out
 {
 	my $self = shift;
 	map { $_->out() } $self->elements();
 }
 
 sub string
 {
 	my $self = shift;
 	join '', map { $_->string() } $self->elements();
 }
 
 package Element::Container::Filter;
 
 sub new
 {
 	my $class = shift;
 	bless { element => [@_] }, $class;
 }
 
 sub elements
 {
 	my $self = shift;
 	my @r;
 	foreach (@{$self->{element}}){
 		push @r, map {
 			$_->fetch_by('label') =~ m%http://[^/]*/([^/]*)%;
 			ref($_)->new($_->fetch_by('uri'), $1);
 		}
 		grep {
 			$_->isa('Element::URI');
 		} $_->elements();
 	}
 	
 	@r;
 }
 
 sub out
 {
 	my $self = shift;
 	map { $_->out() } $self->elements();
 }
 
 sub string
 {
 	my $self = shift;
 	join '', map { $_->string() } $self->elements();
 }
 
 package Element::URI;
 
 sub new
 {
 	my $class = shift;
 	my($uri, $label) = @_;
 	$label = $label ? $label : $uri;
 	bless { uri => $uri, label => $label }, $class;
 }
 
 sub elements
 {
 	$_[0];
 }
 
 sub out
 {
 	my $self = shift;
 	'<a href="'.$self->{uri}.'">'.$self->{label}.'</a>';
 }
 
 sub fetch_by
 {
 	my $self = shift;
 	my($request) = @_;
 	my $r;
 	if ($request eq 'label'){
 		$r = $self->_label();
 	}
 	elsif ($request eq 'uri'){
 		$r = $self->_uri();
 	}
 	else {
 		$r = $self->string();
 	}
 	$r;
 }
 
 sub string
 {
 	my $self = shift;
 	$self->{label};
 }
 
 sub _uri
 {
 	my $self = shift;
 	$self->{uri};
 }
 
 sub _label
 {
 	my $self = shift;
 	$self->{label};
 }
 
 package Element::PlainText;
 
 sub new
 {
 	my $class = shift;
 	bless { text => $_[0] }, $class;
 }
 
 sub elements
 {
 	$_[0];
 }
 
 sub out
 {
 	$_[0]->{text};
 }
 
 sub fetch_by
 {
 	my $self = shift;
 	$self->string();
 }
 
 sub string
 {
 	$_[0]->{text};
 }

------------------------------------------------

 ### not sorted, not filtered:
  *** Sample sites ***
 <a href="http://1.com/3rd">http://1.com/3rd</a>
 <a href="http://3.com/2nd/">http://3.com/2nd/</a>
 <a href="http://2.com/1st/">http://2.com/1st/</a>
 --------
 
 ### sorted:
  *** Sample sites ***
 <a href="http://1.com/3rd">http://1.com/3rd</a>
 <a href="http://2.com/1st/">http://2.com/1st/</a>
 <a href="http://3.com/2nd/">http://3.com/2nd/</a>
 --------
 
 ### link list:
 <a href="http://1.com/3rd">3rd</a>
 <a href="http://3.com/2nd/">2nd</a>
 <a href="http://2.com/1st/">1st</a>
 --------
 
 ### link list sorted by label:
 <a href="http://2.com/1st/">1st</a>
 <a href="http://3.com/2nd/">2nd</a>
 <a href="http://1.com/3rd">3rd</a>
 --------