void kmain(s64 magic, s64 info)
{
//vga_clear(COLOR_BLACK);
idt_init();
isr_init();
serial_init();
set_debug_traps();
BREAKPOINT();
cpuid_print();
multiboot(magic, info);
kmem_map();
page_init();
kmalloc_init();
//vesa_init();
root_init();
pci_init();
vm_init();
syscall_init();
timer_init();
kbd_init();
//mouse_init();
console_init();
create_kthread(NULL, idle_thread, THREAD_PRI_LOW, NULL, NULL);
create_kthread(NULL, init_thread, THREAD_PRI_NORMAL, NULL, NULL);
thread_schedule();
}
int main(){
int ix,iy,radius,i,tries,nit;
double zx,zy,zxn,zyn,cx,cy,theta,
x,y,eps,
poly[MAX_ROOTS+1];
_roots roots;
_complex z,w,fz,dfz;
root_init(&roots);
// Number of iteration for each pointer.
// The bigger, the less prone to error the program will be.
nit=100;
// The radius where the points will be looked for.
radius=6;
// Precision for the roots
eps=1E-10;
scanf("%d",&roots.grad);
for(i=roots.grad;i>=0;i--){
scanf("%lf",&poly[i]);
}
printf("Coefficients:\n");
for(i=roots.grad;i>=0;i--){
printf(" a%d=%+.2f\n",i,poly[i]);
}
printf("\n f(0+0i)=");
complex_print(f(complex_init(0,0),roots.grad, poly));
printf("df(0+0i)=");
complex_print(df(complex_init(0,0),roots.grad, poly));
tries=0;
do{
tries++;
theta=drand48()*2*M_PI;
x=radius*cos(theta);
y=radius*sin(theta);
z=complex_init(x,y);
for(i=0;i<=nit;i++){
fz = f(z,roots.grad,poly);
dfz=df(z,roots.grad,poly);
if(complex_abs(dfz)<ee){
break;
}
w=z;
z=complex_sub(z,complex_div(fz,dfz));
if(complex_abs(complex_sub(z,w))<=eps){
process_root(z,&roots,eps);
break;
}
}
}while(roots.nor<roots.grad);
printf("\nTook %d tries to get all %d roots\n",tries,roots.grad);
printf("\nZeroes and their images:\n\n");
for(i=0;i<roots.grad;i++){
printf("Root Z%d=%+lf %+lfi \tf(z%d)=",i+1,roots.root[i].x,roots.root[i].y,i+1);
complex_print(f(roots.root[i],roots.grad, poly));
}
return EXIT_SUCCESS;
}
/*
* Initialize a disk. In real life we will have to deal with
* bootstrapping both the template file and root file.
*/
xn_err_t sys_xn_init(void) {
int new_p;
#ifndef EXOPC
char block[XN_BLOCK_SIZE];
#endif
size_t f_blocks, nbytes;
void *fm;
si->si_xn_entries = 0;
XN_DEV = 0;
if (XN_DEV >= si->si_ndisks) {
printf ("No XN is being configured (XN_DEV %d, si_ndisks %d)\n",
XN_DEV, si->si_ndisks);
return -E_NO_XN;
} else {
printf ("Giving XN permissions to disk %d\n", XN_DEV);
}
init();
/* Allocate blocks for the catalogues. */
fm = db_get_freemap(&nbytes);
super_block.f_nbytes = nbytes;
f_blocks = bytes_to_blocks(nbytes);
printf("free map takes up %d f_blocks %d\n", nbytes, f_blocks);
f_db = SUPER_BLOCK_DB + 1;
r_db = f_db + f_blocks;
t_db = r_db + R_NBLOCKS;
if(db_alloc(SUPER_BLOCK_DB, 1) != SUPER_BLOCK_DB)
fatal(Could not allocate);
// bc_check("checking super", SUPER_BLOCK_DB);
if(db_alloc(f_db, f_blocks) != f_db)
fatal(Could not allocate);
// bc_check("checking freemap", f_db);
if(db_alloc(r_db, R_NBLOCKS) != r_db)
fatal(Could not allocate);
// bc_check("checking root catalogue", r_db);
if(db_alloc(t_db, T_NBLOCKS) != t_db)
fatal(Could not allocate);
// bc_check("checking type catalogue", t_db);
#ifdef EXOPC
/* Always redo disk. */
new_p = 1;
#else
/* See if we are booting on a new disk. */
sync_read(block, SUPER_BLOCK_DB, 1);
memcpy(&super_block, block, sizeof super_block);
new_p = (super_block.cookie != compute_cookie(&super_block));
if(!new_p) {
printf("old disk\n");
assert(super_block.r_db == r_db);
assert(super_block.t_db == t_db);
assert(super_block.f_db == f_db);
/* tells us if we have to reconstruct. */
if(super_block.clean)
printf("clean shutdown\n");
else {
printf("unclean shutdown\n");
/* xn_reconstruct_disk(); */
}
/* read in free map. */
fm = malloc(f_blocks * XN_BLOCK_SIZE);
assert(fm);
sync_read(fm, super_block.f_db, f_blocks);
db_put_freemap(fm, nbytes);
free(fm);
root_init(new_p);
} else
#endif
{
printf("new disk\n");
super_block.r_db = r_db;
super_block.t_db = t_db;
super_block.f_db = f_db;
super_block.f_nbytes = nbytes;
super_block.clean = 1;
super_block.cookie = compute_cookie(&super_block);
/* Create new entry. */
root_init(new_p);
}
super_block.clean = 0;
super_block.cookie = compute_cookie(&super_block);
#ifndef EXOPC
sync_write(SUPER_BLOCK_DB, &super_block, 1);
sync_read(block, SUPER_BLOCK_DB, 1);
assert(compute_cookie(block) == super_block.cookie);
#endif
return XN_SUCCESS;
}
int main( int argc, char **argv )
{
// Read any command line arguments from our friend the user.
arguments(argc, argv);
// Catch some signals so can exit cleanly
signal(SIGINT, exit_interrupt);
#ifndef WIN32
signal(SIGHUP, exit_interrupt);
signal(SIGTERM, exit_interrupt);
signal(SIGPIPE, SIG_IGN);
if (debug_on)
setvbuf(stdout, NULL, _IONBF, 0);
#endif
printf("%s - Jorgen Lundman v%s %s %s\n\n",
argv ? argv[0] : "llink",
VERSION,
VERSION_STRING,
#if WITH_DVDREAD
"(libdvdread)"
#else
#if HAVE_CLINKC
"(libdvdnav, ClinkC)"
#else
"(libdvdnav)"
#endif
#endif
);
lion_buffersize(conf_buffersize);
//lion_buffersize(2352);
if (lion_init()) {
printf("Failed to initialize lion/networking\n");
exit(-1);
}
debugf("\n");
// Read configuration file, if any
// Warning, calls lion_poll until done.
conf_init();
debugf("[main] initialising...\n");
// Warning, calls lion_poll until done.
mime_init();
// Warning, calls lion_poll until done.
skin_init();
ssdp_init();
httpd_init();
request_init();
root_init();
llrar_init();
visited_init();
cgicmd_init();
#ifdef EXTERNAL
external_init();
#endif
printf("[main] ready!\n");
// Background?
#ifndef WIN32
if (!foreground) {
if (fork()) exit(0);
setsid();
if (conf_pidfile) {
FILE *fd;
if ((fd = fopen(conf_pidfile, "w"))) {
fprintf(fd, "%u\r\n", getpid());
fclose(fd);
}
}
}
#endif
cupnp_init();
// Scan for media
if (conf_xmlscan) {
signal(SIGINT, SIG_DFL);
xmlscan_run();
do_exit = 1;
}
query_init();
#ifdef WIN32
SetPriorityClass(GetCurrentProcess(), ABOVE_NORMAL_PRIORITY_CLASS);
#endif
// The main loop
while ( !do_exit ) {
// Was 250,0 - we should probably let users control this in
// conf settings.
if (lion_poll(0, 1)<0) do_exit=1;
request_events();
#ifdef EXTERNAL
external_resume();
#endif
}
printf("\n[main] releasing resources...\n");
query_free();
cupnp_free();
#ifdef EXTERNAL
external_free();
#endif
root_free();
cgicmd_free();
visited_free();
llrar_free();
request_free();
httpd_free();
ssdp_free();
skin_free();
mime_free();
conf_free();
#ifndef WIN32 // Crashed when releasing spawned processes, until i can fix:
lion_free();
#endif
debugf("[main] done.\n");
return 0;
}
int
main(int argc, char *argv[]) {
IxpMsg m;
char **oargv;
char *wmiirc, *s;
int i;
quotefmtinstall();
fmtinstall('r', errfmt);
fmtinstall('a', afmt);
fmtinstall('C', Cfmt);
extern int fmtevent(Fmt*);
fmtinstall('E', fmtevent);
wmiirc = "wmiirc";
oargv = argv;
ARGBEGIN{
case 'a':
address = EARGF(usage());
break;
case 'r':
wmiirc = EARGF(usage());
break;
case 'v':
print("%s", version);
exit(0);
case 'D':
s = EARGF(usage());
m = ixp_message(s, strlen(s), 0);
msg_debug(&m);
break;
default:
usage();
break;
}ARGEND;
if(argc)
usage();
setlocale(LC_CTYPE, "");
starting = true;
initdisplay();
traperrors(true);
selectinput(&scr.root, EnterWindowMask
| SubstructureRedirectMask);
if(traperrors(false))
fatal("another window manager is already running");
passwd = getpwuid(getuid());
user = estrdup(passwd->pw_name);
init_environment();
fmtinstall('F', Ffmt);
ixp_printfcall = printfcall;
sock = ixp_announce(address);
if(sock < 0)
fatal("Can't create socket '%s': %r", address);
closeexec(ConnectionNumber(display));
closeexec(sock);
if(wmiirc[0])
spawn_command(wmiirc);
init_traps();
init_cursors();
init_lock_keys();
ewmh_init();
xext_init();
srv.preselect = check_preselect;
ixp_listen(&srv, sock, &p9srv, serve_9pcon, nil);
ixp_listen(&srv, ConnectionNumber(display), nil, check_x_event, closedisplay);
def.border = 1;
def.colmode = Colstack;
def.font = loadfont(FONT);
def.incmode = ISqueeze;
def.mod = Mod1Mask;
strcpy(def.grabmod, "Mod1");
loadcolor(&def.focuscolor, FOCUSCOLORS);
loadcolor(&def.normcolor, NORMCOLORS);
disp.sel = pointerscreen();
init_screens();
root_init();
disp.focus = nil;
setfocus(screen->barwin, RevertToParent);
view_select("1");
scan_wins();
starting = false;
view_update_all();
ewmh_updateviews();
event("FocusTag %s\n", selview->name);
i = ixp_serverloop(&srv);
if(i)
fprint(2, "%s: error: %r\n", argv0);
else
event("Quit");
cleanup();
if(exitsignal)
raise(exitsignal);
if(execstr) {
char *toks[32];
int n;
n = unquote(strdup(execstr), toks, nelem(toks)-1);
toks[n] = nil;
execvp(toks[0], toks);
fprint(2, "%s: failed to exec %q: %r\n", argv0, execstr);
execvp(argv0, oargv);
fatal("failed to exec myself");
}
return i;
}
