simple-cache.c 56 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: simple-cache.c,v 0.82 1999/07/01 18:20:39 ceder 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 *
43
rcsid = "$Id: simple-cache.c,v 0.82 1999/07/01 18:20:39 ceder 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>
Per Cederqvist's avatar
Per Cederqvist committed
49
#include <sys/types.h>
50 51 52
#ifdef HAVE_UNISTD_H
#   include <unistd.h>
#endif
53 54 55
#ifdef HAVE_STRING_H
#  include <string.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
56 57 58 59
#ifndef SEEK_END
#  include <fcntl.h>
#endif
#ifndef SEEK_END
Per Cederqvist's avatar
Per Cederqvist committed
60 61 62
#  define SEEK_SET 0
#  define SEEK_END 2
#endif
Per Cederqvist's avatar
Per Cederqvist committed
63 64 65
#include <time.h>
#include <setjmp.h>

66
#include "ldifftime.h"
Per Cederqvist's avatar
Per Cederqvist committed
67 68
#include "exp.h"
#include "misc-types.h"
69
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
70 71 72 73 74 75 76 77 78 79 80 81 82
#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"
83
#include "async.h"
Per Cederqvist's avatar
Per Cederqvist committed
84 85
#include "connections.h"
#include "send-async.h"
86
#include "param.h"
David Byers's avatar
David Byers committed
87
#include "kom-config.h"
David Byers's avatar
David Byers committed
88
#include "admin.h"
89
#include "unused.h"
90
#include "local-to-global.h"
91
#include "server-time.h"
Per Cederqvist's avatar
Per Cederqvist committed
92 93 94 95 96 97 98 99 100 101 102 103 104 105

/*
 * 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
106
static Small_conf      ** small_conf_arr;
107 108
static Cache_node_mcb	* pers_mcb;
static Cache_node_mcb 	* conf_mcb;
109
static Conf_no		  next_free_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
110

111
static Cache_node_mcb 	* text_mcb;
112
static Text_no		  next_text_num = 1;
Per Cederqvist's avatar
Per Cederqvist committed
113 114 115 116 117 118 119

/*
 * 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;
Per Cederqvist's avatar
Per Cederqvist committed
120
EXPORT Conf_no       *conf_table  = NULL; /* Used in conference.c. */
Per Cederqvist's avatar
Per Cederqvist committed
121 122 123 124 125


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
126 127 128
#ifdef FASTSAVE
static FILE     *file_b_r = NULL; /* Read from file under construction */
#endif
Per Cederqvist's avatar
Per Cederqvist committed
129 130 131 132 133

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

143 144 145 146 147 148 149 150 151 152 153 154 155 156 157
/* 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
158
#ifndef FASTSAVE
159 160 161 162 163
/* 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. */
164
static unsigned long sync_next;
David Byers's avatar
David Byers committed
165
#endif
Per Cederqvist's avatar
Per Cederqvist committed
166 167 168 169 170 171

static Conf_no highest_conf_no;
static Text_no highest_text_no;

BUGDECL;

172 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
/* 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)
{
212 213
    extern int putw(int, FILE *);

214 215 216 217 218 219 220 221 222 223 224
    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

Per Cederqvist's avatar
Per Cederqvist committed
225 226 227 228 229 230 231 232 233 234 235

/* 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,
236
	    long UNUSED(size))	/* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
237 238
{
    Person *p;
David Byers's avatar
David Byers committed
239
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
240 241

    p = alloc_person();
242
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'P' */
David Byers's avatar
David Byers committed
243
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
244 245 246 247 248 249 250 251 252 253 254 255 256 257
    if ( fparse_person(fp, p) != OK )
    {
	free_person(p);
	return NULL;
    }
    else
	return p;
}



