Export of GBDK/RGBDS objects

ModifiedGBEmu.lpi +5−1

         <PackageName Value="LCL"/>
       </Item5>
     </RequiredPackages>
-    <Units Count="25">
+    <Units Count="26">
       <Unit0>
         <Filename Value="GBEmu.lpr"/>
         <IsPartOfProject Value="True"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="hUGESettings"/>
       </Unit24>
+      <Unit25>
+        <Filename Value="rgb2sdas.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit25>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

Modifiedcodegen.pas +3−2

       emGBS: RenameSucceeded := RenameFile(Filename + '.gbs', FilePath);
       emRGBDSObj: RenameSucceeded := RenameFile(Filename + '_song.obj', FilePath);
       emGBDKObj: begin
-        RenameSucceeded := RenameFile(Filename + '_song.obj', FilePath);
+        RenameSucceeded := RenameFile(Filename + '_song.obj', FilePath+'bj');
-        ConvertRGB2SDAS(FilePath);
+        ConvertRGB2SDAS(FilePath+'bj', FilePath);
+        DeleteFile(FilePath+'bj');
       end
       else RenameSucceeded := RenameFile(Filename + '.gb', FilePath);
     end;

Modifiedrgb2sdas.pas +6−5

 unit rgb2sdas;
+{ TODO: This unit needs to be refactored, really bad. }
 {$mode objfpc}{$H+}
 interface
   EObjectConversionException = class(Exception);
-procedure ConvertRGB2SDAS(Filename: string);
+procedure ConvertRGB2SDAS(SourceName, DestName: string);
 implementation
   Result := False;
 end;
-procedure ConvertRGB2SDAS(Filename: string);
+procedure ConvertRGB2SDAS(SourceName, DestName: String);
 var
   RObj: TRObj;
   Idx: integer;
   CODESEG: string;
   DefaultBank: integer = 1;
-  sourcename, tmp: string;
+  tmp: string;
   old_sym, new_sym: string;
   export_all: boolean = False;
 begin
-  sourcename := Filename;
   if not FileExists(sourcename) then
     Die('File not found: %s', [sourcename]);
   if verbose then
     PrintObjFile(RObj);
-  Assign(F, sourcename + '.o');
+  Assign(F, DestName);
   Rewrite(F);
   try
     Idx := 0;

Modifiedtracker.lfm +10−0

`@@ -5388,4 +5388,14 @@ object frmTracker: TfrmTracker`
5388	`Left = 248`	5388	`Left = 248`
5389	`Top = 24`	5389	`Top = 24`
5390	`end`	5390	`end`
		5391	`object RGBDSObjSaveDialog: TSaveDialog`
		5392	`Filter = 'RGBDS Object\|*.obj'`
		5393	`Left = 248`
		5394	`Top = 64`
		5395	`end`
		5396	`object GBDKObjSaveDialog: TSaveDialog`
		5397	`Filter = 'GBDK Object\|*.o'`
		5398	`Left = 288`
		5399	`Top = 64`
		5400	`end`
5391	`end`	5401	`end`

Modifiedtracker.pas +17−5

     NoiseMacroPaintbox: TPaintBox;
     Panel6: TPanel;
     GBDKCSaveDialog: TSaveDialog;
+    RGBDSObjSaveDialog: TSaveDialog;
+    GBDKObjSaveDialog: TSaveDialog;
     StopAction: TAction;
     PlayOrderAction: TAction;
     PlayCursorAction: TAction;
 end;
 procedure TfrmTracker.ExportCMenuItemClick(Sender: TObject);
+var
+  S: String;
 begin
-  if GBDKCSaveDialog.Execute then begin
+  S := InputBox('Song descriptor', 'Enter the song descriptor (must be a valid C symbol):', 'song_descriptor');
+  if GBDKCSaveDialog.Execute then
     RenderSongToGBDKC(
       Song,
-      InputBox('Song descriptor', 'Enter the song descriptor (must be a valid C symbol):', 'song_descriptor'),
+      S,
       GBDKCSaveDialog.FileName
     );
-  end;
 end;
 procedure TfrmTracker.ExportGBDKMenuItemClick(Sender: TObject);
+var
+  S: String;
 begin
-//
+  S := InputBox('Song descriptor', 'Enter the song descriptor (must be a valid C symbol):', 'song_descriptor');
+  if GBDKObjSaveDialog.Execute then
+    RenderSongToFile(Song, GBDKObjSaveDialog.FileName, emGBDKObj, S);
 end;
 procedure TfrmTracker.ExportRGBDSMenuItemClick(Sender: TObject);
+var
+  S: String;
 begin
-//
+  S := InputBox('Song descriptor', 'Enter the song descriptor (must be a valid RGBDS symbol):', 'song_descriptor');
+  if RGBDSObjSaveDialog.Execute then
+    RenderSongToFile(Song, RGBDSObjSaveDialog.FileName, emRGBDSObj, S);
 end;
 procedure TfrmTracker.PasteActionExecute(Sender: TObject);

Commit `da9d27a`