GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 14:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

extended Synopsis with categories, structural, and an example

Browse Source
This commit is contained in:
aarne
2007-07-04 09:39:24 +00:00
parent e9857531e1
commit 0cad9315fb
5 changed files with 1002 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
lib/resource-1.0/doc/MkSynopsis.hs
View File

@@ -5,16 +5,51 @@ main = do
writeFile synopsis "GF Resource Grammar Library: Synopsis"
append "Aarne Ranta"
space
title "Syntax"
title "Categories"
space
link "source" syntaxAPI
link "Source 1:" commonAPI
space
link "Source 2:" catAPI
space
cs1 <- getCats True commonAPI
cs2 <- getCats False catAPI
delimit $ cs1 ++ cs2
space
title "Syntax Rules"
space
link "Source:" syntaxAPI
space
rs <- getRules syntaxAPI
delimit rs
space
title "Structural Words"
space
link "Source:" structuralAPI
space
rs <- getRules structuralAPI
delimit rs
space
mapM_ putParadigms paradigmFiles
space
title "Example Usage"
space
ss <- readFile "synopsis-example.txt" >>= return . lines
mapM_ append ss
space
system $ "txt2tags -thtml --toc " ++ synopsis
getCats isBeg file = do
ss <- readFile file >>= return . lines
return $ mkCatTable isBeg $ getrs [] ss
where
getrs rs ss = case ss of
('-':'-':'.':_):_ -> reverse rs
[] -> reverse rs
('-':'-':_):ss2 -> getrs rs ss2
s:ss2 -> case words s of
cat:";":"--":exp -> getrs ((cat,unwords expl, unwords (tail ex)):rs) ss2 where
(expl,ex) = span (/="e.g.") exp
_ -> getrs rs ss2
getRules file = do
ss <- readFile file >>= return . lines
@@ -28,6 +63,7 @@ getRules file = do
_:_:"overload":_ -> getrs rs ss2
_:":":_ -> getrs (layout s:rs) ss2
_ -> getrs rs ss2
layout s = " " ++ dropWhile isSpace s
putParadigms (lang,file) = do
title ("Paradigms for " ++ lang)
@@ -39,8 +75,6 @@ putParadigms (lang,file) = do
delimit rs
space
layout s = " " ++ dropWhile isSpace s
mkTable rs = "|| Function | Type | Example ||" : map (unwords . row . words) rs where
row ws = ["|", name, "|", typ, "|", ex, "|"] where
@@ -53,8 +87,17 @@ mkTable rs = "|| Function | Type | Example ||" : map (unwords . row . words)
_ -> e
filtype = filter (/=";")
mkCatTable isBeg rs =
(if isBeg then ("|| Category | Explanation | Example ||" :) else id)
(map mk1 rs)
where
mk1 (name,typ,ex) = unwords ["|", ttf name, "|", typ, "|", ex, "|"]
synopsis = "synopsis.txt"
commonAPI = "../abstract/Common.gf"
catAPI = "../abstract/Cat.gf"
syntaxAPI = "../api/Constructors.gf"
structuralAPI = "../abstract/Structural.gf"
paradigmFiles = [
("Danish", "../danish/ParadigmsDan.gf"),
("English", "../english/ParadigmsEng.gf"),
@@ -72,7 +115,8 @@ append s = appendFile synopsis ('\n':s)
title s = append $ "=" ++ s ++ "="
space = append "\n"
delimit ss = mapM_ append ss
link s f = append $ "[" ++ s ++ " " ++ f ++ "]"
link s f = append $ s ++ " [``" ++ fa ++ "`` " ++ f ++ "]" where
fa = "http://www.cs.chalmers.se/~aarne/GF/lib/resource" ++ dropWhile (=='.') f
ttf s = "``" ++ s ++ "``"
itf s = "//" ++ s ++ "//"