void owl_global_init(owl_global *g) { char *cd; const char *homedir; #if !GLIB_CHECK_VERSION(2, 35, 0) g_type_init(); #endif #if !GLIB_CHECK_VERSION(2, 31, 0) g_thread_init(NULL); #endif owl_select_init(); g->lines=LINES; g->cols=COLS; /* We shouldn't need this if we initialize lines and cols before the first * owl_window_get_screen, but to be safe, we synchronize. */ owl_window_resize(owl_window_get_screen(), g->lines, g->cols); g->context_stack = NULL; owl_global_push_context(g, OWL_CTX_STARTUP, NULL, NULL, NULL); g->curmsg=0; g->topmsg=0; g->markedmsgid=-1; g->startupargs=NULL; owl_variable_dict_setup(&(g->vars)); g->rightshift=0; g->pw = NULL; g->vw = NULL; g->tw = NULL; owl_keyhandler_init(&g->kh); owl_keys_setup_keymaps(&g->kh); owl_dict_create(&(g->filters)); g->filterlist = NULL; g->puntlist = g_ptr_array_new(); g->messagequeue = g_queue_new(); owl_dict_create(&(g->styledict)); g->curmsg_vert_offset=0; g->resizepending=0; g->direction=OWL_DIRECTION_DOWNWARDS; owl_fmtext_init_colorpair_mgr(&(g->cpmgr)); g->debug=OWL_DEBUG; owl_regex_init(&g->search_re); g->starttime=time(NULL); /* assumes we call init only a start time */ g->lastinputtime=g->starttime; g->newmsgproc_pid=0; owl_global_set_config_format(g, 0); owl_global_set_no_have_config(g); owl_history_init(&(g->msghist)); owl_history_init(&(g->cmdhist)); g->nextmsgid=0; /* Fill in some variables which don't have constant defaults */ /* glib's g_get_home_dir prefers passwd entries to $HOME, so we * explicitly check getenv first. */ homedir = getenv("HOME"); if (!homedir) homedir = g_get_home_dir(); g->homedir = g_strdup(homedir); g->confdir = NULL; g->startupfile = NULL; cd = g_build_filename(g->homedir, OWL_CONFIG_DIR, NULL); owl_global_set_confdir(g, cd); g_free(cd); g->msglist = owl_messagelist_new(); _owl_global_init_windows(g); g->aim_screenname=NULL; g->aim_screenname_for_filters=NULL; g->aim_loggedin=0; owl_buddylist_init(&(g->buddylist)); g->havezephyr=0; g->haveaim=0; g->ignoreaimlogin=0; owl_global_set_no_doaimevents(g); owl_errqueue_init(&(g->errqueue)); owl_zbuddylist_create(&(g->zbuddies)); g->zaldlist = NULL; g->pseudologin_notify = 0; owl_message_init_fmtext_cache(); g->kill_buffer = NULL; g->interrupt_count = 0; #if GLIB_CHECK_VERSION(2, 31, 0) g_mutex_init(&g->interrupt_lock); #else g->interrupt_lock = g_mutex_new(); #endif }
/* caller must free result, if not NULL */ CALLER_OWN char *owl_perlconfig_initperl(const char *file, int *Pargc, char ***Pargv, char ***Penv) { int ret; PerlInterpreter *p; char *err; const char *args[4] = {"", "-e", "0;", NULL}; AV *inc; char *path; /* create and initialize interpreter */ PERL_SYS_INIT3(Pargc, Pargv, Penv); p=perl_alloc(); owl_global_set_perlinterp(&g, p); perl_construct(p); PL_exit_flags |= PERL_EXIT_DESTRUCT_END; owl_global_set_no_have_config(&g); ret=perl_parse(p, owl_perl_xs_init, 2, (char **)args, NULL); if (ret || SvTRUE(ERRSV)) { err=g_strdup(SvPV_nolen(ERRSV)); sv_setsv(ERRSV, &PL_sv_undef); /* and clear the error */ return(err); } ret=perl_run(p); if (ret || SvTRUE(ERRSV)) { err=g_strdup(SvPV_nolen(ERRSV)); sv_setsv(ERRSV, &PL_sv_undef); /* and clear the error */ return(err); } owl_global_set_have_config(&g); /* create legacy variables */ get_sv("BarnOwl::id", TRUE); get_sv("BarnOwl::class", TRUE); get_sv("BarnOwl::instance", TRUE); get_sv("BarnOwl::recipient", TRUE); get_sv("BarnOwl::sender", TRUE); get_sv("BarnOwl::realm", TRUE); get_sv("BarnOwl::opcode", TRUE); get_sv("BarnOwl::zsig", TRUE); get_sv("BarnOwl::msg", TRUE); get_sv("BarnOwl::time", TRUE); get_sv("BarnOwl::host", TRUE); get_av("BarnOwl::fields", TRUE); if(file) { SV * cfg = get_sv("BarnOwl::configfile", TRUE); sv_setpv(cfg, file); } sv_setpv(get_sv("BarnOwl::VERSION", TRUE), OWL_VERSION_STRING); /* Add the system lib path to @INC */ inc = get_av("INC", 0); path = g_build_filename(owl_get_datadir(), "lib", NULL); av_unshift(inc, 1); av_store(inc, 0, owl_new_sv(path)); g_free(path); eval_pv("use BarnOwl;", FALSE); if (SvTRUE(ERRSV)) { err=g_strdup(SvPV_nolen(ERRSV)); sv_setsv (ERRSV, &PL_sv_undef); /* and clear the error */ return(err); } /* check if we have the formatting function */ if (owl_perlconfig_is_function("BarnOwl::format_msg")) { owl_global_set_config_format(&g, 1); } return(NULL); }