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);
}
