mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-15 22:22:51 -06:00
Convert many RGL modules from Latin-1 to UTF-8 to speed up compilation
Also add flags coding=utf8 to silence warnings.
This commit is contained in:
@@ -1,9 +1,8 @@
|
||||
--# -path=.:../common:../../prelude
|
||||
--# -coding=latin1
|
||||
--
|
||||
----1 A Simple German Resource Morphology
|
||||
----
|
||||
---- Aarne Ranta & Harald Hammarström 2002 -- 2006
|
||||
---- Aarne Ranta & Harald Hammarström 2002 -- 2006
|
||||
----
|
||||
---- This resource morphology contains definitions needed in the resource
|
||||
---- syntax. To build a lexicon, it is better to use $ParadigmsGer$, which
|
||||
@@ -12,6 +11,7 @@
|
||||
resource MorphoGer = ResGer ** open Prelude, (Predef=Predef) in {
|
||||
|
||||
flags optimize=all ;
|
||||
coding=utf8 ;
|
||||
|
||||
oper
|
||||
|
||||
@@ -36,7 +36,7 @@ oper
|
||||
|
||||
genitS : Bool -> Str -> Str = \flag,hund -> case hund of {
|
||||
_ + ("el" | "en" | "er") => hund + "s" ;
|
||||
_ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
|
||||
_ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
|
||||
_ => hund + case flag of {True => "s"; False => "es"}
|
||||
} ;
|
||||
pluralN : Str -> Str = \hund -> case hund of {
|
||||
@@ -52,14 +52,14 @@ oper
|
||||
-- Duden, p. 119
|
||||
|
||||
verbT : Str -> Str = \v -> case v of {
|
||||
_ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
|
||||
_ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
|
||||
_ + ("ch" | "k" | "p" | "t" | "g" | "b" | "d" | "f" | "s") +
|
||||
("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
|
||||
_ => v + "t" -- lernen, lärmen, qualmen etc
|
||||
("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
|
||||
_ => v + "t" -- lernen, lärmen, qualmen etc
|
||||
} ;
|
||||
|
||||
verbST : Str -> Str = \v -> case v of {
|
||||
_ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
|
||||
_ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
|
||||
_ => v + "st"
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user