UINT32 DECL_SPEC win_set_title(UINT32 idx, const char *fmt, ... ) { struct sWindow *pwin = &p_windows[idx]; va_list arg; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ /* If BORDER_TOP is not set, changing a title makes no sense */ if( (pwin->flags & BORDER_TOP) == 0 ) return FALSE; va_start(arg, fmt); vsprintf(tmp_text, fmt, arg); va_end(arg); /* If a title is there and did not change, just exit */ if( pwin->title && !strcmp(pwin->title, tmp_text) ) return TRUE; strcpy( pwin->title, tmp_text ); win_update(idx); return TRUE; }
/* * Likewise with cursor blinks. */ static void cblink_cb(void) { term.cblinker = !term.cblinker; term_schedule_cblink(); win_update(); }
void win_move(UINT32 idx, UINT32 x, UINT32 y) { struct sWindow *pwin = &p_windows[idx]; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ win_erase(idx); pwin->x = x; pwin->y = y; win_update_map(); win_update(idx); }
void cl_net_connection_lost(char *str) { if( str ) { clear_area(win.buf, 0, client.view_h/2, client.view_w, 32, "black"); win_center_print(win.buf, str, client.view_h/2, 3, "white"); } else win_center_print(win.buf, "Connection to server lost", client.view_h/2, 3, "white"); win_update(); delay(2*M_SEC); cl_network_disconnect(); client.state = MENU; }
void win_set_frame_color(UINT32 idx, UINT32 color) { struct sWindow *pwin = &p_windows[idx]; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ if( NULL == pwin->text ) return; pwin->co_frame = color; win_update( idx ); }
static void show_screen(bool other_screen) { term.show_other_screen = other_screen; term.disptop = 0; term.selected = false; // Reset cursor blinking. if (!other_screen) { term.cblinker = 1; term_schedule_cblink(); } win_update(); }
void win_set_prio(UINT32 idx, UINT8 prio) { struct sWindow *pwin = &p_windows[idx]; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ if( pwin->prio == prio ) return; win_erase(idx); pwin->prio = prio; win_update_map(); win_update(idx); }
/* Fill a rectangle. */ static int win_ddb_fill_rectangle(gx_device * dev, int x, int y, int w, int h, gx_color_index color) { fit_fill(dev, x, y, w, h); /* Use PatBlt for filling. Special-case black. */ if (color == 0) PatBlt(wdev->hdcbit, x, y, w, h, rop_write_0s); else { select_brush((int)color); PatBlt(wdev->hdcbit, x, y, w, h, rop_write_pattern); } win_update((gx_device_win *) dev); return 0; }
void win_show(UINT32 idx) { struct sWindow *pwin = &p_windows[idx]; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ /* Don't redraw the window if it's already shown */ if( pwin->flags & HIDDEN ) { pwin->flags &= ~HIDDEN; win_update_map(); } /* But update them */ win_update(idx); }
UINT32 win_scroll(UINT32 idx) { struct sWindow *pwin = &p_windows[idx]; UINT32 i; UINT8 *ptext, *pattr, color; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ /* Is the window already open? Return FALSE if so */ if( NULL == pwin->text ) return(FALSE); /* If we don't scroll it, don't scroll it! */ if( pwin->flags & NO_SCROLL ) return(FALSE); /* Let's do the scroll */ ptext = pwin->text; pattr = pwin->attr; if( pwin->h != 1 ) { memcpy( ptext, ptext + screen_w, screen_w * (pwin->h - 1) ); memcpy( pattr, pattr + screen_w, screen_w * (pwin->h - 1) ); } /* Now that we've done the scroll, let's clear out the bottom line */ color = pwin->co_text; for (i = 0; i < pwin->w; i++) { *ptext++ = ' '; *pattr++ = color; } win_update(idx); return(TRUE); }
void win_set_h(UINT32 idx, UINT32 h) { struct sWindow *pwin = &p_windows[idx]; UINT32 yadd; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ yadd = 0; if( pwin->flags & BORDER_TOP ) ++yadd; if( pwin->flags & BORDER_BOTTOM ) ++yadd; win_erase(idx); pwin->text = MyReAlloc(pwin->text, screen_w * (h + yadd), "win_set_h()"); pwin->attr = MyReAlloc(pwin->attr, screen_w * (h + yadd), "win_set_h()"); pwin->h = h; if( pwin->cy >= pwin->h ) pwin->cy = pwin->h - 1; win_update_map(); win_update(idx); }
void normal() { register int c; long n; int flag = FALSE; int flag2 = FALSE; int type = 0; /* type of operation */ int dir = FORWARD; /* search direction */ int nchar = NUL; int finish_op; linenr_t Prenum1; char_u searchbuff[CMDBUFFSIZE];/* buffer for search string */ FPOS *pos = NULL; /* init for gcc */ register char_u *ptr; int command_busy = FALSE; static int didwarn = FALSE; /* warned for broken inversion */ int modified = FALSE; /* changed current buffer */ int ctrl_w = FALSE; /* got CTRL-W command */ /* the visual area is remembered for reselection */ static linenr_t resel_Visual_nlines; /* number of lines */ static int resel_Visual_type = 0; /* type 'v', 'V' or CTRL-V */ static colnr_t resel_Visual_col; /* number of columns or end column */ /* the visual area is remembered for redo */ static linenr_t redo_Visual_nlines; /* number of lines */ static int redo_Visual_type = 0; /* type 'v', 'V' or CTRL-V */ static colnr_t redo_Visual_col; /* number of columns or end column */ static long redo_Visual_Prenum; /* Prenum for operator */ Prenum = 0; /* * If there is an operator pending, then the command we take this time * will terminate it. Finish_op tells us to finish the operation before * returning this time (unless the operation was cancelled). */ finish_op = (operator != NOP); if (!finish_op && !yankbuffer) opnum = 0; if (p_sc && (vpeekc() == NUL || KeyTyped == TRUE)) premsg(NUL, NUL); State = NORMAL_BUSY; c = vgetc(); getcount: /* Pick up any leading digits and compute 'Prenum' */ while ((c >= '1' && c <= '9') || (Prenum != 0 && (c == DEL || c == '0'))) { if (c == DEL) Prenum /= 10; else Prenum = Prenum * 10 + (c - '0'); if (Prenum < 0) /* got too large! */ Prenum = 999999999; premsg(ctrl_w ? Ctrl('W') : ' ', NUL); c = vgetc(); } /* * If we got CTRL-W there may be a/another count */ if (c == Ctrl('W') && !ctrl_w) { ctrl_w = TRUE; opnum = Prenum; /* remember first count */ Prenum = 0; State = ONLYKEY; /* no mapping for nchar, but keys */ premsg(c, NUL); c = vgetc(); /* get next character */ goto getcount; /* jump back */ } /* * If we're in the middle of an operator (including after entering a yank * buffer with ") AND we had a count before the * operator, then that count overrides the current value of Prenum. What * this means effectively, is that commands like "3dw" get turned into * "d3w" which makes things fall into place pretty neatly. * If you give a count before AND after the operator, they are multiplied. */ if (opnum != 0) { if (Prenum) Prenum *= opnum; else Prenum = opnum; opnum = 0; } Prenum1 = (Prenum == 0 ? 1 : Prenum); /* Prenum often defaults to 1 */ premsg(c, NUL); /* * get an additional character if we need one * for CTRL-W we already got it when looking for a count */ if (ctrl_w) { nchar = c; c = Ctrl('W'); premsg(c, nchar); } else if (strchr("@zZtTfF[]mg'`\"", c) || (c == 'q' && !Recording && !Exec_reg) || (c == 'r' && !VIsual.lnum)) { State = NOMAPPING; nchar = vgetc(); /* no macro mapping for this char */ premsg(c, nchar); } if (p_sc) flushbuf(); /* flush the premsg() characters onto the screen so we can see them while the command is being executed */ /* * For commands that don't get another character we can put the State back to * NORMAL and check for a window size change. */ if (STRCHR("z:/?", c) == NULL) State = NORMAL; if (nchar == ESC) { CLEAROP; goto normal_end; } switch (c) { /* * 0: Macros */ case 'q': /* (stop) recording into a named register */ CHECKCLEAROP; /* command is ignored while executing a register */ if (!Exec_reg && dorecord(nchar) == FAIL) CLEAROPBEEP; break; case '@': /* execute a named buffer */ CHECKCLEAROP; while (Prenum1--) { if (doexecbuf(nchar) == FAIL) { CLEAROPBEEP; break; } } break; /* * 1: Screen positioning commands */ case Ctrl('D'): flag = TRUE; case Ctrl('U'): CHECKCLEAROP; if (Prenum) curwin->w_p_scroll = (Prenum > curwin->w_height) ? curwin->w_height : Prenum; n = (curwin->w_p_scroll <= curwin->w_height) ? curwin->w_p_scroll : curwin->w_height; if (flag) { curwin->w_topline += n; if (curwin->w_topline > curbuf->b_ml.ml_line_count) curwin->w_topline = curbuf->b_ml.ml_line_count; comp_Botline(curwin); /* compute curwin->w_botline */ (void)onedown(n); } else { if (n >= curwin->w_cursor.lnum) n = curwin->w_cursor.lnum - 1; Prenum1 = curwin->w_cursor.lnum - n; scrolldown(n); if (Prenum1 < curwin->w_cursor.lnum) curwin->w_cursor.lnum = Prenum1; } beginline(TRUE); updateScreen(VALID); break; case Ctrl('B'): case K_SUARROW: dir = BACKWARD; case Ctrl('F'): case K_SDARROW: CHECKCLEAROP; (void)onepage(dir, Prenum1); break; case Ctrl('E'): CHECKCLEAROP; scrollup(Prenum1); /* We may have moved to another line -- webb */ coladvance(curwin->w_curswant); updateScreen(VALID); break; case Ctrl('Y'): CHECKCLEAROP; scrolldown(Prenum1); /* We may have moved to another line -- webb */ coladvance(curwin->w_curswant); updateScreen(VALID); break; case 'z': CHECKCLEAROP; if (isdigit(nchar)) { /* * we misuse some variables to be able to call premsg() */ operator = c; opnum = Prenum; Prenum = nchar - '0'; for (;;) { premsg(' ', NUL); nchar = vgetc(); State = NORMAL; if (nchar == DEL) Prenum /= 10; else if (isdigit(nchar)) Prenum = Prenum * 10 + (nchar - '0'); else if (nchar == CR) { win_setheight((int)Prenum); break; } else { CLEAROPBEEP; break; } } operator = NOP; break; } if (Prenum && Prenum != curwin->w_cursor.lnum) /* line number given */ { setpcmark(); if (Prenum > curbuf->b_ml.ml_line_count) curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count; else curwin->w_cursor.lnum = Prenum; } State = NORMAL; /* for updateScreen() */ switch (nchar) { case NL: /* put curwin->w_cursor at top of screen */ case CR: beginline(TRUE); case 't': curwin->w_topline = curwin->w_cursor.lnum; break; case '.': /* put curwin->w_cursor in middle of screen */ case 'z': n = (curwin->w_height + plines(curwin->w_cursor.lnum)) / 2; goto dozcmd; case '-': /* put curwin->w_cursor at bottom of screen */ case 'b': n = curwin->w_height; /* FALLTHROUGH */ dozcmd: { register linenr_t lp = curwin->w_cursor.lnum; register long l = plines(lp); do { curwin->w_topline = lp; if (--lp == 0) break; l += plines(lp); } while (l <= n); } if (nchar != 'z' && nchar != 'b') beginline(TRUE); break; case Ctrl('S'): /* ignore CTRL-S and CTRL-Q to avoid problems */ case Ctrl('Q'): /* with terminals that use xon/xoff */ break; default: CLEAROPBEEP; } updateScreen(VALID); break; /* * 2: Control commands */ case ':': if (VIsual.lnum) goto dooperator; CHECKCLEAROP; /* * translate "count:" into ":.,.+(count - 1)" */ if (Prenum) { stuffReadbuff((char_u *)"."); if (Prenum > 1) { stuffReadbuff((char_u *)",.+"); stuffnumReadbuff((long)Prenum - 1L); } } docmdline(NULL); modified = TRUE; break; case K_HELP: CHECKCLEAROP; help(); break; case Ctrl('L'): CHECKCLEAROP; updateScreen(CLEAR); break; case Ctrl('G'): CHECKCLEAROP; fileinfo(did_cd || Prenum); /* print full name if count given or :cd used */ break; case K_CCIRCM: /* CTRL-^, short for ":e #" */ CHECKCLEAROPQ; (void)buflist_getfile((int)Prenum, (linenr_t)0, TRUE); break; case 'Z': /* write, if changed, and exit */ CHECKCLEAROPQ; if (nchar != 'Z') { CLEAROPBEEP; break; } stuffReadbuff((char_u *)":x\n"); break; case Ctrl(']'): /* :ta to current identifier */ CHECKCLEAROPQ; case '*': /* / to current identifier or string */ case '#': /* ? to current identifier or string */ case 'K': /* run program for current identifier */ { register int col; register int i; /* * if i == 0: try to find an identifier * if i == 1: try to find any string */ ptr = ml_get(curwin->w_cursor.lnum); for (i = 0; i < 2; ++i) { /* * skip to start of identifier/string */ col = curwin->w_cursor.col; while (ptr[col] != NUL && (i == 0 ? !isidchar(ptr[col]) : iswhite(ptr[col]))) ++col; /* * Back up to start of identifier/string. This doesn't match the * real vi but I like it a little better and it shouldn't bother * anyone. */ while (col > 0 && (i == 0 ? isidchar(ptr[col - 1]) : (!iswhite(ptr[col - 1]) && !isidchar(ptr[col - 1])))) --col; /* * if identifier found or not '*' or '#' command, stop searching */ if (isidchar(ptr[col]) || (c != '*' && c != '#')) break; } /* * did't find an identifier of string */ if (ptr[col] == NUL || (!isidchar(ptr[col]) && i == 0)) { CLEAROPBEEP; break; } if (Prenum) stuffnumReadbuff(Prenum); switch (c) { case '*': stuffReadbuff((char_u *)"/"); goto sow; case '#': stuffReadbuff((char_u *)"?"); sow: if (i == 0) stuffReadbuff((char_u *)"\\<"); break; case 'K': stuffReadbuff((char_u *)":! "); stuffReadbuff(p_kp); stuffReadbuff((char_u *)" "); break; default: stuffReadbuff((char_u *)":ta "); } /* * Now grab the chars in the identifier */ while (i == 0 ? isidchar(ptr[col]) : (ptr[col] != NUL && !iswhite(ptr[col]))) { stuffcharReadbuff(ptr[col]); ++col; } if ((c == '*' || c == '#') && i == 0) stuffReadbuff((char_u *)"\\>"); stuffReadbuff((char_u *)"\n"); } break; case Ctrl('T'): /* backwards in tag stack */ CHECKCLEAROPQ; dotag((char_u *)"", 2, (int)Prenum1); break; /* * Cursor motions */ case 'G': mtype = MLINE; setpcmark(); if (Prenum == 0 || Prenum > curbuf->b_ml.ml_line_count) curwin->w_cursor.lnum = curbuf->b_ml.ml_line_count; else curwin->w_cursor.lnum = Prenum; beginline(TRUE); break; case 'H': case 'M': if (c == 'M') n = (curwin->w_height - curwin->w_empty_rows) / 2; else n = Prenum; mtype = MLINE; setpcmark(); curwin->w_cursor.lnum = curwin->w_topline; while (n && onedown((long)1) == OK) --n; beginline(TRUE); break; case 'L': mtype = MLINE; setpcmark(); curwin->w_cursor.lnum = curwin->w_botline - 1; for (n = Prenum; n && oneup((long)1) == OK; n--) ; beginline(TRUE); break; case 'l': case K_RARROW: case ' ': mtype = MCHAR; mincl = FALSE; n = Prenum1; while (n--) { if (oneright() == FAIL) { /* space wraps to next line if 'whichwrap' bit 1 set */ /* 'l' wraps to next line if 'whichwrap' bit 2 set */ /* CURS_RIGHT wraps to next line if 'whichwrap' bit 3 set */ if (((c == ' ' && (p_ww & 2)) || (c == 'l' && (p_ww & 4)) || (c == K_RARROW && (p_ww & 8))) && curwin->w_cursor.lnum < curbuf->b_ml.ml_line_count) { ++curwin->w_cursor.lnum; curwin->w_cursor.col = 0; curwin->w_set_curswant = TRUE; continue; } if (operator == NOP) beep(); else { if (lineempty(curwin->w_cursor.lnum)) CLEAROPBEEP; else { mincl = TRUE; if (n) beep(); } } break; } } break; case Ctrl('H'): case 'h': case K_LARROW: case DEL: mtype = MCHAR; mincl = FALSE; n = Prenum1; while (n--) { if (oneleft() == FAIL) { /* backspace and del wrap to previous line if 'whichwrap' * bit 0 set */ /* 'h' wraps to previous line if 'whichwrap' bit 2 set */ /* CURS_LEFT wraps to previous line if 'whichwrap' bit 3 set */ if ((((c == Ctrl('H') || c == DEL) && (p_ww & 1)) || (c == 'h' && (p_ww & 4)) || (c == K_LARROW && (p_ww & 8))) && curwin->w_cursor.lnum > 1) { --(curwin->w_cursor.lnum); coladvance(MAXCOL); curwin->w_set_curswant = TRUE; continue; } else if (operator != DELETE && operator != CHANGE) beep(); else if (Prenum1 == 1) CLEAROPBEEP; break; } } break; case '-': flag = TRUE; /* FALLTHROUGH */ case 'k': case K_UARROW: case Ctrl('P'): mtype = MLINE; if (oneup(Prenum1) == FAIL) CLEAROPBEEP; else if (flag) beginline(TRUE); break; case '+': case CR: flag = TRUE; /* FALLTHROUGH */ case 'j': case K_DARROW: case Ctrl('N'): case NL: mtype = MLINE; if (onedown(Prenum1) == FAIL) CLEAROPBEEP; else if (flag) beginline(TRUE); break; /* * This is a strange motion command that helps make operators more * logical. It is actually implemented, but not documented in the * real 'vi'. This motion command actually refers to "the current * line". Commands like "dd" and "yy" are really an alternate form of * "d_" and "y_". It does accept a count, so "d3_" works to delete 3 * lines. */ case '_': lineop: mtype = MLINE; if (onedown((long)(Prenum1 - 1)) == FAIL) CLEAROPBEEP; if (operator != YANK) /* 'Y' does not move cursor */ beginline(TRUE); break; case '|': mtype = MCHAR; mincl = TRUE; beginline(FALSE); if (Prenum > 0) coladvance((colnr_t)(Prenum - 1)); curwin->w_curswant = (colnr_t)(Prenum - 1); /* keep curswant at the column where we wanted to go, not where we ended; differs is line is too short */ curwin->w_set_curswant = FALSE; break; /* * Word Motions */ case 'B': type = 1; /* FALLTHROUGH */ case 'b': case K_SLARROW: mtype = MCHAR; mincl = FALSE; curwin->w_set_curswant = TRUE; if (bck_word(Prenum1, type)) CLEAROPBEEP; break; case 'E': type = 1; /* FALLTHROUGH */ case 'e': mincl = TRUE; goto dowrdcmd; case 'W': type = 1; /* FALLTHROUGH */ case 'w': case K_SRARROW: mincl = FALSE; flag = TRUE; /* * This is a little strange. To match what the real vi does, we * effectively map 'cw' to 'ce', and 'cW' to 'cE', provided that we are * not on a space or a TAB. This seems * impolite at first, but it's really more what we mean when we say * 'cw'. * Another strangeness: When standing on the end of a word "ce" will * change until the end of the next wordt, but "cw" will change only * one character! This is done by setting type to 2. */ if (operator == CHANGE && (n = gchar_cursor()) != ' ' && n != TAB && n != NUL) { mincl = TRUE; flag = FALSE; flag2 = TRUE; } dowrdcmd: mtype = MCHAR; curwin->w_set_curswant = TRUE; if (flag) n = fwd_word(Prenum1, type, operator != NOP); else n = end_word(Prenum1, type, flag2); if (n) { CLEAROPBEEP; break; } #if 0 /* * If we do a 'dw' for the last word in a line, we only delete the rest * of the line, not joining the two lines, unless the current line is empty. */ if (operator == DELETE && Prenum1 == 1 && curbuf->b_startop.lnum != curwin->w_cursor.lnum && !lineempty(startop.lnum)) { curwin->w_cursor = curbuf->b_startop; while (oneright() == OK) ; mincl = TRUE; } #endif break; case '$': mtype = MCHAR; mincl = TRUE; curwin->w_curswant = MAXCOL; /* so we stay at the end */ if (onedown((long)(Prenum1 - 1)) == FAIL) { CLEAROPBEEP; break; } break; case '^': flag = TRUE; /* FALLTHROUGH */ case '0': mtype = MCHAR; mincl = FALSE; beginline(flag); break; /* * 4: Searches */ case '?': case '/': if (!getcmdline(c, searchbuff)) { CLEAROP; break; } mtype = MCHAR; mincl = FALSE; curwin->w_set_curswant = TRUE; n = dosearch(c, searchbuff, FALSE, Prenum1, TRUE, TRUE); if (n == 0) CLEAROP; else if (n == 2) mtype = MLINE; break; case 'N': flag = 1; case 'n': mtype = MCHAR; mincl = FALSE; curwin->w_set_curswant = TRUE; if (!dosearch(0, NULL, flag, Prenum1, TRUE, TRUE)) CLEAROP; break; /* * Character searches */ case 'T': dir = BACKWARD; /* FALLTHROUGH */ case 't': type = 1; goto docsearch; case 'F': dir = BACKWARD; /* FALLTHROUGH */ case 'f': docsearch: mtype = MCHAR; if (dir == BACKWARD) mincl = FALSE; else mincl = TRUE; curwin->w_set_curswant = TRUE; if (!searchc(nchar, dir, type, Prenum1)) CLEAROPBEEP; break; case ',': flag = 1; /* FALLTHROUGH */ case ';': dir = flag; goto docsearch; /* nchar == NUL, thus repeat previous search */ /* * section or C function searches */ case '[': dir = BACKWARD; /* FALLTHROUGH */ case ']': mtype = MCHAR; mincl = FALSE; /* * "[f" or "]f" : Edit file under the cursor (same as "gf") */ if ((c == ']' || c == '[') && nchar == 'f') goto gotofile; /* * "[{", "[(", "]}" or "])": go to Nth unclosed '{', '(', '}' or ')' */ if ((c == '[' && (nchar == '{' || nchar == '(')) || ((c == ']' && (nchar == '}' || nchar == ')')))) { FPOS old_pos; old_pos = curwin->w_cursor; while (Prenum1--) { if ((pos = showmatch(nchar)) == NULL) { CLEAROPBEEP; break; } curwin->w_cursor = *pos; } curwin->w_cursor = old_pos; if (pos != NULL) { setpcmark(); curwin->w_cursor = *pos; curwin->w_set_curswant = TRUE; } break; } /* * "[[", "[]", "]]" and "][": move to start or end of function */ if (nchar == '[' || nchar == ']') { if (nchar == c) /* "]]" or "[[" */ flag = '{'; else flag = '}'; /* "][" or "[]" */ curwin->w_set_curswant = TRUE; /* * Imitate strange vi behaviour: When using "]]" with an operator we * also stop at '}'. */ if (!findpar(dir, Prenum1, flag, (operator != NOP && dir == FORWARD && flag == '{'))) CLEAROPBEEP; break; } /* * "[p" and "]p": put with indent adjustment */ if (nchar == 'p') { doput((c == ']') ? FORWARD : BACKWARD, Prenum1, TRUE); modified = TRUE; break; } /* * end of '[' and ']': not a valid nchar */ CLEAROPBEEP; break; case '%': mincl = TRUE; if (Prenum) /* {cnt}% : goto {cnt} percentage in file */ { if (Prenum > 100) CLEAROPBEEP; else { mtype = MLINE; setpcmark(); /* round up, so CTRL-G will give same value */ curwin->w_cursor.lnum = (curbuf->b_ml.ml_line_count * Prenum + 99) / 100; beginline(TRUE); } } else /* % : go to matching paren */ { mtype = MCHAR; if ((pos = showmatch(NUL)) == NULL) CLEAROPBEEP; else { setpcmark(); curwin->w_cursor = *pos; curwin->w_set_curswant = TRUE; } } break; case '(': dir = BACKWARD; /* FALLTHROUGH */ case ')': mtype = MCHAR; if (c == ')') mincl = FALSE; else mincl = TRUE; curwin->w_set_curswant = TRUE; if (!findsent(dir, Prenum1)) CLEAROPBEEP; break; case '{': dir = BACKWARD; /* FALLTHROUGH */ case '}': mtype = MCHAR; mincl = FALSE; curwin->w_set_curswant = TRUE; if (!findpar(dir, Prenum1, NUL, FALSE)) CLEAROPBEEP; break; /* * 5: Edits */ case '.': CHECKCLEAROPQ; if (start_redo(Prenum) == FAIL) CLEAROPBEEP; modified = TRUE; break; case 'u': if (VIsual.lnum) goto dooperator; case K_UNDO: CHECKCLEAROPQ; u_undo((int)Prenum1); curwin->w_set_curswant = TRUE; modified = TRUE; break; case Ctrl('R'): CHECKCLEAROPQ; u_redo((int)Prenum1); curwin->w_set_curswant = TRUE; modified = TRUE; break; case 'U': if (VIsual.lnum) goto dooperator; CHECKCLEAROPQ; u_undoline(); curwin->w_set_curswant = TRUE; modified = TRUE; break; case 'r': if (VIsual.lnum) { c = 'c'; goto dooperator; } CHECKCLEAROPQ; ptr = ml_get_cursor(); if (STRLEN(ptr) < (unsigned)Prenum1) /* not enough characters to replace */ { CLEAROPBEEP; break; } /* * Replacing with a line break or tab is done by edit(), because it * is complicated. * Other characters are done below to avoid problems with things like * CTRL-V 048 (for edit() this would be R CTRL-V 0 ESC). */ if (nchar == '\r' || nchar == '\n' || nchar == '\t') { prep_redo(Prenum1, 'r', nchar, NUL); stuffnumReadbuff(Prenum1); stuffcharReadbuff('R'); stuffcharReadbuff(nchar); stuffcharReadbuff(ESC); break; } if (nchar == Ctrl('V')) /* get another character */ { c = Ctrl('V'); nchar = get_literal(&type); if (type) /* typeahead */ stuffcharReadbuff(type); } else c = NUL; prep_redo(Prenum1, 'r', c, nchar); if (!u_save_cursor()) /* save line for undo */ break; /* * Get ptr again, because u_save will have released the line. * At the same time we let know that the line will be changed. */ ptr = ml_get_buf(curbuf, curwin->w_cursor.lnum, TRUE) + curwin->w_cursor.col; curwin->w_cursor.col += Prenum1 - 1; while (Prenum1--) /* replace the characters */ *ptr++ = nchar; curwin->w_set_curswant = TRUE; CHANGED; updateline(); modified = TRUE; break; case 'J': if (VIsual.lnum) /* join the visual lines */ { if (curwin->w_cursor.lnum > VIsual.lnum) { Prenum = curwin->w_cursor.lnum - VIsual.lnum + 1; curwin->w_cursor.lnum = VIsual.lnum; } else Prenum = VIsual.lnum - curwin->w_cursor.lnum + 1; VIsual.lnum = 0; } CHECKCLEAROP; if (Prenum <= 1) Prenum = 2; /* default for join is two lines! */ if (curwin->w_cursor.lnum + Prenum - 1 > curbuf->b_ml.ml_line_count) /* beyond last line */ { CLEAROPBEEP; break; } prep_redo(Prenum, 'J', NUL, NUL); dodojoin(Prenum, TRUE, TRUE); modified = TRUE; break; case 'P': dir = BACKWARD; /* FALLTHROUGH */ case 'p': CHECKCLEAROPQ; prep_redo(Prenum, c, NUL, NUL); doput(dir, Prenum1, FALSE); modified = TRUE; break; case Ctrl('A'): /* add to number */ case Ctrl('X'): /* subtract from number */ CHECKCLEAROPQ; if (doaddsub((int)c, Prenum1) == OK) prep_redo(Prenum1, c, NUL, NUL); modified = TRUE; break; /* * 6: Inserts */ case 'A': curwin->w_set_curswant = TRUE; while (oneright() == OK) ; /* FALLTHROUGH */ case 'a': CHECKCLEAROPQ; /* Works just like an 'i'nsert on the next character. */ if (u_save_cursor()) { if (!lineempty(curwin->w_cursor.lnum)) inc_cursor(); startinsert(c, FALSE, Prenum1); modified = TRUE; command_busy = TRUE; } break; case 'I': beginline(TRUE); /* FALLTHROUGH */ case 'i': CHECKCLEAROPQ; if (u_save_cursor()) { startinsert(c, FALSE, Prenum1); modified = TRUE; command_busy = TRUE; } break; case 'o': if (VIsual.lnum) /* switch start and end of visual */ { Prenum = VIsual.lnum; VIsual.lnum = curwin->w_cursor.lnum; curwin->w_cursor.lnum = Prenum; if (VIsual.col != VISUALLINE) { n = VIsual.col; VIsual.col = curwin->w_cursor.col; curwin->w_cursor.col = (int)n; curwin->w_set_curswant = TRUE; } break; } CHECKCLEAROP; if (u_save(curwin->w_cursor.lnum, (linenr_t)(curwin->w_cursor.lnum + 1)) && Opencmd(FORWARD, TRUE, TRUE)) { startinsert('o', TRUE, Prenum1); modified = TRUE; command_busy = TRUE; } break; case 'O': CHECKCLEAROPQ; if (u_save((linenr_t)(curwin->w_cursor.lnum - 1), curwin->w_cursor.lnum) && Opencmd(BACKWARD, TRUE, TRUE)) { startinsert('O', TRUE, Prenum1); modified = TRUE; command_busy = TRUE; } break; case 'R': if (VIsual.lnum) { c = 'c'; VIsual.col = VISUALLINE; goto dooperator; } CHECKCLEAROPQ; if (u_save_cursor()) { startinsert('R', FALSE, Prenum1); modified = TRUE; command_busy = TRUE; } break; /* * 7: Operators */ case '~': /* swap case */ /* * if tilde is not an operator and Visual is off: swap case * of a single character */ if (!p_to && !VIsual.lnum) { CHECKCLEAROPQ; if (lineempty(curwin->w_cursor.lnum)) { CLEAROPBEEP; break; } prep_redo(Prenum, '~', NUL, NUL); if (!u_save_cursor()) break; for (; Prenum1 > 0; --Prenum1) { if (gchar_cursor() == NUL) break; swapchar(&curwin->w_cursor); inc_cursor(); } curwin->w_set_curswant = TRUE; CHANGED; updateline(); modified = TRUE; break; } /*FALLTHROUGH*/ case 'd': case 'c': case 'y': case '>': case '<': case '!': case '=': case 'Q': dooperator: n = STRCHR(opchars, c) - opchars + 1; if (n == operator) /* double operator works on lines */ goto lineop; CHECKCLEAROP; if (Prenum != 0) opnum = Prenum; curbuf->b_startop = curwin->w_cursor; operator = (int)n; break; /* * 8: Abbreviations */ /* when Visual the next commands are operators */ case 'S': case 'Y': case 'D': case 'C': case 'x': case 'X': case 's': if (VIsual.lnum) { static char_u trans[] = "ScYyDdCcxdXdsc"; if (isupper(c) && !Visual_block) /* uppercase means linewise */ VIsual.col = VISUALLINE; c = *(STRCHR(trans, c) + 1); goto dooperator; } case '&': CHECKCLEAROPQ; if (Prenum) stuffnumReadbuff(Prenum); if (c == 'Y' && p_ye) c = 'Z'; { static char_u *(ar[9]) = {(char_u *)"dl", (char_u *)"dh", (char_u *)"d$", (char_u *)"c$", (char_u *)"cl", (char_u *)"cc", (char_u *)"yy", (char_u *)"y$", (char_u *)":s\r"}; static char_u *str = (char_u *)"xXDCsSYZ&"; stuffReadbuff(ar[(int)(STRCHR(str, c) - str)]); } break; /* * 9: Marks */ case 'm': CHECKCLEAROP; if (setmark(nchar) == FAIL) CLEAROPBEEP; break; case '\'': flag = TRUE; /* FALLTHROUGH */ case '`': pos = getmark(nchar, (operator == NOP)); if (pos == (FPOS *)-1) /* jumped to other file */ { if (flag) beginline(TRUE); break; } if (pos != NULL) setpcmark(); cursormark: if (pos == NULL || pos->lnum == 0) CLEAROPBEEP; else { curwin->w_cursor = *pos; if (flag) beginline(TRUE); } mtype = flag ? MLINE : MCHAR; mincl = FALSE; /* ignored if not MCHAR */ curwin->w_set_curswant = TRUE; break; case Ctrl('O'): /* goto older pcmark */ Prenum1 = -Prenum1; /* FALLTHROUGH */ case Ctrl('I'): /* goto newer pcmark */ CHECKCLEAROPQ; pos = movemark((int)Prenum1); if (pos == (FPOS *)-1) /* jump to other file */ { curwin->w_set_curswant = TRUE; break; } goto cursormark; /* * 10. Buffer setting */ case '"': CHECKCLEAROP; if (nchar != NUL && is_yank_buffer(nchar, FALSE)) { yankbuffer = nchar; opnum = Prenum; /* remember count before '"' */ } else CLEAROPBEEP; break; /* * 11. Visual */ case 'v': case 'V': case Ctrl('V'): CHECKCLEAROP; Visual_block = FALSE; /* stop Visual */ if (VIsual.lnum) { VIsual.lnum = 0; updateScreen(NOT_VALID); /* delete the inversion */ } /* start Visual */ else { if (!didwarn && set_highlight('v') == FAIL)/* cannot highlight */ { EMSG("Warning: terminal cannot highlight"); didwarn = TRUE; } if (Prenum) /* use previously selected part */ { if (!resel_Visual_type) /* there is none */ { beep(); break; } VIsual = curwin->w_cursor; if (resel_Visual_nlines > 1) curwin->w_cursor.lnum += resel_Visual_nlines * Prenum - 1; switch (resel_Visual_type) { case 'V': VIsual.col = VISUALLINE; break; case Ctrl('V'): Visual_block = TRUE; break; case 'v': if (resel_Visual_nlines <= 1) curwin->w_cursor.col += resel_Visual_col * Prenum - 1; else curwin->w_cursor.col = resel_Visual_col; break; } if (resel_Visual_col == MAXCOL) { curwin->w_curswant = MAXCOL; coladvance(MAXCOL); } else if (Visual_block) coladvance((colnr_t)(curwin->w_virtcol + resel_Visual_col * Prenum - 1)); curs_columns(TRUE); /* recompute w_virtcol */ updateScreen(NOT_VALID); /* show the inversion */ } else { VIsual = curwin->w_cursor; if (c == 'V') /* linewise */ VIsual.col = VISUALLINE; else if (c == Ctrl('V')) /* blockwise */ Visual_block = TRUE; updateline(); /* start the inversion */ } } break; /* * 12. Suspend */ case Ctrl('Z'): CLEAROP; VIsual.lnum = 0; /* stop Visual */ stuffReadbuff((char_u *)":st\r"); /* with autowrite */ break; /* * 13. Window commands */ case Ctrl('W'): CHECKCLEAROP; do_window(nchar, Prenum); /* everything is in window.c */ break; /* * 14. extended commands (starting with 'g') */ case 'g': switch (nchar) { /* * "gf": goto file, edit file under cursor * "]f" and "[f": can also be used. */ case 'f': gotofile: ptr = file_name_at_cursor(); /* do autowrite if necessary */ if (curbuf->b_changed && curbuf->b_nwindows <= 1 && !p_hid) autowrite(curbuf); if (ptr != NULL) { setpcmark(); stuffReadbuff((char_u *) ":e "); stuffReadbuff(ptr); stuffReadbuff((char_u *) "\n"); free(ptr); } else CLEAROPBEEP; break; /* * "gs": goto sleep */ case 's': while (Prenum1-- && !got_int) { sleep(1); breakcheck(); } break; default: CLEAROPBEEP; break; } break; /* * The end */ case ESC: if (VIsual.lnum) { VIsual.lnum = 0; /* stop Visual */ updateScreen(NOT_VALID); CLEAROP; /* don't beep */ break; } /* Don't drop through and beep if we are canceling a command: */ else if (operator != NOP || opnum || Prenum || yankbuffer) { CLEAROP; /* don't beep */ break; } /* FALLTHROUGH */ default: /* not a known command */ CLEAROPBEEP; break; } /* end of switch on command character */ /* * if we didn't start or finish an operator, reset yankbuffer, unless we * need it later. */ if (!finish_op && !operator && strchr("\"DCYSsXx.", c) == NULL) yankbuffer = 0; /* * If an operation is pending, handle it... */ if ((VIsual.lnum || finish_op) && operator != NOP) { if (operator != YANK && !VIsual.lnum) /* can't redo yank */ { prep_redo(Prenum, opchars[operator - 1], c, nchar); if (c == '/' || c == '?') /* was a search */ { AppendToRedobuff(searchbuff); AppendToRedobuff(NL_STR); } } if (redo_Visual_busy) { curbuf->b_startop = curwin->w_cursor; curwin->w_cursor.lnum += redo_Visual_nlines - 1; switch (redo_Visual_type) { case 'V': VIsual.col = VISUALLINE; break; case Ctrl('V'): Visual_block = TRUE; break; case 'v': if (redo_Visual_nlines <= 1) curwin->w_cursor.col += redo_Visual_col - 1; else curwin->w_cursor.col = redo_Visual_col; break; } if (redo_Visual_col == MAXCOL) { curwin->w_curswant = MAXCOL; coladvance(MAXCOL); } Prenum = redo_Visual_Prenum; if (Prenum == 0) Prenum1 = 1L; else Prenum1 = Prenum; } else if (VIsual.lnum) curbuf->b_startop = VIsual; if (lt(curbuf->b_startop, curwin->w_cursor)) { curbuf->b_endop = curwin->w_cursor; curwin->w_cursor = curbuf->b_startop; } else { curbuf->b_endop = curbuf->b_startop; curbuf->b_startop = curwin->w_cursor; } nlines = curbuf->b_endop.lnum - curbuf->b_startop.lnum + 1; if (VIsual.lnum || redo_Visual_busy) { if (Visual_block) /* block mode */ { startvcol = getvcol(curwin, &(curbuf->b_startop), 2); n = getvcol(curwin, &(curbuf->b_endop), 2); if (n < startvcol) startvcol = (colnr_t)n; /* if '$' was used, get endvcol from longest line */ if (curwin->w_curswant == MAXCOL) { curwin->w_cursor.col = MAXCOL; endvcol = 0; for (curwin->w_cursor.lnum = curbuf->b_startop.lnum; curwin->w_cursor.lnum <= curbuf->b_endop.lnum; ++curwin->w_cursor.lnum) if ((n = getvcol(curwin, &curwin->w_cursor, 3)) > endvcol) endvcol = (colnr_t)n; curwin->w_cursor = curbuf->b_startop; } else if (redo_Visual_busy) endvcol = startvcol + redo_Visual_col - 1; else { endvcol = getvcol(curwin, &(curbuf->b_startop), 3); n = getvcol(curwin, &(curbuf->b_endop), 3); if (n > endvcol) endvcol = (colnr_t)n; } coladvance(startvcol); } /* * prepare to reselect and redo Visual: this is based on the size * of the Visual text */ if (Visual_block) resel_Visual_type = Ctrl('V'); else if (VIsual.col == VISUALLINE) resel_Visual_type = 'V'; else resel_Visual_type = 'v'; if (curwin->w_curswant == MAXCOL) resel_Visual_col = MAXCOL; else if (Visual_block) resel_Visual_col = endvcol - startvcol + 1; else if (nlines > 1) resel_Visual_col = curbuf->b_endop.col; else resel_Visual_col = curbuf->b_endop.col - curbuf->b_startop.col + 1; resel_Visual_nlines = nlines; if (operator != YANK && operator != COLON) /* can't redo yank and : */ { prep_redo(0L, 'v', opchars[operator - 1], NUL); redo_Visual_type = resel_Visual_type; redo_Visual_col = resel_Visual_col; redo_Visual_nlines = resel_Visual_nlines; redo_Visual_Prenum = Prenum; } /* * Mincl defaults to TRUE. * If endop is on a NUL (empty line) mincl becomes FALSE * This makes "d}P" and "v}dP" work the same. */ mincl = TRUE; if (VIsual.col == VISUALLINE) mtype = MLINE; else { mtype = MCHAR; if (*ml_get_pos(&(curbuf->b_endop)) == NUL) mincl = FALSE; } redo_Visual_busy = FALSE; /* * Switch Visual off now, so screen updating does * not show inverted text when the screen is redrawn. * With YANK and sometimes with COLON and FILTER there is no screen * redraw, so it is done here to remove the inverted part. */ VIsual.lnum = 0; if (operator == YANK || operator == COLON || operator == FILTER) updateScreen(NOT_VALID); } else if (operator == LSHIFT || operator == RSHIFT) Prenum1 = 1L; /* if not visual mode: shift one indent */ curwin->w_set_curswant = 1; /* no_op is set when start and end are the same */ no_op = (mtype == MCHAR && !mincl && equal(curbuf->b_startop, curbuf->b_endop)); /* * If the end of an operator is in column one while mtype is MCHAR and mincl * is FALSE, we put endop after the last character in the previous line. * If startop is on or before the first non-blank in the line, the operator * becomes linewise (strange, but that's the way vi does it). */ if (mtype == MCHAR && mincl == FALSE && curbuf->b_endop.col == 0 && nlines > 1) { --nlines; --curbuf->b_endop.lnum; if (inindent()) mtype = MLINE; else { curbuf->b_endop.col = STRLEN(ml_get(curbuf->b_endop.lnum)); if (curbuf->b_endop.col) { --curbuf->b_endop.col; mincl = TRUE; } } } switch (operator) { case LSHIFT: case RSHIFT: doshift(operator, TRUE, (int)Prenum1); modified = TRUE; break; case DELETE: if (!no_op) { dodelete(); modified = TRUE; } break; case YANK: if (!no_op) (void)doyank(FALSE); break; case CHANGE: dochange(); modified = TRUE; command_busy = TRUE; break; case FILTER: bangredo = TRUE; /* dobang() will put cmd in redo buffer */ case INDENT: case COLON: dofilter: sprintf((char *)IObuff, ":%ld,%ld", (long)curbuf->b_startop.lnum, (long)curbuf->b_endop.lnum); stuffReadbuff(IObuff); if (operator != COLON) stuffReadbuff((char_u *)"!"); if (operator == INDENT) { stuffReadbuff(p_ep); stuffReadbuff((char_u *)"\n"); } else if (operator == FORMAT) { stuffReadbuff(p_fp); stuffReadbuff((char_u *)"\n"); } /* docmdline() does the rest */ break; case TILDE: case UPPER: case LOWER: if (!no_op) { dotilde(); modified = TRUE; } break; case FORMAT: if (*p_fp != NUL) goto dofilter; /* use external command */ doformat(); /* use internal function */ modified = TRUE; break; default: CLEAROPBEEP; } operator = NOP; Visual_block = FALSE; yankbuffer = 0; } normal_end: premsg(-1, NUL); if (restart_edit && operator == NOP && VIsual.lnum == 0 && !command_busy && stuff_empty() && yankbuffer == 0) { startinsert(restart_edit, FALSE, 1L); modified = TRUE; } checkpcmark(); /* check if we moved since setting pcmark */ /* * TEMPORARY: update the other windows for the current buffer if modified */ if (modified) { WIN *wp; for (wp = firstwin; wp; wp = wp->w_next) if (wp != curwin && wp->w_buffer == curbuf) { cursor_off(); wp->w_redr_type = NOT_VALID; win_update(wp); } } }
UINT32 win_open(UINT32 idx, struct sWindow *psWin) { struct sWindow *pwin = &p_windows[idx]; UINT8 affected[MAX_WINDOWS]; UINT32 xadd, yadd, i; UINT8 ch = 0, color = 0; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ ASSERT(psWin); /* This, too. */ memset( affected, 0, sizeof(affected) ); /* Is the window already open? Return FALSE if so */ if( pwin->text ) return(FALSE); xadd = 0; yadd = 0; if( psWin->flags & BORDER_LEFT ) ++xadd; if( psWin->flags & BORDER_RIGHT ) ++xadd; if( psWin->flags & BORDER_TOP ) ++yadd; if( psWin->flags & BORDER_BOTTOM ) ++yadd; ASSERT((psWin->x + psWin->w + xadd) <= screen_w); ASSERT((psWin->y + psWin->h + yadd) <= screen_h); psWin->text = MyMalloc( screen_w * (yadd + psWin->h), "win_open()" ); psWin->attr = MyMalloc( screen_w * (yadd + psWin->h), "win_open()" ); psWin->title = MyMalloc( screen_w + 1, "win_open()" ); /* This is our fill character */ ch = psWin->filler; color = psWin->co_text; for (i = 0; i < screen_w * (yadd + psWin->h); i++) { psWin->text[i] = ch; psWin->attr[i] = color; } psWin->cx = 0; psWin->cy = 0; /* Copy it into the regular structure, update the window map and show */ /* the window (if it's not hidden) */ memcpy(pwin, psWin, sizeof(struct sWindow)); win_update_map(); win_update_shadow(idx, affected); /* Now that we've erased the residuals, let's go update the windows */ /* that need it */ for (i = 0; i < MAX_WINDOWS; i++) { if( affected[i] || (i == idx) ) { win_update(i); win_set_cursor_char(i, p_windows[i].flags & CURSOR_ON, 0); } } pwin->saved_text = ch; pwin->saved_attr = color; win_set_cursor_char(idx, pwin->flags & CURSOR_ON, 0); /* Now that the window is opened, if there's a resize handler available, */ /* call it! */ if( pwin->Resize ) pwin->Resize(idx, pwin); return(TRUE); }
void win_erase(UINT32 idx) { struct sWindow *pwin = &p_windows[idx]; UINT8 affected[MAX_WINDOWS]; UINT32 i = 0; UINT32 flags_old; UINT8 bMap = 0; UINT32 x, y; UINT32 xadd = 0; UINT32 yadd = 0; ASSERT(idx < MAX_WINDOWS); /* This had better be in range */ ASSERT(p_windows); /* And this had better be initialized */ if( NULL == pwin->text ) return; memset( affected, 0, sizeof(affected) ); /* Let's fake like the window is gone */ flags_old = pwin->flags; pwin->flags |= HIDDEN; /* Recompute the display matrix */ win_update_map(); xadd = pwin->w; yadd = pwin->h; if( pwin->flags & BORDER_LEFT ) ++xadd; if( pwin->flags & BORDER_RIGHT ) ++xadd; if( pwin->flags & BORDER_TOP ) ++yadd; if( pwin->flags & BORDER_BOTTOM ) ++yadd; win_set_cursor_char(idx, 0, pwin->flags & CURSOR_ON); /* Go see if we need to do anything about our shadows */ for( y = pwin->y; y < screen_h && y < (pwin->y + yadd); y++ ) { for( x = pwin->x; x < screen_w && x < (pwin->x + xadd); x++ ) { bMap = p_prio_map[(y * screen_w) + x]; if( 0xff == bMap ) win_out(WIN_EMPTY, WIN_WHITE, x, y, idx); else affected[bMap] = 1; } } win_update_shadow(idx, affected); /* Now that we've erased the residuals, let's go update */ /* the windows that need it */ for( i = 0; i < MAX_WINDOWS; i++ ) { if( affected[i] || (i != idx) ) { win_update(i); win_set_cursor_char(i, p_windows[i].flags & CURSOR_ON, 0); } } pwin->flags = flags_old; }
/* Note that this also does the right thing for colored tiles. */ static int win_ddb_tile_rectangle(gx_device * dev, const gx_tile_bitmap * tile, int x, int y, int w, int h, gx_color_index czero, gx_color_index cone, int px, int py) { fit_fill(dev, x, y, w, h); if (czero != gx_no_color_index && cone != gx_no_color_index) { fill_rect(x, y, w, h, czero); czero = gx_no_color_index; } if (tile->raster == bmWidthBytes && tile->size.y <= bmHeight && (px | py) == 0 && cone != gx_no_color_index ) { /* We can do this much more efficiently */ /* by using the internal algorithms of copy_mono */ /* and gx_default_tile_rectangle. */ int width = tile->size.x; int height = tile->size.y; int rwidth = tile->rep_width; int irx = ((rwidth & (rwidth - 1)) == 0 ? /* power of 2 */ x & (rwidth - 1) : x % rwidth); int ry = y % tile->rep_height; int icw = width - irx; int ch = height - ry; int ex = x + w, ey = y + h; int fex = ex - width, fey = ey - height; int cx, cy; select_brush((int)cone); if (tile->id != wdev->bm_id || tile->id == gx_no_bitmap_id) { wdev->bm_id = tile->id; SetBitmapBits(wdev->hbmmono, (DWORD) (bmWidthBytes * tile->size.y), (BYTE *) tile->data); } #define copy_tile(srcx, srcy, tx, ty, tw, th)\ BitBlt(wdev->hdcbit, tx, ty, tw, th, wdev->hdcmono, srcx, srcy, rop_write_at_1s) if (ch > h) ch = h; for (cy = y;;) { if (w <= icw) copy_tile(irx, ry, x, cy, w, ch); else { copy_tile(irx, ry, x, cy, icw, ch); cx = x + icw; while (cx <= fex) { copy_tile(0, ry, cx, cy, width, ch); cx += width; } if (cx < ex) { copy_tile(0, ry, cx, cy, ex - cx, ch); } } if ((cy += ch) >= ey) break; ch = (cy > fey ? ey - cy : height); ry = 0; } win_update((gx_device_win *) dev); return 0; } return gx_default_tile_rectangle(dev, tile, x, y, w, h, czero, cone, px, py); }
int main(int n_args, char * ll_args[]) { int i,n,t,t_total,n_proc,n_veg; int *p_lletres,id_lletres; int id_win,n_fil,n_col,mida_camp; char a1[20],a3[20],a4[20],a5[10],a6[10], fmis[80]; void *p_win; if (n_args != 4) { fprintf(stderr,"comanda: multiproc2 num_procs n_vegades n_lletres\n"); exit(1); } n_proc = atoi(ll_args[1]); /* convertir arguments a num. enter */ n_veg = atoi(ll_args[2]); if (n_proc < 1) n_proc = 1; /* i filtrar el seu valor */ if (n_proc > MAX_PROCS) n_proc = MAX_PROCS; if (n_veg < 1) n_veg = 1; if (n_veg > MAX_VEGADES) n_veg = MAX_VEGADES; id_lletres = ini_mem(sizeof(int)); /* crear zona mem. compartida */ p_lletres = map_mem(id_lletres); /* obtenir adres. de mem. compartida */ *p_lletres = atoi(ll_args[3]); /* inicialitza variable compartida */ if (*p_lletres < 1) *p_lletres = 1; if (*p_lletres > n_proc*n_veg) *p_lletres = n_proc*n_veg; sprintf(a3,"%i",id_lletres); /* convertir identificador mem. en string */ n_fil = n_proc+3; n_col = n_veg+2; mida_camp = win_ini(&n_fil,&n_col,'+',INVERS); if (mida_camp < 0) { /* si no pot crear l'entorn de joc amb les curses */ switch (mida_camp) { case -1: fprintf(stderr,"camp de joc ja creat!\n"); break; case -2: fprintf(stderr,"no s'ha pogut inicialitzar l'entorn de curses!\n"); break; case -3: fprintf(stderr,"les mides del camp demanades son massa grans!\n"); break; case -4: fprintf(stderr,"no s'ha pogut crear la finestra!\n"); break; } elim_mem(id_lletres); /* elimina zona de memoria compartida */ exit(2); } id_win = ini_mem(mida_camp); /* crear zona mem. compartida */ p_win = map_mem(id_win); /* obtenir adres. de mem. compartida */ sprintf(a4,"%i",id_win); sprintf(a5,"%i",n_fil); /* convertir mides camp en string */ sprintf(a6,"%i",n_col); win_set(p_win,n_fil,n_col); /* crea acces a finestra oberta */ n = 0; for ( i = 0; i < n_proc; i++) { tpid[n] = fork(); /* crea un nou proces */ if (tpid[n] == (pid_t) 0) /* branca del fill */ { sprintf(a1,"%i",(i+1)); execlp("./mp_car2", "mp_car2", a1, ll_args[2], a3, a4, a5, a6, (char *)0); fprintf(stderr,"error: no puc executar el process fill \'mp_car2\'\n"); exit(0); } else if (tpid[n] > 0) n++; /* branca del pare */ } /* fprintf(stderr,"Pare: he creat %d processos fill, espero que acabin!\n\n",n);*/ do { sprintf(fmis,"lletres = %d",*p_lletres); win_escristr(fmis); win_update(); /* actualitza visualitzacio CURSES */ win_retard(20); } while (*p_lletres != 0); t_total = 0; for (i = 0; i < n; i++) { waitpid(tpid[i],&t,0); /* espera finalitzacio d'un fill */ t = t >> 8; /* normalitza resultat */ /* fprintf(stderr,"el proces (%d) ha escrit %d lletres\n",tpid[i],t); */ t_total += t; } win_fi(); printf("\nJa han acabat tots els processos creats!\n"); printf("Entre tots els processos han escrit %d lletres.\n",t_total); elim_mem(id_win); /* elimina zones de memoria compartida */ elim_mem(id_lletres); return(0); }
static void vbell_cb(void) { term.in_vbell = false; win_update(); }
int main(int argc, char *argv[]) { byte keypress; client_init(); if( argc > 1 ) /* Command line arguments */ handle_cl_args(argc, argv); srand( time(NULL) ); calc_lookup_tables(DEGREES); win_init(); entity_init(); if( (ent_img_loaded = (char *)malloc(num_entity_types)) == NULL ) { perror("Malloc"); ERR_QUIT("Error allocating ent_img_loaded array", 1); } else { memset(ent_img_loaded, 0, num_entity_types); } /* Load client preferences from file */ read_config_file( &client ); /* Set view dimensions, which are calculated by tile width & heights */ client.view_w = client.x_tiles * TILE_W; client.view_h = client.y_tiles * TILE_H; /* What the client WISHES their dimensions were (this may not be what it actually is, ie in demo's etc */ client.desired_w = client.view_w; client.desired_h = client.view_h; weapon_type_init(); particle_init(); menu_init(); cl_network_init(); client.state = MENU; if( client.demo == DEMO_PLAY ) { cl_network_connect(NULL, 42); client.state = GAME_LOAD; } for( ; ; ) { switch( client.state ) { case MENU: win_ungrab_pointer(); menu_driver(); break; case GAME_LOAD: win_set_properties(VERSION, client.view_w, client.view_h+STATUS_H); wait_till_expose(5); /* Finished loading, we are ready to play */ cl_change_map(client.map, client.gamemode); break; case GAME_RESUME: /* Resume game from menu */ win_set_properties(VERSION, client.view_w, client.view_h+STATUS_H); wait_till_expose(5); input_clear(); draw_status_bar(); cl_netmsg_send_ready(); /* Tell server new details */ cl_net_finish(); /* Send the NETMSG_READY to the server */ client.state = GAME_JOIN; break; case GAME_JOIN: win_set_cursor( client.mousemode!=MOUSEMODE_ROTATE ); win_set_cursor( 1 ); if( client.mousemode ) { win_grab_pointer(); } text_buf_clear(); particle_clear(); case GAME_PLAY: cl_net_update(); if( client.state == GAME_PLAY ) { /* Maybe changed in net_update */ draw_crosshair( my_entity ); if( client.map_target_active ) draw_map_target( my_entity ); text_buf_update(); if( client.netstats ) cl_net_stats(); win_update(); /* Keyboard Input */ client.dir = my_entity.dir; keypress = get_input(); cl_netmsg_send_cl_update(keypress, client.dir); } cl_net_finish(); /* Send things that need sending */ cap_fps(client.fps); break; case QUIT: game_close(); image_close(); /* Free all the images */ win_close(); write_config_file(&client); if( ent_img_loaded != NULL ) free(ent_img_loaded); exit(EXIT_SUCCESS); break; } } return EXIT_SUCCESS; }