blocktrans_parser.erl 305 B

12345678910111213
  1. -module(blocktrans_parser).
  2. -export([parse/1]).
  3. parse(Tokens) ->
  4. parse(Tokens, []).
  5. parse([], Acc) ->
  6. lists:reverse(Acc);
  7. parse([{open_blocktrans, _, _}, {text, _, Text}, {close_blocktrans, _}|Rest], Acc) ->
  8. parse(Rest, [Text|Acc]);
  9. parse([{text, _, _}|Rest], Acc) ->
  10. parse(Rest, Acc).