ram-output.c 21.5 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
Per Cederqvist's avatar
Per Cederqvist committed
2 3
 * $Id: ram-output.c,v 0.40 2002/03/29 22:29:44 ceder Exp $
 * 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 458 459 460 461 462 463 464 465 466 467
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);
}

static void
foutput_membership_0(FILE *fp,
		   Membership *mship)
{
    int i;
    
    foutput_time(fp, mship->last_time_read );
    
    if ( mship->read_texts == NULL && mship->no_of_read != 0 )
    {
David Byers's avatar
David Byers committed
468 469
	kom_log("%s(): no_of_read forced to 0 in a membership in %lu.\n",
                "foutput_membership", (unsigned long)mship->conf_no);
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
	mship->no_of_read = 0;
    }
    
    fprintf(fp, " %lu %lu %lu %lu",
	    (unsigned long)mship->conf_no,
	    (unsigned long)mship->priority,
	    (unsigned long)mship->last_text_read,
	    (unsigned long)mship->no_of_read);
    
    if ( mship->read_texts != NULL && mship->no_of_read > 0)
    {
	fprintf(fp, " {");
	for ( i = 0; i < mship->no_of_read; i++)
	    fprintf(fp, " %lu", (unsigned long)mship->read_texts[ i ]);
	
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}

static void
foutput_membership_2(FILE *fp,
                     Membership *mship)
{
    int i;
    
    foutput_time(fp, mship->last_time_read );
    
    if ( mship->read_texts == NULL && mship->no_of_read != 0 )
    {
David Byers's avatar
David Byers committed
501 502
	kom_log("%s(): no_of_read forced to 0 in a membership in %lu.\n",
                "foutput_membership", (unsigned long)mship->conf_no);
503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527
	mship->no_of_read = 0;
    }
    
    fprintf(fp, " %lu %lu %lu %lu",
	    (unsigned long)mship->conf_no,
	    (unsigned long)mship->priority,
	    (unsigned long)mship->last_text_read,
	    (unsigned long)mship->no_of_read);
    
    if ( mship->read_texts != NULL && mship->no_of_read > 0)
    {
	fprintf(fp, " {");
	for ( i = 0; i < mship->no_of_read; i++)
	    fprintf(fp, " %lu", (unsigned long)mship->read_texts[ i ]);
	
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
    fprintf(fp, " %lu", (unsigned long)mship->added_by);
    foutput_time(fp, mship->added_at);
    foutput_membership_type(fp, mship->type);
}


528
extern void
529 530 531 532 533 534
foutput_membership(FILE *fp,
                   Membership *mship)
{
    switch (output_format)
    {
    case 0:
535
    case 1:
536 537 538 539 540 541 542 543 544 545 546
        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
547 548


549
static void
Per Cederqvist's avatar
Per Cederqvist committed
550 551 552
foutput_string(FILE *fp,
	       String str)
{
Per Cederqvist's avatar
Per Cederqvist committed
553
    foutput_ulong((unsigned long)str.len, fp);
Per Cederqvist's avatar
Per Cederqvist committed
554 555 556 557 558 559
    putc('H', fp);

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

560
static void
Per Cederqvist's avatar
Per Cederqvist committed
561 562 563 564 565 566 567 568 569 570
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);
571
    putc(bits.flg7 + '0', fp);
Per Cederqvist's avatar
Per Cederqvist committed
572 573 574 575 576 577 578 579 580 581 582
    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);
}

583
static void
Per Cederqvist's avatar
Per Cederqvist committed
584 585 586 587 588 589 590 591 592 593 594 595 596 597 598
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);
}	


599
static void
Per Cederqvist's avatar
Per Cederqvist committed
600
foutput_text_list(FILE *fp,
601
		  const Local_to_global *text_list)
