Sat Nov  9 14:15:57 CET 2002  Jan Hubicka  <address@hidden>

	* scan-gram.l: Fix handling of $.

*** scan-gram.l	Mon Oct 14 13:27:44 2002
--- /suse/jh/scan-gram.l	Sat Nov  9 14:14:39 2002
*************** blanks   [ \t\f]+
*** 223,228 ****
--- 223,229 ----
  <SC_COMMENT,SC_STRING,SC_CHARACTER,SC_BRACED_CODE,SC_PROLOGUE,SC_EPILOGUE>
  {
    \[          if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@<:@");
+   \$          obstack_sgrow (&string_obstack, "$][");
    \]          if (YY_START != SC_COMMENT) obstack_sgrow (&string_obstack, "@:>@");
  }
  
*************** blanks   [ \t\f]+
*** 246,252 ****
      yy_pop_state ();
    }
  
!   [^\[\]*\n\r]+  	if (yy_top_state () != INITIAL) YY_OBS_GROW;
    {eols}	if (yy_top_state () != INITIAL) YY_OBS_GROW; YY_LINES;
    .             /* Stray `*'. */if (yy_top_state () != INITIAL) YY_OBS_GROW;
  
--- 247,253 ----
      yy_pop_state ();
    }
  
!   [^\$\[\]*\n\r]+  	if (yy_top_state () != INITIAL) YY_OBS_GROW;
    {eols}	if (yy_top_state () != INITIAL) YY_OBS_GROW; YY_LINES;
    .             /* Stray `*'. */if (yy_top_state () != INITIAL) YY_OBS_GROW;
  
*************** blanks   [ \t\f]+
*** 382,388 ****
      yy_pop_state ();
    }
  
!   [^\[\]\'\n\r\\]+     YY_OBS_GROW;
    \\(.|\n)             YY_OBS_GROW;
    /* FLex wants this rule, in case of a `\<<EOF>>'. */
    \\                   YY_OBS_GROW;
--- 383,389 ----
      yy_pop_state ();
    }
  
!   [^\$\[\]\'\n\r\\]+   YY_OBS_GROW;
    \\(.|\n)             YY_OBS_GROW;
    /* FLex wants this rule, in case of a `\<<EOF>>'. */
    \\                   YY_OBS_GROW;
*************** blanks   [ \t\f]+
*** 411,417 ****
      yy_pop_state ();
    }
  
!   [^\[\]\"\n\r\\]+      YY_OBS_GROW;
    \\(.|\n)              YY_OBS_GROW;
    /* FLex wants this rule, in case of a `\<<EOF>>'. */
    \\                   YY_OBS_GROW;
--- 412,418 ----
      yy_pop_state ();
    }
  
!   [^\$\[\]\"\n\r\\]+    YY_OBS_GROW;
    \\(.|\n)              YY_OBS_GROW;
    /* FLex wants this rule, in case of a `\<<EOF>>'. */
    \\                   YY_OBS_GROW;
*************** blanks   [ \t\f]+
*** 527,533 ****
  
  <SC_EPILOGUE>
  {
!   ([^\[\]]|{eols})+  YY_OBS_GROW;
  
    <<EOF>> {
      yy_pop_state ();
--- 528,534 ----
  
  <SC_EPILOGUE>
  {
!   ([^\$\[\]]|{eols})+  YY_OBS_GROW;
  
    <<EOF>> {
      yy_pop_state ();