X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2FDoom2DF.lpr;h=bbbcdd3089eeacf26c5e688d19b377a3e1b76990;hb=d0936017ccb8a078d1b03f55478af284bb015bbc;hp=0b62430ad3d7c369f4dcf485b6f4fbb65f8e1f67;hpb=defbc8a87bbfc67290bdbe413be9b58c27f20b53;p=d2df-sdl.git diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr index 0b62430..bbbcdd3 100644 --- a/src/game/Doom2DF.lpr +++ b/src/game/Doom2DF.lpr @@ -2,8 +2,7 @@ * * 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. + * the Free Software Foundation, version 3 of the License ONLY. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -15,6 +14,7 @@ *) {$INCLUDE ../shared/a_modes.inc} {$IFDEF ANDROID}library{$ELSE}program{$ENDIF} Doom2DF; + {$IFNDEF HEADLESS} {$IFDEF WINDOWS} {$APPTYPE GUI} @@ -22,46 +22,89 @@ {$ENDIF} {$HINTS OFF} -{$IFDEF USE_SDLMIXER} - {$IFDEF USE_FMOD} - {$ERROR define only one of USE_SDLMIXER or USE_FMOD} - {$ENDIF} -{$ELSE} - {$UNDEF USE_SDLMIXER} - {$DEFINE USE_FMOD} -{$ENDIF} - uses {$IFDEF ANDROID} ctypes, {$ENDIF} {$IFDEF UNIX} - cthreads, + cthreads, BaseUnix, +{$ENDIF} +{$IFDEF DARWIN} + MacOSAll, CocoaAll, {$ENDIF} mempool in '../shared/mempool.pas', conbuf in '../shared/conbuf.pas', geom in '../shared/geom.pas', math, -{$IFDEF USE_NANOGL} - nanoGL in '../lib/nanogl/nanoGL.pas', -{$ELSE} - GL, - GLExt, -{$ENDIF} + {$IFDEF USE_MINIUPNPC} miniupnpc in '../lib/miniupnpc/miniupnpc.pas', {$ENDIF} + +{$IFDEF USE_SDL} + SDL, + {$IFDEF USE_SDLMIXER} + SDL_mixer, + {$ENDIF} +{$ENDIF} +{$IFDEF USE_SDL2} SDL2 in '../lib/sdl2/sdl2.pas', -{$IFDEF USE_SDLMIXER} - SDL2_mixer in '../lib/sdl2/SDL2_mixer.pas', + {$IFDEF USE_SDLMIXER} + SDL2_mixer in '../lib/sdl2/SDL2_mixer.pas', + {$ENDIF} +{$ENDIF} +{$IFDEF USE_SYSSTUB} + {$IFDEF USE_SDLMIXER} + SDL2 in '../lib/sdl2/sdl2.pas', + SDL2_mixer in '../lib/sdl2/SDL2_mixer.pas', + {$ENDIF} +{$ENDIF} + +{$IFDEF USE_OPENAL} + AL in '../lib/openal/al.pas', + e_soundfile in '../engine/e_soundfile.pas', + {$IF DEFINED(USE_SDL) OR DEFINED(USE_SDL2)} + e_soundfile_wav in '../engine/e_soundfile_wav.pas', + {$ENDIF} + {$IFDEF USE_VORBIS} + vorbis in '../lib/vorbis/vorbis.pas', + e_soundfile_vorbis in '../engine/e_soundfile_vorbis.pas', + {$ENDIF} + {$IFDEF USE_FLUIDSYNTH} + fluidsynth in '../lib/fluidsynth/fluidsynth.pas', + e_soundfile_fluid in '../engine/e_soundfile_fluid.pas', + {$ENDIF} + {$IFDEF USE_MODPLUG} + modplug in '../lib/modplug/modplug.pas', + e_soundfile_modplug in '../engine/e_soundfile_modplug.pas', + {$ENDIF} + {$IFDEF USE_XMP} + xmp in '../lib/xmp/xmp.pas', + e_soundfile_xmp in '../engine/e_soundfile_xmp.pas', + {$ENDIF} + {$IFDEF USE_GME} + gme in '../lib/gme/gme.pas', + e_soundfile_gme in '../engine/e_soundfile_gme.pas', + {$ENDIF} + {$IFDEF USE_MPG123} + mpg123 in '../lib/mpg123/mpg123.pas', + e_soundfile_mp3 in '../engine/e_soundfile_mp3.pas', + {$ENDIF} + {$IFDEF USE_OPUS} + opus in '../lib/opus/opus.pas', + e_soundfile_opus in '../engine/e_soundfile_opus.pas', + {$ENDIF} + {$IF DEFINED(USE_VORBIS) OR DEFINED(USE_OPUS)} + ogg in '../lib/vorbis/ogg.pas', // this has to come last because link order + {$ENDIF} {$ENDIF} + ENet in '../lib/enet/enet.pp', - e_graphics in '../engine/e_graphics.pas', e_input in '../engine/e_input.pas', e_log in '../engine/e_log.pas', e_sound in '../engine/e_sound.pas', - e_texture in '../engine/e_texture.pas', e_msg in '../engine/e_msg.pas', + e_res in '../engine/e_res.pas', utils in '../shared/utils.pas', xstreams in '../shared/xstreams.pas', sfs in '../sfs/sfs.pas', @@ -70,6 +113,7 @@ uses wadreader in '../shared/wadreader.pas', MAPDEF in '../shared/MAPDEF.pas', CONFIG in '../shared/CONFIG.pas', + g_base in 'g_base.pas', g_basic in 'g_basic.pas', g_console in 'g_console.pas', g_net in 'g_net.pas', @@ -82,7 +126,6 @@ uses g_gfx in 'g_gfx.pas', g_gui in 'g_gui.pas', g_items in 'g_items.pas', - g_main in 'g_main.pas', g_map in 'g_map.pas', g_menu in 'g_menu.pas', g_monsters in 'g_monsters.pas', @@ -96,8 +139,34 @@ uses g_triggers in 'g_triggers.pas', g_weapons in 'g_weapons.pas', g_window in 'g_window.pas', - g_holmes in 'g_holmes.pas', - SysUtils, +{$IFDEF USE_SYSSTUB} + g_system in 'stub/g_system.pas', + g_touch in 'stub/g_touch.pas', +{$ENDIF} +{$IFDEF USE_SDL} + g_system in 'sdl/g_system.pas', + g_touch in 'sdl/g_touch.pas', +{$ENDIF} +{$IFDEF USE_SDL2} + g_system in 'sdl2/g_system.pas', + g_touch in 'sdl2/g_touch.pas', +{$ENDIF} + + r_console in 'opengl/r_console.pas', + r_game in 'opengl/r_game.pas', + r_gfx in 'opengl/r_gfx.pas', + r_graphics in 'opengl/r_graphics.pas', + r_items in 'opengl/r_items.pas', + r_map in 'opengl/r_map.pas', + r_monsters in 'opengl/r_monsters.pas', + r_netmaster in 'opengl/r_netmaster.pas', + r_panel in 'opengl/r_panel.pas', + r_player in 'opengl/r_player.pas', + r_playermodel in 'opengl/r_playermodel.pas', + r_texture in 'opengl/r_texture.pas', + r_weapons in 'opengl/r_weapons.pas', + r_window in 'opengl/r_window.pas', + {$IFDEF USE_FMOD} fmod in '../lib/FMOD/fmod.pas', fmoderrors in '../lib/FMOD/fmoderrors.pas', @@ -107,6 +176,7 @@ uses xprofiler in '../shared/xprofiler.pas', binheap in '../shared/binheap.pas', hashtable in '../shared/hashtable.pas', + fhashdb in '../shared/fhashdb.pas', idpool in '../shared/idpool.pas', xparser in '../shared/xparser.pas', xdynrec in '../shared/xdynrec.pas', @@ -115,6 +185,9 @@ uses g_panel in 'g_panel.pas', g_language in 'g_language.pas', +{$IFDEF ENABLE_HOLMES} + g_holmes in 'g_holmes.pas', + sdlcarcass in '../flexui/sdlcarcass.pas', //sdlstandalone in '../flexui/sdlstandalone.pas', @@ -125,82 +198,584 @@ uses fui_style in '../flexui/fui_style.pas', fui_flexlay in '../flexui/fui_flexlay.pas', fui_ctls in '../flexui/fui_ctls.pas', - - ImagingTypes, - Imaging, - ImagingUtility; +{$ENDIF} + {$I ../shared/vampimg.inc} + SysUtils; {$IFDEF WINDOWS} {$R *.res} {$ENDIF} -{$IFDEF ANDROID} -function SDL_main(argc: CInt; argv: PPChar): CInt; cdecl; -{$ENDIF ANDROID} + var + noct: Boolean = False; + binPath: AnsiString = ''; + forceBinDir: Boolean = False; -var - f: Integer; - noct: Boolean = false; - //tfo: Text; +function GetBinaryPath (): AnsiString; + {$IFDEF LINUX} + var sl: AnsiString; + {$ENDIF} begin - SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); //k8: fuck off, that's why + result := ExtractFilePath(ParamStr(0)); + {$IFDEF LINUX} + // it may be a symlink; do some guesswork here + sl := fpReadLink(ExtractFileName(ParamStr(0))); + if (sl = ParamStr(0)) then + begin + // use current directory, as we don't have anything better + //result := '.'; + GetDir(0, result); + end; + {$ENDIF} + result := fixSlashes(result); + if (length(result) > 0) and (result[length(result)] <> '/') then + result := result + '/'; +end; -{$IFDEF ANDROID} -{$I-} - e_SetSafeSlowLog(true); - Chdir(SDL_AndroidGetExternalStoragePath()); - if IOresult <> 0 then +procedure PrintDirs (msg: AnsiString; dirs: SSArray); + var dir: AnsiString; +begin + e_LogWriteln(msg + ':'); + for dir in dirs do + e_LogWriteln(' ' + dir); +end; + +{$IFDEF DARWIN} + function NSStringToAnsiString (s: NSString): AnsiString; + var i: Integer; begin - Chdir(SDL_AndroidGetInternalStoragePath()); - if IOresult <> 0 then - begin - e_WriteLog('Fuck! Cant chdir to any game directory :(', TMsgType.Fatal); - result := 1; - exit; - end; + result := ''; + for i := 0 to s.length - 1 do + result := result + AnsiChar(s.characterAtIndex(i)); end; -{$ENDIF ANDROID} - for f := 1 to ParamCount do + function GetBundlePath (): AnsiString; + var pathRef: CFURLRef; pathCFStr: CFStringRef; pathStr: ShortString; begin - if ParamStr(f) = '--gdb' then noct := true - else if ParamStr(f) = '--log' then conbufDumpToStdOut := true - else if ParamStr(f) = '--safe-log' then e_SetSafeSlowLog(true); + pathRef := CFBundleCopyBundleURL(CFBundleGetMainBundle()); + pathCFStr := CFURLCopyFileSystemPath(pathRef, kCFURLPOSIXPathStyle); + CFStringGetPascalString(pathCFStr, @pathStr, 255, CFStringGetSystemEncoding()); + CFRelease(pathRef); + CFRelease(pathCFStr); + Result := pathStr; end; - if noct then +{$ENDIF} + +procedure InitPath; + var i: Integer; rwdir, rodir: AnsiString; rwdirs, rodirs: SSArray; + + procedure AddDir (var dirs: SSArray; append: AnsiString); begin - Main() - end - else + SetLength(dirs, Length(dirs) + 1); + dirs[High(dirs)] := ExpandFileName(append) + end; + + function IsSep (ch: Char): Boolean; begin - try - Main(); - e_WriteLog('Shutdown with no errors.', TMsgType.Notify); - except - on e: Exception do + {$IFDEF WINDOWS} + result := (ch = '/') or (ch = '\'); + {$ELSE} + result := (ch = '/'); + {$ENDIF} + end; + + function OptimizePath (dir: AnsiString): AnsiString; + var i, len: Integer; s: AnsiString; + begin + i := 1; len := Length(dir); s := ''; + while i <= len do + begin + if IsSep(dir[i]) then + begin + s := s + DirectorySeparator; + Inc(i); + while (i <= len) and IsSep(dir[i]) do Inc(i); + if (i <= len) and (dir[i] = '.') then begin - e_WriteStackTrace(e.message); - //e_WriteLog(Format(_lc[I_SYSTEM_ERROR_MSG], [E.Message]), MSG_FATALERROR); - (* - AssignFile(tfo, GameDir+'/trace.log'); - {$I-} - Append(tfo); - if (IOResult <> 0) then Rewrite(tfo); - if (IOResult = 0) then begin writeln(tfo, '====================='); DumpExceptionBackTrace(tfo); CloseFile(tfo); end; - *) + if (i = len) or IsSep(dir[i + 1]) then + begin + Inc(i) + end + else if (i + 1 <= len) and (dir[i + 1] = '.') then + begin + if (i + 1 = len) or IsSep(dir[i + 2]) then + begin + s := e_UpperDir(s); + Inc(i, 2) + end + end end + end else + begin + s := s + dir[i]; + Inc(i) + end + end; + result := s + end; + + procedure OptimizeDirs (var dirs: SSArray); + var i, j, k: Integer; + begin + for i := 0 to High(dirs) do + dirs[i] := OptimizePath(dirs[i]); + // deduplicate + i := High(dirs); + while i >= 0 do + begin + j := 0; + while j < i do + begin + if dirs[j] = dirs[i] then + begin + for k := j + 1 to High(dirs) do + dirs[k - 1] := dirs[k]; + Dec(i); + SetLength(dirs, High(dirs)) + end + else + begin + Inc(j) + end + end; + Dec(i) + end + end; + + procedure AddDef (var dirs: SSArray; base: SSArray; append: AnsiString); + var s: AnsiString; + begin + if Length(dirs) = 0 then + for s in base do + AddDir(dirs, e_CatPath(s, append)); + OptimizeDirs(dirs) + end; + + function GetDefaultRODirs (): SSArray; + {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)} + var home: AnsiString; + {$ENDIF} + {$IFDEF WINDOWS} + var appdata: AnsiString; + {$ENDIF} + {$IFDEF DARWIN} + var bundle, s: AnsiString; dirArr: NSArray; i: Integer; + {$ENDIF} + begin + result := nil; + {$IFDEF DARWIN} + bundle := GetBundlePath(); + if ExtractFileExt(bundle) <> '.app' then + AddDir(result, binpath); + {$ELSE} + AddDir(result, binPath); + {$ENDIF} + if forceBinDir = false then + begin + {$IFDEF USE_SDL2} + AddDir(result, SDL_GetBasePath()); + AddDir(result, SDL_GetPrefPath('', 'doom2df')); + {$ENDIF} + {$IFDEF WINDOWS} + appdata := GetEnvironmentVariable('APPDATA') + '\doom2df'; + if appdata <> '' then + AddDir(result, appdata); + {$ENDIF} + {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)} + AddDir(result, '/usr/share/doom2df'); + AddDir(result, '/usr/local/share/doom2df'); + home := GetEnvironmentVariable('HOME'); + if home <> '' then + AddDir(result, e_CatPath(home, '.doom2df')); + {$ENDIF} + {$IFDEF DARWIN} + bundle := GetBundlePath(); + if bundle <> '' then + AddDir(result, e_CatPath(bundle, 'Contents/Resources')); + dirArr := NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory, NSUserDomainMask, true); + for i := 0 to dirArr.count - 1 do + begin + s := NSStringToAnsiString(dirArr.objectAtIndex(i)); + AddDir(result, e_CatPath(s, 'Doom 2D Forever')) + end; + {$ENDIF} + {$IF DEFINED(ANDROID) AND DEFINED(USE_SDL2)} + AddDir(result, SDL_AndroidGetInternalStoragePath()); + if SDL_AndroidGetExternalStorageState() <> 0 then + AddDir(result, SDL_AndroidGetExternalStoragePath()); + {$ENDIF} + end + end; + + function GetDefaultRWDirs (): SSArray; + {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)} + var home: AnsiString; + {$ENDIF} + {$IFDEF WINDOWS} + var appdata: AnsiString; + {$ENDIF} + {$IFDEF DARWIN} + var bundle, s: AnsiString; dirArr: NSArray; i: Integer; + {$ENDIF} + begin + result := nil; + {$IFDEF DARWIN} + bundle := GetBundlePath(); + if ExtractFileExt(bundle) <> '.app' then + AddDir(result, binPath); + {$ELSE} + AddDir(result, binPath); + {$ENDIF} + if forceBinDir = false then + begin + {$IFDEF USE_SDL2} + AddDir(result, SDL_GetPrefPath('', 'doom2df')); + {$ENDIF} + {$IFDEF WINDOWS} + appdata := GetEnvironmentVariable('APPDATA') + '\doom2df'; + if appdata <> '' then + AddDir(result, appdata); + {$ENDIF} + {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)} + home := GetEnvironmentVariable('HOME'); + if home <> '' then + AddDir(result, e_CatPath(home, '.doom2df')); + {$ENDIF} + {$IFDEF DARWIN} + dirArr := NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory, NSUserDomainMask, true); + for i := 0 to dirArr.count - 1 do begin - //e_WriteLog(Format(_lc[I_SYSTEM_ERROR_UNKNOWN], [NativeUInt(ExceptAddr())]), MSG_FATALERROR); - e_WriteStackTrace('FATAL ERROR'); + s := NSStringToAnsiString(dirArr.objectAtIndex(i)); + AddDir(result, e_CatPath(s, 'Doom 2D Forever')) end; + {$ENDIF} + {$IF DEFINED(ANDROID) AND DEFINED(USE_SDL2)} + if SDL_AndroidGetExternalStorageState() <> 0 then + AddDir(result, SDL_AndroidGetExternalStoragePath()); + {$ENDIF} + end + end; + +begin + forceBinDir := false; + binPath := GetBinaryPath(); + + i := 1; + while i < ParamCount do + begin + case ParamStr(i) of + '--like-windoze': forceBinDir := true; + '--rw-dir': + begin + Inc(i); + rwdir := ParamStr(i); + (* RW *) + AddDir(LogDirs, e_CatPath(rwdir, '')); + AddDir(SaveDirs, e_CatPath(rwdir, 'data')); + AddDir(CacheDirs, e_CatPath(rwdir, 'data/cache')); + AddDir(ConfigDirs, e_CatPath(rwdir, '')); + AddDir(MapDownloadDirs, e_CatPath(rwdir, 'maps/downloads')); + AddDir(WadDownloadDirs, e_CatPath(rwdir, 'wads/downloads')); + AddDir(ScreenshotDirs, e_CatPath(rwdir, 'screenshots')); + AddDir(StatsDirs, e_CatPath(rwdir, 'stats')); + (* RO *) + AddDir(DataDirs, e_CatPath(rwdir, 'data')); + AddDir(ModelDirs, e_CatPath(rwdir, 'data/models')); + AddDir(MegawadDirs, e_CatPath(rwdir, 'maps/megawads')); + AddDir(MapDirs, e_CatPath(rwdir, 'maps')); + AddDir(WadDirs, e_CatPath(rwdir, 'wads')); + end; + '--ro-dir': + begin + Inc(i); + rodir := ParamStr(i); + (* RO *) + AddDir(DataDirs, e_CatPath(rodir, 'data')); + AddDir(ModelDirs, e_CatPath(rodir, 'data/models')); + AddDir(MegawadDirs, e_CatPath(rodir, 'maps/megawads')); + AddDir(MapDirs, e_CatPath(rodir, 'maps')); + AddDir(WadDirs, e_CatPath(rodir, 'wads')); + end; + '--game-wad': + begin + Inc(i); + GameWADName := ParamStr(i); + end; + '--config': + begin + Inc(i); + gConfigScript := ParamStr(i); + end; end; + Inc(i) + end; + + // prefer bin dir if it writable and contains game.wad + if forceBinDir = false then + begin + if findDiskWad(binPath + 'data' + '/' + GameWADName) <> '' then + if e_CanCreateFilesAt(binPath) then + forceBinDir := true + end; + + (* RO *) + rodirs := GetDefaultRODirs(); + AddDef(DataDirs, rodirs, 'data'); + AddDef(ModelDirs, rodirs, 'data/models'); + AddDef(MegawadDirs, rodirs, 'maps/megawads'); + AddDef(MapDirs, rodirs, 'maps'); + AddDef(WadDirs, rodirs, 'wads'); + + (* RW *) + rwdirs := GetDefaultRWDirs(); + AddDef(LogDirs, rwdirs, ''); + AddDef(SaveDirs, rwdirs, 'data'); + AddDef(CacheDirs, rwdirs, 'data/cache'); + AddDef(ConfigDirs, rwdirs, ''); + AddDef(MapDownloadDirs, rwdirs, 'maps/downloads'); + AddDef(WadDownloadDirs, rwdirs, 'wads/downloads'); + AddDef(ScreenshotDirs, rwdirs, 'screenshots'); + AddDef(StatsDirs, rwdirs, 'stats'); + + for i := 0 to High(MapDirs) do + AddDir(AllMapDirs, MapDirs[i]); + for i := 0 to High(MegawadDirs) do + AddDir(AllMapDirs, MegawadDirs[i]); + OptimizeDirs(AllMapDirs); + + if LogFileName = '' then + begin + rwdir := e_GetWriteableDir(LogDirs, false); + if rwdir <> '' then + begin + {$IFDEF HEADLESS} + LogFileName := e_CatPath(rwdir, 'Doom2DF_H.log'); + {$ELSE} + LogFileName := e_CatPath(rwdir, 'Doom2DF.log'); + {$ENDIF} + end + end; + + // HACK: ensure the screenshots folder also has a stats subfolder in it + rwdir := e_GetWriteableDir(ScreenshotDirs, false); + if rwdir <> '' then CreateDir(rwdir + '/stats'); +end; + +procedure InitPrep; + {$IF DEFINED(ANDROID) AND DEFINED(USE_SDLMIXER)} + var timiditycfg: AnsiString; + {$ENDIF} + var i: Integer; +begin + {$IFDEF HEADLESS} + conbufDumpToStdOut := true; + {$ENDIF} + for i := 1 to ParamCount do + begin + case ParamStr(i) of + '--con-stdout': conbufDumpToStdOut := true; + '--no-fbo': glRenderToFBO := false; + end end; - e_DeinitLog(); + + if LogFileName <> '' then + e_InitLog(LogFileName, TWriteMode.WM_NEWFILE); + e_InitWritelnDriver(); + e_WriteLog('Doom 2D: Forever version ' + GAME_VERSION + ' proto ' + IntToStr(NET_PROTOCOL_VER), TMsgType.Notify); + e_WriteLog('Build date: ' + GAME_BUILDDATE + ' ' + GAME_BUILDTIME, TMsgType.Notify); + e_WriteLog('Build hash: ' + g_GetBuildHash(), TMsgType.Notify); + e_WriteLog('Build by: ' + g_GetBuilderName(), TMsgType.Notify); + + e_LogWritefln('Force bin dir: %s', [forceBinDir], TMsgType.Notify); + e_LogWritefln('BINARY PATH: [%s]', [binPath], TMsgType.Notify); + + PrintDirs('DataDirs', DataDirs); + PrintDirs('ModelDirs', ModelDirs); + PrintDirs('MegawadDirs', MegawadDirs); + PrintDirs('MapDirs', MapDirs); + PrintDirs('WadDirs', WadDirs); + + PrintDirs('LogDirs', LogDirs); + PrintDirs('SaveDirs', SaveDirs); + PrintDirs('CacheDirs', CacheDirs); + PrintDirs('ConfigDirs', ConfigDirs); + PrintDirs('ScreenshotDirs', ScreenshotDirs); + PrintDirs('StatsDirs', StatsDirs); + PrintDirs('MapDownloadDirs', MapDownloadDirs); + PrintDirs('WadDownloadDirs', WadDownloadDirs); + + GameWAD := e_FindWad(DataDirs, GameWADName); + if GameWad = '' then + begin + e_WriteLog('WAD ' + GameWADName + ' not found in data directories.', TMsgType.Fatal); + {$IF DEFINED(USE_SDL2) AND NOT DEFINED(HEADLESS)} + if forceBinDir = false then + SDL_ShowSimpleMessageBox( + SDL_MESSAGEBOX_ERROR, + 'Doom 2D Forever', + PChar('WAD ' + GameWADName + ' not found in data directories.'), + nil + ); + {$ENDIF} + e_DeinitLog; + Halt(1); + end; + + {$IF DEFINED(ANDROID) AND DEFINED(USE_SDLMIXER)} + timiditycfg := 'timidity.cfg'; + if e_FindResource(ConfigDirs, timiditycfg) = true then + begin + timiditycfg := ExpandFileName(timiditycfg); + SetEnvVar('TIMIDITY_CFG', timiditycfg); + e_LogWritefln('Set TIMIDITY_CFG = "%s"', [timiditycfg]); + end; + {$ENDIF} +end; + +procedure Main; +{$IFDEF ENABLE_HOLMES} + var flexloaded: Boolean; +{$ENDIF} +begin + InitPath; + InitPrep; + e_InitInput; + sys_Init; + + sys_CharPress := @CharPress; + + g_Options_SetDefault; + g_Options_SetDefaultVideo; + g_Console_SysInit; + if sys_SetDisplayMode(gRC_Width, gRC_Height, gBPP, gRC_FullScreen, gRC_Maximized) = False then + raise Exception.Create('Failed to set videomode on startup.'); + + e_WriteLog(gLanguage, TMsgType.Notify); + g_Language_Set(gLanguage); + +{$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)} + flexloaded := true; + if not fuiAddWad('flexui.wad') then + begin + if not fuiAddWad('./data/flexui.wad') then fuiAddWad('./flexui.wad'); + end; + try + fuiGfxLoadFont('win8', 'flexui/fonts/win8.fuifont'); + fuiGfxLoadFont('win14', 'flexui/fonts/win14.fuifont'); + fuiGfxLoadFont('win16', 'flexui/fonts/win16.fuifont'); + fuiGfxLoadFont('dos8', 'flexui/fonts/dos8.fuifont'); + fuiGfxLoadFont('msx6', 'flexui/fonts/msx6.fuifont'); + except on e: Exception do + begin + writeln('ERROR loading FlexUI fonts'); + flexloaded := false; + //raise; + end; + else + begin + flexloaded := false; + //raise; + end; + end; + if (flexloaded) then + begin + try + e_LogWriteln('FlexUI: loading stylesheet...'); + uiLoadStyles('flexui/widgets.wgs'); + except on e: TParserException do + begin + writeln('ERROR at (', e.tokLine, ',', e.tokCol, '): ', e.message); + //raise; + flexloaded := false; + end; + else + begin + //raise; + flexloaded := false; + end; + end; + end; + g_holmes_imfunctional := not flexloaded; + + if (not g_holmes_imfunctional) then + begin + uiInitialize(); + uiContext.font := 'win14'; + end; + + if assigned(oglInitCB) then oglInitCB; +{$ENDIF} + + //g_Res_CreateDatabases(true); // it will be done before connecting to the server for the first time + + e_WriteLog('Entering SDLMain', TMsgType.Notify); + + {$WARNINGS OFF} + SDLMain(); + {$WARNINGS ON} + + {$IFDEF ENABLE_HOLMES} + if assigned(oglDeinitCB) then oglDeinitCB; + {$ENDIF} + + g_Console_WriteGameConfig; + sys_Final; +end; + + +procedure EntryParams; + var f: Integer; +begin + f := 1; + while f <= ParamCount do + begin + case ParamStr(f) of + '--gdb': noct := true; + '--log': conbufDumpToStdOut := true; + '--safe-log': e_SetSafeSlowLog(true); + '--log-file': + if f + 1 <= ParamCount then + begin + Inc(f); + LogFileName := ParamStr(f) + end + end; + Inc(f) + end +end; + +procedure EntryPoint; +begin + SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); //k8: fuck off, that's why + EntryParams; + if noct then + Main + else + try + Main; + e_WriteLog('Shutdown with no errors.', TMsgType.Notify) + except on e: Exception do + e_WriteStackTrace(e.message) + else + e_WriteStackTrace('FATAL ERROR') + end; + + e_DeinitLog; +end; {$IFDEF ANDROID} - result := 0; -end; // SDL_main -exports SDL_main; -{$ENDIF ANDROID} + function SDL_main (argc: CInt; argv: PPChar): CInt; cdecl; + begin + // TODO pass argc+argv to rtl + EntryPoint; + result := 0 + end; + + exports SDL_main; +{$ELSE} +begin + EntryPoint +{$ENDIF} + end.