From: Uri Guttman Date: Fri, 31 Oct 2008 01:43:59 +0000 (-0500) Subject: initial commit X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FCMS-Simple.git;a=commitdiff_plain;h=9e609156353bacdda67eb190212f4d67181bbe83 initial commit --- 9e609156353bacdda67eb190212f4d67181bbe83 diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..d1f8c03 --- /dev/null +++ b/.gitignore @@ -0,0 +1,11 @@ +;; This buffer is for notes you don't want to save, and for Lisp evaluation. +;; If you want to create a file, visit that file with C-x C-f, +;; then enter the text in that file's own buffer. + +CVS +*.gz +blib +*.tar +old +*~ + diff --git a/CMS/Simple.pm b/CMS/Simple.pm new file mode 100644 index 0000000..f47fb3f --- /dev/null +++ b/CMS/Simple.pm @@ -0,0 +1,442 @@ +package CMS::Simple ; + +use warnings ; +use strict ; + +use Carp ; +use Data::Dumper ; + +use CMS::Simple::Parse ; +use Template::Simple ; +use File::Slurp ; + + +our $VERSION = '0.01' ; + + +my %defaults = ( + +### +# use File::Path and other modules to make paths clean and portable +### + + working_dir => '.', + content_paths => ['content'], + templates_dir => 'templates', + output_dir => 'output', + +# this is for timestamps + + published_dir => 'published', + + template_args => {}, +) ; + +my %parsers = ( + + cont => \&CMS::Simple::Parse::parse_content, + csv => \&CMS::Simple::Parse::parse_csv, + pl => \&_parse_perl, +# yaml => \&parse_yaml, +) ; + +sub new { + + my( $class, $args ) = @_ ; + + my $self = bless { %defaults, %{$args} }, $class ; + + $self->_invert_filter_tags() ; + + $self->_make_dirs() ; + +# rename/clean dirs?? + + $self->_load_content() ; + +#### +# add template path arg + + $self->{tmpl_obj} = Template::Simple->new( %{$self->{template_args}} ) ; + + return $self ; +} + + +sub _load_content { + + my( $self ) = @_ ; + + my $contents = $self->{contents} ; + +#print Dumper $contents ; + + while( my( $name, $file ) = each %{$contents} ) { + +###### +# ADD BETTER DIRECTORY STUFF +###### + + my $file_path = "$self->{content_paths}[0]/$file" ; + + my $content_text = read_file( $file_path ) ; + + my ($suffix) = $file_path =~ /\.(\w+)$/ ; + + my $parser = $parsers{ $suffix } ; + + $parser or die "unknown suffix '$suffix'" ; + + my $parsed = $parser->( $content_text ) ; + + $contents->{$name} = { + + file => $file, + text => $content_text, + parsed => $parsed, + } ; + } +#print Dumper $contents ; + +} + +sub build_all_pages { + + my( $self ) = @_ ; + + foreach my $page_name ( keys %{$self->{pages}} ) { + + $self->build_page( $page_name ) ; + } +} + + +sub build_page { + + my( $self, $page_name ) = @_ ; + +#print "BUILD $page_name\n" ; + + my $page = $self->{pages}{$page_name} ; + + return if $page->{skip} ; + + $page->{name} = $page_name ; + + $self->_get_page_content( $page ) ; + +#print Dumper $page ; + + $self->_filter_page_content( $page ) ; + + + $self->_render_page( $page ) ; +#print ${$page->{rendered}} ; + + $self->_output_page( $page ) ; +} + +sub _get_page_content { + + my( $self, $page ) = @_ ; + +####### +# FIX so a page contents can override values and not just whole maps +# ADD contents maps to have multilevel keys +####### + + my $all_contents = $self->{contents} ; + + my $page_contents = $page->{contents} || {} ; + +# loop over the default (common) and page specific content maps + + foreach my $contents_map ( + $self->{default_contents_map}, + $page->{contents_map} ) { + +#print "MAP ", Dumper $contents_map ; + + while( my( $name, $location ) = each %{$contents_map} ) { + +# get the contents for this content name + + my $contents = $all_contents->{$name}{parsed} ; + + $self->_add_page_contents( + $page_contents, + $location, + $contents + ) ; + } + } + + print Dumper $page_contents if $page->{dump} ; + + $page->{contents} = $page_contents ; +} + +sub _add_page_contents { + + my( $self, $page_contents, $location, $contents ) = @_ ; + +######### +# this needs to handle multilevel content location +######### + +# if we have a location, just store the contents there + + if ( $location ) { + + my @loc_keys = split /:/, $location ; +#print "LOC @loc_keys\n" ; + + my $loc_ref = \$page_contents->{ shift @loc_keys } ; + +#print "LOC $loc_ref\n" ; + +# descend into the page contents based on the location keys + + $loc_ref = \${$loc_ref}->{$_} for @loc_keys ; + + ${$loc_ref} = deep_copy( $contents ) ; + + return ; + } + +# no location so store all the top level contents in the top level of +# the page + + @{$page_contents}{keys %{$contents}} = values %{$contents} ; +} + +sub _filter_page_content { + + my( $self, $page ) = @_ ; + +# NOTE content must be a hash at the top + + $self->_filter_content_hash( $page->{contents} ) ; + +#print Dumper $page->{contents} ; +} + +sub _filter_content_hash { + + my( $self, $href, $path ) = @_ ; + + while( my( $tag, $val ) = each %{$href} ) { + + my @new_val = + $self->_filter_content_tag( $tag, $val, $path ) ; + + next unless @new_val ; + $href->{$tag} = $new_val[0] ; + } +} + +sub _filter_content_array { + + my( $self, $tag, $aref, $path ) = @_ ; + +#print "ARRAY: ", Dumper \$tag, $aref ; + + my @new_vals ; + + foreach my $val ( @{$aref} ) { + + push @new_vals, + $self->_filter_content_tag( $tag, $val, $path ) ; + } + + @{$aref} = @new_vals ; + +#print Dumper $aref ; + +} + +sub _filter_content_tag { + + my( $self, $tag, $val, $path ) = @_ ; + + my $ref_type = ref $val ; + + if ( $ref_type eq 'HASH' ) { + + $self->_filter_content_hash( $val, $path ) ; + return $val ; + } + + if ( $ref_type eq 'ARRAY' ) { + + $self->_filter_content_array( $tag, $val, $path ) ; + return $val ; + } + + my @new_val = $self->_filter_content_value( $tag, $val, $path ) ; + + return unless @new_val ; + + $val = $new_val[0] ; + + $self->_filter_content_tag( $tag, $val, $path ) if ref $val ; + + return $val ; +} + +sub _filter_content_value { + + my( $self, $tag, $val, $path ) = @_ ; + + my $filters = $self->{tag_to_filters}{$tag} ; + + return unless $filters ; + + my @new_val ; + + foreach my $filter ( @{$filters} ) { + +#print "FILTER $filter->{name}\n" ; + +#print "TAG $tag [$val]\n" unless defined $val; + +$val = '' unless defined $val || $tag ne 'text' ; + + @new_val = $filter->{code}->( $tag, $val, $path ) ; + + next unless @new_val ; + + $val = $new_val[0] ; + } + +#print "TAG: $tag: ", Dumper \$val ; + +# return if nothing was changed + + return unless @new_val ; + + return $val ; +} + +sub _render_page { + + my( $self, $page ) = @_ ; + + my $tmpl_obj = $self->{tmpl_obj} ; + +# NOTE: using internal method. will fix template::simple to expose it + + my $tmpl_name = $page->{template} || $self->{default_template} ; + + my $template = $tmpl_obj->_get_template( $tmpl_name ) ; + +#print Dumper $page->{contents} ; + + my $rendered = $tmpl_obj->render( $template, $page->{contents} ) ; + + $page->{rendered} = $rendered ; +} + + + +sub _output_page { + + my( $self, $page ) = @_ ; + +########## +# use file::path stuff to make this portable +########## + + my $output_path = + "$self->{'output_dir'}/$page->{name}$self->{'output_suffix'}" ; + + $page->{'output_path'} = $output_path ; + + write_file( $output_path, $page->{rendered} ) ; +} + +sub publish_output { + + my( $self ) = @_ ; + + while ( my($name, $page) = each %{$self->{'pages'}} ) { + + my $output_file = $self->{'pages'}{$name}{'output_file'} ; + + my $remote_host = $self->{'remote_host'} ; + my $remote_user = $self->{'remote_user'} ; + my $remote_directory = $self->{'remote_directory'} ; + + # Strip trailing slash if there is one, then replace it... + # so that dir always ends in slash whether or not one is passed: + # (Note: not portable outside Linux/unix!) + + $remote_directory =~ s/^(.*)\/$/$1/ ; + + my $scp = Net::SCP->new() ; + + die "Unable to construct remote destination" unless + ( $remote_host && $remote_user && $remote_directory ) ; + + # Construct remote destination from class attributes: + my $destination = "${remote_user}\@${remote_host}:${remote_directory}/" ; + + # Use 'iscp' for interactive scp: + $scp->iscp( $output_file, $destination ) or die $scp->{errstr}; + + } +} + +sub _parse_perl { + + my( $text ) = @_ ; + + return eval $text ; +} + + +# change +sub deep_copy { + + my( $val ) = @_ ; + + return $val unless ref $val ; + + return [ map deep_copy( $_ ), @{$val} ] if ref $val eq 'ARRAY' ; + + return { map { $_, deep_copy( $val->{$_} ) } keys %{$val} } + if ref $val eq 'HASH' ; + + die "$val is not a scalar, ARRAY or HASH" ; +} + + +sub _make_dirs { + + my( $self ) = @_ ; + +############ +# use File::Path to make deep dirs +########### + + mkdir( $self->{output_dir} ) ; + mkdir( $self->{published_dir} ) ; +} + +sub _invert_filter_tags { + + my( $self) = @_ ; + + my %tag_to_filters ; + + foreach my $filter ( @{$self->{filters}} ) { + + push @{$tag_to_filters{$_}}, $filter for @{$filter->{tags}} ; + } + +#print Dumper \%tag_to_filters ; + + $self->{tag_to_filters} = \%tag_to_filters ; +} + +1 ; diff --git a/CMS/Simple/Filter/Markup.pm b/CMS/Simple/Filter/Markup.pm new file mode 100644 index 0000000..3861f94 --- /dev/null +++ b/CMS/Simple/Filter/Markup.pm @@ -0,0 +1,105 @@ + +package CMS::Simple::Filter::Markup ; + +use strict ; +use warnings ; + +my %markup_to_code = ( + + l => \&make_link, + link => \&make_link, + email => \&make_email, + image => \&make_image, + image_link => \&make_image_link, + ilink => \&make_image_link, + nbsp => sub { ' ' }, + em_dash => sub { '—' }, + eacute => sub { 'é' }, + copy => sub { '©' }, + p => sub { '

' }, + br => sub { '
' }, + gmap => \&google_map, +) ; + +sub filter_markup { + + my( $tag, $text ) = @_ ; + +#print "TEXT $text\n" ; + + return unless $text =~ + s{(?($text) ; +} + +sub make_link { + + my( $text ) = @_ ; + + my( $url, $url_text ) = split /\|/, $text ; + + $url_text ||= $url ; + + return qq{$url_text} ; +} + +sub google_map { + + my( $text ) = @_ ; + + ( my $url_text = $text ) =~ tr/ \t\n\r/+/s ; + + return +qq{$text} ; +} + +sub make_email { + + my( $text ) = @_ ; + + my( $user, $domain ) = split /\@/, $text ; + + return < +document.write('$user AT $domain') + + +EMAIL + +} + +sub make_image_link { + + my( $text ) = @_ ; + + my( $url, $image_url ) = split /\|/, $text ; + + return qq{} ; +} + +sub make_image { + + my( $text ) = @_ ; + + return qq{} ; +} diff --git a/CMS/Simple/Parse.pm b/CMS/Simple/Parse.pm new file mode 100644 index 0000000..c6d9f1c --- /dev/null +++ b/CMS/Simple/Parse.pm @@ -0,0 +1,129 @@ +package CMS::Simple::Parse ; + + +use strict ; +use warnings ; + +use Data::Dumper ; + +sub parse_content { + + my( $text ) = @_ ; + +#print $text ; + + my $lines = [ $text =~ m{(.*?$/)}sg ] ; + + return parse_lines( {}, $lines ) ; +} + +sub parse_lines { + + my( $curr_hash, $lines ) = @_ ; + + my $content = '' ; + my $scalar_tag ; + + while( my $line = shift @{$lines} ) { + +# skip blank lines + +# next unless $line =~ /\S/ ; + +# look for tag:: lines and parse them out. +# ignore leading white space, grad for a word followed by 1 or 2 :'s. +# also grab any optional content following the tag + + unless( $line =~ /^\s*(\w+)(::?)\s+(.*)\z/s ) { + +# no tag found so just add this line to the current scalar content + + $content .= $line ; + next ; + } + + my $tag = $1 ; + +# save any existing scalar as we found a new tag entry + + if ( $scalar_tag ) { + _store_value( $curr_hash, $scalar_tag, $content ) ; + $scalar_tag = '' ; + } + +# see we at the end of a structure. if so, return what we have parsed + + return $curr_hash if $tag eq 'END' ; + +# see if this a start of a structure. if so, recursively parse and +# store it any content on the structure tag line is ignored. its value +# is always a hash ref of the structure data. + + if( $2 eq '::' ) { + + my $new_val = parse_lines( {}, $lines ) ; + _store_value( $curr_hash, $tag, $new_val ) ; + next ; + } + +# now it must be a new scalar entry. save any new content on this line + + $scalar_tag = $tag ; + $content = $3 ; + } + +#print "TAG $scalar_tag\n" ; + _store_value( $curr_hash, $scalar_tag, $content ) if $scalar_tag ; + +#print Dumper $curr_hash ; + + return $curr_hash ; +} + +sub _store_value { + + my( $curr_ref, $tag, $val ) = @_ ; + +# NOTE: always chomping scalar content + + chomp $val unless ref $val ; + + my $curr_val = $curr_ref->{$tag} ; + + + unless( defined $curr_val ) { + +#print "NEW TAG $tag [$val]\n" ; + + $curr_ref->{$tag} = $val ; + return ; + } + + if ( ref $curr_val eq 'ARRAY' ) { + +#print "PUSH TAG $tag [$val]\n" ; + + push( @{$curr_val}, $val ) ; + + return ; + } + +#print "ARRAY TAG $tag [$val]\n" ; + $curr_ref->{$tag} = [ $curr_val, $val ] ; + +} + +# cheapo csv tab file parser + +sub parse_csv { + + my( $text ) = @_ ; + + my @lines = split m{(?<=$/)}, $text ; + + chomp @lines ; + + return [ map [ split /\t/ ], @lines ] ; +} + +1 ; diff --git a/make_slides/bug.pl b/make_slides/bug.pl new file mode 100644 index 0000000..f3dd712 --- /dev/null +++ b/make_slides/bug.pl @@ -0,0 +1,20 @@ +#!/usr/local/bin/perl + +use strict ; +use warnings ; + +use CMS::Simple ; +use Data::Dumper ; + +my $content = CMS::Simple::Parse::parse_content( < 'html_escape', +# tags => [ qw( code ) ], +# code => \&html_escape, +# }, + { + name => 'markup', + tags => [ qw( text email image ) ], + code => \&CMS::Simple::Filter::Markup::filter_markup, + }, +) ; + + +my $conf = { + + output_suffix => '.html', + + contents => { + +# page_header => 'header.cont', +# page_footer => 'footer.cont', +# book => 'compshare.cont', + }, + + filters => \@filters, + + default_template => 'base_page', + +# this maps loaded contents to location in this page's data tree. +# the location will be multilevel later on + +# the page key name is the base name for the output file + + pages => { + + chapters => { + template => 'chapters', + }, + + index => { + + template => 'index', + }, + }, +} ; + + +load_book_content( $conf, $cont_file ) ; + +#print Dumper $conf ; +#print Dumper $conf->{pages} ; + +my $cms = CMS::Simple->new( $conf ) ; + +$cms->build_all_pages() ; + +exit ; + + +sub load_book_content { + + my( $conf, $cont_file ) = @_ ; + + my $cont_text = read_file( "contents/$cont_file" ) ; + my $content = CMS::Simple::Parse::parse_content( $cont_text ) ; + + process_book_content( $conf, $content ) ; + +#print Dumper $content ; + +} + +sub process_book_content { + + my( $conf, $book_cont ) = @_ ; + + my $book_title = $book_cont->{book}{title} ; + + my $chap_conts = $book_cont->{chapter} ; + $chap_conts = [ $chap_conts ] unless ref $chap_conts eq 'ARRAY' ; + + my $chap_num = '01' ; + + foreach my $chap_cont ( @{$chap_conts} ) { + + $chap_cont->{number} = $chap_num++ ; + $chap_cont->{book_title} = $book_title ; + + process_chap_content( $conf, $chap_cont ) ; + } + + process_index_page( $conf, $chap_conts ) ; + +#print Dumper $conf ; + +} + +sub process_index_page { + + my( $conf, $chap_conts ) = @_ ; + + my $index_cont = $conf->{pages}{index}{contents} ||= {} ; + + foreach my $chap_cont ( @{$chap_conts} ) { + + my $page_titles = $chap_cont->{page_title} ; + + push( @{$index_cont->{chapter}}, { + + chap_title => $chap_cont->{title}, + chap_num => $chap_cont->{number}, + page => $page_titles, + } ) ; + } + +print Dumper $index_cont ; + +} + + + +sub process_chap_content { + + my( $conf, $chap_data ) = @_ ; + + my $chap_title = $chap_data->{title} ; + + my $chap_page_cont = $conf->{pages}{chapters}{contents} ||= {} ; + + push( @{$chap_page_cont->{chap_title}}, { + number => $chap_data->{number}, + title => $chap_title + } ) ; + + my $page_conts = $chap_data->{page} ; + $page_conts = [ $page_conts ] unless ref $page_conts eq 'ARRAY' ; + + my $page_num = '01' ; + + foreach my $page_cont ( @{$page_conts} ) { + + $page_cont->{number} = $page_num++ ; + +#print Dumper $page_cont ; + + process_page_content( $conf, $chap_data, $page_cont ) ; + } +} + + +sub process_page_content { + + my( $conf, $chap_data, $page_data ) = @_ ; + + my $chap_title = $chap_data->{title} ; + my $page_title = $page_data->{title} ; + + +#print "TITLE $page_title\n" ; + + my $chap_num = $chap_data->{number} ; + my $page_num = $page_data->{number} ; + + my $page_name = "page-$chap_num$page_num" ; + my $page_url = "$page_name.html" ; + + push( @{$chap_data->{page_title}}, { + number => $page_num, + title => $page_title, + page_link => $page_url, + } ) ; + + my $page = { + + name => $page_name, + template => 'page', + } ; + + my $header_cont = { + + header_title => { + text => $page_title, + }, + + book_title => $chap_data->{book_title} || 'FOO', + index_link => { + text => 'index.html', + }, + chap_link => 'chapters.html', + } ; + + if ( $page_num > 1 ) { + + my $prev_page_num = sprintf "%02d", $page_num - 1 ; + $header_cont->{prev_link} = { + prev_page => "page-$chap_num$prev_page_num.html", + } ; + } + + if ( $page_num < 50 ) { + + my $next_page_num = sprintf "%02d", $page_num + 1 ; + $header_cont->{next_link} = { + next_page => "page-$chap_num$next_page_num.html", + } ; + } + + +#print Dumper $page_data ; + + my $items = process_page_items( $page_data ) ; + + my $page_cont = { + page => { + item => $items, + }, + } ; + + set_page_header_data( $page_cont, $header_cont ) ; + + $page->{contents} = $page_cont ; +#print Dumper $page_cont ; + + $conf->{pages}{$page_name} = $page ; + +} + +sub process_page_items { + + my( $page_data ) = @_ ; + + my $items = $page_data->{item} ; + $items = [ $items ] unless ref $items eq 'ARRAY' ; + + foreach my $item ( @{$items} ) { + + + if ( ref $item ) { + + $item->{title} = { + text => $item->{title}, + } ; + } + else { + + $item = { + title => { + text => $item, + }, + } ; + } + + process_subitems( $item ) ; + process_code( $item ) ; + } + +#print Dumper $items ; + + return $items ; +} + +sub process_subitems { + + my( $item ) = @_ ; + + my $subitems = $item->{subitem} ; + + return unless $subitems ; + + $subitems = [ $subitems ] unless ref $subitems eq 'ARRAY' ; + + $item->{subitems} = [ + map { + + subitem => { + text => $_ + } + }, @{$subitems} + ] ; +} + +sub process_code { + + my( $item ) = @_ ; + + my $code = $item->{code} ; + + return unless $code ; + +# append a newline if needed - scalar content loses a trailing newline + +#print "CODE: [$code]\n" ; + + $code =~ s/(?&"') ; + + $item->{code} = { + text => $code + } ; +} + + + +sub set_page_header_data { + + my( $page_cont, $data ) = @_ ; + + for my $header ( qw( html_header page_header page_footer ) ) { + + @{$page_cont->{$header}}{keys %{$data}} = values %{$data} ; + } +} + diff --git a/make_slides/make.pl b/make_slides/make.pl new file mode 100644 index 0000000..1fe084a --- /dev/null +++ b/make_slides/make.pl @@ -0,0 +1,20 @@ +#!/usr/local/bin/perl + +use strict ; +use warnings ; + +use Data::Dumper ; + +use Template::Simple ; +use CMS::Simple::Parse ; +use File::Slurp ; + + + +my $cont_file = shift || 'slides.cont' ; + +my $cont_text = read_file( $cont_file ) ; + +my $content = CMS::Simple::Parse::parse_content( $cont_text ) ; + +print Dumper $content ; diff --git a/make_slides/make_slides.pl b/make_slides/make_slides.pl new file mode 100755 index 0000000..54f7fa9 --- /dev/null +++ b/make_slides/make_slides.pl @@ -0,0 +1,372 @@ +#!/usr/local/bin/perl -w + +use strict ; + +use Carp ; +use YAML ; + +my @slides ; + +my %book_values ; +my ( $chap_title, $chap_abbrev ) ; + +my $page_num = 0 ; # number as read in +my $slide_num = 0 ; # slide within a chapter +my $chap_num = 0 ; + +my %part2sub = ( + + 'book' => \&process_book, + 'title' => \&process_title, + 'chapter' => \&process_chapter, + 'code' => \&process_code, + 'code2' => \&process_code2, + '*' => \&process_bullet, + '**' => \&process_bullet2, + 'haiku' => \&process_haiku, + 'html' => \&process_html, +) ; + + +read_parse_pages() ; + +make_index() ; + +make_slides() ; + +#print Dump \@slides ; + +exit ; + +sub read_parse_pages { + + local( $/ ) = "PAGE_END\n" ; + + while ( my $page = <> ) { + + chomp( $page ) ; + + next unless $page =~ /\S/ ; + + push @slides, parse_page( $page ) ; + } + + $book_values{'TOTAL_PAGES'} = $page_num ; +} + +sub parse_page { + + my ( $page_text ) = @_ ; + + my $slide = { + 'PAGE_NUM' => ++$page_num, + 'SLIDE_NUM' => ++$slide_num, + 'CHAP_NUM' => $chap_num, + } ; + + foreach my $part ( split( /(?=^(?:\w+|\*+|):)/m, $page_text ) ) { + + next unless $part =~ /\S/ ; + + my ( $part_type, $part_body ) = split /:/, $part, 2 ; + + my $part_sub = $part2sub{ lc $part_type } or die + "unknown slide part '$part_type'\n$page_text" ; + + $part_sub->( $slide, $part_body ) ; + } + + return $slide ; +} + + +sub process_book { + + my( $slide, $book_text ) = @_ ; + + $book_values{'BOOK_NAME'} = $book_text ; +} + +sub process_chapter { + + my( $slide, $chapter_text ) = @_ ; + + ( $chap_title, $chap_abbrev ) = split( /\n/, $chapter_text ) ; + + $chap_title =~ tr/\n / /s ; + $slide->{'CHAPTER'} = $chap_title ; + + if ( $chap_abbrev ) { + $chap_abbrev =~ tr/\n / /s ; + $slide->{'CHAP_ABBREV'} = $chap_abbrev ; + } + + $chap_num++ ; + $slide_num = 1 ; + $slide->{'SLIDE_NUM'} = $slide_num ; + $slide->{'CHAP_NUM'} = $chap_num ; +} + +sub process_title { + + my( $slide, $title_text ) = @_ ; + + $title_text =~ tr/\n / /s ; + + $slide->{'TITLE'} = $title_text ; + + $slide->{'CHAPTER'} = $chap_title ; + $slide->{'CHAP_ABBREV'} = $chap_abbrev ; +} + +sub process_bullet { + + my( $slide, $bullet_text ) = @_ ; + + my ( $bullet, @paras ) = split /\n{2,}/, $bullet_text ; +# escape_entities( $_ ) for $bullet, @paras; + escape_entities( $_ ) for @paras; + + push( @{$slide->{'html_parts'}}, + apply_template( 'bullet', { 'TEXT' => $bullet } ), + map apply_template( 'para', { 'TEXT' => $_ } ), @paras ) ; +} + +sub process_bullet2 { + + my( $slide, $bullet_text ) = @_ ; + + my ( $bullet, @paras ) = split /\n{2,}/, $bullet_text ; +# escape_entities( $_ ) for $bullet, @paras; + escape_entities( $_ ) for @paras; + + push( @{$slide->{'html_parts'}}, "

\n", + ) ; +} + +sub process_code { + + my( $slide, $code_text ) = @_ ; + + $code_text =~ s/^\n// ; + escape_entities( $code_text ) ; + + $code_text =~ s///gi ; + + push( @{$slide->{'html_parts'}}, + apply_template( 'code', { 'TEXT' => $code_text } ) ) ; +} + +# sub process_code2 { + +# my( $slide, $code_text ) = @_ ; + +# $code_text =~ s/^\n// ; +# escape_entities( $code_text ) ; + +# push( @{$slide->{'html_parts'}}, +# apply_template( 'code2', { 'TEXT' => $code_text } ) ) ; +# } + +sub escape_entities { + +print caller() if $_[0] =~ /IMG/ ; + + $_[0] =~ s/&/&/g ; + $_[0] =~ s//>/g ; +} + +sub process_haiku { + + my( $slide, $haiku_text ) = @_ ; + + $haiku_text =~ tr/\n / /s ; + + my @lines = split m{:}, $haiku_text ; + + push( @{$slide->{'html_parts'}}, + apply_template( + 'haiku', + { LINE1 => $lines[0], + LINE2 => $lines[1], + LINE3 => $lines[2] } + ) + ) ; +} + +sub process_html { + + my( $slide, $html_text ) = @_ ; + + push( @{$slide->{'html_parts'}}, $html_text ) ; +} + +sub make_slides { + + foreach my $slide ( @slides ) { + + my $page_num = $slide->{'PAGE_NUM'} ; + + if ( $page_num > 1 ) { + + my $prev_slide = $slides[$page_num - 2] ; + $slide->{'PREV_FILE'} = $prev_slide->{'slide_file'} ; + $slide->{'PREV_TITLE'} = $prev_slide->{'TITLE'} ; + } + + if ( $page_num < $book_values{'TOTAL_PAGES'} ) { + + my $next_slide = $slides[$page_num] ; + $slide->{'NEXT_FILE'} = $next_slide->{'slide_file'} ; + $slide->{'NEXT_TITLE'} = $next_slide->{'TITLE'} ; + } + + + my $header = apply_template( 'header', $slide ) ; + my $footer = apply_template( 'footer', $slide ) ; + + my $slide_file = "slides/$slide->{'slide_file'}" ; + + write_file( $slide_file, + $header, + "
    \n", + @{$slide->{'html_parts'}}, + "
\n", + $footer, + ) ; + } +} + +sub make_index { + + my $name = $book_values{'BOOK_NAME'} || 'Empty' ; + + my $index_html = < + + +Index of $name + +

Index of $name

+

+

    +HTML + + my $toc_html = < + + +Table of Contents for $name + +

    Table of Contents for $name

    +

    +

      +HTML + + foreach my $slide ( @slides ) { + + my $chap_num = $slide->{'CHAP_NUM'} ; + my $slide_num = $slide->{'SLIDE_NUM'} ; + + my $slide_file = sprintf( "slide-%02d%02d.html", + $chap_num, + $slide_num ) ; + + $slide->{'slide_file'} = $slide_file ; + + if ( $slide_num == 1 ) { + + my $chapter = $slide->{'CHAPTER'} || '' ; + + $index_html .= "
    \n" if $chap_num > 1 ; + + $index_html .= <$chap_num. $chapter +
      +HTML + + + $toc_html .= <$chap_num. $chapter +HTML + + } + + $index_html .= <$chap_num.$slide_num $slide->{'TITLE'} +HTML + + } + + $index_html .= < + +HTML + + $toc_html .= < + +HTML + + + write_file( 'slides/index.html', $index_html ) ; + $book_values{'INDEX'} = 'index.html' ; + + write_file( 'slides/toc.html', $toc_html ) ; + $book_values{'TOC'} = 'toc.html' ; +} + +my %templates ; + +sub apply_template { + + my( $tmpl_name, $add_values ) = @_ ; + + my $template = $templates{ $tmpl_name } ; + + unless( $template ) { + + $template = read_file( "templates/$tmpl_name.tmpl" ) ; + + $templates{ $tmpl_name } = $template ; + } + + my %tmpl_values = ( %book_values, %{$add_values} ) ; + + $template =~ s/<%(\w+?)%>/$tmpl_values{$1} || ''/ge ; + + $template =~ s[(.+?)][$1]i ; + + return $template ; +} + +sub read_file { + + my( $file_name ) = shift ; + + my( $buf ) ; + + local( *FH ) ; + + open( FH, $file_name ) || croak "can't open $file_name $!" ; + + return if wantarray ; + + read( FH, $buf, -s FH ) ; + return $buf ; +} + +sub write_file { + + my( $file_name ) = shift ; + + local( *FH ) ; + + open( FH, ">$file_name" ) || croak "can't create $file_name $!" ; + + print FH @_ ; +} diff --git a/make_slides/output/chapters.html b/make_slides/output/chapters.html new file mode 100644 index 0000000..8ee7372 --- /dev/null +++ b/make_slides/output/chapters.html @@ -0,0 +1,33 @@ + + + + + + + + + +
      + + + +
      + + +
      01.
      +
      + Packages Homework + +
      + + + + + + + diff --git a/make_slides/output/index.html b/make_slides/output/index.html new file mode 100644 index 0000000..df04e09 --- /dev/null +++ b/make_slides/output/index.html @@ -0,0 +1,42 @@ + + + + + + + + + +
      + + + + +
      + + +
      .
      +
      + + + +
      01. Donna's Homework +
      + + +
      02. David Toal's Homework +
      + + + + + + + + + diff --git a/make_slides/output/page-0101.html b/make_slides/output/page-0101.html new file mode 100644 index 0000000..2eb5d9f --- /dev/null +++ b/make_slides/output/page-0101.html @@ -0,0 +1,598 @@ + + + + + + + + + + + + +
      + + + + + +

      +
      Donna's Homework +
      +

      + + + + + + Next + + + + Index + + + + + + + +
      + + + +
      + +
      + + + + +
        + + +
        +
      • + +
        + + + + + + + + + + +
        + 
        +
+
+# 3. CallMain1.pl
+
+package CallMain1;
+
+# This version imports the subs with explict args to use command 
+
+use strict;
+use Data::Dumper;
+
+use NewArray1 qw( loadarr printarr);
+
+my $data_file= "data.txt";
+	
+my $AofA = loadarr($data_file);
+
+my ($aref, $hold) = printarr($AofA);	
+
+print "\nThe row with the largest number is: \n" ;
+print Dumper $aref;
+	
+print "\nThe largest number is: \n" ;	
+print Dumper $hold;		
+	
+print "\nProgram Complete:  Array of Array's \n" ;		
+
+use NewHash1 qw( loadhash printhash);
+
+my $hdata_file= "hdata.txt";
+	
+my $HofH = loadhash($hdata_file);
+
+printhash($HofH);	
+
+
+# 4. NewArray1.pm
+
+package NewArray1;
+
+use strict;
+use Data::Dumper;
+
+use base 'Exporter';
+use vars '@EXPORT_OK';
+
+@EXPORT_OK = qw( loadarr printarr );
+
+sub loadarr {
+	
+	my ($fh) = @_;
+		
+	open DAT, "$fh" || die "Could not open file! ($!)";
+
+	print "\nProgram Homework1:  Array of Array's \n" ;		
+	
+	my $AofA ;
+	my $hold = 0;
+	my $aref;
+	
+	while (my $line = <DAT>) {  
+		push @{$AofA},  [split(" ", $line)];
+	}
+	print "\nThe Array of Array's contains: \n" ;		
+	print Dumper @{$AofA}; 
+
+ 	return ($AofA);		
+}
+
+sub printarr {
+	
+	my $hold;
+	my $ele;
+	my $aref;
+	
+	my ($AofA) = @_;
+	
+	foreach my $Arr ( @{$AofA}  ) {	
+		foreach my $ele ( @{$Arr} ) {
+				if ($ele > $hold) {
+					$aref = $Arr;
+					$hold = $ele;
+			}		
+		}
+	}
+	
+	return ($aref, $hold);		
+
+}
+
+# 5. NewHash1.pm
+
+package NewHash1;
+
+use strict;
+use Data::Dumper;
+
+use base 'Exporter';
+use vars '@EXPORT_OK';
+
+@EXPORT_OK = qw( loadhash printhash );
+
+sub loadhash {
+	
+my ($fh) = @_;
+		
+open DAT, "$fh" || die "Could not open file! ($!)";
+
+print "\nProgram Homework1:  Two Level Hash \n\n" ;	
+
+my $HofH;
+
+my $team;
+my $last;
+my $first;
+
+	while (my $line = <DAT>) { 
+	 ($team, $first, $last) = split(" ", $line);		
+	  $HofH->{$team}{$first} = $last;	 
+	} 
+	
+	print Dumper %{$HofH}; 
+	
+	return ($HofH);		
+	
+}
+
+sub printhash {
+ 
+ my ($HofH) = @_;
+ 
+	my %dispatch = (
+		'stooge'	=> \&stooge,
+		'marx'	=> \&marx,
+		'more'	=> \&more,
+	);
+
+	foreach my $team_name (keys %{$HofH})  {												
+		print "\nComedy Team: $team_name\n" ;				
+		my $code_ref = $dispatch{ $team_name };		
+		$code_ref or die "Can't find $team_name in dispatch table" ;
+		 		
+		foreach my $first_name  (sort keys %{ $HofH->{$team_name} } ) {	
+			my $last_name  = $HofH->{$team_name}->{$first_name} ;		
+			print "\nFirst Name : $first_name \n" ;
+			$code_ref->($first_name); 	
+		}
+	}		
+
+	sub stooge {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'stooge'}->{$nameref}\n";
+		}
+	
+	sub marx {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'marx'}->{$nameref}\n";	
+	}
+	
+	sub more {
+		print Dumper "not found";
+	}
+
+}
+
+# 3. CallMain2.pl
+
+package CallArray2;
+
+# This version imports the subs with an %EXPORT_TAGS tag 
+
+use strict;
+use Data::Dumper;
+
+use NewArray2 qw( :Both);
+
+my $data_file= "data.txt";
+	
+my $AofA = loadarr($data_file);
+
+my ($aref, $hold) = printarr($AofA);	
+
+print "\nThe row with the largest number is: \n" ;
+print Dumper $aref;
+	
+print "\nThe largest number is: \n" ;	
+print Dumper $hold;		
+	
+print "\nProgram Complete:  Array of Array's \n" ;		
+
+use NewHash2 qw( :Both);
+
+my $hdata_file= "hdata.txt";
+	
+my $HofH = loadhash($hdata_file);
+
+printhash($HofH);	
+
+
+# 4. NewArray2.pm
+
+package NewArray2;
+
+use strict;
+use Data::Dumper;
+
+use base 'Exporter';
+use vars qw '@EXPORT_OK %EXPORT_TAGS';
+@EXPORT_OK = qw( loadarr printarr );
+%EXPORT_TAGS = ( Both =>[qw(loadarr printarr)]);
+
+sub loadarr {
+	
+	my ($fh) = @_;
+		
+	open DAT, "$fh" || die "Could not open file! ($!)";
+
+	print "\nProgram Homework2:  Array of Array's \n" ;		
+	
+	my $AofA ;
+	my $hold = 0;
+	my $aref;
+	
+	while (my $line = <DAT>) {  
+		push @{$AofA},  [split(" ", $line)];
+	}
+	print "\nThe Array of Array's contains: \n" ;		
+	print Dumper @{$AofA}; 
+
+ 	return ($AofA);		
+}
+
+sub printarr {
+	
+	my $hold;
+	my $ele;
+	my $aref;
+	
+	my ($AofA) = @_;
+	
+	foreach my $Arr ( @{$AofA}  ) {	
+		foreach my $ele ( @{$Arr} ) {
+				if ($ele > $hold) {
+					$aref = $Arr;
+					$hold = $ele;
+			}		
+		}
+	}
+	
+	return ($aref, $hold);		
+
+}
+
+# 5. NewHash2.pm
+
+package NewHash2;
+
+use strict;
+use Data::Dumper;
+
+use base 'Exporter';
+use vars qw '@EXPORT_OK %EXPORT_TAGS';
+@EXPORT_OK = qw( loadhash printhash );
+%EXPORT_TAGS = ( Both =>[qw(loadhash printhash)]);
+
+sub loadhash {
+	
+my ($fh) = @_;
+		
+open DAT, "$fh" || die "Could not open file! ($!)";
+
+print "\nProgram Homework2:  Two Level Hash \n\n" ;	
+
+my $HofH;
+
+my $team;
+my $last;
+my $first;
+
+	while (my $line = <DAT>) { 
+	 ($team, $first, $last) = split(" ", $line);		
+	  $HofH->{$team}{$first} = $last;	 
+	} 
+	
+	print Dumper %{$HofH}; 
+	
+	return ($HofH);		
+	
+}
+
+sub printhash {
+ 
+ my ($HofH) = @_;
+ 
+	my %dispatch = (
+		'stooge'	=> \&stooge,
+		'marx'	=> \&marx,
+		'more'	=> \&more,
+	);
+
+	foreach my $team_name (keys %{$HofH})  {												
+		print "\nComedy Team: $team_name\n" ;				
+		my $code_ref = $dispatch{ $team_name };		
+		$code_ref or die "Can't find $team_name in dispatch table" ;
+		 		
+		foreach my $first_name  (sort keys %{ $HofH->{$team_name} } ) {	
+			my $last_name  = $HofH->{$team_name}->{$first_name} ;		
+			print "\nFirst Name : $first_name \n" ;
+			$code_ref->($first_name); 	
+		}
+	}		
+
+	sub stooge {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'stooge'}->{$nameref}\n";
+		}
+	
+	sub marx {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'marx'}->{$nameref}\n";	
+	}
+	
+	sub more {
+		print Dumper "not found";
+	}
+
+}
+
+# 3. CallMain3.pl
+
+package CallArray3;
+
+# This version will not import but will call the subs with Fully Qualified Names 
+
+use strict;
+use Data::Dumper;
+
+use NewArray3;
+
+my $data_file= "data.txt";
+	
+my $AofA = NewArray3::loadarr($data_file);
+
+my ($aref, $hold) = NewArray3::printarr($AofA);	
+
+print "\nThe row with the largest number is: \n" ;
+print Dumper $aref;
+	
+print "\nThe largest number is: \n" ;	
+print Dumper $hold;		
+	
+print "\nProgram Complete:  Array of Array's \n" ;		
+
+use NewHash3;
+
+my $hdata_file= "hdata.txt";
+	
+my $HofH = NewHash3::loadhash($hdata_file);
+
+NewHash3::printhash($HofH)
+
+
+4. NewArray3.pm --- application/octet-stream; NewArray3.pm]...
+
+package NewArray3;
+
+use strict;
+use Data::Dumper;
+
+sub loadarr {
+	
+	my ($fh) = @_;
+		
+	open DAT, "$fh" || die "Could not open file! ($!)";
+
+	print "\nProgram Homework3:  Array of Array's \n" ;		
+	
+	my $AofA ;
+	my $hold = 0;
+	my $aref;
+	
+	while (my $line = <DAT>) {  
+		push @{$AofA},  [split(" ", $line)];
+	}
+	print "\nThe Array of Array's contains: \n" ;		
+	print Dumper @{$AofA}; 
+
+ 	return ($AofA);		
+}
+
+sub printarr {
+	
+	my $hold;
+	my $ele;
+	my $aref;
+	
+	my ($AofA) = @_;
+	
+	foreach my $Arr ( @{$AofA}  ) {	
+		foreach my $ele ( @{$Arr} ) {
+				if ($ele > $hold) {
+					$aref = $Arr;
+					$hold = $ele;
+			}		
+		}
+	}
+	
+	return ($aref, $hold);		
+
+}
+
+return ('TRUE');
+
+
+# 5. NewHash3.pm
+
+package NewHash3;
+
+use strict;
+use Data::Dumper;
+
+sub loadhash {
+	
+my ($fh) = @_;
+		
+open DAT, "$fh" || die "Could not open file! ($!)";
+
+print "\nProgram Homework3:  Two Level Hash \n\n" ;	
+
+my $HofH;
+
+my $team;
+my $last;
+my $first;
+
+	while (my $line = <DAT>) { 
+	 ($team, $first, $last) = split(" ", $line);		
+	  $HofH->{$team}{$first} = $last;	 
+	} 
+	
+	print Dumper %{$HofH}; 
+	
+	return ($HofH);		
+	
+}
+
+sub printhash {
+ 
+ my ($HofH) = @_;
+ 
+	my %dispatch = (
+		'stooge'	=> \&stooge,
+		'marx'	=> \&marx,
+		'more'	=> \&more,
+	);
+
+	foreach my $team_name (keys %{$HofH})  {												
+		print "\nComedy Team: $team_name\n" ;				
+		my $code_ref = $dispatch{ $team_name };		
+		$code_ref or die "Can't find $team_name in dispatch table" ;
+		 		
+		foreach my $first_name  (sort keys %{ $HofH->{$team_name} } ) {	
+			my $last_name  = $HofH->{$team_name}->{$first_name} ;		
+			print "\nFirst Name : $first_name \n" ;
+			$code_ref->($first_name); 	
+		}
+	}		
+
+	sub stooge {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'stooge'}->{$nameref}\n";
+		}
+	
+	sub marx {
+		my $nameref = shift;
+		print "Last Name  : $HofH->{'marx'}->{$nameref}\n";	
+	}
+	
+	sub more {
+		print Dumper "not found";
+	}
+
+}
+return ('TRUE');
+
         +
        + + +
        • +
        + + +
      + + + +
      + + + + + + diff --git a/make_slides/output/page-0102.html b/make_slides/output/page-0102.html new file mode 100644 index 0000000..7ce0333 --- /dev/null +++ b/make_slides/output/page-0102.html @@ -0,0 +1,511 @@ + + + + + + + + + + + + +
      + + + + + +

      +
      David Toal's Homework +
      +

      + + + + Prev + + + + Next + + + + Index + + + + + + + +
      + + + +
      + +
      + + + + +
        + + +
        +
      • + +
        + + + + + + + + + + +
        + 
        +
