public size name added

Author: RetroNick2020

objlib.pas

@@ -29,6 +29,7 @@ procedure Write_ModEnd(var F : File);
 
 procedure Write_PubDefRecords(var F : File; BaseGroupIndex: byte; BaseSegmentIndex: byte;var rdata;rcount : word);
 Function CreateTPObj(infile,outfile,publicname : string) : word;
+Function CreateTPObj(infile,outfile,publicname,publicsizename : string) : word;
 
 implementation
 
@@ -357,9 +358,11 @@ function GetFileSize(filename : string) : longword;
  F : File;
 begin
  Assign(F,filename);
+{$I-}
  Reset(F,1);
- result:=FileSize(F);
+ result:=WORD(FileSize(F));
  close(F);
+{$I+}
 end;
 
 Procedure Write_FileContents(var F : File;filename : string;segIdx: byte; dataOffset: word);
@@ -370,7 +373,7 @@ function GetFileSize(filename : string) : longword;
 begin
  Assign(FC,filename);
  Reset(FC,1);
- size:=FileSize(FC);
+ size:=WORD(FileSize(FC));
  GetMem(data,size);
  if data<>NIL then
  begin
@@ -381,13 +384,37 @@ function GetFileSize(filename : string) : longword;
  close(FC);
 end;
 
+Procedure Write_FileContentsAndSize(var F : File;filename : string;segIdx: byte; dataOffset: word);
+var
+ size : word;
+ FC   : File;
+ data : PByte;
+begin
+ Assign(FC,filename);
+ Reset(FC,1);
+ size:=WORD(FileSize(FC));
+ GetMem(data,size+2);
+ if data<>NIL then
+ begin
+   Blockread(FC,data^,size);
+   (data + size)^:=LO(size);
+   (data + size+1)^:=HI(size);
+
+   Write_SegmentData(F,SegIdx,dataOffset,data,size+2);
+   FreeMem(data,size+2);
+ end;
+ close(FC);
+end;
+
+
+
 // create Turbo Pascal Compatile BINOBJ output exactly to the byte level
 Function CreateTPObj(infile,outfile,publicname : string) : word;
 var
  size : word;
  F    : File;
 begin
- size:=GetFileSize(infile);
+ size:=WORD(GetFileSize(infile));
 {$I-}
  assign(F,outfile);
  rewrite(F,1);
@@ -402,5 +429,40 @@ function GetFileSize(filename : string) : longword;
  result:=IORESULT;
 end;
 