static Conference *
read_conference(FILE *fp,
		long pos,
258
		long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
259 260
{
    Conference *c;
David Byers's avatar
David Byers committed
261
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
262 263

    c = alloc_conference();
264
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'C' */
David Byers's avatar
David Byers committed
265
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
266 267 268 269 270 271 272 273 274 275 276 277 278
    if ( fparse_conference(fp, c) != OK )
    {
	free_conference(c);
	return NULL;
    }
    else
	return c;
}
	

static Text_stat *
read_text_stat(FILE *fp,
	       long pos,
279
	       long UNUSED(size)) /* FIXME: should sanity-check the size */
Per Cederqvist's avatar
Per Cederqvist committed
280 281
{
    Text_stat *t;
David Byers's avatar
David Byers committed
282
    long dummy;
Per Cederqvist's avatar
Per Cederqvist committed
283 284

    t = alloc_text_stat();
285
    fseek(fp, pos+1, SEEK_SET);	/* Skip 'T' */
David Byers's avatar
David Byers committed
286
    dummy = fparse_long(fp);
Per Cederqvist's avatar
Per Cederqvist committed
287 288 289 290 291 292 293 294 295 296
    if ( fparse_text_stat(fp, t) != OK )
    {
	free_text_stat(t);
	return NULL;
    }
    else
	return t;
}

static void
297
pers_set_mru(Pers_no pers_no)
Per Cederqvist's avatar
Per Cederqvist committed
298
{
299
    set_mru(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
300 301 302
}

static void
303
text_set_mru(Text_no text_no)
Per Cederqvist's avatar
Per Cederqvist committed
304
{
305
    set_mru(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
306 307 308
}

static void
309
conf_set_mru(Conf_no conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
310
{
311 312
    set_mru(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
313

314 315 316
static Cache_node *
get_pers_node(Pers_no pers_no)
{
317
    if (pers_no >= next_free_num || pers_no < 1)
318 319
	return NULL;

320
    return get_cache_node(pers_mcb, pers_no);
Per Cederqvist's avatar
Per Cederqvist committed
321 322 323
}

static void
324
unlink_text_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
325
{
326
    unlink_lru (node, &text_mcb->lru, &text_mcb->mru);
Per Cederqvist's avatar
Per Cederqvist committed
327 328
}

329 330 331 332 333
static void
unlink_conf_lru (Cache_node *node)
{
    unlink_lru (node, &conf_mcb->lru, &conf_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
334 335

static void
336
unlink_pers_lru (Cache_node *node)
Per Cederqvist's avatar
Per Cederqvist committed
337
{
338 339
    unlink_lru (node, &pers_mcb->lru, &pers_mcb->mru);
}
Per Cederqvist's avatar
Per Cederqvist committed
340

341 342 343
static Cache_node *
get_conf_node(Conf_no conf_no)
{
344
    if (conf_no >= next_free_num || conf_no < 1)
345 346
	return NULL;

347 348
    return get_cache_node(conf_mcb, conf_no);
}
Per Cederqvist's avatar
Per Cederqvist committed
349

350 351 352
static Cache_node *
get_text_node(Text_no text_no)
{
353
    if (text_no >= next_text_num || text_no < 1)
354 355
	return NULL;

356
    return get_cache_node(text_mcb, text_no);
Per Cederqvist's avatar
Per Cederqvist committed
357 358 359 360 361 362 363 364 365 366 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);
    build_matching_info();
}


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);
388 389 390 391 392

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

393 394
    LOGACC(lt_get_conf_type, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
395 396 397
    return small_conf_arr [ conf_no ]->type;
}

398 399 400 401 402 403 404 405
/*
 * 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? */
406 407 408 409
    /* 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...  */
410
}
Per Cederqvist's avatar
Per Cederqvist committed
411 412 413 414 415 416 417 418

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

void
mark_person_as_changed(Pers_no	pers_no)
{
419 420 421 422
    Cache_node *node;

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

427
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
428 429 430
    pers_set_mru( pers_no );
}

431 432 433 434 435 436 437 438 439 440 441
/*
 * 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
442 443 444 445

void
mark_conference_as_changed(Conf_no	conf_no)
{
446
    Cache_node *node;
447
    Conference *conf_c;
448 449 450

    node = get_conf_node (conf_no);

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

455
    node->s.dirty = 1;
Per Cederqvist's avatar
Per Cederqvist committed
456
    conf_set_mru( conf_no );
457 458 459

    conf_c = (Conference *) node->ptr;

Per Cederqvist's avatar
Per Cederqvist committed
460
    small_conf_arr[ conf_no ]->highest_local_no
461
	= l2g_first_appendable_key(&conf_c->texts) - 1;
462 463 464

    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
465 466 467 468 469
}

void
mark_text_as_changed( Text_no text_no )
{
470 471 472 473
    Cache_node *node;

    node = get_text_node (text_no);

474
    TRACE2("Text %lu is changed.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
475
    if ( text_no < 1 || text_no >= next_text_num
476
	|| node == NULL || node->s.exists == 0)
Per Cederqvist's avatar
Per Cederqvist committed
477
    {
478
	restart_kom("mark_text_as_changed(%lu): nonexistent.\n", text_no);
Per Cederqvist's avatar
Per Cederqvist committed
479 480
    }

481 482
    node->s.dirty = 1;
    text_set_mru (text_no);
Per Cederqvist's avatar
Per Cederqvist committed
483 484 485 486 487 488 489 490 491 492 493 494
}    



/*
 * Person-related calls
 */


extern Success
cached_create_person( Pers_no person )
{
495 496
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
497 498 499 500 501 502 503 504
    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);
    }

505
    if ( get_pers_node(person) != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
506 507 508 509 510
    {
	restart_kom("cached_create_person(%d): Person existed.\n",
		    person);
    }

511 512 513 514 515
    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");
516

517 518 519
    node->ptr = alloc_person();
    node->s.dirty = 1;
    node->s.exists = 1;
Per Cederqvist's avatar
Per Cederqvist committed
520
    pers_set_mru( person );
521 522 523

    LOGACC(lt_create_pers, person);

Per Cederqvist's avatar
Per Cederqvist committed
524 525 526 527 528 529 530
    return OK;
}


extern Person *
cached_get_person_stat( Pers_no	person )
{
531 532
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
533 534 535 536
    TRACE2("cached_get_person_stat %d\n", person);

    if ( person == 0 )
    {
537
        err_stat = 0;
Per Cederqvist's avatar
Per Cederqvist committed
538 539 540
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
541

542 543
    if ( person >= next_free_num )
    {
544
        err_stat = person;
545 546 547 548
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

549 550
    node = get_pers_node (person);

551
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
552
    {
553
        err_stat = person;
Per Cederqvist's avatar
Per Cederqvist committed
554 555 556 557
	kom_errno = KOM_UNDEF_PERS;
	return NULL;
    }

558 559
    LOGACC(lt_pers_stat, person);

560
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
561 562
    {
	pers_set_mru( person );
563
	++pers_mcb->hits;
564
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
565 566
    }

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

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

577
    ++pers_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
578
    pers_set_mru (person);
579
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
580 581 582 583 584 585
}


/*
 * Conference-related calls
 */
586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601


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);
    }
}


602 603 604 605 606 607 608 609 610
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;
}

611 612 613 614 615
static Small_conf *
alloc_small_conf(void)
{
    Small_conf *s;
    s = smalloc(sizeof(Small_conf));
616
    init_small_conf(s);
617 618 619 620 621 622
    ++no_of_allocated_small_confs;

    return s;
}


623 624 625 626 627 628
/*
 * 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
629 630 631 632
cached_create_conf (String  name)
{
    Conference * conf_c;
    Conf_no	 conf_no;
633
    Cache_node  *node;
Per Cederqvist's avatar
Per Cederqvist committed
634 635 636 637 638

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

David Byers's avatar
David Byers committed
639
    if ( next_free_num >= param.max_conf )
Per Cederqvist's avatar
Per Cederqvist committed
640
    {
641
        err_stat = next_free_num;
Per Cederqvist's avatar
Per Cederqvist committed
642 643 644 645 646 647
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
	return 0;
    }
    
    conf_no = next_free_num++;

648 649 650 651 652 653 654 655 656
    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
657 658
    conf_set_mru(conf_no);    

659
    zero_init_cache_node (pers_mcb, conf_no);
Per Cederqvist's avatar
Per Cederqvist committed
660 661 662 663 664 665
    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);

666
    TRACE2("Created conference number %d\n", conf_no);
667 668 669

    LOGACC(lt_create_conf, conf_no);

Per Cederqvist's avatar
Per Cederqvist committed
670 671 672 673 674 675 676
    return conf_no;
}


extern Success
cached_delete_conf( Conf_no	conf )
{
677 678
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
679 680
    if ( conf == 0 )
    {
681
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
682 683 684
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
685

686 687
    if ( conf >= next_free_num )
    {
688
        err_stat = conf;
689 690 691 692
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

693 694
    node = get_conf_node (conf);

695
    if ( node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
696
    {
697
        err_stat = conf;
Per Cederqvist's avatar
Per Cederqvist committed
698 699 700 701
	kom_errno = KOM_UNDEF_CONF;
	return FAILURE;
    }

702
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
703
	kom_log("WNG: cached_delete_conf(%d): lock_cnt === %d\n",
704
	    conf, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
705

David Byers's avatar
David Byers committed
706 707 708
    free_small_conf(small_conf_arr[conf]);
    small_conf_arr[conf] = NULL;

709 710 711
    free_conference(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
712

713 714
    LOGACC(lt_delete_conf, conf);

715
    build_matching_info();
Per Cederqvist's avatar
Per Cederqvist committed
716 717 718 719 720 721
    return OK;
}

Success
cached_delete_person(Pers_no pers)
{
722 723
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
724 725
    if ( pers == 0 )
    {
726
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
727 728 729
	kom_errno = KOM_CONF_ZERO;
	return FAILURE;
    }
730

731 732
    if ( pers >= next_free_num )
    {
David Byers's avatar
David Byers committed
733
	kom_log("cached_delete_person(%lu): next_free_num == %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
734
	    (unsigned long)pers, (unsigned long)next_free_num);
735
        err_stat = pers;
736 737 738 739
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

740 741 742
    node = get_pers_node (pers);

    if ( pers >= next_free_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
743
    {
David Byers's avatar
David Byers committed
744
	kom_log("cached_delete_person(): attempt to delete void person.\n");
745
        err_stat = pers;
Per Cederqvist's avatar
Per Cederqvist committed
746 747 748 749
	kom_errno = KOM_UNDEF_PERS;
	return FAILURE;
    }

750
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
751
	kom_log("cached_delete_pers(%lu): lock_cnt === %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
752
	    (unsigned long)pers, (unsigned long)node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
753

754 755
    LOGACC(lt_delete_pers, pers);

756 757 758
    free_person (node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
759 760 761 762 763 764
    return OK;
}

Success
cached_delete_text(Text_no text)
{
765 766
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
767 768
    if ( text == 0 )
    {
769
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
770 771 772
	kom_errno = KOM_TEXT_ZERO;
	return FAILURE;
    }
773 774 775 776 777

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL
	|| node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
778
    {
David Byers's avatar
David Byers committed
779
	kom_log("cached_delete_text(): attempt to delete void text %lu.\n", text);
780
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
781 782 783 784
	kom_errno = KOM_NO_SUCH_TEXT;
	return FAILURE;
    }

785
    if ( node->lock_cnt > 0 )
David Byers's avatar
David Byers committed
786
	kom_log("cached_delete_text(%lu): lock_cnt === %d\n",
787
	    text, node->lock_cnt);
Per Cederqvist's avatar
Per Cederqvist committed
788 789


790 791 792
    free_text_stat(node->ptr);
    node->ptr = NULL;
    node->s.exists = 0;
Per Cederqvist's avatar
Per Cederqvist committed
793

794 795 796
#ifdef LOGACCESSES
    if (garb_running)
    {
797
	LOGACC(lt_garb_text, text);
798 799
    }
    else
800
	LOGACC(lt_delete_text, text);
801
#endif
Per Cederqvist's avatar
Per Cederqvist committed
802 803 804 805 806
    return OK;
}


extern Conference *
807
cached_get_conf_stat (Conf_no   conf_no)
Per Cederqvist's avatar
Per Cederqvist committed
808
{
809 810
    Cache_node *node;

Per Cederqvist's avatar
Per Cederqvist committed
811 812 813 814
    TRACE2("cached_get_conf_stat %d\n", conf_no);

    if ( conf_no == 0 )
    {
815
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
816 817 818
	kom_errno = KOM_CONF_ZERO;
	return NULL;
    }
819 820 821 822

    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
823
    {
824
        err_stat = conf_no;
Per Cederqvist's avatar
Per Cederqvist committed
825 826 827 828
	kom_errno = KOM_UNDEF_CONF;
	return NULL;
    }

829 830
    LOGACC(lt_conf_stat, conf_no);

831
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
832
    {
833
	conf_set_mru (conf_no);
834
	++conf_mcb->hits;
835
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
836 837
    }

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

846
    node->ptr = read_conference(file_a, node->pos, node->size);
847
    ++conf_mcb->misses;
Per Cederqvist's avatar
Per Cederqvist committed
848 849

    conf_set_mru (conf_no);
850
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
851 852 853 854 855 856 857 858
}

/*
 * Return TRUE if conf_no exists.
 */
Bool
cached_conf_exists(Conf_no conf_no)
{
859 860 861
    if (conf_no == 0 || conf_no >= next_free_num )
	return FALSE;

David Byers's avatar
David Byers committed
862
    return small_conf_arr[conf_no] != NULL ? TRUE : FALSE;
Per Cederqvist's avatar
Per Cederqvist committed
863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878
}

    
/*
 * Calls to handle texts
 */

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

879
    TRACE2("cached_get_text %lu\n", text);
Per Cederqvist's avatar
Per Cederqvist committed
880 881 882 883 884

    if ( (t_stat = cached_get_text_stat (text)) == NULL )
	return EMPTY_STRING;
    else
    {
885
	LOGACC(lt_text_mass, text);
Per Cederqvist's avatar
Per Cederqvist committed
886 887 888 889 890
	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
891
	    != (size_t)the_string.len )
Per Cederqvist's avatar
Per Cederqvist committed
892
	{
David Byers's avatar
David Byers committed
893
	    kom_log("WARNING: cached_get_text: premature end on text %lu\n",
Per Cederqvist's avatar
Per Cederqvist committed
894 895 896 897 898 899 900 901 902 903 904 905
		text);
	    return EMPTY_STRING;
	}
		    
	return the_string;
    }
}


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

