DEADSOFTWARE

added opengl and sdl2 wrappers to allegro (WIP)
[d2df-sdl.git] / src / game / Doom2DF.lpr
1 (* Copyright (C) Doom 2D: Forever Developers
2 *
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
12 *
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
15 *)
16 {$INCLUDE ../shared/a_modes.inc}
17 {$IFDEF ANDROID}library{$ELSE}program{$ENDIF} Doom2DF;
18 {$IFNDEF HEADLESS}
19 {$IFDEF WINDOWS}
20 {$APPTYPE GUI}
21 {$ENDIF}
22 {$ENDIF}
23 {$HINTS OFF}
25 {$IFDEF USE_SDLMIXER}
26 {$IFDEF USE_FMOD}
27 {$ERROR define only one of USE_SDLMIXER or USE_FMOD}
28 {$ENDIF}
29 {$ELSE}
30 {$UNDEF USE_SDLMIXER}
31 {$DEFINE USE_FMOD}
32 {$ENDIF}
34 uses
35 {$IFDEF ANDROID}
36 ctypes,
37 {$ENDIF}
38 {$IFDEF UNIX}
39 cthreads,
40 {$ENDIF}
41 mempool in '../shared/mempool.pas',
42 conbuf in '../shared/conbuf.pas',
43 geom in '../shared/geom.pas',
44 math,
46 {$INCLUDE ../nogl/noGLuses.inc}
48 {$IFDEF USE_MINIUPNPC}
49 miniupnpc in '../lib/miniupnpc/miniupnpc.pas',
50 {$ENDIF}
51 {$IF DEFINED(USE_SDL2STUB) OR DEFINED(USE_SDL2ALLEGRO)}
52 SDL2 in '../wrappers/sdl2/sdl2.pas',
53 {$IFDEF USE_SDLMIXER}
54 SDL2_mixer in '../wrappers/sdl2/SDL2_mixer.pas',
55 {$ENDIF}
56 {$ELSE}
57 SDL2 in '../lib/sdl2/sdl2.pas',
58 {$IFDEF USE_SDLMIXER}
59 SDL2_mixer in '../lib/sdl2/SDL2_mixer.pas',
60 {$ENDIF}
61 {$ENDIF}
62 {$IFDEF USE_ENETWRAP}
63 ENet in '../wrappers/enet/enet.pas',
64 {$ELSE}
65 ENet in '../lib/enet/enet.pp',
66 {$ENDIF}
67 e_graphics in '../engine/e_graphics.pas',
68 e_input in '../engine/e_input.pas',
69 e_log in '../engine/e_log.pas',
70 e_sound in '../engine/e_sound.pas',
71 e_texture in '../engine/e_texture.pas',
72 e_msg in '../engine/e_msg.pas',
73 utils in '../shared/utils.pas',
74 xstreams in '../shared/xstreams.pas',
75 sfs in '../sfs/sfs.pas',
76 sfsPlainFS in '../sfs/sfsPlainFS.pas',
77 sfsZipFS in '../sfs/sfsZipFS.pas',
78 wadreader in '../shared/wadreader.pas',
79 MAPDEF in '../shared/MAPDEF.pas',
80 CONFIG in '../shared/CONFIG.pas',
81 g_basic in 'g_basic.pas',
82 g_console in 'g_console.pas',
83 g_net in 'g_net.pas',
84 g_netmsg in 'g_netmsg.pas',
85 g_nethandler in 'g_nethandler.pas',
86 g_netmaster in 'g_netmaster.pas',
87 g_res_downloader in 'g_res_downloader.pas',
88 g_grid in 'g_grid.pas',
89 g_game in 'g_game.pas',
90 g_gfx in 'g_gfx.pas',
91 g_gui in 'g_gui.pas',
92 g_items in 'g_items.pas',
93 g_main in 'g_main.pas',
94 g_map in 'g_map.pas',
95 g_menu in 'g_menu.pas',
96 g_monsters in 'g_monsters.pas',
97 g_options in 'g_options.pas',
98 g_phys in 'g_phys.pas',
99 g_player in 'g_player.pas',
100 g_playermodel in 'g_playermodel.pas',
101 g_saveload in 'g_saveload.pas',
102 g_sound in 'g_sound.pas',
103 g_textures in 'g_textures.pas',
104 g_triggers in 'g_triggers.pas',
105 g_weapons in 'g_weapons.pas',
106 g_window in 'g_window.pas',
107 SysUtils,
108 {$IFDEF USE_FMOD}
109 fmod in '../lib/FMOD/fmod.pas',
110 fmoderrors in '../lib/FMOD/fmoderrors.pas',
111 fmodpresets in '../lib/FMOD/fmodpresets.pas',
112 fmodtypes in '../lib/FMOD/fmodtypes.pas',
113 {$ENDIF}
114 xprofiler in '../shared/xprofiler.pas',
115 binheap in '../shared/binheap.pas',
116 hashtable in '../shared/hashtable.pas',
117 idpool in '../shared/idpool.pas',
118 xparser in '../shared/xparser.pas',
119 xdynrec in '../shared/xdynrec.pas',
120 exoma in '../shared/exoma.pas',
121 envvars in '../shared/envvars.pas',
122 g_panel in 'g_panel.pas',
123 g_language in 'g_language.pas',
125 {$IFDEF ENABLE_HOLMES}
126 g_holmes in 'g_holmes.pas',
128 sdlcarcass in '../flexui/sdlcarcass.pas',
129 //sdlstandalone in '../flexui/sdlstandalone.pas',
131 fui_wadread in '../flexui/fui_wadread.pas',
132 fui_common in '../flexui/fui_common.pas',
133 fui_gfx_gl in '../flexui/fui_gfx_gl.pas',
134 fui_events in '../flexui/fui_events.pas',
135 fui_style in '../flexui/fui_style.pas',
136 fui_flexlay in '../flexui/fui_flexlay.pas',
137 fui_ctls in '../flexui/fui_ctls.pas',
138 {$ENDIF}
140 ImagingTypes,
141 Imaging,
142 ImagingUtility;
144 {$IFDEF WINDOWS}
145 {$R *.res}
146 {$ENDIF}
148 {$IFDEF ANDROID}
149 function SDL_main(argc: CInt; argv: PPChar): CInt; cdecl;
150 {$ENDIF ANDROID}
152 var
153 f: Integer;
154 noct: Boolean = false;
155 {$IFDEF ANDROID}
156 storage: String;
157 {$ENDIF}
158 //tfo: Text;
159 begin
160 SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); //k8: fuck off, that's why
162 {$IFDEF ANDROID}
163 {$I-}
164 e_SetSafeSlowLog(true);
165 if SDL_AndroidGetExternalStorageState() <> 0 then
166 begin
167 storage := SDL_AndroidGetExternalStoragePath();
168 Chdir(storage);
169 e_WriteLog('Use external storage: ' + storage, TMsgType.Notify)
170 end
171 else
172 begin
173 storage := SDL_AndroidGetInternalStoragePath();
174 Chdir(storage);
175 e_WriteLog('Use internal storage: ' + storage, TMsgType.Notify)
176 end;
177 if IOresult <> 0 then
178 begin
179 SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, PChar('Invalid path'), PChar('Can''t chdir to ' + storage), nil);
180 result := 1;
181 exit
182 end;
183 SetEnvVar('TIMIDITY_CFG', 'timidity.cfg');
184 {$ENDIF ANDROID}
186 for f := 1 to ParamCount do
187 begin
188 if ParamStr(f) = '--gdb' then noct := true
189 else if ParamStr(f) = '--log' then conbufDumpToStdOut := true
190 else if ParamStr(f) = '--safe-log' then e_SetSafeSlowLog(true);
191 end;
192 if noct then
193 begin
194 Main()
195 end
196 else
197 begin
198 try
199 Main();
200 e_WriteLog('Shutdown with no errors.', TMsgType.Notify);
201 except
202 on e: Exception do
203 begin
204 e_WriteStackTrace(e.message);
205 //e_WriteLog(Format(_lc[I_SYSTEM_ERROR_MSG], [E.Message]), MSG_FATALERROR);
206 (*
207 AssignFile(tfo, GameDir+'/trace.log');
208 {$I-}
209 Append(tfo);
210 if (IOResult <> 0) then Rewrite(tfo);
211 if (IOResult = 0) then begin writeln(tfo, '====================='); DumpExceptionBackTrace(tfo); CloseFile(tfo); end;
212 *)
213 end
214 else
215 begin
216 //e_WriteLog(Format(_lc[I_SYSTEM_ERROR_UNKNOWN], [NativeUInt(ExceptAddr())]), MSG_FATALERROR);
217 e_WriteStackTrace('FATAL ERROR');
218 end;
219 end;
220 end;
221 e_DeinitLog();
223 {$IFDEF ANDROID}
224 result := 0;
225 end; // SDL_main
226 exports SDL_main;
227 {$ENDIF ANDROID}
228 end.