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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 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 "ntstatus.h"
  31 #define WIN32_NO_STATUS
  32
  33 #include "unicode.h"
  34 #include "request.h"
  35 #include "object.h"
  36 #include "process.h"
  37 #include "handle.h"
  38 #include "user.h"
  39 #include "winuser.h"
  40 #include "winternl.h"
  41
  42 #define HASH_SIZE     37
  43 #define MIN_HASH_SIZE 4
  44 #define MAX_HASH_SIZE 0x200
  45
  46 #define MAX_ATOM_LEN  255
  47 #define MIN_STR_ATOM  0xc000
  48 #define MAX_ATOMS     0x4000
  49
  50 struct atom_entry
  51 {
  52     struct atom_entry *next;   /* hash table list */
  53     struct atom_entry *prev;   /* hash table list */
  54     int                count;  /* reference count */
  55     short              pinned; /* whether the atom is pinned or not */
  56     atom_t             atom;   /* atom handle */
  57     unsigned short     hash;   /* string hash */
  58     unsigned short     len;    /* string len */
  59     WCHAR              str[1]; /* atom string */
  60 };
  61
  62 struct atom_table
  63 {
  64     struct object       obj;                 /* object header */
  65     int                 count;               /* count of atom handles */
  66     int                 last;                /* last handle in-use */
  67     struct atom_entry **handles;             /* atom handles */
  68     int                 entries_count;       /* humber of hash entries */
  69     struct atom_entry **entries;             /* hash table entries */
  70 };
  71
  72 static void atom_table_dump( struct object *obj, int verbose );
  73 static void atom_table_destroy( struct object *obj );
  74
  75 static const struct object_ops atom_table_ops =
  76 {
  77     sizeof(struct atom_table),    /* size */
  78     atom_table_dump,              /* dump */
  79     no_add_queue,                 /* add_queue */
  80     NULL,                         /* remove_queue */
  81     NULL,                         /* signaled */
  82     NULL,                         /* satisfied */
  83     no_signal,                    /* signal */
  84     no_get_fd,                    /* get_fd */
  85     no_map_access,                /* map_access */
  86     no_lookup_name,               /* lookup_name */
  87     no_close_handle,              /* close_handle */
  88     atom_table_destroy            /* destroy */
  89 };
  90
  91 static struct atom_table *global_table;
  92
  93 /* create an atom table */
  94 static struct atom_table *create_table(int entries_count)
  95 {
  96     struct atom_table *table;
  97
  98     if ((table = alloc_object( &atom_table_ops )))
  99     {
 100         if ((entries_count < MIN_HASH_SIZE) ||
 101             (entries_count > MAX_HASH_SIZE)) entries_count = HASH_SIZE;
 102         table->entries_count = entries_count;
 103         if (!(table->entries = malloc( sizeof(*table->entries) * table->entries_count )))
 104         {
 105             set_error( STATUS_NO_MEMORY );
 106             goto fail;
 107         }
 108         memset( table->entries, 0, sizeof(*table->entries) * table->entries_count );
 109         table->count = 64;
 110         table->last  = -1;
 111         if ((table->handles = mem_alloc( sizeof(*table->handles) * table->count )))
 112             return table;
 113 fail:
 114         release_object( table );
 115         table = NULL;
 116     }
 117     return table;
 118 }
 119
 120 /* retrieve an entry pointer from its atom */
 121 static struct atom_entry *get_atom_entry( struct atom_table *table, atom_t atom )
 122 {
 123     struct atom_entry *entry = NULL;
 124     if (table && (atom >= MIN_STR_ATOM) && (atom <= MIN_STR_ATOM + table->last))
 125         entry = table->handles[atom - MIN_STR_ATOM];
 126     if (!entry) set_error( STATUS_INVALID_HANDLE );
 127     return entry;
 128 }
 129
 130 /* add an atom entry in the table and return its handle */
 131 static atom_t add_atom_entry( struct atom_table *table, struct atom_entry *entry )
 132 {
 133     int i;
 134     for (i = 0; i <= table->last; i++)
 135         if (!table->handles[i]) goto found;
 136     if (i == table->count)
 137     {
 138         struct atom_entry **new_table = NULL;
 139         int new_size = table->count + table->count / 2;
 140         if (new_size > MAX_ATOMS) new_size = MAX_ATOMS;
 141         if (new_size > table->count)
 142             new_table = realloc( table->handles, sizeof(*table->handles) * new_size );
 143         if (!new_table)
 144         {
 145             set_error( STATUS_NO_MEMORY );
 146             return 0;
 147         }
 148         table->count = new_size;
 149         table->handles = new_table;
 150     }
 151     table->last = i;
 152  found:
 153     table->handles[i] = entry;
 154     entry->atom = i + MIN_STR_ATOM;
 155     return entry->atom;
 156 }
 157
 158 /* compute the hash code for a string */
 159 static unsigned short atom_hash( struct atom_table *table, const WCHAR *str, size_t len )
 160 {
 161     unsigned int i;
 162     unsigned short hash = 0;
 163     for (i = 0; i < len; i++) hash ^= toupperW(str[i]) + i;
 164     return hash % table->entries_count;
 165 }
 166
 167 /* dump an atom table */
 168 static void atom_table_dump( struct object *obj, int verbose )
 169 {
 170     int i;
 171     struct atom_table *table = (struct atom_table *)obj;
 172     assert( obj->ops == &atom_table_ops );
 173
 174     fprintf( stderr, "Atom table size=%d entries=%d\n",
 175              table->last + 1, table->entries_count );
 176     if (!verbose) return;
 177     for (i = 0; i <= table->last; i++)
 178     {
 179         struct atom_entry *entry = table->handles[i];
 180         if (!entry) continue;
 181         fprintf( stderr, "  %04x: ref=%d pinned=%c hash=%d \"",
 182                  entry->atom, entry->count, entry->pinned ? 'Y' : 'N', entry->hash );
 183         dump_strW( entry->str, entry->len, stderr, "\"\"");
 184         fprintf( stderr, "\"\n" );
 185     }
 186 }
 187
 188 /* destroy the atom table */
 189 static void atom_table_destroy( struct object *obj )
 190 {
 191     int i;
 192     struct atom_table *table = (struct atom_table *)obj;
 193     assert( obj->ops == &atom_table_ops );
 194     if (table->handles)
 195     {
 196         for (i = 0; i <= table->last; i++) free( table->handles[i] );
 197         free( table->handles );
 198     }
 199     if (table->entries) free( table->entries );
 200 }
 201
 202 /* find an atom entry in its hash list */
 203 static struct atom_entry *find_atom_entry( struct atom_table *table, const WCHAR *str,
 204                                            size_t len, unsigned short hash )
 205 {
 206     struct atom_entry *entry = table->entries[hash];
 207     while (entry)
 208     {
 209         if (entry->len == len && !memicmpW( entry->str, str, len )) break;
 210         entry = entry->next;
 211     }
 212     return entry;
 213 }
 214
 215 /* add an atom to the table */
 216 static atom_t add_atom( struct atom_table *table, const WCHAR *str, size_t len )
 217 {
 218     struct atom_entry *entry;
 219     unsigned short hash = atom_hash( table, str, len );
 220     atom_t atom = 0;
 221
 222     if (!len)
 223     {
 224         set_error( STATUS_OBJECT_NAME_INVALID );
 225         return 0;
 226     }
 227     if (len > MAX_ATOM_LEN)
 228     {
 229         set_error( STATUS_INVALID_PARAMETER );
 230         return 0;
 231     }
 232     if ((entry = find_atom_entry( table, str, len, hash )))  /* exists already */
 233     {
 234         entry->count++;
 235         return entry->atom;
 236     }
 237
 238     if ((entry = mem_alloc( sizeof(*entry) + (len - 1) * sizeof(WCHAR) )))
 239     {
 240         if ((atom = add_atom_entry( table, entry )))
 241         {
 242             entry->prev  = NULL;
 243             if ((entry->next = table->entries[hash])) entry->next->prev = entry;
 244             table->entries[hash] = entry;
 245             entry->count  = 1;
 246             entry->pinned = 0;
 247             entry->hash   = hash;
 248             entry->len    = len;
 249             memcpy( entry->str, str, len * sizeof(WCHAR) );
 250         }
 251         else free( entry );
 252     }
 253     else set_error( STATUS_NO_MEMORY );
 254     return atom;
 255 }
 256
 257 /* delete an atom from the table */
 258 static void delete_atom( struct atom_table *table, atom_t atom, int if_pinned )
 259 {
 260     struct atom_entry *entry = get_atom_entry( table, atom );
 261     if (!entry) return;
 262     if (entry->pinned && !if_pinned) set_error( STATUS_WAS_LOCKED );
 263     else if (!--entry->count)
 264     {
 265         if (entry->next) entry->next->prev = entry->prev;
 266         if (entry->prev) entry->prev->next = entry->next;
 267         else table->entries[entry->hash] = entry->next;
 268         table->handles[atom - MIN_STR_ATOM] = NULL;
 269         free( entry );
 270     }
 271 }
 272
 273 /* find an atom in the table */
 274 static atom_t find_atom( struct atom_table *table, const WCHAR *str, size_t len )
 275 {
 276     struct atom_entry *entry;
 277
 278     if (!len)
 279     {
 280         set_error( STATUS_OBJECT_NAME_INVALID );
 281         return 0;
 282     }
 283     if (len > MAX_ATOM_LEN)
 284     {
 285         set_error( STATUS_INVALID_PARAMETER );
 286         return 0;
 287     }
 288     if (table && (entry = find_atom_entry( table, str, len, atom_hash(table, str, len) )))
 289         return entry->atom;
 290     set_error( STATUS_OBJECT_NAME_NOT_FOUND );
 291     return 0;
 292 }
 293
 294 static struct atom_table *get_global_table( struct winstation *winstation, int create )
 295 {
 296     struct atom_table *table = winstation ? winstation->atom_table : global_table;
 297     if (!table)
 298     {
 299         if (create)
 300         {
 301             table = create_table( HASH_SIZE );
 302             if (winstation) winstation->atom_table = table;
 303             else
 304             {
 305                 global_table = table;
 306                 make_object_static( &global_table->obj );
 307             }
 308         }
 309         else set_error( STATUS_OBJECT_NAME_NOT_FOUND );
 310     }
 311     return table;
 312 }
 313
 314 static struct atom_table *get_table( obj_handle_t h, int create )
 315 {
 316     struct atom_table *table = NULL;
 317
 318     if (h)
 319     {
 320         table = (struct atom_table *)get_handle_obj( current->process, h, 0, &atom_table_ops );
 321     }
 322     else
 323     {
 324         table = get_global_table( NULL, 1 );
 325         if (table) grab_object( table );
 326     }
 327     return table;
 328 }
 329
 330 /* add an atom in the global table; used for window properties */
 331 atom_t add_global_atom( struct winstation *winstation, const WCHAR *str, size_t len )
 332 {
 333     struct atom_table *global_table = get_global_table( winstation, 1 );
 334     if (!global_table) return 0;
 335     return add_atom( global_table, str, len );
 336 }
 337
 338 /* find an atom in the global table; used for window properties */
 339 atom_t find_global_atom( struct winstation *winstation, const WCHAR *str, size_t len )
 340 {
 341     struct atom_table *global_table = get_global_table( winstation, 0 );
 342     struct atom_entry *entry;
 343
 344     if (!len || len > MAX_ATOM_LEN || !global_table) return 0;
 345     if ((entry = find_atom_entry( global_table, str, len, atom_hash(global_table, str, len) )))
 346         return entry->atom;
 347     return 0;
 348 }
 349
 350 /* increment the ref count of a global atom; used for window properties */
 351 int grab_global_atom( struct winstation *winstation, atom_t atom )
 352 {
 353     if (atom >= MIN_STR_ATOM)
 354     {
 355         struct atom_table *global_table = get_global_table( winstation, 0 );
 356         if (global_table)
 357         {
 358             struct atom_entry *entry = get_atom_entry( global_table, atom );
 359             if (entry) entry->count++;
 360             return (entry != NULL);
 361         }
 362         else return 0;
 363     }
 364     else return 1;
 365 }
 366
 367 /* decrement the ref count of a global atom; used for window properties */
 368 void release_global_atom( struct winstation *winstation, atom_t atom )
 369 {
 370     if (atom >= MIN_STR_ATOM)
 371     {
 372         struct atom_table *global_table = get_global_table( winstation, 0 );
 373         if (global_table) delete_atom( global_table, atom, 1 );
 374     }
 375 }
 376
 377 /* add a global atom */
 378 DECL_HANDLER(add_atom)
 379 {
 380     struct atom_table *table = get_table( req->table, 1 );
 381     if (table)
 382     {
 383         reply->atom = add_atom( table, get_req_data(), get_req_data_size() / sizeof(WCHAR) );
 384         release_object( table );
 385     }
 386 }
 387
 388 /* delete a global atom */
 389 DECL_HANDLER(delete_atom)
 390 {
 391     struct atom_table *table = get_table( req->table, 0 );
 392     if (table)
 393     {
 394         delete_atom( table, req->atom, 0 );
 395         release_object( table );
 396     }
 397 }
 398
 399 /* find a global atom */
 400 DECL_HANDLER(find_atom)
 401 {
 402     struct atom_table *table = get_table( req->table, 0 );
 403     if (table)
 404     {
 405         reply->atom = find_atom( table, get_req_data(), get_req_data_size() / sizeof(WCHAR) );
 406         release_object( table );
 407     }
 408 }
 409
 410 /* get global atom name */
 411 DECL_HANDLER(get_atom_information)
 412 {
 413     struct atom_table *table = get_table( req->table, 0 );
 414     if (table)
 415     {
 416         struct atom_entry *entry;
 417
 418         if ((entry = get_atom_entry( table, req->atom )))
 419         {
 420             size_t len = entry->len * sizeof(WCHAR);
 421             if (get_reply_max_size())
 422                 set_reply_data( entry->str, min( len, get_reply_max_size()));
 423             reply->count = entry->count;
 424             reply->pinned = entry->pinned;
 425             reply->total = len;
 426         }
 427         else reply->count = -1;
 428         release_object( table );
 429     }
 430 }
 431
 432 /* set global atom name */
 433 DECL_HANDLER(set_atom_information)
 434 {
 435     struct atom_table *table = get_table( req->table, 0 );
 436     if (table)
 437     {
 438         struct atom_entry *entry;
 439
 440         if ((entry = get_atom_entry( table, req->atom )))
 441         {
 442             if (req->pinned) entry->pinned = 1;
 443         }
 444         release_object( table );
 445     }
 446 }
 447
 448 /* init a (local) atom table */
 449 DECL_HANDLER(init_atom_table)
 450 {
 451     struct atom_table* table = create_table( req->entries );
 452
 453     if (table)
 454     {
 455         reply->table = alloc_handle( current->process, table, 0, 0 );
 456         release_object( table );
 457     }
 458 }
 459
 460 /* set global atom name */
 461 DECL_HANDLER(empty_atom_table)
 462 {
 463     struct atom_table *table = get_table( req->table, 1 );
 464     if (table)
 465     {
 466         int i;
 467         struct atom_entry *entry;
 468
 469         for (i = 0; i <= table->last; i++)
 470         {
 471             entry = table->handles[i];
 472             if (entry && (!entry->pinned || req->if_pinned))
 473             {
 474                 if (entry->next) entry->next->prev = entry->prev;
 475                 if (entry->prev) entry->prev->next = entry->next;
 476                 else table->entries[entry->hash] = entry->next;
 477                 table->handles[i] = NULL;
 478                 free( entry );
 479             }
 480         }
 481         release_object( table );
 482     }
 483 }