object.c 18.3 KB
Newer Older
Alexandre Julliard's avatar
Alexandre Julliard committed
1 2 3 4
/*
 * Server-side objects
 *
 * Copyright (C) 1998 Alexandre Julliard
5 6 7 8 9 10 11 12 13 14 15 16 17
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
18
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
Alexandre Julliard's avatar
Alexandre Julliard committed
19 20
 */

21 22 23
#include "config.h"
#include "wine/port.h"

Alexandre Julliard's avatar
Alexandre Julliard committed
24
#include <assert.h>
Alexandre Julliard's avatar
Alexandre Julliard committed
25
#include <limits.h>
Alexandre Julliard's avatar
Alexandre Julliard committed
26
#include <stdlib.h>
27
#include <stdio.h>
Alexandre Julliard's avatar
Alexandre Julliard committed
28
#include <string.h>
29
#include <unistd.h>
30
#include <stdarg.h>
Alexandre Julliard's avatar
Alexandre Julliard committed
31

32 33
#include "ntstatus.h"
#define WIN32_NO_STATUS
34 35
#include "winternl.h"

36
#include "file.h"
37
#include "process.h"
38
#include "thread.h"
39
#include "unicode.h"
40
#include "security.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
41

Alexandre Julliard's avatar
Alexandre Julliard committed
42

43 44 45 46 47
struct namespace
{
    unsigned int        hash_size;       /* size of hash table */
    struct list         names[1];        /* array of hash entry lists */
};
Alexandre Julliard's avatar
Alexandre Julliard committed
48 49


50
#ifdef DEBUG_OBJECTS
51
static struct list object_list = LIST_INIT(object_list);
52
static struct list static_object_list = LIST_INIT(static_object_list);
53 54 55

void dump_objects(void)
{
56 57
    struct list *p;

58 59 60 61
    LIST_FOR_EACH( p, &static_object_list )
    {
        struct object *ptr = LIST_ENTRY( p, struct object, obj_list );
        fprintf( stderr, "%p:%d: ", ptr, ptr->refcount );
62
        dump_object_name( ptr );
63 64
        ptr->ops->dump( ptr, 1 );
    }
65
    LIST_FOR_EACH( p, &object_list )
66
    {
67
        struct object *ptr = LIST_ENTRY( p, struct object, obj_list );
68
        fprintf( stderr, "%p:%d: ", ptr, ptr->refcount );
69
        dump_object_name( ptr );
70 71 72
        ptr->ops->dump( ptr, 1 );
    }
}
73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

void close_objects(void)
{
    struct list *ptr;

    /* release the static objects */
    while ((ptr = list_head( &static_object_list )))
    {
        struct object *obj = LIST_ENTRY( ptr, struct object, obj_list );
        /* move it back to the standard list before freeing */
        list_remove( &obj->obj_list );
        list_add_head( &object_list, &obj->obj_list );
        release_object( obj );
    }

    dump_objects();  /* dump any remaining objects */
}

#endif  /* DEBUG_OBJECTS */
92

Alexandre Julliard's avatar
Alexandre Julliard committed
93 94
/*****************************************************************/

95
/* malloc replacement */
Alexandre Julliard's avatar
Alexandre Julliard committed
96 97 98 99
void *mem_alloc( size_t size )
{
    void *ptr = malloc( size );
    if (ptr) memset( ptr, 0x55, size );
100
    else set_error( STATUS_NO_MEMORY );
Alexandre Julliard's avatar
Alexandre Julliard committed
101 102 103
    return ptr;
}

104 105 106
/* duplicate a block of memory */
void *memdup( const void *data, size_t len )
{
Alexandre Julliard's avatar
Alexandre Julliard committed
107
    void *ptr = malloc( len );
108
    if (ptr) memcpy( ptr, data, len );
109
    else set_error( STATUS_NO_MEMORY );
110 111 112 113
    return ptr;
}


Alexandre Julliard's avatar
Alexandre Julliard committed
114 115
/*****************************************************************/

