start files for lab2

This commit is contained in:
Aarne Ranta
2025-05-04 09:38:01 +02:00
parent 31239a3d63
commit 0671eee0ba
26 changed files with 636 additions and 0 deletions

View File

@@ -0,0 +1,17 @@
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 ;
}