path: root/mbbsd/edit.c

/* $Id: edit.c,v 1.20 2002/10/26 03:54:15 in2 Exp $ */
#include "bbs.h"
typedef struct textline_t {
    struct textline_t *prev;
    struct textline_t *next;
    int             len;
    char            data[WRAPMARGIN + 1];
}               textline_t;

#define KEEP_EDITING    -2
#define BACKUP_LIMIT    100

enum {
    NOBODY, MANAGER, SYSOP
};

static textline_t *firstline = NULL;
static textline_t *lastline = NULL;
static textline_t *currline = NULL;
static textline_t *blockline = NULL;
static textline_t *top_of_win = NULL;
static textline_t *deleted_lines = NULL;

static char     line[WRAPMARGIN + 2];
static int      ifuseanony = 0;
static int      currpnt, currln, totaln;
static int      curr_window_line;
static int      redraw_everything;
static int      insert_character;
static int      my_ansimode;
static int      raw_mode;
static int      edit_margin;
static int      blockln = -1;
static int      blockpnt;
static int      prevln = -1;
static int      prevpnt;
static int      line_dirty;
static int      indent_mode;
static int      insert_c = ' ';

static char     fp_bak[] = "bak";

/* 記憶體管理與編輯處理 */
static void
indigestion(i)
{
    fprintf(stderr, "嚴重內傷 %d\n", i);
}

/* Thor: ansi 座標轉換  for color 編輯模式 */
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(ch))
        tmp++;
        if (ch)
        tmp++;
        continue;
    }
    if (ansix <= 0)
        break;
    tmp++;
    ansix--;
    }
    return tmp - data;
}

static int
n2ansi(int nx, textline_t * line)
{
    register int    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(ch))
        tmp++;
        if (ch)
        tmp++;
        continue;
    }
    if (tmp >= nxp)
        break;
    tmp++;
    ansix++;
    }
    return ansix;
}

/* 螢幕處理：輔助訊息、顯示編輯內容 */
static void
edit_msg()
{
    static char    *edit_mode[2] = {"取代", "插入"};
    register int    n = currpnt;

    if (my_ansimode)        /* Thor: 作 ansi 編輯 */
    n = n2ansi(n, currline);
    n++;
    move(b_lines, 0);
    clrtoeol();
    prints("\033[%sm 編輯文章 \033[31;47m (Ctrl-Z)\033[30m輔助說明 "
       "\033[31;47m(^G)\033[30m插入圖文庫 \033[31m(^X,^Q)"
       "\033[30m離開║%s│%c%c%c%c║ %3d:%3d  \033[m",
       "37;44",
       edit_mode[insert_character],
       my_ansimode ? 'A' : 'a', indent_mode ? 'I' : 'i',
       'P', raw_mode ? 'R' : 'r',
       currln + 1, n);
}

static textline_t *
back_line(textline_t * pos, int num)
{
    while (num-- > 0) {
    register textline_t *item;

    if (pos && (item = pos->prev)) {
        pos = item;
        currln--;
    }
    }
    return pos;
}

static textline_t *
forward_line(textline_t * pos, int num)
{
    while (num-- > 0) {
    register textline_t *item;

    if (pos && (item = pos->next)) {
        pos = item;
        currln++;
    }
    }
    return pos;
}

static int
getlineno()
{
    int             cnt = 0;
    textline_t     *p = currline;

    while (p && (p != top_of_win)) {
    cnt++;
    p = p->prev;
    }
    return cnt;
}

static char    *
killsp(char *s)
{
    while (*s == ' ')
    s++;
    return s;
}

static textline_t *
alloc_line()
{
    register textline_t *p;

    if ((p = (textline_t *) malloc(sizeof(textline_t)))) {
    memset(p, 0, sizeof(textline_t));
    return p;
    }
    indigestion(13);
    abort_bbs(0);
    return NULL;
}

/* append p after line in list. keeps up with last line */
static void
append(textline_t * p, textline_t * line)
{
    register textline_t *n;

    if ((p->next = n = line->next))
    n->prev = p;
    else
    lastline = p;
    line->next = p;
    p->prev = line;
}

/*
 * delete_line deletes 'line' from the list, and maintains the lastline, and
 * firstline pointers.
 */

static void
delete_line(textline_t * line)
{
    register textline_t *p = line->prev;
    register textline_t *n = line->next;

    if (!p && !n) {
    line->data[0] = line->len = 0;
    return;
    }
    if (n)
    n->prev = p;
    else
    lastline = p;
    if (p)
    p->next = n;
    else
    firstline = n;
    strcat(line->data, "\n");
    line->prev = deleted_lines;
    deleted_lines = line;
    totaln--;
}

static int
ask(char *prompt)
{
    int             ch;

    move(0, 0);
    clrtoeol();
    standout();
    prints("%s", prompt);
    standend();
    ch = igetkey();
    move(0, 0);
    clrtoeol();
    return (ch);
}

static int
indent_spcs()
{
    textline_t     *p;
    int             spcs;

    if (!indent_mode)
    return 0;

    for (p = currline; p; p = p->prev) {
    for (spcs = 0; p->data[spcs] == ' '; ++spcs);
    if (p->data[spcs])
        return spcs;
    }
    return 0;
}

/* split 'line' right before the character pos */
static void
split(textline_t * line, int pos)
{
    if (pos <= line->len) {
    register textline_t *p = alloc_line();
    register char  *ptr;
    int             spcs = indent_spcs();

#ifdef MAX_EDIT_LINE
    if( totaln == MAX_EDIT_LINE ){
        vmsg("MAX_EDIT_LINE exceed");
        return;
    }
#endif
    totaln++;

    p->len = line->len - pos + spcs;
    line->len = pos;

    memset(p->data, ' ', spcs);
    p->data[spcs] = 0;
    strcat(p->data, (ptr = line->data + pos));
    ptr[0] = '\0';
    append(p, line);
    if (line == currline && pos <= currpnt) {
        currline = p;
        if (pos == currpnt)
        currpnt = spcs;
        else
        currpnt -= pos;
        curr_window_line++;
        currln++;
    }
    redraw_everything = YEA;
    }
}

static void
insert_char(int ch)
{
    register textline_t *p = currline;
    register int    i = p->len;
    register char  *s;
    int             wordwrap = YEA;

    if (currpnt > i) {
    indigestion(1);
    return;
    }
    if (currpnt < i && !insert_character) {
    p->data[currpnt++] = ch;
    /* Thor: ansi 編輯, 可以overwrite, 不蓋到 ansi code */
    if (my_ansimode)
        currpnt = ansi2n(n2ansi(currpnt, p), p);
    } else {
    while (i >= currpnt) {
        p->data[i + 1] = p->data[i];
        i--;
    }
    p->data[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);
    }
    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++;
    }
    }
}

