Files
comp-syntax-gu-mlt/labs1-2/wikipedia-2022/FactsEng.gf
2025-03-21 13:51:53 +01:00

16 lines
330 B
Plaintext

concrete FactsEng of Facts = open SyntaxEng, SymbolicEng in {
lincat
Fact = Cl ;
Object = NP ;
Attribute = CN ;
Value = NP ;
Name = NP ;
lin
AttributeFact attr obj val = mkCl (mkNP the_Det (mkCN attr (mkAdv possess_Prep obj))) val ;
NameObject name = name ;
NameValue name = name ;
IntValue int = symb int ;
}