diff --git a/entries/dcornelius/src/BuildDCorneliusWin32.cmd b/entries/dcornelius/src/BuildDCorneliusWin32.cmd
new file mode 100644
index 0000000..d0de96a
--- /dev/null
+++ b/entries/dcornelius/src/BuildDCorneliusWin32.cmd
@@ -0,0 +1,18 @@
+@echo off
+echo Build 1BRC Entry for DCornelius - Delphi 12 Athens, Win32, Release mode.
+echo Assumes Delphi 12 is in the path and can find the compiler for Win32 (dcc32.exe).
+pause
+
+REM RSVars is a batch supplied with Delphi and sets environment variables used in the compilation
+call RSVars
+
+REM -$L- : no debug symbols
+REM -$Y- : no symbol reference info
+REM -B : build all units
+REM -Q : quiet compile
+REM -TX : set extension
+REM -D : define compiler symbol
+REM -E : output folder
+REM -CC : console target
+REM -U : unit folders
+dcc32.exe -$L- -$Y- --no-config -B -Q -TX.exe -DRELEASE -E..\..\..\bin -CC -U"%BDS%\lib\win32\release" dcornelius.dpr
diff --git a/entries/dcornelius/src/BuildDCorneliusWin64.cmd b/entries/dcornelius/src/BuildDCorneliusWin64.cmd
new file mode 100644
index 0000000..34872f8
--- /dev/null
+++ b/entries/dcornelius/src/BuildDCorneliusWin64.cmd
@@ -0,0 +1,18 @@
+@echo off
+echo Build 1BRC Entry for DCornelius - Delphi 12 Athens, Win64, Release mode.
+echo Assumes Delphi 12 is in the path and can find the compiler for Win64 (dcc64.exe).
+pause
+
+REM RSVars is a batch supplied with Delphi and sets environment variables used in the compilation
+call RSVars
+
+REM -$L- : no debug symbols
+REM -$Y- : no symbol reference info
+REM -B : build all units
+REM -Q : quiet compile
+REM -TX : set extension
+REM -D : define compiler symbol
+REM -E : output folder
+REM -CC : console target
+REM -U : unit folders
+dcc64.exe -$L- -$Y- --no-config -B -Q -TX.exe -DRELEASE -E..\..\..\bin -CC -U"%BDS%\lib\Win64\release" dcornelius.dpr
diff --git a/entries/dcornelius/src/dcornelius.dproj b/entries/dcornelius/src/dcornelius.dproj
index 98483ce..132e09d 100644
--- a/entries/dcornelius/src/dcornelius.dproj
+++ b/entries/dcornelius/src/dcornelius.dproj
@@ -99,14 +99,12 @@
true
- .\$(Platform)
..\..\..\bin
false
false
false
false
false
- System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)
dcornelius
@@ -193,7 +191,6 @@
FireDACIBDriver;vclwinx;DataSnapServer;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;FmxTeeUI;DBXFirebirdDriver;FireDACSqliteDriver;DbxClientDriver;NexusDB475si290;soapmidas;TeeUI;dbexpress;ccKeyGen_R;PowerPDFDR;inet;NexusDB475sp290;vcltouch;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;LockBox3DR;NexusDB475sscr290;RDOpenAI;NexusDB475lg290;NexusDB475psd290;fmxinfopower;IndySystem;sbridge290;NexusDB475iv290;NexusDB475ll290;NexusDB475scr290;vclFireDAC;NexusDB475mr290;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;DOSCommandDR;NexusDB475th290;NexusDB475ch290;bindcompdbx;rtl;FireDACMySQLDriver;NexusDB475pt290;DBXSqliteDriver;DBXSybaseASEDriver;vclimg;DataSnapFireDAC;inetdbxpress;FireDAC;NexusDB475st290;xmlrtl;dsnap;FireDACDb2Driver;DBXOracleDriver;DBXInformixDriver;fmxobj;bindcompvclsmp;DataSnapNativeClient;DatasnapConnectorsFreePascal;SVGIconImageList;NexusDB475tn290;emshosting;NexusDB475tw290;NexusDB475pv290;FireDACCommonDriver;RadiantShapesFmx_Design;IndyIPClient;NexusDB475sll290;bindcompvclwinx;emsedge;bindcompfmx;indy10sbridge290;inetdb;NexusDB475sq290;GR32_R;FireDACASADriver;Tee;SVGIconImageListFMX;vclactnband;fmxFireDAC;FireDACInfxDriver;NexusDB475sd290;DBXMySQLDriver;VclSmp;DataSnapCommon;NexusDB475re290;fmxase;DBXOdbcDriver;dbrtl;FireDACOracleDriver;Skia.Package.FMX;TeeDB;FireDACMSAccDriver;ccVault_R;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;PngComponentsD;NexusDB475tc290;RadiantShapesFmx;FireDACTDataDriver;Skia.Package.VCL;vcldb;NexusDB475rb290;NexusDB475ts290;SynEditDR;bindcomp;IndyCore;RESTBackendComponents;NexusDB475se290;ccLib_R;NexusDB475db290;FireDACADSDriver;RaizeComponentsVclDb;MobilePermissions;RESTComponents;IndyIPServer;vcl;dsnapxml;adortl;dsnapcon;DataSnapClient;DataSnapProviderClient;NexusDB475tm290;DBXDb2Driver;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;NexusDB475rp290;bindcompvcl;CloudService;DBXSybaseASADriver;BigNumbers;NexusDB475psi290;FMXTee;NexusDB475rc290;NexusDB475rd290;soaprtl;NexusDB475sr290;RaizeComponentsVcl;soapserver;$(DCC_UsePackage)
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
Debug
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
1033
@@ -208,7 +205,6 @@
true
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
- Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
Debug
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
1033
diff --git a/entries/dcornelius/src/uChallengeCommon.pas b/entries/dcornelius/src/uChallengeCommon.pas
index 3e69491..8f91484 100644
--- a/entries/dcornelius/src/uChallengeCommon.pas
+++ b/entries/dcornelius/src/uChallengeCommon.pas
@@ -29,7 +29,6 @@ TWeatherCity = class
// a global class to provide standard open/close and other functions
TChallengeCommon = class
private
- FWeatherDataFile: TextFile;
FInputFilename: string;
public
constructor Create(const NewInputFilename: string);
diff --git a/entries/dcornelius/src/uChallengeWithDictionary.pas b/entries/dcornelius/src/uChallengeWithDictionary.pas
index e54d76c..26a9493 100644
--- a/entries/dcornelius/src/uChallengeWithDictionary.pas
+++ b/entries/dcornelius/src/uChallengeWithDictionary.pas
@@ -16,7 +16,7 @@ procedure ChallengeWithDictionary;
implementation
uses
- System.Classes, System.SysUtils, Generics.Collections, System.StrUtils,
+ System.Classes, System.SysUtils, System.Generics.Collections, System.StrUtils,
uChallengeCommon;
type
diff --git a/generator/Delphi/src/generator.deployproj b/generator/Delphi/src/generator.deployproj
new file mode 100644
index 0000000..a9f5de7
--- /dev/null
+++ b/generator/Delphi/src/generator.deployproj
@@ -0,0 +1,81 @@
+
+
+
+ 12
+
+
+
+
+
+
+
+
+
+ generator.app\Contents\MacOS\
+ generator
+ ProjectOutput
+ 1
+
+
+ True
+ True
+
+
+ generator.app\Contents\
+ Info.plist
+ ProjectOSXInfoPList
+ 1
+
+
+ True
+
+
+ generator.app\..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF\
+ generator
+ ProjectOSXDebug
+ 1
+
+
+ True
+
+
+ generator.app\..\
+ generator.entitlements
+ ProjectOSXEntitlements
+ 1
+
+
+ True
+
+
+
+
+ generator\
+ generator.exe
+ ProjectOutput
+ 0
+
+
+ True
+ True
+
+
+
+
+
+
+
+
+
+
+ generator\
+ generator
+ ProjectOutput
+ 1
+
+
+ True
+ True
+
+
+
diff --git a/generator/Delphi/src/generator.dproj b/generator/Delphi/src/generator.dproj
index 278d04a..21e0b4d 100644
--- a/generator/Delphi/src/generator.dproj
+++ b/generator/Delphi/src/generator.dproj
@@ -69,6 +69,12 @@
true
true
+
+ true
+ Cfg_1
+ true
+ true
+
true
Cfg_1
@@ -231,6 +237,12 @@
(None)
none
+
+ /usr/X11/bin/xterm -e "%debuggee%"
+ true
+ (None)
+ none
+
false
C:\Users\onemo\Desktop\exemplos Delphi_Lazarus\1brc-ObjectPascal\generator\Common;$(DCC_UnitSearchPath)
@@ -279,6 +291,11 @@
generator.dpr
+ TurboPack DOSCommand Designtime Package for Delphi
+ TurboPack LockBox 3 VCL designtime package
+ TurboPack LockBox 3 FMX designtime package
+ PowerPDF Design-time package
+ TurboPack SynEdit Delphi designtime package
Microsoft Office 2000 Sample Automation Server Wrapper Components
Microsoft Office XP Sample Automation Server Wrapper Components
@@ -299,14 +316,31 @@
true
-
+
- .\
+ generator
true
-
-
+
+
+ generator
+ true
+
+
+
+
+ true
+
+
+
+
+ Info.plist
+ true
+
+
+
+
generator
true