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.238 2010/06/17 17:24:34 grubba Exp $ + || $Id: main.c,v 1.239 2010/06/21 15:10:34 grubba 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:303:    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))) { +  if (!(libpike = dlopen(libpike_file, RTLD_NOW))) {    const char *err = dlerror();    if (!err) err = "Unknown reason."; -  fprintf(stderr, "Failed to open %s: %s\n", libpike_name, err); +  fprintf(stderr, "Failed to open %s: %s\n", libpike_file, err);    exit(1);    }      #define LOOKUP(symbol) do { \    if (!(PIKE_CONCAT(symbol, _var) = \    CAST_TO_FUN(dlsym(libpike, TOSTR(symbol)))) && \    !(PIKE_CONCAT(symbol, _var) = \    CAST_TO_FUN(dlsym(libpike, "_" TOSTR(symbol))))) { \    fprintf(stderr, "Missing symbol in %s: " TOSTR(symbol) "\n", \ -  libpike_name); \ +  libpike_file); \    dlclose(libpike); \    exit(1); \    } \    } while(0)       LOOKUP(init_pike);   #define init_pike init_pike_var    LOOKUP(init_pike_runtime);   #define init_pike_runtime init_pike_runtime_var    LOOKUP(add_predefine);