mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 18:02:54 -06:00
redocumenting resource
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
concrete CatGer of Cat = open ResGer, Prelude in {
|
||||
concrete CatGer of Cat = TenseX ** open ResGer, Prelude in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
@@ -71,7 +71,7 @@ concrete CatGer of Cat = open ResGer, Prelude in {
|
||||
Subj = {s : Str} ;
|
||||
Prep = {s : Str ; c : Case} ;
|
||||
|
||||
-- Open lexical classes, e.g. Basic
|
||||
-- Open lexical classes, e.g. Lexicon
|
||||
|
||||
V, VS, VQ, VA = ResGer.Verb ; -- = {s : VForm => Str} ;
|
||||
VV = Verb ** {isAux : Bool} ;
|
||||
|
||||
@@ -11,9 +11,8 @@ concrete LangGer of Lang =
|
||||
RelativeGer,
|
||||
ConjunctionGer,
|
||||
PhraseGer,
|
||||
TensedGer,
|
||||
StructuralGer,
|
||||
BasicGer
|
||||
LexiconGer
|
||||
** {
|
||||
|
||||
flags startcat = Phr ;
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
--# -path=.:../common:../abstract:../../prelude
|
||||
|
||||
concrete BasicGer of Basic = CatGer ** open Prelude, ParadigmsGer in {
|
||||
concrete LexiconGer of Lexicon = CatGer ** open Prelude, ParadigmsGer in {
|
||||
|
||||
flags
|
||||
optimize=all_subs ;
|
||||
@@ -1,4 +1,4 @@
|
||||
concrete PhraseGer of Phrase = CatGer, TenseX ** open Prelude, ResGer in {
|
||||
concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
|
||||
@@ -37,4 +37,8 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
|
||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||
EmbedVP vp = {s = "zu" ++ (vp.s ! agrP3 Sg ! VPInfinit Simul).inf} ; --- agr ---- compl
|
||||
|
||||
UseCl t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
|
||||
UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
|
||||
UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -1,10 +0,0 @@
|
||||
concrete TensedGer of Tensed = CatGer, TenseX ** open ResGer in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
UseCl t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! o} ;
|
||||
UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
|
||||
UseRCl t a p cl = {s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user