static void
insert_string(char *str)
{
    int             ch;

    while ((ch = *str++)) {
    if (isprint2(ch) || ch == '\033')
        insert_char(ch);
    else if (ch == '\t') {
        do {
        insert_char(' ');
        } while (currpnt & 0x7);
    } else if (ch == '\n')
        split(currline, currpnt);
    }
}

static int
undelete_line()
{
    textline_t     *p = deleted_lines;
    textline_t     *currline0 = currline;
    textline_t     *top_of_win0 = top_of_win;
    int             currpnt0 = currpnt;
    int             currln0 = currln;
    int             curr_window_line0 = curr_window_line;
    int             indent_mode0 = indent_mode;

    if (!deleted_lines)
    return 0;

    indent_mode = 0;
    insert_string(deleted_lines->data);
    indent_mode = indent_mode0;
    deleted_lines = deleted_lines->prev;
    free(p);

    currline = currline0;
    top_of_win = top_of_win0;
    currpnt = currpnt0;
    currln = currln0;
    curr_window_line = curr_window_line0;
    return 0;
}

/*
 * 1) lines were joined and one was deleted 2) lines could not be joined 3)
 * next line is empty returns false if: 1) Some of the joined line wrapped
 */
static int
join(textline_t * line)
{
    register textline_t *n;
    register int    ovfl;

    if (!(n = line->next))
    return YEA;
    if (!*killsp(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);
    return YEA;
    } else {
    register char  *s;

    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 + n->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++;
        }
    }
    return NA;
    }
}

static void
delete_char()
{
    register int    len;

    if ((len = currline->len)) {
    register int    i;
    register char  *s;

    if (currpnt >= len) {
        indigestion(1);
        return;
    }
    for (i = currpnt, s = currline->data + i; i != len; i++, s++)
        s[0] = s[1];
    currline->len--;
    }
}

static void
load_file(FILE * fp)
{
    int             indent_mode0 = indent_mode;

    indent_mode = 0;
    while (fgets(line, WRAPMARGIN + 2, fp))
    insert_string(line);
    fclose(fp);
    indent_mode = indent_mode0;
}

/* 暫存檔 */
char           *
ask_tmpbuf(int y)
{
    static char     fp_buf[10] = "buf.0";
    static char     msg[] = "請選擇暫存檔 (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, "確定讀入嗎(Y/N)?[Y]", ans, sizeof(ans), LCECHO);
    if (*ans != 'n' && (fp = fopen(fp_tmpbuf, "r"))) {
    prevln = currln;
    prevpnt = currpnt;
    load_file(fp);
    while (curr_window_line >= b_lines) {
        curr_window_line--;
        top_of_win = top_of_win->next;
    }
    }
}

static void
write_tmpbuf()
{
    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, "暫存檔已有資料 (A)附加 (W)覆寫 (Q)取消？[A] ",
        ans, sizeof(ans), LCECHO);

    if (ans[0] == 'q')
        return;
    }
    if ((fp = fopen(fp_tmpbuf, (ans[0] == 'w' ? "w" : "a+")))) {
    for (p = firstline; p; p = p->next) {
        if (p->next || p->data[0])
        fprintf(fp, "%s\n", p->data);
    }
    fclose(fp);
    }
}

static void
erase_tmpbuf()
{
    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, "確定刪除嗎(Y/N)?[N]",
        ans, sizeof(ans), LCECHO);
    if (*ans == 'y')
    unlink(fp_tmpbuf);
}

/* 編輯器自動備份 */
void
auto_backup()
{
    if (currline) {
    FILE           *fp;
    textline_t     *p, *v;
    char            bakfile[64];
    int             count = 0;

    setuserfile(bakfile, fp_bak);
    if ((fp = fopen(bakfile, "w"))) {
        for (p = firstline; p != NULL && count < 512; p = v, count++) {
        v = p->next;
        fprintf(fp, "%s\n", p->data);
        free(p);
        }
        fclose(fp);
    }
    currline = NULL;
    }
}

void
restore_backup()
{
    char            bakfile[80], buf[80];

    setuserfile(bakfile, fp_bak);
    if (dashf(bakfile)) {
    stand_title("編輯器自動復原");
    getdata(1, 0, "您有一篇文章尚未完成，(S)寫入暫存檔 (Q)算了？[S] ",
        buf, 4, LCECHO);
    if (buf[0] != 'q') {
        setuserfile(buf, ask_tmpbuf(3));
        Rename(bakfile, buf);
    } else
        unlink(bakfile);
    }
}

/* 引用文章 */
static int
garbage_line(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
do_quote()
{
    int             op;
    char            buf[256];

    getdata(b_lines - 1, 0, "請問要引用原文嗎(Y/N/All/Repost)？[Y] ",
        buf, 3, LCECHO);
    op = buf[0];

    if (op != 'n') {
    FILE           *inf;

    if ((inf = fopen(quote_file, "r"))) {
        char           *ptr;
        int             indent_mode0 = 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) == ' ');

        /* 順手牽羊，取得 author's address */
        if ((curredit & EDIT_BOTH) && (str = strchr(quote_user, '.'))) {
            strcpy(++str, ptr);
            str = strchr(str, ' ');
            str[0] = '\0';
        }
        } else
        ptr = quote_user;

        indent_mode = 0;
        insert_string("※ 引述《");
        insert_string(ptr);
        insert_string("》之銘言：\n");

        if (op != 'a')  /* 去掉 header */
        while (fgets(buf, 256, inf) && buf[0] != '\n');

        if (op == 'a')
        while (fgets(buf, 256, inf)) {
            insert_char(':');
            insert_char(' ');
            insert_string(Ptt_prints(buf, STRIP_ALL));
        }
        else if (op == 'r')
        while (fgets(buf, 256, inf))
            insert_string(Ptt_prints(buf, NO_RELOAD));
        else {
        if (curredit & EDIT_LIST)   /* 去掉 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(' ');
            insert_string(Ptt_prints(buf, STRIP_ALL));
            }
        }
        }
        indent_mode = indent_mode0;
        fclose(inf);
    }
    }
}

/* 審查 user 引言的使用 */
static int
check_quote()
{
    register textline_t *p = 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("本篇文章的引言比例超過 80%，請您做些微的修正：\n\n"
         "\033[1;33m1) 增加一些文章 或  2) 刪除不必要之引言\033[m");
    {
        char            ans[4];

        getdata(12, 12, "(E)繼續編輯 (W)強制寫入？[E] ",
            ans, sizeof(ans), LCECHO);
        if (ans[0] == 'w')
        return 0;
    }
    return 1;
    }
    return 0;
}

/* 檔案處理：讀檔、存檔、標題、簽名檔 */
static void
read_file(char *fpath)
{
    FILE           *fp;

    if ((fp = fopen(fpath, "r")) == NULL) {
    if ((fp = fopen(fpath, "w+"))) {
        fclose(fp);
        return;
    }
    indigestion(4);
    abort_bbs(0);
    }
    load_file(fp);
}

void
write_header(FILE * fp)
{

    if (curredit & EDIT_MAIL || curredit & EDIT_LIST) {
    fprintf(fp, "%s %s (%s)\n", str_author1, cuser.userid,
#if defined(REALINFO) && defined(MAIL_REALNAMES)
        cuser.realname
#else
        cuser.username
#endif
    );
    } else {
    char           *ptr;
    struct {
        char            author[IDLEN + 1];
        char            board[IDLEN + 1];
        char            title[66];
        time_t          date;   /* last post's date */
        int             number; /* post number */
    }               postlog;

    memset(&postlog, 0, sizeof(postlog));
    strlcpy(postlog.author, cuser.userid, sizeof(postlog.author));
    ifuseanony = 0;
#ifdef HAVE_ANONYMOUS
    if (currbrdattr & BRD_ANONYMOUS) {
        int             defanony = (currbrdattr & BRD_DEFAULTANONYMOUS);
        if (defanony)
        getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]，"
         "或是按[r]用真名：", real_name, sizeof(real_name), DOECHO);
        else
        getdata(3, 0, "請輸入你想用的ID，也可直接按[Enter]使用原ID：",
            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));
        ifuseanony = 1;
        } else {
        if (!strcmp("r", real_name) || (!defanony && !real_name[0]))
            snprintf(postlog.author, sizeof(postlog.author),
                 "%s", cuser.userid);
        else {
            snprintf(postlog.author, sizeof(postlog.author),
                 "%s.", real_name);
            ifuseanony = 1;
        }
        }
    }
