[docs] xmldocs - docelic modified bin/refs-autogen

[docs at icdevgroup.org]

User:      docelic
Date:      2004-07-23 14:12:24 GMT
Modified:  bin      refs-autogen
Log:
- bin/refs-autogen:
  - adjusted one comment
  - moved sort() to a different place where it has more effect ;-)

Revision  Changes    Path
1.5       +4 -13     xmldocs/bin/refs-autogen


rev 1.5, prev_rev 1.4
Index: refs-autogen
===================================================================
RCS file: /var/cvs/xmldocs/bin/refs-autogen,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- refs-autogen	23 Jul 2004 13:32:01 -0000	1.4
+++ refs-autogen	23 Jul 2004 14:12:24 -0000	1.5
@@ -38,7 +38,7 @@
 	"verbose|v!" => \$verbose,
 )) { die "Error parsing options\n" }
 
- at ARGV > 0 or die "Usage: $0 version[s]\n";
+ at ARGV or die "Usage: $0 version[s]\n";
 
 my %longname = (
 	globvar => "Global Variable",
@@ -114,7 +114,7 @@
 	# Outer loop: symbol types (pragmas, globvars, ...)
 	# Inner loop: actual symbols
 	while ( my ($gkey,$gval) = each %{ $hash{symbols} } ) {
-		for my $key (sort(keys(%$gval))) {
+		for my $key (keys(%$gval)) {
 			my $val = $gval->{$key};
 			push @{ $symbol_lists{$gkey} }, $key
 				unless grep {/^$key$/} @{ $symbol_lists{$gkey} };
@@ -163,7 +163,7 @@
 	}
 }
 
-# Final entry. That's where we add source information and examples
+# Final entry. That's where we add examples
 # (which don't have version-specific data, they're always "latest")
 while ( my($k,$v) = each %autogenerated ) {
 	my %ag = %$v;
@@ -209,7 +209,7 @@
 ENDD
 
 	## Add items
-	for my $item (@$v) {
+	for my $item (sort @$v) {
 		$refpage .= $symbols{$item}
 	}
 
@@ -337,20 +337,11 @@
 sub O { print "@_\n"; print STDOUT "@_\n" if $verbose }
 
 __DATA__
-<!--
-<!DOCTYPE refentry PUBLIC "-//OASIS//DTD DocBook-Interchange XML V4.2//EN"
-	"/usr/share/xml/docbook/schema/dtd/4.2/docbookx.dtd">
--->
-
 <refentry id="$ag{id}">
 
 <refmeta>
 <refentrytitle>$ag{"name"}</refentrytitle>
 <manvolnum>7interchange</manvolnum>
-<!--
-<refmiscinfo class="date"></refmiscinfo>
-<refmiscinfo class="source">Interchange</refmiscinfo>
--->
 <refmiscinfo class="title">$ag{"name"}</refmiscinfo>
 </refmeta>