From 2e422db2bf236fb5369cbfe54b6ccd727703b801 Mon Sep 17 00:00:00 2001 From: Anders Svensson Date: Sat, 2 Feb 2013 00:51:02 +0100 Subject: Add exprecs '#get-'/1 for transforming records into lists The generated '#get-'/1 has one clause for each exported record r, whose definition is equivalent to the following. '#get-'(#r{} = Rec) -> [r | lists:zip(record_info(r, fields), tl(tuple_to_list(Rec)))]; The record name at the head of the list is the same format that diameter accepts for outgoing message. --- lib/diameter/src/compiler/diameter_forms.hrl | 1 + 1 file changed, 1 insertion(+) (limited to 'lib/diameter/src/compiler/diameter_forms.hrl') diff --git a/lib/diameter/src/compiler/diameter_forms.hrl b/lib/diameter/src/compiler/diameter_forms.hrl index 4cd86c32aa..1a0f3492ea 100644 --- a/lib/diameter/src/compiler/diameter_forms.hrl +++ b/lib/diameter/src/compiler/diameter_forms.hrl @@ -36,6 +36,7 @@ -define(clause, ?F(clause)). -define(function, ?F(function)). -define(call, ?F(call)). +-define(cons, ?F(cons)). -define('fun', ?F('fun')). -define(generate, ?F(generate)). -define(lc, ?F(lc)). -- cgit v1.2.3