Adding new Resource compiler for lazarus projects..

(other one did not name resources correctly)

this resource compiler could be expanded by someone to Parse 
Ultrastar.rc and compile the lrs file, rather than having it hardcoded in USDXResCompiler

other changes, include ability to read the Resource String properly in code generated by lazarus.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@422 b956fd51-792f-4845-bead-9b4dfca2ff2c

2 files changed, 159 insertions, 0 deletions

diff --git a/Tools/USDXResCompiler.lpi b/Tools/USDXResCompiler.lpi
new file mode 100644
index 00000000..b7c068be
--- /dev/null
+++ b/Tools/USDXResCompiler.lpi
@@ -0,0 +1,71 @@
+<?xml version="1.0"?>

+<CONFIG>

+  <ProjectOptions>

+    <PathDelim Value="\"/>

+    <Version Value="5"/>

+    <General>

+      <MainUnit Value="0"/>

+      <IconPath Value="./"/>

+      <TargetFileExt Value=".exe"/>

+      <ActiveEditorIndexAtStart Value="0"/>

+    </General>

+    <VersionInfo>

+      <ProjectVersion Value=""/>

+      <Language Value=""/>

+      <CharSet Value=""/>

+    </VersionInfo>

+    <PublishOptions>

+      <Version Value="2"/>

+      <IgnoreBinaries Value="False"/>

+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>

+    </PublishOptions>

+    <RunParams>

+      <local>

+        <FormatVersion Value="1"/>

+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>

+      </local>

+    </RunParams>

+    <RequiredPackages Count="1">

+      <Item1>

+        <PackageName Value="lcl"/>

+      </Item1>

+    </RequiredPackages>

+    <Units Count="1">

+      <Unit0>

+        <Filename Value="USDXResCompiler.lpr"/>

+        <IsPartOfProject Value="True"/>

+        <UnitName Value="USDXResCompiler"/>

+        <CursorPos X="47" Y="34"/>

+        <TopLine Value="1"/>

+        <EditorIndex Value="0"/>

+        <UsageCount Value="20"/>

+        <Loaded Value="True"/>

+      </Unit0>

+    </Units>

+    <JumpHistory Count="1" HistoryIndex="0">

+      <Position1>

+        <Filename Value="USDXResCompiler.lpr"/>

+        <Caret Line="6" Column="1" TopLine="1"/>

+      </Position1>

+    </JumpHistory>

+  </ProjectOptions>

+  <CompilerOptions>

+    <Version Value="5"/>

+    <PathDelim Value="\"/>

+    <CodeGeneration>

+      <Generate Value="Faster"/>

+    </CodeGeneration>

+    <Other>

+      <CompilerPath Value="$(CompPath)"/>

+    </Other>

+  </CompilerOptions>

+  <Debugging>

+    <BreakPoints Count="1">

+      <Item1>

+        <Source Value="USDXResCompiler.lpr"/>

+        <Line Value="14"/>

+      </Item1>

+    </BreakPoints>

+  </Debugging>

+</CONFIG>

diff --git a/Tools/USDXResCompiler.lpr b/Tools/USDXResCompiler.lpr
new file mode 100644
index 00000000..b6d0ef7d
--- /dev/null
+++ b/Tools/USDXResCompiler.lpr
@@ -0,0 +1,88 @@
+program USDXResCompiler;

+

+{$mode objfpc}{$H+}

+

+uses

+  Classes,

+  SysUtils,

+  LResources;

+

+var

+  lResourceFile : TMemoryStream;

+  

+procedure AddFile( aResName, aResTye, aFile : string );

+var

+  lTmpStream : TmemoryStream;

+begin

+  writeln();

+  writeln( aFile );

+  if not fileexists( aFile ) then

+  begin

+    writeln( 'NOT FOUND' );

+    exit;

+  end;

+    

+  lTmpStream := TmemoryStream.create();

+  try

+    lTmpStream.loadfromfile( aFile );

+    lTmpStream.position := 0;

+    

+    BinaryToLazarusResourceCode(lTmpStream, lResourceFile, aResName, aResTye);

