GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-09-19 00:36:02 -06:00
Code Issues Packages Projects Releases Wiki Activity

implement missingLins

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-15 10:45:59 +02:00
parent e12cd6464e
commit 465a1919d6
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/PGF.hs
+9 -1
View File
@@ -37,7 +37,7 @@ module PGF(
categories, categoryContext, PGF2.startCat, categories, categoryContext, PGF2.startCat,
-- * Functions -- * Functions
functions, functionsByCat, functionType, functions, functionsByCat, functionType, missingLins,
-- * Expressions & Trees -- * Expressions & Trees
-- ** Tree -- ** Tree
@@ -349,6 +349,14 @@ functionsByCat gr (CId fun) = map CId (PGF2.functionsByCat gr fun)
functionType :: PGF -> CId -> Maybe Type functionType :: PGF -> CId -> Maybe Type
functionType gr (CId fun) = PGF2.functionType gr fun functionType gr (CId fun) = PGF2.functionType gr fun
-- | List of functions that lack linearizations in the given language.
missingLins :: PGF -> Language -> [CId]
missingLins gr (CId lang) =
case Map.lookup lang (PGF2.languages gr) of
Just cnc -> [CId c | c <- PGF2.functions gr, PGF2.hasLinearization cnc c]
Nothing -> error ("Unknown language: " ++ lang)
type LIndex= String type LIndex= String
type Token = String type Token = String