vi/v_ulcase.c

   1 /*-
   2  * Copyright (c) 1992, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * %sccs.include.redist.c%
   6  */
   7
   8 #ifndef lint
   9 static char sccsid[] = "$Id: v_ulcase.c,v 8.3 1993/12/09 19:43:21 bostic Exp $ (Berkeley) $Date: 1993/12/09 19:43:21 $";
  10 #endif /* not lint */
  11
  12 #include <sys/types.h>
  13
  14 #include <ctype.h>
  15 #include <errno.h>
  16 #include <stdlib.h>
  17 #include <string.h>
  18
  19 #include "vi.h"
  20 #include "vcmd.h"
  21
  22 /*
  23  * v_ulcase -- [count]~
  24  *      Toggle upper & lower case letters.
  25  *
  26  * !!!
  27  * In historic vi, the count was ignored.  It would have been better
  28  * if there had been an associated motion, but it's too late to change
  29  * it now.
  30  */
  31 int
  32 v_ulcase(sp, ep, vp, fm, tm, rp)
  33         SCR *sp;
  34         EXF *ep;
  35         VICMDARG *vp;
  36         MARK *fm, *tm, *rp;
  37 {
  38         recno_t lno;
  39         size_t blen, lcnt, len;
  40         u_long cnt;
  41         int ch, change, rval;
  42         char *bp, *p;
  43
  44         /* Figure out what memory to use. */
  45         GET_SPACE_RET(sp, bp, blen, 256);
  46
  47         /*
  48          * !!!
  49          * Historic vi didn't permit ~ to cross newline boundaries.
  50          * I can think of no reason why it shouldn't, which at least
  51          * lets you auto-repeat through a paragraph.
  52          */
  53         rval = 0;
  54         for (change = -1, cnt = F_ISSET(vp, VC_C1SET) ? vp->count : 1; cnt;) {
  55                 /* Get the line; EOF is an infinite sink. */
  56                 if ((p = file_gline(sp, ep, fm->lno, &len)) == NULL) {
  57                         if (file_lline(sp, ep, &lno))
  58                                 return (1);
  59                         if (lno >= fm->lno) {
  60                                 GETLINE_ERR(sp, fm->lno);
  61                                 rval = 1;
  62                                 break;
  63                         }
  64                         if (change == -1) {
  65                                 v_eof(sp, ep, NULL);
  66                                 return (1);
  67                         }
  68                         break;
  69                 }
  70
  71                 /* Set current line number. */
  72                 lno = fm->lno;
  73
  74                 /* Empty lines just decrement the count. */
  75                 if (len == 0) {
  76                         --cnt;
  77                         ++fm->lno;
  78                         fm->cno = 0;
  79                         change = 0;
  80                         continue;
  81                 }
  82
  83                 /* Get a copy of the line. */
  84                 ADD_SPACE_RET(sp, bp, blen, len);
  85                 memmove(bp, p, len);
  86
  87                 /* Set starting pointer. */
  88                 if (change == -1)
  89                         p = bp + fm->cno;
  90                 else
  91                         p = bp;
  92
  93                 /*
  94                  * Figure out how many characters get changed in this
  95                  * line.  Set the final cursor column.
  96                  */
  97                 if (fm->cno + cnt >= len) {
  98                         lcnt = len - fm->cno;
  99                         ++fm->lno;
 100                         fm->cno = 0;
 101                 } else
 102                         fm->cno += lcnt = cnt;
 103                 cnt -= lcnt;
 104
 105                 /* Change the line. */
 106                 for (change = 0; lcnt--; ++p) {
 107                         ch = *(u_char *)p;
 108                         if (islower(ch)) {
 109                                 *p = toupper(ch);
 110                                 change = 1;
 111                         } else if (isupper(ch)) {
 112                                 *p = tolower(ch);
 113                                 change = 1;
 114                         }
 115                 }
 116
 117                 /* Update the line if necessary. */
 118                 if (change && file_sline(sp, ep, lno, bp, len)) {
 119                         rval = 1;
 120                         break;
 121                 }
 122         }
 123
 124         /* If changed lines, could be on an illegal line. */
 125         if (fm->lno != lno && file_gline(sp, ep, fm->lno, &len) == NULL) {
 126                 --fm->lno;
 127                 fm->cno = len ? len - 1 : 0;
 128         }
 129         *rp = *fm;
 130
 131         FREE_SPACE(sp, bp, blen);
 132         return (rval);
 133 }