generate field names and pipe them to the runtime

2021-11-17 11:34:31 +01:00
parent 9e00cdd7f4
commit 6295b32405
2 changed files with 13 additions and 4 deletions
@@ -86,8 +86,8 @@ grammar2PGF opts gr am probs = do
                      0 -> 0
                      n -> max 0 ((1 - sum [d | (f,Just d) <- pfs]) / fromIntegral n)

-    createCncCats ((m,c),CncCat _ _ _ _ _) = do
-      createLincat (i2i c) []
+    createCncCats ((m,c),CncCat (Just (L _ ty)) _ _ _ _) = do
+      createLincat (i2i c) (type2fields gr ty)
    createCncCats _ = return ()

    createCncFuns ((m,f),CncFun _ _ _ (Just prods)) = do