[hoc-cvs] hoc/HOC/HOC NameCaseChange.hs,NONE,1.1 Arguments.hs,1.3,1.4 TH.hs,1.1,1.2

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/HOC/HOC
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5525/HOC/HOC

Modified Files:
	Arguments.hs TH.hs 
Added Files:
	NameCaseChange.hs 
Log Message:
Improve Enum support (mostly untested)


Index: TH.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC/TH.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- TH.hs	6 Dec 2004 03:46:51 -0000	1.1
+++ TH.hs	29 Jul 2005 03:39:44 -0000	1.2
@@ -3,6 +3,7 @@
         mkNameG_v,
         mkNameG_tc,
         mkNameG_d,
+        whereQ
     ) where
 
 import Language.Haskell.TH
@@ -11,3 +12,8 @@
 instance Functor Q where
     fmap f q = q >>= return . f
 
+whereQ :: ([Q Dec] -> Q a) -> Q [Dec] -> Q a
+header `whereQ` declsQ = do
+    decls <- declsQ
+    header (map return decls)
+

Index: Arguments.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC/Arguments.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Arguments.hs	26 Jul 2005 05:25:42 -0000	1.3
+++ Arguments.hs	29 Jul 2005 03:39:44 -0000	1.4
@@ -49,11 +49,6 @@
             |]
     return [argInst]
 
-whereQ :: ([Q Dec] -> Q a) -> Q [Dec] -> Q a
-header `whereQ` declsQ = do
-    decls <- declsQ
-    header (map return decls)
-
     -- to avoid overlapping instance ObjCIMPType (IO ()) below...
 data EvilDummyForUnit
 instance Storable EvilDummyForUnit where

--- NEW FILE: NameCaseChange.hs ---
module HOC.NameCaseChange where

import Data.Char        ( toUpper, toLower, isUpper )

nameToUppercase ('_':ame) = nameToUppercase ame
nameToUppercase ('n':'s':n:ame) | isUpper n = 'N':'S':n:ame
nameToUppercase (n:ame) = toUpper n : ame

nameToLowercase ('N':'S':n:ame) | isUpper n = 'n':'s':n:ame
nameToLowercase (n:ame) = toLower n : ame