From 10c68254aac8647c7bcf2a3d8f9523658eb828f7 Mon Sep 17 00:00:00 2001 From: Christopher Lenz Date: Thu, 22 May 2008 20:30:57 +0000 Subject: Updated MochiWeb in trunk to r73. git-svn-id: https://svn.apache.org/repos/asf/incubator/couchdb/trunk@659244 13f79535-47bb-0310-9956-ffa450edef68 --- src/mochiweb/mochifmt_records.erl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 src/mochiweb/mochifmt_records.erl (limited to 'src/mochiweb/mochifmt_records.erl') diff --git a/src/mochiweb/mochifmt_records.erl b/src/mochiweb/mochifmt_records.erl new file mode 100644 index 00000000..94c77978 --- /dev/null +++ b/src/mochiweb/mochifmt_records.erl @@ -0,0 +1,30 @@ +%% @author Bob Ippolito +%% @copyright 2008 Mochi Media, Inc. + +%% @doc Formatter that understands records. +%% +%% Usage: +%% +%% 1> M = mochifmt_records:new([{rec, record_info(fields, rec)}]), +%% M:format("{0.bar}", [#rec{bar=foo}]). +%% foo + +-module(mochifmt_records, [Recs]). +-author('bob@mochimedia.com'). +-export([get_value/2]). + +get_value(Key, Rec) when is_tuple(Rec) and is_atom(element(1, Rec)) -> + try begin + Atom = list_to_existing_atom(Key), + {_, Fields} = proplists:lookup(element(1, Rec), Recs), + element(get_rec_index(Atom, Fields, 2), Rec) + end + catch error:_ -> mochifmt:get_value(Key, Rec) + end; +get_value(Key, Args) -> + mochifmt:get_value(Key, Args). + +get_rec_index(Atom, [Atom | _], Index) -> + Index; +get_rec_index(Atom, [_ | Rest], Index) -> + get_rec_index(Atom, Rest, 1 + Index). -- cgit v1.2.3