Playing around with bring in more Linq Support in Island Windows:
Look at this Source:
procedure SimpleGroupByUser;
begin
writeLn('SimpleGroupByUser');
var users := PrepareUser;
for each user in users do
writeLn($"Users {user.Name} Age: {user.Age} Home: {user.HomeCountry}");
writeLn;
var usersGroupedByCountry := users.GroupBy(user -> user.HomeCountry);
for each lgroup in usersGroupedByCountry do
begin
writeLn($"Users from {lgroup.Key}:");
for each user in lgroup do
writeLn($" User: {user.Name} Age: {user.Age} Home: {user.HomeCountry}");
writeLn;
end;
var usersGroupedByCountryAndAge := users.GroupBy(user -> (user.HomeCountry, user.Age ));
for each &group in usersGroupedByCountryAndAge do
begin
writeLn($"Users from {&group.Key[0]} at the age of {group.Key[1]} :");
for each user in &group do
writeLn("* " + user.Name + " [" + user.Age + " years]");
writeLn;
end;
end;
end;
Result:
SimpleGroupByUser
Users John Doe Age: 42 Home: USA
Users Jane Doe Age: 38 Home: USA
Users Joe Doe Age: 19 Home: Germany
Users Jenna Doe Age: 19 Home: Germany
Users Marc Hofmann Age: 54 Home: Curacao
Users James Doe Age: 8 Home: USA
Users from USA:
User: John Doe Age: 42 Home: USA
User: Jane Doe Age: 38 Home: USA
User: James Doe Age: 8 Home: USA
Users from Germany:
User: Joe Doe Age: 19 Home: Germany
User: Jenna Doe Age: 19 Home: Germany
Users from Curacao:
User: Marc Hofmann Age: 54 Home: Curacao
Users from USA at the age of 42 :
* John Doe [42 years]
Users from USA at the age of 38 :
* Jane Doe [38 years]
Users from Germany at the age of 19 :
* Joe Doe [19 years]
* Jenna Doe [19 years]
Users from Curacao at the age of 54 :
* Marc Hofmann [54 years]
Users from USA at the age of 8 :
* James Doe [8 years]
I love the extensions you have done to pascal. Thanks for that cool type of tools!!!
I love it too! @mh@ck. And really enjoy the direct interacting with the core brains of RemObjects crew. It is now a pleasant daily routine of mine, just browsing RemObject Talk/Blog at every morning w/ a cup of coffee starting my day, and waiting for each Friday’s weekly release has quickly become my recurrent ritual of anticipation (just for the comfort of seeing its getting better and better) …
That being said - It would be even better if we could/or would soon have:
Native Island support for RemObject SDK and DataAbstract - possible? Is it too much to ask?
A UI framework, whether or not via WPF/WinForms/??, and whether or not via an enhanced Hydra
A successful killer project (closed source, or open source) demonstrating its power while giving potential users much more confidence to adopt
An ever-growing friendly user community (which seems already out there/here, but not large enough)
It’s something we wanna do and on our list. In fact, I want a “rethought” RO/DA client API that works consistently across all Elements platforms (right now you can of course use the .NET, Cocoa and Java versions, but they all work slightly different, because each one is designed to fit in well with its platform, not to be the same). But only 24 hours in the day. But we’ll get to it sooner rather than later.
Note you can use WPF/WinForms now, you just have to use .NET, not native (which imho should not be a big deal for GUI apps). You can bring Island code in via Hydra, too. What enhancements to Hydra would you like to see?
How about Fire/Water itself?
Working on it. Anything you guys can drop to help spread the word is of course appreciated.
For me one thing I really missing at moment is
proper EUnit support in Fire and Water for the Island part.
For me unit Tests are a important part of my development.
Hi Marc,
the Tests can not be startet with ctrl-T and I got:
ctrl-R will work
namespace TestEunit;
interface
uses
RemObjects.Elements.EUnit;
type
localTest = public class(Test)
public
method simpleTest;
end;
implementation
method localTest.simpleTest;
begin
Assert.Fail('not implemented');
end;
begin
writeLn('Start Test');
var lTests := Discovery.DiscoverTests();
Runner.RunTests(lTests) withListener(Runner.DefaultListener);
writeLn('Finish Test');
end.
~> Process TestEunit started testing
~> The process failed to start with the following error: System.ComponentModel.Win32Exception (0x80004005): Falscher Parameter
~> bei RemObjects.Elements.NDebug.Windows.WindowsDebugger.Start(String aExe, String aArgs, String aEnv, String aWorkDir, Boolean aCaptureOutput, Boolean aCaptureInput)
~> bei RemObjects.Oxygene.CoreDebugEngine.IslandDebugEngine.StartWindows()
~> bei RemObjects.Oxygene.CoreDebugEngine.IslandDebugEngine.Start()
~> bei DebugHost.Program.Main(String[] args)
Hmm. that happens only with EUnit? Looks to me like a general problem with the Island/Windows debugger (which, to be fair, I dont use myself often/ever). @elenap, any ideas?
Wonder what Wrong Parameter refers to. Can you grab the DebugStartParameters from the Water.log file?
New Island/Windows console project:
→ Debug|Test is disabled
Add EUnit referene
→ Debug|Test is enabled and I can launch
can you give me more steps or a test project that shows the issue for you? DFo you have a direct EUnit.fx reference (that’s what Fire/Water uses to determine if it’s a test project or not)?
Ah yes, I misread you. Co Ctrl+R works, Ctrl=T gives the debugger error. reproduced, very strange. The only difference is that I’m passing parameters and environment variable to the debuggee…
Logged as 83009: Cannot run Island/Windows EUnit app in test mode
