gistfile1.erl

to_proplist_meta(Meta,Rs) ->
    lists:map(
      fun(Res) ->
	      Elems = fun(Ele, Cnt) ->
			      V = if element(Cnt,Res) == null -> undefined;
				 true -> element(Cnt,Res) end,
			      {{Ele,V},Cnt+1}
		      end,
	      {Base,BaseCnt} = lists:mapfoldl(Elems, 1, hd(Meta)),
	      {Other,_} = lists:mapfoldl(
			    fun({Name,Tags},Cnt) ->
				    {Vals,NewCnt} = lists:mapfoldl(Elems,Cnt,
								   Tags),
				    {{Name,Vals},NewCnt}
			    end,BaseCnt,tl(Meta)),
	      Base++Other
      end,Rs).