source: editwin.c @ 3d08168

debianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 3d08168 was 50e671c, checked in by Nelson Elhage <nelhage@mit.edu>, 16 years ago
Don't fill-paragraph the ending dot of the buffer. When I leave a dot at the end of the message and then go back and edit it a bit before sending, it's annoying for M-q to wrap the dot onto the paragraph. It really isn't part of the paragraph, so with this patch we don't treat it as one. Signed-off-by: Greg Price <price@mit.edu>
  • Property mode set to 100644
File size: 28.4 KB
Line 
1#include "owl.h"
2#include <stdlib.h>
3#include <unistd.h>
4#include <string.h>
5#include <ctype.h>
6
7static const char fileIdent[] = "$Id$";
8
9#define INCR 5000
10
11/* initialize the editwin e.
12 * 'win' is an already initialzed curses window that will be used by editwin
13 */
14void owl_editwin_init(owl_editwin *e, WINDOW *win, int winlines, int wincols, int style, owl_history *hist)
15{
16  e->buff=owl_malloc(INCR); 
17  e->buff[0]='\0';
18  e->bufflen=0;
19  e->hist=hist;
20  e->allocated=INCR;
21  e->buffx=0;
22  e->buffy=0;
23  e->topline=0;
24  e->winlines=winlines;
25  e->wincols=wincols;
26  e->fillcol=owl_editwin_limit_maxcols(wincols-7, owl_global_get_edit_maxfillcols(&g));
27  e->wrapcol=owl_editwin_limit_maxcols(wincols-7, owl_global_get_edit_maxwrapcols(&g));
28  e->curswin=win;
29  e->style=style;
30  if ((style!=OWL_EDITWIN_STYLE_MULTILINE) &&
31      (style!=OWL_EDITWIN_STYLE_ONELINE)) {
32    e->style=OWL_EDITWIN_STYLE_MULTILINE;
33  }
34  e->lock=0;
35  e->dotsend=0;
36  e->echochar='\0';
37
38  /* We get initialized multiple times, but we need to hold on to
39     the callbacks, so we can't NULL them here. */
40  /*
41    e->command = NULL;
42    e->callback = NULL;
43    e->cbdata = NULL;
44  */
45  if (win) werase(win);
46}
47
48void owl_editwin_set_curswin(owl_editwin *e, WINDOW *w, int winlines, int wincols)
49{
50  e->curswin=w;
51  e->winlines=winlines;
52  e->wincols=wincols;
53  e->fillcol=owl_editwin_limit_maxcols(wincols-7, owl_global_get_edit_maxfillcols(&g));
54  e->wrapcol=owl_editwin_limit_maxcols(wincols-7, owl_global_get_edit_maxwrapcols(&g));
55}
56
57/* echo the character 'ch' for each normal character keystroke,
58 * excepting locktext.  This is useful for entering passwords etc.  If
59 * ch=='\0' characters are echo'd normally
60 */
61void owl_editwin_set_echochar(owl_editwin *e, int ch)
62{
63  e->echochar=ch;
64}
65
66WINDOW *owl_editwin_get_curswin(owl_editwin *e)
67{
68  return(e->curswin);
69}
70
71void owl_editwin_set_history(owl_editwin *e, owl_history *h)
72{
73  e->hist=h;
74}
75
76owl_history *owl_editwin_get_history(owl_editwin *e)
77{
78  return(e->hist);
79}
80
81void owl_editwin_set_dotsend(owl_editwin *e)
82{
83  e->dotsend=1;
84}
85
86void owl_editwin_set_command(owl_editwin *e, char *command) {
87  if(e->command) owl_free(e->command);
88  e->command = owl_strdup(command);
89}
90
91char *owl_editwin_get_command(owl_editwin *e) {
92  if(e->command) return e->command;
93  return "";
94}
95
96void owl_editwin_set_callback(owl_editwin *e, void (*cb)(owl_editwin*)) {
97  e->callback = cb;
98}
99
100void (*owl_editwin_get_callback(owl_editwin *e))(owl_editwin*) {
101  return e->callback;
102}
103
104void owl_editwin_set_cbdata(owl_editwin *e, void *data) {
105  e->cbdata = data;
106}
107
108void* owl_editwin_get_cbdata(owl_editwin *e) {
109  return e->cbdata;
110}
111
112void owl_editwin_do_callback(owl_editwin *e) {
113  void (*cb)(owl_editwin*);
114  cb=owl_editwin_get_callback(e);
115  if(!cb) {
116    owl_function_error("Internal error: No editwin callback!");
117  } else {
118    /* owl_function_error("text: |%s|", owl_editwin_get_text(e)); */
119    cb(e);
120  }
121}
122
123int owl_editwin_limit_maxcols(int v, int maxv)
124{
125  if (maxv > 5 && v > maxv) {
126    return(maxv);
127  } else {
128    return(v);
129  }
130}
131
132/* set text to be 'locked in' at the beginning of the buffer, any
133 * previous text (including locked text) will be overwritten
134 */
135void owl_editwin_set_locktext(owl_editwin *e, char *text)
136{
137 
138  int x, y;
139
140  x=e->buffx;
141  y=e->buffy;
142  e->buffx=0;
143  e->buffy=0;
144  owl_editwin_overwrite_string(e, text);
145  owl_editwin_overwrite_char(e, '\0');
146  e->lock=strlen(text);
147  /* if (text[e->lock-1]=='\n') e->lock--; */
148  /*  e->buffx=x; */
149  /*  e->buffy=y; */
150  _owl_editwin_set_xy_by_index(e, e->lock);
151  owl_editwin_redisplay(e, 0);
152}
153
154int owl_editwin_get_style(owl_editwin *e)
155{
156  return(e->style);
157}
158
159void owl_editwin_new_style(owl_editwin *e, int newstyle, owl_history *h)
160{
161  char *ptr;
162
163  owl_editwin_set_history(e, h);
164  if (e->style==newstyle) return;
165
166  if (newstyle==OWL_EDITWIN_STYLE_MULTILINE) {
167    e->style=newstyle;
168  } else if (newstyle==OWL_EDITWIN_STYLE_ONELINE) {
169    e->style=newstyle;
170
171    /* nuke everything after the first line */
172    if (e->bufflen > 0) {
173      ptr=strchr(e->buff, '\n')-1;
174      if (ptr) {
175        e->bufflen=ptr - e->buff;
176        e->buff[e->bufflen]='\0';
177        e->buffx=0;
178        e->buffy=0;
179      }
180    }
181  }
182}
183
184/* completly reinitialize the buffer */
185void owl_editwin_fullclear(owl_editwin *e)
186{
187  owl_free(e->buff);
188  owl_editwin_init(e, e->curswin, e->winlines, e->wincols, e->style, e->hist);
189}
190
191/* clear all text except for locktext and put the cursor at the
192 * beginning
193 */
194void owl_editwin_clear(owl_editwin *e)
195{
196
197  int lock;
198  int dotsend=e->dotsend;
199  char *locktext=NULL;
200  char echochar=e->echochar;
201
202  lock=0;
203  if (e->lock > 0) {
204    lock=1;
205
206    locktext=owl_malloc(e->lock+20);
207    strncpy(locktext, e->buff, e->lock);
208    locktext[e->lock]='\0';
209  }
210
211  owl_free(e->buff);
212  owl_editwin_init(e, e->curswin, e->winlines, e->wincols, e->style, e->hist);
213
214  if (lock > 0) {
215    owl_editwin_set_locktext(e, locktext);
216  }
217  if (dotsend) {
218    owl_editwin_set_dotsend(e);
219  }
220  if (echochar) {
221    owl_editwin_set_echochar(e, echochar);
222  }
223
224  if (locktext) owl_free(locktext);
225  owl_editwin_adjust_for_locktext(e);
226}
227
228/* malloc more space for the buffer */
229void _owl_editwin_addspace(owl_editwin *e)
230{
231  e->buff=owl_realloc(e->buff, e->allocated+INCR);
232  if (!e->buff) {
233    /* error */
234    return;
235  }
236  e->allocated+=INCR;
237}
238
239void owl_editwin_recenter(owl_editwin *e)
240{
241  e->topline=e->buffy-(e->winlines/2);
242  if (e->topline<0) e->topline=0;
243  if (e->topline>owl_editwin_get_numlines(e)) e->topline=owl_editwin_get_numlines(e);
244}
245
246/* regenerate the text on the curses window */
247/* if update == 1 then do a doupdate(), otherwise do not */
248void owl_editwin_redisplay(owl_editwin *e, int update)
249{
250 
251  char *ptr1, *ptr2, *ptr3, *buff;
252  int i;
253
254  werase(e->curswin);
255  wmove(e->curswin, 0, 0);
256
257  /* start at topline */
258  ptr1 = e->buff;
259  for (i = 0; i < e->topline; i++) {
260    ptr2 = strchr(ptr1, '\n');
261    if (!ptr2) {
262      /* we're already on the last line */
263      break;
264    }
265    ptr1 = ptr2 + 1;
266  }
267  /* ptr1 now stores the starting point */
268
269  /* find the ending point and store it in ptr3 */
270  ptr2 = ptr1;
271  ptr3 = ptr1;
272  for (i = 0; i < e->winlines; i++) {
273    ptr3 = strchr(ptr2, '\n');
274    if (!ptr3) {
275      /* we've hit the last line */
276      /* print everything to the end */
277      ptr3 = e->buff + e->bufflen - 1;
278      ptr3--;
279      break;
280    }
281    ptr2 = ptr3 + 1;
282  }
283  ptr3 += 2;
284
285  buff = owl_malloc(ptr3 - ptr1 + 50);
286  strncpy(buff, ptr1, ptr3 - ptr1);
287  buff[ptr3 - ptr1] = '\0';
288  if (e->echochar == '\0') {
289    waddstr(e->curswin, buff);
290  } else {
291    /* translate to echochar, *except* for the locktext */
292    int len;
293    int dolocklen = e->lock - (ptr1 - e->buff);
294    char *locktext;
295    char tmp = e->buff[dolocklen];
296
297    e->buff[dolocklen] = '\0';
298    locktext = owl_strdup(e->buff);
299    e->buff[dolocklen] = tmp;
300
301    waddstr(e->curswin, locktext);
302   
303    len = strlen(buff);
304    for (i = 0; i < len-dolocklen; i++) {
305      waddch(e->curswin, e->echochar);
306    }
307  }
308  wmove(e->curswin, e->buffy-e->topline, e->buffx + _owl_editwin_cursor_adjustment(e));
309  wnoutrefresh(e->curswin);
310  if (update == 1) {
311    doupdate();
312  }
313  owl_free(buff);
314}
315
316/* Remove n bytes at cursor. */
317void _owl_editwin_remove_bytes(owl_editwin *e, int n) /*noproto*/
318{
319  int i = _owl_editwin_get_index_from_xy(e) + n;
320  for (; i < e->bufflen; i++) {
321    e->buff[i-n] = e->buff[i];
322  }
323 
324  e->bufflen -= n;
325  e->buff[e->bufflen] = '\0';
326}
327
328/* Insert n bytes at cursor.*/
329void _owl_editwin_insert_bytes(owl_editwin *e, int n) /*noproto*/
330{
331  int i, z;
332
333  if ((e->bufflen + n) > (e->allocated - 5)) {
334    _owl_editwin_addspace(e);
335  }
336
337  z = _owl_editwin_get_index_from_xy(e);
338
339  if(z != e->bufflen) {
340    for (i = e->bufflen + n - 1; i > z; i--) {
341      e->buff[i] = e->buff[i - n];
342    }
343  }
344
345  e->bufflen += n;
346  e->buff[e->bufflen] = '\0';
347
348}
349
350
351/* linewrap the word just before the cursor.
352 * returns 0 on success
353 * returns -1 if we could not wrap.
354 */
355int _owl_editwin_linewrap_word(owl_editwin *e)
356{
357  int x, y;
358  int i;
359  char *ptr1, *start;
360  gunichar c;
361
362  /* saving values */
363  x = e->buffx;
364  y = e->buffy;
365  start = e->buff + e->lock;
366
367  ptr1 = e->buff + _owl_editwin_get_index_from_xy(e);
368  ptr1 = g_utf8_find_prev_char(start, ptr1);
369
370  while (ptr1) {
371    c = g_utf8_get_char(ptr1);
372    if (owl_util_can_break_after(c)) {
373      if (c != ' ') {
374        i = ptr1 - e->buff;
375        _owl_editwin_set_xy_by_index(e, i);
376        _owl_editwin_insert_bytes(e, 1);
377        /* _owl_editwin_insert_bytes may move e->buff. */
378        ptr1 = e->buff + i;
379      }
380      *ptr1 = '\n';
381      return 0;
382    }
383    else if (c == '\n') {
384      return 0;
385    }
386    ptr1 = g_utf8_find_prev_char(start, ptr1);
387  }
388  return -1;
389}
390
391/* insert a character at the current point (shift later
392 * characters over)
393 */
394void owl_editwin_insert_char(owl_editwin *e, gunichar c)
395{
396  int z, i, ret, len;
397  char tmp[6];
398  memset(tmp, '\0', 6);
399
400  /* \r is \n */
401  if (c == '\r') {
402    c = '\n';
403  }
404
405  if (c == '\n' && e->style == OWL_EDITWIN_STYLE_ONELINE) {
406    /* perhaps later this will change some state that allows the string
407       to be read */
408    return;
409  }
410
411  g_unichar_to_utf8(c, tmp);
412  len = strlen(tmp);
413
414  /* make sure there is enough memory for the new text */
415  if ((e->bufflen + len) > (e->allocated - 5)) {
416    _owl_editwin_addspace(e);
417  }
418
419  /* get the insertion point */
420  z = _owl_editwin_get_index_from_xy(e);
421
422  /* If we're going to insert at the last column do word wrapping, unless it's a \n */
423  if ((e->buffx + 1 == e->wrapcol) && (c != '\n')) {
424    ret = _owl_editwin_linewrap_word(e);
425    if (ret == -1) {
426      /* we couldn't wrap, insert a hard newline instead */
427      owl_editwin_insert_char(e, '\n');
428    }
429  }
430
431  /* shift all the other characters right */
432  _owl_editwin_insert_bytes(e, len);
433
434  /* insert the new character */
435  for(i = 0; i < len; i++) {
436    e->buff[z + i] = tmp[i];
437  }
438
439  /* advance the cursor */
440  z += len;
441  _owl_editwin_set_xy_by_index(e, z);
442}
443
444/* overwrite the character at the current point with 'c' */
445void owl_editwin_overwrite_char(owl_editwin *e, gunichar c)
446{
447  int z, oldlen, newlen, i;
448  char tmp[6];
449  memset(tmp, '\0', 6);
450
451  /* \r is \n */
452  if (c == '\r') {
453    c = '\n';
454  }
455 
456  if (c == '\n' && e->style == OWL_EDITWIN_STYLE_ONELINE) {
457    /* perhaps later this will change some state that allows the string
458       to be read */
459    return;
460  }
461
462  g_unichar_to_utf8(c, tmp);
463  newlen = strlen(tmp);
464
465  z = _owl_editwin_get_index_from_xy(e);
466  {
467    char *t = g_utf8_find_next_char(e->buff + z, NULL);
468    oldlen = (t ? (t - (e->buff + z)) : 0);
469  }
470
471  /* only if we are at the end of the buffer do we create new space here */
472  if (z == e->bufflen) {
473    if ((e->bufflen+newlen) > (e->allocated-5)) {
474      _owl_editwin_addspace(e);
475    }
476  }
477  /* if not at the end of the buffer, adjust based in char size difference. */ 
478  else if (oldlen > newlen) {
479    _owl_editwin_remove_bytes(e, oldlen-newlen);
480  }
481  else /* oldlen < newlen */ {
482    _owl_editwin_insert_bytes(e, newlen-oldlen);
483  }
484  /* Overwrite the old char*/
485  for (i = 0; i < newlen; i++) {
486    e->buff[z+i] = tmp[i];
487  }
488       
489  /* housekeeping */
490  if (z == e->bufflen) {
491    e->bufflen += newlen;
492    e->buff[e->bufflen] = '\0';
493  }
494 
495  /* advance the cursor */
496  z += newlen;
497  _owl_editwin_set_xy_by_index(e, z);
498}
499
500/* delete the character at the current point, following chars
501 * shift left.
502 */ 
503void owl_editwin_delete_char(owl_editwin *e)
504{
505  int z;
506  char *p1, *p2;
507  gunichar c;
508
509  if (e->bufflen == 0) return;
510 
511  /* get the deletion point */
512  z = _owl_editwin_get_index_from_xy(e);
513
514  if (z == e->bufflen) return;
515
516  p1 = e->buff + z;
517  p2 = g_utf8_next_char(p1);
518  c = g_utf8_get_char(p2);
519  while (g_unichar_ismark(c)) {
520    p2 = g_utf8_next_char(p2);
521    c = g_utf8_get_char(p2);
522  }
523  _owl_editwin_remove_bytes(e, p2-p1);
524}
525
526/* Swap the character at point with the character at point-1 and
527 * advance the pointer.  If point is at beginning of buffer do
528 * nothing.  If point is after the last character swap point-1 with
529 * point-2.  (Behaves as observed in tcsh and emacs). 
530 */
531void owl_editwin_transpose_chars(owl_editwin *e)
532{
533  int z;
534  char *p1, *p2, *p3, *tmp;
535
536  if (e->bufflen == 0) return;
537 
538  /* get the cursor point */
539  z = _owl_editwin_get_index_from_xy(e);
540
541  if (z == e->bufflen) {
542    /* point is after last character */
543    z--;
544  } 
545
546  if (z - 1 < e->lock) {
547    /* point is at beginning of buffer, do nothing */
548    return;
549  }
550
551  /* Transpose two utf-8 unicode glyphs. */
552  p1 = e->buff + z;
553
554  p2 = g_utf8_find_next_char(p1, NULL);
555  while (p2 != NULL && g_unichar_ismark(g_utf8_get_char(p2))) {
556    p2 = g_utf8_find_next_char(p2, NULL);
557  }
558  if (p2 == NULL) return;
559
560  p3 = g_utf8_find_prev_char(e->buff, p1);
561  while (p3 != NULL && g_unichar_ismark(g_utf8_get_char(p3))) {
562    p3 = g_utf8_find_prev_char(p3, NULL);
563  }
564  if (p3 == NULL) return;
565
566  tmp = owl_malloc(p2 - p3 + 5);
567  *tmp = '\0';
568  strncat(tmp, p1, p2 - p1);
569  strncat(tmp, p3, p1 - p3);
570  strncpy(p3, tmp, p2 - p3);
571  owl_free(tmp);
572  _owl_editwin_set_xy_by_index(e, p3 - e->buff);
573}
574
575/* insert 'string' at the current point, later text is shifted
576 * right
577 */
578void owl_editwin_insert_string(owl_editwin *e, char *string)
579{
580  char *p;
581  gunichar c;
582  if (!g_utf8_validate(string, -1, NULL)) {
583    owl_function_debugmsg("owl_editwin_insert_string: received non-utf-8 string.");
584    return;
585  }
586  p = string;
587  c = g_utf8_get_char(p);
588  while (c) {
589    _owl_editwin_process_char(e, c);
590    p = g_utf8_next_char(p);
591    c = g_utf8_get_char(p);
592  }
593}
594
595/* write 'string' at the current point, overwriting text that is
596 * already there
597 */
598
599void owl_editwin_overwrite_string(owl_editwin *e, char *string)
600{
601  char *p;
602  gunichar c;
603
604  if (!g_utf8_validate(string, -1, NULL)) {
605    owl_function_debugmsg("owl_editwin_overwrite_string: received non-utf-8 string.");
606    return;
607  }
608  p = string;
609  c = g_utf8_get_char(p);
610  while (c) {
611    owl_editwin_overwrite_char(e, c);
612    p = g_utf8_next_char(p);
613    c = g_utf8_get_char(p);
614  }
615}
616
617/* get the index into e->buff for the current cursor
618 * position.
619 */
620int _owl_editwin_get_index_from_xy(owl_editwin *e)
621{
622  int i;
623  char *ptr1, *ptr2;
624  gunichar c;
625
626  if (e->bufflen == 0) return(0);
627 
628  /* first go to the yth line */
629  ptr1 = e->buff;
630  for (i = 0; i < e->buffy; i++) {
631    ptr2= strchr(ptr1, '\n');
632    if (!ptr2) {
633      /* we're already on the last line */
634      break;
635    }
636    ptr1 = ptr2 + 1;
637  }
638
639  /* now go to the xth cell */
640  ptr2 = ptr1;
641  i = 0;
642  while (ptr2 != NULL && i < e->buffx && (ptr2 - e->buff) < e->bufflen) {
643    c = g_utf8_get_char(ptr2);
644    i += (c == '\n' ? 1 : mk_wcwidth(c));
645    ptr2 = g_utf8_next_char(ptr2);
646  }
647  while(ptr2 != NULL && g_unichar_ismark(g_utf8_get_char(ptr2))) {
648    ptr2 = g_utf8_next_char(ptr2);
649  }
650  if (ptr2 == NULL) return e->bufflen;
651  return(ptr2 - e->buff);
652}
653
654/* We assume x,y are not set to point to a mid-char */
655gunichar _owl_editwin_get_char_at_xy(owl_editwin *e)
656{
657  return g_utf8_get_char(e->buff + _owl_editwin_get_index_from_xy(e));
658}
659
660
661void _owl_editwin_set_xy_by_index(owl_editwin *e, int index)
662{
663  char *ptr1, *ptr2, *target;
664  gunichar c;
665
666  e->buffx = 0;
667  e->buffy = 0;
668
669  ptr1 = e->buff;
670  target = ptr1 + index;
671  /* target sanitizing */
672  if ((target[0] & 0x80) && (~target[0] & 0x40)) {
673    /* middle of a utf-8 character, back up to previous character. */
674    target = g_utf8_find_prev_char(e->buff, target);
675  }
676  c = g_utf8_get_char(target);
677  while (g_unichar_ismark(c) && target > e->buff) {
678    /* Adjust the target off of combining characters and the like. */
679    target = g_utf8_find_prev_char(e->buff, target);
680    c = g_utf8_get_char(target);
681  }
682  /* If we start with a mark, something is wrong.*/
683  if (g_unichar_ismark(c)) return;
684
685  /* Now our target should be acceptable. */
686  ptr2 = strchr(ptr1, '\n');
687  while (ptr2 != NULL && ptr2 < target) {
688    e->buffy++;
689    ptr1 = ptr2 + 1;
690    ptr2 = strchr(ptr1, '\n');
691  }
692  ptr2 = ptr1;
693  while (ptr2 != NULL && ptr2 < target) {
694    c = g_utf8_get_char(ptr2);
695    e->buffx += mk_wcwidth(c);
696    ptr2 = g_utf8_next_char(ptr2);
697  }
698}
699
700int _owl_editwin_cursor_adjustment(owl_editwin *e)
701{
702  char *ptr1, *ptr2;
703  gunichar c;
704  int x, i;
705
706  /* Find line */
707  ptr1 = e->buff;
708  ptr2 = strchr(ptr1, '\n');
709  for (i = 0; ptr2 != NULL && i < e->buffy; i++) {
710    ptr1 = ptr2 + 1;
711    ptr2 = strchr(ptr1, '\n');
712  }
713  ptr2 = ptr1;
714
715  /* Find char */
716  x = 0;
717  while (ptr2 != NULL && x < e->buffx) {
718    if (*ptr2 == '\n') return 0;
719    c = g_utf8_get_char(ptr2);
720    x += mk_wcwidth(c);
721    ptr2 = g_utf8_next_char(ptr2);
722  }
723 
724  /* calculate x offset */
725  return x - e->buffx;
726}
727
728void owl_editwin_adjust_for_locktext(owl_editwin *e)
729{
730  /* if we happen to have the cursor over locked text
731   * move it to be out of the locktext region */
732  if (_owl_editwin_get_index_from_xy(e) < e->lock) {
733    _owl_editwin_set_xy_by_index(e, e->lock);
734  }
735}
736
737void owl_editwin_backspace(owl_editwin *e)
738{
739  /* delete the char before the current one
740   * and shift later chars left
741   */
742  if (_owl_editwin_get_index_from_xy(e) > e->lock) {
743    owl_editwin_key_left(e);
744    owl_editwin_delete_char(e);
745  }
746  owl_editwin_adjust_for_locktext(e);
747}
748
749void owl_editwin_key_up(owl_editwin *e)
750{
751  if (e->buffy > 0) e->buffy--;
752  if (e->buffx >= owl_editwin_get_numcells_on_line(e, e->buffy)) {
753    e->buffx=owl_editwin_get_numcells_on_line(e, e->buffy);
754  }
755
756  /* do we need to scroll? */
757  if (e->buffy-e->topline < 0) {
758    e->topline-=e->winlines/2;
759  }
760
761  owl_editwin_adjust_for_locktext(e);
762}
763
764void owl_editwin_key_down(owl_editwin *e)
765{
766  /* move down if we can */
767  if (e->buffy+1 < owl_editwin_get_numlines(e)) e->buffy++;
768
769  /* if we're past the last character move back */
770  if (e->buffx >= owl_editwin_get_numcells_on_line(e, e->buffy)) {
771    e->buffx=owl_editwin_get_numcells_on_line(e, e->buffy);
772  }
773
774  /* do we need to scroll? */
775  if (e->buffy-e->topline > e->winlines) {
776    e->topline+=e->winlines/2;
777  }
778
779  /* adjust for locktext */
780  owl_editwin_adjust_for_locktext(e);
781}
782
783void owl_editwin_key_left(owl_editwin *e)
784{
785  int i;
786  char * p;
787  i = _owl_editwin_get_index_from_xy(e);
788  p = e->buff + i;
789  p = g_utf8_find_prev_char(e->buff, p);
790  while (p && g_unichar_ismark(g_utf8_get_char(p))) {
791    p = g_utf8_find_prev_char(e->buff, p);
792  }
793  if (p == NULL) p = e->buff;
794  _owl_editwin_set_xy_by_index(e, p - e->buff);
795
796  if (e->buffy - e->topline < 0) {
797    e->topline -= e->winlines / 2;
798  }
799
800  /* make sure to avoid locktext */
801  owl_editwin_adjust_for_locktext(e);
802}
803
804void owl_editwin_key_right(owl_editwin *e)
805{
806  int i;
807  char * p;
808  i = _owl_editwin_get_index_from_xy(e);
809  p = e->buff + i;
810  p = g_utf8_find_next_char(p, NULL);
811  while (p && g_unichar_ismark(g_utf8_get_char(p))) {
812    p = g_utf8_find_next_char(p, NULL);
813  }
814  if (p == NULL) {
815    _owl_editwin_set_xy_by_index(e, e->bufflen);
816  }
817  else {
818    _owl_editwin_set_xy_by_index(e, p - e->buff);
819  }
820
821  /* do we need to scroll down? */
822  if (e->buffy - e->topline >= e->winlines) {
823    e->topline += e->winlines / 2;
824  }
825}
826
827void owl_editwin_move_to_nextword(owl_editwin *e)
828{
829  int i, x;
830  gunichar c = '\0';
831
832  /* if we're starting on a space, find the first non-space */
833  i=_owl_editwin_get_index_from_xy(e);
834  if (e->buff[i]==' ') {
835    for (x=i; x<e->bufflen; x++) {
836      if (e->buff[x]!=' ' && e->buff[x]!='\n') {
837        _owl_editwin_set_xy_by_index(e, x);
838        break;
839      }
840    }
841  }
842
843  /* find the next space, newline or end of line and go
844     there, if already at the end of the line, continue on to the next */
845  i=owl_editwin_get_numcells_on_line(e, e->buffy);
846  c = _owl_editwin_get_char_at_xy(e);
847  if (e->buffx < i) {
848    /* move right till end of line */
849    while (e->buffx < i) {
850      owl_editwin_key_right(e);
851      c = _owl_editwin_get_char_at_xy(e);
852      if (c == ' ') return;
853      if (e->buffx == i) return;
854    }
855  } else if (e->buffx == i) {
856    /* try to move down */
857    if (e->style==OWL_EDITWIN_STYLE_MULTILINE) {
858      if (e->buffy+1 < owl_editwin_get_numlines(e)) {
859        e->buffx=0;
860        e->buffy++;
861        owl_editwin_move_to_nextword(e);
862      }
863    }
864  }
865}
866
867/* go backwards to the last non-space character
868 */
869void owl_editwin_move_to_previousword(owl_editwin *e)
870{
871  int i;
872  gunichar c;
873  char *ptr1, *ptr2;
874
875  /* are we already at the beginning of the word? */
876  c = _owl_editwin_get_char_at_xy(e);
877  i = _owl_editwin_get_index_from_xy(e);
878  ptr1 = e->buff + i;
879  if (*ptr1 != ' ' && *ptr1 != '\n' && *ptr1 != '\0' ) {
880    ptr1 = g_utf8_find_prev_char(e->buff, ptr1);
881    c = g_utf8_get_char(ptr1);
882    if (c == ' ' || c == '\n') {
883      owl_editwin_key_left(e);     
884    }
885  }
886
887  /* are we starting on a space character? */
888  i = _owl_editwin_get_index_from_xy(e);
889  while (i > e->lock && (e->buff[i] == ' ' || e->buff[i] == '\n' || e->buff[i] == '\0')) {
890    /* find the first non-space */
891    owl_editwin_key_left(e);     
892    i = _owl_editwin_get_index_from_xy(e);
893  }
894
895  /* find the last non-space */
896  ptr1 = e->buff + _owl_editwin_get_index_from_xy(e);
897  while (ptr1 >= e->buff + e->lock) {
898    ptr2 = g_utf8_find_prev_char(e->buff, ptr1);
899    if (!ptr2) break;
900   
901    c = g_utf8_get_char(ptr2);
902    if (c == ' ' || c == '\n'){
903      break;
904    }
905    owl_editwin_key_left(e);
906    ptr1 = e->buff + _owl_editwin_get_index_from_xy(e);
907  }
908}
909
910
911void owl_editwin_delete_nextword(owl_editwin *e)
912{
913  char *ptr1, *start;
914  gunichar c;
915
916  if (e->bufflen==0) return;
917
918  start = ptr1 = e->buff + _owl_editwin_get_index_from_xy(e);
919  /* if we start out on a space character then jump past all the
920     spaces up first */
921  while (*ptr1 == ' ' || *ptr1 == '\n') {
922    ++ptr1;
923  }
924
925  /* then jump past the next word */
926 
927  while (ptr1 && ptr1 - e->buff < e->bufflen) {
928    c = g_utf8_get_char(ptr1);
929    if (c == ' ' || c == '\n' || c == '\0') break;
930    ptr1 = g_utf8_find_next_char(ptr1, NULL);
931  }
932
933  if (ptr1) { /* We broke on a space, */
934    ptr1 = g_utf8_find_next_char(ptr1, NULL);
935    if (ptr1) { /* and there's a character after it, */
936      /* nuke everything back to our starting point. */
937      _owl_editwin_remove_bytes(e, ptr1 - start);
938      return;
939    }
940  }
941 
942  /* If we get here, we ran out of string, drop what's left. */
943  *start = '\0';
944  e->bufflen = start - e->buff;
945}
946
947void owl_editwin_delete_previousword(owl_editwin *e)
948{
949  /* go backwards to the last non-space character, then delete chars */
950  int startpos, endpos;
951
952  startpos = _owl_editwin_get_index_from_xy(e);
953  owl_editwin_move_to_previousword(e);
954  endpos = _owl_editwin_get_index_from_xy(e);
955  _owl_editwin_remove_bytes(e, startpos-endpos);
956}
957
958void owl_editwin_delete_to_endofline(owl_editwin *e)
959{
960  int i;
961
962  if (owl_editwin_get_numchars_on_line(e, e->buffy) > e->buffx) {
963    /* normal line */
964    i=_owl_editwin_get_index_from_xy(e);
965    while(i < e->bufflen) {
966      if (e->buff[i]!='\n') {
967        owl_editwin_delete_char(e);
968      } else if ((e->buff[i]=='\n') && (i==e->bufflen-1)) {
969        owl_editwin_delete_char(e);
970      } else {
971        return;
972      }
973    }
974  } else if (e->buffy+1 < owl_editwin_get_numlines(e)) {
975    /* line with cursor at the end but not on very last line */
976    owl_editwin_key_right(e);
977    owl_editwin_backspace(e);
978  }
979}
980
981void owl_editwin_move_to_line_end(owl_editwin *e)
982{
983  e->buffx=owl_editwin_get_numcells_on_line(e, e->buffy);
984}
985
986void owl_editwin_move_to_line_start(owl_editwin *e)
987{
988  e->buffx=0;
989  owl_editwin_adjust_for_locktext(e);
990}
991
992void owl_editwin_move_to_end(owl_editwin *e)
993{
994  /* go to last char */
995  e->buffy=owl_editwin_get_numlines(e)-1;
996  e->buffx=owl_editwin_get_numcells_on_line(e, e->buffy);
997  owl_editwin_key_right(e);
998
999  /* do we need to scroll? */
1000  /*
1001  if (e->buffy-e->topline > e->winlines) {
1002    e->topline+=e->winlines/2;
1003  }
1004  */
1005  owl_editwin_recenter(e);
1006}
1007
1008void owl_editwin_move_to_top(owl_editwin *e)
1009{
1010  _owl_editwin_set_xy_by_index(e, 0);
1011
1012  /* do we need to scroll? */
1013  e->topline=0;
1014
1015  owl_editwin_adjust_for_locktext(e);
1016}
1017
1018void owl_editwin_fill_paragraph(owl_editwin *e)
1019{
1020  int i, save;
1021
1022  /* save our starting point */
1023  save=_owl_editwin_get_index_from_xy(e);
1024
1025  /* scan back to the beginning of this paragraph */
1026  for (i=save; i>=e->lock; i--) {
1027    if ( (i<=e->lock) ||
1028         ((e->buff[i]=='\n') && (e->buff[i-1]=='\n'))) {
1029      _owl_editwin_set_xy_by_index(e, i+1);
1030      break;
1031    }
1032  }
1033
1034  /* main loop */
1035  while (1) {
1036    i = _owl_editwin_get_index_from_xy(e);
1037
1038    /* bail if we hit the end of the buffer */
1039    if (i >= e->bufflen || e->buff[i] == '\0') break;
1040
1041    /* bail if we hit the end of the paragraph */
1042    if (e->buff[i] == '\n' && e->buff[i+1] == '\n') break;
1043
1044    /* bail if we hit a trailing dot on the buffer */
1045    if (e->buff[i] == '\n' && e->buff[i+1] == '.'
1046        && ((i+2) >= e->bufflen || e->buff[i+2] == '\0'))
1047      break;
1048
1049    /* if we've travelled too far, linewrap */
1050    if ((e->buffx) >= e->fillcol) {
1051      int len = e->bufflen;
1052      _owl_editwin_linewrap_word(e);
1053      /* we may have added a character. */
1054      if (i < save) save += e->bufflen - len;
1055      _owl_editwin_set_xy_by_index(e, i);
1056    }
1057
1058    /* did we hit the end of a line too soon? */
1059    /* asedeno: Here we replace a newline with a space. We may want to
1060       consider removing the space if the characters to either side
1061       are CJK ideograms.*/
1062    i = _owl_editwin_get_index_from_xy(e);
1063    if (e->buff[i] == '\n' && e->buffx < e->fillcol - 1) {
1064      /* ********* we need to make sure we don't pull in a word that's too long ***********/
1065      e->buff[i]=' ';
1066    }
1067
1068    /* fix spacing */
1069    i = _owl_editwin_get_index_from_xy(e);
1070    if (e->buff[i] == ' ' && e->buff[i+1] == ' ') {
1071      if (e->buff[i-1] == '.' || e->buff[i-1] == '!' || e->buff[i-1] == '?') {
1072        owl_editwin_key_right(e);
1073      } else {
1074        owl_editwin_delete_char(e);
1075        /* if we did this ahead of the save point, adjust it. Changing
1076           by one is fine here because we're only removing an ASCII
1077           space. */
1078        if (i < save) save--;
1079      }
1080    } else {
1081      owl_editwin_key_right(e);
1082    }
1083  }
1084
1085  /* put cursor back at starting point */
1086  _owl_editwin_set_xy_by_index(e, save);
1087
1088  /* do we need to scroll? */
1089  if (e->buffy-e->topline < 0) {
1090    e->topline-=e->winlines/2;
1091  }
1092}
1093
1094/* returns true if only whitespace remains */
1095int owl_editwin_is_at_end(owl_editwin *e)
1096{
1097  int cur=_owl_editwin_get_index_from_xy(e);
1098  return (only_whitespace(e->buff+cur));
1099}
1100
1101int owl_editwin_check_dotsend(owl_editwin *e)
1102{
1103  char *p, *p_n, *p_p;
1104  gunichar c;
1105
1106  if (!e->dotsend) return(0);
1107
1108  p = g_utf8_find_prev_char(e->buff, e->buff + e->bufflen);
1109  p_n = g_utf8_find_next_char(p, NULL);
1110  p_p = g_utf8_find_prev_char(e->buff, p);
1111  c = g_utf8_get_char(p);
1112  while (p != NULL) {
1113    if (*p == '.'
1114        && p_p != NULL && (*p_p == '\n' || *p_p == '\r')
1115        && p_n != NULL && (*p_n == '\n' || *p_n == '\r')) {
1116      e->bufflen = p - e->buff;
1117      e->buff[e->bufflen] = '\0';
1118      return(1);
1119    }
1120    if (c != '\0' && !g_unichar_isspace(c)) return(0);
1121    p_n = p;
1122    p = p_p;
1123    c = g_utf8_get_char(p);
1124    p_p = g_utf8_find_prev_char(e->buff, p);
1125  }
1126  return(0);
1127}
1128
1129void owl_editwin_post_process_char(owl_editwin *e, owl_input j)
1130{
1131  /* check if we need to scroll down */
1132  if (e->buffy-e->topline >= e->winlines) {
1133    e->topline+=e->winlines/2;
1134  }
1135  if ((j.ch==13 || j.ch==10) && owl_editwin_check_dotsend(e)) {
1136    owl_command_editmulti_done(e);
1137    return;
1138  }
1139  owl_editwin_redisplay(e, 0); 
1140}
1141
1142void _owl_editwin_process_char(owl_editwin *e, gunichar j)
1143{
1144  if (!(g_unichar_iscntrl(j) && (j != 10) && (j != 13))) {
1145    owl_editwin_insert_char(e, j);
1146  }
1147}
1148
1149
1150void owl_editwin_process_char(owl_editwin *e, owl_input j)
1151{
1152  if (j.ch == ERR) return;
1153  /* Ignore ncurses control characters. */
1154  if (j.ch < 0x100) { 
1155    _owl_editwin_process_char(e, j.uch);
1156  }
1157}
1158
1159char *owl_editwin_get_text(owl_editwin *e)
1160{
1161  return(e->buff+e->lock);
1162}
1163
1164int owl_editwin_get_numchars_on_line(owl_editwin *e, int line)
1165{
1166  int i;
1167  char *ptr1, *ptr2;
1168
1169  if (e->bufflen==0) return(0);
1170 
1171  /* first go to the yth line */
1172  ptr1=e->buff;
1173  for (i=0; i<line; i++) {
1174    ptr2=strchr(ptr1, '\n');
1175    if (!ptr2) {
1176      /* we're already on the last line */
1177      return(0);
1178    }
1179    ptr1=ptr2+1;
1180  }
1181
1182  /* now count characters */
1183  i = 0;
1184  ptr2 = ptr1;
1185  while (ptr2 - e->buff < e->bufflen
1186         && *ptr2 != '\n') {
1187    ++i;
1188    ptr2 = g_utf8_next_char(ptr2);
1189  }
1190  return i;
1191}
1192
1193int owl_editwin_get_numcells_on_line(owl_editwin *e, int line)
1194{
1195  int i;
1196  char *ptr1, *ptr2;
1197  gunichar c;
1198
1199  if (e->bufflen==0) return(0);
1200 
1201  /* first go to the yth line */
1202  ptr1=e->buff;
1203  for (i=0; i<line; i++) {
1204    ptr2=strchr(ptr1, '\n');
1205    if (!ptr2) {
1206      /* we're already on the last line */
1207      return(0);
1208    }
1209    ptr1=ptr2+1;
1210  }
1211
1212  /* now count cells */
1213  i = 0;
1214  ptr2 = ptr1;
1215  while (ptr2 - e->buff < e->bufflen
1216         && *ptr2 != '\n') {
1217    c = g_utf8_get_char(ptr2);
1218    i += mk_wcwidth(c);
1219    ptr2 = g_utf8_next_char(ptr2);
1220  }
1221  return i;
1222}
1223
1224int owl_editwin_get_numlines(owl_editwin *e)
1225{
1226  return(owl_text_num_lines(e->buff));
1227}
1228
Note: See TracBrowser for help on using the repository browser.