diff options
| author | krasimir <krasimir@chalmers.se> | 2010-07-31 15:54:03 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-07-31 15:54:03 +0000 |
| commit | 6a1dbd0a53a0201d1d964ac15d2c732f4005c23f (patch) | |
| tree | bc6f07f38b878bab4f263463516122572dc9c1cf /src | |
| parent | f5fb69d3cdb4a6e586da925414553f1aeee3c78c (diff) | |
the PGF service now generates samples of the syntax in the browsing information
Diffstat (limited to 'src')
| -rw-r--r-- | src/server/PGFService.hs | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index c65ba2993..75670adbf 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -17,7 +17,7 @@ import Control.Exception import Control.Monad import Data.Char import Data.Function (on) -import Data.List (sortBy,intersperse) +import Data.List (sortBy,intersperse,mapAccumL) import qualified Data.Map as Map import Data.Maybe import System.Directory @@ -288,6 +288,7 @@ pipeIt2graphviz code = do doBrowse pgf id cssClass href = case PGF.browse pgf id of Just (def,ps,cs) -> "<PRE>"++annotate def++"</PRE>\n"++ + syntax++ (if not (null ps) then "<BR/>"++ "<H3>Producers</H3>"++ @@ -300,6 +301,30 @@ doBrowse pgf id cssClass href = else "") Nothing -> "" where + syntax = + case PGF.functionType pgf id of + Just ty -> let (hypos,_,_) = PGF.unType ty + e = PGF.mkApp id (snd $ mapAccumL mkArg (1,1) hypos) + rows = ["<TR class=\"my-SyntaxRow\">"++ + "<TD class=\"my-SyntaxLang\">"++PGF.showCId lang++"</TD>"++ + "<TD class=\"my-SyntaxLin\">"++PGF.linearize pgf lang e++"</TD>"++ + "</TR>" + | lang <- PGF.languages pgf] + in "<BR/>"++ + "<H3>Syntax</H3>"++ + "<TABLE class=\"my-SyntaxTable\">\n"++ + "<TR class=\"my-SyntaxRow\">"++ + "<TD class=\"my-SyntaxLang\">"++PGF.showCId (PGF.abstractName pgf)++"</TD>"++ + "<TD class=\"my-SyntaxLin\">"++PGF.showExpr [] e++"</TD>"++ + "</TR>\n"++ + unlines rows++"\n</TABLE>" + Nothing -> "" + + mkArg (i,j) (_,_,ty) = ((i+1,j+length hypos),e) + where + e = foldr (\(j,(bt,_,_)) -> PGF.mkAbs bt (PGF.mkCId ('X':show j))) (PGF.mkMeta i) (zip [j..] hypos) + (hypos,_,_) = PGF.unType ty + identifiers = PGF.functions pgf ++ PGF.categories pgf annotate [] = [] |