From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:54:35 +0000
Subject: changed names of resource-1.3; added a note on homepage on release

---
 examples/CLE/CF2GF.hs | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 examples/CLE/CF2GF.hs

(limited to 'examples/CLE/CF2GF.hs')

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
-- 
cgit v1.2.3