/* $Id$ */ /** * edit.c, �ΨӴ��� bbs�W����r�s�边, �Y ve. * �{�b�o�@�ӬO�c�d�L������, �����í�w, �Τ���h�� cpu, ���O�i�H�٤U�\�h * ���O���� (�H Ptt����, �b�E�d�H�W�����ɭ�, ���i�٤U 50MB ���O����) * �p�G�z�{���u�� cpu���O����v�ä��X�G�z�����D, �z�i�H�Ҽ{��ϥέץ��e�� * ���� (Revision 782) * * �쥻 ve �����k�O, �]���C�@��̤j�i�H��J WRAPMARGIN �Ӧr, ��O�N���C�@ * ��O�d�F WRAPMARGIN �o��j���Ŷ� (�� 512 bytes) . ���O��ڤW, ���b�ץ� * �����̤p���Ҷq�W, �ڭ̥u���n�ϱo��ЩҦb�o�@����� WRAPMARGIN �o��j, * ��L�C�@���ꤣ���n�o��h���Ŷ�. ��O�o�� patch�N�b�C����Цb�涡���� * ���ɭ�, �N�쥻������O�����Y�p, �A�N�s���쪺���歫�s�[�j, �H�F���̤p�� * �O����ζq. * �H�W�����o�Ӱʧ@�b adjustline() ������, adjustline()�t�~�]�A�ץ��ƭ� * global pointer, �H�קK dangling pointer . * �t�~�Y�w�q DEBUG, �b textline_t ���c���N�[�J mlength, ���ܸӦ��ڦ��� * �O����j�p. �H��K���յ��G. * �o�Ӫ������G�٦��a��S���ץ��n, �i��ɭP segmentation fault . * * FIXME �b�϶��аO�Ҧ�(blockln>=0)����W�R�ק�i��|�y�� blockln, blockpnt, * and/or blockline ���~. �Ʀܧ� blockline �屼�| access ��w�Q free ���� * memory. �i��n�令�аO�Ҧ� readonly, �άO���Y�ǰʧ@�ɦ۰ʨ����аO�Ҧ� * (blockln=-1) */ #include "bbs.h" #if 0 #define register #define DEBUG #define inline #endif /** * data ��쪺�Ϊk: * �C�� allocate �@�� textline_t �ɡA�|�t���L (sizeof(textline_t) + string * length - 1) ���j�p�C�p���i�����s�� data �Ӥ����B�~�� malloc�C */ typedef struct textline_t { struct textline_t *prev; struct textline_t *next; short len; #ifdef DEBUG short mlength; #endif char data[1]; } textline_t; #define KEEP_EDITING -2 enum { NOBODY, MANAGER, SYSOP }; /** * �o�ӻ����|�N��� edit.c �B�@�������a�L�A�D�n�|�q editor_internal_t �� * data structure �Ͱ_�C���C�@�� data member ���Բӥ\��A�Ш� sturcture * �������ѡC * * �峹�����e (�H�U�� content) �H�u��v�����A�D�n�H firstline, lastline, * totaln �ӰO���C * * User �b�e�����ݨ쪺�e���A�m��@�ӡu window �v���A�o�� window �|�b * content �W���ʡAwindow �̭����d��Y���n show �X�Ӫ��d��C���ΤF���� * ���ӰO���A�]�A currline, top_of_win, currln, currpnt, curr_window_line, * edit_margin�C��ܥX�Ӫ��ĪG���M���u�O�a�o�X�Ӹ�ơA�ٷ|���L��즳�椬 * �@�ΡA�Ҧp �m��s��Ҧ��B�S���Ÿ��s�� �����C�䤤�̽����������O�b��� block * �]����^���ɭԡC�������ı���欰�O�G���D��Цb�}�l�����ثe�]�����^����m * �O�P�@�ӡ]���ɳo�ӽd��O������d��^�A�_�h�N�O�q�}�l���@�C�@����ثe�]�����^ * �o�@�C�C * * editor ���ϥΤW�ثe������ inclusive �� mode�G * insert mode: * ���J/���N * ansi mode: * �m��s�� * indent mode: * �۰��Y�� * phone mode: * �S���Ÿ��s�� * raw mode: * ignore Ctrl('S'), Ctrl('Q'), Ctrl('T') * �٤�: �o�������? �ݰ_�ӬO modem �W�ǥ� (�S�H�b�γo�ӤF�a) * ���ӷ� dbcs option �a * * editor �䴩�F�϶���ܪ��\��]�h���� �� ��椤�����q�^�A���@�� selected * block�A�i�H cut, copy, cancel, �Ϊ̦s��Ȩ��ɡA�ƦܬO����/�k shift�C�Ԩ� * block_XXX�C * * �� Ctrl('Y') �R�������@��|�Q�O�� deleted_line �o����줤�Cundelete_line() * �i�H�� undelete ���ʧ@�C deleted_line ��l�Ȭ� NULL�A�C���u���\�s�@��A�ҥH * �b�s�U�ӮɡA�o�{�Ȥ��� NULL �|���� free ���ʧ@�Ceditor �����ɡA�b * edit_buffer_destructor() ���p�G�o�{�� deleted_line�A�|�b�o�����C��L�a * ��]���ۦP���@�k�A�Ҧp searched_string�Csearched_string �O�b�j�M�峹���e * �ɡA�n�M�䪺 key word�C * * �٦��@�Ӧ��쪺�S�I�A�u�A���ǰt�v�I�欰�N�p�P�b vim �̭��@�ˡC�c�A���M�S�� * ��j�աA���ܤ֦b�t�� c-style comment �� c-style string �ɬO�諸��C�o�Ӱ� * �@�w�q�� match_paren() ���C * * �t�~�A�p�G���ݭn�s�W�s�����A�бN��l�ơ]���ݭn���ܡ^���ʧ@�g�b * edit_buffer_constructor ���C���M�]���� edit_buffer_destructor �i�H�ϥΡC * * ���~�A���F���Ѥ@�� reentrant �� editor�Aprev ���V�e�@�� editor �� * editor_internal_t�Center_edit_buffer �� exit_edit_buffer ���Ѷi�X�������A * �̭����O�|�I�s constructor �� destructor�C * * TODO * vedit �̭����� curr_buf->oldcurrline�A�ΨӰO�W�@���� currline�C�ѩ�u�� currline �� * �� WRAPMARGIN ���Ŷ��A�ҥH�ثe���@�k�O�� curr_buf->oldcurrline != currline �ɡA�N * resize curr_buf->oldcurrline �� currline�C���O�V�|���O�ثe�����H�u�l�� currline ���� * ���A�ӥB�Y�����J�� curr_buf->oldcurrline ���쪺���@��w�g�Q free ���A�N���F�C�̦n�O * ��o�ǪF��]�_�ӡC���L�ڨS�Ű��F�Apatch is welcome :P * * Victor Hsieh <victor@csie.org> * Thu, 03 Feb 2005 15:18:00 +0800 */ typedef struct editor_internal_t { textline_t *firstline; /* first line of the article. */ textline_t *lastline; /* last line of the article. */ textline_t *currline; /* current line of the article(window). */ textline_t *blockline; /* the first selected line of the block. */ textline_t *top_of_win; /* top line of the article in the window. */ textline_t *deleted_line; /* deleted line. Just keep one deleted line. */ textline_t *oldcurrline; short currln; /* current line of the article. */ short currpnt; /* current column of the article. */ short totaln; /* total lines of the article. */ short curr_window_line; /* current line to the window. */ short last_margin; short edit_margin; /* when the cursor moves out of range (say, t_columns), shift this length of the string so you won't see the first edit_margin-th character. */ short lastindent; short blockln; /* the row you started to select block. */ short blockpnt; /* the column you started to select block. */ char insert_c; /* insert this character when shift something in order to compensate the new space. */ char last_phone_mode; char ifuseanony :1; char redraw_everything :1; char insert_mode :1; char ansimode :1; char indent_mode :1; char phone_mode :1; char raw_mode :1; char *searched_string; char *(*substr_fp) (); struct editor_internal_t *prev; } editor_internal_t; // } __attribute__ ((packed)) static editor_internal_t *curr_buf = NULL; static const char fp_bak[] = "bak"; static const char * const BIG5[13] = { "�A�F�G�B�N�C�H�I�E�T�]�^��������", "�b�c�d�e�f�g�h�i�j�k�l�m�n�o�p�� ", "���������������������������", "�ˡ\\�[�¡ġX�����y���@�������A�B", "�ϡСѡҡԡӡסݡڡܡء١ա֡��", "�ۡ������������ޡߡ���", "����������������", "�i�j�u�v�y�z�q�r�m�n�e�f�a�b�_�`", "�g�h�c�d�k�l�s�t�o�p�w�x�{�|", "���������Ρ������I����K�L�ơ�", "�\\�]�^�_�`�a�b�c�d�e�f�g�h�i�j�k", "�l�m�n�o�p�q�r�s�G�K�N�S�U�X�Z�[", "��������������������" }; static const char * const BIG_mode[13] = { "���I", "�϶�", "�аO", "�нu", "�Ƥ@", "�ƤG", "�b�Y", "�A�@", "�A�G", "��L", "�Ƥ@", "�ƤG", "�Ʀr" }; static const char *table[8] = { "�x�w�|�r�}�u�q�t�z�s�{", "����������������������", "���w������������������", "�x�����������������", "�x�w���r���u�q�t�~�s��", "�������䢣������~�ޢ�", "���w������������������", "�x�����������������" }; static const char *table_mode[6] = { "����", "�s��", "�q", "��", "��", "��" }; #ifdef DBCSAWARE static char mbcs_mode =1; #define IS_BIG5_HI(x) (0x81 <= (x) && (x) <= 0xfe) #define IS_BIG5_LOS(x) (0x40 <= (x) && (x) <= 0x7e) #define IS_BIG5_LOE(x) (0x80 <= (x) && (x) <= 0xfe) #define IS_BIG5_LO(x) (IS_BIG5_LOS(x) || IS_BIG5_LOE(x)) #define IS_BIG5(hi,lo) (IS_BIG5_HI(hi) && IS_BIG5_LO(lo)) int mchar_len(unsigned char *str) { return ((str[0] != '\0' && str[1] != '\0' && IS_BIG5(str[0], str[1])) ? 2 : 1); } #define FC_RIGHT (0) #define FC_LEFT (~FC_RIGHT) int fix_cursor(char *str, int pos, unsigned int dir) { int newpos, w; for(newpos = 0; *str != '\0' && (w = mchar_len((unsigned char*)str), newpos + 1 + (dir & (w - 1))) <= pos; str += w, newpos += w) ; return newpos; } #endif /* �O����z�P�s��B�z */ static void indigestion(int i) { vmsgf("�Y������ (%d)\n", i); u_exit("EDITOR FAILED"); assert(0); exit(0); } static inline void edit_buffer_constructor(editor_internal_t *buf) { /* all unspecified columns are 0 */ buf->blockln = -1; buf->insert_c = ' '; buf->insert_mode = 1; buf->redraw_everything = 1; buf->lastindent = -1; } static inline void enter_edit_buffer(void) { editor_internal_t *p = curr_buf; curr_buf = (editor_internal_t *)malloc(sizeof(editor_internal_t)); memset(curr_buf, 0, sizeof(editor_internal_t)); curr_buf->prev = p; edit_buffer_constructor(curr_buf); } static inline void free_line(textline_t *p) { p->next = (textline_t*)0x12345678; p->prev = (textline_t*)0x87654321; p->len = -12345; free(p); } static inline void edit_buffer_destructor(void) { if (curr_buf->deleted_line != NULL) free_line(curr_buf->deleted_line); if (curr_buf->searched_string != NULL) free(curr_buf->searched_string); } static inline void exit_edit_buffer(void) { editor_internal_t *p = curr_buf; edit_buffer_destructor(); curr_buf = p->prev; free(p); } /** * transform position ansix in an ansi string of textline_t to the same * string without escape code. * @return position in the string without escape code. */ static int ansi2n(int ansix, textline_t * line) { register char *data, *tmp; register char ch; data = tmp = line->data; while (*tmp) { if (*tmp == KEY_ESC) { while ((ch = *tmp) && !isalpha((int)ch)) tmp++; if (ch) tmp++; continue; } if (ansix <= 0) break; tmp++; ansix--; } return tmp - data; } /** * opposite to ansi2n, according to given textline_t. * @return position in the string with escape code. */ static short n2ansi(short nx, textline_t * line) { register short ansix = 0; register char *tmp, *nxp; register char ch; tmp = nxp = line->data; nxp += nx; while (*tmp) { if (*tmp == KEY_ESC) { while ((ch = *tmp) && !isalpha((int)ch)) tmp++; if (ch) tmp++; continue; } if (tmp >= nxp) break; tmp++; ansix++; } return ansix; } /* �ù��B�z�G���U�T���B��ܽs�褺�e */ static inline void show_phone_mode_panel(void) { int i; move(b_lines - 1, 0); clrtoeol(); if (curr_buf->last_phone_mode < 20) { int len; prints(ANSI_COLOR(1;46) "�i%s��J�j ", BIG_mode[curr_buf->last_phone_mode - 1]); len = strlen(BIG5[curr_buf->last_phone_mode - 1]) / 2; for (i = 0; i < len; i++) prints(ANSI_COLOR(37) "%c" ANSI_COLOR(34) "%2.2s", i + 'A', BIG5[curr_buf->last_phone_mode - 1] + i * 2); for (i = 0; i < 16 - len; i++) outs(" "); outs(ANSI_COLOR(37) " `1~9-=���� Z����" ANSI_RESET); } else { prints(ANSI_COLOR(1;46) "�i����ø�s�j /=%s *=%s�� ", table_mode[(curr_buf->last_phone_mode - 20) / 4], table_mode[(curr_buf->last_phone_mode - 20) % 4 + 2]); for (i = 0;i < 11;i++) prints(ANSI_COLOR(37) "%c" ANSI_COLOR(34) "%2.2s", i ? i + '/' : '.', table[curr_buf->last_phone_mode - 20] + i * 2); outs(ANSI_COLOR(37) " Z���X " ANSI_RESET); } } /** * Show the bottom status/help bar, and BIG5/table in phone_mode. */ static void edit_msg(void) { int n = curr_buf->currpnt; if (curr_buf->ansimode) /* Thor: �@ ansi �s�� */ n = n2ansi(n, curr_buf->currline); if (curr_buf->phone_mode) show_phone_mode_panel(); move(b_lines, 0); clrtoeol(); outs( ANSI_COLOR(37;44) " �s��峹 " ANSI_COLOR(31;47) " (^Z/F1)" ANSI_COLOR(30) "���� " ANSI_COLOR(31;47) "(^P/^G)" ANSI_COLOR(30) "���J�Ÿ�/�Ϥ� " ANSI_COLOR(31) "(^X/^Q)" ANSI_COLOR(30) "���}"); prints( "��%s�x%c%c%c%c�� %3d:%3d ", curr_buf->insert_mode ? "���J" : "���N", curr_buf->ansimode ? 'A' : 'a', curr_buf->indent_mode ? 'I' : 'i', curr_buf->phone_mode ? 'P' : 'p', curr_buf->raw_mode ? 'R' : 'r', curr_buf->currln + 1, n + 1); outslr("", 78, ANSI_RESET, 0); } /** * return the middle line of the window. */ static inline int middle_line(void) { return p_lines / 2 + 1; } /** * Return the previous 'num' line. Stop at the first line if there's * not enough lines. */ static textline_t * back_line(textline_t * pos, int num) { while (num-- > 0) { register textline_t *item; if (pos && (item = pos->prev)) { pos = item; curr_buf->currln--; } else break; } return pos; } /* calculate if cursor is at bottom, scroll required? * currently vedit does NOT handle if curr_window_line > b_lines, * take care if you changed curr_window_line! */ static inline int cursor_at_bottom_line(void) { return curr_buf->curr_window_line == b_lines || (curr_buf->phone_mode && curr_buf->curr_window_line == b_lines - 1); } /** * Return the next 'num' line. Stop at the last line if there's not * enough lines. */ static textline_t * forward_line(textline_t * pos, int num) { while (num-- > 0) { register textline_t *item; if (pos && (item = pos->next)) { pos = item; curr_buf->currln++; } else break; } return pos; } /** * move the cursor to the next line with ansimode fixed. */ static inline void cursor_to_next_line(void) { short pos; if (curr_buf->currline->next == NULL) return; curr_buf->currline = curr_buf->currline->next; curr_buf->curr_window_line++; curr_buf->currln++; if (curr_buf->ansimode) { pos = n2ansi(curr_buf->currpnt, curr_buf->currline->prev); curr_buf->currpnt = ansi2n(pos, curr_buf->currline); } else { curr_buf->currpnt = (curr_buf->currline->len > curr_buf->lastindent) ? curr_buf->lastindent : curr_buf->currline->len; } } /** * opposite to cursor_to_next_line. */ static inline void cursor_to_prev_line(void) { short pos; if (curr_buf->currline->prev == NULL) return; curr_buf->curr_window_line--; curr_buf->currln--; curr_buf->currline = curr_buf->currline->prev; if (curr_buf->ansimode) { pos = n2ansi(curr_buf->currpnt, curr_buf->currline->next); curr_buf->currpnt = ansi2n(pos, curr_buf->currline); } else { curr_buf->currpnt = (curr_buf->currline->len > curr_buf->lastindent) ? curr_buf->lastindent : curr_buf->currline->len; } } static inline void window_scroll_down(void) { curr_buf->curr_window_line = 0; if (!curr_buf->top_of_win->prev) indigestion(6); else { curr_buf->top_of_win = curr_buf->top_of_win->prev; rscroll(); } } static inline void window_scroll_up(void) { curr_buf->curr_window_line = b_lines - (curr_buf->phone_mode ? 2 : 1); if (unlikely(!curr_buf->top_of_win->next)) indigestion(7); else { curr_buf->top_of_win = curr_buf->top_of_win->next; if(curr_buf->phone_mode) move(b_lines-1, 0); else move(b_lines, 0); clrtoeol(); scroll(); } } /** * Get the current line number in the window now. */ static int get_lineno_in_window(void) { int cnt = 0; textline_t *p = curr_buf->currline; while (p && (p != curr_buf->top_of_win)) { cnt++; p = p->prev; } return cnt; } /** * shift given raw data s with length len to left by one byte. */ static void raw_shift_left(char *s, int len) { int i; for (i = 0; i < len && s[i] != 0; ++i) s[i] = s[i + 1]; } /** * shift given raw data s with length len to right by one byte. */ static void raw_shift_right(char *s, int len) { int i; for (i = len - 1; i >= 0; --i) s[i + 1] = s[i]; } /** * Return the pointer to the next non-space position. */ static char * next_non_space_char(char *s) { while (*s == ' ') s++; return s; } /** * allocate a textline_t with length length. */ static textline_t * alloc_line(short length) { textline_t *p; if ((p = (textline_t *) malloc(length + sizeof(textline_t)))) { memset(p, 0, length + sizeof(textline_t)); #ifdef DEBUG p->mlength = length; #endif return p; } indigestion(13); abort_bbs(0); return NULL; } /** * Insert p after line in list. Keeps up with last line */ static void insert_line(textline_t *line, textline_t *p) { textline_t *n; if ((p->next = n = line->next)) n->prev = p; else curr_buf->lastline = p; line->next = p; p->prev = line; } /** * delete_line deletes 'line' from the line list. * @param saved true if you want to keep the line in deleted_line */ static void delete_line(textline_t * line, int saved) { register textline_t *p = line->prev; register textline_t *n = line->next; if (!p && !n) { line->data[0] = line->len = 0; return; } assert(line != curr_buf->top_of_win); if (n) n->prev = p; else curr_buf->lastline = p; if (p) p->next = n; else curr_buf->firstline = n; curr_buf->totaln--; if (saved) { if (curr_buf->deleted_line != NULL) free_line(curr_buf->deleted_line); curr_buf->deleted_line = line; curr_buf->deleted_line->next = NULL; curr_buf->deleted_line->prev = NULL; } else { free_line(line); } } static int ask(const char *prompt) { int ch; move(0, 0); clrtoeol(); standout(); outs(prompt); standend(); ch = igetch(); move(0, 0); clrtoeol(); return (ch); } /** * Return the indent space number according to CURRENT line and the FORMER * line. It'll be the first line contains non-space character. * @return space number from the beginning to the first non-space character, * return 0 if non or not in indent mode. */ static int indent_space(void) { textline_t *p; int spcs; if (!curr_buf->indent_mode) return 0; for (p = curr_buf->currline; p; p = p->prev) { for (spcs = 0; p->data[spcs] == ' '; ++spcs); /* empty loop */ if (p->data[spcs]) return spcs; } return 0; } /** * adjustline(oldp, len); * �ΨӱN oldp ���쪺���@��, ���s�ץ��� len�o���. * * �I�s�F adjustline ��O�o�ˬd���ʨ� currline, �p�G�O���� oldcurrline �]�n�� * * In FreeBSD: * �b�o��@�@���F�⦸�� memcpy() , �Ĥ@���q heap ���� stack , * ���ӰO���� free() ��, �S���s�b stack�W malloc() �@��, * �M��A�����^��. * �D�n�O�� sbrk() �[��쪺���G, �o�ˤl�~�u�����Y��O����ζq. * �Ԩ� /usr/share/doc/papers/malloc.ascii.gz (in FreeBSD) */ static textline_t * adjustline(textline_t *oldp, short len) { // XXX write a generic version ? char tmpl[sizeof(textline_t) + WRAPMARGIN]; textline_t *newp; #ifdef deBUG if(oldp->len > WRAPMARGIN || oldp->len < 0) { kill(currpid, SIGSEGV); } #endif memcpy(tmpl, oldp, oldp->len + sizeof(textline_t)); free_line(oldp); newp = alloc_line(len); memcpy(newp, tmpl, len + sizeof(textline_t)); #ifdef DEBUG newp->mlength = len; #endif if( oldp == curr_buf->firstline ) curr_buf->firstline = newp; if( oldp == curr_buf->lastline ) curr_buf->lastline = newp; if( oldp == curr_buf->currline ) curr_buf->currline = newp; if( oldp == curr_buf->blockline ) curr_buf->blockline = newp; if( oldp == curr_buf->top_of_win) curr_buf->top_of_win= newp; if( newp->prev != NULL ) newp->prev->next = newp; if( newp->next != NULL ) newp->next->prev = newp; // vmsg("adjust %x to %x, length: %d", (int)oldp, (int)newp, len); return newp; } /** * split 'line' right before the character pos * * @return the latter line after splitting */ static textline_t * split(textline_t * line, int pos) { if (pos <= line->len) { register textline_t *p = alloc_line(WRAPMARGIN); register char *ptr; int spcs = indent_space(); curr_buf->totaln++; p->len = line->len - pos + spcs; line->len = pos; memset(p->data, ' ', spcs); p->data[spcs] = 0; ptr = line->data + pos; if (curr_buf->indent_mode) ptr = next_non_space_char(ptr); strcat(p->data + spcs, ptr); ptr[0] = '\0'; if (line == curr_buf->currline && pos <= curr_buf->currpnt) { line = adjustline(line, line->len); insert_line(line, p); // because p is allocated with fullsize, we can skip adjust. // curr_buf->oldcurrline = line; curr_buf->oldcurrline = curr_buf->currline = p; if (pos == curr_buf->currpnt) curr_buf->currpnt = spcs; else curr_buf->currpnt -= pos; curr_buf->curr_window_line++; curr_buf->currln++; /* split may cause cursor hit bottom */ if (cursor_at_bottom_line()) window_scroll_up(); } else { p = adjustline(p, p->len); insert_line(line, p); } curr_buf->redraw_everything = YEA; } return line; } /** * Insert a character ch to current line. * * The line will be split if the length is >= WRAPMARGIN. It'll be split * from the last space if any, or start a new line after the last character. */ static void insert_char(int ch) { register textline_t *p = curr_buf->currline; register int i = p->len; register char *s; int wordwrap = YEA; if (curr_buf->currpnt > i) { indigestion(1); return; } if (curr_buf->currpnt < i && !curr_buf->insert_mode) { p->data[curr_buf->currpnt++] = ch; /* Thor: ansi �s��, �i�Hoverwrite, ���\�� ansi code */ if (curr_buf->ansimode) curr_buf->currpnt = ansi2n(n2ansi(curr_buf->currpnt, p), p); } else { raw_shift_right(p->data + curr_buf->currpnt, i - curr_buf->currpnt + 1); p->data[curr_buf->currpnt++] = ch; i = ++(p->len); } if (i < WRAPMARGIN) return; s = p->data + (i - 1); while (s != p->data && *s == ' ') s--; while (s != p->data && *s != ' ') s--; if (s == p->data) { wordwrap = NA; s = p->data + (i - 2); } p = split(p, (s - p->data) + 1); p = p->next; i = p->len; if (wordwrap && i >= 1) { if (p->data[i - 1] != ' ') { p->data[i] = ' '; p->data[i + 1] = '\0'; p->len++; } } } /** * insert_char twice. */ static void insert_dchar(const char *dchar) { insert_char(*dchar); insert_char(*(dchar+1)); } static void insert_tab(void) { do { insert_char(' '); } while (curr_buf->currpnt & 0x7); } /** * Insert a string. * * All printable and ESC_CHR will be directly printed out. * '\t' will be printed to align every 8 byte. * '\n' will split the line. * The other character will be ignore. */ static void insert_string(const char *str) { char ch; while ((ch = *str++)) { if (isprint2(ch) || ch == ESC_CHR) insert_char(ch); else if (ch == '\t') insert_tab(); else if (ch == '\n') split(curr_buf->currline, curr_buf->currpnt); } } /** * undelete the deleted line. * * return NULL if there's no deleted_line, otherwise, return currline. */ static textline_t * undelete_line(void) { editor_internal_t tmp; if (!curr_buf->deleted_line) return NULL; tmp.top_of_win = curr_buf->top_of_win; tmp.indent_mode = curr_buf->indent_mode; tmp.curr_window_line = curr_buf->curr_window_line; curr_buf->indent_mode = 0; curr_buf->currpnt = 0; curr_buf->currln++; insert_string(curr_buf->deleted_line->data); insert_string("\n"); curr_buf->top_of_win = tmp.top_of_win; curr_buf->indent_mode = tmp.indent_mode; curr_buf->curr_window_line = tmp.curr_window_line; assert(curr_buf->currline->prev); curr_buf->currline = adjustline(curr_buf->currline, curr_buf->currline->len); curr_buf->currline = curr_buf->currline->prev; curr_buf->currline = adjustline(curr_buf->currline, WRAPMARGIN); curr_buf->oldcurrline = curr_buf->currline; if (curr_buf->currline->prev == NULL) { curr_buf->top_of_win = curr_buf->currline; curr_buf->currln = 0; } return curr_buf->currline; } /* * join $line and $line->next * * line: A1 A2 * next: B1 B2 * ....: C1 C2 * * case B=empty: * return YEA * * case A+B < WRAPMARGIN: * line: A1 A2 B1 B2 * next: C1 C2 * return YEA * NOTE It assumes $line has allocated WRAPMARGIN length of data buffer. * * case A+B1+B2 > WRAPMARGIN, A+B1<WRAPMARGIN * line: A1 A2 B1 * next: B2 " " * call join($next) */ static int join(textline_t * line) { register textline_t *n; register int ovfl; if (!(n = line->next)) return YEA; if (!*next_non_space_char(n->data)) return YEA; ovfl = line->len + n->len - WRAPMARGIN; if (ovfl < 0) { strcat(line->data, n->data); line->len += n->len; delete_line(n, 0); return YEA; } else { register char *s; /* the split point */ s = n->data + n->len - ovfl - 1; while (s != n->data && *s == ' ') s--; while (s != n->data && *s != ' ') s--; if (s == n->data) return YEA; split(n, (s - n->data) + 1); if (line->len + line->next->len >= WRAPMARGIN) { indigestion(0); return YEA; } join(line); n = line->next; ovfl = n->len - 1; if (ovfl >= 0 && ovfl < WRAPMARGIN - 2) { s = &(n->data[ovfl]); if (*s != ' ') { strcpy(s, " "); n->len++; } } line->next=adjustline(line->next, WRAPMARGIN); join(line->next); line->next=adjustline(line->next, line->next->len); return NA; } } static void delete_char(void) { register int len; if ((len = curr_buf->currline->len)) { if (unlikely(curr_buf->currpnt >= len)) { indigestion(1); return; } raw_shift_left(curr_buf->currline->data + curr_buf->currpnt, curr_buf->currline->len - curr_buf->currpnt + 1); curr_buf->currline->len--; } } static void load_file(FILE * fp) { char buf[WRAPMARGIN + 2]; int indent_mode0 = curr_buf->indent_mode; assert(fp); curr_buf->indent_mode = 0; while (fgets(buf, sizeof(buf), fp)) insert_string(buf); curr_buf->indent_mode = indent_mode0; } /* �Ȧs�� */ char * ask_tmpbuf(int y) { static char fp_buf[10] = "buf.0"; static char msg[] = "�п�ܼȦs�� (0-9)[0]: "; msg[19] = fp_buf[4]; do { if (!getdata(y, 0, msg, fp_buf + 4, 4, DOECHO)) fp_buf[4] = msg[19]; } while (fp_buf[4] < '0' || fp_buf[4] > '9'); return fp_buf; } static void read_tmpbuf(int n) { FILE *fp; char fp_tmpbuf[80]; char tmpfname[] = "buf.0"; char *tmpf; char ans[4] = "y"; if (0 <= n && n <= 9) { tmpfname[4] = '0' + n; tmpf = tmpfname; } else { tmpf = ask_tmpbuf(3); n = tmpf[4] - '0'; } setuserfile(fp_tmpbuf, tmpf); if (n != 0 && n != 5 && more(fp_tmpbuf, NA) != -1) getdata(b_lines - 1, 0, "�T�wŪ�J��(Y/N)?[Y]", ans, sizeof(ans), LCECHO); if (*ans != 'n' && (fp = fopen(fp_tmpbuf, "r"))) { load_file(fp); fclose(fp); while (curr_buf->curr_window_line >= b_lines) { curr_buf->curr_window_line--; curr_buf->top_of_win = curr_buf->top_of_win->next; } } } static void write_tmpbuf(void) { FILE *fp; char fp_tmpbuf[80], ans[4]; textline_t *p; setuserfile(fp_tmpbuf, ask_tmpbuf(3)); if (dashf(fp_tmpbuf)) { more(fp_tmpbuf, NA); getdata(b_lines - 1, 0, "�Ȧs�ɤw����� (A)���[ (W)�мg (Q)�����H[A] ", ans, sizeof(ans), LCECHO); if (ans[0] == 'q') return; } if ((fp = fopen(fp_tmpbuf, (ans[0] == 'w' ? "w" : "a+")))) { for (p = curr_buf->firstline; p; p = p->next) { if (p->next || p->data[0]) fprintf(fp, "%s\n", p->data); } fclose(fp); } } static void erase_tmpbuf(void) { char fp_tmpbuf[80]; char ans[4] = "n"; setuserfile(fp_tmpbuf, ask_tmpbuf(3)); if (more(fp_tmpbuf, NA) != -1) getdata(b_lines - 1, 0, "�T�w�R����(Y/N)?[N]", ans, sizeof(ans), LCECHO); if (*ans == 'y') unlink(fp_tmpbuf); } /** * �s�边�۰ʳƥ� *(�̦h�ƥ� 512 �� (?)) */ void auto_backup(void) { if (curr_buf == NULL) return; if (curr_buf->currline) { FILE *fp; textline_t *p, *v; char bakfile[PATHLEN]; int count = 0; setuserfile(bakfile, fp_bak); if ((fp = fopen(bakfile, "w"))) { for (p = curr_buf->firstline; p != NULL && count < 512; p = v, count++) { v = p->next; fprintf(fp, "%s\n", p->data); free_line(p); } fclose(fp); } curr_buf->currline = NULL; } } /** * ���^�s�边�ƥ� */ void restore_backup(void) { char bakfile[80], buf[80]; setuserfile(bakfile, fp_bak); if (dashf(bakfile)) { stand_title("�s�边�۰ʴ_��"); getdata(1, 0, "�z���@�g�峹�|�������A(S)�g�J�Ȧs�� (Q)��F�H[S] ", buf, 4, LCECHO); if (buf[0] != 'q') { setuserfile(buf, ask_tmpbuf(3)); Rename(bakfile, buf); } else unlink(bakfile); } } /* �ޥΤ峹 */ static int garbage_line(const char *str) { int qlevel = 0; while (*str == ':' || *str == '>') { if (*(++str) == ' ') str++; if (qlevel++ >= 1) return 1; } while (*str == ' ' || *str == '\t') str++; if (qlevel >= 1) { if (!strncmp(str, "�� ", 3) || !strncmp(str, "==>", 3) || strstr(str, ") ����:\n")) return 1; } return (*str == '\n'); } static void quote_strip_ansi_inline(unsigned char *is) { unsigned char *os = is; while (*is) { if(*is != ESC_CHR) *os++ = *is; else { is ++; if(*is == '*') { /* ptt prints, keep it as normal */ *os++ = '*'; *os++ = '*'; } else { /* normal ansi, strip them out. */ while (*is && ANSI_IN_ESCAPE(*is)) is++; } } is++; } *os = 0; } static void do_quote(void) { int op; char buf[256]; getdata(b_lines - 1, 0, "�аݭn�ޥέ���(Y/N/All/Repost)�H[Y] ", buf, 3, LCECHO); op = buf[0]; if (op != 'n') { FILE *inf; if ((inf = fopen(quote_file, "r"))) { char *ptr; int indent_mode0 = curr_buf->indent_mode; fgets(buf, 256, inf); if ((ptr = strrchr(buf, ')'))) ptr[1] = '\0'; else if ((ptr = strrchr(buf, '\n'))) ptr[0] = '\0'; if ((ptr = strchr(buf, ':'))) { char *str; while (*(++ptr) == ' '); /* ����o�ϡA���o author's address */ if ((curredit & EDIT_BOTH) && (str = strchr(quote_user, '.'))) { strcpy(++str, ptr); str = strchr(str, ' '); assert(str); str[0] = '\0'; } } else ptr = quote_user; curr_buf->indent_mode = 0; insert_string("�� �ޭz�m"); insert_string(ptr); insert_string("�n���ʨ��G\n"); if (op != 'a') /* �h�� header */ while (fgets(buf, 256, inf) && buf[0] != '\n'); if (op == 'a') while (fgets(buf, 256, inf)) { insert_char(':'); insert_char(' '); quote_strip_ansi_inline((unsigned char *)buf); insert_string(buf); } else if (op == 'r') while (fgets(buf, 256, inf)) { /* repost, keep anything */ // quote_strip_ansi_inline((unsigned char *)buf); insert_string(buf); } else { if (curredit & EDIT_LIST) /* �h�� mail list �� header */ while (fgets(buf, 256, inf) && (!strncmp(buf, "�� ", 3))); while (fgets(buf, 256, inf)) { if (!strcmp(buf, "--\n")) break; if (!garbage_line(buf)) { insert_char(':'); insert_char(' '); quote_strip_ansi_inline((unsigned char *)buf); insert_string(buf); } } } curr_buf->indent_mode = indent_mode0; fclose(inf); } } } /** * �f�d user �ި����ϥ� */ static int check_quote(void) { register textline_t *p = curr_buf->firstline; register char *str; int post_line; int included_line; post_line = included_line = 0; while (p) { if (!strcmp(str = p->data, "--")) break; if (str[1] == ' ' && ((str[0] == ':') || (str[0] == '>'))) included_line++; else { while (*str == ' ' || *str == '\t') str++; if (*str) post_line++; } p = p->next; } if ((included_line >> 2) > post_line) { move(4, 0); outs("���g�峹���ި���ҶW�L 80%�A�бz���ǷL���ץ��G\n\n" ANSI_COLOR(1;33) "1) �W�[�@�Ǥ峹 �� 2) �R�������n���ި�" ANSI_RESET); { char ans[4]; getdata(12, 12, "(E)�~��s�� (W)�j��g�J�H[E] ", ans, sizeof(ans), LCECHO); if (ans[0] == 'w') return 0; } return 1; } return 0; } /* �ɮ׳B�z�GŪ�ɡB�s�ɡB���D�Bñ�W�� */ static void read_file(const char *fpath) { FILE *fp; if ((fp = fopen(fpath, "r")) == NULL) { int fd; if ((fd = creat(fpath, 0600)) >= 0) { close(fd); return; } indigestion(4); abort_bbs(0); } load_file(fp); fclose(fp); } void write_header(FILE * fp, char *mytitle) // FIXME unused { if (curredit & EDIT_MAIL || curredit & EDIT_LIST) { fprintf(fp, "%s %s (%s)\n", str_author1, cuser.userid, cuser.nickname ); } else { char *ptr = mytitle; struct { char author[IDLEN + 1]; char board[IDLEN + 1]; char title[66]; time4_t date; /* last post's date */ int number; /* post number */ } postlog; memset(&postlog, 0, sizeof(postlog)); strlcpy(postlog.author, cuser.userid, sizeof(postlog.author)); if (curr_buf) curr_buf->ifuseanony = 0; #ifdef HAVE_ANONYMOUS if (currbrdattr & BRD_ANONYMOUS) { int defanony = (currbrdattr & BRD_DEFAULTANONYMOUS); if (defanony) getdata(3, 0, "�п�J�A�Q�Ϊ�ID�A�]�i������[Enter]�A" "�άO��[r]�ίu�W�G", real_name, sizeof(real_name), DOECHO); else getdata(3, 0, "�п�J�A�Q�Ϊ�ID�A�]�i������[Enter]�ϥέ�ID�G", real_name, sizeof(real_name), DOECHO); if (!real_name[0] && defanony) { strlcpy(real_name, "Anonymous", sizeof(real_name)); strlcpy(postlog.author, real_name, sizeof(postlog.author)); if (curr_buf) curr_buf->ifuseanony = 1; } else { if (!strcmp("r", real_name) || (!defanony && !real_name[0])) strlcpy(postlog.author, cuser.userid, sizeof(postlog.author)); else { snprintf(postlog.author, sizeof(postlog.author), "%s.", real_name); if (curr_buf) curr_buf->ifuseanony = 1; } } } #endif strlcpy(postlog.board, currboard, sizeof(postlog.board)); if (!strncmp(ptr, str_reply, 4)) ptr += 4; strncpy(postlog.title, ptr, 65); postlog.date = now; postlog.number = 1; append_record(".post", (fileheader_t *) & postlog, sizeof(postlog)); #ifdef HAVE_ANONYMOUS if (currbrdattr & BRD_ANONYMOUS) { int defanony = (currbrdattr & BRD_DEFAULTANONYMOUS); fprintf(fp, "%s %s (%s) %s %s\n", str_author1, postlog.author, (((!strcmp(real_name, "r") && defanony) || (!real_name[0] && (!defanony))) ? cuser.nickname : "�q�q�ڬO�� ? ^o^"), local_article ? str_post2 : str_post1, currboard); } else { fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid, cuser.nickname, local_article ? str_post2 : str_post1, currboard); } #else /* HAVE_ANONYMOUS */ fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid, cuser.nickname, local_article ? str_post2 : str_post1, currboard); #endif /* HAVE_ANONYMOUS */ } mytitle[72] = '\0'; fprintf(fp, "���D: %s\n�ɶ�: %s\n", mytitle, ctime4(&now)); } void addsignature(FILE * fp, int ifuseanony) { FILE *fs; int i; char buf[WRAPMARGIN + 1]; char fpath[STRLEN]; char ch; if (!strcmp(cuser.userid, STR_GUEST)) { fprintf(fp, "\n--\n�� �o�H�� :" BBSNAME "(" MYHOSTNAME ") \n�� From: %s\n", fromhost); return; } if (!ifuseanony) { int browsing = 0; SigInfo si; memset(&si, 0, sizeof(si)); browse_sigs: showsignature(fpath, &i, &si); if (si.total > 0){ char msg[64]; ch = isdigit(cuser.signature) ? cuser.signature : 'x'; sprintf(msg, (browsing || (si.max > si.show_max)) ? "�п��ñ�W�� (1-9, 0=���[ n=½�� x=�H��)[%c]: ": "�п��ñ�W�� (1-9, 0=���[ x=�H��)[%c]: ", ch); getdata(0, 0, msg, buf, 4, LCECHO); if(buf[0] == 'n') { si.show_start = si.show_max + 1; if(si.show_start > si.max) si.show_start = 0; browsing = 1; goto browse_sigs; } if (!buf[0]) buf[0] = ch; if (isdigit((int)buf[0])) ch = buf[0]; else ch = '1' + random() % (si.max+1); cuser.signature = buf[0]; if (ch != '0') { fpath[i] = ch; if ((fs = fopen(fpath, "r"))) { fputs("\n--\n", fp); for (i = 0; i < MAX_SIGLINES && fgets(buf, sizeof(buf), fs); i++) fputs(buf, fp); fclose(fs); } } } } #ifdef HAVE_ORIGIN #ifdef HAVE_ANONYMOUS if (ifuseanony) fprintf(fp, "\n--\n�� �o�H��: " BBSNAME "(" MYHOSTNAME ") \n�� From: %s\n", "�ΦW�ѨϪ��a"); else { char temp[33]; strncpy(temp, fromhost, 31); temp[32] = '\0'; fprintf(fp, "\n--\n�� �o�H��: " BBSNAME "(" MYHOSTNAME ") \n�� From: %s\n", temp); } #else strncpy(temp, fromhost, 15); fprintf(fp, "\n--\n�� �o�H��: " BBSNAME "(" MYHOSTNAME ") \n�� From: %s\n", temp); #endif #endif } static int write_file(char *fpath, int saveheader, int *islocal, char *mytitle) { struct tm *ptime; FILE *fp = NULL; textline_t *p, *v; char ans[TTLEN], *msg; int aborted = 0, line = 0, checksum[3], sum = 0, po = 1; stand_title("�ɮ׳B�z"); if (currstat == SMAIL) msg = "[S]�x�s (A)��� (T)����D (E)�~�� (R/W/D)Ū�g�R�Ȧs�ɡH"; else if (local_article) msg = "[L]�����H�� (S)�x�s (A)��� (T)����D (E)�~�� " "(R/W/D)Ū�g�R�Ȧs�ɡH"; else msg = "[S]�x�s (L)�����H�� (A)��� (T)����D (E)�~�� " "(R/W/D)Ū�g�R�Ȧs�ɡH"; getdata(1, 0, msg, ans, 2, LCECHO); switch (ans[0]) { case 'a': outs("�峹" ANSI_COLOR(1) " �S�� " ANSI_RESET "�s�J"); aborted = -1; break; case 'r': read_tmpbuf(-1); case 'e': return KEEP_EDITING; case 'w': write_tmpbuf(); return KEEP_EDITING; case 'd': erase_tmpbuf(); return KEEP_EDITING; case 't': move(3, 0); prints("�¼��D�G%s", mytitle); strlcpy(ans, mytitle, sizeof(ans)); if (getdata_buf(4, 0, "�s���D�G", ans, sizeof(ans), DOECHO)) strlcpy(mytitle, ans, STRLEN); return KEEP_EDITING; case 's': if (!HasUserPerm(PERM_LOGINOK)) { local_article = 1; move(2, 0); outs("�z�|���q�L�����T�{�A�u�� Local Save�C\n"); pressanykey(); } else local_article = 0; break; case 'l': local_article = 1; } if (!aborted) { if (saveheader && !(curredit & EDIT_MAIL) && check_quote()) return KEEP_EDITING; if (!(*fpath)) setuserfile(fpath, "ve_XXXXXX"); if ((fp = fopen(fpath, "w")) == NULL) { indigestion(5); abort_bbs(0); } if (saveheader) write_header(fp, mytitle); } for (p = curr_buf->firstline; p; p = v) { v = p->next; if (!aborted) { assert(fp); msg = p->data; if (v || msg[0]) { trim(msg); line++; /* check crosspost */ if (currstat == POSTING && po ) { int msgsum = str_checksum(msg); if (msgsum) { if (postrecord.last_bid != currbid && postrecord.checksum[po] == msgsum) { po++; if (po > 3) { postrecord.times++; postrecord.last_bid = currbid; po = 0; } } else po = 1; if (line >= curr_buf->totaln / 2 && sum < 3) { checksum[sum++] = msgsum; } } } fprintf(fp, "%s\n", msg); } } free_line(p); } curr_buf->currline = NULL; if (postrecord.times > MAX_CROSSNUM-1 && hbflcheck(currbid, currutmp->uid)) anticrosspost(); if (po && sum == 3) { memcpy(&postrecord.checksum[1], checksum, sizeof(int) * 3); if(postrecord.last_bid != currbid) postrecord.times = 0; } if (!aborted) { if (islocal) *islocal = local_article; if (currstat == POSTING || currstat == SMAIL) addsignature(fp, curr_buf->ifuseanony); else if (currstat == REEDIT #ifndef ALL_REEDIT_LOG && strcmp(currboard, str_sysop) == 0 #endif ) { ptime = localtime4(&now); fprintf(fp, "�� �s��: %-15s �Ӧ�: %-20s (%02d/%02d %02d:%02d)\n", cuser.userid, fromhost, ptime->tm_mon + 1, ptime->tm_mday, ptime->tm_hour, ptime->tm_min); } fclose(fp); } return aborted; } static inline int has_block_selection(void) { return curr_buf->blockln >= 0; } /** * a block is continual lines of the article. */ /** * stop the block selection. */ static void block_cancel(void) { if (has_block_selection()) { curr_buf->blockln = -1; curr_buf->redraw_everything = YEA; } } static inline void setup_block_begin_end(textline_t **begin, textline_t **end) { if (curr_buf->currln >= curr_buf->blockln) { *begin = curr_buf->blockline; *end = curr_buf->currline; } else { *begin = curr_buf->currline; *end = curr_buf->blockline; } } static inline void setup_block_begin_end_number(short *begin, short *end) { if (curr_buf->currpnt > curr_buf->blockpnt) { *begin = curr_buf->blockpnt; *end = curr_buf->currpnt; } else { *begin = curr_buf->currpnt; *end = curr_buf->blockpnt; } } #define BLOCK_TRUNCATE 0 #define BLOCK_APPEND 1 /** * save the selected block to file 'fname.' * mode: BLOCK_TRUNCATE truncate mode * BLOCK_APPEND append mode */ static void block_save_to_file(const char *fname, int mode) { textline_t *begin, *end; char fp_tmpbuf[80]; FILE *fp; if (!has_block_selection()) return; setup_block_begin_end(&begin, &end); setuserfile(fp_tmpbuf, fname); if ((fp = fopen(fp_tmpbuf, mode == BLOCK_APPEND ? "a+" : "w+"))) { if (begin == end && curr_buf->currpnt != curr_buf->blockpnt) { char buf[WRAPMARGIN + 2]; if (curr_buf->currpnt > curr_buf->blockpnt) { strlcpy(buf, begin->data + curr_buf->blockpnt, sizeof(buf)); buf[curr_buf->currpnt - curr_buf->blockpnt] = 0; } else { strlcpy(buf, begin->data + curr_buf->currpnt, sizeof(buf)); buf[curr_buf->blockpnt - curr_buf->currpnt] = 0; } fputs(buf, fp); } else { textline_t *p; for (p = begin; p != end; p = p->next) fprintf(fp, "%s\n", p->data); fprintf(fp, "%s\n", end->data); } fclose(fp); } } /** * delete selected block */ static void block_delete(void) { textline_t *begin, *end; if (!has_block_selection()) return; setup_block_begin_end(&begin, &end); if (begin == end && curr_buf->currpnt != curr_buf->blockpnt) { short min, max; setup_block_begin_end_number(&min, &max); strcpy(begin->data + min, begin->data + max); begin->len -= max - min; curr_buf->currpnt = min; } else { textline_t *p; if (curr_buf->currln >= curr_buf->blockln) { curr_buf->curr_window_line -= (curr_buf->currln - curr_buf->blockln + 1); if (curr_buf->curr_window_line < 0) { curr_buf->curr_window_line = 0; if (end->next) (curr_buf->top_of_win = end->next)->prev = begin->prev; else curr_buf->top_of_win = (curr_buf->lastline = begin->prev); } curr_buf->currln -= (curr_buf->currln - curr_buf->blockln); } if (begin->prev) begin->prev->next = end->next; else if (end->next) curr_buf->top_of_win = curr_buf->firstline = end->next; else { curr_buf->currline = curr_buf->top_of_win = curr_buf->firstline = curr_buf->lastline = alloc_line(WRAPMARGIN); curr_buf->currln = curr_buf->curr_window_line = curr_buf->edit_margin = 0; } if (end->next) { curr_buf->currline = end->next; curr_buf->currline->prev = begin->prev; } else if (begin->prev) { curr_buf->currline = (curr_buf->lastline = begin->prev); curr_buf->currln--; if (curr_buf->curr_window_line > 0) curr_buf->curr_window_line--; } for (p = begin; p != end; curr_buf->totaln--) free_line((p = p->next)->prev); free_line(end); curr_buf->totaln--; curr_buf->currpnt = 0; } } static void block_cut(void) { if (!has_block_selection()) return; block_save_to_file("buf.0", BLOCK_TRUNCATE); block_delete(); curr_buf->blockln = -1; curr_buf->redraw_everything = YEA; } static void block_copy(void) { if (!has_block_selection()) return; block_save_to_file("buf.0", BLOCK_TRUNCATE); curr_buf->blockln = -1; curr_buf->redraw_everything = YEA; } static void block_prompt(void) { char fp_tmpbuf[80]; char tmpfname[] = "buf.0"; char mode[2]; move(b_lines - 1, 0); clrtoeol(); if (!getdata(b_lines - 1, 0, "��϶����ܼȦs�� (0:Cut, 5:Copy, 6-9, q: Cancel)[0] ", tmpfname + 4, 4, LCECHO)) tmpfname[4] = '0'; if (tmpfname[4] < '0' || tmpfname[4] > '9') goto cancel_block; if (tmpfname[4] == '0') { block_cut(); return; } else if (tmpfname[4] == '5') { block_copy(); return; } setuserfile(fp_tmpbuf, tmpfname); if (dashf(fp_tmpbuf)) { more(fp_tmpbuf, NA); getdata(b_lines - 1, 0, "�Ȧs�ɤw����� (A)���[ (W)�мg (Q)�����H[W] ", mode, sizeof(mode), LCECHO); if (mode[0] == 'q') goto cancel_block; else if (mode[0] != 'a') mode[0] = 'w'; } if (getans("�R���϶�(Y/N)?[N] ") != 'y') goto cancel_block; block_save_to_file(tmpfname, mode[0] == 'a' ? BLOCK_APPEND : BLOCK_TRUNCATE); cancel_block: curr_buf->blockln = -1; curr_buf->redraw_everything = YEA; } static void block_select(void) { curr_buf->blockln = curr_buf->currln; curr_buf->blockpnt = curr_buf->currpnt; curr_buf->blockline = curr_buf->currline; } /** * Just like outs, but print out '*' instead of 27(decimal) in the given string. * * FIXME column could not start from 0 */ void edit_outs(const char *text) { edit_outs_n(text, scr_cols); } void edit_outs_n(const char *text, int n) { int column = 0; register unsigned char inAnsi = 0; register unsigned char ch; #ifdef DBCSAWARE /* 0 = N/A, 1 = leading byte printed, 2 = ansi in middle */ register unsigned char isDBCS = 0; #endif while ((ch = *text++) && (++column < t_columns) && n-- > 0) { if(inAnsi) { if(ch == ESC_CHR) outc('*'); else { outc(ch); if(!ANSI_IN_ESCAPE(ch)) { inAnsi = 0; outs(ANSI_RESET); } } } else if(ch == ESC_CHR) { inAnsi = 1; #ifdef DBCSAWARE if(isDBCS == 1) { isDBCS = 2; outs(//ESC_STR "[1D" ANSI_COLOR(1;33) "?" ANSI_RESET); } #endif outs(ANSI_COLOR(1) "*"); } else { #ifdef DBCSAWARE if(isDBCS == 1) isDBCS = 0; else if (isDBCS == 2) { /* ansi in middle. */ outs(ANSI_COLOR(0;33) "?" ANSI_RESET); isDBCS = 0; continue; } else if(IS_BIG5_HI(ch)) { isDBCS = 1; // peak next char if(n > 0 && *text == ESC_CHR) continue; } #endif outc(ch); } } if(inAnsi) outs(ANSI_RESET); } static void edit_ansi_outs(const char *str) { char c; while ((c = *str++)) { if(c == ESC_CHR && *str == '*') { // ptt prints /* Because moving within ptt_prints is too hard * let's just display it as-is. */ outc('*'); /* char buf[64] = ESC_STR "*x"; str ++; buf[2] = *str++; Ptt_prints(buf, NO_RELOAD); outs(buf); */ } else { outc(c); } } } static void edit_ansi_outs_n(const char *str, int n) { char c; while (n-- > 0 && (c = *str++)) { if(c == ESC_CHR && *str == '*') { // ptt prints /* Because moving within ptt_prints is too hard * let's just display it as-is. */ outc('*'); /* char buf[64] = ESC_STR "*x"; str ++; buf[2] = *str++; Ptt_prints(buf, NO_RELOAD); if(strlen(buf) > n+1) buf[n+1] = 0; outs(buf); n -= strlen(buf); */ } else { outc(c); } } } static inline void display_textline_internal(textline_t *p, int i, int min, int max) { char inblock; short tmp; void (*output)(const char *); void (*output_n)(const char *, int); move(i, 0); clrtoeol(); if (!p) { outc('~'); return; } if (curr_buf->ansimode) { output = edit_ansi_outs; output_n = edit_ansi_outs_n; } else { output = edit_outs; output_n = edit_outs_n; } tmp = curr_buf->currln - curr_buf->curr_window_line + i; /* if line 'i' is in block's range */ if (has_block_selection() && ( (curr_buf->blockln <= curr_buf->currln && curr_buf->blockln <= tmp && tmp <= curr_buf->currln) || (curr_buf->currln <= tmp && tmp <= curr_buf->blockln)) ) { outs(ANSI_COLOR(7)); inblock = 1; } else inblock = 0; if (curr_buf->currln == curr_buf->blockln && p == curr_buf->currline && max > min) { outs(ANSI_RESET); (*output_n)(p->data, min); outs(ANSI_COLOR(7)); (*output_n)(p->data + min, max - min); outs(ANSI_RESET); (*output)(p->data + max); } else #ifdef DBCSAWARE if(mbcs_mode && curr_buf->edit_margin > 0) { if(curr_buf->edit_margin >= p->len) { (*output)(""); } else { int newpnt = curr_buf->edit_margin; unsigned char *pdata = (unsigned char*)(&p->data[0] + curr_buf->edit_margin); if(mbcs_mode) newpnt = fix_cursor(p->data, newpnt, FC_LEFT); if(newpnt == curr_buf->edit_margin-1) { /* this should be always 'outs'? */ // (*output)(ANSI_COLOR(1) "<" ANSI_RESET); outs(ANSI_COLOR(1) "<" ANSI_RESET); pdata++; } (*output)((char*)pdata); } } else #endif (*output)((curr_buf->edit_margin < p->len) ? &p->data[curr_buf->edit_margin] : ""); if (inblock) outs(ANSI_RESET); } /** * given a textline_t 'text' and the line number 'n' in the content, * display this line. * * this is not called... why? */ /* static void display_textline(textline_t *text, int n) { short begin, end; setup_block_begin_end_number(&begin, &end); display_textline_internal(text, n, begin, end); } */ static void refresh_window(void) { register textline_t *p; register int i; short begin, end; setup_block_begin_end_number(&begin, &end); for (p = curr_buf->top_of_win, i = 0; i < b_lines; i++) { display_textline_internal(p, i, begin, end); if (p) p = p->next; } edit_msg(); } static void goto_line(int lino) { if (lino > 0 && lino <= curr_buf->totaln + 1) { textline_t *p; p = curr_buf->firstline; curr_buf->currln = lino - 1; while (--lino && p->next) p = p->next; if (p) curr_buf->currline = p; else { curr_buf->currln = curr_buf->totaln; curr_buf->currline = curr_buf->lastline; } curr_buf->currpnt = 0; /* move window */ if (curr_buf->currln < middle_line()) { curr_buf->top_of_win = curr_buf->firstline; curr_buf->curr_window_line = curr_buf->currln; } else { int i; curr_buf->curr_window_line = middle_line(); for (i = curr_buf->curr_window_line; i; i--) p = p->prev; curr_buf->top_of_win = p; } } curr_buf->redraw_everything = YEA; } static void prompt_goto_line(void) { char buf[10]; if (getdata(b_lines - 1, 0, "���ܲĴX��:", buf, sizeof(buf), DOECHO)) goto_line(atoi(buf)); } /** * search string interactively. * @param mode 0: prompt * 1: forward * -1: backward */ static void search_str(int mode) { const int max_keyword = 65; char *str; char ans[4] = "n"; if (curr_buf->searched_string == NULL) { if (mode != 0) return; curr_buf->searched_string = (char *)malloc(max_keyword * sizeof(char)); curr_buf->searched_string[0] = 0; } str = curr_buf->searched_string; if (!mode) { if (getdata_buf(b_lines - 1, 0, "[�j�M]����r:", str, max_keyword, DOECHO)) if (*str) { if (getdata(b_lines - 1, 0, "�Ϥ��j�p�g(Y/N/Q)? [N] ", ans, sizeof(ans), LCECHO) && *ans == 'y') curr_buf->substr_fp = strstr; else curr_buf->substr_fp = strcasestr; } } if (*str && *ans != 'q') { textline_t *p; char *pos = NULL; int lino; if (mode >= 0) { for (lino = curr_buf->currln, p = curr_buf->currline; p; p = p->next, lino++) if ((pos = (*curr_buf->substr_fp)(p->data + (lino == curr_buf->currln ? curr_buf->currpnt + 1 : 0), str)) && (lino != curr_buf->currln || pos - p->data != curr_buf->currpnt)) break; } else { for (lino = curr_buf->currln, p = curr_buf->currline; p; p = p->prev, lino--) if ((pos = (*curr_buf->substr_fp)(p->data, str)) && (lino != curr_buf->currln || pos - p->data != curr_buf->currpnt)) break; } if (pos) { /* move window */ curr_buf->currline = p; curr_buf->currln = lino; curr_buf->currpnt = pos - p->data; if (lino < middle_line()) { curr_buf->top_of_win = curr_buf->firstline; curr_buf->curr_window_line = curr_buf->currln; } else { int i; curr_buf->curr_window_line = middle_line(); for (i = curr_buf->curr_window_line; i; i--) p = p->prev; curr_buf->top_of_win = p; } curr_buf->redraw_everything = YEA; } } if (!mode) curr_buf->redraw_everything = YEA; } /** * move the cursor from bracket to corresponding bracket. */ static void match_paren(void) { char *parens = "()[]{}"; int type; int parenum = 0; char *ptype; textline_t *p; int lino; int c, i = 0; if (!(ptype = strchr(parens, curr_buf->currline->data[curr_buf->currpnt]))) return; type = (ptype - parens) / 2; parenum = ((ptype - parens) % 2) ? -1 : 1; /* FIXME CRASH */ /* FIXME refactoring */ if (parenum > 0) { for (lino = curr_buf->currln, p = curr_buf->currline; p; p = p->next, lino++) { int len = strlen(p->data); for (i = (lino == curr_buf->currln) ? curr_buf->currpnt + 1 : 0; i < len; i++) { if (p->data[i] == '/' && p->data[++i] == '*') { ++i; while (1) { while (i < len && !(p->data[i] == '*' && p->data[i + 1] == '/')) { i++; } if (i >= len && p->next) { p = p->next; len = strlen(p->data); ++lino; i = 0; } else break; } } else if ((c = p->data[i]) == '\'' || c == '"') { while (1) { while (i < len - 1) { if (p->data[++i] == '\\' && (size_t)i < len - 2) ++i; else if (p->data[i] == c) goto end_quote; } if ((size_t)i >= len - 1 && p->next) { p = p->next; len = strlen(p->data); ++lino; i = -1; } else break; } end_quote: ; } else if ((ptype = strchr(parens, p->data[i])) && (ptype - parens) / 2 == type) { if (!(parenum += ((ptype - parens) % 2) ? -1 : 1)) goto p_outscan; } } } } else { for (lino = curr_buf->currln, p = curr_buf->currline; p; p = p->prev, lino--) { int len = strlen(p->data); for (i = ((lino == curr_buf->currln) ? curr_buf->currpnt - 1 : len - 1); i >= 0; i--) { if (p->data[i] == '/' && p->data[--i] == '*' && i > 0) { --i; while (1) { while (i > 0 && !(p->data[i] == '*' && p->data[i - 1] == '/')) { i--; } if (i <= 0 && p->prev) { p = p->prev; len = strlen(p->data); --lino; i = len - 1; } else break; } } else if ((c = p->data[i]) == '\'' || c == '"') { while (1) { while (i > 0) if (i > 1 && p->data[i - 2] == '\\') i -= 2; else if ((p->data[--i]) == c) goto begin_quote; if (i <= 0 && p->prev) { p = p->prev; len = strlen(p->data); --lino; i = len; } else break; } begin_quote: ; } else if ((ptype = strchr(parens, p->data[i])) && (ptype - parens) / 2 == type) { if (!(parenum += ((ptype - parens) % 2) ? -1 : 1)) goto p_outscan; } } } } p_outscan: if (!parenum) { int top = curr_buf->currln - curr_buf->curr_window_line; int bottom = curr_buf->currln - curr_buf->curr_window_line + b_lines - 1; curr_buf->currpnt = i; curr_buf->currline = p; curr_buf->curr_window_line += lino - curr_buf->currln; curr_buf->currln = lino; if (lino < top || lino > bottom) { if (lino < middle_line()) { curr_buf->top_of_win = curr_buf->firstline; curr_buf->curr_window_line = curr_buf->currln; } else { int i; curr_buf->curr_window_line = middle_line(); for (i = curr_buf->curr_window_line; i; i--) p = p->prev; curr_buf->top_of_win = p; } curr_buf->redraw_everything = YEA; } } } static void currline_shift_left(void) { int currpnt0; if (curr_buf->currline->len <= 0) return; currpnt0 = curr_buf->currpnt; curr_buf->currpnt = 0; delete_char(); curr_buf->currpnt = (currpnt0 <= curr_buf->currline->len) ? currpnt0 : currpnt0 - 1; if (curr_buf->ansimode) curr_buf->currpnt = ansi2n(n2ansi(curr_buf->currpnt, curr_buf->currline), curr_buf->currline); } static void currline_shift_right(void) { int currpnt0; if (curr_buf->currline->len >= WRAPMARGIN - 1) return; currpnt0 = curr_buf->currpnt; curr_buf->currpnt = 0; insert_char(' '); curr_buf->currpnt = currpnt0; } static void cursor_to_next_word(void) { while (curr_buf->currpnt < curr_buf->currline->len && isalnum((int)curr_buf->currline->data[++curr_buf->currpnt])); while (curr_buf->currpnt < curr_buf->currline->len && isspace((int)curr_buf->currline->data[++curr_buf->currpnt])); } static void cursor_to_prev_word(void) { while (curr_buf->currpnt && isspace((int)curr_buf->currline->data[--curr_buf->currpnt])); while (curr_buf->currpnt && isalnum((int)curr_buf->currline->data[--curr_buf->currpnt])); if (curr_buf->currpnt > 0) curr_buf->currpnt++; } static void delete_current_word(void) { while (curr_buf->currpnt < curr_buf->currline->len) { delete_char(); if (!isalnum((int)curr_buf->currline->data[curr_buf->currpnt])) break; } while (curr_buf->currpnt < curr_buf->currline->len) { delete_char(); if (!isspace((int)curr_buf->currline->data[curr_buf->currpnt])) break; } } /** * transform every "*[" in given string to KEY_ESC "[" */ static void transform_to_color(char *line) { while (line[0] && line[1]) if (line[0] == '*' && line[1] == '[') { line[0] = KEY_ESC; line += 2; } else ++line; } static void block_color(void) { textline_t *begin, *end, *p; setup_block_begin_end(&begin, &end); p = begin; while (1) { transform_to_color(p->data); if (p == end) break; else p = p->next; } block_cancel(); } /** * insert ansi code */ static void insert_ansi_code(void) { int ch = curr_buf->insert_mode; curr_buf->insert_mode = curr_buf->redraw_everything = YEA; if (!curr_buf->ansimode) insert_string(reset_color); else { char ans[4]; move(b_lines - 2, 55); outs(ANSI_COLOR(1;33;40) "B" ANSI_COLOR(41) "R" ANSI_COLOR(42) "G" ANSI_COLOR(43) "Y" ANSI_COLOR(44) "L" ANSI_COLOR(45) "P" ANSI_COLOR(46) "C" ANSI_COLOR(47) "W" ANSI_RESET); if (getdata(b_lines - 1, 0, "�п�J �G��/�e��/�I��[���`�զr�©�][0wb]�G", ans, sizeof(ans), LCECHO)) { const char t[] = "BRGYLPCW"; char color[15]; char *tmp, *apos = ans; int fg, bg; strcpy(color, ESC_STR "["); if (isdigit((int)*apos)) { sprintf(color,"%s%c", color, *(apos++)); if (*apos) strcat(color, ";"); } if (*apos) { if ((tmp = strchr(t, toupper(*(apos++))))) fg = tmp - t + 30; else fg = 37; sprintf(color, "%s%d", color, fg); } if (*apos) { if ((tmp = strchr(t, toupper(*(apos++))))) bg = tmp - t + 40; else bg = 40; sprintf(color, "%s;%d", color, bg); } strcat(color, "m"); insert_string(color); } else insert_string(reset_color); } curr_buf->insert_mode = ch; } static inline void phone_mode_switch(void) { if (curr_buf->phone_mode) curr_buf->phone_mode = 0; else { curr_buf->phone_mode = 1; if (!curr_buf->last_phone_mode) curr_buf->last_phone_mode = 2; } } /** * return coresponding phone char of given key c */ static const char* phone_char(char c) { if (curr_buf->last_phone_mode > 0 && curr_buf->last_phone_mode < 20) { if (tolower(c)<'a'||(tolower(c)-'a') >= strlen(BIG5[curr_buf->last_phone_mode - 1]) / 2) return 0; return BIG5[curr_buf->last_phone_mode - 1] + (tolower(c) - 'a') * 2; } else if (curr_buf->last_phone_mode >= 20) { if (c == '.') c = '/'; if (c < '/' || c > '9') return 0; return table[curr_buf->last_phone_mode - 20] + (c - '/') * 2; } return 0; } /** * When get the key for phone mode, handle it (e.g. edit_msg) and return the * key. Otherwise return 0. */ static inline char phone_mode_filter(char ch) { if (!curr_buf->phone_mode) return 0; switch (ch) { case 'z': case 'Z': if (curr_buf->last_phone_mode < 20) curr_buf->last_phone_mode = 20; else curr_buf->last_phone_mode = 2; edit_msg(); return ch; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (curr_buf->last_phone_mode < 20) { curr_buf->last_phone_mode = ch - '0' + 1; curr_buf->redraw_everything = YEA; return ch; } break; case '-': if (curr_buf->last_phone_mode < 20) { curr_buf->last_phone_mode = 11; curr_buf->redraw_everything = YEA; return ch; } break; case '=': if (curr_buf->last_phone_mode < 20) { curr_buf->last_phone_mode = 12; curr_buf->redraw_everything = YEA; return ch; } break; case '`': if (curr_buf->last_phone_mode < 20) { curr_buf->last_phone_mode = 13; curr_buf->redraw_everything = YEA; return ch; } break; case '/': if (curr_buf->last_phone_mode >= 20) { curr_buf->last_phone_mode += 4; if (curr_buf->last_phone_mode > 27) curr_buf->last_phone_mode -= 8; curr_buf->redraw_everything = YEA; return ch; } break; case '*': if (curr_buf->last_phone_mode >= 20) { curr_buf->last_phone_mode++; if ((curr_buf->last_phone_mode - 21) % 4 == 3) curr_buf->last_phone_mode -= 4; curr_buf->redraw_everything = YEA; return ch; } break; } return 0; } /* �s��B�z�G�D�{���B��L�B�z */ int vedit(char *fpath, int saveheader, int *islocal) { char last = 0; /* the last key you press */ int ch, tmp; int mode0 = currutmp->mode; int destuid0 = currutmp->destuid; int money = 0; int interval = 0; time4_t th = now; int count = 0, tin = 0; char trans_buffer[256]; char mytitle[STRLEN]; STATINC(STAT_VEDIT); currutmp->mode = EDITING; currutmp->destuid = currstat; strncpy(mytitle, save_title, STRLEN-2); mytitle[STRLEN-1] = 0; #ifdef DBCSAWARE mbcs_mode = (cuser.uflag & DBCSAWARE_FLAG) ? 1 : 0; #endif enter_edit_buffer(); curr_buf->oldcurrline = curr_buf->currline = curr_buf->top_of_win = curr_buf->firstline = curr_buf->lastline = alloc_line(WRAPMARGIN); if (*fpath) { read_file(fpath); } if (*quote_file) { do_quote(); *quote_file = '\0'; } if(curr_buf->oldcurrline != curr_buf->firstline || curr_buf->currline != curr_buf->firstline) { /* we must adjust because cursor (currentline) moved. */ curr_buf->oldcurrline = curr_buf->currline = curr_buf->top_of_win = curr_buf->firstline= adjustline(curr_buf->firstline, WRAPMARGIN); } /* No matter you quote or not, just start the cursor from (0,0) */ curr_buf->currpnt = curr_buf->currln = curr_buf->curr_window_line = curr_buf->edit_margin = curr_buf->last_margin = 0; while (1) { if (curr_buf->redraw_everything || has_block_selection()) { refresh_window(); curr_buf->redraw_everything = NA; } if( curr_buf->oldcurrline != curr_buf->currline ){ curr_buf->oldcurrline = adjustline(curr_buf->oldcurrline, curr_buf->oldcurrline->len); curr_buf->oldcurrline = curr_buf->currline = adjustline(curr_buf->currline, WRAPMARGIN); } if (curr_buf->ansimode) ch = n2ansi(curr_buf->currpnt, curr_buf->currline); else ch = curr_buf->currpnt - curr_buf->edit_margin; move(curr_buf->curr_window_line, ch); #if 0 // DEPRECATED, it's really not a well known expensive feature if (!curr_buf->line_dirty && strcmp(editline, curr_buf->currline->data)) strcpy(editline, curr_buf->currline->data); #endif ch = igetch(); /* jochang debug */ if ((interval = (now - th))) { th = now; if ((char)ch != last) { money++; last = (char)ch; } } if (interval && interval == tin) { // Ptt : +- 1 ���]�� count++; if(count>60) { money = 0; count = 0; /* log_file("etc/illegal_money", LOG_CREAT | LOG_VF, ANSI_COLOR(1;33;46) "%s " ANSI_COLOR(37;45) " �ξ����H�o���峹 " ANSI_COLOR(37) " %s" ANSI_RESET "\n", cuser.userid, ctime4(&now)); post_violatelaw(cuser.userid, "Ptt�t��ĵ��", "�ξ����H�o���峹", "�j������"); abort_bbs(0); */ } } else if(interval){ count = 0; tin = interval; } #ifndef DBCSAWARE /* this is almost useless! */ if (curr_buf->raw_mode) { switch (ch) { case Ctrl('S'): case Ctrl('Q'): case Ctrl('T'): continue; } } #endif if (phone_mode_filter(ch)) continue; if (ch < 0x100 && isprint2(ch)) { const char *pstr; if(curr_buf->phone_mode && (pstr=phone_char(ch))) insert_dchar(pstr); else insert_char(ch); curr_buf->lastindent = -1; } else { if (ch == KEY_UP || ch == KEY_DOWN ){ if (curr_buf->lastindent == -1) curr_buf->lastindent = curr_buf->currpnt; } else curr_buf->lastindent = -1; if (ch == KEY_ESC) switch (KEY_ESC_arg) { case ',': ch = Ctrl(']'); break; case '.': ch = Ctrl('T'); break; case 'v': ch = KEY_PGUP; break; case 'a': case 'A': ch = Ctrl('V'); break; case 'X': ch = Ctrl('X'); break; case 'q': ch = Ctrl('Q'); break; case 'o': ch = Ctrl('O'); break; #if 0 // DEPRECATED, it's really not a well known expensive feature case '-': ch = Ctrl('_'); break; #endif case 's': ch = Ctrl('S'); break; } switch (ch) { case KEY_F10: case Ctrl('X'): /* Save and exit */ tmp = write_file(fpath, saveheader, islocal, mytitle); if (tmp != KEEP_EDITING) { strncpy(save_title, mytitle, STRLEN-2); save_title[STRLEN-1] = 0; currutmp->mode = mode0; currutmp->destuid = destuid0; exit_edit_buffer(); if (!tmp) return money; else return tmp; } curr_buf->oldcurrline = curr_buf->currline; curr_buf->redraw_everything = YEA; break; case KEY_F5: prompt_goto_line(); curr_buf->redraw_everything = YEA; break; case KEY_F8: t_users(); curr_buf->redraw_everything = YEA; break; case Ctrl('W'): block_cut(); // curr_buf->oldcurrline is freed in block_cut, and currline is // well adjusted now. This will avoid re-adjusting later. // It's not a good implementation, try to find a better // solution! curr_buf->oldcurrline = curr_buf->currline; break; case Ctrl('Q'): /* Quit without saving */ ch = ask("���������x�s (Y/N)? [N]: "); if (ch == 'y' || ch == 'Y') { currutmp->mode = mode0; currutmp->destuid = destuid0; exit_edit_buffer(); return -1; } curr_buf->redraw_everything = YEA; break; case Ctrl('C'): insert_ansi_code(); break; case KEY_ESC: switch (KEY_ESC_arg) { case 'U': t_users(); curr_buf->redraw_everything = YEA; break; case 'i': t_idle(); curr_buf->redraw_everything = YEA; break; case 'n': search_str(1); break; case 'p': search_str(-1); break; case 'L': case 'J': prompt_goto_line(); curr_buf->redraw_everything = YEA; break; case ']': match_paren(); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': read_tmpbuf(KEY_ESC_arg - '0'); curr_buf->oldcurrline = curr_buf->currline; curr_buf->redraw_everything = YEA; break; case 'l': /* block delete */ case ' ': if (has_block_selection()) { block_prompt(); // curr_buf->oldcurrline is freed in block_cut, and currline is // well adjusted now. This will avoid re-adjusting later. // It's not a good implementation, try to find a better // solution! curr_buf->oldcurrline = curr_buf->currline; } else block_select(); break; case 'u': block_cancel(); break; case 'c': block_copy(); break; case 'y': curr_buf->oldcurrline = undelete_line(); if (curr_buf->oldcurrline == NULL) curr_buf->oldcurrline = curr_buf->currline; break; case 'R': #ifdef DBCSAWARE case 'r': mbcs_mode =! mbcs_mode; #endif curr_buf->raw_mode ^= 1; break; case 'I': curr_buf->indent_mode ^= 1; break; case 'j': currline_shift_left(); break; case 'k': currline_shift_right(); break; case 'f': cursor_to_next_word(); break; case 'b': cursor_to_prev_word(); break; case 'd': delete_current_word(); break; } break; #if 0 // DEPRECATED, it's really not a well known expensive feature case Ctrl('_'): // swap editline and currline's data if (strcmp(editline, curr_buf->currline->data)) { char buf[WRAPMARGIN]; strlcpy(buf, curr_buf->currline->data, sizeof(buf)); strcpy(curr_buf->currline->data, editline); strcpy(editline, buf); curr_buf->currline->len = strlen(curr_buf->currline->data); curr_buf->currpnt = 0; curr_buf->line_dirty = 1; } break; #endif case Ctrl('S'): case KEY_F3: search_str(0); break; case Ctrl('U'): insert_char(ESC_CHR); break; case Ctrl('V'): /* Toggle ANSI color */ curr_buf->ansimode ^= 1; if (curr_buf->ansimode && has_block_selection()) block_color(); clear(); curr_buf->redraw_everything = YEA; break; case Ctrl('I'): insert_tab(); break; case '\r': case '\n': #ifdef MAX_EDIT_LINE if( curr_buf->totaln == MAX_EDIT_LINE ){ outs("MAX_EDIT_LINE exceed"); break; } #endif split(curr_buf->currline, curr_buf->currpnt); curr_buf->oldcurrline = curr_buf->currline; break; case Ctrl('G'): { unsigned int currstat0 = currstat; setutmpmode(EDITEXP); a_menu("�s�軲�U��", "etc/editexp", (HasUserPerm(PERM_SYSOP) ? SYSOP : NOBODY), trans_buffer); currstat = currstat0; } if (trans_buffer[0]) { FILE *fp1; if ((fp1 = fopen(trans_buffer, "r"))) { int indent_mode0 = curr_buf->indent_mode; char buf[WRAPMARGIN + 2]; curr_buf->indent_mode = 0; while (fgets(buf, sizeof(buf), fp1)) { if (!strncmp(buf, "�@��:", 5) || !strncmp(buf, "���D:", 5) || !strncmp(buf, "�ɶ�:", 5)) continue; insert_string(buf); } fclose(fp1); curr_buf->indent_mode = indent_mode0; while (curr_buf->curr_window_line >= b_lines) { curr_buf->curr_window_line--; curr_buf->top_of_win = curr_buf->top_of_win->next; } } } curr_buf->redraw_everything = YEA; break; case Ctrl('P'): phone_mode_switch(); curr_buf->redraw_everything = YEA; break; case KEY_F1: case Ctrl('Z'): /* Help */ more("etc/ve.hlp", YEA); curr_buf->redraw_everything = YEA; break; case Ctrl('L'): clear(); curr_buf->redraw_everything = YEA; break; case KEY_LEFT: if (curr_buf->currpnt) { if (curr_buf->ansimode) curr_buf->currpnt = n2ansi(curr_buf->currpnt, curr_buf->currline); curr_buf->currpnt--; if (curr_buf->ansimode) curr_buf->currpnt = ansi2n(curr_buf->currpnt, curr_buf->currline); #ifdef DBCSAWARE if(mbcs_mode) curr_buf->currpnt = fix_cursor(curr_buf->currline->data, curr_buf->currpnt, FC_LEFT); #endif } else if (curr_buf->currline->prev) { curr_buf->curr_window_line--; curr_buf->currln--; curr_buf->currline = curr_buf->currline->prev; curr_buf->currpnt = curr_buf->currline->len; } break; case KEY_RIGHT: if (curr_buf->currline->len != curr_buf->currpnt) { if (curr_buf->ansimode) curr_buf->currpnt = n2ansi(curr_buf->currpnt, curr_buf->currline); curr_buf->currpnt++; if (curr_buf->ansimode) curr_buf->currpnt = ansi2n(curr_buf->currpnt, curr_buf->currline); #ifdef DBCSAWARE if(mbcs_mode) curr_buf->currpnt = fix_cursor(curr_buf->currline->data, curr_buf->currpnt, FC_RIGHT); #endif } else if (curr_buf->currline->next) { curr_buf->currpnt = 0; curr_buf->curr_window_line++; curr_buf->currln++; curr_buf->currline = curr_buf->currline->next; } break; case KEY_UP: cursor_to_prev_line(); break; case KEY_DOWN: cursor_to_next_line(); break; case Ctrl('B'): case KEY_PGUP: { short tmp = curr_buf->currln; curr_buf->top_of_win = back_line(curr_buf->top_of_win, 22); curr_buf->currln = tmp; curr_buf->currline = back_line(curr_buf->currline, 22); curr_buf->curr_window_line = get_lineno_in_window(); if (curr_buf->currpnt > curr_buf->currline->len) curr_buf->currpnt = curr_buf->currline->len; curr_buf->redraw_everything = YEA; break; } case Ctrl('F'): case KEY_PGDN: { short tmp = curr_buf->currln; curr_buf->top_of_win = forward_line(curr_buf->top_of_win, 22); curr_buf->currln = tmp; curr_buf->currline = forward_line(curr_buf->currline, 22); curr_buf->curr_window_line = get_lineno_in_window(); if (curr_buf->currpnt > curr_buf->currline->len) curr_buf->currpnt = curr_buf->currline->len; curr_buf->redraw_everything = YEA; break; } case KEY_END: case Ctrl('E'): curr_buf->currpnt = curr_buf->currline->len; break; case Ctrl(']'): /* start of file */ curr_buf->currline = curr_buf->top_of_win = curr_buf->firstline; curr_buf->currpnt = curr_buf->currln = curr_buf->curr_window_line = 0; curr_buf->redraw_everything = YEA; break; case Ctrl('T'): /* tail of file */ curr_buf->top_of_win = back_line(curr_buf->lastline, 23); curr_buf->currline = curr_buf->lastline; curr_buf->curr_window_line = get_lineno_in_window(); curr_buf->currln = curr_buf->totaln; curr_buf->redraw_everything = YEA; curr_buf->currpnt = 0; break; case KEY_HOME: case Ctrl('A'): curr_buf->currpnt = 0; break; case KEY_INS: /* Toggle insert/overwrite */ case Ctrl('O'): if (has_block_selection() && curr_buf->insert_mode) { char ans[4]; getdata(b_lines - 1, 0, "�϶��L�եk�����J�r��(�w�]���ťզr��)", ans, sizeof(ans), LCECHO); curr_buf->insert_c = ans[0] ? ans[0] : ' '; } curr_buf->insert_mode ^= 1; break; case Ctrl('H'): case '\177': /* backspace */ if (curr_buf->ansimode) { curr_buf->ansimode = 0; clear(); curr_buf->redraw_everything = YEA; } else { if (curr_buf->currpnt == 0) { if (!curr_buf->currline->prev) break; curr_buf->curr_window_line--; curr_buf->currln--; curr_buf->currline = adjustline(curr_buf->currline, curr_buf->currline->len); curr_buf->currline = curr_buf->currline->prev; curr_buf->currline = adjustline(curr_buf->currline, WRAPMARGIN); curr_buf->oldcurrline = curr_buf->currline; curr_buf->currpnt = curr_buf->currline->len; curr_buf->redraw_everything = YEA; if (curr_buf->currline->next == curr_buf->top_of_win) { curr_buf->top_of_win = curr_buf->currline; curr_buf->curr_window_line = 0; } if (*next_non_space_char(curr_buf->currline->next->data) == '\0') { delete_line(curr_buf->currline->next, 0); break; } join(curr_buf->currline); break; } #ifndef DBCSAWARE curr_buf->currpnt--; delete_char(); #else { int newpnt = curr_buf->currpnt - 1; if(mbcs_mode) newpnt = fix_cursor(curr_buf->currline->data, newpnt, FC_LEFT); for(; curr_buf->currpnt > newpnt;) { curr_buf->currpnt --; delete_char(); } } #endif } break; case Ctrl('D'): case KEY_DEL: /* delete current character */ if (curr_buf->currline->len == curr_buf->currpnt) { join(curr_buf->currline); curr_buf->redraw_everything = YEA; } else { #ifndef DBCSAWARE delete_char(); #else { int w = 1; if(mbcs_mode) w = mchar_len((unsigned char*)(curr_buf->currline->data + curr_buf->currpnt)); for(; w > 0; w --) delete_char(); } #endif if (curr_buf->ansimode) curr_buf->currpnt = ansi2n(n2ansi(curr_buf->currpnt, curr_buf->currline), curr_buf->currline); } break; case Ctrl('Y'): /* delete current line */ curr_buf->currline->len = curr_buf->currpnt = 0; case Ctrl('K'): /* delete to end of line */ if (curr_buf->currline->len == 0) { textline_t *p = curr_buf->currline->next; if (!p) { p = curr_buf->currline->prev; if (!p) { curr_buf->currline->data[0] = 0; break; } if (curr_buf->curr_window_line > 0) { curr_buf->curr_window_line--; } curr_buf->currln--; } if (curr_buf->currline == curr_buf->top_of_win) curr_buf->top_of_win = p; delete_line(curr_buf->currline, 1); curr_buf->currline = p; curr_buf->redraw_everything = YEA; curr_buf->oldcurrline = curr_buf->currline = adjustline(curr_buf->currline, WRAPMARGIN); break; } else if (curr_buf->currline->len == curr_buf->currpnt) { join(curr_buf->currline); curr_buf->redraw_everything = YEA; break; } curr_buf->currline->len = curr_buf->currpnt; curr_buf->currline->data[curr_buf->currpnt] = '\0'; break; } if (curr_buf->currln < 0) curr_buf->currln = 0; if (curr_buf->curr_window_line < 0) window_scroll_down(); else if (cursor_at_bottom_line()) window_scroll_up(); #ifdef DBCSAWARE if(mbcs_mode) curr_buf->currpnt = fix_cursor(curr_buf->currline->data, curr_buf->currpnt, FC_LEFT); #endif } if (curr_buf->ansimode) tmp = n2ansi(curr_buf->currpnt, curr_buf->currline); else tmp = curr_buf->currpnt; if (tmp < t_columns - 1) curr_buf->edit_margin = 0; else curr_buf->edit_margin = tmp / (t_columns - 8) * (t_columns - 8); if (!curr_buf->redraw_everything) { if (curr_buf->edit_margin != curr_buf->last_margin) { curr_buf->last_margin = curr_buf->edit_margin; curr_buf->redraw_everything = YEA; } else { move(curr_buf->curr_window_line, 0); clrtoeol(); if (curr_buf->ansimode) outs(curr_buf->currline->data); else edit_outs(&curr_buf->currline->data[curr_buf->edit_margin]); edit_msg(); } } /* redraw */ } /* main event loop */ exit_edit_buffer(); } /* vim:sw=4 */