Neat Samples: MEF in F# Scripts

Neat Samples: MEF in F# Scripts

  • Comments 1

Jomo Fisher—I posted yesterday about using MEF in F# programs. In the comments Oldrich asked if it was possible to do the same thing in F# scripts. It is indeed possible. It actually looks like a really powerful combination because you can naturally extend your scripts just by adding new #load directives at the top.

There are three pieces to this sample. You have to break your interfaces out into a separate .fsx. Realistically, you’d probably do this in a real compiled F# program too so this isn’t a huge burden on simplicity.

Code Snippet
  1. // MefInterfaces.fsx
  2. // Expose an interface
  3. type ITastyTreat =
  4.     abstract Description : string

 

Code Snippet
  1. // ChocolateCookie.fsx
  2. #r "System.ComponentModel.Composition"
  3. #load "MefInterfaces.fsx"
  4. namespace ChocolateCookie
  5. open MefInterfaces
  6. open System.ComponentModel.Composition
  7. [<Export(typeof<ITastyTreat>)>]
  8. type ChocolateCookie() =
  9.     interface ITastyTreat with
  10.         member __.Description = "a delicious chocolate cookie"

 

Code Snippet
  1. // MefHost.fsx
  2. #load "ChocolateCookie.fsx"
  3. open System.Reflection
  4. open System.IO
  5. open System.ComponentModel.Composition
  6. open System.ComponentModel.Composition.Hosting
  7. open MefInterfaces
  8. // Set up MEF
  9. let catalog = new AggregateCatalog()
  10. let assemblyCatalog = new AssemblyCatalog(Assembly.GetExecutingAssembly())
  11. let container = new CompositionContainer(catalog)
  12. catalog.Catalogs.Add(assemblyCatalog)
  13. // Jar that will contain tasty treats
  14. type TreatJar() =
  15.     [<ImportMany(typeof<ITastyTreat>)>]
  16.     let cookies : seq<ITastyTreat> = null
  17.     member __.EatTreats() =
  18.         cookies |> Seq.iter(fun tt->printfn "Yum, it was a %s" tt.Description)
  19. let jar = TreatJar()
  20. container.ComposeParts(jar)
  21. jar.EatTreats()

Thanks Oldrich, for giving me an excuse to try this out.

This posting is provided "AS IS" with no warranties, and confers no rights.

 

 

Leave a Comment
  • Please add 2 and 6 and type the answer here:
  • Post
  • Very interesting post! I wasn't that interested in MEF (except for extending Visual Studio) but that is a thought-provoking sample.

Page 1 of 1 (1 items)