+    writeln( 'Added' );

+  finally

+    freeandnil( lTmpStream );

+  end;

+end;

+  

+  

+begin

+

+  lResourceFile := TMemoryStream.create();

+  try

+     AddFile( 'Font', 'PNG', '..\Fonts\Normal\eurostar_regular.png' );

+     AddFile( 'Font', 'FNT', '.\Fonts\Normal\eurostar_regular.dat' );

+

+     AddFile( 'FontB', 'PNG', '..\Fonts\Bold\eurostar_regular_bold.png' );

+     AddFile( 'FontB', 'FNT', '..\Fonts\Bold\eurostar_regular_bold.dat' );

+

+     AddFile( 'FontO', 'PNG', '..\Fonts\Outline 1\Outline 1.PNG' );

+     AddFile( 'FontO', 'FNT', '..\Fonts\Outline 1\Outline 1.dat' );

+     

+     AddFile( 'FontO2', 'PNG', '..\Fonts\Outline 2\Outline 2.PNG' );

+     AddFile( 'FontO2', 'FNT', '..\Fonts\Outline 2\Outline 2.dat' );

+     

+     AddFile( 'MAINICON', 'ICON', '..\Graphics\ustar-icon_v01.ico' );

+

+     AddFile( 'MAINICON', 'ICON', '..\Graphics\ustar-icon_v01.ico' );

+

+     AddFile( 'CRDTS_BG', 'PNG', '..\Graphics\credits_v5_bg.png' );

+     AddFile( 'CRDTS_OVL', 'PNG', '..\Graphics\credits_v5_overlay.png"' );

+     AddFile( 'CRDTS_blindguard', 'PNG', '..\Graphics\names_blindguard.png' );

+     AddFile( 'CRDTS_blindy', 'PNG', '..\Graphics\names_blindy.png' );

+     AddFile( 'CRDTS_canni', 'PNG', '..\Graphics\names_canni.png' );

+     AddFile( 'CRDTS_commandio', 'PNG', '..\Graphics\names_commandio.png' );

+     AddFile( 'CRDTS_lazyjoker', 'PNG', '..\Graphics\names_lazyjoker.png' );

+     AddFile( 'CRDTS_mog', 'PNG', '..\Graphics\names_mog.png' );

+     AddFile( 'CRDTS_mota', 'PNG', '..\Graphics\names_mota.png' );

+     AddFile( 'CRDTS_skillmaste', 'PNG', '..\Graphics\names_skillmaster.png' );

+     AddFile( 'CRDTS_whiteshark', 'PNG', '..\Graphics\names_whiteshark.png' );

+     AddFile( 'INTRO_L01', 'PNG', '..\Graphics\intro-l-01.png' );

+     AddFile( 'INTRO_L02', 'PNG', '..\Graphics\intro-l-02.png' );

+     AddFile( 'INTRO_L03', 'PNG', '..\Graphics\intro-l-03.png' );

+     AddFile( 'INTRO_L04', 'PNG', '..\Graphics\intro-l-04.png' );

+     AddFile( 'INTRO_L05', 'PNG', '..\Graphics\intro-l-05.png' );

+     AddFile( 'INTRO_L06', 'PNG', '..\Graphics\intro-l-06.png' );

+     AddFile( 'INTRO_L07', 'PNG', '..\Graphics\intro-l-07.png' );

+     AddFile( 'INTRO_L08', 'PNG', '..\Graphics\intro-l-08.png' );

+     AddFile( 'INTRO_L09', 'PNG', '..\Graphics\intro-l-09.png' );

+     AddFile( 'OUTRO_BG', 'PNG', '..\Graphics\outro-bg.png' );

+     AddFile( 'OUTRO_ESC', 'PNG', '..\Graphics\outro-esc.png' );

+     AddFile( 'OUTRO_EXD', 'PNG', '..\Graphics\outro-exit-dark.png' );

+

+

+  finally

+    lResourceFile.SaveToFile( 'UltraStar.lrs' );

+    freeandnil( lResourceFile );

+  end;

+end.

+