colobot/src/common/misc.cpp

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';
}