[seyhajinParticipant]

The “With … End” statement is considered as a “helper” to have a clearer and less verbose source code, neither more nor less, it does not modify the control structures. A bit like the use of “Alias” which allows to “simplify” a type of variable or function. For example, you can write “Rect <Float>” to “Rectf” in your “Rect <Float>” and with “Alias”, and nothing prevents you from writing “Rect <Float>” elsewhere of your application. There are two different ways to use it but quite compatible.

1. You define an “ObjectClass” with “With” keyword as the current “Object” to use in the block
2. Inside the “With” block, you use (dot) “.MyMethod or .MyProperty” directly without rewriting your declared “With”
3. “End”

[seyhajinParticipant]

The right subject is to request to integrate “With” statement in Monkey2 language, no how to use an equivalent.

Do you think this is possible to add this in Monkey2 simply?

[seyhajinParticipant]

Obviously this has a real interest if there are many members called for the same object, or calling the members of these nested objects. In use it will always be much less verbose.

[seyhajinParticipant]

“With statement” work with ObjectClass expression only (class if you want use static function/variable or instance of class) and use “.” (dot) or “->”, if object’s pointer, in the block to avoid rewrite ObjectClass.

Syntax :

Monkey

With ObjectExpression [Statements] End

1 2 3

With ObjectExpression     [Statements] End

[ObjectExpression] : Required. An expression that evaluates to an object or class/struct
[Statements] : Optional. One or more statements between ‘With’ and ‘End’ that may refer to members of an objects that’s produced by the evaluation of [ObjectExpression]
[End] : Required. Terminates the definition of the “With” block

Monkey2 example :

Monkey

Class Customer Field Name:String Field City:String Field URL:String Field Comments:=New List<String> End Function AddCustomer() '// without 'With statement' Local theCustomer:= New Customer theCustomer.Name = "John Doe" theCustomer.City = "Unknown" theCustomer.URL = "http://www.john.doe" theCustomer.Comments.Add( "First comment." ) theCustomer.Comments.Add( "Second comment." ) If theCustomer.City = "" Then theCustomer.City = "Earth" End Function AddCustomer() '// with 'With statement' Local theCustomer:= New Customer With theCustomer '// Each 'With' block executes a series of statement one a single object .Name = "John Doe" .City = "Unknown" .URL = "http://www.john.doe" With .Comments '// Within the nested 'With' statement, the syntax refer to the inner object .Add( "First comment." ) .Add( "Second comment." ) End If .City = "" Then .City = "Earth" '// If statement End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Class Customer     Field Name:String     Field City:String     Field URL:String     Field Comments:=New List<String> End   Function AddCustomer() '// without 'With statement'     Local theCustomer:= New Customer       theCustomer.Name = "John Doe"     theCustomer.City = "Unknown"     theCustomer.URL = "http://www.john.doe"       theCustomer.Comments.Add( "First comment." )     theCustomer.Comments.Add( "Second comment." )       If theCustomer.City = "" Then theCustomer.City = "Earth" End   Function AddCustomer() '// with 'With statement'     Local theCustomer:= New Customer       With theCustomer '// Each 'With' block executes a series of statement one a single object         .Name = "John Doe"         .City = "Unknown"         .URL = "http://www.john.doe"           With .Comments '// Within the nested 'With' statement, the syntax refer to the inner object             .Add( "First comment." )             .Add( "Second comment." )         End           If .City = "" Then .City = "Earth" '// If statement     End End

[seyhajinParticipant]

Directly with SDL function : SDL_WarpMouseGlobal:Void( x:Int, y:Int )
Remarks : This function generates a mouse motion event. A failure of this function usually means that it is unsupported by a platform.

[seyhajinParticipant]

Do you look at the side of bgfx – Cross platform rendering library ? I think it would solve the rendering backend problems for all target platforms.

To quote the github page:

What is it?
Cross-platform, graphics API agnostic, “Bring Your Own Engine/Framework” style rendering library.
Supported rendering backends:

• Direct3D 9
• Direct3D 11
• Direct3D 12 (WIP)
• Metal (WIP)
• OpenGL 2.1
• OpenGL 3.1+
• OpenGL ES 2
• OpenGL ES 3.1
• WebGL 1.0
• WebGL 2.0

Supported HMD:

• OculusVR (1.3.0)

Supported platforms:

• Android (14+, ARM, x86, MIPS)
• asm.js/Emscripten (1.25.0)
• FreeBSD
• iOS (iPhone, iPad, AppleTV)
• Linux
• MIPS Creator CI20
• Native Client (PPAPI 37+, ARM, x86, x64, PNaCl)
• OSX (10.9+)
• RaspberryPi
• SteamLink
• Windows (XP, Vista, 7, 8, 10)
• WinRT (WinPhone 8.0+)