908
    TRACE2("cached_get_text_stat(%lu);  next_text_num == ", text);
909
    TRACE2("%lu\n", (unsigned long)next_text_num);
Per Cederqvist's avatar
Per Cederqvist committed
910 911 912

    if ( text == 0 )
    {
913
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
914 915 916
	kom_errno = KOM_TEXT_ZERO;
	return NULL;
    }
917 918 919 920

    node = get_text_node (text);

    if ( text >= next_text_num || node == NULL || node->s.exists == 0 )
Per Cederqvist's avatar
Per Cederqvist committed
921 922
    {
	TRACE1("cached_get_text_stat: no such text.\n");
923
        err_stat = text;
Per Cederqvist's avatar
Per Cederqvist committed
924 925 926 927
	kom_errno = KOM_NO_SUCH_TEXT;
	return NULL;
    }

928 929
    LOGACC(lt_text_stat, text);

930
    if ( node->ptr != NULL )
Per Cederqvist's avatar
Per Cederqvist committed
931 932 933
    {
	TRACE1("Found in ptr.\n");
	text_set_mru( text );
934
	++text_mcb->hits;
935
	return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
936 937
    }

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

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

    text_set_mru (text);
951
    ++text_mcb->misses;
952
    return node->ptr;
Per Cederqvist's avatar
Per Cederqvist committed
953 954 955 956 957 958
}



