appendpara0100775000175300003300000000033310146125242012101 0ustar jillljedit#! /usr/bin/perl -w use strict; use OpenOffice::OODoc; my $document = ooDocument( file => 'blank.sxw' ); $document->appendParagraph ( text => 'Some new text', style => 'Text body' ); $document->save; chapter3.tex0100775000175300003300000000131410146371317012304 0ustar jillljedit\chapter{The Basics} \textit{Getting started with Perl.} \pjbskipstart \section{Let's Get Started!} There is no substitute for practical experience when first learning how to program. So, here is the first Perl program\index{welcome@\texttt{welcome}, the first program}, called \texttt{welcome}: \pjbstartcode \begin{verbatim} print "Welcome to the Wonderful World of Perl!\n"; \end{verbatim} \pjbstopcode \noindent When executed by \texttt{perl}\footnote{We will learn how to do this is in just a moment.}, this small program displays the following, perhaps rather not unexpected, message on screen: \pjbstartcode \begin{verbatim} Welcome to the Wonderful World of Perl! \end{verbatim} \pjbstopcode produce_slides0100775000175300003300000001733010120025240012764 0ustar jillljedit#! /usr/bin/perl -w # # The "produce_slides" script: Given some textual content as produced # by the "getcontent" script, produce a new Impress presentation file. # # By Paul Barry, paul.barry@itcarlow.ie # use strict; use OpenOffice::OODoc; sub title_slide { my $title = shift; my $content = shift; return<$title$content SLIDE } sub sourcecode_slide { my $title = shift; my @content = @_; my $xml =<$title SLIDESTART chomp $xml; foreach my $line ( @content ) { my $snippet =<$line CODE chomp $snippet; $xml = $xml . $snippet; } $xml = $xml . < SLIDEFINISH return $xml; } sub bullet_slide { my $title = shift; my @bullets = @_; my $xml =<$title BULLETSBEGIN chomp $xml; foreach my $bullet ( @bullets ) { my $snippet =<$bullet BULLET chomp $snippet; $xml = $xml . $snippet; } $xml = $xml . < BULLETSFINISH return $xml; } my $presentation = OpenOffice::OODoc::Document->new ( file => 'blank.sxi', member => 'content' ); my $chapter = shift; my $last_slide = 2; # Set this to one less than number of slides in # the blank.sxi presentation document. my $maxcount = 0; my $title_title = ''; my $title_content = ''; my $code_title = ''; my @code_content = ( '' ); my $bullet_title = ''; my @bullet_content = ( '' ); while ( <> ) { if ( /CHAPTERTITLE: (.*)/ ) { $title_title = $1; chomp $title_title; next; } if ( /CHAPTERCONTENT: (.*)/ ) { $title_content = $1; chomp $title_content; $presentation->insertElement( '//draw:page', $last_slide++, title_slide( $title_title, $title_content ), position => 'after' ); $title_title = ''; $title_content = ''; next; } if ( /GRAPHICCAPTION: (.*)/ ) { $title_title = $1; chomp $title_title; next; } if ( /GRAPHICNAME: (.*)/ ) { $title_content = $1; chomp $title_content; $presentation->insertElement( '//draw:page', $last_slide++, title_slide( $title_title, $title_content ), position => 'after' ); $title_title = ''; $title_content = ''; next; } if ( /BULLETTITLE: (.*)/ ) { $bullet_title = $1; chomp $bullet_title; while ( <> ) { if ( /BULLETCONTENT: (.*)/ ) { my $bullet = $1; chomp $bullet; push @bullet_content, $bullet; } else { last; } } $presentation->insertElement( '//draw:page', $last_slide++, bullet_slide( $bullet_title, @bullet_content ), position => 'after' ); $bullet_title = ''; @bullet_content = ( '' ); last if eof; redo; } if ( /STARTCODE/ ) { while ( <> ) { if ( /STOPCODE/ ) { last; } chomp; push @code_content, $_; } $presentation->insertElement( '//draw:page', $last_slide++, sourcecode_slide( $code_title, @code_content ), position => 'after' ); $code_title = ''; @code_content = ( '' ); } if ( /STARTMAXIM/ ) { my $maxim = <>; # Get the maxim on next line. chomp $maxim; $maxcount++; $presentation->insertElement( '//draw:page', $last_slide++, title_slide( "Maxim $chapter.$maxcount", $maxim ), position => 'after' ); $title_title = ''; $title_content = ''; next; } } $presentation->save( 'chapter' . $chapter . '.sxi' );