Use overloaded API in peace keeping grammar. Still not compiling, "no instance of mkS for Cl among ... Cl ... ?"

This commit is contained in:
bjorn
2008-08-19 14:35:45 +00:00
parent 7616c2ea23
commit a16b87f441
8 changed files with 62 additions and 60 deletions

View File

@@ -1,12 +1,20 @@
incomplete concrete PeaceCatI of PeaceCat =
Cat ** open Lang, PeaceRes, Prelude in {
open Lang, PeaceRes, Prelude in {
lincat
N = N; A = A; V = V; V2 = V2; V3 = V3; Pron = Pron;
IP = IP; IAdv = IAdv;
Adv = Adv; NP = NP; CN = CN; Imp = Imp; Det = Det; Num = Num;
MassN = N ;
Phrase = { s : Str; p : Punct } ;
PhraseWritten = { s : Str } ;
PhraseSpoken = { s : Str } ;
Sent = {s : SForm => Str} ;
Quest = { s : Str } ;
MassCN = CN ;
lin
Written x = mkWritten x.s x.p ;
Spoken x = { s = x.s } ;