这是个json的解析器，把json解析为erlang列表。

  本来今天要看看js的，不小心看了一下yecc，状态不错，居然觉得很简单，于是在纸上写了一个。晚上写到计算机里试试，和预想的
没多少区别，之前考虑的是单一入口地方可能有问题，确实入口规则的地方有问题，但不是预想的问题。编译器报这条规则重复，去掉
这条规则后，居然很好用。（去掉的规则是 object -> list : '$1'.）。

  它可以用来验证json格式，或为erlang做解析吧，已经有解析json的小框架了，但也许可以互补一下。

  使用存在什么问题欢迎指出，谢谢。

  未提供makefile和测试命令。
 使用实例：
31> use_json_parser:parser("{a, [b, c]}").
[{'{',1},
 {atom,1,a},
 {',',1},
 {'[',1},
 {atom,1,b},
 {',',1},
 {atom,1,c},
 {']',1},
 {'}',1},
 {'$end',999}]
32> use_json_parser:parser("[b, c]").
[{'[',1},{atom,1,b},{',',1},{atom,1,c},{']',1},{'$end',999}]
33> use_json_parser:parser("[]").
[{'[',1},{']',1},{'$end',999}]

                                  --qingting
                                  QQ:331936128
                                  date:2011-12-29