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

updated dialogue to multimodal ; bug fixes in grammar compilation

Browse Source
This commit is contained in:
aarne
2006-05-24 15:40:15 +00:00
parent ae2ca2e945
commit 674e0c95af
11 changed files with 123 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lib/resource-1.0/common/CommonX.gf
View File

@@ -1,18 +1,19 @@
concrete CommonX of Common = open (R = ParamX) in {
lincat
Text, Phr = {s : Str} ;
Utt = {s : Str} ;
Voc = {s : Str} ;
SC = {s : Str} ;
Adv = {s : Str} ;
AdV = {s : Str} ;
AdA = {s : Str} ;
AdS = {s : Str} ;
AdN = {s : Str} ;
IAdv = {s : Str} ;
CAdv = {s : Str} ;
PConj = {s : Str} ;
Text = {s : Str ; lock_Text : {}} ;
Phr = {s : Str ; lock_Phr : {}} ;
Utt = {s : Str ; lock_Utt : {}} ;
Voc = {s : Str ; lock_Voc : {}} ;
SC = {s : Str ; lock_SC : {}} ;
Adv = {s : Str ; lock_Adv : {}} ;
AdV = {s : Str ; lock_AdV : {}} ;
AdA = {s : Str ; lock_AdA : {}} ;
AdS = {s : Str ; lock_AdS : {}} ;
AdN = {s : Str ; lock_AdN : {}} ;
IAdv = {s : Str ; lock_IAdv : {}} ;
CAdv = {s : Str ; lock_CAdv : {}} ;
PConj = {s : Str ; lock_PConj : {}} ;
Tense = {s : Str ; t : R.Tense} ;
Ant = {s : Str ; a : R.Anteriority} ;

24
lib/resource-1.0/common/ConstructX.gf
View File

@@ -3,16 +3,16 @@ resource ConstructX = open CommonX in {
oper
mkText : Str -> Text = \s -> {s = s ; lock_Text = <>} ;
mkPhr : Str -> Phr = \s -> {s = s ; lock_Phr = <>} ;
Utt = {s : Str} ;
Voc = {s : Str} ;
SC = {s : Str} ;
Adv = {s : Str} ;
AdV = {s : Str} ;
AdA = {s : Str} ;
AdS = {s : Str} ;
AdN = {s : Str} ;
IAdv = {s : Str} ;
CAdv = {s : Str} ;
PConj = {s : Str} ;
mkUtt : Str -> Utt = \s -> {s = s ; lock_Utt = <>} ;
mkVoc : Str -> Voc = \s -> {s = s ; lock_Voc = <>} ;
mkSC : Str -> SC = \s -> {s = s ; lock_SC = <>} ;
mkAdv : Str -> Adv = \s -> {s = s ; lock_Adv = <>} ;
mkAdV : Str -> AdV = \s -> {s = s ; lock_AdV = <>} ;
mkAdA : Str -> AdA = \s -> {s = s ; lock_AdA = <>} ;
mkAdS : Str -> AdS = \s -> {s = s ; lock_AdS = <>} ;
mkAdN : Str -> AdN = \s -> {s = s ; lock_AdN = <>} ;
mkIAdv : Str -> IAdv = \s -> {s = s ; lock_IAdv = <>} ;
mkCAdv : Str -> CAdv = \s -> {s = s ; lock_CAdv = <>} ;
mkPConj : Str -> PConj = \s -> {s = s ; lock_PConj = <>} ;
}
}

4
lib/resource-1.0/multimodal/MultiEng.gf
View File

@@ -1,6 +1,4 @@
--# -path=.:../english:../abstract:../common:prelude
-- --# -path=.:present:prelude
--# -path=.:alltenses:prelude
concrete MultiEng of Multi =
LangEng - [