Changeset 1109

Timestamp:

06/16/10 20:04:20 (14 years ago)

Author:

miro

Message:

templated classes remain in filtered annotated.html file

Location:

applications/bdmtoolbox/doc/from_bdm

Files:

• class_hierarchy.pl (modified) (1 diff)
• filter_annotated.pl (modified) (3 diffs)
• process_class.sh (modified) (1 diff)

applications/bdmtoolbox/doc/from_bdm/class_hierarchy.pl

@@ -57 +57 @@
 }
 
-print STDERR "==Hierarchy";
-print_class($classes_hier, 0, *STDERR);
+#;;print STDERR "==Hierarchy";
+#;;print_class($classes_hier, 0, *STDERR);
 
-print STDERR "\n==List\n";
-map { print STDERR "$_\n" } sort keys %{ $classes_list };
+#;;print STDERR "\n==List\n";
+#;;map { print STDERR "$_\n" } sort keys %{ $classes_list };
 
 #print "\n==Given\n";

applications/bdmtoolbox/doc/from_bdm/filter_annotated.pl

@@ -7 +7 @@
 use List::MoreUtils qw(uniq);
 use HTML::TreeBuilder;
+use HTML::Entities;
 use Data::Dumper;
 use Getopt::Long;
@@ -14 +15 @@
 my $input_dir  = '../../../../library/doc/html/';
 my $filename   = 'annotated.html';
+#my @classes = map {encode_entities($_, '<>&')} @ARGV;
 my @classes = @ARGV;
 ;;;print STDERR Dumper \@classes;
@@ -59 +61 @@
     #;;print STDERR "$class\n";
 
+    $class =~ s/ /_/g;
+
     if (grep {$_ eq $class} @classes) {
-        ;;;print "$class is in @classes\n";
+        #;;print "$class is in @classes\n\n";
         next;
     };
 
-    #;;print STDERR "$class will be detached\n";
+    ;;;print STDERR "$class will be detached\n\n";
     #;;print STDERR $node->tag() . ' ' . $node->{_parent}->tag() . "\n";
 

applications/bdmtoolbox/doc/from_bdm/process_class.sh

@@ -16 +16 @@
 > tmp__classes
 
-cat tmp__classes | ./classnames2files.pl | xargs tidy -modify -asxhtml
+cat tmp__classes | ./classnames2files.pl | xargs tidy -modify -asxhtml 2>/dev/null
 
 cat tmp__classes | while read line