diff options
| author | aarne <unknown> | 2005-06-03 08:35:22 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-03 08:35:22 +0000 |
| commit | 4b281ab7d637f5c91e3bdaf0b054bf0b2b6f273d (patch) | |
| tree | 56d7d52f8e1e7b077117ba77f0a95c2e3ba477c6 | |
| parent | 2e0b40f1384e8aff53463596f0b8510c9dd7ce31 (diff) | |
adjusting doc on gfe
| -rw-r--r-- | doc/gf-history.html | 4 | ||||
| -rw-r--r-- | index.html | 6 | ||||
| -rw-r--r-- | src/GF/Compile/MkConcrete.hs | 4 |
3 files changed, 11 insertions, 3 deletions
diff --git a/doc/gf-history.html b/doc/gf-history.html index 1ff6b5cab..1e5555c11 100644 --- a/doc/gf-history.html +++ b/doc/gf-history.html @@ -20,8 +20,8 @@ converted to <tt>.gf</tt> files by the command <pre> gf -makeconcrete File.gfe </pre> -See <a href="../lib/resource/doc/examples/QuestionsExI.gfe"> -<tt>../lib/resource/doc/examples/QuestionsExI.gfe</tt></a> +See <a href="../lib/resource/doc/examples/QuestionsI.gfe"> +<tt>../lib/resource/doc/examples/QuestionsI.gfe</tt></a> for an example. <p> diff --git a/index.html b/index.html index dce5b4f1b..28b23a429 100644 --- a/index.html +++ b/index.html @@ -20,6 +20,12 @@ May 17, 2005. </p><h2>News</h2> +<i>June 3, 2005</i>. Started a page on +<a href="doc/gf-history.html">history of changes</a>. +These changes will appear soon in releases. + +<p> + <i>May 17, 2005</i>. Version 2.2 released. See <a href="doc/gf2.2-highlights.html">highlights</a>. Download from diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs index f586435a9..75b4f215e 100644 --- a/src/GF/Compile/MkConcrete.hs +++ b/src/GF/Compile/MkConcrete.hs @@ -44,13 +44,15 @@ mkConcrete :: FilePath -> IO () mkConcrete file = do cont <- liftM lines $ readFileIf file let res = getResPath cont - egr <- appIOE $ optFile2grammar (options [useOptimizer "share"]) res --- for -mcfg + egr <- appIOE $ + optFile2grammar (options [useOptimizer "share",fromSource,beSilent,notEmitCode]) res --- for -mcfg gr <- err (\s -> putStrLn s >> error "resource file rejected") return egr let abs = prt_ $ absId gr let parser cat = errVal ([],"No parse") . optParseArgErrMsg (options [newMParser, firstCat cat, beVerbose]) gr let morpho = isKnownWord gr let out = suffixFile "gf" $ justModuleName file + writeFile out "" mapM_ (mkCnc out parser morpho) cont getResPath :: [String] -> String |