Erlang Mailing Lists

'#info-'(Rec) -> [FieldName]

-module(test3).

-export([pp/1]).

-compile({parse_transform, exprecs}).

-record(r1, {a, b, c}).
-record(r2, {a1, a2}).
-record(r3, {f1, f2}).   % note: this record is not exported

-export_records([r1,r2]).

pp(Rec) ->
    RF = fun(R,L) when R == element(1,Rec) ->
       Flds = '#info-'(Rec),
       true = (L == length(Flds)),
       Flds
    end,
    io:fwrite([io_lib_pretty:print(Rec, RF),"\n"]).

1> R = test3:'#new-r1'([{a,1},{b,2}]). 
{r1,1,2,undefined}
2> test3:'#get-r1'(b, R).
2
3> test3:pp(R).
#r1{a = 1,b = 2,c = undefined}
ok
4> R2 = test3:'#new-r2'().
{r2,undefined,undefined}
5> test3:pp(R2).         
#r2{a1 = undefined,a2 = undefined}
ok
6> test3:'#new-r3'().     

=ERROR REPORT==== 28-Sep-2006::18:51:26 ===
Error in process <0.254.0> with exit value: {undef,[{test3,'#new-r3',[]},{erl_eval,do_apply,5},{shell,exprs,6},{shell,eval_loop,3}]}

** exited: {undef,[{test3,'#new-r3',[]},
                   {erl_eval,do_apply,5},
                   {shell,exprs,6},
                   {shell,eval_loop,3}]} **

'#get-'(A, Rec) -> Value | [Value].
'#set-'(Data, Rec) -> NewRec.

case Dictionary:'#get-'('Destination-Host', DiameterMsg) of
    [] ->
        ...;
    [DestHost] ->
        ...
end

'#info-R'(Type) -> Info.   % Type :: fields | size