#endif
    strlcpy(postlog.board, currboard, sizeof(postlog.board));
    ptr = save_title;
    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.username :
             "猜猜我是誰 ? ^o^"),
            local_article ? str_post2 : str_post1, currboard);
    } else {
        fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
#if defined(REALINFO) && defined(POSTS_REALNAMES)
            cuser.realname,
#else
            cuser.username,
#endif
            local_article ? str_post2 : str_post1, currboard);
    }
#else               /* HAVE_ANONYMOUS */
    fprintf(fp, "%s %s (%s) %s %s\n", str_author1, cuser.userid,
#if defined(REALINFO) && defined(POSTS_REALNAMES)
        cuser.realname,
#else
        cuser.username,
#endif
        local_article ? str_post2 : str_post1, currboard);
#endif              /* HAVE_ANONYMOUS */

    }
    save_title[72] = '\0';
    fprintf(fp, "標題: %s\n時間: %s\n", save_title, ctime(&now));
}

void
addsignature(FILE * fp, int ifuseanony)
{
    FILE           *fs;
    int             i;
    char            buf[WRAPMARGIN + 1];
    char            fpath[STRLEN];

    static char     msg[] = "請選擇簽名檔 (1-9, 0=不加)[0]: ";
    char            ch;

    if (!strcmp(cuser.userid, STR_GUEST)) {
    fprintf(fp, "\n--\n※ 發信站 :" BBSNAME "(" MYHOSTNAME
        ") \n◆ From: %s\n", fromhost);
    return;
    }
    if (!ifuseanony) {
    i = showsignature(fpath);
    msg[27] = ch = '0' | (cuser.uflag & SIG_FLAG);
    getdata(0, 0, msg, buf, 4, DOECHO);

    if (ch != buf[0] && buf[0] >= '0' && buf[0] <= '9') {
        ch = buf[0];
        cuser.uflag = (cuser.uflag & ~SIG_FLAG) | (ch & SIG_FLAG);
    }
    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※ 發信站: " BBSNAME "(" MYHOSTNAME
        ") \n◆ From: %s\n", "暱名天使的家");
    else {
    char            temp[33];

    strncpy(temp, fromhost, 31);
    temp[32] = '\0';
    fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
        ") \n◆ From: %s\n", temp);
    }
#else
    strncpy(temp, fromhost, 15);
    fprintf(fp, "\n--\n※ 發信站: " BBSNAME "(" MYHOSTNAME
        ") \n◆ From: %s\n", temp);
#endif
#endif
}

