mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 16:59:34 -06:00
24 lines
434 B
Plaintext
24 lines
434 B
Plaintext
resource ResNumSwedish = {
|
|
param DForm = ental | ton | tiotal ;
|
|
oper mkTal : Str -> Str -> Str -> {
|
|
s : DForm => Str
|
|
}
|
|
= \ två -> \ tolv -> \ tjugo -> {
|
|
s = table {
|
|
ental => två ;
|
|
ton => tolv ;
|
|
tiotal => tjugo
|
|
}
|
|
} ;
|
|
oper regTal : Str -> {
|
|
s : DForm => Str
|
|
}
|
|
= \ fem -> mkTal fem (fem + "ton")(fem + "tio");
|
|
oper ss : Str -> {
|
|
s : Str
|
|
}
|
|
= \ s -> {
|
|
s = s
|
|
} ;
|
|
}
|