442 lines
9.8 KiB
C++
442 lines
9.8 KiB
C++
// * This file is part of the COLOBOT source code
|
|
// * Copyright (C) 2001-2008, Daniel ROUX & EPSITEC SA, www.epsitec.ch
|
|
// *
|
|
// * This program is free software: you can redistribute it and/or modify
|
|
// * it under the terms of the GNU General Public License as published by
|
|
// * the Free Software Foundation, either version 3 of the License, or
|
|
// * (at your option) any later version.
|
|
// *
|
|
// * This program is distributed in the hope that it will be useful,
|
|
// * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// * GNU General Public License for more details.
|
|
// *
|
|
// * You should have received a copy of the GNU General Public License
|
|
// * along with this program. If not, see http://www.gnu.org/licenses/.
|
|
|
|
// misc.cpp
|
|
|
|
|
|
#include <math.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <direct.h>
|
|
#include <time.h>
|
|
#include <d3d.h>
|
|
|
|
#include "common/struct.h"
|
|
#include "old/d3dengine.h"
|
|
#include "old/d3dmath.h"
|
|
#include "old/d3dutil.h"
|
|
#include "common/language.h"
|
|
#include "common/event.h"
|
|
#include "common/misc.h"
|
|
|
|
|
|
|
|
CMetaFile g_metafile;
|
|
|
|
static EventMsg g_uniqueEventMsg = EVENT_USER;
|
|
static bool g_bUserDir = false;
|
|
static char g_userDir[100] = "";
|
|
|
|
|
|
|
|
// Gives a single user event.
|
|
|
|
EventMsg GetUniqueEventMsg()
|
|
{
|
|
int i;
|
|
|
|
i = (int)g_uniqueEventMsg+1;
|
|
g_uniqueEventMsg = (EventMsg)i;
|
|
return g_uniqueEventMsg;
|
|
}
|
|
|
|
|
|
|
|
// Returns a non-accented letter.
|
|
|
|
char RetNoAccent(char letter)
|
|
{
|
|
if ( letter < 0 )
|
|
{
|
|
if ( letter == 'á' ||
|
|
letter == 'à' ||
|
|
letter == 'â' ||
|
|
letter == 'ä' ||
|
|
letter == 'ã' ) return 'a';
|
|
|
|
if ( letter == 'é' ||
|
|
letter == 'è' ||
|
|
letter == 'ê' ||
|
|
letter == 'ë' ) return 'e';
|
|
|
|
if ( letter == 'í' ||
|
|
letter == 'ì' ||
|
|
letter == 'î' ||
|
|
letter == 'ï' ) return 'i';
|
|
|
|
if ( letter == 'ó' ||
|
|
letter == 'ò' ||
|
|
letter == 'ô' ||
|
|
letter == 'ö' ||
|
|
letter == 'õ' ) return 'o';
|
|
|
|
if ( letter == 'ú' ||
|
|
letter == 'ù' ||
|
|
letter == 'û' ||
|
|
letter == 'ü' ) return 'u';
|
|
|
|
if ( letter == 'ç' ) return 'c';
|
|
|
|
if ( letter == 'ñ' ) return 'n';
|
|
|
|
if ( letter == 'Á' ||
|
|
letter == 'À' ||
|
|
letter == 'Â' ||
|
|
letter == 'Ä' ||
|
|
letter == 'Ã' ) return 'A';
|
|
|
|
if ( letter == 'É' ||
|
|
letter == 'È' ||
|
|
letter == 'Ê' ||
|
|
letter == 'Ë' ) return 'E';
|
|
|
|
if ( letter == 'Í' ||
|
|
letter == 'Ì' ||
|
|
letter == 'Î' ||
|
|
letter == 'Ï' ) return 'I';
|
|
|
|
if ( letter == 'Ó' ||
|
|
letter == 'Ò' ||
|
|
letter == 'Ô' ||
|
|
letter == 'Ö' ||
|
|
letter == 'Õ' ) return 'O';
|
|
|
|
if ( letter == 'Ú' ||
|
|
letter == 'Ù' ||
|
|
letter == 'Û' ||
|
|
letter == 'Ü' ) return 'U';
|
|
|
|
if ( letter == 'Ç' ) return 'C';
|
|
|
|
if ( letter == 'Ñ' ) return 'N';
|
|
}
|
|
|
|
return letter;
|
|
}
|
|
|
|
// Returns an uppercase letter.
|
|
|
|
char RetToUpper(char letter)
|
|
{
|
|
if ( letter < 0 )
|
|
{
|
|
if ( letter == 'á' ) return 'Á';
|
|
if ( letter == 'à' ) return 'À';
|
|
if ( letter == 'â' ) return 'Â';
|
|
if ( letter == 'ä' ) return 'Ä';
|
|
if ( letter == 'ã' ) return 'Ã';
|
|
|
|
if ( letter == 'é' ) return 'É';
|
|
if ( letter == 'è' ) return 'È';
|
|
if ( letter == 'ê' ) return 'Ê';
|
|
if ( letter == 'ë' ) return 'Ë';
|
|
|
|
if ( letter == 'í' ) return 'Í';
|
|
if ( letter == 'ì' ) return 'Ì';
|
|
if ( letter == 'î' ) return 'Î';
|
|
if ( letter == 'ï' ) return 'Ï';
|
|
|
|
if ( letter == 'ó' ) return 'Ó';
|
|
if ( letter == 'ò' ) return 'Ò';
|
|
if ( letter == 'ô' ) return 'Ô';
|
|
if ( letter == 'ö' ) return 'Ö';
|
|
if ( letter == 'õ' ) return 'Õ';
|
|
|
|
if ( letter == 'ú' ) return 'Ú';
|
|
if ( letter == 'ù' ) return 'Ù';
|
|
if ( letter == 'û' ) return 'Û';
|
|
if ( letter == 'ü' ) return 'Ü';
|
|
|
|
if ( letter == 'ç' ) return 'Ç';
|
|
|
|
if ( letter == 'ñ' ) return 'Ñ';
|
|
}
|
|
|
|
return toupper(letter);
|
|
}
|
|
|
|
// Returns a lowercase letter.
|
|
|
|
char RetToLower(char letter)
|
|
{
|
|
if ( letter < 0 )
|
|
{
|
|
if ( letter == 'Á' ) return 'á';
|
|
if ( letter == 'À' ) return 'à';
|
|
if ( letter == 'Â' ) return 'â';
|
|
if ( letter == 'Ä' ) return 'ä';
|
|
if ( letter == 'Ã' ) return 'ã';
|
|
|
|
if ( letter == 'É' ) return 'é';
|
|
if ( letter == 'È' ) return 'è';
|
|
if ( letter == 'Ê' ) return 'ê';
|
|
if ( letter == 'Ë' ) return 'ë';
|
|
|
|
if ( letter == 'Í' ) return 'í';
|
|
if ( letter == 'Ì' ) return 'ì';
|
|
if ( letter == 'Î' ) return 'î';
|
|
if ( letter == 'Ï' ) return 'ï';
|
|
|
|
if ( letter == 'Ó' ) return 'ó';
|
|
if ( letter == 'Ò' ) return 'ò';
|
|
if ( letter == 'Ô' ) return 'ô';
|
|
if ( letter == 'Ö' ) return 'ö';
|
|
if ( letter == 'Õ' ) return 'õ';
|
|
|
|
if ( letter == 'Ú' ) return 'ú';
|
|
if ( letter == 'Ù' ) return 'ù';
|
|
if ( letter == 'Û' ) return 'û';
|
|
if ( letter == 'Ü' ) return 'ü';
|
|
|
|
if ( letter == 'Ç' ) return 'ç';
|
|
|
|
if ( letter == 'Ñ' ) return 'ñ';
|
|
}
|
|
|
|
return tolower(letter);
|
|
}
|
|
|
|
|
|
// Converting time to string.
|
|
|
|
void TimeToAscii(time_t time, char *buffer)
|
|
{
|
|
struct tm when;
|
|
int year;
|
|
|
|
when = *localtime(&time);
|
|
year = when.tm_year+1900;
|
|
if ( year < 2000 ) year -= 1900;
|
|
else year -= 2000;
|
|
#if _FRENCH
|
|
sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
|
|
when.tm_mday, when.tm_mon+1, year,
|
|
when.tm_hour, when.tm_min);
|
|
#endif
|
|
#if _GERMAN | _WG
|
|
sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
|
|
when.tm_mday, when.tm_mon+1, year,
|
|
when.tm_hour, when.tm_min);
|
|
#endif
|
|
#if _ENGLISH
|
|
char format[10];
|
|
int hour;
|
|
|
|
hour = when.tm_hour; // 0..23
|
|
if ( hour < 12 ) // morning?
|
|
{
|
|
strcpy(format, "am");
|
|
}
|
|
else // afternoon?
|
|
{
|
|
strcpy(format, "pm");
|
|
hour -= 12; // 0..11
|
|
}
|
|
if ( hour == 0 ) hour = 12;
|
|
|
|
sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d %s",
|
|
when.tm_mon+1, when.tm_mday, year,
|
|
hour, when.tm_min, format);
|
|
#endif
|
|
#if _POLISH
|
|
sprintf(buffer, "%.2d.%.2d.%.2d %.2d:%.2d",
|
|
when.tm_mday, when.tm_mon+1, year,
|
|
when.tm_hour, when.tm_min);
|
|
#endif
|
|
}
|
|
|
|
|
|
// Makes a copy of a file.
|
|
|
|
bool Xfer(char* src, char* dst)
|
|
{
|
|
FILE *fs, *fd;
|
|
char *buffer;
|
|
int len;
|
|
|
|
fs = fopen(src, "rb");
|
|
if ( fs == 0 )
|
|
{
|
|
return false;
|
|
}
|
|
|
|
fd = fopen(dst, "wb");
|
|
if ( fd == 0 )
|
|
{
|
|
fclose(fs);
|
|
return false;
|
|
}
|
|
|
|
buffer = (char*)malloc(10000);
|
|
|
|
while ( true )
|
|
{
|
|
len = fread(buffer, 1, 10000, fs);
|
|
if ( len == 0 ) break;
|
|
fwrite(buffer, 1, len, fd);
|
|
}
|
|
|
|
free(buffer);
|
|
fclose(fs);
|
|
fclose(fd);
|
|
return true;
|
|
}
|
|
|
|
// Copy a file into the temporary folder.
|
|
|
|
bool CopyFileToTemp(char* filename)
|
|
{
|
|
char src[100];
|
|
char dst[100];
|
|
char save[100];
|
|
|
|
UserDir(src, filename, "textures");
|
|
|
|
strcpy(save, g_userDir);
|
|
strcpy(g_userDir, "temp");
|
|
UserDir(dst, filename, "textures");
|
|
strcpy(g_userDir, save);
|
|
|
|
_mkdir("temp");
|
|
if ( !Xfer(src, dst) ) return false;
|
|
|
|
strcpy(filename, dst);
|
|
return true;
|
|
}
|
|
|
|
// Copy a list of numbered files into the temporary folder.
|
|
|
|
bool CopyFileListToTemp(char* filename, int* list, int total)
|
|
{
|
|
char name[100];
|
|
char ext[10];
|
|
char file[100];
|
|
char save[100];
|
|
char* p;
|
|
int i;
|
|
|
|
strcpy(name, filename);
|
|
p = strchr(name, '.');
|
|
if ( p == 0 )
|
|
{
|
|
strcpy(ext, ".tga");
|
|
}
|
|
else
|
|
{
|
|
strcpy(ext, p);
|
|
*p = 0;
|
|
}
|
|
|
|
for ( i=0 ; i<total ; i++ )
|
|
{
|
|
sprintf(file, "%s%.3d%s", name, list[i], ext); // nameNNN.ext
|
|
CopyFileToTemp(file);
|
|
}
|
|
|
|
strcpy(save, g_userDir);
|
|
strcpy(g_userDir, "temp");
|
|
UserDir(file, filename, "textures");
|
|
strcpy(filename, file);
|
|
strcpy(g_userDir, save);
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
// Adds an extension to file, if doesn't already one.
|
|
|
|
void AddExt(char* filename, char* ext)
|
|
{
|
|
if ( strchr(filename, '.') != 0 ) return; // already an extension?
|
|
strcat(filename, ext);
|
|
}
|
|
|
|
|
|
// Specifies the user folder.
|
|
|
|
void UserDir(bool bUser, char* dir)
|
|
{
|
|
g_bUserDir = bUser;
|
|
strcpy(g_userDir, dir);
|
|
}
|
|
|
|
// Replaces the string %user% by the user folder.
|
|
// in: dir = "%user%toto.txt"
|
|
// def = "abc\"
|
|
// out: buffer = "abc\toto.txt"
|
|
|
|
void UserDir(char* buffer, char* dir, char* def)
|
|
{
|
|
char ddir[100];
|
|
char* add;
|
|
|
|
if ( strstr(dir, "\\") == 0 && def[0] != 0 )
|
|
{
|
|
sprintf(ddir, "%s\\%s", def, dir);
|
|
}
|
|
else
|
|
{
|
|
strcpy(ddir, dir);
|
|
}
|
|
dir = ddir;
|
|
|
|
while ( *dir != 0 )
|
|
{
|
|
if ( dir[0] == '%' &&
|
|
dir[1] == 'u' &&
|
|
dir[2] == 's' &&
|
|
dir[3] == 'e' &&
|
|
dir[4] == 'r' &&
|
|
dir[5] == '%' ) // %user% ?
|
|
{
|
|
if ( g_bUserDir ) add = g_userDir;
|
|
else add = def;
|
|
|
|
while ( *add != 0 )
|
|
{
|
|
*buffer++ = *add++;
|
|
}
|
|
dir += 6; // jumps to %user%
|
|
continue;
|
|
}
|
|
|
|
*buffer++ = *dir++;
|
|
}
|
|
*buffer = 0;
|
|
}
|
|
|
|
|
|
// Returns the letter corresponding to the language.
|
|
|
|
char RetLanguageLetter()
|
|
{
|
|
#if _FRENCH
|
|
return 'F';
|
|
#endif
|
|
#if _ENGLISH
|
|
return 'E';
|
|
#endif
|
|
#if _GERMAN | _WG
|
|
return 'D';
|
|
#endif
|
|
#if _POLISH
|
|
return 'P';
|
|
#endif
|
|
return 'X';
|
|
}
|
|
|