[docs] xmldocs - docelic modified 2 files

[docs at icdevgroup.org]

User:      docelic
Date:      2004-10-12 16:36:16 GMT
Modified:  .        Makefile
Modified:  bin      stattree
Log:
So, at least some work each day :)

- Makefile: disable generation of multi-page glossary since that is not
  supported by stylesheets (warning is produced).

- bin/stattree: add preliminary support to expand MapRoutine in Tags
  to appropriate code. (as suggested by Jon).

Revision  Changes    Path
1.30      +1 -2      xmldocs/Makefile


rev 1.30, prev_rev 1.29
Index: Makefile
===================================================================
RCS file: /var/cvs/xmldocs/Makefile,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- Makefile	9 Oct 2004 20:33:34 -0000	1.29
+++ Makefile	12 Oct 2004 16:36:16 -0000	1.30
@@ -53,8 +53,7 @@
 symbols:  $(foreach doc,$(SYMBOL_TYPES),$O/$(doc).html  )      \
           $(foreach doc,$(SYMBOL_TYPES),$O/$(doc))
 
-glossary: $(foreach doc,$(GLOSSARY),$O/$(doc).html  )          \
-          $(foreach doc,$(GLOSSARY),$O/$(doc))
+glossary: $(foreach doc,$(GLOSSARY),$O/$(doc).html  )
 
 #############################################################
 # Skel



1.25      +34 -0     xmldocs/bin/stattree


rev 1.25, prev_rev 1.24
Index: stattree
===================================================================
RCS file: /var/cvs/xmldocs/bin/stattree,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- stattree	12 Oct 2004 09:41:24 -0000	1.24
+++ stattree	12 Oct 2004 16:36:16 -0000	1.25
@@ -289,6 +289,7 @@
 
 			my %specific; # Item-specific data
 			my @tags; # Support multiple tags defined in the same file
+			my $maproutine; # Register if the tag MapRoutines, and to which func.
 
 			# This is where we parse the tag file. We should discover settings like
 			# HasEndTag, Order, and so on.
@@ -321,6 +322,23 @@
 						line_findFunctionName(\%c);
 					}
 					next;
+
+				} elsif ( $tagopt =~ /^maproutine$/i ) {
+					@lis == 1 and $maproutine = "@lis" or die 
+					"$tn MapRoutines, but argc != 1 ?\n";
+
+					next if "@lis" =~ /^::/; # TODO
+
+					my @path = split /::/, "@lis";
+					my $func = pop @path;
+					my $path = join("/", @path) . ".pm";
+
+					open INF, "< lib/$path" or die "Can't open 'lib/$path' ($!)\n";
+					my @fc = <INF>;
+					close INF;
+
+					print "Checking $path\n";
+					file_extractSub($func, \@fc);
 				}
 				
 				if ( "@lis" =~ /<</ and $tagopt !~ /^routine/i ) {
@@ -602,5 +620,21 @@
 			ctx => [ format_ctx(split(/\n/, $ln)) ],
 		}
 	}
+}
+
+
+sub file_extractSub {
+	my ($func, $fc) = @_;
+	my $done = 0;
+
+	#for my $line (@$fc) {
+	#	# Case1:
+	#	#/^sub $func {/;  # Extract this.
+	#	#
+	#	# Case2:
+	#	# /^\*func = \&Mod::Ule::func; # Follow and extract.
+	#}
+
+	#print "NOT FOUND FOR $func\n" unless $done;
 }