/*==================================
* main -- Main routine of LifeLines
*================================*/
int
main (int argc, char **argv)
{
extern char *optarg;
extern int optind;
char * msg;
int c;
BOOLEAN ok=FALSE;
STRING dbrequested=NULL; /* database (path) requested */
STRING dbused=NULL; /* database (path) found */
BOOLEAN forceopen=FALSE, lockchange=FALSE;
char lockarg = 0; /* option passed for database lock */
INT alteration=0;
LIST exprogs=NULL;
TABLE exargs=NULL;
STRING progout=NULL;
BOOLEAN graphical=TRUE;
STRING configfile=0;
STRING crashlog=NULL;
int i=0;
/* initialize all the low-level library code */
init_stdlib();
#if HAVE_SETLOCALE
/* initialize locales */
setlocale(LC_ALL, "");
#endif /* HAVE_SETLOCALE */
#if ENABLE_NLS
/* setup gettext translation */
/* NB: later we may revise locale dir or codeset
based on user settings */
ll_bindtextdomain(PACKAGE, LOCALEDIR);
textdomain(PACKAGE);
#endif
save_original_locales();
load_usage();
/* handle conventional arguments --version and --help */
/* needed for help2man to synthesize manual pages */
for (i=1; i<argc; ++i) {
if (!strcmp(argv[i], "--version")
|| !strcmp(argv[i], "-v")) {
print_version("llines");
return 0;
}
if (!strcmp(argv[i], "--help")
|| !strcmp(argv[i], "-h")
|| !strcmp(argv[i], "-?")) {
print_usage();
return 0;
}
}
/* Parse Command-Line Arguments */
opterr = 0; /* turn off getopt's error message */
while ((c = getopt(argc, argv, "adkrwil:fntc:Fu:x:o:zC:I:vh?")) != -1) {
switch (c) {
case 'c': /* adjust cache sizes */
while(optarg && *optarg) {
if(isasciiletter((uchar)*optarg) && isupper((uchar)*optarg))
*optarg = tolower((uchar)*optarg);
if(*optarg == 'i') {
INT icsz_indi=0;
sscanf(optarg+1, "%ld,%ld", &csz_indi, &icsz_indi);
}
else if(*optarg == 'f') {
INT icsz_fam=0;
sscanf(optarg+1, "%ld,%ld", &csz_fam, &icsz_fam);
}
else if(*optarg == 's') {
INT icsz_sour=0;
sscanf(optarg+1, "%ld,%ld", &csz_sour, &icsz_sour);
}
else if(*optarg == 'e') {
INT icsz_even=0;
sscanf(optarg+1, "%ld,%ld", &csz_even, &icsz_even);
}
else if((*optarg == 'o') || (*optarg == 'x')) {
INT icsz_othr=0;
sscanf(optarg+1, "%ld,%ld", &csz_othr, &icsz_othr);
}
optarg++;
while(*optarg && isdigit((uchar)*optarg)) optarg++;
if(*optarg == ',') optarg++;
while(*optarg && isdigit((uchar)*optarg)) optarg++;
}
break;
#ifdef FINNISH
# ifdef FINNISHOPTION
case 'F': /* Finnish sorting order [toggle] */
opt_finnish = !opt_finnish;
/*
TODO - need to mark Finnish databases, as
name records are not interoperable, because of
different soundex encoding
2001-02-17, Perry Rapp
TODO, 2002-11-07, Perry Rapp:
Need to see if we can fix database so locale sort doesn't affect btree
because it would be nicer if changing locale didn't hurt the btree !
Perhaps locale collates can only be used inside name records ? needs research
*/
break;
# endif
#endif
case 'a': /* debug allocation */
alloclog = TRUE;
break;
case 'd': /* debug = no signal catchers */
debugmode = TRUE;
break;
case 'k': /* don't show key values */
keyflag = FALSE;
break;
case 'r': /* request for read only access */
readonly = TRUE;
break;
case 'w': /* request for write access */
writeable = TRUE;
break;
case 'i': /* immutable access */
immutable = TRUE;
readonly = TRUE;
break;
case 'l': /* locking switch */
lockchange = TRUE;
lockarg = *optarg;
break;
case 'f': /* force database open in all cases */
forceopen = TRUE;
break;
case 'n': /* use non-traditional family rules */
traditional = FALSE;
break;
case 't': /* show lots of trace statements for debugging */
prog_trace = TRUE;
break;
case 'u': /* specify screen dimensions */
sscanf(optarg, "%ld,%ld", &winx, &winy);
break;
case 'x': /* execute program */
if (!exprogs) {
exprogs = create_list2(LISTDOFREE);
}
push_list(exprogs, strdup(optarg ? optarg : ""));
break;
case 'I': /* program arguments */
{
STRING optname=0, optval=0;
parse_arg(optarg, &optname, &optval);
if (optname && optval) {
if (!exargs) {
exargs = create_table_str();
}
insert_table_str(exargs, optname, optval);
}
strfree(&optname);
strfree(&optval);
}
break;
case 'o': /* output directory */
progout = optarg;
break;
case 'z': /* nongraphical box */
graphical = FALSE;
break;
case 'C': /* specify config file */
configfile = optarg;
break;
case 'v': /* show version */
showversion = TRUE;
goto usage;
break;
case 'h': /* show usage */
case '?': /* show usage */
showusage = TRUE;
showversion = TRUE;
goto usage;
break;
}
}
prompt_for_db:
/* catch any fault, so we can close database */
if (!debugmode)
set_signals();
else /* developer wants to drive without seatbelt! */
stdstring_hardfail();
set_displaykeys(keyflag);
/* initialize options & misc. stuff */
llgettext_set_default_localedir(LOCALEDIR);
if (!init_lifelines_global(configfile, &msg, &main_db_notify)) {
llwprintf("%s", msg);
goto finish;
}
/* setup crashlog in case init_screen fails (eg, bad menu shortcuts) */
crashlog = getlloptstr("CrashLog_llines", NULL);
if (!crashlog) { crashlog = "CrashLog_llines.log"; }
crash_setcrashlog(crashlog);
/* start (n)curses and create windows */
{
char errmsg[512];
if (!init_screen(errmsg, sizeof(errmsg)/sizeof(errmsg[0])))
{
endwin();
fprintf(stderr, errmsg);
goto finish;
}
set_screen_graphical(graphical);
}
init_interpreter(); /* give interpreter its turn at initialization */
/* Validate Command-Line Arguments */
if ((readonly || immutable) && writeable) {
llwprintf(_(qSnorwandro));
goto finish;
}
if (forceopen && lockchange) {
llwprintf(_(qSnofandl));
goto finish;
}
if (lockchange && lockarg != 'y' && lockarg != 'n') {
llwprintf(_(qSbdlkar));
goto finish;
}
if (forceopen)
alteration = 3;
else if (lockchange) {
if (lockarg == 'y')
alteration = 2;
else
alteration = 1;
}
c = argc - optind;
if (c > 1) {
showusage = TRUE;
goto usage;
}
/* Open database, prompting user if necessary */
if (1) {
STRING errmsg=0;
if (!alldone && c>0) {
dbrequested = strsave(argv[optind]);
} else {
strupdate(&dbrequested, "");
}
if (!select_database(dbrequested, alteration, &errmsg)) {
if (errmsg) {
llwprintf(errmsg);
}
alldone = 0;
goto finish;
}
}
/* Start Program */
if (!init_lifelines_postdb()) {
llwprintf(_(qSbaddb));
goto finish;
}
if (!int_codeset[0]) {
msg_info(_("Warning: database codeset unspecified"));
} else if (!transl_are_all_conversions_ok()) {
msg_info(_("Warning: not all conversions available"));
}
init_show_module();
init_browse_module();
if (exargs) {
set_cmd_options(exargs);
release_table(exargs);
exargs = 0;
}
if (exprogs) {
BOOLEAN picklist = FALSE;
BOOLEAN timing = FALSE;
interp_main(exprogs, progout, picklist, timing);
destroy_list(exprogs);
} else {
alldone = 0;
while (!alldone)
main_menu();
}
term_show_module();
term_browse_module();
ok=TRUE;
finish:
/* we free this not because we care so much about these tiny amounts
of memory, but to ensure we have the memory management right */
/* strfree frees memory & nulls pointer */
strfree(&dbused);
strfree(&dbrequested);
strfree(&readpath_file);
shutdown_interpreter();
close_lifelines();
shutdown_ui(!ok);
if (alldone == 2)
goto prompt_for_db; /* changing databases */
termlocale();
usage:
/* Display Version and/or Command-Line Usage Help */
if (showversion) { print_version("llines"); }
if (showusage) puts(usage_summary);
/* Exit */
return !ok;
}
void HariMain(void)
{
int i;
struct BOOTINFO *binfo = (struct BOOTINFO *)0x0ff0;
int xsize = (*binfo).scrnx;
int ysize = (*binfo).scrny;
char *vram = (*binfo).vram;
char msg[40], mcursor[256];
int mx = xsize/2;
int my = ysize/2;
char keybuf[32], mousebuf[32];
struct MOUSE_DEC mdec;
unsigned char s[32];
unsigned int memtotal, count = 0;
struct MEMMAN *memman = (struct MEMMAN *)MEMMAN_ADDR;
struct SHTCTL *shtctl;
struct SHEET *sht_back, *sht_mouse, *sht_win;
unsigned char *buf_back, buf_mouse[256], *buf_win,
timerbuf1[8], timerbuf2[8], timerbuf3[8];
struct TIMER *timer1, *timer2, *timer3;
struct FIFO8 timerfifo1, timerfifo2, timerfifo3;
init_gdtidt ();
init_pic ();
io_sti ();
fifo8_init(&keyfifo, 32, keybuf );
fifo8_init(&mousefifo, 32, mousebuf );
fifo8_init(&timerfifo1, 8, timerbuf1);
fifo8_init(&timerfifo2, 8, timerbuf2);
fifo8_init(&timerfifo3, 8, timerbuf3);
init_pit();
io_out8(PIC0_IMR, 0xf8); /* Allow PIT and Keyboard (11111000) */
io_out8(PIC1_IMR, 0xef); /* Allow Mouse (11101111) */
init_keyboad ();
enable_mouse (&mdec);
timer1 = timer_alloc();
timer_init(timer1, &timerfifo1, 1);
timer_settime(timer1, 1000);
timer2 = timer_alloc();
timer_init(timer2, &timerfifo2, 1);
timer_settime(timer2, 300);
timer3 = timer_alloc();
timer_init(timer3, &timerfifo3, 1);
timer_settime(timer3, 50);
memtotal = memtest(0x00400000, 0xbfffffff);
memman_init (memman);
memman_free (memman, 0x00001000, 0x009e000); /* 0x00001000 - 0x0009efff */
memman_free (memman, 0x00400000, memtotal - 0x00400000);
init_pallete();
shtctl = shtctl_init (memman, binfo->vram, binfo->scrnx, binfo->scrny);
sht_back = sheet_alloc(shtctl);
sht_mouse = sheet_alloc(shtctl);
sht_win = sheet_alloc(shtctl);
buf_back = (unsigned char *)memman_alloc_4k (memman, binfo->scrnx * binfo->scrny);
buf_win = (unsigned char *)memman_alloc_4k (memman, 160 * 52);
sheet_setbuf (sht_back, buf_back, binfo->scrnx, binfo->scrny, -1);
sheet_setbuf (sht_mouse, buf_mouse, 16, 16, 99);
sheet_setbuf (sht_win, buf_win, 160, 52, -1);
init_screen (buf_back, xsize, ysize);
init_mouse_cursor8 (buf_mouse, 99);
make_window8(buf_win, 160, 52, "counter");
sprintf (s, "(%d, %d)", mx, my);
putfonts8_asc (buf_back, binfo->scrnx, 0, 0, COL8_FFFFFF, s);
sprintf (s, "Memory %dMB, free : %dKB",
memtotal / (1024 * 1024), memman_total(memman) / 1024);
putfonts8_asc(buf_back, binfo->scrnx, 0, 32, COL8_FFFFFF, s);
sheet_slide (sht_back, 0, 0);
sheet_slide (sht_mouse, mx, my);
sheet_slide (sht_win, 80, 72);
sheet_updown (sht_back, 0);
sheet_updown (sht_win, 1);
sheet_updown (sht_mouse, 2);
sheet_refresh (sht_back, 0, 0, binfo->scrnx, 48);
for (;;) {
count ++;
sprintf(s, "%d", timerctl.count);
boxfill8 (buf_win, 160, COL8_C6C6C6, 40, 28, 119, 43);
putfonts8_asc (buf_win, 160, 40, 28, COL8_000000, s);
sheet_refresh (sht_win, 40, 28, 120, 44);
io_cli();
if (fifo8_status(&keyfifo) + fifo8_status(&mousefifo) +
fifo8_status(&timerfifo1) + fifo8_status(&timerfifo2) + fifo8_status(&timerfifo3) == 0) {
io_sti();
} else {
if (fifo8_status(&keyfifo) != 0) {
i = fifo8_get(&keyfifo);
io_sti();
sprintf (s, "%x", i);
boxfill8(buf_back, binfo->scrnx, COL8_008484, 0, 48, 15, 48+31);
putfonts8_asc(buf_back, binfo->scrnx, 0, 48, COL8_FFFFFF, s);
sheet_refresh (sht_back, 0, 16, 16, 32);
} else if (fifo8_status(&mousefifo) != 0) {
i = fifo8_get(&mousefifo);
io_sti();
if (mouse_decode(&mdec, i) != 0) {
sprintf (s, "[lcr %d %d]", mdec.x, mdec.y);
if ((mdec.btn & 0x01) != 0) { s[1] = 'L'; }
if ((mdec.btn & 0x02) != 0) { s[3] = 'R'; }
if ((mdec.btn & 0x04) != 0) { s[2] = 'C'; }
boxfill8(buf_back, binfo->scrnx, COL8_008484, 32, 16, 32 + 15 * 16 -1, 31);
putfonts8_asc(buf_back, binfo->scrnx, 32, 16, COL8_FFFFFF, s);
sheet_refresh (sht_back, 32, 16, 32+15 * 8, 32);
mx += mdec.x;
my += mdec.y;
if (mx < 0) { mx = 0; } if (mx > binfo->scrnx - 1) { mx = binfo->scrnx - 1; }
if (my < 0) { my = 0; } if (my > binfo->scrny - 1) { my = binfo->scrny - 1; }
sprintf(s, "(%d, %d)", mx, my);
boxfill8(buf_back, binfo->scrnx, COL8_008484, 0, 0, 79, 15);
putfonts8_asc(buf_back, binfo->scrnx, 0, 0, COL8_FFFFFF, s);
sheet_refresh (sht_back, 0, 0, 80, 16);
sheet_slide (sht_mouse, mx, my);
}
} else if (fifo8_status(&timerfifo1) != 0) {
i = fifo8_get (&timerfifo1);
io_sti();
putfonts8_asc (buf_back, binfo->scrnx, 0, 64, COL8_FFFFFF, "10[sec]");
sheet_refresh(sht_back, 0, 64, 56, 80);
} else if (fifo8_status(&timerfifo2) != 0) {
i = fifo8_get (&timerfifo2);
io_sti();
putfonts8_asc (buf_back, binfo->scrnx, 0, 80, COL8_FFFFFF, "3[sec]");
sheet_refresh(sht_back, 0, 80, 48, 96);
} else if (fifo8_status(&timerfifo3) != 0) {
i = fifo8_get (&timerfifo3);
io_sti();
if (i != 0) {
timer_init(timer3, &timerfifo3, 0);
boxfill8(buf_back, binfo->scrnx, COL8_FFFFFF, 8, 96, 15, 111);
} else {
timer_init(timer3, &timerfifo3, 1);
boxfill8(buf_back, binfo->scrnx, COL8_008484, 8, 96, 15, 111);
}
timer_settime(timer3, 50);
sheet_refresh(sht_back, 8, 96, 16, 112);
}
}
}
}
int main(int argc, char *argv[]) /* main program */
{
int x, retval = 1; /* counters, etc. */
off_t val, len; /* len need to be off_t*/
windows = (WINS *) calloc(1, sizeof(WINS)); /* malloc windows */
head = llalloc(); /* malloc list space */
fpINfilename = NULL; /* allocate in and */
fpOUTfilename = NULL; /* out file name ptrs */
printHex = TRUE; /* address format */
USE_EBCDIC = FALSE; /*use ascii by default*/
/* get cmd line args */
len = parseArgs(argc, argv);
MIN_ADDR_LENGTH = getMinimumAddressLength(len);
use_env(TRUE); /* use env values */
slk_init(0); /* init menu bar */
init_screen(); /* init visuals */
if ((COLS < MIN_COLS) || (LINES < MIN_LINES)) /* screen's too small */
{
endwin();
fprintf(stderr,"\n\nThe screen size too small.\nThe minimum allowable");
fprintf(stderr," screen size is %dx%d\n\n", MIN_COLS, MIN_LINES + 1);
exit(-1);
}
slk_set(6, (printHex) ? "Hex Addr":"Dec Addr", 1);
init_fkeys(); /* define menu bar */
while (retval)
{
free_windows(windows);
/* calculate screen */
BASE = (resize > 0 && resize < COLS) ? resize:((COLS-6-MIN_ADDR_LENGTH)/4);
MAXY = (LINES) - 3;
hex_win_width = BASE * 3;
ascii_win_width = BASE;
hex_outline_width = (BASE * 3) + 3 + MIN_ADDR_LENGTH;
ascii_outline_width = BASE + 2;
init_menu(windows); /* init windows */
head = freeList(head); /* free & init head */
/* print origin loc */
mvwprintw(windows->hex_outline, 0, 1, "%0*d", MIN_ADDR_LENGTH, 0);
if (fpIN != NULL) /* if no infile... */
{
len = maxLoc(fpIN); /* get last file loc */
val = maxLines(len); /* max file lines */
for (x = 0; x <= MAXY && x<=val; x++) /* output lines */
outline(fpIN, x);
}
wmove(windows->hex, 0, 0); /* cursor to origin */
refreshall(windows); /* refresh all wins */
doupdate(); /* update screen */
mvwaddch(windows->scrollbar, 1, 0, ACS_CKBOARD);/* clear scroller */
/* get user input */
retval = wacceptch(windows, len);
}
free(fpINfilename);
free(fpOUTfilename);
freeList(head);
screen_exit(0); /* end visualizations */
return retval; /* return */
}
void HariMain(void)
{
/*
**最初的这部分变量没有通过内存管理来分配，它们本身属于操作系统的一部分，存在于bootpack.hrb所在的那块儿内存空间中
*/
BOOTINFO *binfo = (BOOTINFO *) ADR_BOOTINFO;
MOUSE_DECODE mouse_dec;
MEMMANAGE *memmanage = (MEMMANAGE *)MEMMANAGE_ADDR;
LAYER_MANAGE *layer_manage;
LAYER *layer_bg, *layer_mouse, *layer_window, *layer_windowB[3];
TIMER *timer;
FIFO fifo_mutual; //缓冲区管理，所有中断公用的
TASK *task_a, *task_b[3];
int fifobuf[128]; //缓冲区
int cursor_x = 8, cursor_color = COL8_FFFFFF; //分别代表输入字符后的那个闪烁光标的横坐标和颜色
int mCursorX, mCursorY; //鼠标光标显示位置的横纵坐标
unsigned int memory_total, i;
char buf_cursor[mCursorWidth * mCursorHeight];
unsigned char *buf_bg, *buf_window, *buf_windowB; //屏幕的大背景会在init_screen的时候画出来，这里只需要一个指向它的指针即可
unsigned char strings[40];
mCursorX = binfo->scrnx / 2;
mCursorY = (binfo->scrny - 28)/ 2; //减去下方任务栏的高度
/*内存检查*/
i = memtest(0x00400000, 0xbfffffff) / (1024 * 1024); //i的单位是MB
/*内存管理*/
memmanage_init(memmanage);
memory_total = i * 1024 * 1024;
memmanage_free_4K(memmanage, 0x00001000, 0x0009e000);
memmanage_free_4K(memmanage, 0x00400000, memory_total - 0x00400000);
/*初始化接收中断的缓冲区*/
init_fifo(&fifo_mutual, 128, fifobuf, 0); //初始化mouseFIFO缓冲区，现在还没任务，先指定为0
/*初始化GDT和IDT表以及PIC板的数据*/
init_GDTandIDT(); //初始化GDT和IDT表
init_pic(); //初始化PIC主从板数据，除了IRQ2禁止了全部中断
io_sti(); //开始接收中断
/*初始化PIT中断控制*/
init_PIT();
/*若要接收鼠标中断需要两个步骤，首先必须使鼠标控制电路（就是键盘控制电路的一部分）有效，然后要使鼠标本身有效*/
init_keyboard(&fifo_mutual, 256); //初始化键盘控制器电路
enable_mouse(&fifo_mutual, 512, &mouse_dec); //激活鼠标
/*开放各种中断*/
io_out8(PIC0_IMR, 0xf8); //PIC0开发IRQ(11111000)，开放IRQ0、IRQ1和IRQ2，定时器、键盘中断和从PIC板
io_out8(PIC1_IMR, 0xef); //PIC1开放IRQ(11101111)， 开放鼠标中断
/*初始化任务切换管理*/
task_a = task_init(memmanage); //这个task_a其实代表的就是这些鼠标键盘等的任务
fifo_mutual.task = task_a; //为鼠标键盘等的缓冲区指定唤醒任务为task_a
task_run(task_a, 1, 2);
/*初始化调色板，为图形界面做准备*/
init_palette(); //初始化调色板
/*初始化图层管理，并且初始化鼠标光标和背景的图层*/
layer_manage = layer_man_init(memmanage, binfo->vram, binfo->scrnx, binfo->scrny);
layer_bg = layer_alloc(layer_manage); //为背景分配图层
layer_mouse = layer_alloc(layer_manage); //为鼠标分配图层
layer_window = layer_alloc(layer_manage); //为窗口分配图层
buf_bg = (unsigned char *)memmanage_alloc_4K(memmanage, binfo->scrnx * binfo->scrny); //为背景图形的内容分配内存
buf_window = (unsigned char *)memmanage_alloc_4K(memmanage, 160 * 52); //为窗口图形的内容分配内存
/*为各个图形的图层内容进行设定*/
layer_set(layer_bg, buf_bg, binfo->scrnx, binfo->scrny, -1);
layer_set(layer_mouse, buf_cursor, 16, 16 ,99);
layer_set(layer_window, buf_window, 160, 52, -1);
/*初始化整个桌面背景*/
init_screen(buf_bg, binfo->scrnx, binfo->scrny); //这个时候的init_screen不再是直接画出背景，而是在mBg内存地址中填写好背景内容
layer_slide(layer_bg, 0, 0); //把背景图层从(0,0)坐标开始画
/*初始化鼠标图标*/
init_mouse_cursor(buf_cursor, 99); //初始化鼠标光标
layer_slide(layer_mouse, mCursorX, mCursorY); //现在显示图形不需要再用displayShape函数了，直接用这个图层管理的绘图函数就行
/*初始化窗口*/
create_window(buf_window, 160, 52, "task_a", ACTIVE); //制作窗口
layer_slide(layer_window, 80, 72); //在指定位置显示出窗口
create_textbox(layer_window, 8, 28, 144, 16, COL8_FFFFFF); //在这个窗口中创建一个输入框
/*再画出3个窗口*/
for (i = 0; i < 3; i++) {
layer_windowB[i] = layer_alloc(layer_manage);
buf_windowB = (unsigned char *)memmanage_alloc_4K(memmanage, 144 * 52);
layer_set(layer_windowB[i], buf_windowB, 144, 52, -1); //无透明色
sprintf(strings, "task_b%d", i);
create_window(buf_windowB, 144, 52, strings, INACTIVE);
task_b[i] = task_alloc();
task_b[i]->tss.esp = memmanage_alloc_4K(memmanage, 64 * 1024) + 64 * 1024 - 8;
task_b[i]->tss.eip = (int) &task_b_main;
task_b[i]->tss.es = 1 * 8;
task_b[i]->tss.cs = 2 * 8;
task_b[i]->tss.ss = 1 * 8;
task_b[i]->tss.ds = 1 * 8;
task_b[i]->tss.fs = 1 * 8;
task_b[i]->tss.gs = 1 * 8;
*((int *) (task_b[i]->tss.esp + 4)) = (int) layer_windowB[i];
task_run(task_b[i], 2, i + 1);
}
task_run(task_a, 1, 0);
layer_slide(layer_windowB[0], 240, 72);
layer_slide(layer_windowB[1], 80, 132);
layer_slide(layer_windowB[2], 240, 132);
/*设置好各个图层的高度*/
layer_switch(layer_bg, 0); //把背景图层调为最底层，高度为0
layer_switch(layer_windowB[0], 1); //窗口图层调节为第二层，高度为1
layer_switch(layer_windowB[1], 2); //窗口图层调节为第二层，高度为1
layer_switch(layer_windowB[2], 3); //窗口图层调节为第二层，高度为1
layer_switch(layer_window, 4); //窗口图层调节为第二层，高度为1
layer_switch(layer_mouse, 5); //鼠标图层调为最高层，高度为2
/*定时器的初始化及其设置*/
timer = timer_alloc();
timer_init(timer, &fifo_mutual, 1);
timer_set(timer, 50);
/*在屏幕上显示一些内存、鼠标和键盘等信息*/
sprintf(strings, "Memory has %dMB", i);
displayStrings_CS(buf_bg, binfo->scrnx, 0, 48, COL8_FFFFFF,strings);
layer_refresh(layer_bg, 0, 48, binfo->scrnx, 80);
sprintf(strings, "free memory:%dKB",memmanage_total(memmanage) / 1024);
displayStrings_CS(buf_bg, binfo->scrnx, 120, 48, COL8_FFFFFF,strings); //用字体显示当前内存容量
layer_refresh(layer_bg, 120, 48, binfo->scrnx, 80);
for(;;)
{
/*只有在从中断返回的缓冲区中读取数据的时候才需要禁止中断，因为如果这个时候来了中断而没有禁止的话，
**有可能读脏数据，即把还没有读出的数据的给抹掉或换成别的数据
*/
io_cli();
if(0 == fifo_status(&fifo_mutual)) //当前没有中断产生
{
task_sleep(task_a); //如果没有需要处理的数据，就自己让自己休眠
/*上面的那个函数直接就跳转到另一个任务中去了，不过，因为每个人物的默认eflags都是开启中断的，
**所以不用担心，这个任务还是能被唤醒的，耳环醒后的第一个动作就是为了以防万一先开启中断
*/
io_sti(); //万一只有自己在运行的话，则无法睡眠，那么就执行hlt指令好了，这样省电嘛
}
else
{
i = fifo_get(&fifo_mutual);
io_sti();
if((keyboard_offset <= i) && (i <= keyboard_offset + 255)) //键盘数据
{
sprintf(strings, "%2X", i - keyboard_offset);
displayStrings_atLayer(layer_bg, 0, 0, COL8_FFFFFF, COL8_008484, strings); //由于向背景图层中添加了新东西，需要重绘各个图层
if(i < keyboard_offset + 0x54) //判断按下的字符是否可打印
{
if(0 != key_table[i - keyboard_offset] && cursor_x < 144) //0对应的字符无法打印出来
{
strings[0] = key_table[i - keyboard_offset];
strings[1] = 0;
displayStrings_atLayer(layer_window, cursor_x, 28, COL8_000000, COL8_FFFFFF, strings);
cursor_x += 8; //光标的位置随着每一个字符的输入向后移动一个字符宽度的位置即8像素
}
if((keyboard_offset + 0x0e == i) && cursor_x > 8) //按下了退格键的情况，退格键的号码是0x0e
{
cursor_x -= 8;
/*本来退格键应该只填充一个空格就行的，但是这样的话没办法刷新光标所在的那块儿区域了，
**会留下光标的黑色痕迹，所以直接填充两个空格，刷新之后就不会有痕迹了
*/
displayStrings_atLayer(layer_window, cursor_x, 28, COL8_000000, COL8_FFFFFF, " ");
}
//由于光标坐标后退了，为了及时显示它，需要立即重绘光标
drawRectangle(layer_window->buffer, layer_window->length, cursor_color, cursor_x, 28, 2, 15);
layer_refresh(layer_window, cursor_x, 28, cursor_x + 8, 44);
}
}
else if((mouse_offset <= i) && (i <= mouse_offset + 255)) //鼠标数据
{
if(0 != mouse_decode(&mouse_dec, i - mouse_offset)) //只有返回值为1的时候才说明成功接收完成一次鼠标的中断
{
/*显示鼠标的信息*/
sprintf(strings,"[lcr %3d,%3d]",mouse_dec.x, mouse_dec.y);
if(0 != (mouse_dec.btn & 0x01)) //按下了左键
{
strings[1] = 'L';
layer_slide(layer_window, mCursorX - 80, mCursorY -8); //这行代码是移动窗口的
}
if(0 != (mouse_dec.btn & 0x02)) //按下了右键
{
strings[3] = 'R';
}
if(0 != (mouse_dec.btn & 0x04)) //按下了中键
{
strings[2] = 'C';
}
displayStrings_atLayer(layer_bg, 0, 16, COL8_FFFFFF, COL8_008484, strings);
/*鼠标的移动*/
//根据mouse_dec里存储的鼠标信息画出新的鼠标图像
mCursorX += mouse_dec.x;
mCursorY += mouse_dec.y;
//不能让鼠标移出画面
if(mCursorX < 0)
{
mCursorX = 0;
}
if(mCursorY < 0)
{
mCursorY = 0;
}
if(mCursorX > binfo->scrnx - 1)
{
mCursorX = binfo->scrnx - 1;
}
if(mCursorY > binfo->scrny - 1)
{
mCursorY = binfo->scrny - 1;
}
sprintf(strings, "(%3d,%3d)", mCursorX, mCursorY);
displayStrings_atLayer(layer_bg, 40, 32, COL8_FFFFFF, COL8_008484, strings);
layer_slide(layer_mouse, mCursorX, mCursorY);
}
}
else if(1 == i || 0 == i) //光标闪烁定时器
{
if(0 != i) //这个timer的数据为1的时候显示光标
{
timer_init(timer, &fifo_mutual, 0);
cursor_color = COL8_000000;
}
else //这个timer的数据为0的时候不显示光标
{
timer_init(timer, &fifo_mutual, 1);
cursor_color = COL8_FFFFFF;
}
timer_set(timer, 50);
drawRectangle(layer_window->buffer, layer_window->length, cursor_color, cursor_x, 28, 2, 15);
layer_refresh(layer_window, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
int
main(int argc, char *argv[]) {
char *wmiirc;
WMScreen *s;
WinAttr wa;
int i;
fmtinstall('r', errfmt);
fmtinstall('C', Cfmt);
wmiirc = "wmiistartrc";
ARGBEGIN{
case 'v':
print("%s", version);
exit(0);
case 'V':
verbose = True;
break;
case 'a':
address = EARGF(usage());
break;
case 'r':
wmiirc = EARGF(usage());
break;
default:
usage();
break;
}ARGEND;
if(argc)
usage();
setlocale(LC_CTYPE, "");
starting = True;
initdisplay();
xlib_errorhandler = XSetErrorHandler(errorhandler);
check_other_wm = True;
XSelectInput(display, scr.root.w,
SubstructureRedirectMask
| EnterWindowMask);
XSync(display, False);
check_other_wm = False;
passwd = getpwuid(getuid());
user = estrdup(passwd->pw_name);
init_environment();
sock = ixp_announce(address);
if(sock < 0)
fatal("Can't create socket '%s': %r", address);
if(wmiirc)
spawn_command(wmiirc);
init_traps();
init_atoms();
init_cursors();
init_lock_keys();
srv.preselect = check_preselect;
ixp_listen(&srv, sock, &p9srv, serve_9pcon, nil);
ixp_listen(&srv, ConnectionNumber(display), nil, check_x_event, closedisplay);
def.font = loadfont(FONT);
def.border = 1;
def.colmode = Coldefault;
def.mod = Mod1Mask;
strcpy(def.grabmod, "Mod1");
loadcolor(&def.focuscolor, FOCUSCOLORS);
loadcolor(&def.normcolor, NORMCOLORS);
num_screens = 1;
screens = emallocz(num_screens * sizeof(*screens));
screen = &screens[0];
for(i = 0; i < num_screens; i++) {
s = &screens[i];
init_screen(s);
s->ibuf = allocimage(Dx(s->r), Dy(s->r), scr.depth);
wa.event_mask =
SubstructureRedirectMask
| SubstructureNotifyMask
| EnterWindowMask
| LeaveWindowMask
| FocusChangeMask;
wa.cursor = cursor[CurNormal];
setwinattr(&scr.root, &wa,
CWEventMask
| CWCursor);
initbar(s);
}
screen->focus = nil;
setfocus(screen->barwin, RevertToParent);
scan_wins();
starting = False;
select_view("nil");
update_views();
write_event("FocusTag %s\n", screen->sel->name);
check_x_event(nil);
i = ixp_serverloop(&srv);
if(i)
fprint(2, "%s: error: %r\n", argv0);
cleanup();
if(exitsignal)
raise(exitsignal);
if(execstr)
execl("/bin/sh", "sh", "-c", execstr, nil);
return i;
}
void HariMain(void)
{
int i;
struct BOOTINFO *binfo = (struct BOOTINFO *)0x0ff0;
int xsize = (*binfo).scrnx;
int ysize = (*binfo).scrny;
char *vram = (*binfo).vram;
char msg[40], mcursor[256];
int mx = xsize/2;
int my = ysize/2;
int fifobuf[128];
struct MOUSE_DEC mdec;
unsigned char s[32];
unsigned int memtotal, count = 0;
struct MEMMAN *memman = (struct MEMMAN *)MEMMAN_ADDR;
int cursor_x, cursor_c;
struct SHTCTL *shtctl;
struct SHEET *sht_back, *sht_mouse, *sht_win, *sht_win_b[3];
unsigned char *buf_back, buf_mouse[256], *buf_win, *buf_win_b;
struct TIMER *timer;
struct FIFO32 fifo;
struct TASK *task_a, *task_b[3];
static char keytable[0x54] = {
0, 0, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '^', 0, 0,
'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '@', '[', 0, 0, 'A', 'S',
'D', 'F', 'G', 'H', 'J', 'K', 'L', ';', ':', 0, 0, ']', 'Z', 'X', 'C', 'V',
'B', 'N', 'M', ',', '.', '/', 0, '*', 0, ' ', 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, '7', '8', '9', '-', '4', '5', '6', '+', '1',
'2', '3', '0', '.'
};
init_gdtidt ();
init_pic ();
io_sti ();
fifo32_init(&fifo, 32, fifobuf, 0);
init_pit();
io_out8(PIC0_IMR, 0xf8); /* Allow PIT and Keyboard (11111000) */
io_out8(PIC1_IMR, 0xef); /* Allow Mouse (11101111) */
init_keyboard (&fifo, 256);
enable_mouse (&fifo, 512, &mdec);
timer = timer_alloc();
timer_init(timer, &fifo, 1);
timer_settime(timer, 50);
memtotal = memtest(0x00400000, 0xbfffffff);
memman_init (memman);
memman_free (memman, 0x00001000, 0x009e000); /* 0x00001000 - 0x0009efff */
memman_free (memman, 0x00400000, memtotal - 0x00400000);
init_pallete();
shtctl = shtctl_init (memman, binfo->vram, binfo->scrnx, binfo->scrny);
sht_back = sheet_alloc(shtctl);
sht_mouse = sheet_alloc(shtctl);
sht_win = sheet_alloc(shtctl);
buf_back = (unsigned char *)memman_alloc_4k (memman, binfo->scrnx * binfo->scrny);
buf_win = (unsigned char *)memman_alloc_4k (memman, 160 * 52);
sheet_setbuf (sht_back, buf_back, binfo->scrnx, binfo->scrny, -1);
sheet_setbuf (sht_mouse, buf_mouse, 16, 16, 99);
sheet_setbuf (sht_win, buf_win, 160, 52, -1);
init_screen (buf_back, xsize, ysize);
init_mouse_cursor8 (buf_mouse, 99);
make_window8(buf_win, 160, 52, "task_a", 1);
sprintf (s, "(%d, %d)", mx, my);
putfonts8_asc (buf_back, binfo->scrnx, 0, 0, COL8_FFFFFF, s);
sprintf (s, "Memory %dMB, free : %dKB",
memtotal / (1024 * 1024), memman_total(memman) / 1024);
putfonts8_asc(buf_back, binfo->scrnx, 0, 32, COL8_FFFFFF, s);
make_textbox8 (sht_win, 8, 28, 144, 16, COL8_FFFFFF);
cursor_x = 8;
cursor_c = COL8_FFFFFF;
//=====================
// Task Settings
//=====================
task_a = task_init(memman);
fifo.task = task_a;
for (i = 0; i < 3; i++) {
sht_win_b[i] = sheet_alloc(shtctl);
buf_win_b = (unsigned char *)memman_alloc_4k(memman, 144 * 52);
sheet_setbuf(sht_win_b[i], buf_win_b, 144, 52, -1);
sprintf(s, "task_b%d", i);
make_window8(buf_win_b, 144, 52, s, 0);
task_b[i] = task_alloc();
task_b[i]->tss.esp = memman_alloc_4k(memman, 64 * 1024) + 64 * 1024 - 8;
task_b[i]->tss.eip = (int)&task_b_main;
task_b[i]->tss.es = 1 * 8;
task_b[i]->tss.cs = 2 * 8;
task_b[i]->tss.ss = 1 * 8;
task_b[i]->tss.ds = 1 * 8;
task_b[i]->tss.fs = 1 * 8;
task_b[i]->tss.gs = 1 * 8;
*((int *)(task_b[i]->tss.esp + 4)) = (int)sht_win_b[i];
task_run (task_b[i]);
}
//=======================
// Sheet Setting
//=======================
sheet_slide (sht_back, 0, 0);
sheet_slide (sht_mouse, mx, my);
sheet_slide (sht_win_b[0], 168, 56);
sheet_slide (sht_win_b[1], 8, 116);
sheet_slide (sht_win_b[2], 168, 116);
sheet_slide (sht_win, 8, 56);
sheet_updown (sht_back, 0);
sheet_updown (sht_win_b[0], 1);
sheet_updown (sht_win_b[1], 2);
sheet_updown (sht_win_b[2], 3);
sheet_updown (sht_win, 4);
sheet_updown (sht_mouse, 5);
sheet_refresh (sht_back, 0, 0, binfo->scrnx, 48);
for (;;) {
count ++;
io_cli();
if (fifo32_status(&fifo) == 0) {
task_sleep(task_a);
io_sti();
} else {
i = fifo32_get(&fifo);
io_sti();
if (256 <= i && i <= 511) { // Keyboard Data
sprintf (s, "%x", i - 256);
putfonts8_asc_sht (sht_back, 0, 16, COL8_FFFFFF, COL8_008484, s, 2);
if (i < 256 + 0x54) {
if (keytable[i - 256] != 0) {
s[0] = keytable[i-256];
s[1] = 0;
putfonts8_asc_sht (sht_win, cursor_x, 28, COL8_000000, COL8_FFFFFF, s, 1);
cursor_x += 8;
}
}
if (i == 256 + 0x0e && cursor_x > 8) { // Backspace
putfonts8_asc_sht(sht_win, cursor_x, 28, COL8_000000, COL8_FFFFFF, " ", 1);
cursor_x -= 8;
}
boxfill8 (sht_win->buf, sht_win->bxsize, cursor_c, cursor_x, 28, cursor_x + 7, 43);
sheet_refresh(sht_win, cursor_x, 28, cursor_x + 8, 44);
} else if (512 <= i && i <= 767) { // Mouse Data
if (mouse_decode(&mdec, i-512) != 0) {
sprintf (s, "[lcr %d %d]", mdec.x, mdec.y);
if ((mdec.btn & 0x01) != 0) { s[1] = 'L'; }
if ((mdec.btn & 0x02) != 0) { s[3] = 'R'; }
if ((mdec.btn & 0x04) != 0) { s[2] = 'C'; }
putfonts8_asc_sht (sht_back, 32, 16, COL8_FFFFFF, COL8_008484, s, 15);
mx += mdec.x;
my += mdec.y;
if (mx < 0) { mx = 0; } if (mx > binfo->scrnx - 1) { mx = binfo->scrnx - 1; }
if (my < 0) { my = 0; } if (my > binfo->scrny - 1) { my = binfo->scrny - 1; }
sprintf(s, "(%d, %d)", mx, my);
putfonts8_asc_sht (sht_back, 0, 0, COL8_FFFFFF, COL8_008484, s, 10);
sheet_slide (sht_mouse, mx, my);
if ((mdec.btn & 0x01) != 0) {
sheet_slide (sht_win, mx - 80, my - 8);
}
}
} else if (i == 10) {
putfonts8_asc_sht (sht_back, 0, 64, COL8_FFFFFF, COL8_008484, "10[sec]", 7);
} else if (i == 3) {
putfonts8_asc_sht (sht_back, 0, 80, COL8_FFFFFF, COL8_008484, "3[sec]", 6);
count = 0;
} else if (i <= 1) {
if (i != 0) {
timer_init(timer, &fifo, 0);
cursor_c = COL8_000000;
} else {
timer_init(timer, &fifo, 1);
cursor_c = COL8_FFFFFF;
}
timer_settime(timer, 50);
boxfill8 (sht_win->buf, sht_win->bxsize, cursor_c, cursor_x, 28, cursor_x + 7, 43);
sheet_refresh(sht_win, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
void
HariMain(void)
{
boot_info_t* binfo = (boot_info_t*)ADR_BOOTINFO;
fifo32_t fifo;
int fifobuf[128];
char debug_info[64];
int mouse_x, mouse_y, cursor_x, cursor_c;
int data;
mouse_dec_t mdec;
unsigned int memory_total;
mem_mgr_t* mem_mgr = (mem_mgr_t*)MEMMGR_ADDR;
layer_mgr_t* layer_mgr;
layer_t* back_layer;
layer_t* mouse_layer;
layer_t* win_layer;
layer_t* cons_layer;
unsigned char* back_buf;
unsigned char mouse_buf[256];
unsigned char* win_buf;
unsigned char* cons_buf;
static char s_keytable[0x54] = {
0, 0, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=',
0, 0, 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '[', ']',
0, 0, 'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ';', '\'','`',
0, '\\','Z', 'X', 'C', 'V', 'B', 'N', 'M', ',', '.', '/', 0, '*',
0, ' ', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, '7', '8', '9', '-', '4', '5', '6', '+', '1', '2', '3', '0', '.'
};
task_t* task_a;
task_t* task_cons;
timer_t* timer;
init_gdt_idt();
init_pic();
io_sti(); /* after initialize IDT/PIC, allow all CPU's interruptors */
fifo_init(&fifo, fifobuf, 128, 0);
init_pit(); /* initialize programmable interval timer */
init_keyboard(&fifo, 256);
enable_mouse(&fifo, 512, &mdec);
io_out8(PIC0_IMR, 0xf8); /* set PIT/PIC1/keyboard permission 11111000 */
io_out8(PIC1_IMR, 0xef); /* set mouse permission 11101111 */
memory_total = memory_test(0x00400000, 0xbfffffff);
mem_mgr_init(mem_mgr);
mem_mgr_free(mem_mgr, 0x00001000, 0x0009e000); /*0x00001000~0x0009e000*/
mem_mgr_free(mem_mgr, 0x00400000, memory_total - 0x00400000);
init_palette();
layer_mgr = layer_mgr_init(mem_mgr, binfo->vram,
binfo->screen_x, binfo->screen_y);
task_a = task_init(mem_mgr);
fifo.task = task_a;
task_run(task_a, 1, 2);
/* back layer */
back_layer = layer_alloc(layer_mgr);
back_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr,
binfo->screen_x * binfo->screen_y);
layer_setbuf(back_layer, back_buf,
binfo->screen_x, binfo->screen_y, -1);
init_screen(back_buf, binfo->screen_x, binfo->screen_y);
/* console task */
cons_layer = layer_alloc(layer_mgr);
cons_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr, 256 * 165);
layer_setbuf(cons_layer, cons_buf, 256, 165, -1); /* transparent */
make_window8(cons_buf, 256, 165, "Console", 0);
make_text8(cons_layer, 8, 28, 240, 128, COLOR8_000000);
task_cons = task_alloc();
task_cons->tss.esp = mem_mgr_alloc_4k(mem_mgr, 64 * 1024) + 64 * 1024 - 8;
task_cons->tss.eip = (int)&console_task;
task_cons->tss.es = 1 * 8;
task_cons->tss.cs = 2 * 8;
task_cons->tss.ss = 1 * 8;
task_cons->tss.ds = 1 * 8;
task_cons->tss.fs = 1 * 8;
task_cons->tss.gs = 1 * 8;
*((int*)(task_cons->tss.esp + 4)) = (int)cons_layer;
task_run(task_cons, 2, 2); /* level = 2, priority = 2 */
/* window layer */
win_layer = layer_alloc(layer_mgr);
win_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr, 160 * 52);
layer_setbuf(win_layer, win_buf, 144, 52, -1);
make_window8(win_buf, 144, 52, "TASK-A", 1);
make_text8(win_layer, 8, 28, 128, 16, COLOR8_FFFFFF);
cursor_x = 8;
cursor_c = COLOR8_FFFFFF;
timer = timer_alloc();
timer_init(timer, &fifo, 1);
timer_settimer(timer, 50);
/* mouse layer */
mouse_layer = layer_alloc(layer_mgr);
layer_setbuf(mouse_layer, mouse_buf, 16, 16, 99);
init_mouse_cursor8(mouse_buf, 99);
mouse_x = (binfo->screen_x - 16) / 2;
mouse_y = (binfo->screen_y - 28 - 16) / 2;
layer_slide(back_layer, 0, 0);
layer_slide(cons_layer, 32, 4);
layer_slide(win_layer, 64, 56);
layer_slide(mouse_layer, mouse_x, mouse_y);
layer_updown(back_layer, 0);
layer_updown(cons_layer, 1);
layer_updown(win_layer, 2);
layer_updown(mouse_layer, 3);
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
sprintf(debug_info, "memory total: %dMB, free space: %dKB",
memory_total / (1024 * 1024), mem_mgr_total(mem_mgr) / 1024);
drawstring_and_refresh(back_layer, 0, 32,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 40);
for ( ; ; ) {
io_cli();
if (0 == fifo_size(&fifo)) {
task_sleep(task_a);
io_sti();
}
else {
data = fifo_get(&fifo);
io_sti();
if (256 <= data && data <= 511) {
sprintf(debug_info, "%02X", data - 256);
drawstring_and_refresh(back_layer, 0, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 2);
if (data < (256 + 0x54)) {
if (0 != s_keytable[data - 256] && cursor_x < 128) {
/* normal character, show 1 character, move cursor 1 time */
debug_info[0] = s_keytable[data - 256];
debug_info[1] = 0;
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, debug_info, 1);
cursor_x += 8;
}
}
if ((256 + 0x0e) == data && cursor_x > 8) {
/* backspace, recover cursor by sapce, move back cursor 1 time */
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, " ", 1);
cursor_x -= 8;
}
/* show cursor again */
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
else if (512 <= data && data <= 767) {
if (0 != mouse_decode(&mdec, data - 512)) {
/* show all mouse bytes code */
sprintf(debug_info, "[lcr %4d %4d]", mdec.x, mdec.y);
if (0 != (mdec.state & 0x01))
debug_info[1] = 'L';
if (0 != (mdec.state & 0x02))
debug_info[3] = 'R';
if (0 != (mdec.state & 0x04))
debug_info[2] = 'C';
drawstring_and_refresh(back_layer, 32, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 15);
mouse_x += mdec.x;
mouse_y += mdec.y;
if (mouse_x < 0)
mouse_x = 0;
if (mouse_y < 0)
mouse_y = 0;
if (mouse_x > binfo->screen_x - 1)
mouse_x = binfo->screen_x - 1;
if (mouse_y > binfo->screen_y - 1)
mouse_y = binfo->screen_y - 1;
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
layer_slide(mouse_layer, mouse_x, mouse_y);
if (0 != (mdec.state & 0x01)) {
/* down left click, move window */
layer_slide(win_layer, mouse_x - 80, mouse_y - 8);
}
}
}
else if (data <= 1) { /* timer by cursor */
if (0 != data) {
timer_init(timer, &fifo, 0);
cursor_c = COLOR8_000000;
}
else {
timer_init(timer, &fifo, 1);
cursor_c = COLOR8_FFFFFF;
}
timer_settimer(timer, 50);
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
void
HariMain(void)
{
boot_info_t* binfo = (boot_info_t*)ADR_BOOTINFO;
fifo32_t fifo;
int fifobuf[128];
char debug_info[64];
timer_t* timer1;
timer_t* timer2;
timer_t* timer3;
int mouse_x, mouse_y, cursor_x, cursor_c, task_b_esp;
int data;
mouse_dec_t mdec;
unsigned int memory_total;
mem_mgr_t* mem_mgr = (mem_mgr_t*)MEMMGR_ADDR;
layer_mgr_t* layer_mgr;
layer_t* back_layer;
layer_t* mouse_layer;
layer_t* win_layer;
unsigned char* back_buf;
unsigned char mouse_buf[256];
unsigned char* win_buf;
static char s_keytable[0x54] = {
0, 0, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=',
0, 0, 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '[', ']',
0, 0, 'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ';', '\'','`',
0, '\\','Z', 'X', 'C', 'V', 'B', 'N', 'M', ',', '.', '/', 0, '*',
0, ' ', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, '7', '8', '9', '-', '4', '5', '6', '+', '1', '2', '3', '0', '.'
};
tss32_t tss_a, tss_b;
segment_descriptor_t* gdt = (segment_descriptor_t*)ADR_GDT;
init_gdt_idt();
init_pic();
io_sti(); /* after initialize IDT/PIC, allow all CPU's interruptors */
fifo_init(&fifo, fifobuf, 128);
init_pit(); /* initialize programmable interval timer */
init_keyboard(&fifo, 256);
enable_mouse(&fifo, 512, &mdec);
io_out8(PIC0_IMR, 0xf8); /* set PIT/PIC1/keyboard permission 11111000 */
io_out8(PIC1_IMR, 0xef); /* set mouse permission 11101111 */
set490(&fifo, 1);
timer1 = timer_alloc();
timer_init(timer1, &fifo, 10);
timer_settimer(timer1, 1000);
timer2 = timer_alloc();
timer_init(timer2, &fifo, 3);
timer_settimer(timer2, 300);
timer3 = timer_alloc();
timer_init(timer3, &fifo, 1);
timer_settimer(timer3, 50);
memory_total = memory_test(0x00400000, 0xbfffffff);
mem_mgr_init(mem_mgr);
mem_mgr_free(mem_mgr, 0x00001000, 0x0009e000); /*0x00001000~0x0009e000*/
mem_mgr_free(mem_mgr, 0x00400000, memory_total - 0x00400000);
init_palette();
layer_mgr = layer_mgr_init(mem_mgr, binfo->vram,
binfo->screen_x, binfo->screen_y);
back_layer = layer_alloc(layer_mgr);
mouse_layer = layer_alloc(layer_mgr);
win_layer = layer_alloc(layer_mgr);
back_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr,
binfo->screen_x * binfo->screen_y);
win_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr, 160 * 52);
layer_setbuf(back_layer, back_buf,
binfo->screen_x, binfo->screen_y, -1);
layer_setbuf(mouse_layer, mouse_buf, 16, 16, 99);
layer_setbuf(win_layer, win_buf, 160, 52, -1);
init_screen(back_buf, binfo->screen_x, binfo->screen_y);
init_mouse_cursor8(mouse_buf, 99);
make_window8(win_buf, 160, 52, "Window");
make_text8(win_layer, 8, 28, 144, 16, COLOR8_FFFFFF);
cursor_x = 8;
cursor_c = COLOR8_FFFFFF;
layer_slide(back_layer, 0, 0);
mouse_x = (binfo->screen_x - 16) / 2;
mouse_y = (binfo->screen_y - 28 - 16) / 2;
layer_slide(mouse_layer, mouse_x, mouse_y);
layer_slide(win_layer, 80, 72);
layer_updown(back_layer, 0);
layer_updown(win_layer, 1);
layer_updown(mouse_layer, 2);
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
sprintf(debug_info, "memory total: %dMB, free space: %dKB",
memory_total / (1024 * 1024), mem_mgr_total(mem_mgr) / 1024);
drawstring_and_refresh(back_layer, 0, 32,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 40);
tss_a.ldtr = 0;
tss_a.iomap = 0x40000000;
tss_b.ldtr = 0;
tss_b.iomap = 0x40000000;
set_segment_descriptor(gdt + 3, 103, (int)&tss_a, AR_TSS32);
set_segment_descriptor(gdt + 4, 103, (int)&tss_b, AR_TSS32);
load_tr(3 * 8);
task_b_esp = mem_mgr_alloc_4k(mem_mgr, 64 * 1024) + 64 * 1024 - 8;
tss_b.eip = (int)&task_b_main;
tss_b.eflags = 0x00000202; /* IF = 1 */
tss_b.eax = 0;
tss_b.ecx = 0;
tss_b.edx = 0;
tss_b.ebx = 0;
tss_b.esp = task_b_esp;
tss_b.ebp = 0;
tss_b.esi = 0;
tss_b.edi = 0;
tss_b.es = 1 * 8;
tss_b.cs = 2 * 8;
tss_b.ss = 1 * 8;
tss_b.ds = 1 * 8;
tss_b.fs = 1 * 8;
tss_b.gs = 1 * 8;
*((int*)(task_b_esp + 4)) = (int)back_layer;
mt_init();
for ( ; ; ) {
io_cli();
if (0 == fifo_size(&fifo))
io_stihlt();
else {
data = fifo_get(&fifo);
io_sti();
if (256 <= data && data <= 511) {
sprintf(debug_info, "%02X", data - 256);
drawstring_and_refresh(back_layer, 0, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 2);
if (data < (256 + 0x54)) {
if (0 != s_keytable[data - 256] && cursor_x < 144) {
/* normal character, show 1 character, move cursor 1 time */
debug_info[0] = s_keytable[data - 256];
debug_info[1] = 0;
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, debug_info, 1);
cursor_x += 8;
}
}
if ((256 + 0x0e) == data && cursor_x > 8) {
/* backspace, recover cursor by sapce, move back cursor 1 time */
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, " ", 1);
cursor_x -= 8;
}
/* show cursor again */
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
else if (512 <= data && data <= 767) {
if (0 != mouse_decode(&mdec, data - 512)) {
/* show all mouse bytes code */
sprintf(debug_info, "[lcr %4d %4d]", mdec.x, mdec.y);
if (0 != (mdec.state & 0x01))
debug_info[1] = 'L';
if (0 != (mdec.state & 0x02))
debug_info[3] = 'R';
if (0 != (mdec.state & 0x04))
debug_info[2] = 'C';
drawstring_and_refresh(back_layer, 32, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 15);
mouse_x += mdec.x;
mouse_y += mdec.y;
if (mouse_x < 0)
mouse_x = 0;
if (mouse_y < 0)
mouse_y = 0;
if (mouse_x > binfo->screen_x - 1)
mouse_x = binfo->screen_x - 1;
if (mouse_y > binfo->screen_y - 1)
mouse_y = binfo->screen_y - 1;
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
layer_slide(mouse_layer, mouse_x, mouse_y);
if (0 != (mdec.state & 0x01)) {
/* down left click, move window */
layer_slide(win_layer, mouse_x - 80, mouse_y - 8);
}
}
}
else if (10 == data) {
drawstring_and_refresh(back_layer, 0, 64,
COLOR8_FFFFFF, COLOR8_848484, "10[sec]", 7);
}
else if (3 == data) {
drawstring_and_refresh(back_layer, 0, 80,
COLOR8_FFFFFF, COLOR8_848484, "03[sec]", 7);
}
else if (data <= 1) { /* timer by cursor */
if (0 != data) {
timer_init(timer3, &fifo, 0);
cursor_c = COLOR8_000000;
}
else {
timer_init(timer3, &fifo, 1);
cursor_c = COLOR8_FFFFFF;
}
timer_settimer(timer3, 50);
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
void
HariMain(void)
{
boot_info_t* binfo = (boot_info_t*)ADR_BOOTINFO;
fifo32_t fifo, keycmd;
int fifobuf[128], keycmd_buf[32];
char debug_info[64];
int mouse_x, mouse_y, cursor_x, cursor_c;
int data;
mouse_dec_t mdec;
unsigned int memory_total;
mem_mgr_t* mem_mgr = (mem_mgr_t*)MEMMGR_ADDR;
layer_mgr_t* layer_mgr;
layer_t* back_layer;
layer_t* mouse_layer;
layer_t* win_layer;
layer_t* cons_layer;
unsigned char* back_buf;
unsigned char mouse_buf[256];
unsigned char* win_buf;
unsigned char* cons_buf;
static char s_keytable[0x80] = {
0, 0, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=',
0, 0, 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '[', ']',
0, 0, 'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ';', '\'','`',
0, '\\','Z', 'X', 'C', 'V', 'B', 'N', 'M', ',', '.', '/', 0, '*',
0, ' ', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, '7', '8', '9', '-', '4', '5', '6', '+', '1', '2', '3', '0', '.',
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0
};
static char s_keytable_shift[0x80] = {
0, 0, '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '_', '+',
0, 0, 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '{', '}',
0, 0, 'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', '\"','~',
0, '|', 'Z', 'X', 'C', 'V', 'B', 'N', 'M', '<', '>', '?', 0, '*',
0, ' ', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, '7', '8', '9', '-', '4', '5', '6', '+', '1', '2', '3', '0', '.',
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0
};
task_t* task_a;
task_t* task_cons;
timer_t* timer;
int key_to = 0, key_shift = 0;
int key_leds = (binfo->leds >> 4) & 7; /* CapsLock state */
int keycmd_wait = -1;
init_gdt_idt();
init_pic();
io_sti(); /* after initialize IDT/PIC, allow all CPU's interruptors */
fifo_init(&fifo, fifobuf, 128, 0);
init_pit(); /* initialize programmable interval timer */
init_keyboard(&fifo, 256);
enable_mouse(&fifo, 512, &mdec);
io_out8(PIC0_IMR, 0xf8); /* set PIT/PIC1/keyboard permission 11111000 */
io_out8(PIC1_IMR, 0xef); /* set mouse permission 11101111 */
fifo_init(&keycmd, keycmd_buf, 32, 0);
memory_total = memory_test(0x00400000, 0xbfffffff);
mem_mgr_init(mem_mgr);
mem_mgr_free(mem_mgr, 0x00001000, 0x0009e000); /*0x00001000~0x0009e000*/
mem_mgr_free(mem_mgr, 0x00400000, memory_total - 0x00400000);
init_palette();
layer_mgr = layer_mgr_init(mem_mgr, binfo->vram,
binfo->screen_x, binfo->screen_y);
task_a = task_init(mem_mgr);
fifo.task = task_a;
task_run(task_a, 1, 2);
/* back layer */
back_layer = layer_alloc(layer_mgr);
back_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr,
binfo->screen_x * binfo->screen_y);
layer_setbuf(back_layer, back_buf,
binfo->screen_x, binfo->screen_y, -1);
init_screen(back_buf, binfo->screen_x, binfo->screen_y);
/* console task */
cons_layer = layer_alloc(layer_mgr);
cons_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr, 256 * 165);
layer_setbuf(cons_layer, cons_buf, 256, 165, -1); /* transparent */
make_window8(cons_buf, 256, 165, "Console", 0);
make_text8(cons_layer, 8, 28, 240, 128, COLOR8_000000);
task_cons = task_alloc();
task_cons->tss.esp = mem_mgr_alloc_4k(mem_mgr, 64 * 1024) + 64 * 1024 - 8;
task_cons->tss.eip = (int)&console_task;
task_cons->tss.es = 1 * 8;
task_cons->tss.cs = 2 * 8;
task_cons->tss.ss = 1 * 8;
task_cons->tss.ds = 1 * 8;
task_cons->tss.fs = 1 * 8;
task_cons->tss.gs = 1 * 8;
*((int*)(task_cons->tss.esp + 4)) = (int)cons_layer;
task_run(task_cons, 2, 2); /* level = 2, priority = 2 */
/* window layer */
win_layer = layer_alloc(layer_mgr);
win_buf = (unsigned char*)mem_mgr_alloc_4k(mem_mgr, 160 * 52);
layer_setbuf(win_layer, win_buf, 144, 52, -1);
make_window8(win_buf, 144, 52, "TASK-A", 1);
make_text8(win_layer, 8, 28, 128, 16, COLOR8_FFFFFF);
cursor_x = 8;
cursor_c = COLOR8_FFFFFF;
timer = timer_alloc();
timer_init(timer, &fifo, 1);
timer_settimer(timer, 50);
/* mouse layer */
mouse_layer = layer_alloc(layer_mgr);
layer_setbuf(mouse_layer, mouse_buf, 16, 16, 99);
init_mouse_cursor8(mouse_buf, 99);
mouse_x = (binfo->screen_x - 16) / 2;
mouse_y = (binfo->screen_y - 28 - 16) / 2;
layer_slide(back_layer, 0, 0);
layer_slide(cons_layer, 32, 4);
layer_slide(win_layer, 64, 56);
layer_slide(mouse_layer, mouse_x, mouse_y);
layer_updown(back_layer, 0);
layer_updown(cons_layer, 1);
layer_updown(win_layer, 2);
layer_updown(mouse_layer, 3);
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
sprintf(debug_info, "memory total: %dMB, free space: %dKB",
memory_total / (1024 * 1024), mem_mgr_total(mem_mgr) / 1024);
drawstring_and_refresh(back_layer, 0, 32,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 40);
fifo_put(&keycmd, KEYCMD_LED);
fifo_put(&keycmd, key_leds);
for ( ; ; ) {
if (fifo_size(&keycmd) > 0 && keycmd_wait < 0) {
/* send it when send data to keyboard controller */
keycmd_wait = fifo_get(&keycmd);
wait_kbc_sendready();
io_out8(PORT_KEYDATA, keycmd_wait);
}
io_cli();
if (0 == fifo_size(&fifo)) {
task_sleep(task_a);
io_sti();
}
else {
data = fifo_get(&fifo);
io_sti();
if (256 <= data && data <= 511) {
sprintf(debug_info, "%02X", data - 256);
drawstring_and_refresh(back_layer, 0, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 2);
if (data < (256 + 0x80)) {
/* translation character */
if (0 == key_shift)
debug_info[0] = s_keytable[data - 256];
else
debug_info[0] = s_keytable_shift[data - 256];
}
else
debug_info[0] = 0;
if ('A' <= debug_info[0] && debug_info[0] <= 'Z') {
/* it's an english character */
if ((0 == (key_leds & 4) && 0 == key_shift)
|| (0 != (key_leds & 4) && 0 != key_shift))
debug_info[0] += 0x20; /* character lower ('A' -> 'a') */
}
if (0 != debug_info[0]) {
/* general character */
if (0 == key_to) {
/* send character data to TASK-A */
if (cursor_x < 128) {
/* display one character and cursor move backward one */
debug_info[1] = 0;
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, debug_info, 1);
cursor_x += 8;
}
}
else /* send character data to console window */
fifo_put(&task_cons->fifo, debug_info[0] + 256);
}
if ((256 + 0x0e) == data) {
/* backspace, recover cursor by sapce, move back cursor 1 time */
if (0 == key_to) {
if (cursor_x > 8) {
drawstring_and_refresh(win_layer, cursor_x, 28,
COLOR8_000000, COLOR8_FFFFFF, " ", 1);
cursor_x -= 8;
}
}
else
fifo_put(&task_cons->fifo, 8 + 256);
}
if ((256 + 0x0f) == data) {
/* TAB */
if (0 == key_to) {
key_to = 1;
make_title8(win_buf, win_layer->w_size, "TASK-A", 0);
make_title8(cons_buf, cons_layer->w_size, "Console", 1);
}
else {
key_to = 0;
make_title8(win_buf, win_layer->w_size, "TASK-A", 1);
make_title8(cons_buf, cons_layer->w_size, "Console", 0);
}
layers_refresh(win_layer, 0, 0, win_layer->w_size, 21);
layers_refresh(cons_layer, 0, 0, cons_layer->w_size, 21);
}
if ((256 + 0x2a) == data) /* left shift down */
key_shift |= 1;
if ((256 + 0x36) == data) /* right shift down */
key_shift |= 2;
if ((256 + 0xaa) == data) /* left shift up */
key_shift &= ~1;
if ((256 + 0xb6) == data) /* right shift up */
key_shift &= ~2;
if ((256 + 0x3a) == data) { /* CapsLock */
key_leds ^= 4;
fifo_put(&keycmd, KEYCMD_LED);
fifo_put(&keycmd, key_leds);
}
if ((256 + 0x45) == data) { /* NumLock */
key_leds ^= 2;
fifo_put(&keycmd, KEYCMD_LED);
fifo_put(&keycmd, key_leds);
}
if ((256 + 0x46) == data) { /* ScrollLock */
key_leds ^= 1;
fifo_put(&keycmd, KEYCMD_LED);
fifo_put(&keycmd, key_leds);
}
if ((256 + 0xfa) == data) /* keyboard recevie data success */
keycmd_wait = -1;
if ((256 + 0xfe) == data) { /* keyboard recevie data failed */
wait_kbc_sendready();
io_out8(PORT_KEYDATA, keycmd_wait);
}
/* show cursor again */
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
else if (512 <= data && data <= 767) {
if (0 != mouse_decode(&mdec, data - 512)) {
/* show all mouse bytes code */
sprintf(debug_info, "[lcr %4d %4d]", mdec.x, mdec.y);
if (0 != (mdec.state & 0x01))
debug_info[1] = 'L';
if (0 != (mdec.state & 0x02))
debug_info[3] = 'R';
if (0 != (mdec.state & 0x04))
debug_info[2] = 'C';
drawstring_and_refresh(back_layer, 32, 16,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 15);
mouse_x += mdec.x;
mouse_y += mdec.y;
if (mouse_x < 0)
mouse_x = 0;
if (mouse_y < 0)
mouse_y = 0;
if (mouse_x > binfo->screen_x - 1)
mouse_x = binfo->screen_x - 1;
if (mouse_y > binfo->screen_y - 1)
mouse_y = binfo->screen_y - 1;
sprintf(debug_info, "(%3d, %3d)", mouse_x, mouse_y);
drawstring_and_refresh(back_layer, 0, 0,
COLOR8_FFFFFF, COLOR8_848484, debug_info, 10);
layer_slide(mouse_layer, mouse_x, mouse_y);
if (0 != (mdec.state & 0x01)) {
/* down left click, move window */
layer_slide(win_layer, mouse_x - 80, mouse_y - 8);
}
}
}
else if (data <= 1) { /* timer by cursor */
if (0 != data) {
timer_init(timer, &fifo, 0);
cursor_c = COLOR8_000000;
}
else {
timer_init(timer, &fifo, 1);
cursor_c = COLOR8_FFFFFF;
}
timer_settimer(timer, 50);
fill_box8(win_layer->buf, win_layer->w_size,
cursor_c, cursor_x, 28, cursor_x + 7, 43);
layers_refresh(win_layer, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
int main(int argc, char* argv[])
{
char* path_to_config;
char* path_to_errors;
int is_batch_mode;
int key = 0;
int list_scr = 0;
struct process_list* proc_list;
screen_t* screen = NULL;
int screen_num = 0;
int q;
int paranoia_level;
/* Check OS to make sure we can run. */
paranoia_level = check();
init_options(&options);
options.paranoia_level = paranoia_level;
path_to_config = get_path_to_config(argc, argv);
path_to_errors = get_path_to_error(argc, argv);
is_batch_mode = get_batch_mode(argc, argv);
init_errors(is_batch_mode, path_to_errors);
q = read_config(path_to_config, &options);
if (q == 0) {
debug_printf("Config file successfully parsed.\n");
options.config_file = 1;
}
else
debug_printf("Could not parse config file.\n");
/* Parse command line arguments. */
parse_command_line(argc, argv, &options, &list_scr, &screen_num);
/* Add default screens */
if (options.default_screen == 1)
init_screen();
/* Remove unused but declared counters */
tamp_counters();
if (list_scr) {
list_screens();
delete_screens();
exit(0);
}
if (options.spawn_pos) {
/* monitor only spawned process */
int child = spawn(argv + options.spawn_pos);
options.only_pid = child;
options.idle = 1;
}
do {
if (screen_num >= 0)
screen = get_screen(screen_num);
else
screen = get_screen_by_name(argv[-screen_num]);
if (!screen) {
fprintf(stderr, "No such screen.\n");
exit(EXIT_FAILURE);
}
/* initialize the list of processes, and then run */
proc_list = init_proc_list();
if (options.spawn_pos) {
options.spawn_pos = 0; /* do this only once */
new_processes(proc_list, screen, &options);
start_child();
}
if (options.batch) {
batch_mode(proc_list, screen);
key = 'q';
}
#ifdef HAVE_LIBCURSES
else {
key = live_mode(proc_list, screen);
if ((key == '+') || (key == KEY_RIGHT)) {
screen_num = (screen_num + 1) % get_num_screens();
active_col = 0;
done_proc_list(proc_list);
free(header);
}
if ((key == '-') || (key == KEY_LEFT)) {
int n = get_num_screens();
screen_num = (screen_num + n - 1) % n;
active_col = 0;
done_proc_list(proc_list);
free(header);
}
if ((key == 'u') || (key == 'K') || (key == 'p')) {
done_proc_list(proc_list);
}
}
#endif
} while (key != 'q');
/* done, free memory (makes valgrind happy) */
close_error();
delete_screens();
done_proc_list(proc_list);
free_options(&options);
return 0;
}
void init()
{
init_screen();
init_gdt();
for(;;);
}
int main(int argc, char **argv)
{
/* PacketQueue *a = av_mallocz(sizeof(PacketQueue));
AVPacket *p = av_mallocz(sizeof(AVPacket));
AVPacket *b = av_mallocz(sizeof(AVPacket));
add_to_queue(a, p);
add_to_queue(a, p);
add_to_queue(a, p);
add_to_queue(a, p);
get_from_queue(a, b);
add_to_queue(a, p);
get_from_queue(a, b);
get_from_queue(a, b);
get_from_queue(a, b);
get_from_queue(a, b);
av_free(a);
av_free(p);
*/
FileState *file = av_mallocz(sizeof(FileState));
VideoState *video = av_mallocz(sizeof(VideoState));
AudioState *audio = av_mallocz(sizeof(AudioState));
State *state = av_mallocz(sizeof(State));
SDL_Thread *video_decode_tid;
SDL_Thread *read_pkt_tid;
SDL_Thread *play_tid;
state->file = file;
state->video = video;
state->audio = audio;
if(argc < 2) {
fprintf(stderr, "Usage : play <file>\n");
exit(1);
}
av_register_all();
if(SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_TIMER)) {
fprintf(stderr, "Could not initialize SDL - %s\n", SDL_GetError());
exit(1);
}
av_strlcpy(file->fileName, argv[1], sizeof(file->fileName));
video->vFrameqMutex = SDL_CreateMutex();
video->vFrameqCond = SDL_CreateCond();
get_file_info(file);
find_av_streams(file, video, audio);
//find_audio_decoder(audio);
init_screen(video);
read_pkt_tid = SDL_CreateThread(queue_av_pkt, state);
init_frame(video);
video_decode_tid = SDL_CreateThread(decode_video, video);
/*
video->frame_timer = (double)av_gettime() / 1000000.0;
video->frame_last_delay = 40e-3;
video->pCodecCtx->get_buffer = our_get_buffer;
video->pCodecCtx->release_buffer = our_release_buffer;*/
// play_tid = SDL_CreateThread(play_video, video);
while(true) {
// decode_video(video);
play_video(video);
}
sleep(10);
if(!video_decode_tid) {
av_free(video_decode_tid);
return -1;
}
if(!read_pkt_tid) {
av_free(read_pkt_tid);
return -1;
}
return 0;
}
void HariMain(void)
{
/*
**最初的这部分变量没有通过内存管理来分配，它们本身属于操作系统的一部分，存在于bootpack.hrb所在的那块儿内存空间中
*/
BOOTINFO *binfo = (BOOTINFO *) ADR_BOOTINFO;
MOUSE_DECODE mouse_dec;
MEMMANAGE *memmanage = (MEMMANAGE *)MEMMANAGE_ADDR;
LAYER_MANAGE *layer_manage;
LAYER *layer_bg, *layer_mouse, *layer_window, *layer_console;
TIMER *timer;
FIFO fifo_mutual; //缓冲区管理，所有中断公用的
FIFO keycmd_fifo;
TASK *task_a, *task_console;
int fifobuf[128]; //缓冲区
int keycmd_buf[32];
int cursor_x = 8, cursor_color = COL8_000000; //分别代表输入字符后的那个闪烁光标的横坐标和颜色
int mCursorX, mCursorY; //鼠标光标显示位置的横纵坐标
int key_to = 0, key_shift = 0, key_leds = (binfo->leds >> 4) & 7, keycmd_wait = -1; //标志键盘输入到哪个窗口中
unsigned int memory_total, i;
char buf_cursor[mCursorWidth * mCursorHeight];
unsigned char *buf_bg, *buf_window, *buf_console; //屏幕的大背景会在init_screen的时候画出来，这里只需要一个指向它的指针即可
unsigned char strings[40];
mCursorX = binfo->scrnx / 2;
mCursorY = (binfo->scrny - 28)/ 2; //减去下方任务栏的高度
/*内存检查*/
i = memtest(0x00400000, 0xbfffffff) / (1024 * 1024); //i的单位是MB
/*内存管理*/
memmanage_init(memmanage);
memory_total = i * 1024 * 1024;
memmanage_free_4K(memmanage, 0x00001000, 0x0009e000);
memmanage_free_4K(memmanage, 0x00400000, memory_total - 0x00400000);
init_fifo(&keycmd_fifo, 32, keycmd_buf, 0);
/*初始化接收中断的缓冲区*/
init_fifo(&fifo_mutual, 128, fifobuf, 0); //初始化mouseFIFO缓冲区，现在还没任务，先指定为0
/*初始化GDT和IDT表以及PIC板的数据*/
init_GDTandIDT(); //初始化GDT和IDT表
init_pic(); //初始化PIC主从板数据，除了IRQ2禁止了全部中断
io_sti(); //开始接收中断
/*初始化PIT中断控制*/
init_PIT();
/*若要接收鼠标中断需要两个步骤，首先必须使鼠标控制电路（就是键盘控制电路的一部分）有效，然后要使鼠标本身有效*/
init_keyboard(&fifo_mutual, 256); //初始化键盘控制器电路
enable_mouse(&fifo_mutual, 512, &mouse_dec); //激活鼠标
/*开放各种中断*/
io_out8(PIC0_IMR, 0xf8); //PIC0开发IRQ(11111000)，开放IRQ0、IRQ1和IRQ2，定时器、键盘中断和从PIC板
io_out8(PIC1_IMR, 0xef); //PIC1开放IRQ(11101111)， 开放鼠标中断
/*初始化任务切换管理*/
task_a = task_init(memmanage); //这个task_a其实代表的就是这些鼠标键盘等的任务
fifo_mutual.task = task_a; //为鼠标键盘等的缓冲区指定唤醒任务为task_a
task_run(task_a, 1, 2);
/*初始化调色板，为图形界面做准备*/
init_palette(); //初始化调色板
/*初始化图层管理，并且初始化鼠标光标和背景的图层*/
layer_manage = layer_man_init(memmanage, binfo->vram, binfo->scrnx, binfo->scrny);
layer_bg = layer_alloc(layer_manage); //为背景分配图层
layer_mouse = layer_alloc(layer_manage); //为鼠标分配图层
layer_window = layer_alloc(layer_manage); //为窗口分配图层
buf_bg = (unsigned char *)memmanage_alloc_4K(memmanage, binfo->scrnx * binfo->scrny); //为背景图形的内容分配内存
buf_window = (unsigned char *)memmanage_alloc_4K(memmanage, 160 * 52); //为窗口图形的内容分配内存
/*为各个图形的图层内容进行设定*/
layer_set(layer_bg, buf_bg, binfo->scrnx, binfo->scrny, -1);
layer_set(layer_mouse, buf_cursor, 16, 16 ,99);
layer_set(layer_window, buf_window, 160, 52, -1);
/*初始化整个桌面背景*/
init_screen(buf_bg, binfo->scrnx, binfo->scrny); //这个时候的init_screen不再是直接画出背景，而是在mBg内存地址中填写好背景内容
layer_slide(layer_bg, 0, 0); //把背景图层从(0,0)坐标开始画
/*初始化鼠标图标*/
init_mouse_cursor(buf_cursor, 99); //初始化鼠标光标
layer_slide(layer_mouse, mCursorX, mCursorY); //现在显示图形不需要再用displayShape函数了，直接用这个图层管理的绘图函数就行
/*初始化窗口*/
create_window(buf_window, 160, 52, "task_a", ACTIVE); //制作窗口
layer_slide(layer_window, 80, 100); //在指定位置显示出窗口
create_textbox(layer_window, 8, 28, 144, 16, COL8_FFFFFF); //在这个窗口中创建一个输入框
/*执行一个命令行窗口任务*/
layer_console = layer_alloc(layer_manage);
buf_console = (unsigned char *)memmanage_alloc_4K(memmanage, 256 * 165);
layer_set(layer_console, buf_console, 256, 165, -1);
create_window(buf_console, 256, 165, "console", INACTIVE);
create_textbox(layer_console, 8, 28, 240, 128, COL8_000000);
task_console = task_alloc();
task_console->tss.esp = memmanage_alloc_4K(memmanage, 64 * 1024) + 64 * 1024 - 12; //由于这里要传入两个参数，所以减去了12
task_console->tss.eip = (int) &console_task;
task_console->tss.es = 1 * 8;
task_console->tss.cs = 2 * 8;
task_console->tss.ss = 1 * 8;
task_console->tss.ds = 1 * 8;
task_console->tss.fs = 1 * 8;
task_console->tss.gs = 1 * 8;
*((int *) (task_console->tss.esp + 4)) = (int) layer_console;
*((int *) (task_console->tss.esp + 8)) = memory_total;
task_run(task_console, 2, 2); /* level=2, priority=2 */
layer_slide(layer_console, 32, 60);
/*设置好各个图层的高度*/
layer_switch(layer_bg, 0); //把背景图层调为最底层，高度为0
layer_switch(layer_console, 1); //命令行窗口图层调节为第三层，高度为2
layer_switch(layer_window, 2); //窗口图层调节为第二层，高度为1
layer_switch(layer_mouse, 3); //鼠标图层调为最高层，高度为3
/*定时器的初始化及其设置*/
timer = timer_alloc();
timer_init(timer, &fifo_mutual, 1);
timer_set(timer, 50);
//
fifo_put(&keycmd_fifo, KEYCMD_LED);
fifo_put(&keycmd_fifo, key_leds);
for(;;)
{
if(fifo_status(&keycmd_fifo) > 0 && keycmd_wait < 0)
{
keycmd_wait = fifo_get(&keycmd_fifo);
wait_KBC_sendready();
io_out8(PORT_KEYDATA, keycmd_wait);
}
/*只有在从中断返回的缓冲区中读取数据的时候才需要禁止中断，因为如果这个时候来了中断而没有禁止的话，
**有可能读脏数据，即把还没有读出的数据的给抹掉或换成别的数据
*/
io_cli();
if(0 == fifo_status(&fifo_mutual)) //当前没有中断产生
{
task_sleep(task_a); //如果没有需要处理的数据，就自己让自己休眠
/*上面的那个函数直接就跳转到另一个任务中去了，不过，因为每个人物的默认eflags都是开启中断的，
**所以不用担心，这个任务还是能被唤醒的，耳环醒后的第一个动作就是为了以防万一先开启中断
*/
io_sti(); //万一只有自己在运行的话，则无法睡眠，那么就执行hlt指令好了，这样省电嘛
}
else
{
i = fifo_get(&fifo_mutual);
io_sti();
//如果是键盘中断的话，需要处理键盘发送来的中断数据
if((keyboard_offset <= i) && (i <= keyboard_offset + 255))
{
//判断shift键是否按下，然后使用不同的keytable表
if(i < 0x80 + keyboard_offset)
{
if(0 == key_shift)
{
strings[0] = key_table[i - keyboard_offset];
}
else
{
strings[0] = key_table_shift[i - keyboard_offset];
}
}
else
{
strings[0] = 0;
}
//判断Caps和Shift键的情况以确定输入大写还是小写字母
if('A' <= strings[0] && strings[0] <= 'Z')
{
//小写字母的情况
if((0 == (key_leds & 4) && 0 == key_shift) || (0 != (key_leds & 4) && 0 != key_shift))
{
strings[0] += 0x20;
}
}
//判断按下的字符是否为一般字符，0对应的字符不处理
if(strings[0] != 0)
{
//发送给task_a任务的窗口
if(0 == key_to)
{
//所有可打印的字符都需要打印出来
if(cursor_x < 144)
{
strings[1] = 0;
displayStrings_atLayer(layer_window, cursor_x, 28, COL8_000000, COL8_FFFFFF, strings);
cursor_x += 8; //光标的位置随着每一个字符的输入向后移动一个字符宽度的位置即8像素
}
}
//发送给命令行窗口
else
{
fifo_put(&task_console->fifo, strings[0] + 256);
}
}
/*这些都是那些不能打印的特殊按键，它们对应的都是0*/
//按下了“退格键”的情况，退格键的号码是0x0e
if((keyboard_offset + 0x0e == i))
{
if(0 == key_to)
{
//只有当前的输入位置上有字符了才能向前删除
if(cursor_x > 8)
{
cursor_x -= 8;
/*本来退格键应该只填充一个空格就行的，但是这样的话没办法刷新光标所在的那块儿区域了，
**会留下光标的黑色痕迹，所以直接填充两个空格，刷新之后就不会有痕迹了
*/
displayStrings_atLayer(layer_window, cursor_x, 28, COL8_000000, COL8_FFFFFF, " ");
}
}
else
{
fifo_put(&task_console->fifo, 8 + keyboard_offset);
}
}
//由于光标坐标后退了或者因删除字符而前移了，为了及时显示它，需要立即重绘光标
if(cursor_color > 0) //这个光标的颜色值如果大于0，说明当前需要task_a来显示光标
{
drawRectangle(layer_window->buffer, layer_window->length, cursor_color, cursor_x, 28, 2, 15);
}
layer_part_refresh(layer_window, cursor_x, 28, cursor_x + 8, 44);
//按下“TAB键”的处理情况，切换输入窗口
if(keyboard_offset + 0x0f == i)
{
if(0 == key_to) //当前最前面窗口为task_a，则让console窗口成为最前端窗口
{
key_to = 1;
create_titlebar(buf_window, layer_window->length, "task_a", INACTIVE);
create_titlebar(buf_console, layer_console->length, "console", ACTIVE);
cursor_color = -1; //task_a不显示光标
drawRectangle(layer_window->buffer, layer_window->length, COL8_FFFFFF, cursor_x, 28, 2, 15);
fifo_put(&task_console->fifo, 2); //当缓冲区中传入数据2时表示命令行窗口光标显示
}
else //task_a任务的窗口成为最前端窗口
{
key_to = 0;
create_titlebar(buf_window, layer_window->length, "task_a", ACTIVE);
create_titlebar(buf_console, layer_console->length, "console", INACTIVE);
cursor_color = COL8_000000;
fifo_put(&task_console->fifo, 3); //当缓冲区中传入数据3时表示命令行窗口光标不显示
}
layer_part_refresh(layer_window, 0, 0, layer_window->length, 21);
layer_part_refresh(layer_console, 0, 0, layer_console->length, 21);
}
//按下“回车键”的处理情况
if(keyboard_offset + 0x1c == i)
{
//发送至命令行窗口
if(0 != key_to)
{
fifo_put(&task_console->fifo, 10 + keyboard_offset); //传入10代表按下了回车键
}
}
//左shift ON
if(0x2a + keyboard_offset == i)
{
key_shift |= 1;
}
//右shift ON
if(0x36 + keyboard_offset == i)
{
key_shift |= 2;
}
//左shift OFF
if(0xaa + keyboard_offset == i)
{
key_shift &= ~1;
}
//左shift OFF
if(0xb6 + keyboard_offset == i)
{
key_shift &= ~2;
}
/*对各种锁定键的处理*/
//CapsLock键
if(i == keyboard_offset + 0x3a)
{
key_leds ^= 4;
fifo_put(&keycmd_fifo, KEYCMD_LED);
fifo_put(&keycmd_fifo, key_leds);
}
//NumLock键
if(i == keyboard_offset + 0x45)
{
key_leds ^= 2;
fifo_put(&keycmd_fifo, KEYCMD_LED);
fifo_put(&keycmd_fifo, key_leds);
}
//ScrollLock键
if(i == keyboard_offset + 0x46)
{
key_leds ^= 1;
fifo_put(&keycmd_fifo, KEYCMD_LED);
fifo_put(&keycmd_fifo, key_leds);
}
//键盘成功接收到数据
if(i == keyboard_offset + 0xfa)
{
keycmd_wait = -1;
}
//键盘没有成功接收到数据
if(i == keyboard_offset + 0xfe)
{
wait_KBC_sendready();
io_out8(PORT_KEYDATA, keycmd_wait);
}
}
//如果是鼠标中断的话，需要处理鼠标发送来的中断数据
else if((mouse_offset <= i) && (i <= mouse_offset + 255))
{
if(0 != mouse_decode(&mouse_dec, i - mouse_offset)) //只有返回值为1的时候才说明成功接收完成一次鼠标的中断
{
if(0 != (mouse_dec.btn & 0x01)) //按下了左键
{
layer_slide(layer_window, mCursorX - 80, mCursorY -8); //这行代码是移动窗口的
}
/*鼠标的移动*/
//根据mouse_dec里存储的鼠标信息画出新的鼠标图像
mCursorX += mouse_dec.x;
mCursorY += mouse_dec.y;
//不能让鼠标移出画面
if(mCursorX < 0)
{
mCursorX = 0;
}
if(mCursorY < 0)
{
mCursorY = 0;
}
if(mCursorX > binfo->scrnx - 1)
{
mCursorX = binfo->scrnx - 1;
}
if(mCursorY > binfo->scrny - 1)
{
mCursorY = binfo->scrny - 1;
}
layer_slide(layer_mouse, mCursorX, mCursorY);
}
}
//如果是定时器中断的话，需要处理定时器对应的任务
else if(1 == i || 0 == i)
{
if(0 != i) //这个timer的数据为1的时候显示光标
{
timer_init(timer, &fifo_mutual, 0);
if(cursor_color >= 0) //需要当前显示光标的时候，才对这个颜色值进行赋值
{
cursor_color = COL8_000000;
}
}
else //这个timer的数据为0的时候不显示光标
{
timer_init(timer, &fifo_mutual, 1);
if(cursor_color >= 0)
{
cursor_color = COL8_FFFFFF;
}
}
timer_set(timer, 50);
if(cursor_color >= 0)
{
drawRectangle(layer_window->buffer, layer_window->length, cursor_color, cursor_x, 28, 2, 15);
layer_part_refresh(layer_window, cursor_x, 28, cursor_x + 8, 44);
}
}
}
}
}
void HariMain(void)
{
BOOTINFO_t *binfo;
char mcursor[16*16];
int mx, my, i;
extern char hankaku[4096];
char s[40], keybuf[32], mousebuf[128];
binfo = (BOOTINFO_t *)BOOTINFO_ENTRY;
fifo8_init(&keyfifo, 32, keybuf);
fifo8_init(&mousefifo, 128, mousebuf);
// init programmable interrupt controller
init_gdtidt();
init_pic();
io_sti(); // 开启中断
// init fifo buffer
// ......
io_out8(PIC0_IMR, 0xf9); /* (11111001) 设置PIC0 中断mask , 打开irq1 */
io_out8(PIC1_IMR, 0xef); /* (11101111) 设置PIC1 中断mask , 打开irq12 */
init_keyboard(); // 初始化键盘控制芯片中的鼠标控制器
init_palette();
init_screen(binfo->vram, binfo->scrnx, binfo->scrny);
// static char font_A[16] = {
// 0x00, 0x18, 0x18, 0x18, 0x18, 0x24, 0x24, 0x24,
// 0x24, 0x7e, 0x42, 0x42, 0x42, 0xe7, 0x00, 0x00
// };
putfont8(binfo->vram, binfo->scrnx, 8, 8, COL8_0000FF, hankaku+'A'*16);
putfonts8_asc(binfo->vram, binfo->scrnx, 16, 8, COL8_0000FF, "BC 123");
putfonts8_asc(binfo->vram, binfo->scrnx, 31, 31, COL8_000000, "EasyOS.");
putfonts8_asc(binfo->vram, binfo->scrnx, 30, 30, COL8_FFFFFF, "EasyOS.");
mx = my = 100;
init_mouse_cursor8(mcursor, COL8_008484);
putblock8_8(binfo->vram, binfo->scrnx, 16, 16, mx, my, mcursor, 16);
enable_mouse(); // 通知开启鼠标中断信息产生
for (;;) {
io_cli(); // 屏蔽中断
if (fifo8_status(&keyfifo) + fifo8_status(&mousefifo) == 0) {
io_stihlt(); // 恢复中断并挂起
} else {
if (fifo8_status(&keyfifo) != 0) {
i = fifo8_get(&keyfifo);
io_sti();
sprintf(s, "%02X", i);
boxfill8(binfo->vram, binfo->scrnx, COL8_008484, 0, 16, 15, 31);
putfonts8_asc(binfo->vram, binfo->scrnx, 0, 16, COL8_FFFFFF, s);
} else if (fifo8_status(&mousefifo) != 0) {
i = fifo8_get(&mousefifo);
io_sti();
sprintf(s, "%02X", i);
boxfill8(binfo->vram, binfo->scrnx, COL8_008484, 32, 16, 47, 31);
putfonts8_asc(binfo->vram, binfo->scrnx, 32, 16, COL8_FFFFFF, s);
}
}
}
fin:
io_hlt();
goto fin;
}
/*---------------------------------------------------------------------------*
* program entry
*---------------------------------------------------------------------------*/
int
main(int argc, char **argv)
{
int i;
int kchar;
struct pollfd set[1];
char *ncp;
const char *aliasfile = ALIASFILE;
int rrtimeout = REREADTIMEOUT;
extern char *optarg;
setlocale( LC_ALL, "");
while ((i = getopt(argc, argv, "a:d:p:t:")) != -1)
{
switch (i)
{
case 'a':
aliasfile = optarg;
break;
case 'd':
spooldir = optarg;
break;
case 'p':
playstring = optarg;
break;
case 't':
rrtimeout = strtoul(optarg, &ncp, 10);
if (*ncp)
usage();
break;
case '?':
default:
usage();
break;
}
}
if (rrtimeout < 10)
rrtimeout = 10;
if ((chdir(spooldir)) != 0)
fatal("cannot change directory to spooldir %s!", spooldir);
init_alias(aliasfile);
init_screen();
init_files(0);
/* go into loop */
set[0].fd = STDIN_FILENO;
set[0].events = POLLIN;
for (;;)
{
/* if no char is available within timeout, reread spool */
if ((poll(set, 1, rrtimeout * 1000)) <= 0)
{
reread();
continue;
}
kchar = wgetch(main_w); /* get char */
switch (kchar)
{
case CR:
case LF:
#ifdef KEY_ENTER
case KEY_ENTER:
#endif
do_menu();
break;
case KEY_UP: /* up-move cursor */
if (cur_file && cur_file->prev)
{
cur_file = cur_file->prev;
cur_pos--;
}
break;
case TAB:
case KEY_DOWN: /* down-move cursor */
if (cur_file && cur_file->next)
{
cur_file = cur_file->next;
cur_pos++;
}
break;
case KEY_HOME: /* move cursor to first dir */
break;
case KEY_LL: /* move cursor to last file */
break;
case CNTRL_D:
do_quit(0);
break;
case CNTRL_L: /* refresh */
touchwin(curscr);
wrefresh(curscr);
break;
}
makecurrent(cur_pos, cur_file, 0);
}
do_quit(0);
return(0);
}