+
+package ArrayUtils;
+
+
+use Exporter;
+
+@ISA = qw( Exporter );
+
+
+use FindArrayMax qw( &find_max_val  &find_max_row );
+
+@EXPORT = qw( &load_array  &find_max_val  &find_max_row );
+# if this is commented out, only fully qualified calls work
+
+@EXPORT_OK = qw( load_array  find_max_val  find_max_row );
+
+
+sub load_array {
+
+  print "ArrayUtils::load_array\n";
+
+  my $fh = shift;
+
+  my @array;
+
+  while (<$fh>) {
+
+    # print "read from file $_";
+
+    my @values = split;
+
+    push @array, \@values;
+ 
+  }
+
+  return \@array;
+
+}
+
+
+1;
+
+
+
+package ArrayUtils;
+
+
+use Exporter;
+
+@ISA = qw( Exporter );
+
+
+@EXPORT_OK = qw( &find_max_val  &find_max_row );
+
+
+sub find_max_val {
+
+  print "ArrayUtils::find_max_val\n";
+
+  my $matrix = shift;
+
+  my $max_val;
+
+  foreach my $row (@{$matrix}) {
+    foreach my $val (@{$row}) {
+      $max_val = $val if ($val > $max_val);
+    }
+  }
+
+  return $max_val;
+
+}
+
+
+
+sub find_max_row {
+
+  print "ArrayUtils::find_max_row\n";
+
+  my $matrix = shift;
+
+  my $max_row;
+  my $max_val;
+
+  foreach my $row (@{$matrix}) {
+    foreach my $val (@{$row}) {
+      $max_row = $row, $max_val = $val if ($val > $max_val);
+    }
+  }
+
+  return $max_row;
+
+}
+
+
+1;
+
+
+
+package HashDispatch;
+
+use Exporter;
+
+@ISA = qw( Exporter );
+
+@EXPORT = qw( &dispatch_table );
+
+
+my $DEBUG = 1;
+print "HashDispatch::DEBUG set\n" if ($DEBUG);
+
+sub dispatch_table {
+
+  print "HashDispatch::dispatch_table\n" if ($DEBUG);
+
+  my $dispatch = {
+     'stooge' => \&stooges ,
+     'marx'   => \&marxes
+  };
+
+  return $dispatch;
+
+}
+
+
+sub stooges {
+  my ($name, $team) = @_;
+  return "$name, last name is $team->{'stooge'}->{$name}";
+}
+
+
+sub marxes {
+  my ($name, $team) = @_;
+  return "$name, real name is $team->{'marx'}->{$name}";
+}
+
+1;
+
+
+
+  # my $dispatch = {
+  #    'stooge' => \sub { my ($name, $hash) = @_; print "stooge name is $name\n"; } ,
+  #    'marx'   => \sub { my ($name, $hash) = @_; print "marx name is $name\n"; }
+  # };
+
+
+
+package HashUtils;
+
+use FileHandle;
+
+use Exporter;
+
+@ISA = qw( Exporter );
+
+
+use HashDispatch;
+
+@EXPORT = qw( &load_hash  &dispatch_table );
+
+# @EXPORT_OK = qw( &load_hash  &dispatch_table );
+
+
+
+my $DEBUG = 1;
+
+print "HashUtils::DEBUG set\n" if ($DEBUG);
+
+
+sub load_hash {
+
+  print "HashUtils::load_hash\n" if ($DEBUG);
+
+  my $fh = shift;
+
+  my %hash;
+
+  while (<$fh>) {
+
+    print "line is $_" if ($DEBUG);
+
+    my ($team, $first, $second) = split;
+
+    $hash{$team}->{$first} = $second;
+
+  }
+
+  return \%hash;
+
+}
+
+
+1;
+
+4 11 7
+9 15 6 2
+1 9
+
+
+use strict;
+
+use FileHandle;
+
+use ArrayUtils;
+
+
+my $filename = "array-data.txt";
+
+
+my $fh = FileHandle->new();
+
+$fh->open("< $filename");
+
+
+my $matrix = load_array($fh);
+
+foreach my $row (@{$matrix}) {
+  foreach my $val (@{$row}) { print "$val, "; }
+  print "\n";
+}
+
+
+my $max_val = find_max_val($matrix);
+
+print "max val is $max_val\n";
+
+
+my $max_row = find_max_row($matrix);
+
+print "max row is: ";
+
+foreach my $val (@{$max_row}) {
+  print "$val, ";
+}
+
+print "\n";
+
+
+
+use strict;
+
+use FileHandle;
+
+use ArrayUtils qw( &load_array  &find_max_val  &find_max_row );
+
+
+my $filename = "array-data.txt";
+
+
+my $fh = FileHandle->new();
+
+$fh->open("< $filename");
+
+
+my $matrix = ArrayUtils::load_array($fh);
+
+foreach my $row (@{$matrix}) {
+  foreach my $val (@{$row}) { print "$val, "; }
+  print "\n";
+}
+
+
+my $max_val = ArrayUtils::find_max_val($matrix);
+
+print "max val is $max_val\n";
+
+
+my $max_row = ArrayUtils::find_max_row($matrix);
+
+print "max row is: ";
+
+foreach my $val (@{$max_row}) {
+  print "$val, ";
+}
+
+print "\n";
+
+marx groucho julius
+stooge moe howard
+stooge larry fine
+marx chico leonard
+marx harpo arthur
+stooge curly howard
+
+
+use strict;
+
+use Data::Dumper;
+
+use FileHandle;
+
+use HashUtils;
+
+
+my $filename = "hash-data.txt";
+
+my $fh = FileHandle->new();
+
+$fh->open("< $filename");
+
+
+my $team = load_hash($fh);
+
+print Dumper $team;
+
+
+my $table = dispatch_table();
+
+foreach my $team_name (keys(%{$team})) {
+  print "team name is $team_name\n";
+
+  foreach my $name (keys(%{ $team->{$team_name} })) {
+    my $result = $table->{$team_name}->($name, $team);
+    print "$result\n";
+  }
+
+}
+
+
+
+use strict;
+
+use Data::Dumper;
+
+use FileHandle;
+
+use HashUtils qw( &load_hash  &dispatch_table );
+
+
+my $filename = "hash-data.txt";
+
+my $fh = FileHandle->new();
+
+$fh->open("< $filename");
+
+
+my $team = HashUtils::load_hash($fh);
+
+print Dumper $team;
+
+
+my $table = HashUtils::dispatch_table();
+
+foreach my $team_name (keys(%{$team})) {
+  print "team name is $team_name\n";
+
+  foreach my $name (keys(%{ $team->{$team_name} })) {
+    my $result = $table->{$team_name}->($name, $team);
+    print "$result\n";
+  }
+
+}
+
+
+
+use strict;
+
+use Data::Dumper;
+
+use FileHandle;
+
+use HashUtils;
+
+
+my $DEBUG = 1;
+print "main::DEBUG set\n" if ($DEBUG);
+
+
+my $filename = "hash-data.txt";
+
+my $fh = FileHandle->new();
+
+$fh->open("< $filename");
+
+
+my $team = load_hash($fh);
+
+print Dumper $team;
+
+
+my $table = dispatch_table();
+
+foreach my $team_name (keys(%{$team})) {
+  print "team name is $team_name\n";
+
+  foreach my $name (keys(%{ $team->{$team_name} })) {
+    my $result = $table->{$team_name}->($name, $team);
+    print "$result\n";
+  }
+
+}
+
+
         +
        + + +
        • +
        + + +
      + + + +
      + + + + + + diff --git a/make_slides/templates.old/bullet.tmpl b/make_slides/templates.old/bullet.tmpl new file mode 100644 index 0000000..ebd7300 --- /dev/null +++ b/make_slides/templates.old/bullet.tmpl @@ -0,0 +1 @@ +
    • <%TEXT%> diff --git a/make_slides/templates.old/code.tmpl b/make_slides/templates.old/code.tmpl new file mode 100644 index 0000000..484c492 --- /dev/null +++ b/make_slides/templates.old/code.tmpl @@ -0,0 +1 @@ +
      <%TEXT%>
      \ No newline at end of file diff --git a/make_slides/templates.old/footer.tmpl b/make_slides/templates.old/footer.tmpl new file mode 100644 index 0000000..f9dd635 --- /dev/null +++ b/make_slides/templates.old/footer.tmpl @@ -0,0 +1,19 @@ +
      + + + + + + + +
      + Prev + Next + Index + +
      +       		Page <%PAGE_NUM%>/<%TOTAL_PAGES%> +
      + © 2003 Stem Systems +
      + \ No newline at end of file diff --git a/make_slides/templates.old/haiku.tmpl b/make_slides/templates.old/haiku.tmpl new file mode 100644 index 0000000..e93db8a --- /dev/null +++ b/make_slides/templates.old/haiku.tmpl @@ -0,0 +1,12 @@ +

      + +
      + + +
      + <%LINE1%>
      + <%LINE2%>
      + <%LINE3%>
      +
      +
      +

      diff --git a/make_slides/templates.old/header.tmpl b/make_slides/templates.old/header.tmpl new file mode 100644 index 0000000..8000c2a --- /dev/null +++ b/make_slides/templates.old/header.tmpl @@ -0,0 +1,18 @@ + + + +<%TITLE%> + +

      <%CHAP_NUM%>.<%SLIDE_NUM%><%CHAP_ABBREV%>: <%TITLE%>

      + + + +
      + Prev + Next + Index + + + Page <%PAGE_NUM%>/<%TOTAL_PAGES%> +
      +
      diff --git a/make_slides/templates.old/para.tmpl b/make_slides/templates.old/para.tmpl new file mode 100644 index 0000000..6535451 --- /dev/null +++ b/make_slides/templates.old/para.tmpl @@ -0,0 +1,3 @@ +

      +<%TEXT%> +

      diff --git a/make_slides/templates/chapters.tmpl b/make_slides/templates/chapters.tmpl new file mode 100644 index 0000000..3f67484 --- /dev/null +++ b/make_slides/templates/chapters.tmpl @@ -0,0 +1,20 @@ +[%INCLUDE html_header %] + + +
      + [%INCLUDE page_header %] +
      + + [%START chap_title%] +
      [%number%].
      +
      + [%title%] +
      + [%END chap_title%] + + + + +[%INCLUDE html_footer %] diff --git a/make_slides/templates/html_footer.tmpl b/make_slides/templates/html_footer.tmpl new file mode 100644 index 0000000..0e79f1e --- /dev/null +++ b/make_slides/templates/html_footer.tmpl @@ -0,0 +1 @@ + diff --git a/make_slides/templates/html_header.tmpl b/make_slides/templates/html_header.tmpl new file mode 100644 index 0000000..ca0596a --- /dev/null +++ b/make_slides/templates/html_header.tmpl @@ -0,0 +1,10 @@ + + + + +[%START html_header %] +[%title%] + +[%END html_header %] + diff --git a/make_slides/templates/index.tmpl b/make_slides/templates/index.tmpl new file mode 100644 index 0000000..1e391bc --- /dev/null +++ b/make_slides/templates/index.tmpl @@ -0,0 +1,25 @@ +[%INCLUDE html_header %] + + +
      + + [%INCLUDE page_header %] +
      + + [%START chapter%] +
      [%number%].
      +
      [%title%]
      + + [%START page%] + +
      [%number%]. [%title%]
      + [%END page%] + + [%END chapter%] + + + + +[%INCLUDE html_footer %] diff --git a/make_slides/templates/item_body.tmpl b/make_slides/templates/item_body.tmpl new file mode 100644 index 0000000..87f3fde --- /dev/null +++ b/make_slides/templates/item_body.tmpl @@ -0,0 +1,38 @@ +[%START item %] +
      + [%START item_image %] +
      [%text%]
      + [%END item_image %] + + [%START item_title %] +
      [%text%]
      + [%END item_title %] + + [%START item_date %] +
      [%text%]
      + [%END item_date %] + + [%START item_text %] +

      [%text%]

      + [%END item_text %] + + [%START item_code %] +

      [%text%]

      + [%END item_code %] + + [%START item_list %] +
      +
        + [%START item_list_elem %] +
      • [%text%]
        • + [%END item_list_elem %] +
      +
      + [%END item_list %] + + [%START item_sep %] +
      + [%END item_sep %] + +
      +[%END item %] diff --git a/make_slides/templates/page.tmpl b/make_slides/templates/page.tmpl new file mode 100644 index 0000000..5c330a8 --- /dev/null +++ b/make_slides/templates/page.tmpl @@ -0,0 +1,19 @@ +[%INCLUDE html_header %] + + +
      + + [%INCLUDE page_header %] +
      + +
      + + [%INCLUDE page_body %] +
      + + + + +[%INCLUDE html_footer %] diff --git a/make_slides/templates/page_body.tmpl b/make_slides/templates/page_body.tmpl new file mode 100644 index 0000000..6c7feea --- /dev/null +++ b/make_slides/templates/page_body.tmpl @@ -0,0 +1,50 @@ +[%START page %] + [%START title %] +
      [%text%]
      + [%END title %] + +
        + + [%START item %] +
        +
      • + [%START title %] +
        [%text%]
        + [%END title %] + + [%START image %] +
        [%image%]
        + [%END image %] + + [%START text %] +
        +

        [%text%]

        + [%END text %] + + [%START subitems %] +
        +
          + [%START subitem %] + +
          +
        • [%text%]
          • +
          + [%END subitem %] +
        +
        + [%END subitems %] + + + [%START code %] +
        + 
        [%text%]
         +
        + [%END code %] + +
        • +
        + [%END item %] + +
      + +[%END page %] diff --git a/make_slides/templates/page_footer.tmpl b/make_slides/templates/page_footer.tmpl new file mode 100644 index 0000000..874b472 --- /dev/null +++ b/make_slides/templates/page_footer.tmpl @@ -0,0 +1,35 @@ + +[%START page_footer %] + +
      + + [%START prev_link %] + Prev + [%END prev_link %] + + [%START next_link %] + Next + [%END next_link %] + + [%START index_link %] + Index + [%END index_link %] + + [%START logo %] + + [%END logo %] + + + [%START page_num %] +
      + [%page_num%]/[%total_pages%] +
      + [%END page_num %] + + [%START copyright %] + + [%END copyright %] + +[%END page_footer %] diff --git a/make_slides/templates/page_header.tmpl b/make_slides/templates/page_header.tmpl new file mode 100644 index 0000000..052a2d1 --- /dev/null +++ b/make_slides/templates/page_header.tmpl @@ -0,0 +1,35 @@ + +[% START page_header %] + + [% START header_title %] +

      +
      [%text%]
      +

      + [% END header_title %] + + [%START prev_link %] + Prev + [%END prev_link %] + + [%START next_link %] + Next + [%END next_link %] + + [%START index_link %] + Index + [%END index_link %] + + [%START logo %] + + [%END logo %] + + + [%START page_num %] +
      + [%page_num%]/[%total_pages%] +
      + [%END page_num %] + +
      + +[% END page_header %]