Re: [Caml-list] Modules and record fields

[Gabriel Scherer <gabriel.scherer@gmail.com>]

let open Solarized in Sdl.set_render_draw_color ren orange.r orange.g
orange.b 0xff

Solarized.(Sdl.set_render_draw_color ren orange.r orange.g orange.b 0xff)

let module S = Solarized in Sdl.set_render_draw_color ren S.(orange.r)
S.(orange.g) S.(orange.b) 0xff

let apply f color = Solarized.(f color.r color.g color.b) in
apply (Sdl.set_render_draw_color ren) orange 0xff

On Sun, May 25, 2014 at 12:30 PM, Ollie Frolovs
<ollie.frolovs.2012@my.bristol.ac.uk> wrote:
> Hello
>
> I was using some colours in my program and thought that it would be a good idea to put colour constants into a separate module.
>
> module Solarized = struct
>   type colour = {r:int; g:int;  b:int}
>
>   let base03 = {r=0x00; g=0x2b; b=0x36}
>   let orange = {r=0xcb; g=0x4b; b=0x16}
>   (* etc etc *)
> end
>
> I need three separate RGB components because I’m using an API which needs them separately, rather than in some pre-packed way.
>
> I was planning to use the module like this
>
> let module S = Solarized in
> Sdl.set_render_draw_color ren S.orange.r S.orange.g S.orange.b 0xff
> (* etc etc *)
>
> that is, to locally open the module and refer to the colours and their subcomponent.
>
> But this does not work. It appears for some reason that I have to address the subcomponents as
>
> Solarized.orange.Solarized.r
>
> which defeats the purpose! Is there any other way to achieve my goal?
>
> Best regards
>
> Ollie
>
> --
> Caml-list mailing list.  Subscription management and archives:
> https://sympa.inria.fr/sympa/arc/caml-list
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs