glm_util.c

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <stdio.h>

#include "glm.h"
#include "glmint.h"

#ifndef HAVE_STRDUP
/* strdup is actually not a standard ANSI C or POSIX routine
   so implement a private one for GLM.  OpenVMS does not have a
   strdup; Linux's standard libc doesn't declare strdup by default
   (unless BSD or SVID interfaces are requested). */
char *
__glmStrdup(const char *string)
{
  char *copy;

  copy = (char*) malloc(strlen(string) + 1);
  if (copy == NULL)
    return NULL;
  strcpy(copy, string);
  return copy;
}
#endif

/* strip leading and trailing whitespace from a string and return a newly
   allocated string containing the result (or NULL if the string is only 
   whitespace)*/
char *
__glmStrStrip(const char *s)
{
    int first;
    int last = strlen(s)-1;
    int len;
    int i;
    char * rets;

    i=0;
    while(i <= last &&
          (s[i]==' ' || s[i]=='\t' || s[i]=='\n' || s[i]=='\r'))
        i++;
    if (i>last)
        return NULL;
    first = i;
    i = last;
    while(i > first &&
          (s[i]==' ' || s[i]=='\t' || s[i]=='\n' || s[i]=='\r'))
        i--;
    last = i;
    len = last-first+1;
    rets = (char*)malloc(len+1); /* add a trailing 0 */
    memcpy(rets, s + first, len);
    rets[len] = 0;
    return rets;
}

void
__glmWarning(char *format,...)
{
  va_list args;

  va_start(args, format);
  fprintf(stderr, "GLM: Warning: ");
  vfprintf(stderr, format, args);
  va_end(args);
  putc('\n', stderr);
}

/* CENTRY */
void
__glmReportErrors(void)
{
  GLenum error;

  while ((error = glGetError()) != GL_NO_ERROR)
    __glmWarning("GL error: %s", gluErrorString(error));
}
/* ENDCENTRY */

void
__glmFatalError(char *format,...)
{
  va_list args;

  va_start(args, format);
  fprintf(stderr, "GLM: Fatal Error: ");
  vfprintf(stderr, format, args);
  va_end(args);
  putc('\n', stderr);
  exit(1);
}

void
__glmFatalUsage(char *format,...)
{
  va_list args;

  va_start(args, format);
  fprintf(stderr, "GLM: Fatal API Usage: ");
  vfprintf(stderr, format, args);
  va_end(args);
  putc('\n', stderr);
  abort();
}

/* glmDirName: return the directory given a path
 *
 * path - filesystem path
 *
 * NOTE: the return value should be free'd.
 */
char*
__glmDirName(char* path)
{
    char* dir;
    char* s;
    
    dir = __glmStrdup(path);
    
    s = strrchr(dir, '/');
    if (s)
        s[1] = '\0';
    else
        dir[0] = '\0';
    
    return dir;
}