src/lwes_esf_parser.yrl

   1 Nonterminals
   2 eventlist event attributelist attribute.
   3
   4 Terminals '{' '}' '[' ']' '=' ';' type identifier value qualifier.
   5
   6 Rootsymbol eventlist.
   7
   8 eventlist -> event : [ '$1' ].
   9 eventlist -> event eventlist : [ '$1' | '$2' ].
  10
  11 event -> identifier '{' attributelist '}' : { event, unwrap ('$1'), '$3' }.
  12
  13 attributelist -> attribute : [ '$1' ].
  14 attributelist -> attribute attributelist : [ '$1' | '$2' ].
  15
  16 attribute -> type identifier ';' :
  17               { attribute, { unwrap_to_atom ('$1'), unwrap_to_binary ('$2'), undefined, undefined } }.
  18 attribute -> type identifier '[' value ']' ';' :
  19               { attribute, { list_to_atom(unwrap ('$1') ++ "_array"), unwrap_to_binary ('$2'), undefined, undefined } }.
  20 attribute -> type identifier '=' value ';' :
  21               { attribute, { unwrap_to_atom ('$1'), unwrap_to_binary ('$2'), unwrap ('$4'), undefined } }.
  22 attribute -> qualifier type identifier ';' :
  23               { attribute, { unwrap_to_atom ('$2'), unwrap_to_binary ('$3'), undefined,  unwrap_to_atom ('$1') } }.
  24 attribute -> qualifier type identifier '[' value ']' ';' :
  25               { attribute, { list_to_atom (array_prefix (unwrap_to_atom ('$1')) ++ unwrap ('$2') ++ "_array"), unwrap_to_binary ('$3'), undefined, unwrap_to_atom('$1') } }.
  26 attribute -> qualifier type identifier '=' value ';' :
  27               { attribute, { unwrap_to_atom ('$2'), unwrap_to_binary ('$3'), unwrap ('$5') , unwrap_to_atom ('$1') } }.
  28
  29 Erlang code.
  30
  31 unwrap ({_, _, V}) -> V.
  32
  33 unwrap_to_atom ({_, _, V}) -> list_to_atom(V).
  34
  35 unwrap_to_binary({_, _, V}) -> list_to_binary(V).
  36
  37 array_prefix (nullable) -> "nullable_";
  38 array_prefix (_) -> [].