You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
117 lines
2.0 KiB
117 lines
2.0 KiB
/*============================================================================
|
|
FILE util.c
|
|
|
|
MEMBER OF process cmpp
|
|
|
|
Copyright 1991
|
|
Georgia Tech Research Corporation
|
|
Atlanta, Georgia 30332
|
|
All Rights Reserved
|
|
|
|
PROJECT A-8503
|
|
|
|
AUTHORS
|
|
|
|
9/12/91 Bill Kuhn and Steve Tynor
|
|
|
|
MODIFICATIONS
|
|
|
|
<date> <person name> <nature of modifications>
|
|
|
|
SUMMARY
|
|
|
|
This file contains miscellaneous utility functions used in cmpp.
|
|
|
|
INTERFACES
|
|
|
|
init_error()
|
|
print_error()
|
|
str_to_lower()
|
|
|
|
REFERENCED FILES
|
|
|
|
None.
|
|
|
|
NON-STANDARD FEATURES
|
|
|
|
None.
|
|
|
|
============================================================================*/
|
|
|
|
#include "cmpp.h"
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
|
|
|
|
|
|
/* *********************************************************************** */
|
|
|
|
char *prog_name;
|
|
|
|
|
|
/* Initialize print_error() with the name of the program */
|
|
|
|
void init_error (char *program_name)
|
|
{
|
|
prog_name = program_name;
|
|
}
|
|
|
|
|
|
|
|
/* Print an error message to stderr */
|
|
|
|
void print_error(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
va_start(ap, fmt);
|
|
|
|
fprintf(stderr, "%s: ", prog_name);
|
|
vfprintf(stderr, fmt, ap);
|
|
fprintf(stderr, "\n");
|
|
|
|
va_end(ap);
|
|
}
|
|
|
|
|
|
|
|
/* Convert a string to all lower case */
|
|
|
|
void str_to_lower(char *s)
|
|
{
|
|
int i;
|
|
char c;
|
|
|
|
for(i = 0; (c = s[i]) != '\0'; i++)
|
|
if(isalpha(c))
|
|
if(isupper(c))
|
|
s[i] = (char) tolower(c);
|
|
}
|
|
|
|
|
|
FILE *fopen_cmpp(const char **path_p, const char *mode)
|
|
{
|
|
const char *path = *path_p;
|
|
|
|
char buf[MAX_PATH_LEN+1];
|
|
|
|
if(path[0] != '/') {
|
|
const char *e = getenv((*mode == 'w') ? "CMPP_ODIR" : "CMPP_IDIR");
|
|
if(e) {
|
|
if(strlen(e) + 1 + strlen(path) < sizeof(buf)) {
|
|
strcpy(buf, e);
|
|
strcat(buf, "/");
|
|
strcat(buf, path);
|
|
path = buf;
|
|
} else {
|
|
path = NULL;
|
|
}
|
|
}
|
|
}
|
|
|
|
*path_p = strdup(path);
|
|
|
|
return fopen(path, mode);
|
|
}
|