src/my.c

   1 /*
   2    Copyright (C) Prikol Software 1996-1997
   3    Copyright (C) Aleksey Volynskov 1996-1997
   4    Copyright (C) <ARembo@gmail.com> 2011
   5
   6    This file is part of the Doom2D:Rembo project.
   7
   8    Doom2D:Rembo is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License version 2 as
  10    published by the Free Software Foundation.
  11
  12    Doom2D:Rembo is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, see <http://www.gnu.org/licenses/> or
  19    write to the Free Software Foundation, Inc.,
  20    51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
  21 */
  22
  23 #include <SDL.h>
  24 #include "glob.h"
  25 #include "error.h"
  26 #include "misc.h"
  27 #include <stdio.h>
  28 #include <stdint.h>
  29 #include <assert.h>
  30
  31 void mysplitpath(const char* path, char* drv, char* dir, char* name, char* ext) {
  32      const char* end; /* end of processed string */
  33      const char* p;   /* search pointer */
  34      const char* s;   /* copy pointer */
  35
  36      /* extract drive name */
  37      if (path[0] && path[1]==':') {
  38          if (drv) {
  39              *drv++ = *path++;
  40              *drv++ = *path++;
  41              *drv = '\0';
  42          }
  43      } else if (drv)
  44          *drv = '\0';
  45
  46      /* search for end of string or stream separator */
  47      for(end=path; *end && *end!=':'; )
  48          end++;
  49
  50      /* search for begin of file extension */
  51      for(p=end; p>path && *--p!='\\' && *p!='/'; )
  52          if (*p == '.') {
  53              end = p;
  54              break;
  55          }
  56
  57      if (ext)
  58          for(s=end; (*ext=*s++); )
  59              ext++;
  60
  61      /* search for end of directory name */
  62      for(p=end; p>path; )
  63          if (*--p=='\\' || *p=='/') {
  64              p++;
  65              break;
  66          }
  67
  68      if (name) {
  69          for(s=p; s<end; )
  70              *name++ = *s++;
  71
  72          *name = '\0';
  73      }
  74
  75      if (dir) {
  76          for(s=path; s<p; )
  77              *dir++ = *s++;
  78
  79          *dir = '\0';
  80      }
  81 }
  82
  83 size_t myfreadc (void *ptr, size_t size, size_t n, FILE *f) {
  84   return fread(ptr, size, n, f);
  85 }
  86
  87 void myfread (void *ptr, size_t size, size_t n, FILE *f) {
  88   if (myfreadc(ptr, size, n, f) != n) {
  89     ERR_fatal("File reading error\n");
  90   }
  91 }
  92
  93 int8_t myfread8 (FILE *f) {
  94   int8_t x;
  95   myfread(&x, 1, 1, f);
  96   return x;
  97 }
  98
  99 int16_t myfread16 (FILE *f) {
 100   int16_t x;
 101   myfread(&x, 2, 1, f);
 102   return short2host(x);
 103 }
 104
 105 int32_t myfread32 (FILE *f) {
 106   int32_t x;
 107   myfread(&x, 4, 1, f);
 108   return int2host(x);
 109 }
 110
 111 void myfwrite (void *ptr, size_t size, size_t n, FILE *f) {
 112   assert(fwrite(ptr, size, n, f) == n);
 113 }
 114
 115 void myfwrite8 (int8_t x, FILE *f) {
 116   myfwrite(&x, 1, 1, f);
 117 }
 118
 119 void myfwrite16 (int16_t x, FILE *f) {
 120   x = short2host(x);
 121   myfwrite(&x, 2, 1, f);
 122 }
 123
 124 void myfwrite32 (int32_t x, FILE *f) {
 125   x = int2host(x);
 126   myfwrite(&x, 4, 1, f);
 127 }
 128
 129 void myrandomize (void) {
 130     srand(SDL_GetTicks());
 131 }
 132
 133 int fexists (char *filename) {
 134     FILE *f;
 135     if ((f = fopen(filename, "r")))
 136     {
 137         fclose(f);
 138         return 1;
 139     }
 140     return 0;
 141 }