ramkomd.c 14.2 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2
 * $Id: ramkomd.c,v 0.64 1997/09/13 15:32:32 byers Exp $
Per Cederqvist's avatar
Per Cederqvist committed
3
 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996  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. 
 */
25 26 27 28 29 30 31
/*
 * The next comment block is a historic comment, written in Swedish
 * using ISO 646 since nobody in Lysator knew about ISO 8859-1 by
 * then.  It translates, rougly, to "This is the main program of the
 * server.  It will hopefully be bigger than it is at the moment.
 * Created by Willfr 31-mar-1990."
 */
Per Cederqvist's avatar
Per Cederqvist committed
32 33 34 35 36 37 38 39 40
/*
 * Detta {r serverns huvudprogram. Det kommer f|rhoppningsvis bli st|rre
 * {n det {r just nu...
 *
 * Created by Willf|r 31/3-90
 *
 * It has grown! /ceder
 */

41
static char *rcsid = "$Id: ramkomd.c,v 0.64 1997/09/13 15:32:32 byers Exp $";
42 43
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
44

45 46 47
#ifdef HAVE_LOCALE_H
#  include <locale.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
48
#include <stdio.h>
Per Cederqvist's avatar
Per Cederqvist committed
49
#include <signal.h>
Per Cederqvist's avatar
Per Cederqvist committed
50 51 52
#ifdef HAVE_STDARG_H
#  include <stdarg.h>
#endif
53 54 55 56 57 58
#ifdef HAVE_STDLIB_H
#  include <stdlib.h>
#endif
#ifdef HAVE_STRING_H
#  include <string.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
59
#include <sys/wait.h>
Per Cederqvist's avatar
Per Cederqvist committed
60
#include <time.h>
61
#ifdef HAVE_SYS_RESOURCE_H
Per Cederqvist's avatar
Per Cederqvist committed
62
#  include <sys/time.h>
63 64
#  include <sys/resource.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
65
#include <unistd.h>
Per Cederqvist's avatar
Per Cederqvist committed
66 67 68 69
#include <setjmp.h>
#if defined(HAVE_SYS_PARAM_H) && !defined(HAVE_GETCWD)
# include <sys/param.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
70
#include <errno.h>
Per Cederqvist's avatar
Per Cederqvist committed
71
#include <sys/types.h>
72
#include <sys/socket.h>
Per Cederqvist's avatar
Per Cederqvist committed
73
#include <fcntl.h>
Per Cederqvist's avatar
Per Cederqvist committed
74

Per Cederqvist's avatar
Per Cederqvist committed
75
#include "exp.h"
76
#include "s-string.h"
Per Cederqvist's avatar
Per Cederqvist committed
77
#include "misc-types.h"
78
#include "kom-types.h"
Per Cederqvist's avatar
Per Cederqvist committed
79
#include "com.h"
80
#include "async.h"
Per Cederqvist's avatar
Per Cederqvist committed
81 82 83
#include "connections.h"
#include "internal-connections.h"
#include "kom-errno.h"
Per Cederqvist's avatar
Per Cederqvist committed
84
#include "isc-malloc.h"
85
#include "isc-interface.h"
Per Cederqvist's avatar
Per Cederqvist committed
86
#include "config.h"
Per Cederqvist's avatar
Per Cederqvist committed
87
#include "cache.h"
Per Cederqvist's avatar
Per Cederqvist committed
88 89
#include "string-malloc.h"
#include "lyskomd.h"
Per Cederqvist's avatar
Per Cederqvist committed
90
#include "log.h"
Per Cederqvist's avatar
Per Cederqvist committed
91 92 93
#include "internal-services.h"
#include "server/smalloc.h"
#include "kom-memory.h"
94 95
#include "conf-file.h"
#include "param.h"
96 97
#include "server-config.h"
#include "manipulate.h"
98
#include "version-info.h"
99
#include "aux-items.h"
100

101 102 103 104
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_OFILE) && !defined(RLIMIT_NOFILE)
#  define RLIMIT_NOFILE RLIMIT_OFILE
#endif

