xamarin-macios/tests/fsharp/Main.fs

namespace Test

#if __UNIFIED__
open UIKit
#else
open MonoTouch.UIKit
#endif

#if !__WATCHOS__ && !TODAY_EXTENSION

module Main = 
    [<EntryPoint>]
    let main args = 
        UIApplication.Main(args, null, "AppDelegate")
        0

#endif
[tests] Import 2016-05-26 16:06:52 +03:00			`namespace Test`

			`#if __UNIFIED__`
			`open UIKit`
			`#else`
			`open MonoTouch.UIKit`
			`#endif`

[tests] Don't try to compile the Main function in F# extensions. (#3683) The F# compiler complains that: /Users/xamarinqa/vsts/_work/52/s/tests/fsharp/Main.fs(13,9): error FS0433: A function labeled with the 'EntryPointAttribute' attribute must be the last declaration in the last file in the compilation sequence. Main.fs is the last file in the project file, but the MSBuild tasks adds another one at the end: obj/iPhone/Debug64-today-extension/Xamarin.iOS,Version=v1.0.AssemblyAttribute.fs because we're building a library (in which case the MSBuild tasks assume that there won't be any Main functions in the project, and as such it's safe to append files to compile). Work around this by excluding the Main function from F# extensions, it's not needed anyway. 2018-03-08 00:13:13 +03:00			`#if !__WATCHOS__ && !TODAY_EXTENSION`
[tests] Import 2016-05-26 16:06:52 +03:00
			`module Main =`
			`[<EntryPoint>]`
			`let main args =`
			`UIApplication.Main(args, null, "AppDelegate")`
			`0`

			`#endif`