From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Jan 2004 21:36:07 +0000 (+0000)
Subject: Change the flag logic in buildtoc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8927c9d824bf5d960d90467f403bdfa9cbaff854;p=p5sagit%2Fp5-mst-13.2.git

Change the flag logic in buildtoc

p4raw-id: //depot/perl@22067
---

diff --git a/pod.lst b/pod.lst
index dd10e98..8a30c2a 100644
--- a/pod.lst
+++ b/pod.lst
@@ -1,18 +1,16 @@
-# O	- Header, omit from toc
-# o	- Item, omit from toc
-# I	- Header, include in toc
+# h	- Header
+# o	- Omit from toc
 # r	- top level READMEs to be copied/symlinked
-# a	- Item, for auxiliary documentation
-# a	- Header for auxiliary documentation
+# a	- for auxiliary documentation
 # number - indent by
 
-I Overview
+h Overview
 
   perl			Perl overview (this section)
   perlintro		Perl introduction for beginners
   perltoc		Perl documentation table of contents
 
-I Tutorials
+h Tutorials
 
   perlreftut		Perl references short introduction
   perldsc		Perl data structures intro
@@ -43,7 +41,7 @@ I Tutorials
 2 perlfaq8		System Interaction
 2 perlfaq9		Networking
 
-I Reference Manual
+h Reference Manual
 
   perlsyn		Perl syntax
   perldata		Perl data structures
@@ -94,7 +92,7 @@ I Reference Manual
 
   perlfilter		Perl source filters
 
-I Internals and C Language Interface
+h Internals and C Language Interface
 
   perlembed		Perl ways to embed perl in your C or C++ application
   perldebguts		Perl debugging guts and tips
@@ -111,7 +109,7 @@ I Internals and C Language Interface
 
   perlhack		Perl hackers guide
 
-I Miscellaneous
+h Miscellaneous
 
   perlbook		Perl book information
   perltodo		Perl things to do
@@ -134,14 +132,14 @@ I Miscellaneous
   perlartistic		Perl Artistic License
   perlgpl		GNU General Public License
 
-O Language-Specific
+ho Language-Specific
 
-or perlcn		Perl for Simplified Chinese (in EUC-CN)
-or perljp		Perl for Japanese (in EUC-JP)
-or perlko		Perl for Korean (in EUC-KR)
-or perltw		Perl for Traditional Chinese (in Big5)
+ro perlcn		Perl for Simplified Chinese (in EUC-CN)
+ro perljp		Perl for Japanese (in EUC-JP)
+ro perlko		Perl for Korean (in EUC-KR)
+ro perltw		Perl for Traditional Chinese (in Big5)
 
-I Platform-Specific
+h Platform-Specific
 
 r perlaix		Perl notes for AIX
 r perlamiga		Perl notes for AmigaOS
@@ -176,7 +174,7 @@ r perlvms		Perl notes for VMS
 r perlvos		Perl notes for Stratus VOS
 r perlwin32		Perl notes for Windows
 
-AO Auxiliary Documentation
+aoh Auxiliary Documentation
 
 ao a2p
 ao c2ph
diff --git a/pod/buildtoc b/pod/buildtoc
index 71f2a91..a847f88 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -84,13 +84,13 @@ foreach (<MASTER>) {
   next if /^\#/;
 
   # At least one upper case letter somewhere in the first group
-  if (/^(\S+)\s(.*)/ && $1 =~ tr/A-Z//) {
+  if (/^(\S+)\s(.*)/ && $1 =~ tr/h//) {
     # it's a heading
     my $flags = $1;
+    $flags =~ tr/h//d;
     my %flags = (header => 1);
-    $flags{toc_omit} = 1 if $flags =~ tr/O//d;
-    $flags{include} = 1 if $flags =~ tr/I//d;
-    $flags{aux} = 1 if $flags =~ tr/A//d;
+    $flags{toc_omit} = 1 if $flags =~ tr/o//d;
+    $flags{aux} = 1 if $flags =~ tr/a//d;
     die "$0: Unknown flag found in heading line: $_" if length $flags;
     push @Master, [\%flags, $2];