GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

new synopsis, now with Pol and Urd

Browse Source
This commit is contained in:
aarne
2010-04-04 14:07:09 +00:00
parent 59c3482397
commit 7e659b0ff2
4 changed files with 1145 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/doc/MkSynopsis.hs
View File

@@ -184,10 +184,12 @@ paradigmFiles = [
-- ("Interlingua", srcPath "/interlingua/ParadigmsIna.gf"),
("Italian", srcPath "/italian/ParadigmsIta.gf"),
("Norwegian", srcPath "/norwegian/ParadigmsNor.gf"),
("Polish", srcPath "/polish/ParadigmsPol.gf"),
("Romanian", srcPath "/romanian/ParadigmsRon.gf"),
("Russian", srcPath "/russian/ParadigmsRus.gf"),
("Spanish", srcPath "/spanish/ParadigmsSpa.gf"),
("Swedish", srcPath "/swedish/ParadigmsSwe.gf")
("Swedish", srcPath "/swedish/ParadigmsSwe.gf"),
("Urdu", srcPath "/urdu/ParadigmsUrd.gf")
]
append s = appendFile synopsis ('\n':s)
@@ -197,7 +199,7 @@ include s = append $ "%!include: " ++ s
space = append "\n"
delimit ss = mapM_ append ss
link s f = append $ s ++ " [``" ++ fa ++ "`` " ++ f ++ "]" where
fa = "http://www.cs.chalmers.se/~aarne/GF/lib/resource" ++ dropWhile (=='.') f
fa = "http://www.grammaticalframework.org/lib/resource" ++ dropWhile (=='.') f
ttf s = "``" ++ s ++ "``"
itf s = "//" ++ s ++ "//"