diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-06 15:27:14 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-06 15:27:14 +0000 |
| commit | ab1420510859c3534d9ba7ff1e2ecbf3e317bc6c (patch) | |
| tree | 332728bfb845ae63ad0cef6dd68ee42711d9f109 /next-lib/src/finnish | |
| parent | e765b97fc483d5e737794a0aa90890ab2a1b2028 (diff) | |
next-lib now compiles webalt ; removed subdir mathematical/ for simplicity
Diffstat (limited to 'next-lib/src/finnish')
| -rw-r--r-- | next-lib/src/finnish/CompatibilityFin.gf | 11 | ||||
| -rw-r--r-- | next-lib/src/finnish/SymbolFin.gf | 4 |
2 files changed, 14 insertions, 1 deletions
diff --git a/next-lib/src/finnish/CompatibilityFin.gf b/next-lib/src/finnish/CompatibilityFin.gf new file mode 100644 index 000000000..a615f2eed --- /dev/null +++ b/next-lib/src/finnish/CompatibilityFin.gf @@ -0,0 +1,11 @@ +--# -path=.:../abstract:../common + +concrete CompatibilityFin of Compatibility = CatFin ** open Prelude, ResFin in { + +-- from Noun 19/4/2008 + +lin + NumInt n = {s = \\_,_ => n.s ; isNum = True ; n = Pl} ; + OrdInt n = {s = \\_ => n.s ++ "."} ; + +} diff --git a/next-lib/src/finnish/SymbolFin.gf b/next-lib/src/finnish/SymbolFin.gf index 922b19dcb..9ceac2105 100644 --- a/next-lib/src/finnish/SymbolFin.gf +++ b/next-lib/src/finnish/SymbolFin.gf @@ -1,3 +1,5 @@ +--# -path=.:abstract:common + concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin in { lin @@ -25,7 +27,7 @@ lin SymbS sy = sy ; SymbNum n = {s = \\_,_ => n.s ; isNum = True ; n = Pl} ; - SymbOrd n = {s = \\_,_ => n.s ++ "."} ; + SymbOrd n = {s = \\_ => n.s ++ "."} ; lincat |