pike.git / src / main.c

version» Context lines:

pike.git/src/main.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: main.c,v 1.222 2005/01/01 17:35:54 grubba Exp $ + || $Id: main.c,v 1.223 2005/01/03 13:17:07 agehall Exp $   */      #include "global.h"   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"
pike.git/src/main.c:243:    JMP_BUF back;    int e, num;    char *p;    struct array *a;       TRACE((stderr, "Init master...\n"));       find_lib_dir(argc, argv);      #ifdef LIBPIKE + #ifdef HAVE_DLINIT    if (!dlinit()) {    fprintf(stderr, "dlinit failed.\n");    exit(1);    } -  + #endif /* HAVE_DLINIT */       if (!(libpike = dlopen(libpike_name, RTLD_NOW))) {    const char *err = dlerror();    if (!err) err = "Unknown reason.";    fprintf(stderr, "Failed to open %s: %s\n", libpike_name, err);    exit(1);    }      #define LOOKUP(symbol) do { \    if (!(symbol = CAST_TO_FUN(dlsym(libpike, TOSTR(symbol)))) && \