{"id":2416,"date":"2016-05-01T10:12:01","date_gmt":"2016-04-30T22:12:01","guid":{"rendered":"https:\/\/www.deltics.co.nz\/blog\/?p=2416"},"modified":"2016-05-02T08:45:00","modified_gmt":"2016-05-01T20:45:00","slug":"relight-my-fire","status":"publish","type":"post","link":"https:\/\/www.deltics.co.nz\/blog\/posts\/2416\/","title":{"rendered":"Relight My Fire"},"content":{"rendered":"[Estimated Reading Time: <\/span> 7<\/span> minutes]<\/span><\/span>

I’m not sure how many more song inspired Fire references I can keep coming up with, but here at least is one more.<\/p>\n

<\/p>\n

In response to my previous post<\/a> Wouter commented that he had a much simpler cross platform solution to the random number problem:<\/p>\n

\r\nprogram random;\r\nbegin\r\n  Randomize;\r\n  Writeln(random);\r\nend.\r\n<\/pre>\n
Which is very pithy but actually makes a very good point for me, one which I was coming to anyway.<\/p>\n
Pascal is, as it were, one of the old guard in the programming language battalion.  And in particular the earliest implementations were extremely simple, relative to modern languages, intended (famously) to teach programming.  That is, programming in the state of the art as current at the time<\/em>.<\/p>\n
Modern Pascal dialects actually have very little in common with those early incarnations of Pascal whilst the platforms on which those dialects run have become significantly more complex (and capable).<\/p>\n
Yet, as simple as it is, the simple code above does not compile in Oxygene.<\/p>\n
Surely a major shortcoming ?<\/p>\n
Well, only if you intend to neglect the capabilities of the modern platforms on which your code runs today.<\/p>\n
A lot of things that a Pascal developer might take for granted in the Pascal RTL are simply not present in Oxygene.  In much the same way that many parts of the ANSI C RTL are not present in C# (or, more accurately, .NET).  Or rather, the equivalent, modern capabilities are<\/em> present but not in a syntactically compatible<\/em> form.<\/p>\n
 .NET Random vs Objective-C Randomness <\/h2>\n
I promised last time that the next thing we would do would be to implement a .NET version of the simple RandomNumber<\/strong> program, re-using the shared code we created to contain a cross platform RandomNumber<\/strong> generator class.  However, there is a problem we need to address first.<\/p>\n
Anyone familiar with random number generation on .NET or Java should have seen it coming.<\/p>\n
I had said that the shared RandomNumber<\/strong> class only needed to provide class<\/em> methods.  And this was true whilst we were exposing (essentially) global functions for seeding a global PRNG and generating random numbers from it.<\/p>\n
But in .NET, there are no such global functions.  There is instead a Random<\/a> class which must be instantiated.  The same is also true in Java.<\/p>\n
But this is not quite the inconvenience it might first seem.  There are some benefits.<\/p>\n
For example, it means you can have multiple independent random number sequences, even with their own independent seeds.  Why would you want to do this ?  Why would you even want multiple random number generators operating independently let alone with different predictable (or unpredictable) sequences ?<\/p>\n
I honestly don’t know.  But I can imagine a scenario in a game, for example, where you might want a predictable sequence of random numbers involved in generating level layouts, so that a player would always get the same layout for each level in turn.  But at the same time you might then want a “more random” sequence to trigger events during the game so that the gameplay was not replicated each time those predictable level layouts were played.<\/p>\n
But that’s just a plausible use case.  Not one I’ve personally used or even come across.<\/p>\n
In any event, my initial shared RandomNumber<\/strong> class is currently not fit for that potential purpose.  So let’s fix that.<\/p>\n
Since we are looking to achieve a uniform programming “surface” on the class, I shall model my revised implementation on (a sub-set of) the .NET class.  Checking against the Java Random<\/a> class (same name, different platform) I find that this has almost identical methods to support the interface I have in mind.<\/p>\n
Specifically, I shall have a parameterless constructor which shall seed using the current time, another constructor which accepts an integer seed and finally a method to generate and return a random number limited to an integer range:<\/p>\n
\r\n  type\r\n    RandomNumber = public class\r\n    public\r\n      constructor;\r\n      constructor(seed: Integer);\r\n      method Next(limit: Integer): Integer;\r\n    end;\r\n<\/pre>\n
First, let’s get this working for NOUGAT<\/strong>.  That is OS X.<\/p>\n
It turns out that those global functions (random()<\/strong> and srandom()<\/strong>) can be used in conjunction with a state buffer to manage multiple, independent PRNG’s.<\/p>\n
All we need is a buffer to maintain the state for each PRNG and ensure that we apply the applicable state prior to generating numbers (using setstate()<\/strong>).<\/p>\n
The state buffer is simply a suitably dimensioned AnsiChar<\/strong> array.  The state buffer is initialised before use (with initstate()<\/strong>) part of which involves providing the seed.  Since each instance of our class shall represent a discrete PRNG, we just need a member variable to hold that state buffer and appropriate initialisation of the buffer in the constructors.  We might as well go ahead and also implement the Next() method while we’re at it, applying the instance state before generating the random number:<\/p>\n
\r\n  type\r\n    RandomNumber = public class\r\n    private\r\n      fState: array[256] of AnsiChar;\r\n    public\r\n      constructor;\r\n      constructor(seed: Integer);\r\n      method Next(limit: Integer): Integer;\r\n    end;\r\n\r\nimplementation\r\n\r\n  constructor RandomNumber;\r\n  begin\r\n    constructor(Integer(time(NIL)));\r\n  end;\r\n\r\n  constructor RandomNumber(seed: Integer);\r\n  begin\r\n    initstate(seed, @fState, length(fState));\r\n  end;\r\n\r\n  method RandomNumber.Next(limit: Integer): Integer;\r\n  begin\r\n    setstate(@fState);\r\n    result := Integer(Random mod limit) + 1;\r\n  end;\r\n\r\n<\/pre>\n
You may notice this time – for clarity – I have not mixed-in the conditional compilation for the other platforms (ECHOES<\/strong> or COOPER<\/strong>). Instead let’s look at the complete implementation for each of those separately.\t \t <\/p>\n
To implement these in both cases I shall use a feature, unique to the Elements languages: Mapped Types<\/a>.\t \t <\/p>\n
Mapped Types<\/h2>\n
A Mapped Type does not create a new distinct type. Instead it creates a synonym or alias for some other type. This is not a ‘wrapper’. The compiler is simply directed that whenever it encounters a reference to a certain type it should instead treat it as a reference to the other, mapped type. This means that you can write your code using the types you have declared in platform independent code, but if you need to pass the objects to some platform specific API you can do so, directly. No need for conversions or wrappers.\t \t <\/p>\n
Similarly, within the Mapped Type you can declare methods and map those<\/em> onto methods in the type being mapped on to. Again, these are not wrapper methods. When the compiler encounters a call to the declared method in the type it instead generates a call as specified in the “map” to the mapped type.\t \t <\/p>\n
A mapped type is similar to a helper or extension class in that it cannot introduce new member data, but it can introduce new methods.\t \t <\/p>\n
So with all that in mind let’s look at the ECHOES<\/strong> and COOPER<\/strong> versions of RandomNumber<\/strong>.\t \t <\/p>\n
ECHOES (.NET)<\/h2>\n
\t \t \r\n\r\n    RandomNumber = public class mapped to Random\t \t \r\n      constructor; mapped to constructor;\t \t \r\n      constructor(seed: Integer); mapped to constructor(seed);\t \t \r\n      method Next(limit: Integer): Integer; mapped to Next(limit);\t \t \r\n    end;\t \t \r\n\r\n<\/pre>\n
This goes in the interface<\/strong> section. There is no implementation required in this case, at all. The class maps on to the System.Random<\/strong> class and since this is the model for my mapped type, all of the required methods already exist in the mapped type, but I still need to declare the mappings for those. \t \t <\/p>\n
When I reference RandomNumber<\/strong> I am only able to call the methods declared in the mapped type declaration, otherwise I could inadvertently create platform specific code, defeating the purpose of using a mapped type in the first place.\t \t <\/p>\n
The exception to that are any methods on the platform specific base object class which have to be available.\t \t <\/p>\n
So, what about the COOPER (Java) version ?\t \t <\/p>\n
COOPER (Java)<\/h2>\n
\t \t \r\n    RandomNumber = public class mapped to Random\t \t \r\n      constructor; mapped to constructor;\t \t \r\n      constructor(seed: Integer); mapped to constructor(seed);\t \t \r\n      method Next(limit: Integer): Integer; mapped to nextInt(limit);\t \t \r\n    end;\t \t \r\n<\/pre>\n
This is almost identical to the .NET mapping. The constructors are identical and provide the same initialisation. The only difference is that the method for obtaining a new, limited range integer is called nextInt<\/strong>, rather than Next<\/strong>, so this is addressed in the mapping.\t \t <\/p>\n
Bringing It All Together<\/h2>\n
\t \t \r\n\r\n    {$if NOUGAT}\t \t \r\n \t \t \r\n      RandomNumber = public class\t \t \r\n      private\t \t \r\n        fState: array[256] of AnsiChar;\t \t \r\n      public\t \t \r\n        constructor;\t \t \r\n        constructor(seed: Integer);\t \t \r\n        method Next(limit: Integer): Integer;\t \t \r\n      end;\t \t \r\n\r\n    {$else}\t \t \r\n\r\n      RandomNumber = public class mapped to Random\t \t \r\n        constructor; mapped to constructor;\t \t \r\n        constructor(seed: Integer); mapped to constructor(seed);\t \t \r\n        method Next(limit: Integer): Integer; mapped to {$if     ECHOES} Next(limit);\t \t \r\n                                                        {$elseif COOPER} nextInt(limit);\t \t \r\n                                                        {$endif} \r\n      end;\t \t \r\n\r\n    {$endif}\t \t \r\n\r\n<\/pre>\n
On NOUGAT we declare a new class which provides us with separate PRNG implementations.\t \t <\/p>\n
On ECHOES and COOPER we have a class with the same name but which in these cases is merely a synonym for the existing classes on those platforms that already provide the separate PRNGs. Notice that the class name being mapped to is Random<\/strong> in both cases, with the appropriate namespace identified in the uses<\/strong> clause.\t \t <\/p>\n
On all platforms the programming surface on the class is identical, allowing us to use this class in cross-platform code but still generating direct, native code in each case without the need for wrappers.\t \t <\/p>\n
But now, whatever platform I am working on, if ever I need a random number I have a completely consistent and uniform mechanism for doing so, supporting the capabilities of the most capable platform (discrete PRNGs), not reduced to the lowest common denominator (a single, global PRNG).\t \t <\/p>\n
Sweetening the Pill<\/h2>\n
Isn’t this all rather a lot of work just for getting random numbers ?\t \t <\/p>\n
Firstly – not really. I am labouring numerous points here for the purposes of illustration. As you can see, the actual work involved borders on the trivial.\t \t <\/p>\n
Secondly – I’m making more work for myself that I need to, again for the purposes of illustration.\t \t <\/p>\n
There is an open source library for Elements containing a large number of mapped types and other cross-platform helpers. It is called Sugar<\/strong>, it’s hosted on github<\/a> and indeed it already contains a class for random numbers (though it actually takes a different approach to my example).\t \t <\/p>\n
So, just one last thing to do before we can move on to creating the .NET and Android apps to use this facility.\t \t <\/p>\n
Refactoring the NOUGAT UI<\/h2>\n
We need a reference to an instance of RandomNumber<\/strong>, so we’ll add that to our private members. We can only generate random numbers when this reference is assigned, so I will ensure that the Generate<\/strong> button is initially disabled and only enable it when the Seeded<\/strong> button is pressed (which will instantiate the RandomNumber<\/strong>).\t \t <\/p>\n
Since I’ll need to change the state of the button at runtime, I now also need a reference to that button so I add an outlet for that as well, connected to the appropriate button in Xcode Interface Builder:\t \t <\/p>\n
\t \t \r\n  private\t \t \r\n    fRandom: RandomNumber;\t \t \r\n    [IBOutlet] lblNumber: NSTextField;\t \t \r\n    [IBOutlet] btnGenerate: NSButton;\t \t \r\n    [IBAction] method seed(Sender: id);\t \t \r\n    [IBAction] method generate(Sender: id);\t \t \r\n<\/pre>\n
“Seed”ing now means instantiating a new RandomNumber<\/strong> using the parameterless constructor, so we modify the seed()<\/strong> action method accordingly and also enable the generate button:\t \t <\/p>\n
\t \t \r\n    fRandom := new RandomNumber;\t \t \r\n    lblNumber.stringValue := 'Generator Seeded';\t \t \r\n    btnGenerate.enabled := true;\t \t \r\n<\/pre>\n
And finally of course, the generate()<\/strong> action needs to be modified to obtain a value from the current fRandom<\/strong>:\t \t <\/p>\n
\t \t \r\n    lblNumber.intValue := fRandom.Next(100);\t \t \r\n<\/pre>\n
Done.\t \t <\/p>\n
So next time we’ll build the .NET and<\/strong> the Android app and see how we use Fire in those cases.<\/p>\n
Footnote on Cryptographic RNG<\/h2>\n
None of the above deals with cryptographic RNG’s. But the same technique could easily be employed to create a CryptoRNG<\/strong> class to provide a cross-platform class for the cryptograhic RNG capabilities of each platform.<\/p>\n","protected":false},"excerpt":{"rendered":"
[Estimated Reading Time: <\/span> 7<\/span> minutes]<\/span><\/span> I’m not sure how many more song inspired Fire references I can keep coming up with, but here at least is one more.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":[]},"categories":[205,4,242,204,180],"tags":[299,181],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p1TKYv-CY","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":1224,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/1224\/","url_meta":{"origin":2416,"position":0},"title":"Sugary Goodness in “Nougat”","date":"13 Sep 2012","format":false,"excerpt":"Continuing the theme of recent - and upcoming - posts about new (and not so new) syntax in modern (and not so modern) variations on the Pascal language, I just have to comment on what I regard as yet another stunningly good job that the guys at RemObjects have done\u2026","rel":"","context":"In "Delphi"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":2624,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/2624\/","url_meta":{"origin":2416,"position":1},"title":"Expressive If and Case …","date":"25 Apr 2017","format":false,"excerpt":"A quick post on a small but hugely useful little language feature in Oxygene... if expressions. Many people will be familiar with the so-called ternary operator. Delphi developers will also be aware that there is no direct equivalent in Delphi. In 'C' and other languages we can write a statement\u2026","rel":"","context":"In "Delphi"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1713,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/1713\/","url_meta":{"origin":2416,"position":2},"title":"How to Call Java Code from an Oxygene Android Application","date":"20 Sep 2013","format":false,"excerpt":"Lachlan just posted a link to a post on Google+ (also available as a PDF) demonstrating how to call Java from Delphi XE5. I was shocked at both the amount and the nature of the code involved. It is long, convoluted and ugly stuff (nb. that isn't a criticism of\u2026","rel":"","context":"In "Android"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1882,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/1882\/","url_meta":{"origin":2416,"position":3},"title":"Not Your Grand-Daddy’s Pascal (or Java)","date":"15 Oct 2013","format":false,"excerpt":"I've mentioned some of the cool stuff in the Oxygene language in various posts and thought it would be a good idea to list them again, along with some others that I've not previously mentioned. Oxygene Everywhere First some of the core language features that are available on all supported\u2026","rel":"","context":"In "Android"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1817,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/1817\/","url_meta":{"origin":2416,"position":4},"title":"Getting the Battery Level on Android With Delphi","date":"01 Oct 2013","format":false,"excerpt":"Over the past few days I posted a two part series showing how to obtain the current battery level as part of the implementation of an Android AppWidget using Oxygene. As far as I can tell AppWidgets simply aren't possible using Delphi but reading the battery is quite straightforward Android\u2026","rel":"","context":"In "Android"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1199,"url":"https:\/\/www.deltics.co.nz\/blog\/posts\/1199\/","url_meta":{"origin":2416,"position":5},"title":"Oxygene “Nougat” is Mac and iOS !","date":"06 Sep 2012","format":false,"excerpt":"Marc Hoffman has confirmed that \"Nougat\" is to Mac\/iOS as \"Cooper\" was to Java. \u00a0Some have speculated that this will be based on Mono, but Oxygene has had Mono covered for some time already, so I strongly doubt that this is the case. Far more likely is that just as\u2026","rel":"","context":"In "Delphi"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/2416"}],"collection":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/comments?post=2416"}],"version-history":[{"count":12,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/2416\/revisions"}],"predecessor-version":[{"id":2429,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/posts\/2416\/revisions\/2429"}],"wp:attachment":[{"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/media?parent=2416"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/categories?post=2416"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.deltics.co.nz\/blog\/wp-json\/wp\/v2\/tags?post=2416"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}