105 106 107 108 109 110
struct kom_par param;
 
Kom_err		  kom_errno = KOM_NO_ERROR;
unsigned long	  err_stat = 0;


Per Cederqvist's avatar
Per Cederqvist committed
111
#ifndef NDEBUG
112
int	buglevel = 0;
113
#endif
Per Cederqvist's avatar
Per Cederqvist committed
114

115 116
static IscSession *listen_client = NULL;      /* ISC listen identifier */
static IscSession *listen_mux    = NULL;      /*          -"-          */
Per Cederqvist's avatar
Per Cederqvist committed
117

118
static void dump_exit_statistics(void);
119

Per Cederqvist's avatar
Per Cederqvist committed
120
static void
121
server_init (char * client_port, char * mux_port)
Per Cederqvist's avatar
Per Cederqvist committed
122
{
Per Cederqvist's avatar
Per Cederqvist committed
123
    IscConfig config;
124
    IscAddress *isc_adr = NULL;
125 126 127 128
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif

Per Cederqvist's avatar
Per Cederqvist committed
129 130 131
    /*
    ** Setup some parameters here
    */
Per Cederqvist's avatar
Per Cederqvist committed
132 133 134 135 136
    config.version = 1005;
    config.master.version = 1001;
    config.master.memfn.alloc = &isc_malloc_wrapper;
    config.master.memfn.realloc = &isc_realloc_wrapper;
    config.master.memfn.free = &isc_free_wrapper;
137
    config.master.abortfn = NULL; /* Use default abort function. */
Per Cederqvist's avatar
Per Cederqvist committed
138
    config.session.version = 1001;
139
    config.session.max.msgsize = -1; /* Use default sizes. */
Per Cederqvist's avatar
Per Cederqvist committed
140 141 142 143
    config.session.max.queuedsize = -1;
    config.session.max.dequeuelen = -1;
    config.session.max.openretries = -1;
    config.session.max.backlog = -1;
Per Cederqvist's avatar
Per Cederqvist committed
144

145
    kom_server_mcb  = isc_initialize(&config);
Per Cederqvist's avatar
Per Cederqvist committed
146
    if ( kom_server_mcb == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
147 148 149 150 151
	restart_kom("server_init: can't isc_initialize()\n");

    listen_client = isc_listentcp(kom_server_mcb, NULL, client_port);
    if (listen_client == NULL)
        restart_kom("server_init: can't isc_listentcp(CLIENT)\n");
Per Cederqvist's avatar
Per Cederqvist committed
152

153 154 155 156
    isc_adr = isc_getladdress (listen_client);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_client)\n");

157
    param.num_ip_client_port = isc_getportnum (isc_adr);
158 159 160
    isc_freeaddress (isc_adr);
    
    listen_mux = isc_listentcp (kom_server_mcb, NULL, mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
161 162
    if (listen_mux == NULL)
        restart_kom("server_init: can't isc_listentcp(MUX)\n");
163 164 165 166

    isc_adr = isc_getladdress (listen_mux);
    if (isc_adr == NULL)
	restart_kom("server_init(): can't isc_getladdress (listen_mux)\n");
Per Cederqvist's avatar
Per Cederqvist committed
167
    
168
    param.num_ip_mux_port = isc_getportnum (isc_adr);
169 170 171
    isc_freeaddress (isc_adr);

    log("Listening for clients on %d and muxes on %d.\n",
172
	param.num_ip_client_port, param.num_ip_mux_port);
Per Cederqvist's avatar
Per Cederqvist committed
173 174 175 176 177 178

    /*
     * Ignore SIGPIPE, which the server gets if it tries to write to a
     * socket and the client has died. The server will anyhow handle
     * this situation correct.
     */
179 180 181 182
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;
    act.sa_handler = SIG_IGN;
183
    sigaction(SIGPIPE, &act, NULL);
184
#else
Per Cederqvist's avatar
Per Cederqvist committed
185
    signal(SIGPIPE, SIG_IGN);
186
#endif
Per Cederqvist's avatar
Per Cederqvist committed
187 188 189
}

static void
190
init_data_base(const char *dir_base)
Per Cederqvist's avatar
Per Cederqvist committed
191
{
192 193
    log("Database = %s\n",  param.datafile_name);
    log("Backup = %s\n", param.backupfile_name);
Per Cederqvist's avatar
Per Cederqvist committed
194 195
    
    if ( init_cache() == FAILURE )
196
	restart_kom ("Cannot find database.\n");
Per Cederqvist's avatar
Per Cederqvist committed
197 198
}

Per Cederqvist's avatar
Per Cederqvist committed
199
static void
Per Cederqvist's avatar
Per Cederqvist committed
200
sighandler_hup (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
201
{
202
#ifndef HAVE_STRUCT_SIGACTION
203
    signal(SIGHUP, sighandler_hup);
204
#endif
Per Cederqvist's avatar
Per Cederqvist committed
205 206 207 208
    log ("Signal HUP received. Shutting down server.\n");
    go_and_die = TRUE;
}

Per Cederqvist's avatar
Per Cederqvist committed
209
static void
Per Cederqvist's avatar
Per Cederqvist committed
210
sighandler_quit (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
211 212 213 214 215 216 217
{
    log ("Signal QUIT received - syncing...\n");
    cache_sync_all();
    log ("Dumping core now.\n");
    abort();
}

Per Cederqvist's avatar
Per Cederqvist committed
218
static void
Per Cederqvist's avatar
Per Cederqvist committed
219
sighandler_usr1 (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
220
{
221
#ifndef HAVE_STRUCT_SIGACTION
222
    signal(SIGUSR1, sighandler_usr1);
223
#endif
Per Cederqvist's avatar
Per Cederqvist committed
224 225 226
    do_sync_db = TRUE;
}

Per Cederqvist's avatar
Per Cederqvist committed
227
static void
Per Cederqvist's avatar
Per Cederqvist committed
228
sighandler_usr2 (int sig)
Per Cederqvist's avatar
Per Cederqvist committed
229 230 231
{
    int		  child;

232
#ifndef HAVE_STRUCT_SIGACTION
233
    signal(SIGUSR2, sighandler_usr2);
234
#endif
235

Per Cederqvist's avatar
Per Cederqvist committed
236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252
    log ("Signal USR2 received - will dump core now.  (Check that child dies.)\n");
    if ((child = fork()) == 0)
    {
	abort();
	log ("Abort() failed!!!");
	exit(1);
    }
    else if (child < 0)
    {
	log ("Couldn't fork.\n");
    }
    else
    {
	wait (NULL);
    }
}

Per Cederqvist's avatar
Per Cederqvist committed
253
static void
Per Cederqvist's avatar
Per Cederqvist committed
254 255 256 257
save_pid(void)
{
    FILE *fp;

258
    if ((fp = fopen(param.pid_name, "w")) == NULL)
Per Cederqvist's avatar
Per Cederqvist committed
259 260
	return;

261
    fprintf(fp, "%ld\n", (long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
262 263 264
    fclose(fp);
}

Per Cederqvist's avatar
Per Cederqvist committed
265
static void
266
go_daemon()
Per Cederqvist's avatar
Per Cederqvist committed
267 268 269
{
    pid_t child;
    int fd;
270 271 272 273
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
    
274 275 276 277 278
    if (buglevel != 0)
    {
	return;
    }

Per Cederqvist's avatar
Per Cederqvist committed
279 280 281 282 283
    if (getppid() != 1)
    {
	/* We were not invoked from /etc/inittab, so
	   disassociate from controlling terminal. */

284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301
#ifdef HAVE_STRUCT_SIGACTION
	sigemptyset(&act.sa_mask);
	act.sa_flags = 0;
	act.sa_handler = SIG_IGN;

#  ifdef SIGTTOU
	sigaction(SIGTTOU, &act, NULL);
#  endif
#  ifdef SIGTTIN
	sigaction(SIGTTIN, &act, NULL);
#  endif
#  ifdef SIGTSTP
	sigaction(SIGTSTP, &act, NULL);
#  endif

#else  /* !HAVE_STRUCT_SIGACTION */

#  ifdef SIGTTOU
Per Cederqvist's avatar
Per Cederqvist committed
302
	signal(SIGTTOU, SIG_IGN);
303 304
#  endif
#  ifdef SIGTTIN
Per Cederqvist's avatar
Per Cederqvist committed
305
	signal(SIGTTIN, SIG_IGN);
306 307
#  endif
#  ifdef SIGTSTP
Per Cederqvist's avatar
Per Cederqvist committed
308
	signal(SIGTSTP, SIG_IGN);
309 310
#  endif

Per Cederqvist's avatar
Per Cederqvist committed
311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326
#endif

	child = fork();
	if (child < 0)
	    restart_kom("fork failed: %d\n", errno);
	else if (child > 0)
	    exit (0);		/* parent */
	
	setsid();
    }

    /* Close all file descriptors */
    for (fd = 0; fd < MAX_NO_OF_CONNECTIONS + PROTECTED_FDS; fd++)
	close(fd);
    if (open("/dev/null", O_RDONLY) != 0
	||open("/dev/null", O_WRONLY) != 1
327
	||open(param.logfile_name, O_WRONLY|O_CREAT|O_APPEND, 0644) != 2)
Per Cederqvist's avatar
Per Cederqvist committed
328 329 330
    {
	/* Kinda stupid to try to log an error message now, but
	   who knows? */
331
	restart_kom("open of log file failed: %d\n", errno);
Per Cederqvist's avatar
Per Cederqvist committed
332
    }
333 334
    log("*** Version %s (process %lu) coming up.\n",
	kom_version_info.server_version, (unsigned long)getpid());
Per Cederqvist's avatar
Per Cederqvist committed
335 336
}

337
void
338
initialize(const char *config_file, char *aux_def_file)
339
{
340 341 342 343
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
    struct rlimit rlim;
#endif

344
    read_configuration(config_file);
345
    initialize_aux_items(aux_def_file);
346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361

#ifdef HAVE_LOCALE_H
    if (param.use_locale != NULL)
	if (setlocale(LC_CTYPE, param.use_locale) == NULL)
	{
	    fprintf(stderr, "setlocale: ");
	    perror(param.use_locale);
	    exit(1);
	}
#else
    if (param.use_locale != NULL)
    {
	fprintf(stderr, "locale not supported in your environment.\n");
	exit(1);
    }
#endif
362 363

#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
Per Cederqvist's avatar
Per Cederqvist committed
364
    if (param.no_files != -1)
365 366 367 368 369 370 371 372
    {
	if (getrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("getrlimit(RLIMIT_NOFILE) failed");
	    exit(1);
	}
	if (param.no_files > rlim.rlim_max)
	{
373 374 375 376
	    fprintf(stderr, "attempt to raise open files from %ld to %ld, "
		    "but only %ld is allowed\n",
		    (long)rlim.rlim_cur, (long)param.no_files,
		    (long)rlim.rlim_max);
377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408
	    rlim.rlim_cur = rlim.rlim_max;
	}
	else
	    rlim.rlim_cur = param.no_files;
	
	if (setrlimit(RLIMIT_NOFILE, &rlim) < 0)
	{
	    perror("setrlimit failed");
	    exit(1);
	}
    }
#else
    if (param.no_files != -1)
    {
	fprintf(stderr,
		"can't alter number of open files in your environment.\n");
	exit(1);
    }
#endif

    /* Find out how many connections we can handle. */
#if defined (HAVE_SYSCONF)
    MAX_NO_OF_CONNECTIONS = sysconf(_SC_OPEN_MAX) - PROTECTED_FDS;
#else
# ifdef HAVE_GETDTABLESIZE
    MAX_NO_OF_CONNECTIONS = getdtablesize() - PROTECTED_FDS;
# else
    /* If we don't have getdtablesize or sysconf, MAX_NO_OF_CONNECTIONS is
       set at compile time. */
# endif
#endif

409
    go_daemon();
410 411 412 413
    server_init(param.ip_client_port, param.ip_mux_port);
    init_data_base(param.dbase_dir);
}

Per Cederqvist's avatar
Per Cederqvist committed
414 415 416
/* Stop complaint from gcc 2.0 about "no previous prototype for `main'". */
int main(int argc, char **argv);

417
	
Per Cederqvist's avatar
Per Cederqvist committed
418 419 420 421 422
int
main (int    argc,
      char **argv)
{
    int i;
423 424
    char *default_config_file;
    char *config_file;
425 426
    char *default_aux_def_file;
    char *aux_def_file;
427 428 429
#ifdef HAVE_STRUCT_SIGACTION
    struct sigaction act;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
430

431 432
    log("*** Version %s (process %lu) started.\n",
	kom_version_info.server_version, (unsigned long)getpid());
433

Per Cederqvist's avatar
Per Cederqvist committed
434
#ifdef ENCRYPT_PASSWORDS
435
    /* Seed the random number generator. */
Per Cederqvist's avatar
Per Cederqvist committed
436 437
    srand(time(NULL) + getpid());
#endif
Per Cederqvist's avatar
Per Cederqvist committed
438

439 440
    /* Initialize the string handling package. */
    s_set_storage_management(string_malloc, string_realloc, string_free);
441

442 443 444 445 446 447 448 449 450 451 452 453 454
    /* Set default file names */

    default_config_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(CONFIG_FILE) + 2);
    default_aux_def_file = smalloc(strlen(DEFAULT_DBASE_DIR) +
				  strlen(AUX_DEF_FILE) + 2);
    sprintf(default_config_file, "%s/%s", DEFAULT_DBASE_DIR, CONFIG_FILE);
    sprintf(default_aux_def_file, "%s/%s", DEFAULT_DBASE_DIR, AUX_DEF_FILE);

    config_file = default_config_file;
    aux_def_file = default_aux_def_file;


455
    /* Parse command line arguments. */
Per Cederqvist's avatar
Per Cederqvist committed
456 457 458 459 460 461 462
    for (i = 1; i < argc && argv[i][0] == '-'; i++)
	switch (argv[i][1])
	{
	case 'd':
	    buglevel++;
	    break;

463 464 465 466 467 468 469 470
        case 'c':
            config_file = argv[i++];
            break;

        case 'a':
            aux_def_file = argv[i++];
            break;

471
	default:
472
	    restart_kom("usage: %s [-d ...] [-c config-file] [-a aux-ite-defs] [config-file]\n", argv[0]);
473
	}
Per Cederqvist's avatar
Per Cederqvist committed
474

475

476
    /* Read in the configuration file. */
477

Per Cederqvist's avatar
Per Cederqvist committed
478
    if (i < argc)
479 480 481
	config_file = argv[i++];
    else
	config_file = default_config_file;
Per Cederqvist's avatar
Per Cederqvist committed
482

483 484
    if (i < argc)
	    restart_kom("usage: %s [-d ...] [config-file]\n", argv[0]);
485

486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501
#ifdef HAVE_STRUCT_SIGACTION
    sigemptyset(&act.sa_mask);
    act.sa_flags = 0;

    act.sa_handler = sighandler_hup;
    sigaction(SIGHUP, &act, NULL);

    act.sa_handler = sighandler_quit;
    sigaction(SIGQUIT, &act, NULL);

    act.sa_handler = sighandler_usr1;
    sigaction(SIGUSR1, &act, NULL);

    act.sa_handler = sighandler_usr2;
    sigaction(SIGUSR2, &act, NULL);
#else
Per Cederqvist's avatar
Per Cederqvist committed
502 503 504 505
    signal(SIGHUP, sighandler_hup);
    signal(SIGQUIT, sighandler_quit);
    signal(SIGUSR1, sighandler_usr1);
    signal(SIGUSR2, sighandler_usr2);
506 507
#endif

508 509 510
    /* Read config, listen, and start db */
    initialize(config_file, aux_def_file);

511
    chdir(param.core_dir);
512 513
    sfree(default_config_file);

Per Cederqvist's avatar
Per Cederqvist committed
514
    save_pid();
Per Cederqvist's avatar
Per Cederqvist committed
515

Per Cederqvist's avatar
Per Cederqvist committed
516
    toploop();
Per Cederqvist's avatar
Per Cederqvist committed
517 518

    logout_all_clients();
519
    isc_shutdown(kom_server_mcb);
Per Cederqvist's avatar
Per Cederqvist committed
520
    cache_sync_all();
Per Cederqvist's avatar
Per Cederqvist committed
521

522 523
    dump_exit_statistics();

Per Cederqvist's avatar
Per Cederqvist committed
524
    log("%s terminated normally.\n", argv[0]);
525 526 527 528 529 530 531 532 533 534 535
    
    return 0;
}

static void 
dump_exit_statistics(void)
{
    FILE *stat_file;
    time_t now;

    time(&now);
536
    stat_file = fopen(param.memuse_name, "a");
Per Cederqvist's avatar
Per Cederqvist committed
537 538 539 540

    if ( stat_file == NULL )
	restart_kom("Can't open file to save memory usage to.\n");

541 542
    fprintf(stat_file, "\nLysKOM Server going down at %s\n", ctime(&now));

543 544 545 546
    dump_cache_stats (stat_file);

    free_all_tmp();
    free_all_cache();
547
    free_all_jubel();
548

Per Cederqvist's avatar
Per Cederqvist committed
549 550
    dump_smalloc_counts(stat_file);
    dump_alloc_counts(stat_file);
551
    dump_cache_mem_usage(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
552
    dump_string_alloc_counts(stat_file);
553
    dump_allocated_connections(stat_file);
554
    dump_isc_alloc_counts(stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
555
    fclose (stat_file);
Per Cederqvist's avatar
Per Cederqvist committed
556
}
557
    
Per Cederqvist's avatar
Per Cederqvist committed
558
void
Per Cederqvist's avatar
Per Cederqvist committed
559
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
560
restart_kom(const char * format, ...)
561 562 563 564 565 566
#else
restart_kom(format,
	    a, b, c, d, e, f, g)
     const char *format;
     int a, b, c, d, e, f, g;
#endif
Per Cederqvist's avatar
Per Cederqvist committed
567
{
Per Cederqvist's avatar
Per Cederqvist committed
568
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
569
    va_list AP;
570
#endif
Per Cederqvist's avatar
Per Cederqvist committed
571 572 573
#if defined(HAVE_GETCWD)
    char pathname[1026];
#else /* !defined(HAVE_GETCWD) */
574
    char *getwd(char *); /* +++ should be in sys/param.h */
Per Cederqvist's avatar
Per Cederqvist committed
575 576 577 578 579 580
# if defined(MAXPATHLEN)
    char pathname[MAXPATHLEN];
# else
    char pathname[1024];
# endif /* !defined(MAXPATHLEN) */
#endif /* !defined(HAVE_GETCWD) */
Per Cederqvist's avatar
Per Cederqvist committed
581

Per Cederqvist's avatar
Per Cederqvist committed
582
#if defined(HAVE_VFPRINTF) && defined(HAVE_STDARG_H)
Per Cederqvist's avatar
Per Cederqvist committed
583 584 585
    va_start(AP, format);
    logv(format, AP);
    va_end(AP);
586 587 588
#else
    log(format, a, b, c, d, e, f, g);
#endif
Per Cederqvist's avatar
Per Cederqvist committed
589 590

    log("Previous message is fatal. Will dump core now.\n");
591

Per Cederqvist's avatar
Per Cederqvist committed
592 593 594 595 596 597 598
#ifdef HAVE_GETCWD
    /* getcwd is POSIX, so try that first. */
    if (getcwd(pathname, 1026) == NULL)
	log("getcwd failed: errno %d\n", errno);
    else
	log("Search for the core in %s\n", pathname);
#else
599 600 601 602
    if ( getwd(pathname) == NULL )
	log("getwd failed: %s\n", pathname);
    else
	log("Search for the core in %s\n", pathname);
Per Cederqvist's avatar
Per Cederqvist committed
603
#endif
604
    
Per Cederqvist's avatar
Per Cederqvist committed
605 606
    abort();
}