[svn:parrot] r47335 - trunk/tools/docs

[gerd at svn.parrot.org]

Author: gerd
Date: Thu Jun  3 10:37:13 2010
New Revision: 47335
URL: https://trac.parrot.org/parrot/changeset/47335

Log:
Add the PIR documentation to be generated as PDF

Modified:
   trunk/tools/docs/filename_and_chapter.pl

Modified: trunk/tools/docs/filename_and_chapter.pl
==============================================================================
--- trunk/tools/docs/filename_and_chapter.pl	Thu Jun  3 10:33:15 2010	(r47334)
+++ trunk/tools/docs/filename_and_chapter.pl	Thu Jun  3 10:37:13 2010	(r47335)
@@ -19,6 +19,14 @@
                       ['running.pod', 'Parrot\'s command line options'],
                     ];
 
+my $PIR_chap_list_ref = [ 'ch01_introduction.pod', 'ch02_getting_started.pod',
+#                         'ch03_basic_syntax.pod', 'ch04_variables.pod',
+                          'ch03_basic_syntax.pod',
+                          'ch05_control_structures.pod', 'ch06_subroutines.pod',
+                          'ch07_objects.pod', 'ch08_io.pod',
+                          'ch09_exceptions.pod',
+                        ];
+
 my $lang = @$item_list_ref - 1;
 my $MOD_BUILD_PATH='build/modified_pod/';
 
@@ -57,6 +65,18 @@
     $parser->parse_file( "${MOD_BUILD_PATH}$item_list_ref->[$i][0]" );
 }
 
+print $TEX_FH <<'PIR_TITEL';
+\chapter{Parrot Intermediate Representation (PIR)}
+
+PIR_TITEL
+
+$lang = @$PIR_chap_list_ref - 1;
+for my $i ( 0..$lang ) {
+    my $parser = Pod::PseudoPod::LaTeX->new();
+    $parser->output_fh( $TEX_FH );
+    $parser->parse_file( 'book/pir/' . $PIR_chap_list_ref->[$i] );
+}
+
 print $TEX_FH <<'FOOTER';
 \end{document}
 FOOTER