src/m_misc.c

   1 // Emacs style mode select   -*- C++ -*-
   2 //-----------------------------------------------------------------------------
   3 //
   4 // Copyright(C) 1993-1996 Id Software, Inc.
   5 // Copyright(C) 2005 Simon Howard
   6 //
   7 // This program is free software; you can redistribute it and/or
   8 // modify it under the terms of the GNU General Public License
   9 // as published by the Free Software Foundation; either version 2
  10 // of the License, or (at your option) any later version.
  11 //
  12 // This program 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, write to the Free Software
  19 // Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  20 // 02111-1307, USA.
  21 //
  22 // DESCRIPTION:
  23 //      Miscellaneous.
  24 //
  25 //-----------------------------------------------------------------------------
  26
  27
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <ctype.h>
  31 #include <errno.h>
  32
  33 // for mkdir:
  34
  35 #ifdef _WIN32
  36 #include <io.h>
  37 #ifdef _MSC_VER
  38 #include <direct.h>
  39 #endif
  40 #else
  41 #include <sys/stat.h>
  42 #include <sys/types.h>
  43 #endif
  44
  45 #include "doomdef.h"
  46 #include "doomstat.h"
  47
  48 #include "deh_main.h"
  49
  50 #include "i_swap.h"
  51 #include "i_system.h"
  52 #include "i_video.h"
  53 #include "m_misc.h"
  54 #include "v_video.h"
  55 #include "w_wad.h"
  56 #include "z_zone.h"
  57
  58 //
  59 // Create a directory
  60 //
  61
  62 void M_MakeDirectory(char *path)
  63 {
  64 #ifdef _WIN32
  65     mkdir(path);
  66 #else
  67     mkdir(path, 0755);
  68 #endif
  69 }
  70
  71 // Check if a file exists
  72
  73 boolean M_FileExists(char *filename)
  74 {
  75     FILE *fstream;
  76
  77     fstream = fopen(filename, "r");
  78
  79     if (fstream != NULL)
  80     {
  81         fclose(fstream);
  82         return true;
  83     }
  84     else
  85     {
  86         // If we can't open because the file is a directory, the
  87         // "file" exists at least!
  88
  89         return errno == EISDIR;
  90     }
  91 }
  92
  93 //
  94 // Determine the length of an open file.
  95 //
  96
  97 long M_FileLength(FILE *handle)
  98 {
  99     long savedpos;
 100     long length;
 101
 102     // save the current position in the file
 103     savedpos = ftell(handle);
 104
 105     // jump to the end and find the length
 106     fseek(handle, 0, SEEK_END);
 107     length = ftell(handle);
 108
 109     // go back to the old location
 110     fseek(handle, savedpos, SEEK_SET);
 111
 112     return length;
 113 }
 114
 115 //
 116 // M_WriteFile
 117 //
 118
 119 boolean M_WriteFile(char *name, void *source, int length)
 120 {
 121     FILE *handle;
 122     int count;
 123
 124     handle = fopen(name, "wb");
 125
 126     if (handle == NULL)
 127         return false;
 128
 129     count = fwrite(source, 1, length, handle);
 130     fclose(handle);
 131
 132     if (count < length)
 133         return false;
 134
 135     return true;
 136 }
 137
 138
 139 //
 140 // M_ReadFile
 141 //
 142
 143 int M_ReadFile(char *name, byte **buffer)
 144 {
 145     FILE *handle;
 146     int count, length;
 147     byte *buf;
 148
 149     handle = fopen(name, "rb");
 150     if (handle == NULL)
 151         I_Error ("Couldn't read file %s", name);
 152
 153     // find the size of the file by seeking to the end and
 154     // reading the current position
 155
 156     length = M_FileLength(handle);
 157
 158     buf = Z_Malloc (length, PU_STATIC, NULL);
 159     count = fread(buf, 1, length, handle);
 160     fclose (handle);
 161
 162     if (count < length)
 163         I_Error ("Couldn't read file %s", name);
 164
 165     *buffer = buf;
 166     return length;
 167 }
 168
 169 // Returns the path to a temporary file of the given name, stored
 170 // inside the system temporary directory.
 171 //
 172 // The returned value must be freed with Z_Free after use.
 173
 174 char *M_TempFile(char *s)
 175 {
 176     char *result;
 177     char *tempdir;
 178
 179 #ifdef _WIN32
 180
 181     // Check the TEMP environment variable to find the location.
 182
 183     tempdir = getenv("TEMP");
 184
 185     if (tempdir == NULL)
 186     {
 187         tempdir = ".";
 188     }
 189 #else
 190     // In Unix, just use /tmp.
 191
 192     tempdir = "/tmp";
 193 #endif
 194
 195     result = Z_Malloc(strlen(tempdir) + strlen(s) + 2, PU_STATIC, 0);
 196     sprintf(result, "%s%c%s", tempdir, DIR_SEPARATOR, s);
 197
 198     return result;
 199 }
 200