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

prepared examples for Speechgram presentation

Browse Source
This commit is contained in:
aarne
2007-06-25 15:33:40 +00:00
parent 16bfb1250b
commit f081dc0d6b
9 changed files with 16 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
examples/regulus/toy0/Toy0.gf
View File

@@ -2,13 +2,12 @@ abstract Toy0 = {
-- grammar from Chapter 2 of the Regulus book -- grammar from Chapter 2 of the Regulus book
flags startcat=MAIN ; flags startcat=NP ;
cat cat
MAIN ; NP ; Noun ; Spec ; NP ; Noun ; Spec ;
fun fun
Main : NP -> MAIN ;
SpecNoun : Spec -> Noun -> NP ; SpecNoun : Spec -> Noun -> NP ;
One, Two : Spec ; One, Two : Spec ;

3
examples/regulus/toy0/Toy0Eng.gf
View File

@@ -6,10 +6,9 @@ param
lincat lincat
Spec = {s : Str ; n : Number} ; Spec = {s : Str ; n : Number} ;
Noun = {s : Number => Str} ; Noun = {s : Number => Str} ;
MAIN,NP = {s : Str} ; NP = {s : Str} ;
lin lin
Main np = np ;
SpecNoun spec noun = {s = spec.s ++ noun.s ! spec.n} ; SpecNoun spec noun = {s = spec.s ++ noun.s ! spec.n} ;
One = {s = "one" ; n = Sg} ; One = {s = "one" ; n = Sg} ;

3
examples/regulus/toy0/Toy0Fre.gf
View File

@@ -7,10 +7,9 @@ param
lincat lincat
Spec = {s : Gender => Str ; n : Number} ; Spec = {s : Gender => Str ; n : Number} ;
Noun = {s : Number => Str ; g : Gender} ; Noun = {s : Number => Str ; g : Gender} ;
MAIN,NP = {s : Str} ; NP = {s : Str} ;
lin lin
Main np = np ;
SpecNoun spec noun = {s = spec.s ! noun.g ++ noun.s ! spec.n} ; SpecNoun spec noun = {s = spec.s ! noun.g ++ noun.s ! spec.n} ;
One = {s = table {Fem => "une" ; _ => "un"} ; n = Sg} ; One = {s = table {Fem => "une" ; _ => "un"} ; n = Sg} ;

6
examples/regulus/toy0/Toy0I.gf
View File

@@ -3,12 +3,10 @@ incomplete concrete Toy0I of Toy0 = open Syntax, Lexicon in {
lincat lincat
Spec = Det ; Spec = Det ;
Noun = N ; Noun = N ;
NP = Syntax.NP ; NP = Utt ;
MAIN = Utt ;
lin lin
Main np = mkUtt np ; SpecNoun spec noun = mkUtt (mkNP spec noun) ;
SpecNoun spec noun = mkNP spec noun ;
One = mkDet one_Quant ; One = mkDet one_Quant ;
Two = mkDet (mkNum n2_Numeral) ; Two = mkDet (mkNum n2_Numeral) ;

1
examples/regulus/toy0/toy0.gfprobs Normal file
View File

@@ -0,0 +1 @@
--# prob Felis 0.9

2
examples/regulus/toy1/Toy1.gf
View File

@@ -38,7 +38,7 @@ fun
switchable_light : Switchable light ; switchable_light : Switchable light ;
switchable_fan : Switchable fan ; switchable_fan : Switchable fan ;
dimmable_fan : Dimmable fan ; dimmable_light : Dimmable light ;
statelike_switchOn : (k : Kind) -> (s : Switchable k) -> Statelike k (switchOn k s) ; statelike_switchOn : (k : Kind) -> (s : Switchable k) -> Statelike k (switchOn k s) ;
statelike_switchOff : (k : Kind) -> (s : Switchable k) -> Statelike k (switchOff k s) ; statelike_switchOff : (k : Kind) -> (s : Switchable k) -> Statelike k (switchOff k s) ;

12
examples/regulus/toy1/Toy1Eng.gf
View File

@@ -71,14 +71,14 @@ oper
Pl => "are" Pl => "are"
} ; } ;
hidden : SS = ss [] ;
lin lin
switchable_light = ss [] ; switchable_light = hidden ;
switchable_fan = ss [] ; switchable_fan = hidden ;
dimmable_fan = ss [] ; dimmable_light = hidden ;
statelike_switchOn _ _ = ss [] ;
statelike_switchOff _ _ = ss [] ;
statelike_switchOn _ _ = hidden ;
statelike_switchOff _ _ = hidden ;
} }

2
examples/regulus/toy1/Toy1Fre.gf
View File

@@ -86,7 +86,7 @@ oper
lin lin
switchable_light = ss [] ; switchable_light = ss [] ;
switchable_fan = ss [] ; switchable_fan = ss [] ;
dimmable_fan = ss [] ; dimmable_light = ss [] ;
statelike_switchOn _ _ = ss [] ; statelike_switchOn _ _ = ss [] ;
statelike_switchOff _ _ = ss [] ; statelike_switchOff _ _ = ss [] ;

2
examples/regulus/toy1/Toy1I.gf
View File

@@ -41,7 +41,7 @@ lin
lin lin
switchable_light = ss [] ; switchable_light = ss [] ;
switchable_fan = ss [] ; switchable_fan = ss [] ;
dimmable_fan = ss [] ; dimmable_light = ss [] ;
statelike_switchOn _ _ = ss [] ; statelike_switchOn _ _ = ss [] ;
statelike_switchOff _ _ = ss [] ; statelike_switchOff _ _ = ss [] ;