msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

rebuilt absfuns.html with some Constructions and by giving lists of deps for non-local rules

Browse Source
This commit is contained in:
aarne
2015-10-15 15:09:22 +00:00
parent 92b99935f3
commit a0b56e0563
2 changed files with 229 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/doc/AbsFunDoc.hs
View File

@@ -11,10 +11,10 @@ import Data.List
-- this creates the file absfuns.html
main = do
system "grep \" : \" ../src/abstract/*.gf ../src/translator/Extensions.gf >absfuns.tmp"
system "grep \" : \" ../src/abstract/*.gf ../src/translator/Extensions.gf | grep \" -- \" >absfuns.tmp"
funs <- readFile "absfuns.tmp" >>= return . lines
deps <- readFile "../src/uddeps.labels" >>= return . lines
let depmap = M.fromList [(fun,deps) | fun:deps <- map words deps]
let depmap = M.fromListWith (\x y -> x ++ [";"] ++ y) [(fun,deps) | fun:deps <- map words deps]
let rows = sort $ filter (flip S.notMember hiddenModules . last) $ map (mkRow depmap) (map words funs)
let entries = map (sepFields . addLink) rows
putStrLnIf $ "GF RGL Functions"
@@ -27,7 +27,7 @@ main = do
hiddenModules = S.fromList
["Backward","Structural","Extra","Construction","Compatibility",
["Backward","Structural","Extra","Compatibility",
"Documentation","Lexicon","NumeralTransfer","Terminology","Transfer","MarkHTML","Markup","ERROR"] ----
mkRow depmap ws = case ws of