static int
write_file(char *fpath, int saveheader, int *islocal)
{
    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("檔案處理");
    if (currstat == SMAIL)
    msg = "[S]儲存 (A)放棄 (T)改標題 (E)繼續 (R/W/D)讀寫刪暫存檔？";
    else if (local_article)
    msg = "[L]站內信件 (S)儲存 (A)放棄 (T)改標題 (E)繼續 "
        "(R/W/D)讀寫刪暫存檔？";
    else
    msg = "[S]儲存 (L)站內信件 (A)放棄 (T)改標題 (E)繼續 "
        "(R/W/D)讀寫刪暫存檔？";
    getdata(1, 0, msg, ans, 2, LCECHO);

    switch (ans[0]) {
    case 'a':
    outs("文章\033[1m 沒有 \033[m存入");
    safe_sleep(1);
    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("舊標題：%s", save_title);
    strlcpy(ans, save_title, sizeof(ans));
    if (getdata_buf(4, 0, "新標題：", ans, sizeof(ans), DOECHO))
        strlcpy(save_title, ans, sizeof(save_title));
    return KEEP_EDITING;
    case 's':
    if (!HAS_PERM(PERM_LOGINOK)) {
        local_article = 1;
        move(2, 0);
        prints("您尚未通過身份確認，只能 Local Save。\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) {
        sethomepath(fpath, cuser.userid);
        strcpy(fpath, tempnam(fpath, "ve_"));
    }
    if ((fp = fopen(fpath, "w")) == NULL) {
        indigestion(5);
        abort_bbs(0);
    }
    if (saveheader)
        write_header(fp);
    }
    for (p = firstline; p; p = v) {
    v = p->next;
    if (!aborted) {
        msg = p->data;
        if (v || msg[0]) {
        trim(msg);

        line++;
        if (currstat == POSTING && po) {
            saveheader = str_checksum(msg);
            if (saveheader) {
            if (postrecord.checksum[po] == saveheader) {
                po++;
                if (po > 3) {
                postrecord.times++;
                po = 0;
                }
            } else
                po = 1;
            if (currstat == POSTING && line >= totaln / 2 &&
                sum < 3) {
                checksum[sum++] = saveheader;
            }
            }
        }
#ifdef SUPPORT_GB
        if (current_font_type == TYPE_GB) {
            fprintf(fp, "%s\n", hc_convert_str(msg, HC_GBtoBIG, HC_DO_SINGLE));
        } else
#endif
            fprintf(fp, "%s\n", msg);
        }
    }
    free(p);
    }
    currline = NULL;

    if (postrecord.times > MAX_CROSSNUM - 1)
    anticrosspost();

    if (po && sum == 3) {
    memcpy(&postrecord.checksum[1], checksum, sizeof(int) * 3);
    postrecord.times = 0;
    }
    if (!aborted) {
    if (islocal)
        *islocal = (local_article == 1);
    if (currstat == POSTING || currstat == SMAIL)
        addsignature(fp, ifuseanony);
    else if (currstat == REEDIT
#ifndef ALL_REEDIT_LOG
         && strcmp(currboard, "SYSOP") == 0
#endif
        ) {
        ptime = localtime(&now);
        fprintf(fp,
            "※ 編輯: %-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);

    if (local_article && (currstat == POSTING))
        return 0;
    return 0;
    }
    return aborted;
}


static void
display_buffer()
{
    register textline_t *p;
    register int    i;
    int             inblock;
    char            buf[WRAPMARGIN + 2];
    int             min, max;

    if (currpnt > blockpnt) {
    min = blockpnt;
    max = currpnt;
    } else {
    min = currpnt;
    max = blockpnt;
    }

    for (p = top_of_win, i = 0; i < b_lines; i++) {
    move(i, 0);
    clrtoeol();
    if (blockln >= 0 &&
    ((blockln <= currln && blockln <= (currln - curr_window_line + i) &&
      (currln - curr_window_line + i) <= currln) ||
     (currln <= (currln - curr_window_line + i) &&
      (currln - curr_window_line + i) <= blockln))) {
        outs("\033[7m");
        inblock = 1;
    } else
        inblock = 0;
    if (p) {
        if (my_ansimode)
        if (currln == blockln && p == currline && max > min) {
            outs("\033[m");
            strncpy(buf, p->data, min);
            buf[min] = 0;
            outs(buf);
            outs("\033[7m");
            strncpy(buf, p->data + min, max - min);
            buf[max - min] = 0;
            outs(buf);
            outs("\033[m");
            outs(p->data + max);
        } else
            outs(p->data);
        else if (currln == blockln && p == currline && max > min) {
        outs("\033[m");
        strncpy(buf, p->data, min);
        buf[min] = 0;
        edit_outs(buf);
        outs("\033[7m");
        strncpy(buf, p->data + min, max - min);
        buf[max - min] = 0;
        edit_outs(buf);
        outs("\033[m");
        edit_outs(p->data + max);
        } else
        edit_outs(&p->data[edit_margin]);
        p = p->next;
        if (inblock)
        outs("\033[m");
    } else
        outch('~');
    }
    edit_msg();
}

static void
goto_line(int lino)
{
    char            buf[10];

    if (lino > 0 ||
    (getdata(b_lines - 1, 0, "跳至第幾行:", buf, sizeof(buf), DOECHO) &&
     sscanf(buf, "%d", &lino) && lino > 0)) {
    textline_t     *p;

    prevln = currln;
    prevpnt = currpnt;
    p = firstline;
    currln = lino - 1;

    while (--lino && p->next)
        p = p->next;

    if (p)
        currline = p;
    else {
        currln = totaln;
        currline = lastline;
    }
    currpnt = 0;
    if (currln < 11) {
        top_of_win = firstline;
        curr_window_line = currln;
    } else {
        int             i;

        curr_window_line = 11;
        for (i = curr_window_line; i; i--)
        p = p->prev;
        top_of_win = p;
    }
    }
    redraw_everything = YEA;
}

char           *
strcasestr(const char *big, const char *little)
{
    char           *ans = (char *)big;
    int             len = strlen(little);
    char           *endptr = (char *)big + strlen(big) - len;

    while (ans <= endptr)
    if (!strncasecmp(ans, little, len))
        return ans;
    else
        ans++;
    return 0;
}

/*
 * mode: 0: prompt 1: forward -1: backward
 */
static void
search_str(int mode)
{
    static char     str[65];
    typedef char   *(*FPTR) ();
    static FPTR     fptr;
    char            ans[4] = "n";

    if (!mode) {
    if (getdata_buf(b_lines - 1, 0, "[搜尋]關鍵字:",
            str, sizeof(str), DOECHO))
        if (*str) {
        if (getdata(b_lines - 1, 0, "區分大小寫(Y/N/Q)? [N] ",
                ans, sizeof(ans), LCECHO) && *ans == 'y')
            fptr = strstr;
        else
            fptr = strcasestr;
        }
    }
    if (*str && *ans != 'q') {
    textline_t     *p;
    char           *pos = NULL;
    int             lino;

    if (mode >= 0) {
        for (lino = currln, p = currline; p; p = p->next, lino++)
        if ((pos = fptr(p->data + (lino == currln ? currpnt + 1 : 0),
                str)) && (lino != currln ||
                      pos - p->data != currpnt))
            break;
    } else {
        for (lino = currln, p = currline; p; p = p->prev, lino--)
        if ((pos = fptr(p->data, str)) &&
            (lino != currln || pos - p->data != currpnt))
            break;
    }
    if (pos) {
        prevln = currln;
        prevpnt = currpnt;
        currline = p;
        currln = lino;
        currpnt = pos - p->data;
        if (lino < 11) {
        top_of_win = firstline;
        curr_window_line = currln;
        } else {
        int             i;

        curr_window_line = 11;
        for (i = curr_window_line; i; i--)
            p = p->prev;
        top_of_win = p;
        }
        redraw_everything = YEA;
    }
    }
    if (!mode)
    redraw_everything = YEA;
}

static void
match_paren()
{
    static char     parens[] = "()[]{}";
    int             type;
    int             parenum = 0;
    char           *ptype;
    textline_t     *p;
    int             lino;
    int             c, i = 0;

    if (!(ptype = strchr(parens, currline->data[currpnt])))
    return;

    type = (ptype - parens) / 2;
    parenum += ((ptype - parens) % 2) ? -1 : 1;

    if (parenum > 0) {
    for (lino = currln, p = currline; p; p = p->next, lino++) {
        lino = lino;
        for (i = (lino == currln) ? currpnt + 1 : 0;
         i < strlen(p->data); i++)
        if (p->data[i] == '/' && p->data[++i] == '*') {
            ++i;
            while (1) {
            while (i < strlen(p->data) - 1 &&
                   !(p->data[i] == '*' && p->data[i + 1] == '/'))
                i++;
            if (i >= strlen(p->data) - 1 && p->next) {
                p = p->next;
                ++lino;
                i = 0;
            } else
                break;
            }
        } else if ((c = p->data[i]) == '\'' || c == '"') {
            while (1) {
            while (i < (int)(strlen(p->data) - 1))
                if (p->data[++i] == '\\' && i < strlen(p->data) - 2)
                ++i;
                else if (p->data[i] == c)
                goto end_quote;
            if (i >= strlen(p->data) - 1 && p->next) {
                p = p->next;
                ++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 = currln, p = currline; p; p = p->prev, lino--)
        for (i = (lino == currln) ? currpnt - 1 : strlen(p->data) - 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;
                --lino;
                i = strlen(p->data) - 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;
                --lino;
                i = strlen(p->data);
            } 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 = currln - curr_window_line;
    int             bottom = currln - curr_window_line + b_lines - 1;

    currpnt = i;
    currline = p;
    curr_window_line += lino - currln;
    currln = lino;

    if (lino < top || lino > bottom) {
        if (lino < 11) {
        top_of_win = firstline;
        curr_window_line = currln;
        } else {
        int             i;

        curr_window_line = 11;
        for (i = curr_window_line; i; i--)
            p = p->prev;
        top_of_win = p;
        }
        redraw_everything = YEA;
    }
    }
}

static void
block_del(int hide)
{
    if (blockln < 0) {
    blockln = currln;
    blockpnt = currpnt;
    blockline = currline;
    } else {
    char            fp_tmpbuf[80];
    FILE           *fp;
    textline_t     *begin, *end, *p;
    char            tmpfname[10] = "buf.0";
    char            ans[6] = "w+n";

    move(b_lines - 1, 0);
    clrtoeol();
    if (hide == 1)
        tmpfname[4] = 'q';
    else if (!hide && !getdata(b_lines - 1, 0, "把區塊移至暫存檔 "
                   "(0:Cut, 5:Copy, 6-9, q: Cancel)[0] ",
                   tmpfname + 4, 4, LCECHO))
        tmpfname[4] = '0';
    if (tmpfname[4] < '0' || tmpfname[4] > '9')
        tmpfname[4] = 'q';
    if ('1' <= tmpfname[4] && tmpfname[4] <= '9') {
        setuserfile(fp_tmpbuf, tmpfname);
        if (tmpfname[4] != '5' && dashf(fp_tmpbuf)) {
        more(fp_tmpbuf, NA);
        getdata(b_lines - 1, 0, "暫存檔已有資料 (A)附加 (W)覆寫 "
            "(Q)取消？[W] ", ans, 2, LCECHO);
        if (*ans == 'q')
            tmpfname[4] = 'q';
        else if (*ans != 'a')
            *ans = 'w';
        }
        if (tmpfname[4] != '5') {
        getdata(b_lines - 1, 0, "刪除區塊(Y/N)?[N] ",
            ans + 2, 4, LCECHO);
        if (ans[2] != 'y')
            ans[2] = 'n';
        }
    } else if (hide != 3)
        ans[2] = 'y';

    tmpfname[5] = ans[1] = ans[3] = 0;
    if (tmpfname[4] != 'q') {
        if (currln >= blockln) {
        begin = blockline;
        end = currline;
        if (ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
            curr_window_line -= (currln - blockln);
            if (curr_window_line < 0) {
            curr_window_line = 0;
            if (end->next)
                (top_of_win = end->next)->prev = begin->prev;
            else
                top_of_win = (lastline = begin->prev);
            }
            currln -= (currln - blockln);
        }
        } else {
        begin = currline;
        end = blockline;
        }
        if (ans[2] == 'y' && !(begin == end && currpnt != blockpnt)) {
        if (begin->prev)
            begin->prev->next = end->next;
        else if (end->next)
            top_of_win = firstline = end->next;
        else {
            currline = top_of_win = firstline =
            lastline = alloc_line();
            currln = curr_window_line = edit_margin = 0;
        }

        if (end->next)
            (currline = end->next)->prev = begin->prev;
        else if (begin->prev) {
            currline = (lastline = begin->prev);
            currln--;
            if (curr_window_line > 0)
            curr_window_line--;
        }
        }
        setuserfile(fp_tmpbuf, tmpfname);
        if ((fp = fopen(fp_tmpbuf, ans))) {
        if (begin == end && currpnt != blockpnt) {
            char            buf[WRAPMARGIN + 2];

            if (currpnt > blockpnt) {
            strlcpy(buf, begin->data + blockpnt, sizeof(buf));
            buf[currpnt - blockpnt] = 0;
            } else {
            strlcpy(buf, begin->data + currpnt, sizeof(buf));
            buf[blockpnt - currpnt] = 0;
            }
            fputs(buf, fp);
        } else {
            for (p = begin; p != end; p = p->next)
            fprintf(fp, "%s\n", p->data);
            fprintf(fp, "%s\n", end->data);
        }
        fclose(fp);
        }
        if (ans[2] == 'y') {
        if (begin == end && currpnt != blockpnt) {
            int             min, max;

            if (currpnt > blockpnt) {
            min = blockpnt;
            max = currpnt;
            } else {
            min = currpnt;
            max = blockpnt;
            }
            strlcpy(begin->data + min, begin->data + max, sizeof(begin->data) - min);
            begin->len -= max - min;
            currpnt = min;
        } else {
            for (p = begin; p != end; totaln--)
            free((p = p->next)->prev);
            free(end);
            totaln--;
            currpnt = 0;
        }
        }
    }
    blockln = -1;
    redraw_everything = YEA;
    }
}

static void
block_shift_left()
{
    textline_t     *begin, *end, *p;

    if (currln >= blockln) {
    begin = blockline;
    end = currline;
    } else {
    begin = currline;
    end = blockline;
    }
    p = begin;
    while (1) {
    if (p->len) {
        strcpy(p->data, p->data + 1);
        --p->len;
    }
    if (p == end)
        break;
    else
        p = p->next;
    }
    if (currpnt > currline->len)
    currpnt = currline->len;
    redraw_everything = YEA;
}

static void
block_shift_right()
{
    textline_t     *begin, *end, *p;

    if (currln >= blockln) {
    begin = blockline;
    end = currline;
    } else {
    begin = currline;
    end = blockline;
    }
    p = begin;
    while (1) {
    if (p->len < WRAPMARGIN) {
        int             i = p->len + 1;

        while (i--)
        p->data[i + 1] = p->data[i];
        p->data[0] = insert_character ? ' ' : insert_c;
        ++p->len;
    }
    if (p == end)
        break;
    else
        p = p->next;
    }
    if (currpnt > currline->len)
    currpnt = currline->len;
    redraw_everything = YEA;
}

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()
{
    textline_t     *begin, *end, *p;

    if (currln >= blockln) {
    begin = blockline;
    end = currline;
    } else {
    begin = currline;
    end = blockline;
    }
    p = begin;
    while (1) {
    transform_to_color(p->data);
    if (p == end)
        break;
    else
        p = p->next;
    }
    block_del(1);
}

/* 編輯處理：主程式、鍵盤處理 */
int
vedit(char *fpath, int saveheader, int *islocal)
{
    FILE           *fp1;
    char            last = 0, buf[200]; /* the last key you press */
    int             ch, foo;
    int             lastindent = -1;
    int             last_margin;
    int             mode0 = currutmp->mode;
    int             destuid0 = currutmp->destuid;
    unsigned int    money = 0;
    int             interval = 0;
    time_t          th = now;

    textline_t     *firstline0 = firstline;
    textline_t     *lastline0 = lastline;
    textline_t     *currline0 = currline;
    textline_t     *blockline0 = blockline;
    textline_t     *top_of_win0 = top_of_win;
    int             local_article0 = local_article;
    int             currpnt0 = currpnt;
    int             currln0 = currln;
    int             totaln0 = totaln;
    int             curr_window_line0 = curr_window_line;
    int             insert_character0 = insert_character;
    int             my_ansimode0 = my_ansimode;
    int             edit_margin0 = edit_margin;
    int             blockln0 = blockln, count = 0, tin = 0;

    currutmp->mode = EDITING;
    currutmp->destuid = currstat;
    insert_character = redraw_everything = 1;
    prevln = blockln = -1;

    line_dirty = currpnt = totaln = my_ansimode = 0;
    currline = top_of_win = firstline = lastline = alloc_line();

    if (*fpath)
    read_file(fpath);

    if (*quote_file) {
    do_quote();
    *quote_file = '\0';
    if (quote_file[79] == 'L')
        local_article = 1;
    }
    currline = firstline;
    currpnt = currln = curr_window_line = edit_margin = last_margin = 0;

    while (1) {
    if (redraw_everything || blockln >= 0) {
        display_buffer();
        redraw_everything = NA;
    }
    if (my_ansimode)
        ch = n2ansi(currpnt, currline);
    else
        ch = currpnt - edit_margin;
    move(curr_window_line, ch);
    if (!line_dirty && strcmp(line, currline->data))
        strcpy(line, currline->data);
    ch = igetkey();
    /* jochang debug */
    if ((interval = (now - th))) {
        th = now;
        if ((char)ch != last) {
        money++;
        last = (char)ch;
        }
    }
    if (interval && interval == tin)
        count++;
    else {
        count = 0;
        tin = interval;
    }
    /* 連續240個interval一樣 , 分明是在斂財 */
    if (count >= 240) {
        snprintf(buf, sizeof(buf), "\033[1;33;46m%s\033[37m在\033[37;45m%s"
            "\033[37m板違法賺錢 , %s\033[m", cuser.userid,
            currboard, ctime(&now));
        log_file("etc/illegal_money", buf);
        money = 0;
        post_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
        mail_violatelaw(cuser.userid, "Ptt 系統警察", "違法賺錢", "扣除不法所得");
        //demoney(10000);
        //abort_bbs(0);
    }
    if (raw_mode)
        switch (ch) {
        case Ctrl('S'):
        case Ctrl('Q'):
        case Ctrl('T'):
        continue;
        break;
        }
    if (ch < 0x100 && isprint2(ch)) {
        insert_char(ch);
        lastindent = -1;
        line_dirty = 1;
    } else {
        if (ch == Ctrl('P') || ch == KEY_UP || ch == KEY_DOWN ||
        ch == Ctrl('N')) {
        if (lastindent == -1)
            lastindent = currpnt;
        } else
        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;
        case '-':
            ch = Ctrl('_');
            break;
        case 's':
            ch = Ctrl('S');
            break;
        }

        switch (ch) {
        case Ctrl('X'): /* Save and exit */
        foo = write_file(fpath, saveheader, islocal);
        if (foo != KEEP_EDITING) {
            currutmp->mode = mode0;
            currutmp->destuid = destuid0;
            firstline = firstline0;
            lastline = lastline0;
            currline = currline0;
            blockline = blockline0;
            top_of_win = top_of_win0;
            local_article = local_article0;
            currpnt = currpnt0;
            currln = currln0;
            totaln = totaln0;
            curr_window_line = curr_window_line0;
            insert_character = insert_character0;
            my_ansimode = my_ansimode0;
            edit_margin = edit_margin0;
            blockln = blockln0;
            if (!foo)
            return money;
            else
            return foo;
        }
        line_dirty = 1;
        redraw_everything = YEA;
        break;
        case Ctrl('W'):
        if (blockln >= 0)
            block_del(2);
        line_dirty = 1;
        break;
        case Ctrl('Q'): /* Quit without saving */
        ch = ask("結束但不儲存 (Y/N)? [N]: ");
        if (ch == 'y' || ch == 'Y') {
            currutmp->mode = mode0;
            currutmp->destuid = destuid0;
            firstline = firstline0;
            lastline = lastline0;
            currline = currline0;
            blockline = blockline0;
            top_of_win = top_of_win0;
            local_article = local_article0;
            currpnt = currpnt0;
            currln = currln0;
            totaln = totaln0;
            curr_window_line = curr_window_line0;
            insert_character = insert_character0;
            my_ansimode = my_ansimode0;
            edit_margin = edit_margin0;
            blockln = blockln0;
            return -1;
        }
        line_dirty = 1;
        redraw_everything = YEA;
        break;
        case Ctrl('C'):
        ch = insert_character;
        insert_character = redraw_everything = YEA;
        if (!my_ansimode)
            insert_string(reset_color);
        else {
            char            ans[4];
            move(b_lines - 2, 55);
            outs("\033[1;33;40mB\033[41mR\033[42mG\033[43mY\033[44mL"
             "\033[45mP\033[46mC\033[47mW\033[m");
            if (getdata(b_lines - 1, 0,
                  "請輸入  亮度/前景/背景[正常白字黑底][0wb]：",
                ans, sizeof(ans), LCECHO)) {
            char            t[] = "BRGYLPCW";
            char            color[15];
            char           *tmp, *apos = ans;
            int             fg, bg;

            strlcpy(color, "\033[", sizeof(color));
            if (isdigit(*apos)) {
                snprintf(color, sizeof(color),
                     "%s%c", color, *(apos++));
                if (*apos)
                snprintf(color, sizeof(color), "%s;", color);
            }
            if (*apos) {
                if ((tmp = strchr(t, toupper(*(apos++)))))
                fg = tmp - t + 30;
                else
                fg = 37;
                snprintf(color, sizeof(color), "%s%d", color, fg);
            }
            if (*apos) {
                if ((tmp = strchr(t, toupper(*(apos++)))))
                bg = tmp - t + 40;
                else
                bg = 40;
                snprintf(color, sizeof(color), "%s;%d", color, bg);
            }
            snprintf(color, sizeof(color), "%sm", color);
            insert_string(color);
            } else
            insert_string(reset_color);
        }
        insert_character = ch;
        line_dirty = 1;
        break;
        case KEY_ESC:
        line_dirty = 0;
        switch (KEY_ESC_arg) {
        case 'U':
            t_users();
            redraw_everything = YEA;
            line_dirty = 1;
            break;
        case 'i':
            t_idle();
            redraw_everything = YEA;
            line_dirty = 1;
            break;
        case 'n':
            search_str(1);
            break;
        case 'p':
            search_str(-1);
            break;
        case 'L':
        case 'J':
            goto_line(0);
            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');
            redraw_everything = YEA;
            break;
        case 'l':   /* block delete */
        case ' ':
            block_del(0);
            line_dirty = 1;
            break;
        case 'u':
            if (blockln >= 0)
            block_del(1);
            line_dirty = 1;
            break;
        case 'c':
            if (blockln >= 0)
            block_del(3);
            line_dirty = 1;
            break;
        case 'y':
            undelete_line();
            break;
        case 'R':
            raw_mode ^= 1;
            line_dirty = 1;
            break;
        case 'I':
            indent_mode ^= 1;
            line_dirty = 1;
            break;
        case 'j':
            if (blockln >= 0)
            block_shift_left();
            else if (currline->len) {
            int             currpnt0 = currpnt;
            currpnt = 0;
            delete_char();
            currpnt = (currpnt0 <= currline->len) ? currpnt0 :
                currpnt0 - 1;
            if (my_ansimode)
                currpnt = ansi2n(n2ansi(currpnt, currline),
                         currline);
            }
            line_dirty = 1;
            break;
        case 'k':
            if (blockln >= 0)
            block_shift_right();
            else {
            int             currpnt0 = currpnt;

            currpnt = 0;
            insert_char(' ');
            currpnt = currpnt0;
            }
            line_dirty = 1;
            break;
        case 'f':
            while (currpnt < currline->len &&
               isalnum(currline->data[++currpnt]));
            while (currpnt < currline->len &&
               isspace(currline->data[++currpnt]));
            line_dirty = 1;
            break;
        case 'b':
            while (currpnt && isalnum(currline->data[--currpnt]));
            while (currpnt && isspace(currline->data[--currpnt]));
            line_dirty = 1;
            break;
        case 'd':
            while (currpnt < currline->len) {
            delete_char();
            if (!isalnum(currline->data[currpnt]))
                break;
            }
            while (currpnt < currline->len) {
            delete_char();
            if (!isspace(currline->data[currpnt]))
                break;
            }
            line_dirty = 1;
            break;
        default:
            line_dirty = 1;
        }
        break;
        case Ctrl('_'):
        if (strcmp(line, currline->data)) {
            char            buf[WRAPMARGIN];

            strlcpy(buf, currline->data, sizeof(buf));
            strcpy(currline->data, line);
            strcpy(line, buf);
            currline->len = strlen(currline->data);
            currpnt = 0;
            line_dirty = 1;
        }
        break;
        case Ctrl('S'):
        search_str(0);
        break;
        case Ctrl('U'):
        insert_char('\033');
        line_dirty = 1;
        break;
        case Ctrl('V'): /* Toggle ANSI color */
        my_ansimode ^= 1;
        if (my_ansimode && blockln >= 0)
            block_color();
        clear();
        redraw_everything = YEA;
        line_dirty = 1;
        break;
        case Ctrl('I'):
        do {
            insert_char(' ');
        } while (currpnt & 0x7);
        line_dirty = 1;
        break;
        case '\r':
        case '\n':
        split(currline, currpnt);
        line_dirty = 0;
        break;
        case Ctrl('G'):
        {
            unsigned int    currstat0 = currstat;
            setutmpmode(EDITEXP);
            a_menu("編輯輔助器", "etc/editexp",
               (HAS_PERM(PERM_SYSOP) ? SYSOP : NOBODY));
            currstat = currstat0;
        }
        if (trans_buffer[0]) {
            if ((fp1 = fopen(trans_buffer, "r"))) {
            int             indent_mode0 = indent_mode;

            indent_mode = 0;
            prevln = currln;
            prevpnt = currpnt;
            while (fgets(line, WRAPMARGIN + 2, fp1)) {
                if (!strncmp(line, "作者:", 5) ||
                !strncmp(line, "標題:", 5) ||
                !strncmp(line, "時間:", 5))
                continue;
                insert_string(line);
            }
            fclose(fp1);
            indent_mode = indent_mode0;
            while (curr_window_line >= b_lines) {
                curr_window_line--;
                top_of_win = top_of_win->next;
            }
            }
        }
        redraw_everything = YEA;
        line_dirty = 1;
        break;
        case Ctrl('Z'): /* Help */
        more("etc/ve.hlp", YEA);
        redraw_everything = YEA;
        line_dirty = 1;
        break;
        case Ctrl('L'):
        clear();
        redraw_everything = YEA;
        line_dirty = 1;
        break;
        case KEY_LEFT:
        if (currpnt) {
            if (my_ansimode)
            currpnt = n2ansi(currpnt, currline);
            currpnt--;
            if (my_ansimode)
            currpnt = ansi2n(currpnt, currline);
            line_dirty = 1;
        } else if (currline->prev) {
            curr_window_line--;
            currln--;
            currline = currline->prev;
            currpnt = currline->len;
            line_dirty = 0;
        }
        break;
        case KEY_RIGHT:
        if (currline->len != currpnt) {
            if (my_ansimode)
            currpnt = n2ansi(currpnt, currline);
            currpnt++;
            if (my_ansimode)
            currpnt = ansi2n(currpnt, currline);
            line_dirty = 1;
        } else if (currline->next) {
            currpnt = 0;
            curr_window_line++;
            currln++;
            currline = currline->next;
            line_dirty = 0;
        }
        break;
        case KEY_UP:
        case Ctrl('P'):
        if (currline->prev) {
            if (my_ansimode)
            ch = n2ansi(currpnt, currline);
            curr_window_line--;
            currln--;
            currline = currline->prev;
            if (my_ansimode)
            currpnt = ansi2n(ch, currline);
            else
            currpnt = (currline->len > lastindent) ? lastindent :
                currline->len;
            line_dirty = 0;
        }
        break;
        case KEY_DOWN:
        case Ctrl('N'):
        if (currline->next) {
            if (my_ansimode)
            ch = n2ansi(currpnt, currline);
            currline = currline->next;
            curr_window_line++;
            currln++;
            if (my_ansimode)
            currpnt = ansi2n(ch, currline);
            else
            currpnt = (currline->len > lastindent) ? lastindent :
                currline->len;
            line_dirty = 0;
        }
        break;
        case Ctrl('B'):
        case KEY_PGUP:
        redraw_everything = currln;
        top_of_win = back_line(top_of_win, 22);
        currln = redraw_everything;
        currline = back_line(currline, 22);
        curr_window_line = getlineno();
        if (currpnt > currline->len)
            currpnt = currline->len;
        redraw_everything = YEA;
        line_dirty = 0;
        break;
        case KEY_PGDN:
        case Ctrl('F'):
        redraw_everything = currln;
        top_of_win = forward_line(top_of_win, 22);
        currln = redraw_everything;
        currline = forward_line(currline, 22);
        curr_window_line = getlineno();
        if (currpnt > currline->len)
            currpnt = currline->len;
        redraw_everything = YEA;
        line_dirty = 0;
        break;
        case KEY_END:
        case Ctrl('E'):
        currpnt = currline->len;
        line_dirty = 1;
        break;
        case Ctrl(']'): /* start of file */
        prevln = currln;
        prevpnt = currpnt;
        currline = top_of_win = firstline;
        currpnt = currln = curr_window_line = 0;
        redraw_everything = YEA;
        line_dirty = 0;
        break;
        case Ctrl('T'): /* tail of file */
        prevln = currln;
        prevpnt = currpnt;
        top_of_win = back_line(lastline, 23);
        currline = lastline;
        curr_window_line = getlineno();
        currln = totaln;
        redraw_everything = YEA;
        currpnt = 0;
        line_dirty = 0;
        break;
        case KEY_HOME:
        case Ctrl('A'):
        currpnt = 0;
        line_dirty = 1;
        break;
        case KEY_INS:   /* Toggle insert/overwrite */
        case Ctrl('O'):
        if (blockln >= 0 && insert_character) {
            char            ans[4];

            getdata(b_lines - 1, 0,
                "區塊微調右移插入字元(預設為空白字元)",
                ans, sizeof(ans), LCECHO);
            insert_c = (*ans) ? *ans : ' ';
        }
        insert_character ^= 1;
        line_dirty = 1;
        break;
        case Ctrl('H'):
        case '\177':    /* backspace */
        line_dirty = 1;
        if (my_ansimode) {
            my_ansimode = 0;
            clear();
            redraw_everything = YEA;
        } else {
            if (currpnt == 0) {
            textline_t     *p;

            if (!currline->prev)
                break;
            line_dirty = 0;
            curr_window_line--;
            currln--;
            currline = currline->prev;
            currpnt = currline->len;
            redraw_everything = YEA;
            if (*killsp(currline->next->data) == '\0') {
                delete_line(currline->next);
                break;
            }
            p = currline;
            while (!join(p)) {
                p = p->next;
                if (p == NULL) {
                indigestion(2);
                abort_bbs(0);
                }
            }
            break;
            }
            currpnt--;
            delete_char();
        }
        break;
        case Ctrl('D'):
        case KEY_DEL:   /* delete current character */
        line_dirty = 1;
        if (currline->len == currpnt) {
            textline_t     *p = currline;

            while (!join(p)) {
            p = p->next;
            if (p == NULL) {
                indigestion(2);
                abort_bbs(0);
            }
            }
            line_dirty = 0;
            redraw_everything = YEA;
        } else {
            delete_char();
            if (my_ansimode)
            currpnt = ansi2n(n2ansi(currpnt, currline), currline);
        }
        break;
        case Ctrl('Y'): /* delete current line */
        currline->len = currpnt = 0;
        case Ctrl('K'): /* delete to end of line */
        if (currline->len == 0) {
            textline_t     *p = currline->next;
            if (!p) {
            p = currline->prev;
            if (!p)
                break;
            if (curr_window_line > 0) {
                curr_window_line--;
                currln--;
            }
            }
            if (currline == top_of_win)
            top_of_win = p;
            delete_line(currline);
            currline = p;
            redraw_everything = YEA;
            line_dirty = 0;
            break;
        }
        if (currline->len == currpnt) {
            textline_t     *p = currline;

            while (!join(p)) {
            p = p->next;
            if (p == NULL) {
                indigestion(2);
                abort_bbs(0);
            }
            }
            redraw_everything = YEA;
            line_dirty = 0;
            break;
        }
        currline->len = currpnt;
        currline->data[currpnt] = '\0';
        line_dirty = 1;
        break;
        }
        if (currln < 0)
        currln = 0;
        if (curr_window_line < 0) {
        curr_window_line = 0;
        if (!top_of_win->prev)
            indigestion(6);
        else {
            top_of_win = top_of_win->prev;
            rscroll();
        }
        }
        if (curr_window_line == b_lines) {
        curr_window_line = t_lines - 2;
        if (!top_of_win->next)
            indigestion(7);
        else {
            top_of_win = top_of_win->next;
            move(b_lines, 0);
            clrtoeol();
            scroll();
        }
        }
    }
    if (currpnt < t_columns - 1)
        edit_margin = 0;
    else
        edit_margin = currpnt / (t_columns - 8) * (t_columns - 8);

    if (!redraw_everything) {
        if (edit_margin != last_margin) {
        last_margin = edit_margin;
        redraw_everything = YEA;
        } else {
        move(curr_window_line, 0);
        clrtoeol();
        if (my_ansimode)
            outs(currline->data);
        else
            edit_outs(&currline->data[edit_margin]);
        edit_msg();
        }
    }
    }
}

void editlock(char *fpath)
{
    char    fn[256];
    FILE    *fp;
    snprintf(fn, sizeof(fn), "%s.lock", fpath);
    if( (fp = fopen(fn, "w")) != NULL ){
    fprintf(fp, "%d\n", currpid);
    fclose(fp);
    }
}

void editunlock(char *fpath)
{
    char    fn[256];
    snprintf(fn, sizeof(fn), "%s.lock", fpath);
    unlink(fn);
}

int iseditlocking(char *fpath, char *action)
{
    char    fn[256];
    FILE    *fp;
    snprintf(fn, sizeof(fn), "%s.lock", fpath);
    if( (fp = fopen(fn, "r")) != NULL ){
    int     pid;
    fscanf(fp, "%d", &pid);
    fclose(fp);
    if( kill(pid, 0) >= 0 ){
        vmsg("文章編修中, 暫時無法%s", action);
        return 1;
    }
    else
        unlink(fn);
    }
    return 0;
}