The R Project SVN R-packages

Rev

Rev 665 | Rev 5040 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 665 Rev 1581
Line 1477... Line 1477...
1477 
    short i = -1;
 1477 
    short i = -1;
1478 
 
 1478 
 
1479 
    len = strlen (string);
 1479 
    len = strlen (string);
1480 
 
 1480 
 
1481 
    while (++i < len)
 1481 
    while (++i < len)
1482 
        if (isalpha(string[i]) && islower(string[i]))
 1482 
        if (isalpha((int)string[i]) && islower((int)string[i]))
1483 
            string[i] = toupper ((int)string[i]);
 1483 
            string[i] = toupper ((int)string[i]);
1484 
}
 1484 
}
1485 
 
 1485 
 
1486 
/************************************************************************/
 1486 
/************************************************************************/
1487 
/*                          DBFGetFieldIndex()                          */
 1487 
/*                          DBFGetFieldIndex()                          */