git.oblomov.eu Git - wine/blob - server/atom.c

   1 /*
   2  * Server-side atom management
   3  *
   4  * Copyright (C) 1999, 2000 Alexandre Julliard
   5  * Copyright (C) 2000 Turchanov Sergei
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "config.h"
  23 #include "wine/port.h"
  24
  25 #include <assert.h>
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28 #include <string.h>
  29
  30 #include "unicode.h"
  31 #include "request.h"
  32 #include "object.h"
  33 #include "process.h"
  34
  35 #define HASH_SIZE     37
  36 #define MIN_HASH_SIZE 4
  37 #define MAX_HASH_SIZE 0x200
  38
  39 #define MAX_ATOM_LEN  255
  40 #define MIN_STR_ATOM  0xc000
  41 #define MAX_ATOMS     0x4000
  42
  43 struct atom_entry
  44 {
  45     struct atom_entry *next;   /* hash table list */
  46     struct atom_entry *prev;   /* hash table list */
  47     int                count;  /* reference count */
  48     int                hash;   /* string hash */
  49     atom_t             atom;   /* atom handle */
  50     WCHAR              str[1]; /* atom string */
  51 };
  52
  53 struct atom_table
  54 {
  55     struct object       obj;                 /* object header */
  56     int                 count;               /* count of atom handles */
  57     int                 last;                /* last handle in-use */
  58     struct atom_entry **handles;             /* atom handles */
  59     int                 entries_count;       /* humber of hash entries */
  60     struct atom_entry **entries;             /* hash table entries */
  61 };
  62
  63 static void atom_table_dump( struct object *obj, int verbose );
  64 static void atom_table_destroy( struct object *obj );
  65
  66 static const struct object_ops atom_table_ops =
  67 {
  68     sizeof(struct atom_table),    /* size */
  69     atom_table_dump,              /* dump */
  70     no_add_queue,                 /* add_queue */
  71     NULL,                         /* remove_queue */
  72     NULL,                         /* signaled */
  73     NULL,                         /* satisfied */
  74     no_signal,                    /* signal */
  75     no_get_fd,                    /* get_fd */
  76     atom_table_destroy            /* destroy */
  77 };
  78
  79 static struct atom_table *global_table;
  80
  81
  82 /* copy an atom name from the request to a temporary area */
  83 static const WCHAR *copy_request_name(void)
  84 {
  85     static WCHAR buffer[MAX_ATOM_LEN+1];
  86
  87     const WCHAR *str = get_req_data();
  88     size_t len = get_req_data_size();
  89
  90     if (len > MAX_ATOM_LEN*sizeof(WCHAR))
  91     {
  92         set_error( STATUS_INVALID_PARAMETER );
  93         return NULL;
  94     }
  95     memcpy( buffer, str, len );
  96     buffer[len / sizeof(WCHAR)] = 0;
  97     return buffer;
  98 }
  99
 100 /* create an atom table */
 101 static struct atom_table *create_table(int entries_count)
 102 {
 103     struct atom_table *table;
 104
 105     if ((table = alloc_object( &atom_table_ops )))
 106     {
 107         if ((entries_count < MIN_HASH_SIZE) ||
 108             (entries_count > MAX_HASH_SIZE)) entries_count = HASH_SIZE;
 109         table->entries_count = entries_count;
 110         if (!(table->entries = malloc( sizeof(*table->entries) * table->entries_count )))
 111         {
 112             set_error( STATUS_NO_MEMORY );
 113             goto fail;
 114         }
 115         memset( table->entries, 0, sizeof(*table->entries) * table->entries_count );
 116         table->count = 64;
 117         table->last  = -1;
 118         if ((table->handles = mem_alloc( sizeof(*table->handles) * table->count )))
 119             return table;
 120 fail:
 121         release_object( table );
 122         table = NULL;
 123     }
 124     return table;
 125 }
 126
 127 /* retrieve an entry pointer from its atom */
 128 static struct atom_entry *get_atom_entry( struct atom_table *table, atom_t atom )
 129 {
 130     struct atom_entry *entry = NULL;
 131     if (table && (atom >= MIN_STR_ATOM) && (atom <= MIN_STR_ATOM + table->last))
 132         entry = table->handles[atom - MIN_STR_ATOM];
 133     if (!entry) set_error( STATUS_INVALID_HANDLE );
 134     return entry;
 135 }
 136
 137 /* add an atom entry in the table and return its handle */
 138 static atom_t add_atom_entry( struct atom_table *table, struct atom_entry *entry )
 139 {
 140     int i;
 141     for (i = 0; i <= table->last; i++)
 142         if (!table->handles[i]) goto found;
 143     if (i == table->count)
 144     {
 145         struct atom_entry **new_table = NULL;
 146         int new_size = table->count + table->count / 2;
 147         if (new_size > MAX_ATOMS) new_size = MAX_ATOMS;
 148         if (new_size > table->count)
 149             new_table = realloc( table->handles, sizeof(*table->handles) * new_size );
 150         if (!new_table)
 151         {
 152             set_error( STATUS_NO_MEMORY );
 153             return 0;
 154         }
 155         table->count = new_size;
 156         table->handles = new_table;
 157     }
 158     table->last = i;
 159  found:
 160     table->handles[i] = entry;
 161     entry->atom = i + MIN_STR_ATOM;
 162     return entry->atom;
 163 }
 164
 165 /* compute the hash code for a string */
 166 static int atom_hash( struct atom_table *table, const WCHAR *str )
 167 {
 168     int i;
 169     WCHAR hash = 0;
 170     for (i = 0; str[i]; i++) hash ^= toupperW(str[i]) + i;
 171     return hash % table->entries_count;
 172 }
 173
 174 /* dump an atom table */
 175 static void atom_table_dump( struct object *obj, int verbose )
 176 {
 177     int i;
 178     struct atom_table *table = (struct atom_table *)obj;
 179     assert( obj->ops == &atom_table_ops );
 180
 181     fprintf( stderr, "Atom table size=%d entries=%d\n",
 182              table->last + 1, table->entries_count );
 183     if (!verbose) return;
 184     for (i = 0; i <= table->last; i++)
 185     {
 186         struct atom_entry *entry = table->handles[i];
 187         if (!entry) continue;
 188         fprintf( stderr, "  %04x: ref=%d hash=%d \"", entry->atom, entry->count, entry->hash );
 189         dump_strW( entry->str, strlenW(entry->str), stderr, "\"\"");
 190         fprintf( stderr, "\"\n" );
 191     }
 192 }
 193
 194 /* destroy the atom table */
 195 static void atom_table_destroy( struct object *obj )
 196 {
 197     int i;
 198     struct atom_table *table = (struct atom_table *)obj;
 199     assert( obj->ops == &atom_table_ops );
 200     if (table->handles)
 201     {
 202         for (i = 0; i <= table->last; i++) free( table->handles[i] );
 203         free( table->handles );
 204     }
 205     if (table->entries) free( table->entries );
 206 }
 207
 208 /* find an atom entry in its hash list */
 209 static struct atom_entry *find_atom_entry( struct atom_table *table, const WCHAR *str, int hash )
 210 {
 211     struct atom_entry *entry = table->entries[hash];
 212     while (entry)
 213     {
 214         if (!strcmpiW( entry->str, str )) break;
 215         entry = entry->next;
 216     }
 217     return entry;
 218 }
 219
 220 /* close the atom table; used on server exit */
 221 void close_atom_table(void)
 222 {
 223     if (global_table) release_object( global_table );
 224 }
 225
 226 /* add an atom to the table */
 227 static atom_t add_atom( struct atom_table *table, const WCHAR *str )
 228 {
 229     struct atom_entry *entry;
 230     int hash = atom_hash( table, str );
 231     atom_t atom = 0;
 232
 233     if (!*str)
 234     {
 235         set_error( STATUS_OBJECT_NAME_INVALID );
 236         return 0;
 237     }
 238     if ((entry = find_atom_entry( table, str, hash )))  /* exists already */
 239     {
 240         entry->count++;
 241         return entry->atom;
 242     }
 243
 244     if ((entry = mem_alloc( sizeof(*entry) + strlenW(str) * sizeof(WCHAR) )))
 245     {
 246         if ((atom = add_atom_entry( table, entry )))
 247         {
 248             entry->prev  = NULL;
 249             if ((entry->next = table->entries[hash])) entry->next->prev = entry;
 250             table->entries[hash] = entry;
 251             entry->count = 1;
 252             entry->hash  = hash;
 253             strcpyW( entry->str, str );
 254         }
 255         else free( entry );
 256     }
 257     else set_error( STATUS_NO_MEMORY );
 258     return atom;
 259 }
 260
 261 /* delete an atom from the table */
 262 static void delete_atom( struct atom_table *table, atom_t atom )
 263 {
 264     struct atom_entry *entry = get_atom_entry( table, atom );
 265     if (entry && !--entry->count)
 266     {
 267         if (entry->next) entry->next->prev = entry->prev;
 268         if (entry->prev) entry->prev->next = entry->next;
 269         else table->entries[entry->hash] = entry->next;
 270         table->handles[atom - MIN_STR_ATOM] = NULL;
 271         free( entry );
 272     }
 273 }
 274
 275 /* find an atom in the table */
 276 static atom_t find_atom( struct atom_table *table, const WCHAR *str )
 277 {
 278     struct atom_entry *entry;
 279
 280     if (table && ((entry = find_atom_entry( table, str, atom_hash(table, str) ))))
 281         return entry->atom;
 282     if (!*str) set_error( STATUS_OBJECT_NAME_INVALID );
 283     else set_error( STATUS_OBJECT_NAME_NOT_FOUND );
 284     return 0;
 285 }
 286
 287 /* increment the ref count of a global atom; used for window properties */
 288 int grab_global_atom( atom_t atom )
 289 {
 290     if (atom >= MIN_STR_ATOM)
 291     {
 292         struct atom_entry *entry = get_atom_entry( global_table, atom );
 293         if (entry) entry->count++;
 294         return (entry != NULL);
 295     }
 296     else return 1;
 297 }
 298
 299 /* decrement the ref count of a global atom; used for window properties */
 300 void release_global_atom( atom_t atom )
 301 {
 302     if (atom >= MIN_STR_ATOM) delete_atom( global_table, atom );
 303 }
 304
 305 /* add a global atom */
 306 DECL_HANDLER(add_atom)
 307 {
 308     struct atom_table **table_ptr = req->local ? &current->process->atom_table : &global_table;
 309
 310     if (!*table_ptr) *table_ptr = create_table(0);
 311     if (*table_ptr)
 312     {
 313         const WCHAR *name = copy_request_name();
 314         if (name) reply->atom = add_atom( *table_ptr, name );
 315     }
 316 }
 317
 318 /* delete a global atom */
 319 DECL_HANDLER(delete_atom)
 320 {
 321     delete_atom( req->local ? current->process->atom_table : global_table, req->atom );
 322 }
 323
 324 /* find a global atom */
 325 DECL_HANDLER(find_atom)
 326 {
 327     const WCHAR *name = copy_request_name();
 328     if (name)
 329         reply->atom = find_atom( req->local ? current->process->atom_table : global_table, name );
 330 }
 331
 332 /* get global atom name */
 333 DECL_HANDLER(get_atom_name)
 334 {
 335     struct atom_entry *entry;
 336     size_t len = 0;
 337
 338     reply->count = -1;
 339     if ((entry = get_atom_entry( req->local ? current->process->atom_table : global_table,
 340                                  req->atom )))
 341     {
 342         reply->count = entry->count;
 343         len = strlenW( entry->str ) * sizeof(WCHAR);
 344         if (len <= get_reply_max_size()) set_reply_data( entry->str, len );
 345         else set_error( STATUS_BUFFER_OVERFLOW );
 346     }
 347 }
 348
 349 /* init the process atom table */
 350 DECL_HANDLER(init_atom_table)
 351 {
 352     if (!current->process->atom_table)
 353         current->process->atom_table = create_table( req->entries );
 354 }