simple-cache.c 61.2 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
David Byers's avatar
Server:  
David Byers committed
2
 * $Id: simple-cache.c,v 0.83 1999/07/02 00:14:04 byers Exp $
3
 * Copyright (C) 1991-1999  Lysator Academic Computer Association.
Linus Tolke Y's avatar
Linus Tolke Y committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by 
 * the Free Software Foundation; either version 1, or (at your option) 
 * any later version.
 * 
 * LysKOM 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 General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25 26 27 28 29 30 31 32 33
/*
 * This module contains some simple simulations of the routines in
 * cache.c.
 *
 * Extracted from ram-cache.c and rewritten by ceder.
 *
 * New database format with texts in their own file by Inge Wallin.
 *
 * New save algorithm by ceder.
David Byers's avatar
David Byers committed
34
 * Attempt at newer algorithm by byers (FASTSAVE)
Per Cederqvist's avatar
Per Cederqvist committed
35 36
 */

David Byers's avatar
David Byers committed
37 38 39 40 41

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

42
static const char *
David Byers's avatar
Server:  
David Byers committed
43
rcsid = "$Id: simple-cache.c,v 0.83 1999/07/02 00:14:04 byers Exp $";
44 45
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
46

Per Cederqvist's avatar
Per Cederqvist committed
47 48
#include <errno.h>
#include <stdio.h>
David Byers's avatar
Server:  
David Byers committed
49 50 51
#ifdef HAVE_STDLIB_H
#   include <stdlib.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
52
#include <sys/types.h>
53 54 55
#ifdef HAVE_UNISTD_H
#   include <unistd.h>
#endif
56 57 58
#ifdef HAVE_STRING_H
#  include <string.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
59 60 61 62
#ifndef SEEK_END
#  include <fcntl.h>
#endif
#ifndef SEEK_END
Per Cederqvist's avatar
Per Cederqvist committed
63 64 65
#  define SEEK_SET 0
#  define SEEK_END 2
#endif
Per Cederqvist's avatar
Per Cederqvist committed
66 67 68
#include <time.h>
#include <setjmp.h>

69
#include "ldifftime.h"
Per Cederqvist's avatar
Per Cederqvist committed
70 71
#include "exp.h"
#include "misc-types.h"
72
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
73 74 75 76 77 78 79 80 81 82 83 84 85
#include "kom-types.h"
#include "cache-node.h"
#include "cache.h"
#include "parser.h"
#include "ram-parse.h"
#include "ram-output.h"
#include "server/smalloc.h"
#include "kom-memory.h"
#include "lyskomd.h"
#include "debug.h"
#include "kom-errno.h"
#include "log.h"
#include "com.h"
86
#include "async.h"
Per Cederqvist's avatar
Per Cederqvist committed
87 88
#include "connections.h"
#include "send-async.h"
89
#include "param.h"
David Byers's avatar
David Byers committed
90
#include "kom-config.h"
David Byers's avatar
David Byers committed
91
#include "admin.h"
92
#include "unused.h"
93
#include "local-to-global.h"
94
#include "server-time.h"
Per Cederqvist's avatar
Per Cederqvist committed
95 96 97 98 99 100 101 102 103 104 105 106 107 108

/*
 * Possible improvements: +++
 *  When there are consecutive items in file A that shall be copied
 *  to file B, copy them in one transfer (up to a certain limit).
 *
 *  In pre_sync: compute size of, and allocate disk space for file B.
 */

/*
 * All functions that can fail sets kom_errno to a suitable value
 * if they fail.
 */

David Byers's avatar
David Byers committed
109
static Small_conf      ** small_conf_arr;
110 111
static Cache_node_mcb	* pers_mcb;
static Cache_node_mcb 	* conf_mcb;
112
static Conf_no		  next_free_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
113

114
static Cache_node_mcb 	* text_mcb;
115
static Text_no		  next_text_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
116 117 118 119 120 121 122 123 124 125 126

/*
 * The elements in the following lists with same index refers to the same
 * conference.
 */
static int    no_of_match_info;
EXPORT Matching_info *match_table = NULL;

