mirror of
https://github.com/ZDoom/qzdoom-gpl.git
synced 2024-11-17 09:41:21 +00:00
7371c4a516
cryptographically secure random number generator, if available, instead of the current time. - Changed the random number generator from Lee Killough's algorithm to the SFMT607 variant of the Mersenne Twister. SVN r1507 (trunk)
645 lines
14 KiB
C++
645 lines
14 KiB
C++
// Emacs style mode select -*- C++ -*-
|
|
//-----------------------------------------------------------------------------
|
|
//
|
|
// $Id:$
|
|
//
|
|
// Copyright (C) 1993-1996 by id Software, Inc.
|
|
//
|
|
// This source is available for distribution and/or modification
|
|
// only under the terms of the DOOM Source Code License as
|
|
// published by id Software. All rights reserved.
|
|
//
|
|
// The source is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License
|
|
// for more details.
|
|
//
|
|
// $Log:$
|
|
//
|
|
// DESCRIPTION:
|
|
//
|
|
//-----------------------------------------------------------------------------
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <fnmatch.h>
|
|
#include <unistd.h>
|
|
|
|
#include <stdarg.h>
|
|
#include <sys/types.h>
|
|
#include <sys/time.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#ifndef NO_GTK
|
|
#include <gtk/gtk.h>
|
|
#include <gdk/gdkkeysyms.h>
|
|
#endif
|
|
|
|
#include "doomerrors.h"
|
|
#include <math.h>
|
|
|
|
#include "SDL.h"
|
|
#include "doomtype.h"
|
|
#include "doomstat.h"
|
|
#include "version.h"
|
|
#include "doomdef.h"
|
|
#include "cmdlib.h"
|
|
#include "m_argv.h"
|
|
#include "m_misc.h"
|
|
#include "i_video.h"
|
|
#include "i_sound.h"
|
|
#include "i_music.h"
|
|
#include "x86.h"
|
|
|
|
#include "d_main.h"
|
|
#include "d_net.h"
|
|
#include "g_game.h"
|
|
#include "i_system.h"
|
|
#include "c_dispatch.h"
|
|
#include "templates.h"
|
|
|
|
#include "stats.h"
|
|
#include "hardware.h"
|
|
#include "gameconfigfile.h"
|
|
|
|
#include "m_fixed.h"
|
|
#include "g_level.h"
|
|
|
|
EXTERN_CVAR (String, language)
|
|
|
|
extern "C"
|
|
{
|
|
double SecondsPerCycle = 1e-8;
|
|
double CyclesPerSecond = 1e8;
|
|
}
|
|
|
|
#ifndef NO_GTK
|
|
extern bool GtkAvailable;
|
|
#endif
|
|
|
|
DWORD LanguageIDs[4] =
|
|
{
|
|
MAKE_ID ('e','n','u',0),
|
|
MAKE_ID ('e','n','u',0),
|
|
MAKE_ID ('e','n','u',0),
|
|
MAKE_ID ('e','n','u',0)
|
|
};
|
|
|
|
int (*I_GetTime) (bool saveMS);
|
|
int (*I_WaitForTic) (int);
|
|
void (*I_FreezeTime) (bool frozen);
|
|
|
|
void I_Tactile (int on, int off, int total)
|
|
{
|
|
// UNUSED.
|
|
on = off = total = 0;
|
|
}
|
|
|
|
ticcmd_t emptycmd;
|
|
ticcmd_t *I_BaseTiccmd(void)
|
|
{
|
|
return &emptycmd;
|
|
}
|
|
|
|
void I_BeginRead(void)
|
|
{
|
|
}
|
|
|
|
void I_EndRead(void)
|
|
{
|
|
}
|
|
|
|
|
|
static DWORD TicStart;
|
|
static DWORD TicNext;
|
|
static DWORD BaseTime;
|
|
static int TicFrozen;
|
|
|
|
// [RH] Returns time in milliseconds
|
|
unsigned int I_MSTime (void)
|
|
{
|
|
unsigned int time = SDL_GetTicks ();
|
|
return time - BaseTime;
|
|
}
|
|
|
|
//
|
|
// I_GetTime
|
|
// returns time in 1/35th second tics
|
|
//
|
|
int I_GetTimePolled (bool saveMS)
|
|
{
|
|
if (TicFrozen != 0)
|
|
{
|
|
return TicFrozen;
|
|
}
|
|
|
|
DWORD tm = SDL_GetTicks();
|
|
|
|
if (saveMS)
|
|
{
|
|
TicStart = tm;
|
|
TicNext = Scale((Scale (tm, TICRATE, 1000) + 1), 1000, TICRATE);
|
|
}
|
|
return Scale(tm - BaseTime, TICRATE, 1000);
|
|
}
|
|
|
|
int I_WaitForTicPolled (int prevtic)
|
|
{
|
|
int time;
|
|
|
|
assert (TicFrozen == 0);
|
|
while ((time = I_GetTimePolled(false)) <= prevtic)
|
|
;
|
|
|
|
return time;
|
|
}
|
|
|
|
void I_FreezeTimePolled (bool frozen)
|
|
{
|
|
if (frozen)
|
|
{
|
|
assert(TicFrozen == 0);
|
|
TicFrozen = I_GetTimePolled(false);
|
|
}
|
|
else
|
|
{
|
|
assert(TicFrozen != 0);
|
|
int froze = TicFrozen;
|
|
TicFrozen = 0;
|
|
int now = I_GetTimePolled(false);
|
|
BaseTime += (now - froze) * 1000 / TICRATE;
|
|
}
|
|
}
|
|
|
|
// Returns the fractional amount of a tic passed since the most recent tic
|
|
fixed_t I_GetTimeFrac (uint32 *ms)
|
|
{
|
|
DWORD now = SDL_GetTicks ();
|
|
if (ms) *ms = TicNext;
|
|
DWORD step = TicNext - TicStart;
|
|
if (step == 0)
|
|
{
|
|
return FRACUNIT;
|
|
}
|
|
else
|
|
{
|
|
fixed_t frac = clamp<fixed_t> ((now - TicStart)*FRACUNIT/step, 0, FRACUNIT);
|
|
return frac;
|
|
}
|
|
}
|
|
|
|
void I_WaitVBL (int count)
|
|
{
|
|
// I_WaitVBL is never used to actually synchronize to the
|
|
// vertical blank. Instead, it's used for delay purposes.
|
|
usleep (1000000 * count / 70);
|
|
}
|
|
|
|
//
|
|
// SetLanguageIDs
|
|
//
|
|
void SetLanguageIDs ()
|
|
{
|
|
}
|
|
|
|
//
|
|
// I_Init
|
|
//
|
|
void I_Init (void)
|
|
{
|
|
CheckCPUID (&CPU);
|
|
DumpCPUInfo (&CPU);
|
|
|
|
I_GetTime = I_GetTimePolled;
|
|
I_WaitForTic = I_WaitForTicPolled;
|
|
I_FreezeTime = I_FreezeTimePolled;
|
|
atterm (I_ShutdownSound);
|
|
I_InitSound ();
|
|
}
|
|
|
|
//
|
|
// I_Quit
|
|
//
|
|
static int has_exited;
|
|
|
|
void I_Quit (void)
|
|
{
|
|
has_exited = 1; /* Prevent infinitely recursive exits -- killough */
|
|
|
|
if (demorecording)
|
|
G_CheckDemoStatus();
|
|
}
|
|
|
|
|
|
//
|
|
// I_Error
|
|
//
|
|
extern FILE *Logfile;
|
|
bool gameisdead;
|
|
|
|
void STACK_ARGS I_FatalError (const char *error, ...)
|
|
{
|
|
static bool alreadyThrown = false;
|
|
gameisdead = true;
|
|
|
|
if (!alreadyThrown) // ignore all but the first message -- killough
|
|
{
|
|
alreadyThrown = true;
|
|
char errortext[MAX_ERRORTEXT];
|
|
int index;
|
|
va_list argptr;
|
|
va_start (argptr, error);
|
|
index = vsprintf (errortext, error, argptr);
|
|
va_end (argptr);
|
|
|
|
// Record error to log (if logging)
|
|
if (Logfile)
|
|
{
|
|
fprintf (Logfile, "\n**** DIED WITH FATAL ERROR:\n%s\n", errortext);
|
|
fflush (Logfile);
|
|
}
|
|
// throw CFatalError (errortext);
|
|
fprintf (stderr, "%s\n", errortext);
|
|
exit (-1);
|
|
}
|
|
|
|
if (!has_exited) // If it hasn't exited yet, exit now -- killough
|
|
{
|
|
has_exited = 1; // Prevent infinitely recursive exits -- killough
|
|
exit(-1);
|
|
}
|
|
}
|
|
|
|
void STACK_ARGS I_Error (const char *error, ...)
|
|
{
|
|
va_list argptr;
|
|
char errortext[MAX_ERRORTEXT];
|
|
|
|
va_start (argptr, error);
|
|
vsprintf (errortext, error, argptr);
|
|
va_end (argptr);
|
|
|
|
throw CRecoverableError (errortext);
|
|
}
|
|
|
|
void I_SetIWADInfo (const IWADInfo *info)
|
|
{
|
|
}
|
|
|
|
void I_PrintStr (const char *cp)
|
|
{
|
|
fputs (cp, stdout);
|
|
fflush (stdout);
|
|
}
|
|
|
|
#ifndef NO_GTK
|
|
// GtkTreeViews eats return keys. I want this to be like a Windows listbox
|
|
// where pressing Return can still activate the default button.
|
|
gint AllowDefault(GtkWidget *widget, GdkEventKey *event, gpointer func_data)
|
|
{
|
|
if (event->type == GDK_KEY_PRESS && event->keyval == GDK_Return)
|
|
{
|
|
gtk_window_activate_default (GTK_WINDOW(func_data));
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
// Double-clicking an entry in the list is the same as pressing OK.
|
|
gint DoubleClickChecker(GtkWidget *widget, GdkEventButton *event, gpointer func_data)
|
|
{
|
|
if (event->type == GDK_2BUTTON_PRESS)
|
|
{
|
|
*(int *)func_data = 1;
|
|
gtk_main_quit();
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
// When the user presses escape, that should be the same as canceling the dialog.
|
|
gint CheckEscape (GtkWidget *widget, GdkEventKey *event, gpointer func_data)
|
|
{
|
|
if (event->type == GDK_KEY_PRESS && event->keyval == GDK_Escape)
|
|
{
|
|
gtk_main_quit();
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
void ClickedOK(GtkButton *button, gpointer func_data)
|
|
{
|
|
*(int *)func_data = 1;
|
|
gtk_main_quit();
|
|
}
|
|
|
|
EXTERN_CVAR (Bool, queryiwad);
|
|
|
|
int I_PickIWad_Gtk (WadStuff *wads, int numwads, bool showwin, int defaultiwad)
|
|
{
|
|
GtkWidget *window;
|
|
GtkWidget *vbox;
|
|
GtkWidget *hbox;
|
|
GtkWidget *bbox;
|
|
GtkWidget *widget;
|
|
GtkWidget *tree;
|
|
GtkWidget *check;
|
|
GtkListStore *store;
|
|
GtkCellRenderer *renderer;
|
|
GtkTreeViewColumn *column;
|
|
GtkTreeSelection *selection;
|
|
GtkTreeIter iter, defiter;
|
|
int close_style = 0;
|
|
int i;
|
|
|
|
// Create the dialog window.
|
|
window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
|
|
gtk_window_set_title (GTK_WINDOW(window), GAMESIG " " DOTVERSIONSTR ": Select an IWAD to use");
|
|
gtk_window_set_position (GTK_WINDOW(window), GTK_WIN_POS_CENTER);
|
|
gtk_container_set_border_width (GTK_CONTAINER(window), 10);
|
|
g_signal_connect (window, "delete_event", G_CALLBACK(gtk_main_quit), NULL);
|
|
g_signal_connect (window, "key_press_event", G_CALLBACK(CheckEscape), NULL);
|
|
|
|
// Create the vbox container.
|
|
vbox = gtk_vbox_new (FALSE, 10);
|
|
gtk_container_add (GTK_CONTAINER(window), vbox);
|
|
|
|
// Create the top label.
|
|
widget = gtk_label_new ("ZDoom found more than one IWAD\nSelect from the list below to determine which one to use:");
|
|
gtk_box_pack_start (GTK_BOX(vbox), widget, false, false, 0);
|
|
gtk_misc_set_alignment (GTK_MISC(widget), 0, 0);
|
|
|
|
// Create a list store with all the found IWADs.
|
|
store = gtk_list_store_new (3, G_TYPE_STRING, G_TYPE_STRING, G_TYPE_INT);
|
|
for (i = 0; i < numwads; ++i)
|
|
{
|
|
const char *filepart = strrchr (wads[i].Path, '/');
|
|
if (filepart == NULL)
|
|
filepart = wads[i].Path;
|
|
else
|
|
filepart++;
|
|
gtk_list_store_append (store, &iter);
|
|
gtk_list_store_set (store, &iter,
|
|
0, filepart,
|
|
1, IWADInfos[wads[i].Type].Name,
|
|
2, i,
|
|
-1);
|
|
if (i == defaultiwad)
|
|
{
|
|
defiter = iter;
|
|
}
|
|
}
|
|
|
|
// Create the tree view control to show the list.
|
|
tree = gtk_tree_view_new_with_model (GTK_TREE_MODEL(store));
|
|
renderer = gtk_cell_renderer_text_new ();
|
|
column = gtk_tree_view_column_new_with_attributes ("IWAD", renderer, "text", 0, NULL);
|
|
gtk_tree_view_append_column (GTK_TREE_VIEW(tree), column);
|
|
renderer = gtk_cell_renderer_text_new ();
|
|
column = gtk_tree_view_column_new_with_attributes ("Game", renderer, "text", 1, NULL);
|
|
gtk_tree_view_append_column (GTK_TREE_VIEW(tree), column);
|
|
gtk_box_pack_start (GTK_BOX(vbox), GTK_WIDGET(tree), true, true, 0);
|
|
g_signal_connect(G_OBJECT(tree), "button_press_event", G_CALLBACK(DoubleClickChecker), &close_style);
|
|
g_signal_connect(G_OBJECT(tree), "key_press_event", G_CALLBACK(AllowDefault), window);
|
|
|
|
// Select the default IWAD.
|
|
selection = gtk_tree_view_get_selection (GTK_TREE_VIEW(tree));
|
|
gtk_tree_selection_select_iter (selection, &defiter);
|
|
|
|
// Create the hbox for the bottom row.
|
|
hbox = gtk_hbox_new (FALSE, 0);
|
|
gtk_box_pack_end (GTK_BOX(vbox), hbox, false, false, 0);
|
|
|
|
// Create the "Don't ask" checkbox.
|
|
check = gtk_check_button_new_with_label ("Don't ask me this again");
|
|
gtk_box_pack_start (GTK_BOX(hbox), check, false, false, 0);
|
|
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(check), !showwin);
|
|
|
|
// Create the OK/Cancel button box.
|
|
bbox = gtk_hbutton_box_new ();
|
|
gtk_button_box_set_layout (GTK_BUTTON_BOX(bbox), GTK_BUTTONBOX_END);
|
|
gtk_box_set_spacing (GTK_BOX(bbox), 10);
|
|
gtk_box_pack_end (GTK_BOX(hbox), bbox, false, false, 0);
|
|
|
|
// Create the OK button.
|
|
widget = gtk_button_new_from_stock (GTK_STOCK_OK);
|
|
gtk_box_pack_start (GTK_BOX(bbox), widget, false, false, 0);
|
|
GTK_WIDGET_SET_FLAGS (widget, GTK_CAN_DEFAULT);
|
|
gtk_widget_grab_default (widget);
|
|
g_signal_connect (widget, "clicked", G_CALLBACK(ClickedOK), &close_style);
|
|
g_signal_connect (widget, "activate", G_CALLBACK(ClickedOK), &close_style);
|
|
|
|
// Create the cancel button.
|
|
widget = gtk_button_new_from_stock (GTK_STOCK_CANCEL);
|
|
gtk_box_pack_start (GTK_BOX(bbox), widget, false, false, 0);
|
|
g_signal_connect (widget, "clicked", G_CALLBACK(gtk_main_quit), &window);
|
|
|
|
// Finally we can show everything.
|
|
gtk_widget_show_all (window);
|
|
|
|
gtk_main ();
|
|
|
|
if (close_style == 1)
|
|
{
|
|
GtkTreeModel *model;
|
|
GValue value = { 0, };
|
|
|
|
// Find out which IWAD was selected.
|
|
gtk_tree_selection_get_selected (selection, &model, &iter);
|
|
gtk_tree_model_get_value (GTK_TREE_MODEL(model), &iter, 2, &value);
|
|
i = g_value_get_int (&value);
|
|
g_value_unset (&value);
|
|
|
|
// Set state of queryiwad based on the checkbox.
|
|
queryiwad = !gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON(check));
|
|
}
|
|
else
|
|
{
|
|
i = -1;
|
|
}
|
|
|
|
if (GTK_IS_WINDOW(window))
|
|
{
|
|
gtk_widget_destroy (window);
|
|
// If we don't do this, then the X window might not actually disappear.
|
|
while (g_main_context_iteration (NULL, FALSE)) {}
|
|
}
|
|
|
|
return i;
|
|
}
|
|
#endif
|
|
|
|
int I_PickIWad (WadStuff *wads, int numwads, bool showwin, int defaultiwad)
|
|
{
|
|
int i;
|
|
|
|
if (!showwin)
|
|
{
|
|
return defaultiwad;
|
|
}
|
|
|
|
#ifndef NO_GTK
|
|
if (GtkAvailable)
|
|
{
|
|
return I_PickIWad_Gtk (wads, numwads, showwin, defaultiwad);
|
|
}
|
|
#endif
|
|
|
|
printf ("Please select a game wad (or 0 to exit):\n");
|
|
for (i = 0; i < numwads; ++i)
|
|
{
|
|
const char *filepart = strrchr (wads[i].Path, '/');
|
|
if (filepart == NULL)
|
|
filepart = wads[i].Path;
|
|
else
|
|
filepart++;
|
|
printf ("%d. %s (%s)\n", i+1, IWADInfos[wads[i].Type].Name, filepart);
|
|
}
|
|
printf ("Which one? ");
|
|
scanf ("%d", &i);
|
|
if (i > numwads)
|
|
return -1;
|
|
return i-1;
|
|
}
|
|
|
|
bool I_WriteIniFailed ()
|
|
{
|
|
printf ("The config file %s could not be saved:\n%s\n", GameConfig->GetPathName(), strerror(errno));
|
|
return false;
|
|
// return true to retry
|
|
}
|
|
|
|
static const char *pattern;
|
|
|
|
static int matchfile (const struct dirent *ent)
|
|
{
|
|
return fnmatch (pattern, ent->d_name, FNM_NOESCAPE) == 0;
|
|
}
|
|
|
|
void *I_FindFirst (const char *filespec, findstate_t *fileinfo)
|
|
{
|
|
FString dir;
|
|
|
|
char *slash = strrchr (filespec, '/');
|
|
if (slash)
|
|
{
|
|
pattern = slash+1;
|
|
dir = FString(filespec, slash-filespec+1);
|
|
}
|
|
else
|
|
{
|
|
pattern = filespec;
|
|
dir = ".";
|
|
}
|
|
|
|
fileinfo->current = 0;
|
|
fileinfo->count = scandir (dir.GetChars(), &fileinfo->namelist,
|
|
matchfile, alphasort);
|
|
if (fileinfo->count > 0)
|
|
{
|
|
return fileinfo;
|
|
}
|
|
return (void*)-1;
|
|
}
|
|
|
|
int I_FindNext (void *handle, findstate_t *fileinfo)
|
|
{
|
|
findstate_t *state = (findstate_t *)handle;
|
|
if (state->current < fileinfo->count)
|
|
{
|
|
return ++state->current < fileinfo->count ? 0 : -1;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
int I_FindClose (void *handle)
|
|
{
|
|
findstate_t *state = (findstate_t *)handle;
|
|
if (handle != (void*)-1 && state->count > 0)
|
|
{
|
|
state->count = 0;
|
|
free (state->namelist);
|
|
state->namelist = NULL;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int I_FindAttr (findstate_t *fileinfo)
|
|
{
|
|
dirent *ent = fileinfo->namelist[fileinfo->current];
|
|
struct stat buf;
|
|
|
|
if (stat(ent->d_name, &buf) == 0)
|
|
{
|
|
return S_ISDIR(buf.st_mode) ? FA_DIREC : 0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
// Clipboard support requires GTK+
|
|
// TODO: GTK+ uses UTF-8. We don't, so some conversions would be appropriate.
|
|
void I_PutInClipboard (const char *str)
|
|
{
|
|
#ifndef NO_GTK
|
|
if (GtkAvailable)
|
|
{
|
|
GtkClipboard *clipboard = gtk_clipboard_get(GDK_SELECTION_CLIPBOARD);
|
|
if (clipboard != NULL)
|
|
{
|
|
gtk_clipboard_set_text(clipboard, str, -1);
|
|
}
|
|
/* Should I? I don't know. It's not actually a selection.
|
|
clipboard = gtk_clipboard_get(GDK_SELECTION_PRIMARY);
|
|
if (clipboard != NULL)
|
|
{
|
|
gtk_clipboard_set_text(clipboard, str, -1);
|
|
}
|
|
*/
|
|
}
|
|
#endif
|
|
}
|
|
|
|
FString I_GetFromClipboard (bool use_primary_selection)
|
|
{
|
|
#ifndef NO_GTK
|
|
if (GtkAvailable)
|
|
{
|
|
GtkClipboard *clipboard = gtk_clipboard_get(use_primary_selection ?
|
|
GDK_SELECTION_PRIMARY : GDK_SELECTION_CLIPBOARD);
|
|
if (clipboard != NULL)
|
|
{
|
|
gchar *text = gtk_clipboard_wait_for_text(clipboard);
|
|
if (text != NULL)
|
|
{
|
|
FString copy(text);
|
|
g_free(text);
|
|
return copy;
|
|
}
|
|
}
|
|
}
|
|
#endif
|
|
return "";
|
|
}
|
|
|
|
// Return a random seed, preferably one with lots of entropy.
|
|
unsigned int I_MakeRNGSeed()
|
|
{
|
|
unsigned int seed;
|
|
int file;
|
|
|
|
// Try reading from /dev/urandom first, then /dev/random, then
|
|
// if all else fails, use a crappy seed from time().
|
|
seed = time(NULL);
|
|
file = open("/dev/urandom", O_RDONLY);
|
|
if (file < 0)
|
|
{
|
|
file = open("/dev/random", O_RDONLY);
|
|
}
|
|
if (file >= 0)
|
|
{
|
|
read(file, &seed, sizeof(seed));
|
|
close(file);
|
|
}
|
|
return seed;
|
|
}
|
|
|