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

Building interface to PL's parser.

Browse Source
This commit is contained in:
aarne
2003-10-03 13:03:15 +00:00
parent cfe8ebc1fb
commit 719fcd09ea
5 changed files with 73 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/GF/Canon/Look.hs
View File

@@ -33,6 +33,21 @@ lookupLin gr f = do
CncCat _ t _ -> return t
AnyInd _ n -> lookupLin gr $ redirectIdent n f
lookupLincat :: CanonGrammar -> CIdent -> Err CType
lookupLincat gr f = do
info <- lookupCncInfo gr f
case info of
CncCat t _ _ -> return t
AnyInd _ n -> lookupLincat gr $ redirectIdent n f
lookupPrintname :: CanonGrammar -> CIdent -> Err Term
lookupPrintname gr f = do
info <- lookupCncInfo gr f
case info of
CncFun _ _ _ t -> return t
CncCat _ _ t -> return t
AnyInd _ n -> lookupPrintname gr $ redirectIdent n f
lookupResInfo :: CanonGrammar -> CIdent -> Err Info
lookupResInfo gr f@(CIQ m c) = do
mt <- M.lookupModule gr m