csswg-drafts/css2/bin/Attic/utils.pm at 82b494dd5ac69ce675bfee17fed4d53fb6a18bce · w3c/csswg-drafts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
# A few common routines						 -*-perl-*-
#
# Bert Bos <bert@w3.org>
# $Id: utils.pm,v 2.1 1998-03-17 17:06:59 bbos Exp $

package utils;
require Exporter;
@ISA = qw(Exporter);
@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
@chapter = ();			# Array of chapter files
@resetnumber = ();		# For each chapter: the chapter number - 1
@format = ();			# For each chapter: list of number formats
%lookup = ();			# Reverse index: chapter name -> number
$chapno = -1;			# Number of the chapter under consideration
@relations = ();		# Additional links
@links = ();			# Additional links (paired with @relations)
@tonavbar = ();			# Whether the link goes into the navbar
$src_ext = undef;		# Extension of source files

# Parse a string into an array of "words".
# Words are whitespace-separated sequences of non-whitespace characters,
# or quoted strings ("" or ''), with the quotes removed.
sub parsewords {
    my $line = $_[0];
    my @words = ();
    while ($line ne '') {
	if ($line =~ /^\s+/) {
	    # Skip whitespace
	} elsif ($line =~ /^\"((?:[^\"]|\\\")*)\"/) {
	    push(@words, $1);
	} elsif ($line =~ /^\'((?:[^\']|\\\')*)\'/) {
	    push(@words, $1);
	} elsif ($line =~ /^\S+/) {
	    push(@words, $&);
	} else {
	    die "Cannot happen\n";
	}
	$line = $';
    }
    return @words;
}

# Read info about book's structure from $_[0]
sub read_config {
    open(IN, $_[0]) || die "$0: cannot open file $_[0]\n";
    my $reset = 0;		# If >= 0, start chapter numbering w/ this
    my @curformat = ("1","1.1","1.1.1","1.1.1.1","1.1.1.1.1","1.1.1.1.1.1");
    while (<IN>) {
	chop;
	my @words = parsewords($_);
	if (!defined $words[0]) {next;} # Empty line
	for ($words[0]) {
	    /\@contents$/o and do { # URL of ToC
		$contents = $words[1];
		last;
	    };
	    /\@stylesheet$/o and do { # URL (and type) of style sheet
		$stylesheet = $words[1];
		if (defined $words[2]) {$styletype = $words[2];}
		last;
	    };
	    /\@format$/o and do { # Set numbering style for next chapters
		@curformat = @words;
		$reset = 0;
		last;
	    };
	    /\@restart$/o and do { # Reset the chapter number
		$reset = int($words[1]) - 1;
		next;
	    };
	    /\@chapter$/o and do { # File with next chapter
		push(@chapter, ($words[1]));
		push(@format, ([@curformat]));
		push(@resetnumber, ($reset));
		$reset++;
		$lookup{$words[1]} = $#chapter;
		last;
	    };
	    /\@link$/o and do {	# Additional <LINK> tags
		push(@relations, ($words[1]));
		push(@links, ($words[2]));
		push(@tonavbar, (defined $words[3] ? $words[3] : ""));
		last;
	    };
	    /\@source-extension$/o and do { # Extension of sources
		$src_ext = $words[1];
		last;
	    };
	    /^\#/o and do {	# Comment
		last;
	    };
	    die "$0: syntax error in config file $_[0], line $.\n";
	}
    }
    close(IN);
}

# Load file into memory
sub readfile {
    open(INPUT, $_[0]) || die "$PROG: cannot open file $_[0]\n";
    local $/ = undef;
    my $buf = <INPUT>;
    close(INPUT);
    return $buf;
}

# Create a file $_[0] containing $_[1]
sub writefile {
    open(OUTPUT, ">$_[0]") || die "$PROG: cannot create file $_[0]\n";
    print OUTPUT $_[1];
    close(OUTPUT);
}

return 1;