File tree 4 files changed +16
-12
lines changed 4 files changed +16
-12
lines changed Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl
2
2
#
3
- # Insert Next, ToC & Prev links.
3
+ # Insert Next, ToC, Prev, and other links.
4
4
#
5
5
# The given configuration file contains ordering and
6
- # numbering information:
6
+ # numbering information
7
7
#
8
8
# Bert Bos <bert@w3.org>
9
- # $Id: mkchain,v 1.2 1998-02-02 19:06:19 bbos Exp $
9
+ # $Id: mkchain,v 2.0 1998-02-02 19:19:08 bbos Exp $
10
10
11
11
use Getopt::Std;
12
12
use lib ' bin' ;
Original file line number Diff line number Diff line change 1
- # -*-perl-*-
1
+ # A few common routines -*-perl-*-
2
+ #
3
+ # Bert Bos <bert@w3.org>
4
+ # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
2
5
3
6
package utils ;
4
7
require Exporter;
@@ -7,10 +10,9 @@ require Exporter;
7
10
$styletype @chapter @resetnumber @format %lookup $chapno @relations
8
11
@links @tonavbar $src_ext) ;
9
12
10
- # @EXPORT_OK = qw();
13
+ # @EXPORT_OK = qw(parsewords );
11
14
12
15
13
- # use Text::ParseWords;
14
16
15
17
$contents = ' ' ; # File containing ToC
16
18
$stylesheet = ' ' ; # URL of style sheet
Original file line number Diff line number Diff line change 1
1
# !/usr/local/bin/perl
2
2
#
3
- # Insert Next, ToC & Prev links.
3
+ # Insert Next, ToC, Prev, and other links.
4
4
#
5
5
# The given configuration file contains ordering and
6
- # numbering information:
6
+ # numbering information
7
7
#
8
8
# Bert Bos <bert@w3.org>
9
- # $Id: mkchain,v 1.2 1998-02-02 19:06:19 bbos Exp $
9
+ # $Id: mkchain,v 2.0 1998-02-02 19:19:08 bbos Exp $
10
10
11
11
use Getopt::Std;
12
12
use lib ' bin' ;
Original file line number Diff line number Diff line change 1
- # -*-perl-*-
1
+ # A few common routines -*-perl-*-
2
+ #
3
+ # Bert Bos <bert@w3.org>
4
+ # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
2
5
3
6
package utils ;
4
7
require Exporter;
@@ -7,10 +10,9 @@ require Exporter;
7
10
$styletype @chapter @resetnumber @format %lookup $chapno @relations
8
11
@links @tonavbar $src_ext) ;
9
12
10
- # @EXPORT_OK = qw();
13
+ # @EXPORT_OK = qw(parsewords );
11
14
12
15
13
- # use Text::ParseWords;
14
16
15
17
$contents = ' ' ; # File containing ToC
16
18
$stylesheet = ' ' ; # URL of style sheet
You can’t perform that action at this time.
0 commit comments