[skn3Participant]

Ok that’s good to know!

[skn3Participant]

I was tempted but didn’t know if it was safe to use the Reflection stuff yet. Also what overhead does using monkey2 reflection bring? I already noticed someone mentioning that their file size had increased dramatically.

[skn3Participant]

Awesome Mark. Notepad++ is a good baseline to go from!

Nerobot, I will give ted2go a try!

[skn3Participant]

Ah I see, hopefully its open for convincing?

Well this seems like a bug to me, in that every times it happens I get the urge to leave a bug report. It can be ignored, but after a few weeks now, it still seems like a fault instead of a feature. I spend the majority of my time in Windows and 95% of text editors/IDE’s I have used, tab all lines selected. So I guess that makes this particular feature seem very alien.

Is this perhaps something that can be added to an “advanced” settings dialog? It seems like one of those things that is highly related to users personal preference, instead of something that should be hard coded into the design.

[skn3Participant]

What if Stack (and others) had a new method for running an operation for each item in series.

For example:

Monkey

'this would be a member of Stack Method Do<T>:Void(callback:Void(item:T)) 'get list of all items Local items := ToArray() For Local index := 0 Until items.Length callback(items[index]) Next End 'example code Class Item Field name:String Method New(name:String) Self.name = name End End Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple")) items.Push(New Item("orange")) items.Push(New Item("tree")) items.Push(New Item("keyboard")) 'slow but works! items.Do(Lambda(item:Item) items.Remove(item) 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

'this would be a member of Stack Method Do<T>:Void(callback:Void(item:T)) 'get list of all items Local items := ToArray() For Local index := 0 Until items.Length callback(items[index]) Next End   'example code Class Item Field name:String Method New(name:String) Self.name = name End End   Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple")) items.Push(New Item("orange")) items.Push(New Item("tree")) items.Push(New Item("keyboard")) 'slow but works! items.Do(Lambda(item:Item) items.Remove(item) End) End

This could be used for a lot more then just removing!

Monkey

'example code Class Item Field name:String Field hitPoints:Int Method New(name:String, hitPoints:Int) Self.name = name Self.hitPoints = hitPoints End End Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple", 0)) items.Push(New Item("orange", 3)) items.Push(New Item("tree", 2)) items.Push(New Item("keyboard", 0)) Local text:String items.Do(Lambda(item:Item) If item.hitPoints <= 0 text+= ", "+item.name+" is dead" Endif End) Print text 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

'example code Class Item Field name:String Field hitPoints:Int Method New(name:String, hitPoints:Int) Self.name = name Self.hitPoints = hitPoints End End   Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple", 0)) items.Push(New Item("orange", 3)) items.Push(New Item("tree", 2)) items.Push(New Item("keyboard", 0)) Local text:String items.Do(Lambda(item:Item) If item.hitPoints <= 0 text+= ", "+item.name+" is dead" Endif End)     Print text End

 

Also clearly this is not the most efficient way to iterate and do stuff, but it works.

In these example the Do creates a list of items at the time of calling, so this is then safe to iterate over. It generates junk, but this could be optimised. Or a safe/unsafe flag could be specified, causing the loop to iterate directly, or create the array first with safe mode. e.g.

Monkey

Method Do<T>:Void(callback:Void(item:T),safe:bool= False) If safe 'iterate safe 'get list of all items Local items := ToArray() For Local index := 0 Until items.Length callback(items[index]) Next Else 'iterate unsafe For Local index := 0 Until _length callback(_data[index]) Next Endif End

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

Method Do<T>:Void(callback:Void(item:T),safe:bool= False) If safe 'iterate safe 'get list of all items Local items := ToArray() For Local index := 0 Until items.Length callback(items[index]) Next Else 'iterate unsafe For Local  index := 0 Until _length callback(_data[index]) Next Endif End

 

Another example:

Monkey

Class Item Field name:String Field hitPoints:Int Method New(name:String, hitPoints:Int) Self.name = name Self.hitPoints = hitPoints End End Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple", 0)) items.Push(New Item("orange", 3)) items.Push(New Item("tree", 2)) items.Push(New Item("keyboard", 0)) Local currentOperation: = Operation1 items.Do(currentOperation) End Function Operation1:Void(item:Item) item.name = "NO" End Function Operation2:Void(item:Item) item.name = "YES" End Function Operation3:Void(item:Item) item.name = "MAYBE" 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

Class Item Field name:String Field hitPoints:Int Method New(name:String, hitPoints:Int) Self.name = name Self.hitPoints = hitPoints End End   Function Main:Void() Local items := New Stack<Item>() items.Push(New Item("apple", 0)) items.Push(New Item("orange", 3)) items.Push(New Item("tree", 2)) items.Push(New Item("keyboard", 0)) Local currentOperation: = Operation1 items.Do(currentOperation) End   Function Operation1:Void(item:Item) item.name = "NO" End   Function Operation2:Void(item:Item) item.name = "YES" End   Function Operation3:Void(item:Item) item.name = "MAYBE" End

[skn3Participant]

Its a bit later then planned, but I have created a basic project to show how the importing from parent directory is failing.

https://ufile.io/f8928

I get duplicate identifier errors. It appears that #import “foo.monkey2” and #import “../foo.monkey2” are not getting treated as the same file.

[skn3Participant]

Really cool!

[skn3Participant]

Yeah it is very mmf esque! surprising really as I do a lot of stuff for Clickteam these days

if it’s any good to release I will do so, otherwise will release as source so people can make use of it

[skn3Participant]

That’s strange! I shall have another go tomorrow, see if I can isolate it an example.

[skn3Participant]

Phew!

I would actually be pretty impressed if we managed to create the same game!

[skn3Participant]

Cheers! ”Tis good to be back messing with monkeys again!

I do hope we are not making the same game as well gcmarijn

[skn3Participant]

That is good news! Might be worth adding an example to the Lambda docs. I was going to do it in the online Manual, but it looks like comments are only available for modules?

 

Here is how I am using it, very handy!

Monkey

Method LoadAtlas:Atlas(path:String) 'check if it exists already Local atlas := atlases[path] 'do we need to load it? If atlas = Null 'yup, load it atlas = Atlas.Load(path) If atlas 'add discarded event to atlas atlas.OnDiscarded += Lambda() atlases.Remove(path) End 'now cache it atlases[path] = atlas Endif Endif 'return it now 😉 Return atlas End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Method LoadAtlas:Atlas(path:String) 'check if it exists already Local atlas := atlases[path] 'do we need to load it? If atlas = Null 'yup, load it atlas = Atlas.Load(path) If atlas 'add discarded event to atlas atlas.OnDiscarded += Lambda() atlases.Remove(path) End 'now cache it atlases[path] = atlas Endif Endif 'return it now Return atlas End

[skn3Participant]

Wow just looked over this, impressive stuff

[skn3Participant]

Ok I have created something that will reproduce. Now that I have isolated it, it turns out that it is actually a bug (and not my own user error) .

Steps:

1. press “item2” button
2. select the text field and position the cursor at the end of the text
3. press “item1” button
4. start typing on the keyboard
5. CRASH

Monkey

#import "<std>" #import "<mojo>" #import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyWindow Extends Window Field currentItem:Item Class Item Field name:String Method New(name:String) Self.name = name End End Method New() Super.New("Bug",640,480,WindowFlags.Resizable) 'create items Local item1 := New Item("apple") Local item2 := New Item("long_item_name") 'create text field Local textField := New TextField() 'create buttons Local button1:=New Button("item1") button1.Clicked=Lambda() currentItem = item1 textField.Text = currentItem.name End Local button2:=New Button("item2") button2.Clicked=Lambda() currentItem = item2 textField.Text = currentItem.name End 'setup layout Local dockingView:=New DockingView dockingView.AddView(button1,"left") dockingView.AddView(button2,"left") dockingView.ContentView=textField ContentView=dockingView End End Function Main() New AppInstance New MyWindow App.Run() 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

#import "<std>" #import "<mojo>" #import "<mojox>"   Using std.. Using mojo.. Using mojox..   Class MyWindow Extends Window Field currentItem:Item Class Item Field name:String Method New(name:String) Self.name = name End End Method New() Super.New("Bug",640,480,WindowFlags.Resizable) 'create items Local item1 := New Item("apple") Local item2 := New Item("long_item_name") 'create text field Local textField := New TextField() 'create buttons Local button1:=New Button("item1") button1.Clicked=Lambda() currentItem = item1 textField.Text = currentItem.name End Local button2:=New Button("item2") button2.Clicked=Lambda() currentItem = item2 textField.Text = currentItem.name End 'setup layout Local dockingView:=New DockingView dockingView.AddView(button1,"left") dockingView.AddView(button2,"left") dockingView.ContentView=textField ContentView=dockingView End End   Function Main()   New AppInstance New MyWindow App.Run() End

[skn3Participant]

Didn’t realise that the Stack in monkey2 had been fleshed out so much, compared to monkey1/blitz! Very helpful!

[Author]

Posts