Pass into a function that takes any types

Author

Message

Richard_6

8

Years of Service

User Offline

Joined: 3rd Feb 2017

Location:

Posted: 3rd Apr 2017 02:39 Edited at: 3rd Apr 2017 02:46

Link

I’m trying to reproduce something I found on the documentation:

+ Code Snippet

function func( a ref as integer[] ) // pass by reference
    a[0] = 7
endfunction 
type myType
    ID as integer
    subArray as integer[5]
endtype
myVar as myType
func( myVar.subArray ) // passes the array from the type into the function
print( myVar.subArray[0] ) // will print "7"

I want to create a single function that might works for different types, not using global variables.
Here is what I’m trying. I’m sure I’m doing something wrong

and I appreciate any help.

+ Code Snippet

type PartCards
	LifeCycle as integer
endtype

MyPartCards as PartCards[0]
MyPartCards.length=MyPartCards.length+1
MyPartCards[1].LifeCycle=16

FnTestArraysLoop(MyPartCards)

function FnTestArraysLoop(PartCardList as PartCards[])
	do
		TestTypeToArray(PartCardList.lifecycle)
		print(PartCardList.LifeCycle[1])
		
		sync()	
	loop
endfunction

function TestTypeToArray(a ref as integer[])
	a[1]=3
endfunction

Back to top

Profile PM

Jack

20

Years of Service

User Offline

Joined: 4th Oct 2004

Location: [Germany]

Posted: 3rd Apr 2017 03:04 Edited at: 3rd Apr 2017 03:50

Link

Quote: "MyPartCards as PartCards[0]"

Creates An array with the real length of 1.
Use MyPartCards as PartCards[] or MyPartCards as PartCards[-1] to create an empty array.

MyPartCards.length=MyPartCards.length+1
MyPartCards[0].LifeCycle=16

I recommend you the following, if you get multiple entries:

MyPartCards.length=MyPartCards.length+1
pos = MyPartCards.length
MyPartCards[ pos ].LifeCycle=16

The TestTypeToArray function does not work.
I attach you a code, that may help:

Once you call FnTestArraysLoop, you copy your MyPartCards array into the PartCardList array, that is only inside this function. You can't call another function to refer on this array again.

+ Code Snippet

type PartCards
    LifeCycle as integer
endtype
 
MyPartCards as PartCards[]

MyPartCards.length=MyPartCards.length+1
MyPartCards[0].LifeCycle=16
 
FnTestArraysLoop(MyPartCards)
 
function FnTestArraysLoop(PartCardList as PartCards[])
    
    do
        TestTypeToArray( 0 )
        print(MyPartCards[0].LifeCycle)
         
        sync()  
    loop
endfunction
 
function TestTypeToArray( num)
    MyPartCards[num].LifeCycle=random(0,100)
endfunction

[/url]

Back to top

Profile PM Email Website

Richard_6

8

Years of Service

User Offline

Joined: 3rd Feb 2017

Location:

Posted: 3rd Apr 2017 04:48

Link

Thanks Jack, but MyPartsCards is not global (and I want to avoid globals here) and I don't want the function to works specifically for this type.

Back to top

Profile PM

blink0k

Moderator

12

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 3rd Apr 2017 05:03

Link

You cannot have a function that accepts a variable type as a parameter

Back to top

Profile PM

Markus

Valued Member

21

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Apr 2017 07:26

Link

Quote: "I want to create a single function that might works for different types"

why you need this? example of use?
one thought is to use one Type with Struct of different Types. means Type in Type

AGK (Steam) V2017.03.31 : Windows 10 Pro 64 Bit : AMD (17.2.1) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 3rd Apr 2017 08:03

Link

Quote: "why you need this? example of use?"

I remember needing this a while ago.
I had a vector type called:

+ Code Snippet

type tVect2
	x as float
	y as float
endtype

and in another library I had a point type called:

+ Code Snippet

type tPoint
	x as float
	y as float
endtype

I also have a vector library that used type tVect2 but I couldn't pass anything to it of type tPoint, obviously.
It is something that can be done in C++ so if you use Tier 2 it's OK, but in Tier one - you're screwed!

AGK V2 user - Tier 1 (mostly)

Back to top

Profile PM Email

Markus

Valued Member

21

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 3rd Apr 2017 11:18 Edited at: 3rd Apr 2017 11:18

Link

@Scraggle
if you not need quickness you can convert this type. unfortunately you can not set new values there because its a copy.

Function XY(a ref as tPoint)
...
End Function as tVect2

local a as tPoint
Hello(XY(a))

Function Hello(a ref as tVect2)

AGK (Steam) V2017.03.31 : Windows 10 Pro 64 Bit : AMD (17.2.1) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Apr 2017 13:49

Link

Ideally, what it sounds like you want is an implementation of Interfaces, which AppGameKit c annot do. In Scraggles case, it might look something like this:

+ Code Snippet

Interface MyPoint
    x as float
    y as float
EndInterface