Per Cederqvist's avatar
Per Cederqvist committed
602
{
603 604
    Local_text_no first;
    Local_text_no end;
Per Cederqvist's avatar
Per Cederqvist committed
605

606 607
    first = l2g_next_key(text_list, 0);
    end = l2g_first_appendable_key(text_list);
608 609 610

    if (first == 0)
	first = end;
611 612 613
    
    foutput_ulong((unsigned long)first, fp);
    foutput_ulong((unsigned long)(end - first), fp);
Per Cederqvist's avatar
Per Cederqvist committed
614

615
    if (first < end)
Per Cederqvist's avatar
Per Cederqvist committed
616 617
    {
	fputs(" {", fp);
618
	while (first < end)
619
	    foutput_ulong((unsigned long)l2g_lookup(text_list, first++), fp);
Per Cederqvist's avatar
Per Cederqvist committed
620 621 622 623 624 625 626
	fputs(" }", fp);
    }
    else
	fprintf(fp, " *");
}


627
static void
Per Cederqvist's avatar
Per Cederqvist committed
628
foutput_mark_list(FILE *fp,
629
		  const Mark_list mark_list)
Per Cederqvist's avatar
Per Cederqvist committed
630 631 632
{
    int i;

Per Cederqvist's avatar
Per Cederqvist committed
633
    fprintf(fp, " %lu", (unsigned long)mark_list.no_of_marks);
Per Cederqvist's avatar
Per Cederqvist committed
634 635 636 637 638 639 640 641 642 643 644 645 646 647

    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, " *");
    
}


648
static void
Per Cederqvist's avatar
Per Cederqvist committed
649 650 651
foutput_mark(FILE *fp,
	     Mark mark)
{
Per Cederqvist's avatar
Per Cederqvist committed
652
    fprintf(fp, " %lu %lu", (unsigned long)mark.text_no, (unsigned long)mark.mark_type);
Per Cederqvist's avatar
Per Cederqvist committed
653 654
}

655 656 657
static void
foutput_membership_list_0 (FILE		* fp,
                           Membership_list  mlist)
Per Cederqvist's avatar
Per Cederqvist committed
658 659 660
{
    int i;
    
Per Cederqvist's avatar
Per Cederqvist committed
661
    fprintf(fp, " %lu", (unsigned long)mlist.no_of_confs);
Per Cederqvist's avatar
Per Cederqvist committed
662 663 664 665 666

    if ( mlist.confs != NULL && mlist.no_of_confs > 0 )
    {
	fprintf(fp, " {");
	for ( i = 0; i < mlist.no_of_confs; i++)
667
	    foutput_membership_0(fp, mlist.confs + i);
Per Cederqvist's avatar
Per Cederqvist committed
668 669 670 671 672 673
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}

674 675 676
static void
foutput_membership_list_2 (FILE		* fp,
                           Membership_list  mlist)
Per Cederqvist's avatar
Per Cederqvist committed
677 678 679
{
    int i;
    
680 681 682
    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
683 684
    {
	fprintf(fp, " {");
685 686
	for ( i = 0; i < mlist.no_of_confs; i++)
	    foutput_membership_2(fp, mlist.confs + i);
Per Cederqvist's avatar
Per Cederqvist committed
687 688 689 690 691 692
	fprintf(fp, " }");
    }
    else
	fprintf(fp, " *");
}

693
static void
694 695 696 697 698 699
foutput_membership_list(FILE        * fp,
                        Membership_list mlist)
{
    switch (output_format)
    {
    case 0:
700
    case 1:
701 702 703 704 705 706 707 708 709 710 711
        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;
    }    
}

712
static void
Per Cederqvist's avatar
Per Cederqvist committed
713
foutput_time(FILE *fp,
714
	     time_t clk)
Per Cederqvist's avatar
Per Cederqvist committed
715
{
716
    foutput_ulong((unsigned long) clk, fp);
Per Cederqvist's avatar
Per Cederqvist committed
717 718 719
}


720
static void
Per Cederqvist's avatar
Per Cederqvist committed
721 722 723 724 725
foutput_member_list(FILE *fp,
		    Member_list m_list)
{
    int i;

Per Cederqvist's avatar
Per Cederqvist committed
726
    fprintf(fp, " %lu", (unsigned long)m_list.no_of_members);
Per Cederqvist's avatar
Per Cederqvist committed
727 728 729 730 731 732 733 734 735 736 737 738
    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, " *");
}


739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756
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);
}