/*
 * The text is set up with an empty misc-field. The misc field is
959
 * then initialized by create_text.
Per Cederqvist's avatar
Per Cederqvist committed
960 961 962
 */

extern Text_no
963
cached_create_text(const String message)
Per Cederqvist's avatar
Per Cederqvist committed
964 965
{
    Text_no tno;
966
    Cache_node *node;
967
    long file_pos;
Per Cederqvist's avatar
Per Cederqvist committed
968 969 970

    tno = next_text_num++;

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

David Byers's avatar
David Byers committed
973
    if ( tno >= param.max_text )
Per Cederqvist's avatar
Per Cederqvist committed
974
    {
975
        err_stat = tno;
Per Cederqvist's avatar
Per Cederqvist committed
976
	kom_errno = KOM_INDEX_OUT_OF_RANGE;
David Byers's avatar
David Byers committed
977
	next_text_num = param.max_text;
Per Cederqvist's avatar
Per Cederqvist committed
978 979 980 981
	
	return 0;
    }

982 983
    if (fseek(text_file, 0, SEEK_END) != 0) 
    {
David Byers's avatar
David Byers committed
984
	kom_log("ERROR: cannot seek to end of text_file: %s\n", strerror(errno));
985 986 987 988 989 990
	clearerr(text_file);
	return 0;
    }

    file_pos = ftell(text_file);

David Byers's avatar
David Byers committed
991 992
    if (fwrite(message.string, 1, message.len, text_file)
        != (size_t)message.len)
993 994
    {
	if (errno != ENOSPC)
David Byers's avatar
David Byers committed
995
	    kom_log("WARNING: cached_create_text: Couldn't write text %lu: %s\n",
996
		tno, strerror(errno));