int lua_init() { ASSERT(lua_create()); ASSERT(lua_register_funcs()); ASSERT(load_init_file()); ASSERT(run_init_func()); return 0; }
static void get_parameters(void) { wchar_t buffer[MAX_PATH]; wchar_t *ini_filename; HANDLE module = GetModuleHandle(NULL); InitFile *inif; InitSection *inis; char *utf8dir; int len; if (module = NULL) { error("Cannot GetModuleHandle()"); } if (GetModuleFileNameW(module,buffer,MAX_PATH) == 0) { error("Could not GetModuleFileName"); } ini_filename = replace_filename(buffer,INI_FILENAME); if ((inif = load_init_file(ini_filename)) == NULL) { erlexec_dir = find_erlexec_dir(ini_filename); SetEnvironmentVariableW(L"ERLEXEC_DIR", erlexec_dir); } else { if ((inis = lookup_init_section(inif,INI_SECTION)) == NULL) { error("Could not find section %s in init file %S", INI_SECTION, ini_filename); } utf8dir = do_lookup_in_section(inis, "Bindir", INI_SECTION, ini_filename); len = MultiByteToWideChar(CP_UTF8, 0, utf8dir, -1, NULL, 0); erlexec_dir = malloc(len*sizeof(wchar_t)); MultiByteToWideChar(CP_UTF8, 0, utf8dir, -1, erlexec_dir, len); if(len == 0) { error("Bindir is not a valid utf8 '%s' in init file %S", utf8dir, ini_filename); } free_init_file(inif); } erlexec_name = malloc((wcslen(erlexec_dir) + wcslen(ERLEXEC_BASENAME) + 2)*sizeof(wchar_t)); wcscpy(erlexec_name,erlexec_dir); wcscat(erlexec_name, L"\\" ERLEXEC_BASENAME); free(ini_filename); }
int main() { init(); pointer sexpr, result; load_init_file("init.sch", 1); printf("\n Welcome to LittleC!\nLC> "); while ((sexpr = read(stdin)) != E_O_F) { printf("*evaluating "); write(stdout, sexpr); printf("\n "); result = eval(sexpr); write(stdout, result); printf("\n"); printf("LC> "); fflush(stdout); } return 0; }
int main(int argc, char *argv[]) { char *inputs[] = { "(lambda (x) (return x))", }; init_global_variable(); init_prims(); init_primitive_opcode(); init_macros(); load_init_file(); for (int i = 0; i < sizeof(inputs) / sizeof(char *); i++) { write_raw_string(">> ", standard_out); write_raw_string(inputs[i], standard_out); write_raw_char('\n', standard_out); lisp_object_t *expr = read_object_from_string(strdup(inputs[i])); expr = compile_to_bytecode(expr); if (is_signaled(expr)) writef(standard_out, "%?\n", expr); else writef(standard_out, "=> %?\n", expr); } return 0; }
int main (int argc, char **argv) { enum { PASS, SPLASH, TTY } which; Widget toplevel_shell = 0; saver_screen_info ssip; saver_info sip; saver_info *si = &sip; saver_preferences *p = &si->prefs; struct passwd *pw; memset(&sip, 0, sizeof(sip)); memset(&ssip, 0, sizeof(ssip)); si->nscreens = 1; si->screens = si->default_screen = &ssip; ssip.global = si; global_si_kludge = si; real_stderr = stderr; real_stdout = stdout; si->version = (char *) malloc (5); memcpy (si->version, screensaver_id + 17, 4); si->version[4] = 0; progname = argv[0]; { char *s = strrchr(progname, '/'); if (*s) strcpy (progname, s+1); } if (argc != 2) goto USAGE; else if (!strcmp (argv[1], "pass")) which = PASS; else if (!strcmp (argv[1], "splash")) which = SPLASH; else if (!strcmp (argv[1], "tty")) which = TTY; else { USAGE: fprintf (stderr, "usage: %s [ pass | splash | tty ]\n", progname); exit (1); } #ifdef NO_LOCKING if (which == PASS || which == TTY) { fprintf (stderr, "%s: compiled with NO_LOCKING\n", progname); exit (1); } #endif #ifndef NO_LOCKING /* before hack_uid() for proper permissions */ lock_priv_init (argc, argv, True); hack_uid (si); if (! lock_init (argc, argv, True)) { si->locking_disabled_p = True; si->nolock_reason = "error getting password"; } #endif progclass = "XScreenSaver"; if (!setlocale (LC_CTYPE, "")) fprintf (stderr, "%s: warning: could not set default locale\n", progname); if (which != TTY) { toplevel_shell = XtAppInitialize (&si->app, progclass, 0, 0, &argc, argv, fallback, 0, 0); si->dpy = XtDisplay (toplevel_shell); p->db = XtDatabase (si->dpy); si->default_screen->toplevel_shell = toplevel_shell; si->default_screen->screen = XtScreen(toplevel_shell); si->default_screen->default_visual = si->default_screen->current_visual = DefaultVisualOfScreen(si->default_screen->screen); si->default_screen->screensaver_window = RootWindowOfScreen(si->default_screen->screen); si->default_screen->current_depth = visual_depth(si->default_screen->screen, si->default_screen->current_visual); ssip.width = WidthOfScreen(ssip.screen); ssip.height = HeightOfScreen(ssip.screen); db = p->db; XtGetApplicationNameAndClass (si->dpy, &progname, &progclass); load_init_file (si->dpy, &si->prefs); } p->verbose_p = True; pw = getpwuid (getuid ()); si->user = strdup (pw->pw_name); /* si->nscreens = 0; si->screens = si->default_screen = 0; */ while (1) { #ifndef NO_LOCKING if (which == PASS) { si->unlock_cb = gui_auth_conv; si->auth_finished_cb = auth_finished_cb; debug_passwd_window_p = True; xss_authenticate(si, True); if (si->unlock_state == ul_success) fprintf (stderr, "%s: authentication succeeded\n", progname); else fprintf (stderr, "%s: authentication FAILED!\n", progname); XSync(si->dpy, False); fprintf (stderr, "\n######################################\n\n"); sleep (3); } else #endif if (which == SPLASH) { XEvent event; make_splash_dialog (si); XtAppAddTimeOut (si->app, p->splash_duration + 1000, idle_timer, (XtPointer) si); while (si->splash_dialog) { XtAppNextEvent (si->app, &event); if (event.xany.window == si->splash_dialog) handle_splash_event (si, &event); XtDispatchEvent (&event); } XSync (si->dpy, False); sleep (1); } #ifndef NO_LOCKING else if (which == TTY) { si->unlock_cb = text_auth_conv; printf ("%s: Authenticating user %s\n", progname, si->user); xss_authenticate(si, True); if (si->unlock_state == ul_success) printf ("%s: Ok!\n", progname); else printf ("%s: Wrong!\n", progname); } #endif else abort(); } free(si->user); }
int wmain(int argc, wchar_t **argv) { int silent = 0; int start_sasl = 0; wchar_t *root = NULL; int i; wchar_t buffer[MAX_PATH]; wchar_t erts_dir[MAX_PATH]; wchar_t release_dir[MAX_PATH]; wchar_t bin_dir[MAX_PATH]; char *tmp; char tmp_utf8[MAX_PATH*4]; wchar_t my_ini_filename[MAX_PATH]; InitFile *my_ini_file; InitSection *my_ini_section; char erts_version[MAX_PATH]; InitFile *ini_file; InitSection *ini_section; HANDLE module = GetModuleHandle(NULL); wchar_t *binaries[] = { L"erl.exe", L"werl.exe", L"erlc.exe", L"dialyzer.exe", L"typer.exe", L"escript.exe", L"ct_run.exe", NULL }; wchar_t *scripts[] = { L"start_clean.boot", L"start_sasl.boot", NULL }; wchar_t fromname[MAX_PATH]; wchar_t toname[MAX_PATH]; size_t converted; for (i = 1; i < argc; ++i) { switch(argv[i][0]) { case L'-' : switch(argv[i][1]) { case L's' : silent = 1; break; default: fprintf(stderr, "Unknown command switch %S\n", argv[i]); exit(1); } break; default: { if (root != NULL) { fprintf(stderr, "Only one root directory can be specified, " "parameter %S is illegal\n", argv[i]); exit(1); } root = argv[i]; } break; } } if (root == NULL) { if (module = NULL) { fprintf(stderr, "Cannot GetModuleHandle()\n"); exit(1); } if (GetModuleFileNameW(module,buffer,MAX_PATH) == 0) { fprintf(stderr,"Could not GetModuleFileName()\n"); exit(1); } i = wcslen(buffer) - 1; while ( i >= 0 && buffer[i] != L'\\') { --i; } if (i < 0) { fprintf(stderr,"GetModuleFileName returned broken path\n"); exit(1); } buffer[i] = L'\0'; root = buffer; } if (!silent) { char answer[100]; char *eol; start_sasl = 1; printf("Do you want a minimal startup instead of sasl [No]: "); fflush(stdout); if (fgets(answer,100,stdin) == NULL) { fprintf(stderr, "Could not read answer from user.\n"); exit(1); } eol = strchr(answer,'\n'); if (eol == NULL) { while (getchar() != '\n') ; } else { *eol = '\0'; } if ((eol = strchr(answer, '\r')) != NULL) { *eol = '\0'; } if (_stricmp(answer,"yes") == 0 || _stricmp(answer,"y") == 0) { start_sasl = 0; } } swprintf(my_ini_filename, MAX_PATH, L"%s\\Install.ini", root); my_ini_file = load_init_file(my_ini_filename); if (my_ini_file == NULL) { fprintf(stderr,"Cannot open init file %S\n",my_ini_filename); exit(1); } if ((my_ini_section = lookup_init_section(my_ini_file,"Install")) == NULL) { fprintf(stderr,"No [Install] section in init file %S\n", my_ini_filename); exit(1); } if ((tmp = lookup_init_entry(my_ini_section, "VSN")) == NULL) { fprintf(stderr,"No key VSN in init file %S\n", my_ini_filename); exit(1); } strcpy(erts_version,tmp); swprintf(erts_dir,MAX_PATH,L"%s\\erts-%S\\bin",root,erts_version); if ((tmp = lookup_init_entry(my_ini_section, "SYSTEM_VSN")) == NULL) { fprintf(stderr,"No key SYSTEM_VSN in init file %S\n", my_ini_filename); exit(1); } swprintf(release_dir,MAX_PATH,L"%s\\releases\\%S",root,tmp); swprintf(bin_dir,MAX_PATH,L"%s\\bin",root); CreateDirectoryW(bin_dir,NULL); free_init_file(my_ini_file); for (i = 0; binaries[i] != NULL; ++i) { swprintf(fromname,MAX_PATH,L"%s\\%s",erts_dir,binaries[i]); swprintf(toname,MAX_PATH,L"%s\\%s",bin_dir,binaries[i]); if (GetFileAttributesW(fromname) == 0xFFFFFFFF) { fprintf(stderr,"Could not find file %S\n", fromname); exit(1); } if (!CopyFileW(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %S to %S\n", fromname,toname); fprintf(stderr,"Continuing installation anyway...\n"); } } for (i = 0; scripts[i] != NULL; ++i) { swprintf(fromname,MAX_PATH,L"%s\\%s",release_dir,scripts[i]); swprintf(toname,MAX_PATH,L"%s\\%s",bin_dir,scripts[i]); if (GetFileAttributesW(fromname) == 0xFFFFFFFF) { fprintf(stderr,"Could not find file %S\n", fromname); exit(1); } if (!CopyFileW(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %S to %S\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } } if (start_sasl) { swprintf(fromname,MAX_PATH,L"%s\\start_sasl.boot",bin_dir); } else { swprintf(fromname,MAX_PATH,L"%s\\start_clean.boot",bin_dir); } swprintf(toname,MAX_PATH,L"%s\\start.boot",bin_dir); if (!CopyFileW(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %S to %S\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } /* OBS!!! If the format of the init file is changed, do not forget to update release_handler:write_ini_file(...) */ ini_file = create_init_file(); ini_section = create_init_section("erlang"); add_init_section(ini_file,ini_section); WideCharToMultiByte(CP_UTF8,0,erts_dir,-1,tmp_utf8,MAX_PATH*4,NULL,NULL); add_init_entry(ini_section,"Bindir",tmp_utf8); add_init_entry(ini_section,"Progname","erl"); WideCharToMultiByte(CP_UTF8,0,root,-1,tmp_utf8,MAX_PATH*4,NULL,NULL); add_init_entry(ini_section,"Rootdir",tmp_utf8); swprintf(fromname,MAX_PATH,L"%s\\erl.ini",erts_dir); swprintf(toname,MAX_PATH,L"%s\\erl.ini",bin_dir); if (store_init_file(ini_file,fromname) != 0) { fprintf(stderr,"Could not create file %S\n", fromname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } if (!CopyFileW(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %S to %S\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } if (!silent) { printf("Erlang %s installed successfully\n", erts_version); } return 0; }
int main(int argc, char **argv) { int silent = 0; int start_sasl = 0; char *root = NULL; int i; char buffer[MAX_PATH]; char erts_dir[MAX_PATH]; char release_dir[MAX_PATH]; char bin_dir[MAX_PATH]; char *tmp; char my_ini_filename[MAX_PATH]; InitFile *my_ini_file; InitSection *my_ini_section; char version_string[MAX_PATH]; InitFile *ini_file; InitSection *ini_section; HANDLE module = GetModuleHandle(NULL); char *binaries[] = { "erl.exe", "werl.exe", "erlc.exe", "dialyzer.exe", "typer.exe", "escript.exe", NULL }; char *scripts[] = { "start_clean.boot", "start_sasl.boot", NULL }; char fromname[MAX_PATH]; char toname[MAX_PATH]; for (i = 1; i < argc; ++i) { switch(argv[i][0]) { case '-' : switch(argv[i][1]) { case 's' : silent = 1; break; default: fprintf(stderr, "Unknown command switch %s\n", argv[i]); exit(1); } break; default: if (root != NULL) { fprintf(stderr, "Only one root directory can be specified, " "parameter %s is illegal\n", argv[i]); exit(1); } root = argv[i]; break; } } if (root == NULL) { if (module = NULL) { fprintf(stderr, "Cannot GetModuleHandle()\n"); exit(1); } if (GetModuleFileName(module,buffer,MAX_PATH) == 0) { fprintf(stderr,"Could not GetModuleFileName()\n"); exit(1); } i = strlen(buffer) - 1; while ( i >= 0 && buffer[i] != '\\') { --i; } if (i < 0) { fprintf(stderr,"GetModuleFileName returned broken path\n"); exit(1); } buffer[i] = '\0'; root = buffer; } if (!silent) { char answer[100]; char *eol; start_sasl = 1; printf("Do you want a minimal startup instead of sasl [No]: "); fflush(stdout); if (fgets(answer,100,stdin) == NULL) { fprintf(stderr, "Could not read answer from user.\n"); exit(1); } eol = strchr(answer,'\n'); if (eol == NULL) { while (getchar() != '\n') ; } else { *eol = '\0'; } if ((eol = strchr(answer, '\r')) != NULL) { *eol = '\0'; } if (_stricmp(answer,"yes") == 0 || _stricmp(answer,"y") == 0) { start_sasl = 0; } } sprintf(my_ini_filename,"%s\\Install.ini",root); my_ini_file = load_init_file(my_ini_filename); if (my_ini_file == NULL) { fprintf(stderr,"Cannot open init file %s\n",my_ini_filename); exit(1); } if ((my_ini_section = lookup_init_section(my_ini_file,"Install")) == NULL) { fprintf(stderr,"No [Install] section in init file %s\n", my_ini_filename); exit(1); } if ((tmp = lookup_init_entry(my_ini_section, "VSN")) == NULL) { fprintf(stderr,"No key VSN in init file %s\n", my_ini_filename); exit(1); } strcpy(version_string,tmp); sprintf(erts_dir,"%s\\erts-%s\\bin",root,tmp); if ((tmp = lookup_init_entry(my_ini_section, "SYSTEM_VSN")) == NULL) { fprintf(stderr,"No key SYSTEM_VSN in init file %s\n", my_ini_filename); exit(1); } sprintf(release_dir,"%s\\releases\\%s",root,tmp); sprintf(bin_dir,"%s\\bin",root); CreateDirectory(bin_dir,NULL); free_init_file(my_ini_file); for (i = 0; binaries[i] != NULL; ++i) { sprintf(fromname,"%s\\%s",erts_dir,binaries[i]); sprintf(toname,"%s\\%s",bin_dir,binaries[i]); if (GetFileAttributes(fromname) == 0xFFFFFFFF) { fprintf(stderr,"Could not find file %s\n", fromname); exit(1); } if (!CopyFile(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %s to %s\n", fromname,toname); fprintf(stderr,"Continuing installation anyway...\n"); } } for (i = 0; scripts[i] != NULL; ++i) { sprintf(fromname,"%s\\%s",release_dir,scripts[i]); sprintf(toname,"%s\\%s",bin_dir,scripts[i]); if (GetFileAttributes(fromname) == 0xFFFFFFFF) { fprintf(stderr,"Could not find file %s\n", fromname); exit(1); } if (!CopyFile(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %s to %s\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } } if (start_sasl) { sprintf(fromname,"%s\\start_sasl.boot",bin_dir); } else { sprintf(fromname,"%s\\start_clean.boot",bin_dir); } sprintf(toname,"%s\\start.boot",bin_dir); if (!CopyFile(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %s to %s\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } ini_file = create_init_file(); ini_section = create_init_section("erlang"); add_init_section(ini_file,ini_section); add_init_entry(ini_section,"Bindir",erts_dir); add_init_entry(ini_section,"Progname","erl"); add_init_entry(ini_section,"Rootdir",root); sprintf(fromname,"%s\\erl.ini",erts_dir); sprintf(toname,"%s\\erl.ini",bin_dir); if (store_init_file(ini_file,fromname) != 0) { fprintf(stderr,"Could not create file %s\n", fromname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } if (!CopyFile(fromname,toname,FALSE)) { fprintf(stderr,"Could not copy file %s to %s\n", fromname,toname); fprintf(stderr,"Cannot continue installation, bailing out.\n"); exit(1); } if (!silent) { printf("Erlang %s installed successfully\n", version_string); } return 0; }
static void get_parameters(int argc, char** argv) { char *p; char buffer[MAX_PATH]; char *ini_filename; HANDLE module = GetModuleHandle(NULL); /* This might look strange, but we want the erl.ini that resides in the same dir as erl.exe, not an erl.ini in our directory */ InitFile *inif; InitSection *inis; if (module == NULL) { error("Cannot GetModuleHandle()"); } if (GetModuleFileName(module,buffer,MAX_PATH) == 0) { error("Could not GetModuleFileName"); } ini_filename = replace_filename(buffer,INI_FILENAME); if ((inif = load_init_file(ini_filename)) == NULL) { /* Assume that the path is absolute and that it does not contain any symbolic link */ char buffer[MAX_PATH]; /* Determine bindir */ if (GetEnvironmentVariable("ERLEXEC_DIR", buffer, MAX_PATH) == 0) { strcpy(buffer, ini_filename); for (p = buffer+strlen(buffer)-1; p >= buffer && *p != '\\'; --p) ; *p ='\0'; } bindir = path_massage(buffer); /* Determine rootdir */ for (p = buffer+strlen(buffer)-1; p >= buffer && *p != '\\'; --p) ; p--; for (;p >= buffer && *p != '\\'; --p) ; *p ='\0'; rootdir = path_massage(buffer); /* Hardcoded progname */ progname = strsave(DEFAULT_PROGNAME); } else { if ((inis = lookup_init_section(inif,INI_SECTION)) == NULL) { error("Could not find section %s in init file %s", INI_SECTION, ini_filename); } bindir = do_lookup_in_section(inis, "Bindir", INI_SECTION, ini_filename,1); rootdir = do_lookup_in_section(inis, "Rootdir", INI_SECTION, ini_filename,1); progname = do_lookup_in_section(inis, "Progname", INI_SECTION, ini_filename,0); free_init_file(inif); } emu = EMULATOR_EXECUTABLE; start_emulator_program = strsave(argv[0]); free(ini_filename); }