File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11# A few common routines -*-perl-*-
22#
33# Bert Bos <bert@w3.org>
4- # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
4+ # $Id: utils.pm,v 2.1 1998-03-17 17:06:59 bbos Exp $
55
66package utils ;
77require Exporter;
@@ -27,6 +27,9 @@ $chapno = -1; # Number of the chapter under consideration
2727@tonavbar = (); # Whether the link goes into the navbar
2828$src_ext = undef ; # Extension of source files
2929
30+ # Parse a string into an array of "words".
31+ # Words are whitespace-separated sequences of non-whitespace characters,
32+ # or quoted strings ("" or ''), with the quotes removed.
3033sub parsewords {
3134 my $line = $_ [0];
3235 my @words = ();
Original file line number Diff line number Diff line change 11# A few common routines -*-perl-*-
22#
33# Bert Bos <bert@w3.org>
4- # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
4+ # $Id: utils.pm,v 2.1 1998-03-17 17:06:59 bbos Exp $
55
66package utils ;
77require Exporter;
@@ -27,6 +27,9 @@ $chapno = -1; # Number of the chapter under consideration
2727@tonavbar = (); # Whether the link goes into the navbar
2828$src_ext = undef ; # Extension of source files
2929
30+ # Parse a string into an array of "words".
31+ # Words are whitespace-separated sequences of non-whitespace characters,
32+ # or quoted strings ("" or ''), with the quotes removed.
3033sub parsewords {
3134 my $line = $_ [0];
3235 my @words = ();
You can’t perform that action at this time.
0 commit comments