type tVect2 implements MyPoint
    x as float
    y as float
endtype

type tPoint implements MyPoint
    x as float
    y as float
endtype


function something(X as MyPoint)
    //function can take tVect2 or tPoint, but only has access to what's defined in MyPoint (unless it can be casted)
endfunction

In any case, you might need to rethink the structure of what you're trying to do.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Richard_6

8

Years of Service

User Offline

Joined: 3rd Feb 2017

Location:

Posted: 5th Apr 2017 04:51

Link

Thank you guys!

Let me give you an example. I have a function with a sliding feature. I want to be able to use this function with any types, not just one (passing by ref).

So let's say the first type contains cards data and the second type contais dice data. Cards or dice could take the advantage of the same sliding feature. That's why I thought of calling a single function for both.

Any insights?

Thanks!

Back to top

Profile PM

Markus

Valued Member

21

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 5th Apr 2017 11:36

Link

Quote: " function with a sliding feature"

like this?
Type sliding
x
y
End Type

Type cards
s as sliding
End Type

Type dice
s as sliding
End Type

local d as dice
local c as card

Slide (d.slide)
Slide (c.slide)

Function Slide (s ref as sliding )

AGK (Steam) V2017.03.31 : Windows 10 Pro 64 Bit : AMD (17.2.1) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

GameDevGuy

9

Years of Service

User Offline

Joined: 18th Jul 2015

Location:

Posted: 5th Apr 2017 22:06

Link

Hi Richard,

I can't imagine what you are wanting appearing in the language any time soon.

The ability for a function to work on different types is an ability of so called Object Oriented Programming (OOP), which uses concepts like "Polymorphism".

While some implementations of the BASIC language go down the OOP path, AppGameKit isn't one of them.

Unless someone knows otherwise, (or you really want to fill your functions with lots of messy if then or select statements) I think with AppGameKit you are just going to have a different sliding function for each type.

Personally, while copying, pasting and editing multiple versions of functions does annoy my sense of what elegant programming should be like, I find the simplicity of the AppGameKit language refreshing and makes it more difficult for me to write buggy code when compared to other more sophisticated languages that do have OOP features.

Back to top

Profile PM

Richard_6

8

Years of Service

User Offline

Joined: 3rd Feb 2017

Location:

Posted: 6th Apr 2017 06:38 Edited at: 6th Apr 2017 06:48

Link

@markus: really clever. I had no clue that this was possible. thanks

@GameDevGuy: interesting perspective and yes, OOP would be great on AppGameKit!

I ended up using something real simple and it worked well. One function working for two different types. The only problem is that any variable inside the types must be arrays as the parameter ref does not accept simple integers. So even if its a sprite ID, I will need to add SpriteID[]. But no big deal!

+ Code Snippet

 
REM TYPES
type Cards
	Ace as integer[0]
endtype

type Dices
	AnyNumber as integer[0]
endtype	

REM ASSIGNING SOME INITIAL VALUES FOR TESTING
MyCards as Cards[0]
MyCards[0].Ace[0]=10 //STARTING AT 10

MyDices as Dices[0]
MyDices[0].AnyNumber[0]=1000 //STARTING AT 1000

REM CALLING THE MAIN LOOP
MainLoop(MyCards,MyDices)

REM MAIN LOOP, RECIEVING THE TYPES AS REF
function MainLoop(CardList ref as Cards[], DiceList ref as Dices[])
	do
		TypeToArray(CardList[0].Ace)
		print("Type Card ref: "+str(CardList[0].Ace[0]))
		TypeToArray(DiceList[0].AnyNumber)
		print("Type Dice ref: "+str(DiceList[0].AnyNumber[0]))
		sync()
	loop
endfunction

REM RECIEVING ANY TYPES AS REF AND PROCESSING AS AN INDEPENDENT ARRAY
function TypeToArray(a ref as integer[])
	a.length=a.length+1
	a[0]=a[0]+1
endfunction

Back to top

Profile PM

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th Apr 2017 06:52

Link

Quote: "The only problem is that any variable inside the types must be arrays as the parameter ref does not accept simple integers."

I think you need to organize your data structures a bit better and that shouldn't become an issue. I'm not sure what TypeToArray is even suppose to do other than increasing the array the size and incrementing the value of the first element. Function name doesn't describe what appears to be going on in the function.

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Markus

Valued Member

21

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 6th Apr 2017 09:27 Edited at: 6th Apr 2017 09:28

Link

Quote: "parameter ref does not accept simple integers"

unfortunately integer is not supported by ref but you can do this

type myinteger
int as integer
endtype

type Cards
Ace as myinteger[0]
endtype

type Dices
AnyNumber as myinteger[0]
endtype

local d as Dice
d.AnyNumber[0].int

AGK (Steam) V2017.03.31 : Windows 10 Pro 64 Bit : AMD (17.2.1) Radeon R7 265 : Mac mini OS Sierra (10.12.2)

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / Pass into a function that takes any types