ascd/libworkman/wm_helpers.c

   1 /*
   2  * $Id: wm_helpers.c,v 1.7 1999/03/07 08:36:41 dirk Exp $
   3  *
   4  * This file is part of WorkMan, the civilized CD player library
   5  * (c) 1991-1997 by Steven Grimm (original author)
   6  * (c) by Dirk Försterling (current 'author' = maintainer)
   7  * The maintainer can be contacted by his e-mail address:
   8  * milliByte@DeathsDoor.com
   9  *
  10  * This library is free software; you can redistribute it and/or
  11  * modify it under the terms of the GNU Library General Public
  12  * License as published by the Free Software Foundation; either
  13  * version 2 of the License, or (at your option) any later version.
  14  *
  15  * This library is distributed in the hope that it will be useful,
  16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18  * Library General Public License for more details.
  19  *
  20  * You should have received a copy of the GNU Library General Public
  21  * License along with this library; if not, write to the Free
  22  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  23  *
  24  *
  25  * Some helpful functions...
  26  *
  27  */
  28
  29 static char wm_helpers_id[] = "$Id: wm_helpers.c,v 1.7 1999/03/07 08:36:41 dirk Exp $";
  30
  31 #include <stdio.h>
  32 #include <string.h>
  33 #include <malloc.h>
  34 #include <errno.h>
  35 #include <stdarg.h>
  36 #include <sys/time.h>
  37 #include "include/workman_defs.h"
  38 #include "include/wm_config.h"
  39 #include "include/wm_helpers.h"
  40 #include "include/wm_struct.h"
  41
  42 int wm_lib_verbosity = WM_MSG_LEVEL_NONE;
  43
  44 /*
  45  * Some seleced functions of version reporting follow...
  46  */
  47
  48 int wm_libver_major( void ){return WM_LIBVER_MAJOR;}
  49 int wm_libver_minor( void ){return WM_LIBVER_MINOR;}
  50 int wm_libver_pl( void ){return WM_LIBVER_PL;}
  51
  52 char *wm_libver_name( void )
  53 {
  54         char *s = NULL;
  55
  56         wm_strmcat(&s, WM_LIBVER_NAME);
  57         return s;
  58 } /* wm_libver_name() */
  59
  60 char *wm_libver_number( void )
  61 {
  62         char *s = NULL;
  63
  64         s = malloc(10);
  65         /* this is not used very often, so don't care about speed...*/
  66         sprintf(s, "%d.%d.%d", wm_libver_major(), wm_libver_minor(), wm_libver_pl());
  67         return s;
  68 } /* wm_libver_number() */
  69
  70 char *wm_libver_date( void )
  71 {
  72         char *s = NULL;
  73         wm_strmcat(&s, __DATE__);
  74         return s;
  75 } /* wm_libver_date() */
  76
  77 char *wm_libver_string( void )
  78 {
  79         char *s = NULL;
  80
  81         wm_strmcat( &s, wm_libver_name() );
  82         wm_strmcat( &s, " " );
  83         wm_strmcat( &s, wm_libver_number() );
  84         return s;
  85 } /* wm_libver_string() */
  86
  87
  88 /*
  89  *
  90  * Now for some memory management...
  91  *
  92  */
  93
  94 /* Free some memory and set a pointer to null. */
  95 void freeup( char **x )
  96 {
  97         if (*x != NULL)
  98         {
  99                 free(*x);
 100                 *x = NULL;
 101         }
 102 } /* freeup() */
 103
 104 /* Copy into a malloced string. */
 105 void
 106 wm_strmcpy( char **t, char *s )
 107 {
 108         if (*t != NULL)
 109                 free(*t);
 110
 111         *t = malloc(strlen(s) + 1);
 112         if (*t == NULL)
 113         {
 114                 perror("wm_strmcpy");
 115                 exit(1);
 116         }
 117
 118         (void) strcpy(*t, s);
 119 } /* wm_strmcpy() */
 120
 121 /* Add to a malloced string. */
 122 void
 123 wm_strmcat( char **t, char *s)
 124 {
 125         int     len = strlen(s) + 1;
 126
 127         if (*s == '\0')
 128                 return;
 129
 130         if (*t != NULL)
 131         {
 132                 len += strlen(*t);
 133                 *t = realloc(*t, len);
 134                 if (*t == NULL)
 135                 {
 136                         perror("strmcat");
 137                         exit(1);
 138                 }
 139                 strcat(*t, s);
 140         }
 141         else
 142                 wm_strmcpy(t, s);
 143 } /* wm_strmcat() */
 144
 145 /* Duplicate a string.  Some systems have this in libc, but not all. */
 146 char *
 147 wm_strdup( char *s )
 148 {
 149         char    *new;
 150
 151         new = malloc(strlen(s) + 1);
 152         if (new)
 153                 strcpy(new, s);
 154         return (new);
 155 } /* wm_strdup() */
 156
 157
 158 /*
 159  * set and get verbosity level.
 160  */
 161 void wm_lib_set_verbosity( int level )
 162 {
 163         if( WM_MSG_LEVEL_NONE <= level <= WM_MSG_LEVEL_DEBUG )
 164         {
 165                 wm_lib_verbosity = level;
 166         }
 167 } /* wm_lib_set_verbosity */
 168
 169 int wm_lib_get_verbosity( void )
 170 {
 171         return wm_lib_verbosity;
 172 }
 173
 174 /*
 175  * wm_lib_message().
 176  *
 177  * any message that falls into allowed classes and has at least
 178  * verbosity level wm_lib_verbosity & 0xf will be printed.
 179  *
 180  * Usage:
 181  *
 182  * wm_lib_message( WM_MSG_LEVEL | WM_MSG_CLASS, "format", contents);
 183  *
 184  * To simplify the usage, you may simply use WM_MSG_CLASS. It should be
 185  * defined in each module to reflect the correct message class.
 186  *
 187  */
 188 void wm_lib_message( unsigned int level, char *fmt, ... )
 189 {
 190         va_list ap;
 191         /* verbosity level */
 192         unsigned int vlevel = wm_lib_verbosity & 0xf;
 193         /* allowed classes */
 194         unsigned int vclass = (level & WM_MSG_CLASS_ALL) & (wm_lib_verbosity & WM_MSG_CLASS_ALL);
 195
 196         /*
 197          * just give me the level
 198          */
 199         level &= 0xf;
 200         if(level <= WM_MSG_LEVEL_NONE)
 201         {
 202                 fprintf(stderr, "LibWorkMan warning: A LibWorkMan programmer specified an invalid message level.\n");
 203         }
 204         /*
 205          * print it only if level and class are allowed.
 206          */
 207         if( (level <= vlevel) && (vclass != 0) )
 208         {
 209                 va_start(ap, fmt);
 210                 vfprintf(stderr, fmt, ap);
 211                 va_end(ap);
 212         }
 213 } /* wm_lib_message() */
 214
 215 /*
 216  * Simulate usleep() using select().
 217  */
 218 int
 219 wm_susleep( int usec )
 220 {
 221         struct timeval  tv;
 222
 223         timerclear(&tv);
 224         tv.tv_sec = usec / 1000000;
 225         tv.tv_usec = usec % 1000000;
 226         return (select(0, NULL, NULL, NULL, &tv));
 227 } /* wm_susleep() */
 228
 229