comparison src/syntax.c @ 9320:4be3f8f9f090

(Fcopy_syntax_table, Fmodify_syntax_entry, scan_lists, init_syntax_once): Don't use XFASTINT as an lvalue.

9319:7969182b6cc6

It is a copy of the TABLE, which defaults to the standard syntax table.")
  (table)
     Lisp_Object table;
{
  Lisp_Object size, val;
  XFASTINT (size) = 0400;
  XFASTINT (val) = 0;
  val = Fmake_vector (size, val);
  if (!NILP (table))
    table = check_syntax_table (table);
  else if (NILP (Vstandard_syntax_table))
    /* Can only be null during initialization */

  match = *p;
  if (match) p++;
  if (match == ' ') match = 0;

  XFASTINT (val) = (match << 8) + (int) code;
  while (*p)
    switch (*p++)
      {
      case '1':
	XFASTINT (val) |= 1 << 16;

      count++;
    }


  immediate_quit = 0;
  XFASTINT (val) = from;
  return val;

 lose:
  error ("Unbalanced parentheses");
  /* NOTREACHED */

  Vstandard_syntax_table = Fcopy_syntax_table (Qnil);

  v = XVECTOR (Vstandard_syntax_table);

  for (i = 'a'; i <= 'z'; i++)
    XFASTINT (v->contents[i]) = (int) Sword;
  for (i = 'A'; i <= 'Z'; i++)
    XFASTINT (v->contents[i]) = (int) Sword;
  for (i = '0'; i <= '9'; i++)
    XFASTINT (v->contents[i]) = (int) Sword;
  XFASTINT (v->contents['$']) = (int) Sword;
  XFASTINT (v->contents['%']) = (int) Sword;

  XFASTINT (v->contents['(']) = (int) Sopen + (')' << 8);
  XFASTINT (v->contents[')']) = (int) Sclose + ('(' << 8);
  XFASTINT (v->contents['[']) = (int) Sopen + (']' << 8);
  XFASTINT (v->contents[']']) = (int) Sclose + ('[' << 8);
  XFASTINT (v->contents['{']) = (int) Sopen + ('}' << 8);
  XFASTINT (v->contents['}']) = (int) Sclose + ('{' << 8);
  XFASTINT (v->contents['"']) = (int) Sstring;
  XFASTINT (v->contents['\\']) = (int) Sescape;

  for (i = 0; i < 10; i++)
    XFASTINT (v->contents["_-+*/&|<>="[i]]) = (int) Ssymbol;

  for (i = 0; i < 12; i++)
    XFASTINT (v->contents[".,;:?!#@~^'`"[i]]) = (int) Spunct;
}

syms_of_syntax ()
{
  Qsyntax_table_p = intern ("syntax-table-p");

9320:4be3f8f9f090

It is a copy of the TABLE, which defaults to the standard syntax table.")
  (table)
     Lisp_Object table;
{
  Lisp_Object size, val;
  XSETFASTINT (size, 0400);
  XSETFASTINT (val, 0);
  val = Fmake_vector (size, val);
  if (!NILP (table))
    table = check_syntax_table (table);
  else if (NILP (Vstandard_syntax_table))
    /* Can only be null during initialization */

  match = *p;
  if (match) p++;
  if (match == ' ') match = 0;

  XSETFASTINT (val, (match << 8) + (int) code);
  while (*p)
    switch (*p++)
      {
      case '1':
	XFASTINT (val) |= 1 << 16;

      count++;
    }


  immediate_quit = 0;
  XSETFASTINT (val, from);
  return val;

 lose:
  error ("Unbalanced parentheses");
  /* NOTREACHED */

  Vstandard_syntax_table = Fcopy_syntax_table (Qnil);

  v = XVECTOR (Vstandard_syntax_table);

  for (i = 'a'; i <= 'z'; i++)
    XSETFASTINT (v->contents[i], (int) Sword);
  for (i = 'A'; i <= 'Z'; i++)
    XSETFASTINT (v->contents[i], (int) Sword);
  for (i = '0'; i <= '9'; i++)
    XSETFASTINT (v->contents[i], (int) Sword);
  XSETFASTINT (v->contents['$'], (int) Sword);
  XSETFASTINT (v->contents['%'], (int) Sword);

  XSETFASTINT (v->contents['('], (int) Sopen + (')' << 8));
  XSETFASTINT (v->contents[')'], (int) Sclose + ('(' << 8));
  XSETFASTINT (v->contents['['], (int) Sopen + (']' << 8));
  XSETFASTINT (v->contents[']'], (int) Sclose + ('[' << 8));
  XSETFASTINT (v->contents['{'], (int) Sopen + ('}' << 8));
  XSETFASTINT (v->contents['}'], (int) Sclose + ('{' << 8));
  XSETFASTINT (v->contents['"'], (int) Sstring);
  XSETFASTINT (v->contents['\\'], (int) Sescape);

  for (i = 0; i < 10; i++)
    XSETFASTINT (v->contents["_-+*/&|<>="[i]], (int) Ssymbol);

  for (i = 0; i < 12; i++)
    XSETFASTINT (v->contents[".,;:?!#@~^'`"[i]], (int) Spunct);
}

syms_of_syntax ()
{
  Qsyntax_table_p = intern ("syntax-table-p");