version 1.9, 2002/02/13 22:36:58 |
version 1.10, 2002/02/14 03:15:04 |
|
|
*/ |
*/ |
/* NOSTRICT */ |
/* NOSTRICT */ |
(void)backchar(FFARG | FFRAND, (int)plen); |
(void)backchar(FFARG | FFRAND, (int)plen); |
rtype = _L; |
rtype = _MG_L; |
c = lgetc(curwp->w_dotp, curwp->w_doto); |
c = lgetc(curwp->w_dotp, curwp->w_doto); |
if (ISUPPER(c) != FALSE && f == FALSE) { |
if (ISUPPER(c) != FALSE && f == FALSE) { |
rtype = _U | _L; |
rtype = _MG_U | _MG_L; |
if (curwp->w_doto + 1 < llength(curwp->w_dotp)) { |
if (curwp->w_doto + 1 < llength(curwp->w_dotp)) { |
c = lgetc(curwp->w_dotp, curwp->w_doto + 1); |
c = lgetc(curwp->w_dotp, curwp->w_doto + 1); |
if (ISUPPER(c) != FALSE) { |
if (ISUPPER(c) != FALSE) { |
rtype = _U; |
rtype = _MG_U; |
} |
} |
} |
} |
} |
} |
|
|
* If inserting upper, check replacement for case. |
* If inserting upper, check replacement for case. |
*/ |
*/ |
while ((c = CHARMASK(*st++)) != '\0') { |
while ((c = CHARMASK(*st++)) != '\0') { |
if ((rtype & _U) != 0 && ISLOWER(c) != 0) |
if ((rtype & _MG_U) != 0 && ISLOWER(c) != 0) |
c = TOUPPER(c); |
c = TOUPPER(c); |
if (rtype == (_U | _L)) |
if (rtype == (_MG_U | _MG_L)) |
rtype = _L; |
rtype = _MG_L; |
if (c == CCHR('J')) { |
if (c == CCHR('J')) { |
if (curwp->w_doto == llength(curwp->w_dotp)) |
if (curwp->w_doto == llength(curwp->w_dotp)) |
(void)forwchar(FFRAND, 1); |
(void)forwchar(FFRAND, 1); |