Files
comp-syntax-gu-mlt/old-labs/lab2/wikipedia-2022/FactsFin.gf
Arianna Masciolini 3d9659d987 cp labs to old-labs
2025-03-21 11:39:09 +01:00

17 lines
322 B
Plaintext

concrete FactsFin of Facts =
open SyntaxFin, SymbolicFin, (E=ExtendFin) in {
lincat
Fact = Cl ;
Object = NP ;
Attribute = CN ;
Value = NP ;
Name = NP ;
lin
AttributeFact attr obj val = mkCl (mkNP (E.GenNP obj) attr) val ;
NameObject name = name ;
NameValue name = name ;
IntValue int = symb int ;
}