From 3ed19a482e796b0a62d234ec9ffd1981d5fee64e Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 5 Jan 2010 07:05:41 +0000
Subject: printnames are now kept as String instead of Term in PGF

---
 src/runtime/haskell/PGF/Linearize.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/runtime/haskell/PGF/Linearize.hs')

diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs
index 80d1f1acf..de3daf11d 100644
--- a/src/runtime/haskell/PGF/Linearize.hs
+++ b/src/runtime/haskell/PGF/Linearize.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE ParallelListComp #-}
 module PGF.Linearize 
-  (linearizes,realize,realizes,linTree, linTreeMark,linearizesMark) where
+  (linearizes,showPrintName,realize,realizes,linTree, linTreeMark,linearizesMark) where
 
 import PGF.CId
 import PGF.Data
@@ -164,3 +164,7 @@ linTreeMark pgf lang = lin [] . expr2tree
 
     bracket  p ts = [kks ("("++show p)] ++ ts ++ [kks ")"]
     sub p i = p ++ [i]
+
+-- | Show the printname of function or category
+showPrintName :: PGF -> Language -> CId -> String
+showPrintName pgf lang id = lookMap "?" id $ printnames $ lookMap (error "no lang") lang $ concretes pgf
-- 
cgit v1.2.3