[Openinteract-commits] CVS: OpenInteract2 build_bricks,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19764

Modified Files:
	build_bricks 
Log Message:
OIN-121: updates to generated ::Brick classes

Index: build_bricks
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/build_bricks,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** build_bricks	28 Jan 2005 15:40:04 -0000	1.1
--- build_bricks	28 Jan 2005 16:30:21 -0000	1.2
***************
*** 75,78 ****
--- 75,79 ----
          my %params = (
              brick_name        => $brick_name,
+             lc_brick_name     => lc $brick_name,
              brick_summary     => $brick_info->[1],
              brick_example     => $brick_info->[2],
***************
*** 81,88 ****
              all_files         => \@brick_files,
          );
!         my $output_file = "lib/OpenInteract2/Bricks/$brick_name.pm";
          $template->process( \$brick_template, \%params, $output_file )
              || die "Cannot process files from '$brick_dir' -> '$output_file': ", $template->error();
!         print "Generated $output_file ok\n";
      }
  }
--- 82,93 ----
              all_files         => \@brick_files,
          );
!         my $brick_lib_dir = 'lib/OpenInteract2/Brick';
!         unless ( -d $brick_lib_dir ) {
!             mkdir( $brick_lib_dir );
!         }
!         my $output_file = "$brick_lib_dir/$brick_name.pm";
          $template->process( \$brick_template, \%params, $output_file )
              || die "Cannot process files from '$brick_dir' -> '$output_file': ", $template->error();
!         print "Generated $output_file with ", scalar( @brick_files ), " inlined files\n";
      }
  }
***************
*** 132,145 ****
  
  __DATA__
! package OpenInteract2::Bricks::[% brick_name %];
  
  use strict;
! use base qw( OpenInteract2::Bricks );
  use Inline::Files;
  
  sub get_resources {
      return (
  [% FOREACH file_info = all_files -%]
!         '[% file_info.name %]' => [ '[% file_info.inline_name %]', '[% file_info.destination %]', '[% file_info.evaluatable %]' ],
  [% END -%]
      );
--- 137,161 ----
  
  __DATA__
! package OpenInteract2::Brick::[% brick_name %];
  
  use strict;
! use base qw( OpenInteract2::Brick );
  use Inline::Files;
+ use OpenInteract2::Exception qw( oi_error );
+ 
+ my %INLINES = (
+ [% FOREACH file_info = all_files -%]
+     '[% file_info.name %]' = '[% file_info.inline_name %]',
+ [% END -%]
+ );
+ 
+ sub get_name {
+     return '[% lc_brick_name %]';
+ }
  
  sub get_resources {
      return (
  [% FOREACH file_info = all_files -%]
!         '[% file_info.name %]' => [ '[% file_info.destination %]', '[% file_info.evaluatable %]' ],
  [% END -%]
      );
***************
*** 147,159 ****
  
  sub load {
!     my ( $class, $name ) = @_;
!     return join( '', <$name> );
  }
  
  =pod
  
  =head1 NAME
  
! OpenInteract2::Bricks::[% brick_name %] - [% brick_summary %]
  
  =head1 SYNOPSIS
--- 163,182 ----
  
  sub load {
!     my ( $self, $resource_name ) = @_;
!     my $inline_name = $INLINES{ $resource_name };
!     unless ( $inline_name ) {
!         oi_error "Resource name '$resource_name' not found ",
!                  "in ", ref( $self ), "; cannot load content.";
!     }
!     return join( '', <$inline_name> );
  }
  
+ OpenInteract2::Brick->register_factory_type( get_name() => __PACKAGE__ );
+ 
  =pod
  
  =head1 NAME
  
! OpenInteract2::Brick::[% brick_name %] - [% brick_summary %]
  
  =head1 SYNOPSIS
***************
*** 165,168 ****
--- 188,193 ----
  [% brick_description %]
  
+ These resources are associated with OpenInteract2 version [% oi2_version %].
+ 
  =head1 COPYRIGHT