116
static int get_name_hash( const struct namespace *namespace, const WCHAR *name, data_size_t len )
Alexandre Julliard's avatar
Alexandre Julliard committed
117
{
118
    WCHAR hash = 0;
119
    len /= sizeof(WCHAR);
120
    while (len--) hash ^= tolowerW(*name++);
121
    return hash % namespace->hash_size;
Alexandre Julliard's avatar
Alexandre Julliard committed
122 123
}

124 125 126 127 128 129 130
void namespace_add( struct namespace *namespace, struct object_name *ptr )
{
    int hash = get_name_hash( namespace, ptr->name, ptr->len );

    list_add_head( &namespace->names[hash], &ptr->entry );
}

131
/* allocate a name for an object */
132
static struct object_name *alloc_name( const struct unicode_str *name )
Alexandre Julliard's avatar
Alexandre Julliard committed
133 134 135
{
    struct object_name *ptr;

136
    if ((ptr = mem_alloc( sizeof(*ptr) + name->len - sizeof(ptr->name) )))
137
    {
138
        ptr->len = name->len;
139
        ptr->parent = NULL;
140
        memcpy( ptr->name, name->str, name->len );
141
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
142 143 144
    return ptr;
}

145
/* get the name of an existing object */
146
const WCHAR *get_object_name( struct object *obj, data_size_t *len )
147 148 149 150 151 152 153
{
    struct object_name *ptr = obj->name;
    if (!ptr) return NULL;
    *len = ptr->len;
    return ptr->name;
}

154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182
/* get the full path name of an existing object */
WCHAR *get_object_full_name( struct object *obj, data_size_t *ret_len )
{
    static const WCHAR backslash = '\\';
    struct object *ptr = obj;
    data_size_t len = 0;
    char *ret;

    while (ptr && ptr->name)
    {
        struct object_name *name = ptr->name;
        len += name->len + sizeof(WCHAR);
        ptr = name->parent;
    }
    if (!len) return NULL;
    if (!(ret = malloc( len ))) return NULL;

    *ret_len = len;
    while (obj && obj->name)
    {
        struct object_name *name = obj->name;
        memcpy( ret + len - name->len, name->name, name->len );
        len -= name->len + sizeof(WCHAR);
        memcpy( ret + len, &backslash, sizeof(WCHAR) );
        obj = name->parent;
    }
    return (WCHAR *)ret;
}

183
/* allocate and initialize an object */
184
void *alloc_object( const struct object_ops *ops )
185
{
186 187 188
    struct object *obj = mem_alloc( ops->size );
    if (obj)
    {
189 190 191 192 193
        obj->refcount     = 1;
        obj->handle_count = 0;
        obj->ops          = ops;
        obj->name         = NULL;
        obj->sd           = NULL;
194
        list_init( &obj->wait_queue );
195
#ifdef DEBUG_OBJECTS
196
        list_add_head( &object_list, &obj->obj_list );
197
#endif
198
        return obj;
199
    }
200
    return NULL;
201 202
}

203 204 205 206 207 208 209 210 211 212 213
/* free an object once it has been destroyed */
void free_object( struct object *obj )
{
    free( obj->sd );
#ifdef DEBUG_OBJECTS
    list_remove( &obj->obj_list );
    memset( obj, 0xaa, obj->ops->size );
#endif
    free( obj );
}

214 215 216 217 218 219
/* find an object by name starting from the specified root */
/* if it doesn't exist, its parent is returned, and name_left contains the remaining name */
struct object *lookup_named_object( struct object *root, const struct unicode_str *name,
                                    unsigned int attr, struct unicode_str *name_left )
{
    struct object *obj, *parent;
220
    struct unicode_str name_tmp = *name, *ptr = &name_tmp;
221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244

    if (root)
    {
        /* if root is specified path shouldn't start with backslash */
        if (name_tmp.len && name_tmp.str[0] == '\\')
        {
            set_error( STATUS_OBJECT_PATH_SYNTAX_BAD );
            return NULL;
        }
        parent = grab_object( root );
    }
    else
    {
        if (!name_tmp.len || name_tmp.str[0] != '\\')
        {
            set_error( STATUS_OBJECT_PATH_SYNTAX_BAD );
            return NULL;
        }
        /* skip leading backslash */
        name_tmp.str++;
        name_tmp.len -= sizeof(WCHAR);
        parent = get_root_directory();
    }

245
    if (!name_tmp.len) ptr = NULL;  /* special case for empty path */
246

247 248 249
    clear_error();

    while ((obj = parent->ops->lookup_name( parent, ptr, attr )))
250 251 252 253 254 255 256 257 258 259 260 261 262 263 264
    {
        /* move to the next element */
        release_object ( parent );
        parent = obj;
    }
    if (get_error())
    {
        release_object( parent );
        return NULL;
    }

    if (name_left) *name_left = name_tmp;
    return parent;
}

265 266
static struct object *create_object( struct object *parent, const struct object_ops *ops,
                                     const struct unicode_str *name, const struct security_descriptor *sd )
267 268 269 270 271
{
    struct object *obj;
    struct object_name *name_ptr;

    if (!(name_ptr = alloc_name( name ))) return NULL;
272 273 274 275 276 277 278 279
    if (!(obj = alloc_object( ops ))) goto failed;
    if (sd && !default_set_sd( obj, sd, OWNER_SECURITY_INFORMATION | GROUP_SECURITY_INFORMATION |
                               DACL_SECURITY_INFORMATION | SACL_SECURITY_INFORMATION ))
        goto failed;
    if (!obj->ops->link_name( obj, name_ptr, parent )) goto failed;

    name_ptr->obj = obj;
    obj->name = name_ptr;
280
    return obj;
281 282 283 284 285

failed:
    if (obj) free_object( obj );
    free( name_ptr );
    return NULL;
286 287
}

288 289
/* create an object as named child under the specified parent */
void *create_named_object( struct object *parent, const struct object_ops *ops,
290 291
                           const struct unicode_str *name, unsigned int attributes,
                           const struct security_descriptor *sd )
Alexandre Julliard's avatar
Alexandre Julliard committed
292
{
293 294
    struct object *obj, *new_obj;
    struct unicode_str new_name;
295

296
    clear_error();
297

298 299 300 301 302 303 304 305 306 307 308
    if (!name || !name->len)
    {
        if (!(new_obj = alloc_object( ops ))) return NULL;
        if (sd && !default_set_sd( new_obj, sd, OWNER_SECURITY_INFORMATION | GROUP_SECURITY_INFORMATION |
                                   DACL_SECURITY_INFORMATION | SACL_SECURITY_INFORMATION ))
        {
            free_object( new_obj );
            return NULL;
        }
        return new_obj;
    }
309 310 311 312

    if (!(obj = lookup_named_object( parent, name, attributes, &new_name ))) return NULL;

    if (!new_name.len)
Alexandre Julliard's avatar
Alexandre Julliard committed
313
    {
314 315 316
        if (attributes & OBJ_OPENIF && obj->ops == ops)
            set_error( STATUS_OBJECT_NAME_EXISTS );
        else
Alexandre Julliard's avatar
Alexandre Julliard committed
317
        {
318 319
            release_object( obj );
            obj = NULL;
320 321 322 323
            if (attributes & OBJ_OPENIF)
                set_error( STATUS_OBJECT_TYPE_MISMATCH );
            else
                set_error( STATUS_OBJECT_NAME_COLLISION );
Alexandre Julliard's avatar
Alexandre Julliard committed
324
        }
325
        return obj;
Alexandre Julliard's avatar
Alexandre Julliard committed
326
    }
327

328
    new_obj = create_object( obj, ops, &new_name, sd );
329 330
    release_object( obj );
    return new_obj;
Alexandre Julliard's avatar
Alexandre Julliard committed
331 332
}

333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353
/* open a object by name under the specified parent */
void *open_named_object( struct object *parent, const struct object_ops *ops,
                         const struct unicode_str *name, unsigned int attributes )
{
    struct unicode_str name_left;
    struct object *obj;

    if ((obj = lookup_named_object( parent, name, attributes, &name_left )))
    {
        if (name_left.len) /* not fully parsed */
            set_error( STATUS_OBJECT_NAME_NOT_FOUND );
        else if (ops && obj->ops != ops)
            set_error( STATUS_OBJECT_TYPE_MISMATCH );
        else
            return obj;

        release_object( obj );
    }
    return NULL;
}

354 355 356 357 358 359 360 361 362 363 364
/* recursive helper for dump_object_name */
static void dump_name( struct object *obj )
{
    struct object_name *name = obj->name;

    if (!name) return;
    if (name->parent) dump_name( name->parent );
    fputs( "\\\\", stderr );
    dump_strW( name->name, name->len / sizeof(WCHAR), stderr, "[]" );
}

365 366
/* dump the name of an object to stderr */
void dump_object_name( struct object *obj )
367
{
368 369 370 371
    if (!obj->name) return;
    fputc( '[', stderr );
    dump_name( obj );
    fputs( "] ", stderr );
372 373
}

374 375 376
/* unlink a named object from its namespace, without freeing the object itself */
void unlink_named_object( struct object *obj )
{
377 378 379
    struct object_name *name_ptr = obj->name;

    if (!name_ptr) return;
380
    obj->name = NULL;
381 382 383
    obj->ops->unlink_name( obj, name_ptr );
    if (name_ptr->parent) release_object( name_ptr->parent );
    free( name_ptr );
384 385
}

386 387 388 389 390 391 392 393 394
/* mark an object as being stored statically, i.e. only released at shutdown */
void make_object_static( struct object *obj )
{
#ifdef DEBUG_OBJECTS
    list_remove( &obj->obj_list );
    list_add_head( &static_object_list, &obj->obj_list );
#endif
}

Alexandre Julliard's avatar
Alexandre Julliard committed
395 396 397 398 399 400 401 402 403 404
/* grab an object (i.e. increment its refcount) and return the object */
struct object *grab_object( void *ptr )
{
    struct object *obj = (struct object *)ptr;
    assert( obj->refcount < INT_MAX );
    obj->refcount++;
    return obj;
}

/* release an object (i.e. decrement its refcount) */
Alexandre Julliard's avatar
Alexandre Julliard committed
405 406 407 408 409 410
void release_object( void *ptr )
{
    struct object *obj = (struct object *)ptr;
    assert( obj->refcount );
    if (!--obj->refcount)
    {
411
        assert( !obj->handle_count );
Alexandre Julliard's avatar
Alexandre Julliard committed
412
        /* if the refcount is 0, nobody can be in the wait queue */
413
        assert( list_empty( &obj->wait_queue ));
414
        unlink_named_object( obj );
415
        obj->ops->destroy( obj );
416
        free_object( obj );
Alexandre Julliard's avatar
Alexandre Julliard committed
417 418 419 420
    }
}

/* find an object by its name; the refcount is incremented */
421
struct object *find_object( const struct namespace *namespace, const struct unicode_str *name,
422
                            unsigned int attributes )
Alexandre Julliard's avatar
Alexandre Julliard committed
423
{
424 425
    const struct list *list;
    struct list *p;
426

427
    if (!name || !name->len) return NULL;
428

429
    list = &namespace->names[ get_name_hash( namespace, name->str, name->len ) ];
430
    LIST_FOR_EACH( p, list )
431
    {
432
        const struct object_name *ptr = LIST_ENTRY( p, struct object_name, entry );
433
        if (ptr->len != name->len) continue;
434
        if (attributes & OBJ_CASE_INSENSITIVE)
435
        {
436 437
            if (!strncmpiW( ptr->name, name->str, name->len/sizeof(WCHAR) ))
                return grab_object( ptr->obj );
438
        }
439
        else
440
        {
441 442
            if (!memcmp( ptr->name, name->str, name->len ))
                return grab_object( ptr->obj );
443
        }
444 445
    }
    return NULL;
Alexandre Julliard's avatar
Alexandre Julliard committed
446
}
447

448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465
/* find an object by its index; the refcount is incremented */
struct object *find_object_index( const struct namespace *namespace, unsigned int index )
{
    unsigned int i;

    /* FIXME: not efficient at all */
    for (i = 0; i < namespace->hash_size; i++)
    {
        const struct object_name *ptr;
        LIST_FOR_EACH_ENTRY( ptr, &namespace->names[i], const struct object_name, entry )
        {
            if (!index--) return grab_object( ptr->obj );
        }
    }
    set_error( STATUS_NO_MORE_ENTRIES );
    return NULL;
}

466
/* allocate a namespace */
467
struct namespace *create_namespace( unsigned int hash_size )
468 469 470 471 472 473 474 475 476 477 478 479 480
{
    struct namespace *namespace;
    unsigned int i;

    namespace = mem_alloc( sizeof(*namespace) + (hash_size - 1) * sizeof(namespace->names[0]) );
    if (namespace)
    {
        namespace->hash_size      = hash_size;
        for (i = 0; i < hash_size; i++) list_init( &namespace->names[i] );
    }
    return namespace;
}

481
/* functions for unimplemented/default object operations */
482

483 484 485 486 487
struct object_type *no_get_type( struct object *obj )
{
    return NULL;
}

488 489
int no_add_queue( struct object *obj, struct wait_queue_entry *entry )
{
490
    set_error( STATUS_OBJECT_TYPE_MISMATCH );
491 492 493
    return 0;
}

494
void no_satisfied( struct object *obj, struct wait_queue_entry *entry )
495 496 497
{
}

498 499 500 501 502 503
int no_signal( struct object *obj, unsigned int access )
{
    set_error( STATUS_OBJECT_TYPE_MISMATCH );
    return 0;
}

504
struct fd *no_get_fd( struct object *obj )
505
{
506
    set_error( STATUS_OBJECT_TYPE_MISMATCH );
507
    return NULL;
508 509
}

510 511
unsigned int no_map_access( struct object *obj, unsigned int access )
{
512 513 514 515 516
    if (access & GENERIC_READ)    access |= STANDARD_RIGHTS_READ;
    if (access & GENERIC_WRITE)   access |= STANDARD_RIGHTS_WRITE;
    if (access & GENERIC_EXECUTE) access |= STANDARD_RIGHTS_EXECUTE;
    if (access & GENERIC_ALL)     access |= STANDARD_RIGHTS_ALL;
    return access & ~(GENERIC_READ | GENERIC_WRITE | GENERIC_EXECUTE | GENERIC_ALL);
517 518
}

519 520 521 522 523
struct security_descriptor *default_get_sd( struct object *obj )
{
    return obj->sd;
}

524 525
int set_sd_defaults_from_token( struct object *obj, const struct security_descriptor *sd,
                                unsigned int set_info, struct token *token )
526 527 528
{
    struct security_descriptor new_sd, *new_sd_ptr;
    int present;
529
    const SID *owner = NULL, *group = NULL;
530 531 532
    const ACL *sacl, *dacl;
    char *ptr;

533
    if (!set_info) return 1;
534 535 536

    new_sd.control = sd->control & ~SE_SELF_RELATIVE;

537 538 539
    if (set_info & OWNER_SECURITY_INFORMATION && sd->owner_len)
    {
        owner = sd_get_owner( sd );
540
        new_sd.owner_len = sd->owner_len;
541 542 543 544 545 546
    }
    else if (obj->sd && obj->sd->owner_len)
    {
        owner = sd_get_owner( obj->sd );
        new_sd.owner_len = obj->sd->owner_len;
    }
547
    else if (token)
548
    {
549
        owner = token_get_user( token );
550
        new_sd.owner_len = security_sid_len( owner );
551
    }
552
    else new_sd.owner_len = 0;
553

554 555 556
    if (set_info & GROUP_SECURITY_INFORMATION && sd->group_len)
    {
        group = sd_get_group( sd );
557
        new_sd.group_len = sd->group_len;
558 559 560 561 562 563
    }
    else if (obj->sd && obj->sd->group_len)
    {
        group = sd_get_group( obj->sd );
        new_sd.group_len = obj->sd->group_len;
    }
564
    else if (token)
565
    {
566
        group = token_get_primary_group( token );
567
        new_sd.group_len = security_sid_len( group );
568
    }
569
    else new_sd.group_len = 0;
570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594

    new_sd.control |= SE_SACL_PRESENT;
    sacl = sd_get_sacl( sd, &present );
    if (set_info & SACL_SECURITY_INFORMATION && present)
        new_sd.sacl_len = sd->sacl_len;
    else
    {
        if (obj->sd) sacl = sd_get_sacl( obj->sd, &present );

        if (obj->sd && present)
            new_sd.sacl_len = obj->sd->sacl_len;
        else
            new_sd.sacl_len = 0;
    }

    new_sd.control |= SE_DACL_PRESENT;
    dacl = sd_get_dacl( sd, &present );
    if (set_info & DACL_SECURITY_INFORMATION && present)
        new_sd.dacl_len = sd->dacl_len;
    else
    {
        if (obj->sd) dacl = sd_get_dacl( obj->sd, &present );

        if (obj->sd && present)
            new_sd.dacl_len = obj->sd->dacl_len;
595
        else if (token)
596
        {
597
            dacl = token_get_default_dacl( token );
598 599
            new_sd.dacl_len = dacl->AclSize;
        }
600
        else new_sd.dacl_len = 0;
601 602 603 604
    }

    ptr = mem_alloc( sizeof(new_sd) + new_sd.owner_len + new_sd.group_len +
                     new_sd.sacl_len + new_sd.dacl_len );
605
    if (!ptr) return 0;
606 607 608 609 610 611 612 613 614 615 616 617 618 619
    new_sd_ptr = (struct security_descriptor*)ptr;

    memcpy( ptr, &new_sd, sizeof(new_sd) );
    ptr += sizeof(new_sd);
    memcpy( ptr, owner, new_sd.owner_len );
    ptr += new_sd.owner_len;
    memcpy( ptr, group, new_sd.group_len );
    ptr += new_sd.group_len;
    memcpy( ptr, sacl, new_sd.sacl_len );
    ptr += new_sd.sacl_len;
    memcpy( ptr, dacl, new_sd.dacl_len );

    free( obj->sd );
    obj->sd = new_sd_ptr;
620
    return 1;
621 622
}

623 624 625 626 627 628 629
/** Set the security descriptor using the current primary token for defaults. */
int default_set_sd( struct object *obj, const struct security_descriptor *sd,
                    unsigned int set_info )
{
    return set_sd_defaults_from_token( obj, sd, set_info, current->process->token );
}

630 631 632
struct object *no_lookup_name( struct object *obj, struct unicode_str *name,
                               unsigned int attr )
{
633
    if (!name) set_error( STATUS_OBJECT_TYPE_MISMATCH );
634 635 636
    return NULL;
}

637 638 639 640 641 642
int no_link_name( struct object *obj, struct object_name *name, struct object *parent )
{
    set_error( STATUS_OBJECT_TYPE_MISMATCH );
    return 0;
}

643 644 645 646 647
void default_unlink_name( struct object *obj, struct object_name *name )
{
    list_remove( &name->entry );
}

648 649 650 651 652 653 654
struct object *no_open_file( struct object *obj, unsigned int access, unsigned int sharing,
                             unsigned int options )
{
    set_error( STATUS_OBJECT_TYPE_MISMATCH );
    return NULL;
}

655 656 657 658 659
int no_close_handle( struct object *obj, struct process *process, obj_handle_t handle )
{
    return 1;  /* ok to close */
}

660 661 662
void no_destroy( struct object *obj )
{
}