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

use oper in examples

Browse Source
This commit is contained in:
krasimir
2009-06-13 13:36:41 +00:00
parent fb29ce7834
commit c25d7be877
6 changed files with 38 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
examples/letter/LetterEng.gf
View File

@@ -12,12 +12,12 @@ param Num = sg | pl ;
param Kas = nom | acc ; param Kas = nom | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Sex => Str} ; -- needs Num and Sex oper SSDep = {s : Num => Sex => Str} ; -- needs Num and Sex
lintype SSSrc = {s : Str ; n : Num ; x : Sex} ; -- gives Num and Sex oper SSSrc = {s : Str ; n : Num ; x : Sex} ; -- gives Num and Sex
lintype SSSrc2 = {s : Num => Sex => Str ; n : DepNum ; x : Sex} ; -- gives and needs oper SSSrc2 = {s : Num => Sex => Str ; n : DepNum ; x : Sex} ; -- gives and needs
lintype SSDep2 = {s : DepNum => Sex => Num => Sex => Str} ; -- needs Auth's & Recp's oper SSDep2 = {s : DepNum => Sex => Num => Sex => Str} ; -- needs Auth's & Recp's
lintype SSSrcNum = {s : Str ; n : Num} ; -- gives Num only oper SSSrcNum = {s : Str ; n : Num} ; -- gives Num only
oper oper

12
examples/letter/LetterFin.gf
View File

@@ -15,12 +15,12 @@ param Kas = nom | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
param DepGen = depgen | cgen Gen ; param DepGen = depgen | cgen Gen ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen oper SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen
lintype SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
lintype SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs oper SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs
lintype SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's oper SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's
lintype SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
oper oper
ss : Str -> SS = \s -> {s = s} ; ss : Str -> SS = \s -> {s = s} ;

12
examples/letter/LetterFre.gf
View File

@@ -14,12 +14,12 @@ param Kas = nom | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
param DepGen = depgen | cgen Gen ; param DepGen = depgen | cgen Gen ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen oper SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen
lintype SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
lintype SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs oper SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs
lintype SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's oper SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's
lintype SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
oper oper
ss : Str -> SS = \s -> {s = s} ; ss : Str -> SS = \s -> {s = s} ;

12
examples/letter/LetterHeb.gf
View File

@@ -10,12 +10,12 @@ param Kas = nom | dat | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
param DepGen = depgen | cgen Gen ; param DepGen = depgen | cgen Gen ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen oper SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen
lintype SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
lintype SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs oper SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs
lintype SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's oper SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's
lintype SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
oper oper
ss : Str -> SS = \s -> {s = s} ; ss : Str -> SS = \s -> {s = s} ;

12
examples/letter/LetterRus.gf
View File

@@ -8,12 +8,12 @@ param Kas = nom | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
param DepGen = depgen | cgen Gen ; param DepGen = depgen | cgen Gen ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen oper SSDep = {s : Num => Gen => Str} ; -- needs Num and Gen
lintype SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrc = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
lintype SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs oper SSSrc2 = {s : Num => Gen => Str ; n : DepNum ; g : DepGen} ; -- gives&needs
lintype SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's oper SSDep2 = {s : DepNum => DepGen => Num => Gen => Str} ; -- needs Auth's&Rec's
lintype SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
oper oper
ss : Str -> SS = \s -> {s = s} ; ss : Str -> SS = \s -> {s = s} ;

16
examples/letter/LetterSwe.gf
View File

@@ -8,8 +8,8 @@ concrete LetterSwe of Letter = {
flags lexer=textlit ; unlexer=textlit ; flags lexer=textlit ; unlexer=textlit ;
printname Letter = "Brev" ; printname cat Letter = "Brev" ;
printname MkLetter = "brevmall" ; printname fun MkLetter = "brevmall" ;
param Sex = masc | fem ; param Sex = masc | fem ;
param Gen = en | ett ; param Gen = en | ett ;
@@ -17,12 +17,12 @@ param Num = sg | pl ;
param Kas = nom | acc ; param Kas = nom | acc ;
param DepNum = depnum | cnum Num ; param DepNum = depnum | cnum Num ;
lintype SS = {s : Str} ; oper SS = {s : Str} ;
lintype SSDep = {s : Num => Sex => Str} ; -- needs Num and Sex oper SSDep = {s : Num => Sex => Str} ; -- needs Num and Sex
lintype SSSrc = {s : Str ; n : Num ; x : Sex} ; -- gives Num and Sex oper SSSrc = {s : Str ; n : Num ; x : Sex} ; -- gives Num and Sex
lintype SSSrc2 = {s : Num => Sex => Str ; n : DepNum ; x : Sex} ; -- gives and needs oper SSSrc2 = {s : Num => Sex => Str ; n : DepNum ; x : Sex} ; -- gives and needs
lintype SSDep2 = {s : DepNum => Sex => Num => Sex => Str} ; -- needs Auth's & Recp's oper SSDep2 = {s : DepNum => Sex => Num => Sex => Str} ; -- needs Auth's & Recp's
lintype SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen oper SSSrcGen = {s : Str ; n : Num ; g : Gen} ; -- gives Num and Gen
oper oper