static FILE	*text_file= NULL;
static FILE	*file_a = NULL;	/* Current file. */
static FILE	*file_b = NULL;	/* File under construction. */
David Byers's avatar
David Byers committed
127 128 129
#ifdef FASTSAVE
static FILE     *file_b_r = NULL; /* Read from file under construction */
#endif
Per Cederqvist's avatar
Per Cederqvist committed
130 131 132 133 134

/*
 * Four state variables for the background save.
 */
static enum {
135
    sync_idle,
Per Cederqvist's avatar
Per Cederqvist committed
136 137 138 139 140 141 142 143
    sync_save_conf,
    sync_save_pers,
    sync_save_text,
    sync_error,
    sync_wait,
    sync_ready
} sync_state;

144 145 146 147 148 149 150 151 152 153 154 155 156 157 158
/* The state machine sync_state works like this:
 *
 *  Old state              action           new state
 *  none               sync_part called     sync_idle
 *                     for the first time
 *  sync_idle	       SYNC_INTERVAL        sync_save_conf
 *  sync_save_conf     all confs saved      sync_save_pers
 *  sync_save_pers     all persons saved    sync_save_text
 *  sync_save_text     all texts saved      sync_ready
 *  sync_ready         sync_part called     sync_idle
 *  any                error occurs         sync_error
 *  sync_error         sync_part called     sync_wait
 *  sync_wait          SYNC_RETRY_INTERVAL  sync_save_conf
 */

David Byers's avatar
David Byers committed
159
#ifndef FASTSAVE
160 161 162 163 164
/* sync_next should be split in next_text_to_sync and
   next_conf_to_sync to avoid warnings about the different sizes of
   Conf_no and Text_no.  Since that is indeed done if FASTSAVE is set,
   don't bother doing it in the old code that will anyhow soon be
   replaced. */
165
static unsigned long sync_next;
David Byers's avatar
David Byers committed
166
#endif
Per Cederqvist's avatar
Per Cederqvist committed
167 168 169 170 171 172

static Conf_no highest_conf_no;
static Text_no highest_text_no;

BUGDECL;

173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212
/* Define LOGACCESSES if you want to be able to log all accesses to
   the data base. */

#ifdef LOGACCESSES
typedef enum {
    lt_restart,
    lt_text_stat,
    lt_text_mass,
    lt_conf_stat,
    lt_pers_stat,
    
    lt_text_def,
    lt_conf_def,
    lt_pers_def,

    lt_create_text,
    lt_garb_text,
    lt_delete_text,
    lt_create_conf,
    lt_delete_conf,
    lt_create_pers,
    lt_delete_pers,

    lt_lock_conf,
    lt_unlock_conf,
    lt_lock_pers,
    lt_unlock_pers,

    lt_get_highest,		/* Get highest Local_text_no for a conf. */
    lt_get_conf_type
    /* Note: mark_*_as_changed is not logged. */
} Log_type;

static FILE *logfile = NULL;
static int syncing_or_saving = 0;
static int garb_running = 0;

static void log_access(Log_type t,
		       int id)
{
213 214
    extern int putw(int, FILE *);

215 216 217 218 219 220 221 222 223 224 225
    if (garb_running + syncing_or_saving == 0)
    {
	putc(t, logfile);
	putw(id, logfile);
    }
}
#define LOGACC(a,b) {if (logfile) log_access(a, b);}
#else
#define LOGACC(a,b)
#endif

David Byers's avatar
Server:  
David Byers committed
226 227 228 229 230 231 232 233 234

/* Local functions */

static Success build_matching_info(void);
static Success rebuild_matching_info_entry(Conf_no conf_no);
static Matching_info *find_matching_info(Conf_no conf_no);



Per Cederqvist's avatar
Per Cederqvist committed
235 236 237 238 239 240 241 242 243 244 245

/* Macros */

#define TRACE2(format, arg) if ( buglevel > 2 ) printf(format, arg)
#define TRACE1(format) if ( buglevel > 2 ) printf(format)
#define TRACESTR(str)  if ( buglevel > 2 ) s_puts(str)


static Person *
read_person(FILE *fp,
	    long pos,
246
	    long UNUSED(size))	/* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
247 248
{
    Person *p;
David Byers's avatar
David Byers committed
249
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
250 251

    p = alloc_person();
252
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'P' */
David Byers's avatar
David Byers committed
253
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
254 255 256 257 258 259 260 261 262 263 264 265 266 267
    if ( fparse_person(fp, p) != OK )
    {
	free_person(p);
	return NULL;
    }
    else
	return p;
}



