From 1fccece30c6da8a872499cf8bf0eaa9c7af2522a Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 24 Aug 2011 09:37:55 +0000
Subject: [PATCH] pgf-service: apply the OpenMath LaTeX function only when
 linearizing to a

concrete language whose name ends with LaTeX.
This change also avoids duplicating output and, in addition to the linearize
command, applies the transfer also when using the linearizeAll command.
---
 src/server/PGFService.hs | 36 +++++++++++++++---------------------
 1 file changed, 15 insertions(+), 21 deletions(-)

diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index 996ba5bd7..8260df122 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -20,7 +20,7 @@ import Control.Exception(evaluate)
 import Control.Monad
 import Data.Char
 import Data.Function (on)
-import Data.List (sortBy,intersperse,mapAccumL,nub)
+import Data.List (sortBy,intersperse,mapAccumL,nub,isSuffixOf)
 import qualified Data.Map as Map
 import Data.Maybe
 import System.Random
@@ -165,7 +165,7 @@ doTranslate pgf input mcat mfrom mto =
                                                             ("linearizations",showJSON 
                                                                [toJSObject [("to", showJSON to),
                                                                             ("text",showJSON output)]
-                                                                  | (to,output) <- transferLinearizeAndBind pgf mto tree]
+                                                                  | (to,output) <- linearizeAndBind pgf mto tree]
                                                             )]
                                                    | tree <- trees])]
     jsonParseOutput (PGF.ParseIncomplete)= []
@@ -476,18 +476,22 @@ complete' pgf from typ mlimit input =
                        Right ps -> loop ps ws
 
 linearize' :: PGF -> Maybe PGF.Language -> PGF.Tree -> [(PGF.Language,String)]
-linearize' pgf mto tree = 
-    case mto of
-      Nothing -> PGF.linearizeAllLang pgf tree
-      Just to -> [(to,PGF.linearize pgf to tree)]
+linearize' pgf mto tree =
+    [(to,PGF.linearize pgf to (transfer to tree)) | to<-langs]
+  where
+    langs = maybe (PGF.languages pgf) (:[]) mto
+
+transfer lang = if "LaTeX" `isSuffixOf` show lang
+                then fold -- OpenMath LaTeX transfer
+                else id
 
 -- all variants and their forms
 linearizes' :: PGF -> Maybe PGF.Language -> PGF.Tree -> [(PGF.Language,[String])]
-linearizes' pgf mto tree = case mto of
-  Nothing -> [(to,lins to tree) | to <- PGF.languages pgf]
-  Just to -> [(to,lins to tree)]
- where
-   lins to = nub . concatMap (map snd) . PGF.tabularLinearizes pgf to
+linearizes' pgf mto tree =
+    [(to,lins to (transfer to tree)) | to <- langs]
+  where
+    langs = maybe (PGF.languages pgf) (:[]) mto
+    lins to = nub . concatMap (map snd) . PGF.tabularLinearizes pgf to
 
 linearizeAndBind pgf mto t = [(la, binds s) | (la,s) <- linearize' pgf mto t]
   where
@@ -497,16 +501,6 @@ linearizeAndBind pgf mto t = [(la, binds s) | (la,s) <- linearize' pgf mto t]
       u:ws2        -> u : bs ws2
       _            -> []
 
--- Apply transfer function OpenMath LaTeX
-transferLinearizeAndBind pgf mto t = [(la, binds s) | (la,s) <- unfolded ++ folded, not (null s)]
- where unfolded = linearize' pgf mto t
-       folded   = linearize' pgf mto (fold t)
-       binds = unwords . bs . words
-       bs ws = case ws of
-         u:"&+":v:ws2 -> bs ((u ++ v):ws2)
-         u:ws2        -> u : bs ws2
-         _            -> []
-
 selectLanguage :: PGF -> Maybe (Accept Language) -> PGF.Language
 selectLanguage pgf macc = case acceptable of
                             []  -> case PGF.languages pgf of