X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2FEditor.lpr;h=6075985572aae62daca44d25c619d72710d335e5;hb=10c44b4f1acc271929a125df4619e5b5490878d3;hp=052fbb8208ff350fd50036d09ce796b92bd4459e;hpb=9d717c612a7756b30839103d1d6e8d89e2596393;p=d2df-editor.git diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr index 052fbb8..6075985 100644 --- a/src/editor/Editor.lpr +++ b/src/editor/Editor.lpr @@ -3,6 +3,9 @@ program Editor; {$INCLUDE ../shared/a_modes.inc} uses + {$IFDEF DARWIN} + MacOSAll, CocoaAll, + {$ENDIF} Forms, Interfaces, Dialogs, GL, GLExt, SysUtils, e_graphics in '../engine/e_graphics.pas', @@ -13,14 +16,10 @@ uses MAPWRITER in '../shared/MAPWRITER.pas', MAPDEF in '../shared/MAPDEF.pas', WADEDITOR in '../shared/WADEDITOR.pas', + WADEDITOR_dfwad in '../shared/WADEDITOR_dfwad.pas', + WADEDITOR_dfzip in '../shared/WADEDITOR_dfzip.pas', WADSTRUCT in '../shared/WADSTRUCT.pas', CONFIG in '../shared/CONFIG.pas', - xstreams in '../shared/xstreams.pas', - dfzip in '../shared/dfzip.pas', - sfs in '../sfs/sfs.pas', - sfsPlainFS in '../sfs/sfsPlainFS.pas', - sfsZipFS in '../sfs/sfsZipFS.pas', - f_about in 'f_about.pas' {AboutForm}, f_options in 'f_options.pas' {OptionsForm}, f_main in 'f_main.pas' {MainForm}, @@ -41,7 +40,6 @@ uses spectrum in 'spectrum.pas', f_saveminimap in 'f_saveminimap.pas' {SaveMiniMapForm}, f_packmap in 'f_packmap.pas' {PackMapForm}, - f_maptest in 'f_maptest.pas' {MapTestForm}, f_choosetype in 'f_choosetype.pas' {ChooseTypeForm}, {$IFNDEF NOSOUND} fmod, @@ -53,8 +51,7 @@ uses Imaging, ImagingUtility, g_options in 'g_options.pas', - g_language in 'g_language.pas', - f_selectlang in 'f_selectlang.pas' {SelectLanguageForm}; + g_language in 'g_language.pas'; {$IFDEF WINDOWS} {$R *.res} @@ -69,6 +66,27 @@ uses LogFileName: AnsiString = ''; ParamFileIndex: Integer = 1; +{$IFDEF DARWIN} + function NSStringToAnsiString (s: NSString): AnsiString; + var i: Integer; + begin + result := ''; + for i := 0 to s.length - 1 do + result := result + AnsiChar(s.characterAtIndex(i)); + end; + + function GetBundlePath (): AnsiString; + var pathRef: CFURLRef; pathCFStr: CFStringRef; pathStr: ShortString; + begin + pathRef := CFBundleCopyBundleURL(CFBundleGetMainBundle()); + pathCFStr := CFURLCopyFileSystemPath(pathRef, kCFURLPOSIXPathStyle); + CFStringGetPascalString(pathCFStr, @pathStr, 255, CFStringGetSystemEncoding()); + CFRelease(pathRef); + CFRelease(pathCFStr); + Result := pathStr; + end; +{$ENDIF} + procedure THandlerObject.ExceptionHandler (Sender: TObject; e: Exception); begin e_WriteStackTrace(e.message); @@ -97,6 +115,38 @@ uses Inc(i); CfgFileName := ParamStr(i); end; + end + else if p = '--game-wad' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + GameWad := ParamStr(i); + end; + end + else if p = '--editor-wad' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + EditorWad := ParamStr(i); + end; + end + else if p = '--wads-dir' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + WadsDir := ParamStr(i); + end; + end + else if p = '--lang-dir' then + begin + if i + 1 <= ParamCount then + begin + Inc(i); + LangDir := ParamStr(i); + end; end; Inc(i); end; @@ -104,24 +154,62 @@ uses end; procedure CheckParamFiles; - var i: Integer; path: AnsiString; + var i: Integer; begin i := ParamFileIndex; if i <= ParamCount then - begin - path := ParamStr(i); - if path <> '' then - OpenMap(path, ''); - end; + StartMap := ParamStr(i); end; - procedure InitLogs; + procedure InitPathes; + {$IFDEF DARWIN} + var BundlePath, DFPath, DocPath: AnsiString; ns: NSString; + var ApplicationSupportDirs, DocumentDirs: NSArray; + var count: Integer; + {$ELSE} + var EditorDir: AnsiString; + {$ENDIF} begin - if LogFileName = '' then - LogFileName := 'Editor.log'; + {$IFDEF DARWIN} + BundlePath := GetBundlePath(); + ApplicationSupportDirs := NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory, NSUserDomainMask, true); + count := ApplicationSupportDirs.count; + ns := ApplicationSupportDirs.objectAtIndex(count - 1); + DFPath := NSStringToAnsiString(ns) + DirectorySeparator + 'Doom 2D Forever'; + DocumentDirs := NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, true); + count := DocumentDirs.count; + ns := DocumentDirs.objectAtIndex(count - 1); + DocPath := NSStringToAnsiString(ns) + DirectorySeparator + 'Doom 2D Forever'; + GameExeFile := 'Doom 2D Forever.app'; + CfgFileName := DFPath + DirectorySeparator + 'Editor.cfg'; + LogFileName := DFPath + DirectorySeparator + 'Editor.log'; + MapsDir := DocPath + DirectorySeparator + 'Maps'; + WadsDir := BundlePath + DirectorySeparator + 'Contents' + DirectorySeparator + 'Resources' + DirectorySeparator + 'wads'; + LangDIr := BundlePath + DirectorySeparator + 'Contents' + DirectorySeparator + 'Resources' + DirectorySeparator + 'data' + DirectorySeparator + 'lang'; + GameWad := BundlePath + DirectorySeparator + 'Contents' + DirectorySeparator + 'Resources' + DirectorySeparator + 'data' + DirectorySeparator + 'game.wad'; + EditorWad := BundlePath + DirectorySeparator + 'Contents' + DirectorySeparator + 'Resources' + DirectorySeparator + 'data' + DirectorySeparator + 'editor.wad'; + {$ELSE} + EditorDir := ExtractFilePath(Application.ExeName); + {$IFDEF WINDOWS} + GameExeFile := 'Doom2DF.exe'; + {$ELSE} + GameExeFile := 'Doom2DF'; + {$ENDIF} + CfgFileName := EditorDir + DirectorySeparator + 'Editor.cfg'; + LogFileName := EditorDir + DirectorySeparator + 'Editor.log'; + MapsDir := EditorDir + DirectorySeparator + 'maps'; + WadsDir := EditorDir + DirectorySeparator + 'wads'; + LangDir := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'lang'; + GameWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'game.wad'; + EditorWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'editor.wad'; + {$ENDIF} + ForceDirectories(MapsDir); + ForceDirectories(WadsDir); + end; - if LogFileName <> '' then - e_InitLog(LogFileName, WM_NEWFILE); + procedure InitLogs; + begin + e_InitLog(LogFileName, WM_NEWFILE); {$IF DECLARED(UseHeapTrace)} (* http://wiki.freepascal.org/heaptrc *) @@ -129,16 +217,28 @@ uses //SetHeapTraceOutput('EditorLeaks.log'); //HaltOnError := False; {$ENDIF} + + e_WriteLog('Used file pathes:', MSG_NOTIFY); + e_WriteLog(' GameExeFile = ' + GameExeFile, MSG_NOTIFY); + e_WriteLog(' CfgFileName = ' + CfgFileName, MSG_NOTIFY); + e_WriteLog(' LogFileName = ' + LogFileName, MSG_NOTIFY); + e_WriteLog(' MapsDir = ' + MapsDir, MSG_NOTIFY); + e_WriteLog(' WadsDir = ' + WadsDir, MSG_NOTIFY); + e_WriteLog(' LangDir = ' + LangDir, MSG_NOTIFY); + e_WriteLog(' GameWad = ' + GameWad, MSG_NOTIFY); + e_WriteLog(' EditorWad = ' + EditorWad, MSG_NOTIFY); end; begin Application.ExceptionDialog := aedOkMessageBox; Application.AddOnExceptionHandler(THandlerObject.ExceptionHandler, True); Application.Initialize(); + {$IFDEF DARWIN} + // Disable icons in menu on OSX by default + Application.ShowMenuGlyphs := sbgNever; + {$ENDIF} - EditorDir := ExtractFilePath(Application.ExeName); - CfgFileName := EditorDir + DirectorySeparator + 'Editor.cfg'; - + InitPathes; CheckParamOptions; InitLogs; @@ -158,9 +258,9 @@ begin Application.CreateForm(TAddSoundForm, AddSoundForm); Application.CreateForm(TSaveMiniMapForm, SaveMiniMapForm); Application.CreateForm(TPackMapForm, PackMapForm); - Application.CreateForm(TMapTestForm, MapTestForm); Application.CreateForm(TChooseTypeForm, ChooseTypeForm); - Application.CreateForm(TSelectLanguageForm, SelectLanguageForm); + + g_Language_Set(gLanguage); CheckParamFiles;