static Conference *
read_conference(FILE *fp,
		long pos,
268
		long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
269 270
{
    Conference *c;
David Byers's avatar
David Byers committed
271
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
272 273

    c = alloc_conference();
274
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'C' */
David Byers's avatar
David Byers committed
275
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
276 277 278 279 280 281 282 283 284 285 286 287 288
    if ( fparse_conference(fp, c) != OK )
    {
	free_conference(c);
	return NULL;
    }
    else
	return c;
}
	

static Text_stat *
read_text_stat(FILE *fp,
	       long pos,
289
	       long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
290 291
{
    Text_stat *t;
David Byers's avatar
David Byers committed
292
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
293 294

    t = alloc_text_stat();
295
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'T' */
David Byers's avatar
David Byers committed
296
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
297 298 299 300 301 302 303 304 305 306
    if ( fparse_text_stat(fp, t) != OK )
    {
	free_text_stat(t);
	return NULL;
    }
    else
	return t;
}

static void
307
pers_set_mru(Pers_no pers_no)
Per Cederqvist's avatar
Per Cederqvist committed
308
{
309
    set_mru(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
310 311 312
}

static void
313
text_set_mru(Text_no text_no)
Per Cederqvist's avatar
Per Cederqvist committed
314
{
315
    set_mru(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
316 317 318
}

static void
319
conf_set_mru(Conf_no conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
320
{
321 322
    set_mru(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
323

324 325 326
static Cache_node *
get_pers_node(Pers_no pers_no)
{
327
    if (pers_no >= next_free_num || pers_no < 1)
328 329
	return NULL;

330
    return get_cache_node(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
331 332 333
}

static void
334
unlink_text_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
335
{
336
    unlink_lru (node, &text_mcb->lru, &text_mcb->mru);
Per Cederqvist's avatar
Per Cederqvist committed
337 338
}

339 340 341 342 343
static void
unlink_conf_lru (Cache_node *node)
{
    unlink_lru (node, &conf_mcb->lru, &conf_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
344 345

static void
346
unlink_pers_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
347
{
348 349
    unlink_lru (node, &pers_mcb->lru, &pers_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
350

351 352 353
static Cache_node *
get_conf_node(Conf_no conf_no)
{
354
    if (conf_no >= next_free_num || conf_no < 1)
355 356
	return NULL;

357 358
    return get_cache_node(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
359

360 361 362
static Cache_node *
get_text_node(Text_no text_no)
{
363
    if (text_no >= next_text_num || text_no < 1)
364 365
	return NULL;

366
    return get_cache_node(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387
}

	
/*
 * Name caching routines
 */

/*
 * change_name changes the cached conference name. It is only called when
 * a conference name is changed or a conference is deleted.
 */
void
cached_change_name( Conf_no name_num,
		    String new_name )
{
    if ( name_num < 1 || name_num >= next_free_num )
	restart_kom("cached_change_name(%d, ----): next_free_num==%d",
		    name_num, next_free_num);

    s_clear( &small_conf_arr[name_num]->name );
    s_strcpy( &small_conf_arr[name_num]->name, new_name);
David Byers's avatar
Server:  
David Byers committed
388
    rebuild_matching_info_entry(name_num);
Per Cederqvist's avatar
Per Cederqvist committed
389 390 391 392 393 394 395 396 397
}


extern Conf_type
cached_get_conf_type (Conf_no conf_no)
{
    if ( conf_no < 1 || conf_no >= next_free_num )
	restart_kom("cached_get_conf_type(%d): next_free_num==%d",
		    conf_no, next_free_num);
398 399 400 401 402

    if ( small_conf_arr [ conf_no ] == NULL )
	restart_kom("cached_get_conf_type(%d): conference does not exist.\n",
		    conf_no);

403 404
    LOGACC(lt_get_conf_type, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
405 406 407
    return small_conf_arr [ conf_no ]->type;
}

408 409 410 411 412 413 414 415
/*
 * Return number of conferences present.  (Actually, return a number
 * at least as large as the number of conferences present).
 */
extern Conf_no
cached_no_of_existing_conferences(void)
{
    return next_free_num;	/* This is too large, but who cares? */
416 417 418 419
    /* Actually, this is used in lookup_regexp (and maybe other
       places) to allocate an array this large, and that is pretty
       stupid if many conferences have been deleted.  But it is no big
       deal.  Not yet, anyhow...  */
420
}
Per Cederqvist's avatar
Per Cederqvist committed
421 422 423 424 425 426 427 428

/*
 * Various function calls to tell the cache that something is changed.
 */

void
mark_person_as_changed(Pers_no	pers_no)
{
429 430 431 432
    Cache_node *node;

    node = get_pers_node(pers_no);
    
Per Cederqvist's avatar
Per Cederqvist committed
433
    TRACE2("Person %d is changed\n", pers_no);
434
    if ( node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
435 436
	restart_kom("mark_person_as_changed(%d): nonexistent.\n", pers_no);

437
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
438 439 440
    pers_set_mru( pers_no );
}

441 442 443 444 445 446 447 448 449 450 451
/*
 * Mark the conference as dirty, so that it will be written to
 * the disk.
 *
 * Also update all fields in the Small_conf except then name, so that
 * they are always current.
 *
 * NOTE: You must call cached_change_name when the name changes.
 *       It is not necessary to call cached_change_name after
 *       cached_create_conf.
 */
Per Cederqvist's avatar
Per Cederqvist committed
452 453 454 455

void
mark_conference_as_changed(Conf_no	conf_no)
{
456
    Cache_node *node;
457
    Conference *conf_c;
458 459 460

    node = get_conf_node (conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
461
    TRACE2("Conf.  %d is changed\n", conf_no);
462
    if ( node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
463 464
	restart_kom("mark_conference_as_changed(%d): nonexistent.\n", conf_no);

465
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
466
    conf_set_mru( conf_no );
467 468 469

    conf_c = (Conference *) node->ptr;

Per Cederqvist's avatar
Per Cederqvist committed
470
    small_conf_arr[ conf_no ]->highest_local_no
471
	= l2g_first_appendable_key(&conf_c->texts) - 1;
472 473 474

    small_conf_arr[ conf_no ]->nice = conf_c->nice;
    small_conf_arr[ conf_no ]->type = conf_c->type;
Per Cederqvist's avatar
Per Cederqvist committed
475 476 477 478 479
}

void
mark_text_as_changed( Text_no text_no )
{
480 481 482 483
    Cache_node *node;

    node = get_text_node (text_no);

484
    TRACE2("Text %lu is changed.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
485
    if ( text_no < 1 || text_no >= next_text_num
486
	|| node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
487
    {
488
	restart_kom("mark_text_as_changed(%lu): nonexistent.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
489 490
    }

491 492
    node->s.dirty = 1;
    text_set_mru (text_no);
Per Cederqvist's avatar
Per Cederqvist committed
493 494 495 496 497 498 499 500 501 502 503 504
}    



/*
 * Person-related calls
 */


extern Success
cached_create_person( Pers_no person )
{
505 506
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
507 508 509 510 511 512 513 514
    TRACE2("Person %d is being created.\n", person);

    if ( person < 1 || person >= next_free_num )
    {
	restart_kom("cached_create_person(%d): next_free_num == %d.\n",
		    person, next_free_num);
    }

515
    if ( get_pers_node(person) != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
516 517 518 519 520
    {
	restart_kom("cached_create_person(%d): Person existed.\n",
		    person);
    }

521 522 523 524 525
    create_cache_node (pers_mcb, person);
    node = get_pers_node (person);

    if ( node == NULL )
	restart_kom("cached_create_person(): couldn't get cache_node.\n");
526

527 528 529
    node->ptr = alloc_person();
    node->s.dirty = 1;
    node->s.exists = 1;
Per Cederqvist's avatar
Per Cederqvist committed
530
    pers_set_mru( person );
531 532 533

    LOGACC(lt_create_pers, person);

Per Cederqvist's avatar
Per Cederqvist committed
534 535 536 537 538 539 540
    return OK;
}


extern Person *
cached_get_person_stat( Pers_no	person )
{
541 542
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
543 544 545 546
    TRACE2("cached_get_person_stat %d\n", person);

    if ( person == 0 )
    {
547
        err_stat = 0;
Per Cederqvist's avatar
Per Cederqvist committed
548 549 550
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
551

552 553
    if ( person >= next_free_num )
    {
554
        err_stat = person;
555 556 557 558
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

559 560
    node = get_pers_node (person);

561
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
562
    {
563
        err_stat = person;
Per Cederqvist's avatar
Per Cederqvist committed
564 565 566 567
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

568 569
    LOGACC(lt_pers_stat, person);

570
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
571 572
    {
	pers_set_mru( person );
573
	++pers_mcb->hits;
574
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
575 576
    }

577
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
578
    {
579
	node->ptr = copy_person (node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
580
	pers_set_mru (person);
581
	++pers_mcb->hits;
582
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
583 584
    }

585
    node->ptr = read_person(file_a, node->pos, node->size);
Per Cederqvist's avatar
Per Cederqvist committed
586

587
    ++pers_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
588
    pers_set_mru (person);
589
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
590 591 592 593 594 595
}


/*
 * Conference-related calls
 */
596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611


static int no_of_allocated_small_confs = 0;

static void
free_small_conf (Small_conf *sc)
{
    if ( sc != NULL )
    {
	--no_of_allocated_small_confs;
	s_clear ( &sc->name );
	sfree (sc);
    }
}


612 613 614 615 616 617 618 619 620
static void
init_small_conf(Small_conf *sc)
{
    sc->name = EMPTY_STRING;
    init_conf_type(&sc->type);
    sc->highest_local_no = 0;
    sc->nice = param.default_nice;
}

621 622 623 624 625
static Small_conf *
alloc_small_conf(void)
{
    Small_conf *s;
    s = smalloc(sizeof(Small_conf));
626
    init_small_conf(s);
627 628 629 630 631 632
    ++no_of_allocated_small_confs;

    return s;
}


633 634 635 636 637 638
/*
 * Create a conference.
 *
 * Set up a Conference and cache the name in the small_conf_array.
 */
extern Conf_no
Per Cederqvist's avatar
Per Cederqvist committed
639 640 641 642
cached_create_conf (String  name)
{
    Conference * conf_c;
    Conf_no	 conf_no;
643
    Cache_node  *node;
Per Cederqvist's avatar
Per Cederqvist committed
644 645 646 647 648

    TRACE1("cached_create_conf( ");
    TRACESTR(name);
    TRACE1(" )\n");

David Byers's avatar
David Byers committed
649
    if ( next_free_num >= param.max_conf )
Per Cederqvist's avatar
Per Cederqvist committed
650
    {
651
        err_stat = next_free_num;
Per Cederqvist's avatar
Per Cederqvist committed
652 653 654 655 656 657
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
	return 0;
    }
    
    conf_no = next_free_num++;

658 659 660 661 662 663 664 665 666
    create_cache_node (conf_mcb, conf_no);
    node = get_conf_node (conf_no);

    if ( node == NULL )
	restart_kom("cached_create_conf(): failed to allocate cache_node.\n");
    
    node->s.exists = 1;
    node->s.dirty = 1;
    node->ptr = conf_c = alloc_conference();
Per Cederqvist's avatar
Per Cederqvist committed
667 668
    conf_set_mru(conf_no);    

669
    zero_init_cache_node (pers_mcb, conf_no);
Per Cederqvist's avatar
Per Cederqvist committed
670 671 672 673 674 675
    small_conf_arr[ conf_no ] = alloc_small_conf();

    conf_c->name = EMPTY_STRING;
    s_strcpy(&conf_c->name, name);
    cached_change_name( conf_no, name);

676
    TRACE2("Created conference number %d\n", conf_no);
677 678 679

    LOGACC(lt_create_conf, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
680 681 682 683 684 685 686
    return conf_no;
}


extern Success
cached_delete_conf( Conf_no	conf )
{
687 688
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
689 690
    if ( conf == 0 )
    {
691
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
692 693 694
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
695

696 697
    if ( conf >= next_free_num )
    {
698
        err_stat = conf;
699 700 701 702
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

703 704
    node = get_conf_node (conf);

705
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
706
    {
707
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
708 709 710 711
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

712
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
713
	kom_log("WNG: cached_delete_conf(%d): lock_cnt === %d\n",
714
	    conf, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
715

David Byers's avatar
David Byers committed
716 717 718
    free_small_conf(small_conf_arr[conf]);
    small_conf_arr[conf] = NULL;

719 720 721
    free_conference(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
722

723 724
    LOGACC(lt_delete_conf, conf);

David Byers's avatar
Server:  
David Byers committed
725
    rebuild_matching_info_entry(conf);
Per Cederqvist's avatar
Per Cederqvist committed
726 727 728 729 730 731
    return OK;
}

Success
cached_delete_person(Pers_no pers)
{
732 733
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
734 735
    if ( pers == 0 )
    {
736
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
737 738 739
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
740

741 742
    if ( pers >= next_free_num )
    {
David Byers's avatar
David Byers committed
743
	kom_log("cached_delete_person(%lu): next_free_num == %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
744
	    (unsigned long)pers, (unsigned long)next_free_num);
745
        err_stat = pers;
746 747 748 749
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

750 751 752
    node = get_pers_node (pers);

    if ( pers >= next_free_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
753
    {
David Byers's avatar
David Byers committed
754
	kom_log("cached_delete_person(): attempt to delete void person.\n");
755
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
756 757 758 759
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

760
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
761
	kom_log("cached_delete_pers(%lu): lock_cnt === %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
762
	    (unsigned long)pers, (unsigned long)node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
763

764 765
    LOGACC(lt_delete_pers, pers);

766 767 768
    free_person (node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
769 770 771 772 773 774
    return OK;
}

Success
cached_delete_text(Text_no text)
{
775 776
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
777 778
    if ( text == 0 )
    {
779
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
780 781 782
	kom_errno = KOM_TEXT_ZERO;
	return FAILURE;
    }
783 784 785 786 787

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL
	|| node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
788
    {
David Byers's avatar
David Byers committed
789
	kom_log("cached_delete_text(): attempt to delete void text %lu.\n", text);
790
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
791 792 793 794
	kom_errno = KOM_NO_SUCH_TEXT;
	return FAILURE;
    }

795
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
796
	kom_log("cached_delete_text(%lu): lock_cnt === %d\n",
797
	    text, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
798 799


800 801 802
    free_text_stat(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
803

804 805 806
#ifdef LOGACCESSES
    if (garb_running)
    {
807
	LOGACC(lt_garb_text, text);
808 809
    }
    else
810
	LOGACC(lt_delete_text, text);
811
#endif
Per Cederqvist's avatar
Per Cederqvist committed
812 813 814 815 816
    return OK;
}


extern Conference *
817
cached_get_conf_stat (Conf_no   conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
818
{
819 820
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
821 822 823 824
    TRACE2("cached_get_conf_stat %d\n", conf_no);

    if ( conf_no == 0 )
    {
825
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
826 827 828
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
829 830 831 832

    node = get_conf_node (conf_no);

    if ( conf_no >= next_free_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
833
    {
834
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
835 836 837 838
	kom_errno = KOM_UNDEF_CONF;
	return NULL;
    }

839 840
    LOGACC(lt_conf_stat, conf_no);

841
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
842
    {
843
	conf_set_mru (conf_no);
844
	++conf_mcb->hits;
845
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
846 847
    }

848
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
849
    {
850
	node->ptr = copy_conference (node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
851
	conf_set_mru (conf_no);
852
	++conf_mcb->hits;
853
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
854 855
    }

856
    node->ptr = read_conference(file_a, node->pos, node->size);
857
    ++conf_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
858 859

    conf_set_mru (conf_no);
860
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
861 862 863 864 865 866 867 868
}

/*
 * Return TRUE if conf_no exists.
 */
Bool
cached_conf_exists(Conf_no conf_no)
{
869 870 871
    if (conf_no == 0 || conf_no >= next_free_num )
	return FALSE;

David Byers's avatar
David Byers committed
872
    return small_conf_arr[conf_no] != NULL ? TRUE : FALSE;
Per Cederqvist's avatar
Per Cederqvist committed
873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888
}

    
/*
 * Calls to handle texts
 */

/*
 * +++ Should return Success.
 */
extern String
cached_get_text( Text_no text )
{
    String  the_string;
    Text_stat *t_stat;

889
    TRACE2("cached_get_text %lu\n", text);
Per Cederqvist's avatar
Per Cederqvist committed
890 891 892 893 894

    if ( (t_stat = cached_get_text_stat (text)) == NULL )
	return EMPTY_STRING;
    else
    {
895
	LOGACC(lt_text_mass, text);
Per Cederqvist's avatar
Per Cederqvist committed
896 897 898 899 900
	the_string.string = tmp_alloc( t_stat->no_of_chars );
	the_string.len = t_stat->no_of_chars;
	fseek(text_file, t_stat->file_pos, SEEK_SET);

	if ( fread(the_string.string, sizeof(char), the_string.len, text_file)
David Byers's avatar
David Byers committed
901
	    != (size_t)the_string.len )
Per Cederqvist's avatar
Per Cederqvist committed
902
	{
David Byers's avatar
David Byers committed
903
	    kom_log("WARNING: cached_get_text: premature end on text %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
904 905 906 907 908 909 910 911 912 913 914 915
		text);
	    return EMPTY_STRING;
	}
		    
	return the_string;
    }
}


extern Text_stat *	/* NULL on error */
cached_get_text_stat(	Text_no		text )
{
916 917
    Cache_node *node;

918
    TRACE2("cached_get_text_stat(%lu);  next_text_num == ", text);
919
    TRACE2("%lu\n", (unsigned long)next_text_num);
Per Cederqvist's avatar
Per Cederqvist committed
920 921 922

    if ( text == 0 )
    {
923
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
924 925 926
	kom_errno = KOM_TEXT_ZERO;
	return NULL;
    }
927 928 929 930

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
931 932
    {
	TRACE1("cached_get_text_stat: no such text.\n");
933
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
934 935 936 937
	kom_errno = KOM_NO_SUCH_TEXT;
	return NULL;
    }

938 939
    LOGACC(lt_text_stat, text);

940
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
941 942 943
    {
	TRACE1("Found in ptr.\n");
	text_set_mru( text );
944
	++text_mcb->hits;
945
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
946 947
    }

948
    if ( node->snap_shot != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
949 950
    {
	TRACE1("Found in snap_shot\n");
951
	node->ptr = copy_text_stat(node->snap_shot);
Per Cederqvist's avatar
Per Cederqvist committed
952
	text_set_mru (text);
953
	++text_mcb->hits;
954
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
955 956 957
    }

    TRACE1("Found in file A.\n");
958
    node->ptr = read_text_stat(file_a, node->pos, node->size);
Per Cederqvist's avatar
Per Cederqvist committed
959 960

    text_set_mru (text);
961
    ++text_mcb->misses;
962
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
963 964 965 966 967 968
}



/*
 * The text is set up with an empty misc-field. The misc field is
969
 * then initialized by create_text.
Per Cederqvist's avatar
Per Cederqvist committed
970 971 972
 */

extern Text_no
973
cached_create_text(const String message)
Per Cederqvist's avatar
Per Cederqvist committed
974 975
{
    Text_no tno;
976
    Cache_node *node;
977
    long file_pos;
Per Cederqvist's avatar
Per Cederqvist committed
978 979 980

    tno = next_text_num++;

981
    TRACE2("cached_create_text (len=%lu)\n", message.len);
Per Cederqvist's avatar
Per Cederqvist committed
982

David Byers's avatar
David Byers committed
983
    if ( tno >= param.max_text )
Per Cederqvist's avatar
Per Cederqvist committed
984
    {
985
        err_stat = tno;
Per Cederqvist's avatar
Per Cederqvist committed
986
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
David Byers's avatar
David Byers committed
987
	next_text_num = param.max_text;
Per Cederqvist's avatar
Per Cederqvist committed
988 989 990 991
	
	return 0;
    }

992 993
    if (fseek(text_file, 0, SEEK_END) != 0) 
    {
David Byers's avatar
David Byers committed
994
	kom_log("ERROR: cannot seek to end of text_file: %s\n", strerror(errno));
995 996 997 998 999 1000
	clearerr(text_file);
	return 0;
    }

    file_pos = ftell(text_file);

David Byers's avatar
David Byers committed
1001 1002
    if (fwrite(message.string, 1, message.len, text_file)
        != (size_t)message.len)