Erlang 聊天室程序(四) 数据交换格式---json的encode

                上一篇实现了json数据到message记录的转换，这篇则是将message还原为json以便发送给客户端。

                首先完善上篇中creationDate部分的解析：

para({"creationDate",Val},Data)->{obj,List}=Val,Time=#time{},NewData1=Data#message{time=Time},NewData=paraEle(List,NewData1);para({"date",Val},Data) when is_integer(Val)->io:format("para date:~p~n",[Data]),#message{time=Time}=Data,NewTime=Time#time{date=Val},NewData=Data#message{time=NewTime};para({"day",Val},Data) when is_integer(Val)->io:format("para day:~p~n",[Data]),#message{time=Time}=Data,NewTime=Time#time{day=Val},NewData=Data#message{time=NewTime};para({"hours",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{hours=Val},NewData=Data#message{time=NewTime};para({"minutes",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{minutes=Val},NewData=Data#message{time=NewTime};para({"month",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{month=Val},NewData=Data#message{time=NewTime};para({"seconds",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{seconds=Val},NewData=Data#message{time=NewTime};para({"time",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{thetime=Val},NewData=Data#message{time=NewTime};para({"timezoneOffset",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{offset=Val},NewData=Data#message{time=NewTime};para({"year",Val},Data) when is_integer(Val)->#message{time=Time}=Data,NewTime=Time#time{year=Val},NewData=Data#message{time=NewTime};

            再编写编码部分：

paraseEncode(Message)->{message,Id,Type,From,To,Subject,Content,Time}=Message,{time,Date,Day,Hours,Minutes,Month,Seconds,TheTime,Offset,Year}=Time,Data={obj,[{"content",list_to_binary(Content)},    {"from",list_to_binary(From)},    {"to",list_to_binary(To)},    {"subject",list_to_binary(Subject)},    {"id",list_to_binary(Id)},      {"type",list_to_binary(Type)},   {"creationDate",{obj,[{"date",Date},   {"day",Day},   {"hours",Hours},       {"minutes",Minutes},   {"month",Month},   {"seconds",Seconds},   {"time",TheTime},   {"timezoneOffset",Offset},   {"year",Year}]  }  }]  },   rfc4627:encode(Data).

         测试如下：

14> util_MessageParas:paraseEncode({message,"289n-2","msg","client1",[],"chat","aaa",         {time,27,1,18,8,1,26,1330337306984,-480,112}})."{\"content\":\"aaa\",\"from\":\"client1\",\"to\":\"\",\"subject\":\"chat\",\"id\":\"289n-2\",\"type\":\"msg\",\"creationDate\":{\"date\":27,\"day\":1,\"hours\":18,\"minutes\":8,\"month\":1,\"seconds\":26,\"time\":1330337306984,\"timezoneOffset\":-480,\"year\":112}}"