GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-20 18:29:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

A bunch of Makefile fixes. Moved HelpFile and HelpFile.hs.

Browse Source
This commit is contained in:
bringert
2005-04-21 10:38:24 +00:00
parent ed5b70164d
commit 5f999f0eef
2 changed files with 30 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/tools/MkHelpFile.hs
View File

@@ -4,9 +4,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/16 05:40:51 $
-- > CVS $Author: peb $
-- > CVS $Revision: 1.7 $
-- > CVS $Date: 2005/04/21 11:38:24 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.8 $
--
-- Compile @HelpFile.hs@ from the text file @HelpFile@.
-----------------------------------------------------------------------------
@@ -16,11 +16,11 @@ module Main (main) where
main = do
s <- readFile "HelpFile"
let s' = mkHsFile (lines s)
writeFile "HelpFile.hs" s'
writeFile "GF/Shell/HelpFile.hs" s'
mkHsFile ss =
helpHeader ++
"module HelpFile where\n\n" ++
"module GF.Shell.HelpFile where\n\n" ++
"import Operations\n\n" ++
"txtHelpFileSummary =\n" ++
" unlines $ map (concat . take 1 . lines) $ paragraphs txtHelpFile\n\n" ++
@@ -43,14 +43,14 @@ mkOne s = " \"" ++ pref s ++ (escs s) ++ "\" ++"
helpHeader = unlines [
"----------------------------------------------------------------------",
"-- |",
"-- Module : HelpFile",
"-- Module : GF.Shell.HelpFile",
"-- Maintainer : Aarne Ranta",
"-- Stability : (stable)",
"-- Portability : (portable)",
"--",
"-- > CVS $Date: 2005/04/16 05:40:51 $",
"-- > CVS $Author: peb $",
"-- > CVS $Revision: 1.7 $",
"-- > CVS $Date: 2005/04/21 11:38:24 $",
"-- > CVS $Author: bringert $",
"-- > CVS $Revision: 1.8 $",
"--",
"-- Help on shell commands. Generated from HelpFile by 'make help'.",
"-- PLEASE DON'T EDIT THIS FILE.",