danlib.c

/*
   Hebcal - A Jewish Calendar Generator
   Copyright (C) 1994-2004  Danny Sadinoff

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License
   as published by the Free Software Foundation; either version 2
   of the License, or (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

   Danny Sadinoff can be reached at 
   danny@sadinoff.com
 */

#include <stdio.h>
#include <sys/types.h>
#include <ctype.h>
#include <string.h>
#include <stdlib.h>
#include "danlib.h"
#include "myerror.h"


/* Some generally useful routines */

void initStr( char **s, size_t size )
{
    /* allocate space for a string */
    if ((*s = (char *) malloc ((size + 1) * sizeof (char))) == NULL)
        die ("\n Memory Error: Couldn't allocate string", "");
    **s = '\0';
}

/* istrncasecmp performs a signed, case-insensitive comparison
   of s1 to s2, for a maximum length of n  bytes. */
int istrncasecmp( size_t n, const char *s1, const char *s2 )
{
    for (;
         n > 0 &&			/* while not at end of string */
             (*s1 || *s2);		/* and they both didn't finish simultaneously */
         n--, s1++, s2++)
        if (tolower (*s1) != tolower (*s2))
        {
            return tolower (*s1) < tolower (*s2) ? -1 : 1;
        }
    return 0;
}

/* find the first element of arr which is a superstring of str, to len
   places.
   Return the index of the element.  If there is no such element, 
   Return size.  size is the size of arr. 
 */
int lookup_string (const char *str, const char *arr[], int size, int len)
{
    int i;
    
    for (i = 0; i < size; i++)
        if (!(istrncasecmp (len, str, arr[i])))
            return i;
    return i;			/* i == size here. */
}



int isAllNums ( const char *s )
{

/* returns true if a string contains only digits */
  size_t n = 0;
  size_t len = strlen( s );

  for (n = 0;
       (n < len) && isdigit( (int) s[n] );
       n++);
  return (n == len);
}

static int tensDigit (int i)
{
    return (i % 100) / 10;
}

/* returns the proper ordinal suffix of a number */
const char *
    numSuffix (int i)
{
    if (tensDigit(i) == 1)
        return "th";
    switch (i % 10)
    {
    case 1:
        return "st";
    case 2:
        return "nd";
    case 3:
        return "rd";
    default:
        return "th";
    }
}

char * hc_itoa (int i)
{
    static char ret[7];         /* FIX: eeeviiill */
    sprintf (ret, "%d", i);
    return ret;
}