anchor.diff:      get_po_string(T);
   get_msgstr([_ | T]) ->
       get_msgstr(T).
  +
  +header_info({"",R}) -> {?GETTEXT_HEADER_INFO, R};  
  +header_info(X)      -> X.
   
   %%%
   %%% A PO-string has the same syntax as a C character string.
  
positive.code: get_po_string([$\r|T]) -> get_po_string(T);
  get_po_string([$\n|T]) -> get_po_string(T);
  get_po_string([$\t|T]) -> get_po_string(T);
  get_po_string([$"|T])  -> header_info(eat_string(T)).
  
  %%% only header-info has empty po-string !
  header_info({"",R}) -> {?GETTEXT_HEADER_INFO, R};  
  header_info(X)      -> X.
  
  eat_string(S) ->
      eat_string(S,[]).
  
negative.code:     parse_po_bin(Bin).
  
  parse_po_bin(Bin) ->
      lists:map(fun header_info/1, parse_po_file(to_list(Bin))).
  
  parse_po_file("msgid" ++ T) ->
      {Key, R0} = get_po_string(T),
  