Deleted Added
full compact
run.c (107806) run.c (108072)
1/****************************************************************
2Copyright (C) Lucent Technologies 1997
3All Rights Reserved
4
5Permission to use, copy, modify, and distribute this software and
6its documentation for any purpose and without fee is hereby
7granted, provided that the above copyright notice appear in all
8copies and that both that the copyright notice and this

--- 1495 unchanged lines hidden (view full) ---

1504 srand((unsigned int) u);
1505 break;
1506 case FTOUPPER:
1507 case FTOLOWER:
1508 buf = tostring(getsval(x));
1509 if (t == FTOUPPER) {
1510 for (p = buf; *p; p++)
1511 if (islower((uschar) *p))
1/****************************************************************
2Copyright (C) Lucent Technologies 1997
3All Rights Reserved
4
5Permission to use, copy, modify, and distribute this software and
6its documentation for any purpose and without fee is hereby
7granted, provided that the above copyright notice appear in all
8copies and that both that the copyright notice and this

--- 1495 unchanged lines hidden (view full) ---

1504 srand((unsigned int) u);
1505 break;
1506 case FTOUPPER:
1507 case FTOLOWER:
1508 buf = tostring(getsval(x));
1509 if (t == FTOUPPER) {
1510 for (p = buf; *p; p++)
1511 if (islower((uschar) *p))
1512 *p = toupper((uschar)*p);
1512 *p = toupper(*p);
1513 } else {
1514 for (p = buf; *p; p++)
1515 if (isupper((uschar) *p))
1513 } else {
1514 for (p = buf; *p; p++)
1515 if (isupper((uschar) *p))
1516 *p = tolower((uschar)*p);
1516 *p = tolower(*p);
1517 }
1518 tempfree(x);
1519 x = gettemp();
1520 setsval(x, buf);
1521 free(buf);
1522 return x;
1523 case FFLUSH:
1524 if (isrec(x) || strlen(getsval(x)) == 0) {

--- 389 unchanged lines hidden ---
1517 }
1518 tempfree(x);
1519 x = gettemp();
1520 setsval(x, buf);
1521 free(buf);
1522 return x;
1523 case FFLUSH:
1524 if (isrec(x) || strlen(getsval(x)) == 0) {

--- 389 unchanged lines hidden ---