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

godis tram grammars, augmented with Fin

Browse Source
This commit is contained in:
aarne
2006-11-08 15:08:09 +00:00
parent 5815ec730a
commit 8680d918f6
45 changed files with 2626 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
examples/godis-tram/Tram/LinesFin.gf Normal file
View File

@@ -0,0 +1,42 @@
--# -path=.:../Common:alltenses:mathematical
concrete LinesFin of Lines = open Prelude, CatFin, GodisLangFin, ParadigmsFin, SymbolFin in {
lincat Line = NP;
lin
Tram1 = ratikka "1" ;
Tram2 = ratikka "2";
Tram3 = ratikka "3";
Tram4 = ratikka "4";
Tram5 = ratikka "5";
Tram6 = ratikka "6";
Tram7 = ratikka "7";
Tram8 = ratikka "8";
Tram9 = ratikka "9";
Bus34 = bussi "34";
Bus40 = bussi "40";
Bus51 = bussi "51";
Bus60 = bussi "60";
Bus62 = bussi "62";
Alvsnabben = mkNP (regN "älvsnabben-lautta") singular ;
oper
ratikka : Str -> NP = \s -> CNIntNP (regN "ratikka") (int s) ;
bussi : Str -> NP = \s -> CNIntNP (regN "bussi") (int s) ;
---- this shouldn't be needed
int : Str -> {
s : Str ;
last : % Predef.Ints 9 ;
size : % Predef.Ints 1
} = \s -> {
s = s ;
last = 0 ;
size = 1
} ;
}