[css2] Can now deal with more than one style sheet.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401930

Author: bert-github

css2/bin/mkchain

@@ -6,7 +6,7 @@
 # numbering information
 #
 # Bert Bos <bert@w3.org>
-# $Id: mkchain,v 2.1 1998-05-19 20:47:48 ijacobs Exp $
+# $Id: mkchain,v 2.2 2002-08-02 18:59:42 bbos Exp $
 
 use Getopt::Std;
 use lib 'bin';
@@ -39,9 +39,9 @@ while (<IN>) {
     /<\/title[^>]*>/io and do {
 	print OUT $`;
 	print OUT $&;
-	if ($stylesheet ne '') {
-	    print OUT "\n<link rel=\"stylesheet\" href=\"$stylesheet\"";
-	    if ($styletype ne '') {print OUT " type=\"$styletype\"";}
+	for ($i = 0; $i <= $#stylesheet; $i++) {
+	    print OUT "\n<link rel=\"stylesheet\" href=\"$stylesheet[$i]\"";
+	    if ($styletype[$i] ne '') {print OUT " type=\"$styletype[$i]\"";}
 	    print OUT ">";
 	}
 	if ($chapno > 0) {

css2/bin/utils.pm

@@ -1,22 +1,22 @@
 # A few common routines						 -*-perl-*-
 #
 # Bert Bos <bert@w3.org>
-# $Id: utils.pm,v 2.2 1998-04-30 18:52:04 bbos Exp $
+# $Id: utils.pm,v 2.3 2002-08-02 18:59:42 bbos Exp $
 
 package utils;
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(readfile writefile read_config $contents $stylesheet
-	$styletype @chapter @resetnumber @format %lookup $chapno @relations
+@EXPORT = qw(readfile writefile read_config $contents @stylesheet
+	@styletype @chapter @resetnumber @format %lookup $chapno @relations
 	@links @tonavbar $src_ext);
 
 # @EXPORT_OK = qw(parsewords);
 
 
 
 $contents = '';			# File containing ToC
-$stylesheet = '';		# URL of style sheet
-$styletype = '';		# MIME type of style sheet
+@stylesheet = ();		# URLs of style sheets
+@styletype = ();		# MIME types of style sheets
 @chapter = ();			# Array of chapter files
 @resetnumber = ();		# For each chapter: the chapter number - 1
 @format = ();			# For each chapter: list of number formats
@@ -65,8 +65,8 @@ sub read_config {
 		last;
 	    };
 	    /^\@stylesheet$/o and do { # URL (and type) of style sheet
-		$stylesheet = $words[1];
-		if (defined $words[2]) {$styletype = $words[2];}
+		push(@stylesheet, ($words[1]));
+		if (defined $words[2]) {push(@styletype, ($words[2]));}
 		last;
 	    };
 	    /^\@format$/o and do { # Set numbering style for next chapters