summaryrefslogblamecommitdiffstats
path: root/mbbsd/edit.c
blob: f6a14766b469199979bbbb8bffdf0c0d42b8c44d (plain) (tree)
1
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
                                                      












































                                                                          
                  
















                                        
                                 























































































































































































































































































































































































































































                                                                    
                                                                                 



















                                                                               
                                          



















                                                               

                                                      
































































































































































                                                                               

                                                            

























                                          

























                                                                     
                                                                                   

                                                                              
                                                              































































































                                                                           
                      















                                                              














                                                                        
                                       




















                                            
                                                                   
























































































                                                                                     







                                                                               

              
                                          
      











































































                                                                               
                                                                           




















































                                                       
                        




                            

                                                      

                                                                     
                                                                    
































































































































































































                                                                               
                                                         







































































































































































































                                                                             

                   


















































                                                                                                                   
                                     
                   
















































































































































                                                                                      
                                                           






































































































































































































































































































































































                                                                             
                                                      
















































































































































                                                                              
/* $Id: edit.c,v 1.10 2002/05/14 17:13:45 ptt Exp $ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <time.h>
#include <sys/types.h>
#include "config.h"
#include "pttstruct.h"
#include "config.h"
#include "common.h"
#include "modes.h"
#include "perm.h"
#include "proto.h"

#define WRAPMARGIN (511)

typedef struct textline_t {
    struct textline_t *prev;
    struct textline_t *next;
    int len;
    char data[WRAPMARGIN + 1];
} textline_t;

extern int current_font_type;
extern char *str_author1;
extern char *str_author2;
extern int t_lines, t_columns;  /* Screen size / width */
extern int b_lines;             /* Screen bottom line number: t_lines-1 */
extern char quote_file[80];
extern char quote_user[80];
extern int curredit;
extern unsigned int currbrdattr;
extern char currboard[];        /* name of currently selected board */
extern char *str_reply;
extern char *str_post1;
extern char *str_post2;
extern char *BBSName;
extern char fromhost[];
extern unsigned int currstat;
extern crosspost_t postrecord;
extern userinfo_t *currutmp;
extern int KEY_ESC_arg;
extern char reset_color[];
extern char trans_buffer[256];
extern time_t now;

#define KEEP_EDITING    -2
#define BACKUP_LIMIT    100
#define SCR_WIDTH       80 

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;

extern int local_article;
extern char real_name[IDLEN + 1];
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";

char save_title[STRLEN];

/* 記憶體管理與編輯處理 */
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();
    
    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);
}

extern userec_t cuser;

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;
    
    strcpy(postlog.author, cuser.userid);
    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) {
        strcpy(real_name, "Anonymous");
        strcpy(postlog.author, real_name);
        ifuseanony = 1;
        } else {
        if(!strcmp("r",real_name) || (!defanony && !real_name[0]))
            sprintf(postlog.author,"%s",cuser.userid);
        else {
            sprintf(postlog.author,"%s.",real_name);
            ifuseanony=1;
        }
        }
    }
#endif
    strcpy(postlog.board, currboard);
    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);
    strcpy(ans,save_title);
    if(getdata_buf(4, 0, "新標題:", ans, sizeof(ans), DOECHO))
        strcpy(save_title, ans);
    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);

#ifdef MDCACHE
    close(updatemdcache(NULL, fpath));
#endif
    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) {
            strcpy(buf, begin->data + blockpnt);
            buf[currpnt - blockpnt] = 0;
            } else {
            strcpy(buf, begin->data + currpnt);
            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;
            }
            strcpy(begin->data + min, begin->data + max);
            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) {
        sprintf(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;
            
            strcpy(color, "\033[");
            if(isdigit(*apos)) {
                sprintf(color, "%s%c", color, *(apos++));
                if(*apos)
                sprintf(color, "%s;", 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);
            }
            sprintf(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];
            
            strcpy(buf, currline->data);
            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();
        }
        }
    }
    edit_margin = currpnt < SCR_WIDTH - 1 ? 0 : currpnt / 72 * 72;
    
    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();
        }
    }
    }
}