757
static void
Per Cederqvist's avatar
Per Cederqvist committed
758 759 760
foutput_member(FILE *fp,
	       Member member)
{
761 762 763 764 765 766 767 768 769 770 771 772 773
    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
774 775
}

776
static void
777 778
foutput_conf_type_1(FILE *fp,
                    Conf_type type)
Per Cederqvist's avatar
Per Cederqvist committed
779 780 781 782 783 784
{
    putc(' ', fp);
    putc(type.rd_prot + '0', fp);
    putc(type.original + '0', fp);
    putc(type.secret + '0', fp);
    putc(type.letter_box + '0', fp);
785
    putc(type.allow_anon + '0', fp);
David Byers's avatar
David Byers committed
786
    putc(type.forbid_secret + '0', fp);
787 788
    putc(type.reserved2 + '0', fp);
    putc(type.reserved3 + '0', fp);
Per Cederqvist's avatar
Per Cederqvist committed
789 790
}

791
static void
792
foutput_conf_type_0(FILE *fp,
793
                    Conf_type type)
794 795 796 797 798 799 800 801
{
    putc(' ', fp);
    putc(type.rd_prot + '0', fp);
    putc(type.original + '0', fp);
    putc(type.secret + '0', fp);
    putc(type.letter_box + '0', fp);
}

802
static void
803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820
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
821

822
static void
Per Cederqvist's avatar
Per Cederqvist committed
823 824 825
foutput_misc_info(FILE *fp, 
		  Misc_info misc)
{
Per Cederqvist's avatar
Per Cederqvist committed
826
    foutput_ulong((unsigned long)misc.type, fp);
Per Cederqvist's avatar
Per Cederqvist committed
827 828 829 830 831
    
    switch(misc.type)
    {
    case recpt:
    case cc_recpt:
832
    case bcc_recpt:
833
	foutput_ulong((unsigned long)misc.datum.recipient, fp);
834
	break;
835

Per Cederqvist's avatar
Per Cederqvist committed
836
    case loc_no:
Per Cederqvist's avatar
Per Cederqvist committed
837
	foutput_ulong((unsigned long)misc.datum.local_no, fp);
Per Cederqvist's avatar
Per Cederqvist committed
838 839 840 841 842 843 844 845 846 847
	break;
	
    case rec_time:
	foutput_time(fp, misc.datum.received_at);
	break;
	
    case comm_to:
    case comm_in:
    case footn_to:
    case footn_in:
848
	foutput_ulong((unsigned long)misc.datum.text_link, fp);
Per Cederqvist's avatar
Per Cederqvist committed
849 850 851
	break;
	
    case sent_by:
Per Cederqvist's avatar
Per Cederqvist committed
852
	foutput_ulong((unsigned long)misc.datum.sender, fp);
Per Cederqvist's avatar
Per Cederqvist committed
853 854 855 856 857 858 859 860 861
	break;
	
    case sent_at:
	foutput_time(fp, misc.datum.sent_at);
	break;

#ifndef COMPILE_CHECKS
    default:
#endif
862 863
    case unknown_info:
	restart_kom("prot_a_output_misc_info: Illegal misc\n");
Per Cederqvist's avatar
Per Cederqvist committed
864 865 866 867 868 869 870 871 872
    }
}


/* 
 * 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?).
 */

873
static void
Per Cederqvist's avatar
Per Cederqvist committed
874
foutput_ulong (unsigned long l,
Per Cederqvist's avatar
Per Cederqvist committed
875 876
	       FILE *fp)
{
877
    static char   buf[sizeof(unsigned long) * 3 + 1];
Per Cederqvist's avatar
Per Cederqvist committed
878 879 880 881 882
    char         *cp;

    putc(' ', fp);
    if (l < 10)
	putc("0123456789"[l], fp);
883 884 885 886 887 888
    else
    {
	cp = buf + sizeof(buf);
	while (l > 0)
	{
	    *--cp = (l % 10) + '0';
Per Cederqvist's avatar
Per Cederqvist committed
889 890
	    l /= 10;
	}
891
	fwrite(cp, buf + sizeof(buf) - cp, 1, fp);
Per Cederqvist's avatar
Per Cederqvist committed
892 893
    }
}