projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-06-23 19:40:21 by sof]
[ghc-hetmet.git]
/
ghc
/
utils
/
ghc-pkg
/
ParsePkgConfLite.y
diff --git
a/ghc/utils/ghc-pkg/ParsePkgConfLite.y
b/ghc/utils/ghc-pkg/ParsePkgConfLite.y
index
152ff9b
..
d4d8ddb
100644
(file)
--- a/
ghc/utils/ghc-pkg/ParsePkgConfLite.y
+++ b/
ghc/utils/ghc-pkg/ParsePkgConfLite.y
@@
-48,6
+48,11
@@
field :: { PackageConfig -> PackageConfig }
"name" -> p{name = $3}
_ -> error "unknown key in config file" }
"name" -> p{name = $3}
_ -> error "unknown key in config file" }
+ | VARID '=' bool
+ {\p -> case $1 of {
+ "auto" -> p{auto = $3};
+ _ -> p } }
+
| VARID '=' strlist
{\p -> case $1 of
"import_dirs" -> p{import_dirs = $3}
| VARID '=' strlist
{\p -> case $1 of
"import_dirs" -> p{import_dirs = $3}
@@
-73,6
+78,11
@@
strs :: { [String] }
: STRING { [ $1 ] }
| strs ',' STRING { $3 : $1 }
: STRING { [ $1 ] }
| strs ',' STRING { $3 : $1 }
+bool :: { Bool }
+ : CONID {% case $1 of {
+ "True" -> True;
+ "False" -> False;
+ _ -> error ("unknown constructor in config file: " ++ $1) } }
{
data Token =
ITocurly
{
data Token =
ITocurly