1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18


open Monobjc
open Monobjc.Cocoa

let main() =
  printfn "Hello from F#"

  ObjectiveCRuntime.LoadFramework("Cocoa");
  ObjectiveCRuntime.Initialize();
  use pool = new NSAutoreleasePool();

  printfn "Username: %A" (FoundationFramework.NSFullUserName())
  printfn "Home Dir: %A"(FoundationFramework.NSHomeDirectory())
  use dict = new NSDictionary(new NSString "/System/Library/Frameworks/AppKit.framework/Resources/version.plist")
  printfn "AppKit Version: %A" (dict.[new NSString("CFBundleVersion")].CastTo<NSString>())
  ()

main()