Changeset 11986

Timestamp:

07/24/10 20:25:51 (19 months ago)

Author:

azawawi

Message:

Write wxwidgets.pod to ../Padre/share/doc/wxwidgets

File:

• trunk/tools/parse_wxwidgets_docs.pl (modified) (3 diffs)

trunk/tools/parse_wxwidgets_docs.pl

@@ -13 +13 @@
 use HTML::FormatText ();
 
+my $pod_dir = File::Spec->join( '..', 'Padre', 'share', 'doc', 'wxwidgets' );
+unless ( -d $pod_dir ) {
+    die "Abort! I could not find ../Padre/share/doc/wxwidgets in the current directory\n";
+}
+
 my $WX_WIGDETS_HTML_ZIP = 'wxWidgets-2.8.10-HTML.zip';
 
@@ -28 +33 @@
 
 # Step 4: Write the final POD while processing all html files
-write_pod( $wx_dir, @wxclasses );
+write_pod( $pod_dir, $wx_dir, @wxclasses );
 
 # and we're done
@@ -166 +171 @@
 #
 sub write_pod {
-    my ( $wx_dir, @wxclasses ) = @_;
-    my $pod_file = 'wxwidgets.pod';
+    my ( $pod_dir, $wx_dir, @wxclasses ) = @_;
+    my $pod_file = File::Spec->join( $pod_dir, 'wxwidgets.pod' );
     print "Writing $pod_file\n";
-    if ( open( my $pod, '>', 'wxwidgets.pod' ) ) {
+    if ( open( my $pod, '>', $pod_file ) ) {
         my $oldclass;
         foreach my $wxclass (@wxclasses) {