comparison src/fns.c @ 25455:8c2f3438bb2c

(QCweakness): Replaces QCweak. (Fmake_hash_table): Ditto. (Fmakehash): Ditto. (syms_of_fns): Ditto.

25454:80ac191b6d2b

Lisp_Object Vweak_hash_tables;

/* Various symbols.  */

Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue;
Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweak;
Lisp_Object Qhash_table_test;

/* Function prototypes.  */

static struct Lisp_Hash_Table *check_hash_table P_ ((Lisp_Object));

\n\
:REHASH-THRESHOLD THRESHOLD -- THRESHOLD must a float > 0, and <= 1.0.\n\
Resize the hash table when ratio of the number of entries in the table.\n\
Default is 0.8.\n\
\n\
:WEAK WEAK -- WEAK must be one of nil, t, `key', or `value'.\n\
If WEAK is not nil, the table returned is a weak table.  Key/value\n\
pairs are removed from a weak hash table when their key, value or both\n\
(WEAK t) are otherwise unreferenced.  Default is nil.")
  (nargs, args)
     int nargs;

      || XFLOATINT (rehash_threshold) > 1.0)
    Fsignal (Qerror,
	     list2 (build_string ("Illegal hash table rehash threshold"),
		    rehash_threshold));
  
  /* Look for `:weak WEAK'.  */
  i = get_key_arg (QCweak, nargs, args, used);
  weak = i < 0 ? Qnil : args[i];
  if (!NILP (weak)
      && !EQ (weak, Qt)
      && !EQ (weak, Qkey)
      && !EQ (weak, Qvalue))

  /* Recognize test argument.  */
  if (SYMBOLP (args[i])
      && !EQ (args[i], QCrehash_size)
      && !EQ (args[i], QCrehash_threshold)
      && !EQ (args[i], QCweak))
    {
      args2[j++] = QCtest;
      args2[j++] = args[i++];
    }

  if (EQ (args[i], Qt)
      || NILP (args[i])
      || EQ (args[i], Qkey)
      || EQ (args[i], Qvalue))
    {
      args2[j++] = QCweak;
      args2[j++] = args[i++];
    }

  /* Copy remaining arguments.  */
  while (i < nargs)

  staticpro (&QCsize);
  QCrehash_size = intern (":rehash-size");
  staticpro (&QCrehash_size);
  QCrehash_threshold = intern (":rehash-threshold");
  staticpro (&QCrehash_threshold);
  QCweak = intern (":weak");
  staticpro (&QCweak);
  Qkey = intern ("key");
  staticpro (&Qkey);
  Qvalue = intern ("value");
  staticpro (&Qvalue);
  Qhash_table_test = intern ("hash-table-test");

25455:8c2f3438bb2c

Lisp_Object Vweak_hash_tables;

/* Various symbols.  */

Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue;
Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness;
Lisp_Object Qhash_table_test;

/* Function prototypes.  */

static struct Lisp_Hash_Table *check_hash_table P_ ((Lisp_Object));

\n\
:REHASH-THRESHOLD THRESHOLD -- THRESHOLD must a float > 0, and <= 1.0.\n\
Resize the hash table when ratio of the number of entries in the table.\n\
Default is 0.8.\n\
\n\
:WEAKNESS WEAK -- WEAK must be one of nil, t, `key', or `value'.\n\
If WEAK is not nil, the table returned is a weak table.  Key/value\n\
pairs are removed from a weak hash table when their key, value or both\n\
(WEAK t) are otherwise unreferenced.  Default is nil.")
  (nargs, args)
     int nargs;

      || XFLOATINT (rehash_threshold) > 1.0)
    Fsignal (Qerror,
	     list2 (build_string ("Illegal hash table rehash threshold"),
		    rehash_threshold));
  
  /* Look for `:weakness WEAK'.  */
  i = get_key_arg (QCweakness, nargs, args, used);
  weak = i < 0 ? Qnil : args[i];
  if (!NILP (weak)
      && !EQ (weak, Qt)
      && !EQ (weak, Qkey)
      && !EQ (weak, Qvalue))

  /* Recognize test argument.  */
  if (SYMBOLP (args[i])
      && !EQ (args[i], QCrehash_size)
      && !EQ (args[i], QCrehash_threshold)
      && !EQ (args[i], QCweakness))
    {
      args2[j++] = QCtest;
      args2[j++] = args[i++];
    }

  if (EQ (args[i], Qt)
      || NILP (args[i])
      || EQ (args[i], Qkey)
      || EQ (args[i], Qvalue))
    {
      args2[j++] = QCweakness;
      args2[j++] = args[i++];
    }

  /* Copy remaining arguments.  */
  while (i < nargs)

  staticpro (&QCsize);
  QCrehash_size = intern (":rehash-size");
  staticpro (&QCrehash_size);
  QCrehash_threshold = intern (":rehash-threshold");
  staticpro (&QCrehash_threshold);
  QCweakness = intern (":weakness");
  staticpro (&QCweakness);
  Qkey = intern ("key");
  staticpro (&Qkey);
  Qvalue = intern ("value");
  staticpro (&Qvalue);
  Qhash_table_test = intern ("hash-table-test");