forked from GitHub/gf-rgl
remove the utf-8 flags
This commit is contained in:
@@ -1,5 +1,4 @@
|
|||||||
concrete AdjectiveMkd of Adjective = CatMkd ** open Prelude,ResMkd in {
|
concrete AdjectiveMkd of Adjective = CatMkd ** open Prelude,ResMkd in {
|
||||||
flags
|
|
||||||
coding = "UTF-8" ;
|
|
||||||
lin PositA a = a ** {isPre = True} ;
|
lin PositA a = a ** {isPre = True} ;
|
||||||
}
|
}
|
||||||
@@ -1,4 +1,2 @@
|
|||||||
concrete GrammarMkd of Grammar = VerbMkd,SentenceMkd,NounMkd,AdjectiveMkd,NumeralMkd,PhraseMkd,TextX,StructuralMkd,TenseX ** {
|
concrete GrammarMkd of Grammar = VerbMkd,SentenceMkd,NounMkd,AdjectiveMkd,NumeralMkd,PhraseMkd,TextX,StructuralMkd,TenseX ** {
|
||||||
flags
|
|
||||||
coding = "UTF-8" ;
|
|
||||||
}
|
}
|
||||||
@@ -1,6 +1,4 @@
|
|||||||
concrete NounMkd of Noun = CatMkd ** open Prelude,ResMkd in {
|
concrete NounMkd of Noun = CatMkd ** open Prelude,ResMkd in {
|
||||||
flags
|
|
||||||
coding = "UTF-8" ;
|
|
||||||
lin AdjCN ap cn = {
|
lin AdjCN ap cn = {
|
||||||
s = case ap.isPre of {
|
s = case ap.isPre of {
|
||||||
True => \\s,n => ap.s ! s
|
True => \\s,n => ap.s ! s
|
||||||
|
|||||||
@@ -1,6 +1,5 @@
|
|||||||
concrete SentenceMkd of Sentence = CatMkd ** open Prelude,ResMkd in {
|
concrete SentenceMkd of Sentence = CatMkd ** open Prelude,ResMkd in {
|
||||||
flags
|
|
||||||
coding = "UTF-8" ;
|
|
||||||
lin PredVP np vp = {present = \\a => np.s ++ vp.present ! a ! np.n ! np.p ;
|
lin PredVP np vp = {present = \\a => np.s ++ vp.present ! a ! np.n ! np.p ;
|
||||||
aorist = np.s ++ vp.aorist ! np.n ! np.p ;
|
aorist = np.s ++ vp.aorist ! np.n ! np.p ;
|
||||||
participle = {aorist = \\a => np.s ++ vp.participle.aorist ! a !
|
participle = {aorist = \\a => np.s ++ vp.participle.aorist ! a !
|
||||||
|
|||||||
@@ -1,6 +1,5 @@
|
|||||||
concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
|
concrete VerbMkd of Verb = CatMkd ** open Prelude,ResMkd in {
|
||||||
flags
|
|
||||||
coding = "UTF-8" ;
|
|
||||||
lin ComplSlash vps np = {present = \\a,n,p => vps.present ! a ! n
|
lin ComplSlash vps np = {present = \\a,n,p => vps.present ! a ! n
|
||||||
! p
|
! p
|
||||||
++ np.s;
|
++ np.s;
|
||||||
|
|||||||
Reference in New Issue
Block a user