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

catching initial bind symbol in PGFServer

Browse Source
This commit is contained in:
aarne
2010-03-28 20:32:03 +00:00
parent 55f8a80df7
commit ccac96eaa0
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/phrasebook/WordsIta.gf
View File

@@ -12,7 +12,7 @@ Wine = mkCN (mkN "vino") ;
Beer = mkCN (mkN "birra") ;
Water = mkCN (mkN "acqua") ;
Coffee = mkCN (mkN "caffè") ;
Tea = mkCN (mkN "té") ; ----
-- Tea = mkCN (mkN "té") ; ----
Cheese = mkCN (mkN "formaggio") ;
Fish = mkCN (mkN "pesce") ;

4
examples/phrasebook/WordsRon.gf
View File

@@ -40,10 +40,10 @@ Boring = mkAPA "plictisitor" "plictisitoare" "plictisitori" "plictisitoare" ;
ASpeak p lang = mkCl p (dirV2 (mkV "vorbi")) lang ;
ALove p q = mkCl p (dirV2 (mkV "iubi")) q ;
English = SyntaxRon.mkNP (mkPN "anglais") ; ---- ?
English = SyntaxRon.mkNP (mkPN "engleză") ; ---- ?
-- Finnish = mkNP (mkPN "finnois") ;
-- French = mkNP (mkPN "français") ;
Romanian = SyntaxRon.mkNP (mkPN "engleză") ; ---- ?
Romanian = SyntaxRon.mkNP (mkPN "română") ; ---- ?
-- Swedish = mkNP (mkPN "suédois") ;
oper

1
src/server/PGFService.hs
View File

@@ -147,6 +147,7 @@ doTranslateGroup pgf input mcat mfrom mto =
_ -> s
bind ws = case ws of
w : "&+" : u : ws2 -> bind ((w ++ u) : ws2)
"&+":ws2 -> bind ws2
w : ws2 -> w : bind ws2
_ -> ws
langOnly = reverse . take 3 . reverse