msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

some fixes to make Phrasebook compilable more easily

Browse Source
This commit is contained in:
aarne
2012-10-15 09:02:39 +00:00
parent a8965d587b
commit 5472b4b5e7
7 changed files with 11 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/phrasebook/GreetingsHin.gf
View File

@@ -1,4 +1,4 @@
concrete GreetingsHin of Greetings = SentencesHin [mkGreeting] ** open (P=Prelude) in {
concrete GreetingsHin of Greetings = SentencesHin [Greeting,mkGreeting] ** open (P=Prelude) in {
-- lincat
-- Greeting = {s : Str; lock_Text : {}} ;

2
examples/phrasebook/GreetingsUrd.gf
View File

@@ -1,4 +1,4 @@
concrete GreetingsUrd of Greetings = SentencesUrd [mkGreeting] ** open (P=Prelude) in {
concrete GreetingsUrd of Greetings = SentencesUrd [mkGreeting,Greeting] ** open (P=Prelude) in {
-- lincat
-- Greeting = {s : Str; lock_Text : {}} ;

6
examples/phrasebook/SentencesHin.gf
View File

@@ -1,4 +1,5 @@
concrete SentencesHin of Sentences = NumeralHin ** SentencesI - [sing,IFemale,YouFamFemale,YouPolFemale,MMust,YouPlurFamFemale,YouPlurPolFemale,YouFamMale] with
concrete SentencesHin of Sentences = NumeralHin ** SentencesI -
[sing,IFemale,YouFamFemale,YouPolFemale,MMust,YouPlurFamFemale,YouPlurPolFemale,YouFamMale,mkGreeting] with
(Syntax = SyntaxHin),
(Symbolic = SymbolicHin),
(Lexicon = LexiconHin) **
@@ -17,6 +18,9 @@ concrete SentencesHin of Sentences = NumeralHin ** SentencesI - [sing,IFemale,
flags coding = utf8 ;
oper
mkGreeting = ss ;
oper
myN = "मैं" ;
mjh = "मुझ" ;

15
examples/phrasebook/missing.txt
View File

@@ -1,20 +1,5 @@
DisambPhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookBul : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookCat : MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookDan : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookDut : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookEng : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookFin : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookFre : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookGer : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookHin : AScared ATired MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookIta : MCan MMust ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookLav : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookNor : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookPes : AHasAge AHasChildren AHasRoom AHasTable AmountCurrency Belgian DrinkNumber ItCost MCan MKnow MMust NNumeral ObjNumber ObjPlur PNumber PPrice ThesPlur ThesePlur ThosePlur V2Wait VWait
PhrasebookPol : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookRon : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookRus : Belgian Belgium Flemish ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookSpa : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookSwe : ObjPlur ThesPlur ThesePlur ThosePlur
PhrasebookTha : ObjPlur ThesPlur ThesePlur ThosePlur

2
lib/src/Make.hs
View File

@@ -83,7 +83,7 @@ langsIncomplete = ["Amh","Ara","Lat","Mlt","Tur","Thb"]
langsAPI = langsLang `except` langsIncomplete
-- languages for which to compile Symbolic
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Chi","Hin","Ina","Jpn","Nep","Pnb","Rus", "Snd", "Thb"])
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Ina","Jpn","Nep","Pnb","Snd", "Thb"])
-- languages for which to compile minimal Syntax
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]

4
lib/src/demo/Makefile
View File

@@ -6,7 +6,7 @@ src:
runghc MkMini.hs
compdemo:
$(compile) Afr Bul Cat Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
$(compile) Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
linkdemo:
$(compile) -link Afr Bul Cat Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
$(compile) -link Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd

2
lib/src/demo/MkMini.hs
View File

@@ -1,6 +1,6 @@
src = "Eng"
langs = [
"Afr","Bul","Cat","Dan","Dut",
"Afr","Bul","Cat","Chi","Dan","Dut",
"Fin","Fre","Ger","Hin","Ita",
"Jpn","Lav","Nep","Nor","Pes",
"Pol","Pnb","Ron","Rus","Snd",