From fd5f18250e6da98c47f23f49b7c4663c9a8bf7d3 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 20 Sep 2007 12:37:24 +0000
Subject: 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
---
 Tools/USDXResCompiler.lpi | 71 ++++++++++++++++++++++++++++++++++++++
 Tools/USDXResCompiler.lpr | 88 +++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 159 insertions(+)
 create mode 100644 Tools/USDXResCompiler.lpi
 create mode 100644 Tools/USDXResCompiler.lpr

(limited to 'Tools')

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.
+
-- 
cgit v1.2.3