summaryrefslogtreecommitdiff
path: root/examples/CLE/CF2GF.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/CLE/CF2GF.hs
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/CLE/CF2GF.hs')
-rw-r--r--examples/CLE/CF2GF.hs20
1 files changed, 0 insertions, 20 deletions
diff --git a/examples/CLE/CF2GF.hs b/examples/CLE/CF2GF.hs
deleted file mode 100644
index 1bb1d6611..000000000
--- a/examples/CLE/CF2GF.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-import Data.List (intersperse)
-import Data.Char (isAlpha)
-
--- to massage cf rules to funs, in order, preserving comments
--- to get cats, use pg -printer=gf
-
-cf2gf :: FilePath -> IO ()
-cf2gf file = do
- ss <- readFile file >>= return . lines
- mapM_ (putStrLn . mkOne) ss
-
-mkOne line = case words line of
- fun : cat : "::=" : cats ->
- let
- (cats0,cats2) = span (/=";") cats
- cats1 = filter (isAlpha . head) cats0 ++ [cat]
- in
- unwords $ [init fun, ":"] ++ intersperse "->" cats1 ++ cats2
- _ -> line
- \ No newline at end of file