Conversión de registros a listas (y viceversa)

Question

Tengo una aplicación web Erlang, basada en Mochiweb y Mnesia, que consume y emite JSON. Tiene sentido almacenar registros en Mnesia; sin embargo, Mochiweb/Mochijson requiere datos en formato proplist. Así que termino con una gran cantidad de código repetitivo:

-record(foobar, {name, value}). 

record_to_proplist(Record)-> 
    [{name, Record#foobar.name}, 
    {value, Record#foobar.value}]. 

proplist_to_record(Props)-> 
    #foobar{name=proplists:get_value("name", Props), 
      value=proplists:get_value("value", Props)}. 

fino con un solo registro pequeña, un dolor con una gran cantidad de registros de gran tamaño. ¿Alguien puede sugerir una forma de evitar todo este código repetitivo? Supongo que necesito una forma de inspeccionar los campos de un registro de forma dinámica; y dado que los registros son una construcción en tiempo de compilación, supongo que (suponiendo que sea posible) esto significa inyectar código a través de una macro ...

¡Gracias!

Answer 1

suena como exprecs es lo que estás l ooking para:

http://forum.trapexit.org/viewtopic.php?p=21790

la lectura de la descripción:

El módulo de análisis sintáctico es una transformada lo que le permite exportar registros. La transformación agrega funciones de acceso para instancias, inspecciones y modificando registros, sin tener que introducir dependencias en tiempo de compilación entre módulos.

Ver si esto ayuda.

Answer 2

Usando record_info (fields, foobar) es posible hacer algo dinámicamente. Sin embargo, record_info también es una compilación en tiempo de compilación, por lo que el nombre del registro no puede ser una variable, por lo que necesita una cláusula para cada registro que desea convertir.

Answer 3

Usted debe ser capaz de hacer algo como:?

-record(foobar, {name, value}). 
-record(foo, {other, fields, 'and', stuff}). 

record_to_proplist(#foobar{} = Rec) -> 
    lists:zip(record_info(fields, foobar), tl(tuple_to_list(Rec))); 
record_to_proplist(#foo{} = Rec) -> 
    lists:zip(record_info(fields, foo), tl(tuple_to_list(Rec))). 

Etc.

(O como una macro (siendo la creación de una función, sin embargo, la versión en la que la macro es R2P (Rec, foobar) es demasiado feo):

-define(R2P(Record), record_to_proplist(#Record{} = Rec) -> 
      lists:zip(record_info(fields, Record), tl(tuple_to_list(Rec)))). 

?R2P(foobar); 
?R2P(foo). 

)

Answer 4

La respuesta aceptada para esto ha sido largamente muerta.

La respuesta corta es usar exprecs de Ulf Wiger.

exprecs es un parse_transform en uwiger/parse_trans

El artículo sobre cómo funciona esto se archiva en el archivo web en: http://web.archive.org/web/20130729014934/http://forum.trapexit.org/viewtopic.php?p=21790