GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

verbosity in make phrasebook ; removed own hacks in LexiconBul

Browse Source
This commit is contained in:
aarne
2010-08-25 11:30:16 +00:00
parent c6f1c529fb
commit 36df81f051
2 changed files with 5 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/phrasebook/Compile.hs
View File

@@ -29,12 +29,14 @@ main = do
else return () else return ()
case opts of case opts of
_ | elem "-make" opts || elem "-link" opts -> do _ | elem "-make" opts || elem "-link" opts -> do
system $ "gf -make -s " ++ unwords (map (++ ".pgf") modus) let comm = "gf -make -s " ++ unwords (map (++ ".pgf") modus)
putStrLn comm
system comm
return () return ()
_ -> return () _ -> return ()
compileOne modu = do compileOne modu = do
let comm = "gf -make -s -name=" ++ modu ++ " " ++ modu ++ ".gf" let comm = "gf -make -s -optimize-pgf -name=" ++ modu ++ " " ++ modu ++ ".gf"
putStrLn comm putStrLn comm
system comm system comm

11
lib/src/bulgarian/LexiconBul.gf
View File

@@ -113,6 +113,7 @@ lin
vtype = VNormal ; vtype = VNormal ;
lock_V = <> lock_V = <>
} ; } ;
know_VS = mkVS (actionV (mkV188 "çíàì") (mkV162 "çíàÿ")) ;
lake_N = mkN054 "åçåðî" ; lake_N = mkN054 "åçåðî" ;
lamp_N = mkN041 "ëàìïà" ; lamp_N = mkN041 "ëàìïà" ;
learn_V2 = dirV2 (actionV (mkV176 "ó÷à") (mkV176 "íàó÷à")) ; learn_V2 = dirV2 (actionV (mkV176 "ó÷à") (mkV176 "íàó÷à")) ;
@@ -377,14 +378,4 @@ oper
"ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"} "ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"}
}) Acc ; }) Acc ;
oper know_V : V =
{
s = \\_,vform => case vform of {
VPassive aform => (mkA079 "èçâåñòåí").s ! aform ;
_ => mkV162 "çíàÿ" ! vform
} ;
vtype = VNormal ;
lock_V = <>
} ;
} ; } ;