ram-output.c 21.6 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: ram-output.c,v 0.41 2002/11/06 18:41:05 ceder Exp $
Per Cederqvist's avatar
Per Cederqvist committed
3
 * Copyright (C) 1991, 1993-1999, 2001-2002  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 34 35
/*
 * ram-output.c  -  write objects to disk.
 *
 * This is a hack. It shouldn't be used except for debugging and as a
 * temporary substitute for what Willf|r is (or should:-) be doing.
 *
 * Written by ceder 1990-07-13. Rewritten 1990-08-31.
 * Some functions rewritten for speed by Inge Wallin.
 * (It worked - now saving is twice as fast.)
 */

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

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

Per Cederqvist's avatar
Per Cederqvist committed
41 42
#include <stdio.h>
#include <time.h>
Per Cederqvist's avatar
Per Cederqvist committed
43
#include <sys/types.h>
Per Cederqvist's avatar
Per Cederqvist committed
44

45
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
46
#include "kom-types.h"
Per Cederqvist's avatar
Per Cederqvist committed
47
#include "ram-output.h"
Per Cederqvist's avatar
Per Cederqvist committed
48
#include "lyskomd.h"
Per Cederqvist's avatar
Per Cederqvist committed
49
#include "log.h"
50
#include "local-to-global.h"
Per Cederqvist's avatar
Per Cederqvist committed
51

52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
/* Forward declarations. */
static void foutput_aux_item_list(FILE *, const Aux_item_list *);
static void foutput_conf_type (FILE *, Conf_type);
static void foutput_mark(FILE *, Mark);
static void foutput_mark_list(FILE *, const Mark_list);
static void foutput_member(FILE *, Member);
static void foutput_member_list(FILE *, Member_list);
static void foutput_membership_list(FILE *, Membership_list);
static void foutput_misc_info(FILE *, Misc_info);
static void foutput_personal_flags(FILE *, Personal_flags);
static void foutput_priv_bits(FILE *, Priv_bits);
static void foutput_string(FILE *, String);
static void foutput_text_list(FILE *, const Local_to_global *);
static void foutput_time(FILE *, time_t);
static void foutput_ulong(unsigned long, FILE *);


69 70
static int output_format = 2;

Per Cederqvist's avatar
Per Cederqvist committed
71
void
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
set_output_format(int fmt)
{
    output_format = fmt;
    switch (fmt)
    {
    case 0:
    case 1:
    case 2:
        break;
    default:
        restart_kom("unknown output format selected: %d\n", fmt);
        break;
    }   
}

87 88
static void
foutput_info_0(FILE *fp, Info *info)
89 90 91 92 93 94 95 96 97
{
    fprintf(fp, " %lu %lu %lu %lu %lu",
	    (unsigned long)info->conf_pres_conf,
	    (unsigned long)info->pers_pres_conf,
	    (unsigned long)info->motd_conf,
	    (unsigned long)info->kom_news_conf,
	    (unsigned long)info->motd_of_lyskom);
}

98 99
static void
foutput_info_2(FILE *fp, Info *info)
100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129
{
    fprintf(fp, " %lu %lu %lu %lu %lu %lu",
	    (unsigned long)info->conf_pres_conf,
	    (unsigned long)info->pers_pres_conf,
	    (unsigned long)info->motd_conf,
	    (unsigned long)info->kom_news_conf,
	    (unsigned long)info->motd_of_lyskom,
            (unsigned long)info->highest_aux_no);
    foutput_aux_item_list(fp, &info->aux_item_list);
}


