Fajny kod :)

_usr.bin_ctags_fortran.c

/*
 * cicmp --
 *  do case-independent strcmp
 */
int
cicmp(const char *cp)
{
    int len;
    char    *bp;

    for (len = 0, bp = lbp; *cp && (*cp &~ ' ') == (*bp++ &~ ' ');
        ++cp, ++len)
        continue;
    if (!*cp) {
        lbp += len;
        return (YES);
    }
    return (NO);
}