Re: xgettext hanging

[Bruno Haible]

William J Poser wrote:
> On my GNU/Linux system xgettext 0.13.1 hangs on the following line of
> Tcl/Tk code (and any file containing it):
>
> pack .re       -side top                   -fill x
>
> The space between "top" and "-fill" consists of 9 spaces, a tab, and 5 more
> spaces. The problem is eliminated if the tab is replaced by spaces:

The appended patch fixes it. Thanks for the report.

Bruno

*** gettext-0.14.1/gettext-tools/src/x-tcl.c    2003-12-30 12:30:02.000000000 
+0100
--- gettext-work/gettext-tools/src/x-tcl.c      2005-01-07 04:55:26.000000000 
+0100
***************
*** 719,725 ****
  
    do
      c = phase2_getc ();
!   while (c == ' ' || c == BS_NL);
  
    if (c == EOF)
      {
--- 719,726 ----
  
    do
      c = phase2_getc ();
!   while (c == ' ' || c == BS_NL
!        || c == '\t' || c == '\v' || c == '\f' || c == '\r');
  
    if (c == EOF)
      {