forked from GitHub/gf-rgl
Various cleanups
This commit is contained in:
@@ -1,8 +1,9 @@
|
||||
--# -path=.:../abstract:../common:../prelude
|
||||
|
||||
concrete LangTur of Lang =
|
||||
concrete LangTur of Lang =
|
||||
GrammarTur,
|
||||
LexiconTur
|
||||
LexiconTur,
|
||||
AdverbTur
|
||||
** {
|
||||
|
||||
flags startcat = Phr ; unlexer = text ; lexer = text ; coding=utf8 ;
|
||||
|
||||
@@ -62,11 +62,11 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
|
||||
a = {n=n; p=p} ;
|
||||
} ;
|
||||
|
||||
--Prep
|
||||
|
||||
-- Prep
|
||||
no_Prep = mkPrep [] Acc;
|
||||
|
||||
mkPrep : Str -> Case -> {s : Str; c : Case; lock_Prep : {}} =
|
||||
\s,c -> lin Prep {s=s; c=c};
|
||||
\s, c -> lin Prep {s=s; c=c};
|
||||
|
||||
mkClause : Str -> Agr -> Verb -> {s : Str} =
|
||||
\np, a, v -> ss (np ++ v.s ! VProg a) ;
|
||||
|
||||
Reference in New Issue
Block a user