home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Multimed
/
Multimed.zip
/
chord3_6.zip
/
chord
/
common.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-04-25
|
3KB
|
106 lines
static char SccsId[] = "@(#)common.c 3.6\t Mar. 1995";
static char copyright[] = "Copyright 1991-1995 by Martin Leclerc & Mario Dorion";
#include <stdio.h>
#include "chord.h"
extern char *current_file;
extern char *command_name;
extern char *mesg;
extern int in_chordrc;
extern int first_time_in_chordrc;
/* --------------------------------------------------------------------------------*/
char *tolower_str(str)
char *str;
{
static char temp_str[MAXLINE];
char *ptr;
strcpy(temp_str, str);
ptr=temp_str;
while (*ptr=(char) tolower((int) *ptr))
ptr++;
return(temp_str);
}
/* --------------------------------------------------------------------------------*/
char *toupper_str(str)
char *str;
{
static char temp_str[MAXLINE];
char *ptr;
strcpy(temp_str, str);
ptr=temp_str;
while (*ptr=(char) toupper((int) *ptr))
ptr++;
return(temp_str);
}
/* --------------------------------------------------------------------------------*/
void error(err_str)
char *err_str;
{
extern int n_lines;
fprintf(stderr, "WARNING: %s\n",err_str);
fprintf(stderr, " in file \"%s\", line %d\n\n", current_file,n_lines+1);
}
/* --------------------------------------------------------------------------------*/
void error_rt(err_str)
char *err_str;
{
extern int n_lines;
fprintf(stderr, "WARNING: %s defined as a run-time option\n\n",err_str);
}
/* --------------------------------------------------------------------------------*/
void debug(dbg_str)
char *dbg_str;
{
extern int debug_mode;
if ( debug_mode )
fprintf (stderr, "Debug: %s\n", dbg_str);
}
/* --------------------------------------------------------------------------------*/
void print_version()
{
char *version = VERSION;
char *patch_level = PATCH_LEVEL;
printf ("%s version %s, patchlevel %s\n", command_name, version, patch_level);
}
/* --------------------------------------------------------------------------------*/
/* read the file passed as argument */
void read_input_file(source, source_fd)
char source[];
FILE *source_fd;
{
sprintf (mesg , "start of read_input_file on [%s]", source);
debug (mesg);
current_file = source;
source_fd = fopen (source, "r");
if (source_fd == NULL)
{
fprintf(stderr, "Unable to open \"%s\"\n", source);
exit (1);
}
process_file(source_fd);
fclose(source_fd);
}