apps/plugins/zxbox/zxmisc.c

   1 /*
   2  * Copyright (C) 1996-1998 Szeredi Miklos
   3  * Email: mszeredi@inf.bme.hu
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version. See the file COPYING.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  *
  19  */
  20
  21 #include "zxmisc.h"
  22 #include "zxconfig.h"
  23 #include <stdio.h>
  24 #include <string.h>
  25 #include <stdlib.h>
  26 #include <ctype.h>
  27 #include "helpers.h"
  28 #define DIR_SEP_CHAR '/'
  29
  30 char *get_base_name(char *fname)
  31 {
  32   char *p;
  33
  34   p = fname;
  35   for(; *p; p++);
  36   for(; p >= fname && *p != DIR_SEP_CHAR; p--);
  37   return ++p;
  38 }
  39
  40
  41 int check_ext(const char *filename, const char *ext)
  42 {
  43   int flen, elen;
  44   int i;
  45
  46   flen = (int) rb->strlen(filename);
  47   elen = (int) rb->strlen(ext);
  48
  49   if(flen <= elen + 1) return 0;
  50
  51   if(filename[flen-elen-1] != '.') return 0;
  52   for(i = 0; i < elen; i++) if(filename[flen-elen+i] != toupper(ext[i])) break;
  53   if(i == elen) return 1;
  54   for(i = 0; i < elen; i++) if(filename[flen-elen+i] != tolower(ext[i])) break;
  55   if(i == elen) return 1;
  56   return 0;
  57 }
  58
  59 void add_extension(char *filename, const char *ext)
  60 {
  61   int i;
  62   int upper;
  63
  64   i = (int) rb->strlen(filename);
  65   if(filename[i] > 64 && filename[i] < 96) upper = 1;
  66   else upper = 0;
  67
  68   filename[i++] = '.';
  69   if(upper)
  70     for(; *ext; i++, ext++) filename[i] = toupper(*ext);
  71   else
  72     for(; *ext; i++, ext++) filename[i] = tolower(*ext);
  73 }
  74
  75 int file_exist(const char *filename)
  76 {
  77   /*FILE *fp;*/
  78   int fd;
  79
  80   fd = rb->open(filename, O_RDONLY);
  81   if(fd >= 0) {
  82     rb->close(fd);
  83     return 1;
  84   }
  85   else return 0;
  86 /*  if(errno == ENOENT) return 0;
  87   return 1;*/
  88 }
  89
  90 int try_extension(char *filename, const char *ext)
  91 {
  92   int tend;
  93
  94   tend = (int) rb->strlen(filename);
  95   add_extension(filename, ext);
  96   if(file_exist(filename)) return 1;
  97
  98   filename[tend] = '\0';
  99   return 0;
 100 }
 101
 102 void *malloc_err(size_t size)
 103 {
 104   char *p;
 105
 106   p = (char *) my_malloc(size);
 107   if(p == NULL) {
 108    // fprintf(stderr, "Out of memory!\n");
 109     /*exit(1);*/
 110   }
 111   return (void *) p;
 112 }
 113
 114 char *make_string(char *ostr, const char *nstr)
 115 {
 116   if(ostr != NULL) /*free(ostr)*/ostr=0;
 117   ostr = malloc_err(rb->strlen(nstr) + 1);
 118   rb->strcpy(ostr, nstr);
 119   return ostr;
 120 }
 121
 122 void free_string(char *ostr)
 123 {
 124   if(ostr != NULL) /*free(ostr)*/ostr=0;
 125 }
 126
 127 int mis_strcasecmp(const char *s1, const char *s2)
 128 {
 129   int c1, c2;
 130
 131   for(;; s1++, s2++) {
 132     c1 = tolower(*s1);
 133     c2 = tolower(*s2);
 134
 135     if(!c1 || c1 != c2) break;
 136   }
 137   return c1-c2;
 138 }