void foutput_info(FILE *fp, Info *info)
{
    switch(output_format)
    {
    case 0:
    case 1:
        foutput_info_0(fp, info);
        break;
    case 2:
        foutput_info_2(fp, info);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
}


130
static void
131
foutput_person_0 (FILE *fp,
132
                  const Person *person)
133 134 135 136 137
{
    foutput_string (fp, person->username);
    foutput_priv_bits (fp, person->privileges);
    foutput_personal_flags (fp, person->flags);

138
    foutput_text_list (fp, &person->created_texts);
139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157
    foutput_mark_list (fp, person->marks);
    foutput_membership_list (fp, person->conferences);

    foutput_time(fp, person->last_login);

    fprintf (fp, " %lu %lu %lu %lu %lu %lu %lu %lu %lu",
	     (unsigned long) person -> user_area,
	     (unsigned long) person -> total_time_present, /* This is not a time,
						     * but a number of seconds.
						     */
	     (unsigned long) person -> sessions,
	     (unsigned long) person -> created_lines,
	     (unsigned long) person -> created_bytes,
	     (unsigned long) person -> read_texts,
	     (unsigned long) person -> no_of_text_fetches,
	     (unsigned long) person -> created_persons,
	     (unsigned long) person -> created_confs);
}

158
static void
159 160
foutput_person_2(FILE *fp,
		 const Person *person)
Per Cederqvist's avatar
Per Cederqvist committed
161 162 163 164 165
{
    foutput_string (fp, person->username);
    foutput_priv_bits (fp, person->privileges);
    foutput_personal_flags (fp, person->flags);

David Byers's avatar
David Byers committed
166
    putc(' ', fp);
167
    l2g_write (fp, &person->created_texts);
Per Cederqvist's avatar
Per Cederqvist committed
168 169 170 171 172 173
    foutput_mark_list (fp, person->marks);
    foutput_membership_list (fp, person->conferences);

    foutput_time(fp, person->last_login);

    fprintf (fp, " %lu %lu %lu %lu %lu %lu %lu %lu %lu",
Per Cederqvist's avatar
Per Cederqvist committed
174 175
	     (unsigned long) person -> user_area,
	     (unsigned long) person -> total_time_present, /* This is not a time,
Per Cederqvist's avatar
Per Cederqvist committed
176 177
						     * but a number of seconds.
						     */
Per Cederqvist's avatar
Per Cederqvist committed
178 179 180 181 182 183 184
	     (unsigned long) person -> sessions,
	     (unsigned long) person -> created_lines,
	     (unsigned long) person -> created_bytes,
	     (unsigned long) person -> read_texts,
	     (unsigned long) person -> no_of_text_fetches,
	     (unsigned long) person -> created_persons,
	     (unsigned long) person -> created_confs);
Per Cederqvist's avatar
Per Cederqvist committed
185 186
}

187
extern void
188
foutput_person (FILE *fp,
189
                const Person *person)
190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206
{
    switch(output_format)
    {
    case 0:
    case 1:
        foutput_person_0(fp, person);
        break;
    case 2:
        foutput_person_2(fp, person);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
}


207
static void
208 209
foutput_conference_2(FILE *fp,
		     const Conference *conf_c)
210 211 212
{
    foutput_string(fp, conf_c->name);
    foutput_member_list(fp, conf_c->members);
David Byers's avatar
David Byers committed
213
    putc(' ', fp);
214
    l2g_write(fp, &conf_c->texts);
215 216 217 218
    foutput_conf_type(fp, conf_c->type);

    foutput_time(fp, conf_c -> creation_time );
    foutput_time(fp, conf_c -> last_written );
Per Cederqvist's avatar
Per Cederqvist committed
219

220 221 222 223 224 225 226 227
    fprintf (fp, " %lu %lu %lu %lu %lu %lu %lu",
	     (unsigned long) conf_c -> creator,
	     (unsigned long) conf_c -> presentation,
	     (unsigned long) conf_c -> supervisor,
	     (unsigned long) conf_c -> permitted_submitters,
	     (unsigned long) conf_c -> super_conf,
	     (unsigned long) conf_c -> msg_of_day,
	     (unsigned long) conf_c -> nice);
228
    foutput_ulong((unsigned long) conf_c->keep_commented, fp);
229 230 231 232
    foutput_ulong((unsigned long) conf_c->expire, fp);
    foutput_ulong((unsigned long) conf_c->highest_aux, fp);
    foutput_aux_item_list(fp, &conf_c->aux_item_list);
}
Per Cederqvist's avatar
Per Cederqvist committed
233

234
static void
235
foutput_conference_1 (FILE *fp,
Per Cederqvist's avatar
Per Cederqvist committed
236 237 238 239
		    Conference *conf_c)
{
    foutput_string(fp, conf_c->name);
    foutput_member_list(fp, conf_c->members);
240
    foutput_text_list(fp, &conf_c->texts);
Per Cederqvist's avatar
Per Cederqvist committed
241 242 243 244 245 246
    foutput_conf_type(fp, conf_c->type);

    foutput_time(fp, conf_c -> creation_time );
    foutput_time(fp, conf_c -> last_written );

    fprintf (fp, " %lu %lu %lu %lu %lu %lu %lu",
Per Cederqvist's avatar
Per Cederqvist committed
247 248 249 250 251 252 253
	     (unsigned long) conf_c -> creator,
	     (unsigned long) conf_c -> presentation,
	     (unsigned long) conf_c -> supervisor,
	     (unsigned long) conf_c -> permitted_submitters,
	     (unsigned long) conf_c -> super_conf,
	     (unsigned long) conf_c -> msg_of_day,
	     (unsigned long) conf_c -> nice);
Per Cederqvist's avatar
Per Cederqvist committed
254 255
}

256
static void
257
foutput_conference_0 (FILE *fp,
258
                      Conference *conf_c)
259 260 261
{
    foutput_string(fp, conf_c->name);
    foutput_member_list(fp, conf_c->members);
262
    foutput_text_list(fp, &conf_c->texts);
263
    foutput_conf_type(fp, conf_c->type);
264 265 266 267 268 269 270 271 272 273 274 275 276 277

    foutput_time(fp, conf_c -> creation_time );
    foutput_time(fp, conf_c -> last_written );

    fprintf (fp, " %lu %lu %lu %lu %lu %lu %lu",
	     (unsigned long) conf_c -> creator,
	     (unsigned long) conf_c -> presentation,
	     (unsigned long) conf_c -> supervisor,
	     (unsigned long) conf_c -> permitted_submitters,
	     (unsigned long) conf_c -> super_conf,
	     (unsigned long) conf_c -> msg_of_day,
	     (unsigned long) conf_c -> nice);
}

278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298
void foutput_conference(FILE *fp,
                        Conference *conf_c)
{
    switch(output_format)
    {
    case 0:
        foutput_conference_0(fp, conf_c);
        break;
    case 1:
        foutput_conference_1(fp, conf_c);
        break;
    case 2:
        foutput_conference_2(fp, conf_c);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
}


Per Cederqvist's avatar
Per Cederqvist committed
299

300
static void
301 302
foutput_text_stat_0(FILE *fp,
                    Text_stat *t_stat)
Per Cederqvist's avatar
Per Cederqvist committed
303 304 305 306 307
{
    int i;

    foutput_time(fp, t_stat->creation_time);
    
Per Cederqvist's avatar
Per Cederqvist committed
308 309 310 311 312 313
    foutput_ulong((unsigned long) t_stat->author, fp);
    foutput_ulong((unsigned long) t_stat->file_pos, fp);
    foutput_ulong((unsigned long) t_stat->no_of_lines, fp);
    foutput_ulong((unsigned long) t_stat->no_of_chars, fp);
    foutput_ulong((unsigned long) t_stat->no_of_marks, fp);
    foutput_ulong((unsigned long) t_stat->no_of_misc, fp);
Per Cederqvist's avatar
Per Cederqvist committed
314 315 316 317 318 319 320 321 322 323

    if ( t_stat->misc_items != NULL && t_stat->no_of_misc > 0 )
    {
	fputs(" {", fp);
	for ( i = 0; i < t_stat->no_of_misc; i++ )
	    foutput_misc_info(fp, t_stat->misc_items[ i ]);
	fputs(" }", fp);
    }
    else
	fputs(" *", fp);
324 325
}

326
static void
327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375
foutput_text_stat_2(FILE *fp,
                    Text_stat *t_stat)
{
    int i;

    foutput_time(fp, t_stat->creation_time);
    
    foutput_ulong((unsigned long) t_stat->author, fp);
    foutput_ulong((unsigned long) t_stat->file_pos, fp);
    foutput_ulong((unsigned long) t_stat->no_of_lines, fp);
    foutput_ulong((unsigned long) t_stat->no_of_chars, fp);
    foutput_ulong((unsigned long) t_stat->no_of_marks, fp);
    foutput_ulong((unsigned long) t_stat->no_of_misc, fp);

    if ( t_stat->misc_items != NULL && t_stat->no_of_misc > 0 )
    {
	fputs(" {", fp);
	for ( i = 0; i < t_stat->no_of_misc; i++ )
	    foutput_misc_info(fp, t_stat->misc_items[ i ]);
	fputs(" }", fp);
    }
    else
	fputs(" *", fp);

    foutput_ulong((unsigned long) t_stat->highest_aux, fp);
    foutput_aux_item_list(fp, &t_stat->aux_item_list);
}

void
foutput_text_stat(FILE *fp,
                  Text_stat *t_stat)
{
    switch (output_format)
    {
    case 0:
    case 1:
        foutput_text_stat_0(fp, t_stat);
        break;
    case 2:
        foutput_text_stat_2(fp, t_stat);
        break;
    default:
        restart_kom("unknown database format: %d\n", output_format);
        break;
    }
}



376
static void
377 378 379 380 381 382 383 384
foutput_aux_flags(FILE *fp,
                  Aux_item_flags f)
{
    putc(' ', fp);
    putc(f.deleted + '0', fp);
    putc(f.inherit + '0', fp);
    putc(f.secret + '0', fp);
    putc(f.hide_creator + '0', fp);
385
    putc(f.dont_garb + '0', fp);
386 387 388 389 390
    putc(f.reserved3 + '0', fp);
    putc(f.reserved4 + '0', fp);
    putc(f.reserved5 + '0', fp);
}

David Byers's avatar
David Byers committed
391 392 393 394 395 396 397 398 399 400 401 402 403 404 405
static void
foutput_aux_item_link(FILE *fp,
                      Aux_item_link *link)
{
    foutput_ulong((unsigned long) link->target_type, fp);
    foutput_ulong((unsigned long) link->target_item, fp);
    switch (link->target_type)
    {
    case CONF_OBJECT_TYPE:
        foutput_ulong((unsigned long) link->target_object.conf, fp);
        break;
    case TEXT_OBJECT_TYPE:
        foutput_ulong((unsigned long) link->target_object.text, fp);
        break;
    default:
406
	;
David Byers's avatar
David Byers committed
407 408 409
    }
}

410
static void
411 412 413 414 415 416 417 418 419 420
foutput_aux_item(FILE *fp,
                 Aux_item *a_item)
{
    foutput_ulong((unsigned long) a_item->aux_no, fp);
    foutput_ulong((unsigned long) a_item->tag, fp);
    foutput_ulong((unsigned long) a_item->creator, fp);
    foutput_time(fp, a_item->sent_at);
    foutput_aux_flags(fp, a_item->flags);
    foutput_ulong((unsigned long) a_item->inherit_limit, fp);
    foutput_string(fp, a_item->data);
David Byers's avatar
David Byers committed
421
    foutput_aux_item_link(fp, &a_item->linked_item);
422 423
}

424
static void
425
foutput_aux_item_list(FILE *fp,
426
		      const Aux_item_list *aux)
427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442
{
    int i;

    foutput_ulong((unsigned long) aux->length, fp);
    if (aux->items && aux->length > 0)
    {
        fputs(" {", fp);
        for (i = 0; i < aux->length; i++)
            foutput_aux_item(fp, &aux->items[i]);
        fputs(" }", fp);
    }
    else
        fputs(" *", fp);
}
		      

443
static void
444 445 446 447 448 449 450 451 452 453 454 455 456 457
foutput_membership_type(FILE *fp,
                        Membership_type type)
{
    putc(' ', fp);
    putc(type.invitation + '0', fp);
    putc(type.passive    + '0', fp);
    putc(type.secret     + '0', fp);
    putc(type.reserved1  + '0', fp);
    putc(type.reserved2  + '0', fp);
    putc(type.reserved3  + '0', fp);
    putc(type.reserved4  + '0', fp);
    putc(type.reserved5  + '0', fp);
}

458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511
static void
foutput_read_ranges_0(FILE *fp,
		      Membership *mship)
{
    if (mship->read_ranges == NULL && mship->no_of_read_ranges != 0 )
    {
	kom_log("foutput_read_ranges_0(): no_of_read_ranges forced to 0"
		" in a membership in %lu.\n", (unsigned long)mship->conf_no);
	mship->no_of_read_ranges = 0;
    }

    if (mship->no_of_read_ranges == 0)
	fprintf(fp, " 0 0 *");
    else
    {
	struct read_range *begin;
	struct read_range *end;

	begin = &mship->read_ranges[0];
	end = begin + mship->no_of_read_ranges;

	if (begin->first_read == 1)
	{
	    fprintf(fp, " %lu", begin->last_read);
	    begin++;
	}
	else
	    fprintf(fp, " 0");

	if (begin == end)
	    fprintf(fp, " 0 *");
	else
	{
	    unsigned long no_of_read = 0;
	    const struct read_range *ptr;

	    for (ptr = begin; ptr < end; ++ptr)
		no_of_read += ptr->last_read - ptr->first_read + 1;

	    fprintf(fp, " %lu {", no_of_read);
	    
	    for (ptr = begin; ptr < end; ++ptr)
	    {
		Local_text_no lno;

		for (lno = ptr->first_read; lno <= ptr->last_read; lno++)
		    fprintf(fp, " %lu", (unsigned long)lno);
	    }
	    
	    fprintf(fp, " }");
	}
    }
}

512 513 514 515 516 517
static void
foutput_membership_0(FILE *fp,
		   Membership *mship)
{
    foutput_time(fp, mship->last_time_read );
    
518
    fprintf(fp, " %lu %lu",
519
	    (unsigned long)mship->conf_no,
520 521
	    (unsigned long)mship->priority);
    foutput_read_ranges_0(fp, mship);
522 523 524 525 526 527 528 529
}

static void
foutput_membership_2(FILE *fp,
                     Membership *mship)
{
    foutput_time(fp, mship->last_time_read );
    
530
    fprintf(fp, " %lu %lu",
531
	    (unsigned long)mship->conf_no,
532 533
	    (unsigned long)mship->priority);
    foutput_read_ranges_0(fp, mship);
534 535 536 537 538 539
    fprintf(fp, " %lu", (unsigned long)mship->added_by);
    foutput_time(fp, mship->added_at);
    foutput_membership_type(fp, mship->type);
}


540
extern void
541 542 543 544 545 546
foutput_membership(FILE *fp,
                   Membership *mship)
{
    switch (output_format)
    {
    case 0:
547
    case 1:
548 549 550 551 552 553 554 555 556 557 558
        foutput_membership_0(fp, mship);
        break;
    case 2:
        foutput_membership_2(fp, mship);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
}

Per Cederqvist's avatar
Per Cederqvist committed
559 560


561
static void
Per Cederqvist's avatar
Per Cederqvist committed
562 563 564
foutput_string(FILE *fp,
	       String str)
{
Per Cederqvist's avatar
Per Cederqvist committed
565
    foutput_ulong((unsigned long)str.len, fp);
Per Cederqvist's avatar
Per Cederqvist committed
566 567 568 569 570 571
    putc('H', fp);

    if (str.len)
	fwrite(str.string, str.len, 1, fp);
}

572
static void
Per Cederqvist's avatar
Per Cederqvist committed
573 574 575 576 577 578 579 580 581 582
foutput_priv_bits(FILE *fp,
		  Priv_bits bits)
{
    putc(' ', fp);
    putc(bits.wheel + '0', fp);
    putc(bits.admin + '0', fp);
    putc(bits.statistic + '0', fp);
    putc(bits.create_pers + '0', fp);
    putc(bits.create_conf + '0', fp);
    putc(bits.change_name + '0', fp);
583
    putc(bits.flg7 + '0', fp);
Per Cederqvist's avatar
Per Cederqvist committed
584 585 586 587 588 589 590 591 592 593 594
    putc(bits.flg8 + '0', fp);
    putc(bits.flg9 + '0', fp);
    putc(bits.flg10 + '0', fp);
    putc(bits.flg11 + '0', fp);
    putc(bits.flg12 + '0', fp);
    putc(bits.flg13 + '0', fp);
    putc(bits.flg14 + '0', fp);
    putc(bits.flg15 + '0', fp);
    putc(bits.flg16 + '0', fp);
}

595
static void
Per Cederqvist's avatar
Per Cederqvist committed
596 597 598 599 600 601 602 603 604 605 606 607 608 609 610
foutput_personal_flags(FILE *fp,
		       Personal_flags flags)
{
    putc(' ', fp);
    putc(flags.unread_is_secret + '0', fp);
    putc(flags.flg2 + '0', fp);
    putc(flags.flg3 + '0', fp);
    putc(flags.flg4 + '0', fp);
    putc(flags.flg5 + '0', fp);
    putc(flags.flg6 + '0', fp);
    putc(flags.flg7 + '0', fp);
    putc(flags.flg8 + '0', fp);
}	


611
static void
Per Cederqvist's avatar
Per Cederqvist committed
612
foutput_text_list(FILE *fp,
613
		  const Local_to_global *text_list)
Per Cederqvist's avatar
Per Cederqvist committed
614
{
615 616
    Local_text_no first;
    Local_text_no end;
Per Cederqvist's avatar
Per Cederqvist committed
617

618 619
    first = l2g_next_key(text_list, 0);
    end = l2g_first_appendable_key(text_list);
620 621 622

    if (first == 0)
	first = end;
623 624 625
    
    foutput_ulong((unsigned long)first, fp);
    foutput_ulong((unsigned long)(end - first), fp);
Per Cederqvist's avatar
Per Cederqvist committed
626

627
    if (first < end)
Per Cederqvist's avatar
Per Cederqvist committed
628 629
    {
	fputs(" {", fp);
630
	while (first < end)
631
	    foutput_ulong((unsigned long)l2g_lookup(text_list, first++), fp);
Per Cederqvist's avatar
Per Cederqvist committed
632 633 634 635 636 637 638
	fputs(" }", fp);
    }
    else
	fprintf(fp, " *");
}


639
static void
Per Cederqvist's avatar
Per Cederqvist committed
640
foutput_mark_list(FILE *fp,
641
		  const Mark_list mark_list)
Per Cederqvist's avatar
Per Cederqvist committed
642 643 644
{
    int i;

Per Cederqvist's avatar
Per Cederqvist committed
645
    fprintf(fp, " %lu", (unsigned long)mark_list.no_of_marks);
Per Cederqvist's avatar
Per Cederqvist committed
646 647 648 649 650 651 652 653 654 655 656 657 658 659

    if ( mark_list.marks != NULL && mark_list.no_of_marks > 0 )
    {
	fprintf(fp, " {");
	for ( i = 0; i < mark_list.no_of_marks; i++ )
	    foutput_mark(fp, mark_list.marks[ i ]);
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
    
}


660
static void
Per Cederqvist's avatar
Per Cederqvist committed
661 662 663
foutput_mark(FILE *fp,
	     Mark mark)
{
Per Cederqvist's avatar
Per Cederqvist committed
664
    fprintf(fp, " %lu %lu", (unsigned long)mark.text_no, (unsigned long)mark.mark_type);
Per Cederqvist's avatar
Per Cederqvist committed
665 666
}

667 668 669
static void
foutput_membership_list_0 (FILE		* fp,
                           Membership_list  mlist)
Per Cederqvist's avatar
Per Cederqvist committed
670 671 672
{
    int i;
    
Per Cederqvist's avatar
Per Cederqvist committed
673
    fprintf(fp, " %lu", (unsigned long)mlist.no_of_confs);
Per Cederqvist's avatar
Per Cederqvist committed
674 675 676 677 678

    if ( mlist.confs != NULL && mlist.no_of_confs > 0 )
    {
	fprintf(fp, " {");
	for ( i = 0; i < mlist.no_of_confs; i++)
679
	    foutput_membership_0(fp, mlist.confs + i);
Per Cederqvist's avatar
Per Cederqvist committed
680 681 682 683 684 685
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}

686 687 688
static void
foutput_membership_list_2 (FILE		* fp,
                           Membership_list  mlist)
Per Cederqvist's avatar
Per Cederqvist committed
689 690 691
{
    int i;
    
692 693 694
    fprintf(fp, " %lu", (unsigned long)mlist.no_of_confs);

    if ( mlist.confs != NULL && mlist.no_of_confs > 0 )
Per Cederqvist's avatar
Per Cederqvist committed
695 696
    {
	fprintf(fp, " {");
697 698
	for ( i = 0; i < mlist.no_of_confs; i++)
	    foutput_membership_2(fp, mlist.confs + i);
Per Cederqvist's avatar
Per Cederqvist committed
699 700 701 702 703 704
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}

705
static void
706 707 708 709 710 711
foutput_membership_list(FILE        * fp,
                        Membership_list mlist)
{
    switch (output_format)
    {
    case 0:
712
    case 1:
713 714 715 716 717 718 719 720 721 722 723
        foutput_membership_list_0(fp, mlist);
        break;
    case 2:
        foutput_membership_list_2(fp, mlist);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }    
}

724
static void
Per Cederqvist's avatar
Per Cederqvist committed
725
foutput_time(FILE *fp,
726
	     time_t clk)
Per Cederqvist's avatar
Per Cederqvist committed
727
{
728
    foutput_ulong((unsigned long) clk, fp);
Per Cederqvist's avatar
Per Cederqvist committed
729 730 731
}


732
static void
Per Cederqvist's avatar
Per Cederqvist committed
733 734 735 736 737
foutput_member_list(FILE *fp,
		    Member_list m_list)
{
    int i;

Per Cederqvist's avatar
Per Cederqvist committed
738
    fprintf(fp, " %lu", (unsigned long)m_list.no_of_members);
Per Cederqvist's avatar
Per Cederqvist committed
739 740 741 742 743 744 745 746 747 748 749 750
    if ( m_list.members != NULL && m_list.no_of_members > 0 )
    {
	fprintf(fp, " {");
	for ( i = 0; i < m_list.no_of_members; i++ )
	    foutput_member(fp, m_list.members[ i ]);
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}


751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768
static void
foutput_member_0(FILE *fp,
                 Member member)
{
    fprintf(fp, " %lu", (unsigned long)member.member);
}

static void
foutput_member_2(FILE *fp,
                 Member member)
{
    fprintf(fp, " %lu %lu",
            (unsigned long)member.member,
            (unsigned long)member.added_by);
    foutput_time(fp, member.added_at);
    foutput_membership_type(fp, member.type);
}

769
static void
Per Cederqvist's avatar
Per Cederqvist committed
770 771 772
foutput_member(FILE *fp,
	       Member member)
{
773 774 775 776 777 778 779 780 781 782 783 784 785
    switch (output_format)
    {
    case 0:
    case 1:
        foutput_member_0(fp, member);
        break;
    case 2:
        foutput_member_2(fp, member);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
Per Cederqvist's avatar
Per Cederqvist committed
786 787
}

788
static void
789 790
foutput_conf_type_1(FILE *fp,
                    Conf_type type)
Per Cederqvist's avatar
Per Cederqvist committed
791 792 793 794 795 796
{
    putc(' ', fp);
    putc(type.rd_prot + '0', fp);
    putc(type.original + '0', fp);
    putc(type.secret + '0', fp);
    putc(type.letter_box + '0', fp);
797
    putc(type.allow_anon + '0', fp);
David Byers's avatar
David Byers committed
798
    putc(type.forbid_secret + '0', fp);
799 800
    putc(type.reserved2 + '0', fp);
    putc(type.reserved3 + '0', fp);
Per Cederqvist's avatar
Per Cederqvist committed
801 802
}

803
static void
804
foutput_conf_type_0(FILE *fp,
805
                    Conf_type type)
806 807 808 809 810 811 812 813
{
    putc(' ', fp);
    putc(type.rd_prot + '0', fp);
    putc(type.original + '0', fp);
    putc(type.secret + '0', fp);
    putc(type.letter_box + '0', fp);
}

814
static void
815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832
foutput_conf_type (FILE *fp,
                   Conf_type type)
{
    switch (output_format)
    {
    case 0:
        foutput_conf_type_0(fp, type);
        break;
    case 1:
    case 2:
        foutput_conf_type_1(fp, type);
        break;
    default:
        restart_kom("unknown database format: %d", output_format);
        break;
    }
}

Per Cederqvist's avatar
Per Cederqvist committed
833

834
static void
Per Cederqvist's avatar
Per Cederqvist committed
835 836 837
foutput_misc_info(FILE *fp, 
		  Misc_info misc)
{
Per Cederqvist's avatar
Per Cederqvist committed
838
    foutput_ulong((unsigned long)misc.type, fp);
Per Cederqvist's avatar
Per Cederqvist committed
839 840 841 842 843
    
    switch(misc.type)
    {
    case recpt:
    case cc_recpt:
844
    case bcc_recpt:
845
	foutput_ulong((unsigned long)misc.datum.recipient, fp);
846
	break;
847

Per Cederqvist's avatar
Per Cederqvist committed
848
    case loc_no:
Per Cederqvist's avatar
Per Cederqvist committed
849
	foutput_ulong((unsigned long)misc.datum.local_no, fp);
Per Cederqvist's avatar
Per Cederqvist committed
850 851 852 853 854 855 856 857 858 859
	break;
	
    case rec_time:
	foutput_time(fp, misc.datum.received_at);
	break;
	
    case comm_to:
    case comm_in:
    case footn_to:
    case footn_in:
860
	foutput_ulong((unsigned long)misc.datum.text_link, fp);
Per Cederqvist's avatar
Per Cederqvist committed
861 862 863
	break;
	
    case sent_by:
Per Cederqvist's avatar
Per Cederqvist committed
864
	foutput_ulong((unsigned long)misc.datum.sender, fp);
Per Cederqvist's avatar
Per Cederqvist committed
865 866 867 868 869 870 871 872 873
	break;
	
    case sent_at:
	foutput_time(fp, misc.datum.sent_at);
	break;

#ifndef COMPILE_CHECKS
    default:
#endif
874 875
    case unknown_info:
	restart_kom("prot_a_output_misc_info: Illegal misc\n");
Per Cederqvist's avatar
Per Cederqvist committed
876 877 878 879 880 881 882 883 884
    }
}


/* 
 * Output the unsigned long L in the fastest way possible to the file
 * FP. Ok, it's ugly, but it's fast (or is it?).
 */

885
static void
Per Cederqvist's avatar
Per Cederqvist committed
886
foutput_ulong (unsigned long l,
Per Cederqvist's avatar
Per Cederqvist committed
887 888
	       FILE *fp)
{
889
    static char   buf[sizeof(unsigned long) * 3 + 1];
Per Cederqvist's avatar
Per Cederqvist committed
890 891 892 893 894
    char         *cp;

    putc(' ', fp);
    if (l < 10)
	putc("0123456789"[l], fp);
895 896 897 898 899 900
    else
    {
	cp = buf + sizeof(buf);
	while (l > 0)
	{
	    *--cp = (l % 10) + '0';
Per Cederqvist's avatar
Per Cederqvist committed
901 902
	    l /= 10;
	}
903
	fwrite(cp, buf + sizeof(buf) - cp, 1, fp);
Per Cederqvist's avatar
Per Cederqvist committed
904 905
    }
}