Supported compilers:

• Clang 3.3 and above
• GCC 4.6 and above
• VS2012 and above

API Reference

Look some screenshots of samples.

Attachments:

1. 

   screenshot_hdr.png
   

2. 

   screenshot_stencilvolume.png
   

3. 

   screenshot_ibl.png
   

4. 

   screenshot_debug.png
   

[seyhajinParticipant]

Improve – types parsing (:=True, ‘Ptr’ and some other)

Thanks it’s work perfectly

[seyhajinParticipant]

Wow! it’s really nice feature. Congrats!

I just find an little bug on AutoCompletion, if an parameters of function contains “xxx Ptr”, that’s don’t parse correctly. (eg: screenshots for example).

Attachments:

1. 

   mk2_autocompleteview.png
   

2. 

   mk2_autocompleteview_decls.png
   

[seyhajinParticipant]

Ok Mark, it’s just a simple suggestion. Maybe for next Monkey…

[seyhajinParticipant]

Hi,

I need to extend Vec2<T> struct with additionnal features but i have an errors with ‘Property’. Can you tell me if my code is correct and why he doesn’t work?

Monkey

#Import "<std>" Using std.. Struct Vec2<T> Extension '// By Property Property Angle:Float() Return ATan2(Self.Y, Self.X) Setter:Void(value:Float) Self.X = Cos(value) * Self.Length Self.Y = Sin(value) * Self.Length End Property Len:Double() 'Length extension Return Length Setter(value:Double) Local a:Double = ATan2(Self.Y, Self.X) Self.X = Cos(a) * value Self.Y = Sin(a) * value End '// By Method Method Angle2:Float() 'Test Return ATan2(Self.Y, Self.X) End Method Angle2:Vec2<T>(value:Float) 'Test Self.X = Cos(value) * Self.Length Self.Y = Sin(value) * Self.Length Return Self End Method Clone:Vec2<T>() Return New Vec2<T>(Self.X, Self.Y) End Method One:Vec2<T>() Self.X = 1.0 Self.Y = 1.0 Return Self End Method Zero:Vec2<T>() Self.X = 0.0 Self.Y = 0.0 Return Self End Method Limit:Vec2<T>(value:Double) Local i:T = value / ((Self.Length <> 0.0) ? Self.Length Else 1.0) i = (i < 1.0) ? i Else 1.0 Self.X = Self.X * i Self.Y = Self.Y * i Return Self End End Function Main() Local v:=New Vec2f(1,2) Print v.One() Print v.Zero() Print v.Angle2() Print v.Angle2(10.0) Print v.Angle '<--- Error : Property 'Angle' cannot be accessed from an instance of a different class v.Angle = 2.0 Print v Print v.Len '<--- Error : Property 'Len' cannot be accessed from an instance of a different class v.Len = 30.0 Print v End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

#Import "<std>"   Using std..   Struct Vec2<T> Extension '// By Property Property Angle:Float() Return ATan2(Self.Y, Self.X) Setter:Void(value:Float) Self.X = Cos(value) * Self.Length Self.Y = Sin(value) * Self.Length End Property Len:Double() 'Length extension Return Length Setter(value:Double) Local a:Double = ATan2(Self.Y, Self.X) Self.X = Cos(a) * value Self.Y = Sin(a) * value End '// By Method Method Angle2:Float() 'Test Return ATan2(Self.Y, Self.X) End Method Angle2:Vec2<T>(value:Float) 'Test Self.X = Cos(value) * Self.Length Self.Y = Sin(value) * Self.Length Return Self End Method Clone:Vec2<T>() Return New Vec2<T>(Self.X, Self.Y) End Method One:Vec2<T>() Self.X = 1.0 Self.Y = 1.0 Return Self End Method Zero:Vec2<T>() Self.X = 0.0 Self.Y = 0.0 Return Self End Method Limit:Vec2<T>(value:Double) Local i:T = value / ((Self.Length <> 0.0) ? Self.Length Else 1.0) i = (i < 1.0) ? i Else 1.0 Self.X = Self.X * i Self.Y = Self.Y * i Return Self End End   Function Main()         Local v:=New Vec2f(1,2)     Print v.One()     Print v.Zero()          Print v.Angle2()     Print v.Angle2(10.0)          Print v.Angle '<--- Error : Property 'Angle' cannot be accessed from an instance of a different class     v.Angle = 2.0     Print v          Print v.Len '<--- Error : Property 'Len' cannot be accessed from an instance of a different class     v.Len = 30.0     Print v End

[Author]

Posts