From 5479cb545147d17700fc963cfbd490d7bd96c813 Mon Sep 17 00:00:00 2001 Message-Id: <5479cb545147d17700fc963cfbd490d7bd96c813.1714167578.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 25 Jan 2001 21:13:15 +0000 Subject: [PATCH] New function allowing an atom's length to be specified at intern time. Organization: Straylight/Edgeware From: mdw --- atom.c | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/atom.c b/atom.c index 661c342..dd02f54 100644 --- a/atom.c +++ b/atom.c @@ -1,6 +1,6 @@ /* -*-c-*- * - * $Id: atom.c,v 1.2 2001/01/21 19:04:51 mdw Exp $ + * $Id: atom.c,v 1.3 2001/01/25 21:13:15 mdw Exp $ * * Atom management * @@ -30,6 +30,9 @@ /*----- Revision history --------------------------------------------------* * * $Log: atom.c,v $ + * Revision 1.3 2001/01/25 21:13:15 mdw + * New function allowing an atom's length to be specified at intern time. + * * Revision 1.2 2001/01/21 19:04:51 mdw * Include `crc32.h' for @CRC32@ macro. * @@ -105,10 +108,11 @@ void atom_destroytable(atom_table *t) sym_destroy(&t->t); } -/* --- @atom_intern@ --- * +/* --- @atom_intern@, @atom_nintern@ --- * * * Arguments: @atom_table *t@ = pointer to an atom table * @const char *p@ = pointer to the string to intern + * @size_t n@ = size of the string (for @atom_nintern) * * Returns: A pointer to the atom block for the given symbol string. * @@ -128,6 +132,18 @@ atom *atom_intern(atom_table *t, const char *p) return (a); } +atom *atom_nintern(atom_table *t, const char *p, size_t n) +{ + atom *a; + unsigned f; + + ATOM_RESOLVE(t); + a = sym_find(&t->t, p, n, sizeof(atom), &f); + if (!f) + a->f = 0; + return (a); +} + /* --- @atom_gensym@ --- * * * Arguments: @atom_table *t@ = pointer to a symbol table -- [mdw]