From 719fcd09ea0501d864af3afacc843186d24f6c94 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 3 Oct 2003 13:03:15 +0000
Subject: Building interface to PL's parser.

---
 src/GF/Canon/Look.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src/GF/Canon')

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index a71d024c2..ec76008f9 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -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
-- 
cgit v1.2.3