[Haskell] 我写了个读取 ini 格式配置文件的简单模块

Question

暂时只能读取，还不能修改，不过对付简单的应用程序应该够用了。
我还在继续完善，但已经迫不及待想要和大家交流一下了。

1. module IniConfig
2.   where
4. import Data.Map hiding(map)
5. import Text.ParserCombinators.Parsec
7. -- 整个配置文件是一个小节名称到内容的哈希
8. type IniConfig = Map String ConfigSection
9. -- 一个小节是一个 key value 哈希
10. type ConfigSection = Map String String
12. -- 读一个配置文件小节
13. readConfigSection         :: ConfigSection -> Parser ConfigSection
14. readConfigSection section = do
15.       key <- many1 alphaNum <?> "key"
16.       spaces
17.       char '='
18.       spaces
19.       value <- (many1 $ noneOf "rn") <?> "value"
20.       many1 newline
21.       readConfigSection $ insert key value section
22.   <|> return section
23.   <?> "config section"
25. -- 读配置文件
26. readConfig = parseFromFile (readConfig' empty)
27. readConfig' :: IniConfig -> Parser IniConfig
28. readConfig' config = do
29.       sectionName <- between  (char '[')
30.                               (char ']') $
31.                               many1 (alphaNum <?> "config section name")
32.       many1 newline
33.       configSection <- readConfigSection empty
34.       readConfig' ( insert sectionName configSection config )
35.   <|> return config
36.   <?> "app config"
38. -- 取配置文件信息
39. getConfig :: IniConfig -> String -> String -> String
40. getConfig config section key = (config!section) ! key
42. -- 打印读取到的配置（测试用）
43. printConfig :: IniConfig -> IO ()
44. printConfig config    = do
45.   mapM_ (showSection) $ keys config
46.   where showSection name = do
47.           putStrLn $ name ++ ":"
48.           let section = config ! name
49.           mapM_ (showPairs section) $ keys section
50.         showPairs section key = do
51.         putStrLn $ "t" ++ key ++ " = " ++ section ! key

复制代码

1. -- 主程序
2. module Main where
4. import System.Environment
5. import IniConfig
7. main = do
8.   args <- getArgs
9.   ret <- readConfig $ (args++["config.ini"]) !! 0
10.   case ret of
11.     Left err      -> print err
12.     Right config  -> do printConfig config
13.                         putStrLn $ getConfig config "Person1" "Name"

复制代码

1. flw@Sleeper:~/study$ cat config.ini
2. [Person1]
3. Name= flw
4. Age =23
5. Message=彪哥 永远 二十三
7. [Person2]
8. Name = foo
9. Age = 22
10. Message = just for test
11. flw@Sleeper:~/study$ runhaskell ttt.hs
12. Person1:
13.         Age = 23
14.         Message = 彪哥 永远 二十三
15.         Name = flw
16. Person2:
17.         Age = 22
18.         Message = just for test
19.         Name = foo
20. flw
21. flw@Sleeper:~/study$ cp config.ini app.ini
22. flw@Sleeper:~/study$ runhaskell ttt.hs app.ini
23. Person1:
24.         Age = 23
25.         Message = 彪哥 永远 二十三
26.         Name = flw
27. Person2:
28.         Age = 22
29.         Message = just for test
30.         Name = foo
31. flw
32. flw@Sleeper:~/study$

复制代码

[ 本帖最后由 flw 于 2008-10-29 22:32 编辑 ]

Answer 1

原帖由 MMMIX 于 2008-10-30 16:53 发表

你用 happy haskell 做关键词就可以找到了 :wink:

我一开始以为 happy 是个语言……没想到是和 Haskell 相关的……

Answer 2

原帖由 flw 于 2008-10-30 14:54 发表

我都不知道 happy 是什么，不如你来做个介绍吧？
我 google 了一下，发现这个词汇实在是太常见了，根本找不到想要的信息。

你用 happy haskell 做关键词就可以找到了 :wink:

Answer 3

大家一起学习，互相讨论。
我也正打算看这个呢。

Answer 4

原帖由 drunkedcat 于 2008-10-30 15:13 发表

噢。好吧，我其实也只是知道一点点。

happy 是 haskell 下的语法分析器，就像 yacc 在 C 中的地位一样。就是用 BNF (巴克斯范式) 来分析语法结构的。甚至于它的语法都和 yacc 是类似的。

另， yacc ...

好东西！看了一下，确实和 yacc 的语法很像。
以后有空了研究一下。

Answer 5

原帖由 flw 于 2008-10-30 14:54 发表

我都不知道 happy 是什么，不如你来做个介绍吧？
我 google 了一下，发现这个词汇实在是太常见了，根本找不到想要的信息。

噢。好吧，我其实也只是知道一点点。

happy 是 haskell 下的语法分析器，就像 yacc 在 C 中的地位一样。就是用 BNF (巴克斯范式) 来分析语法结构的。甚至于它的语法都和 yacc 是类似的。

另， yacc 的 linux 开源实现叫 bison.

Answer 6

原帖由 drunkedcat 于 2008-10-30 13:57 发表
版主觉得与 happy 相比有何优劣呢？正想研究一下 happy.

我都不知道 happy 是什么，不如你来做个介绍吧？
我 google 了一下，发现这个词汇实在是太常见了，根本找不到想要的信息。

Answer 7

原帖由 drunkedcat 于 2008-10-30 13:57 发表
版主觉得与 happy 相比有何优劣呢？正想研究一下 happy.

你可以用 happy 实现下类似功能，然后和 flw 的实现比较下。

Answer 8

版主觉得与 happy 相比有何优劣呢？正想研究一下 happy.