GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

concatenation string patterns

Browse Source
This commit is contained in:
aarne
2006-01-06 21:49:25 +00:00
parent 16dfdad304
commit 731aea1a03
7 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lib/resource-1.0/german/ResGer.gf
View File

@@ -195,25 +195,23 @@ resource ResGer = ParamGer ** open Prelude in {
VP : Type = {
s : Agr => VPForm => {
fin : Str ; -- V1 hat ---s1
inf : Str -- V2 gesagt ---s4
fin : Str ; -- V1 hat
inf : Str -- V2 gesagt
} ;
a1 : Polarity => Str ; -- A1 nicht ---s3
n2 : Agr => Str ; -- N2 dich ---s5
a2 : Str ; -- A2 heute ---s6
ext : Str -- S-Ext dass sie kommt ---s7
a1 : Polarity => Str ; -- A1 nicht
n2 : Agr => Str ; -- N2 dich
a2 : Str ; -- A2 heute
ext : Str -- S-Ext dass sie kommt
} ;
predV : Verb -> VP = \verb ->
let
vfin : Tense -> Agr -> Str = \t,a ->
verb.s ! vFin t a ;
vfin : Tense -> Agr -> Str = \t,a -> verb.s ! vFin t a ;
vpart = verb.s ! VPastPart APred ;
vinf = verb.s ! VInf ;
vHaben = auxPerfect verb ;
hat : Tense -> Agr -> Str = \t,a ->
vHaben ! vFin t a ;
hat : Tense -> Agr -> Str = \t,a -> vHaben ! vFin t a ;
haben : Str = vHaben ! VInf ;
wird : Agr -> Str = \a -> werden_V.s ! VPresInd a.n a.p ;
@@ -340,10 +338,6 @@ resource ResGer = ParamGer ** open Prelude in {
}
} ;
conjThat : Str = "daß" ;
conjThan : Str = "als" ;
reflPron : Agr => Str = table {
{n = Sg ; p = P1} => "mich" ;
{n = Sg ; p = P2} => "dich" ;
@@ -353,6 +347,11 @@ resource ResGer = ParamGer ** open Prelude in {
{n = Pl ; p = P3} => "sich"
} ;
conjThat : Str = "daß" ;
conjThan : Str = "als" ;
-- For $Numeral$.
--
-- mkNum : Str -> Str -> Str -> Str -> {s : DForm => CardOrd => Str} =