/* Function: get_font
 **
 ** Author: Paul W. Carlson     April 1992
 */

#include <grass/gis.h>

int get_font(char *data)
{
    char *dp;

    G_strip(data);

    /* replace spaces with dashes and make sure each
     ** word begins with a capital letter.
     */
    dp = data;
    if (*dp >= 'a' && *dp <= 'z')
        *dp = *dp - 'a' + 'A';
    while (*dp) {
        if (*dp == ' ') {
            *dp++ = '-';
            if (*dp >= 'a' && *dp <= 'z')
                *dp = *dp - 'a' + 'A';
        }
        else
            dp++;
    }

    return 0;
}