+procedure ChangePubDefStr(index : byte;var data; PublicName : string; PublicOffset : word; typeindex : byte);
+var
+ DataA : array[1..255] of TPubDefStrRec absolute data;
+begin
+  dataA[index].StringLength:=length(publicname);
+  dataA[index].PubLicName:=publicname;
+  dataA[index].PublicOffset:=publicoffset;
+  dataA[index].TypeIndex:=typeindex;
+end;
+
+Function CreateTPObj(infile,outfile,publicname,publicsizename : string) : word;
+var
+ size : word;
+ F    : File;
+ data : array[1..2] of TPubDefStrRec;
+begin
+ size:=WORD(GetFileSize(infile));
+{$I-}
+ assign(F,outfile);
+ rewrite(F,1);
+ Write_THeadr(F,#$3a#$3a);
+ Write_LNames(F,'#CODE##');
+ Write_SegDef(F,$28,size+2,2,1,1);  //+2 is the addtional bytes we will need to include the size information
+
+ ChangePubDefStr(1,data,publicname,0,0);
+ ChangePubDefStr(2,data,publicsizename,size,0);
+ Write_PubDefRecords(F,0,1,data,2);
+
+ Write_FileContentsAndSize(F,infile,1,0);
+ Write_ModEnd(F);
+ close(F);
+{$I+}
+ result:=IORESULT;
+end;
+
 begin
 end.

rtbinobj.pas

@@ -1,27 +1,34 @@
-// Turbo Pascal
+// Turbo Pascal BINOBJ clone for Windows\Linux - output is exactly the same
 
 Program RtBinToObj;
   uses ObjLib;
 
 Const
- ProgramName = 'RtBinObj - Released April 22 - 2023 By RetroNick';
+ ProgramName = 'RtBinObj v1.1 - Released April 23 - 2023 By RetroNick';
 
 procedure Usage;
 begin
   writeln(programname);
-  writeln('Usage: RtBinObj <source[.BIN]> <destination[.OBJ] <public name>');
+  writeln('Usage: RtBinObj <source[.BIN]> <destination[.OBJ] <public name> <public size name>');
+  writeln('       <public size name> is optional');
+  writeln;
+  writeln('eg. RtBinObj image.xgf image.obj myimagename');
+  writeln('    RtBinObj image.xgf image.obj myimagename myimagesize');
+
 end;
 
 procedure convert;
 var
  error : word;
 begin
   writeln(programName);
-  error:=CreateTPObj(ParamStr(1),ParamStr(2),ParamStr(3));
+  case ParamCount of 3:error:=CreateTPObj(ParamStr(1),ParamStr(2),ParamStr(3));
+                     4:error:=CreateTPObj(ParamStr(1),ParamStr(2),ParamStr(3),ParamStr(4));
+  end;
   if error = 0 then writeln('Converted Successfully') else writeln('Looks like we have an error# ',error);
 end;
 
 begin
-  if ParamCount=3 then convert else Usage;
+  if (ParamCount=3) or (ParamCount=4) then convert else Usage;
 end.
 

rtbinobjform.lfm

@@ -1,9 +1,9 @@
 object Form1: TForm1
-  Left = 552
+  Left = 599
   Height = 214
-  Top = 428
+  Top = 460
   Width = 556
-  Caption = 'RtBinObj v1.0'
+  Caption = 'RtBinObj v1.1'
   ClientHeight = 214
   ClientWidth = 556
   Color = clForm
@@ -69,6 +69,23 @@ object Form1: TForm1
     Width = 75
     Caption = 'Save As'
     OnClick = SaveAsButtonClick
+    TabOrder = 4
+  end
+  object PublicSizeLabel: TLabel
+    Left = 8
+    Height = 15
+    Top = 124
+    Width = 91
+    Caption = 'Public Size Name'
+    ParentColor = False
+  end
+  object EditPublicSizeName: TEdit
+    Left = 120
+    Height = 23
+    Top = 120
+    Width = 160
+    MaxLength = 20
+    ParentFont = False
     TabOrder = 3
   end
   object OpenDialog: TOpenDialog

rtbinobjform.pas

@@ -12,7 +12,9 @@ interface
   { TForm1 }
 
   TForm1 = class(TForm)
+    EditPublicSizeName: TEdit;
     OpenDialog: TOpenDialog;
+    PublicSizeLabel: TLabel;
     SaveAsButton: TButton;
     EditFileName: TEdit;
     InfoLabel: TLabel;
@@ -49,6 +51,7 @@ procedure TForm1.InFileButtonClick(Sender: TObject);
     EditFileName.Text:=OpenDialog.FileName;
     sname:=UpperCase(ExtractFileName(ExtractFileNameWithoutExt(OpenDialog.FileName)));
     EditPublicName.Text:=sname;
+    EditPublicSizeName.Text:=sname+'SIZE';
   end;
 end;
 
@@ -79,7 +82,11 @@ procedure TForm1.CreateOBJFile;
   error : word;
 begin
   if SaveDialog.Execute = false then exit;
-  error:=CreateTPObj(OpenDialog.Filename,SaveDialog.FileName,EditPublicName.Text);
+  if EditPublicSizeName.Text<>'' then
+     error:=CreateTPObj(OpenDialog.Filename,SaveDialog.FileName,EditPublicName.Text,EditPublicSizeName.Text)
+   else
+     error:=CreateTPObj(OpenDialog.Filename,SaveDialog.FileName,EditPublicName.Text);
+
   if error=0 then
   begin
     InfoLabel.Caption:='New Obj successfully created and saved!';