blob: b15cde1f6d03f013e91207c62fdce59e9cebeb5e (
plain)
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
|
#! /usr/bin/perl -s
#/*@@
# @file ConfigScriptParser
# @date Thu Mar 25 14:25:13 2004
# @author Yaakoub El-Khamra
# @desc
# Parses the Config Script Output
# @enddesc
# @version $Header$
#@@*/
#/*@@
# @routine ParseConfigScript
# @date Thu Mar 25 14:25:13 2004
# @author Yaakoub El-Khamra
# @desc
# Parses the Config Script Ouput
# @enddesc
#@@*/
sub ParseConfigScript
{
my($config_dir, $provides, $lang, $script, $thorn, $cfg, $thorns, $filename)=@_;
my($line_number, $line, $temp);
$start_dir = `pwd`;
chdir $config_dir;
# Run the configuration script in the config_dir folder
@data=`$lang $thorns{thorn}/$script`;
for($line_number = 0; $line_number < @data; $line_number++)
{
$line = $data[$line_number];
# Parse the line
if($line =~ m/^\s*BEGIN\s+DEFINE\s*/i)
{
$line_number++;
$line = $data[$line_number];
while($line !~ m/^\s*END\s+DEFINE\s*/i)
{
$cfg->{"\U$thorn $provides\E DEFINE"} .= $line;
$line_number++;
$line = $data[$line_number];
}
}
elsif($line =~ m/^\s*BEGIN\s+DEFINITION\s*/i)
{
$line_number++;
$line = $data[$line_number];
while($line !~ m/^\s*END\s+DEFINITION\s*/i)
{
$cfg->{"\U$thorn $provides\E DEFINITION"} .= $line;
$line_number++;
$line = $data[$line_number];
}
}
elsif($line =~ m/^\s*BEGIN\s+DEPENDENCY\s*/i)
{
$line_number++;
$line = $data[$line_number];
while($line !~ m/^\s*END\s+DEPENDENCY\s*/i)
{
$cfg->{"\U$thorn $provides\E DEPENDENCY"} .= $line;
$line_number++;
$line = $data[$line_number];
}
}
elsif($line =~ m/^\s*INCLUDE_DIRECTORY[^\s]*\s*(.*)$/i)
{
$cfg->{"\U$thorn $provides\E INCLUDE_DIRECTORY"} .=' ' . $1;
}
elsif($line =~ m/^\s*LIBRARY[^\s]*\s*(.*)$/i)
{
$cfg->{"\U$thorn $provides\E LIBRARY"} .= ' ' . $1;
}
elsif($line =~ m/^\s*LIBRARY_DIRECTORY[^\s]*\s*(.*)$/i)
{
$cfg->{"\U$thorn $provides\E LIBRARY_DIRECTORY"} .= ' ' . $1;
}
else
{
&CST_error (0, "Unrecognised line in ConfigScriptParser.ccl '$line'");
}
}
return ($cfg );
}
1;
|
