VariableType

[Peter]

Deleted

[Charles Pegge]

Hi Peter,

Some clues here

Code: OxygenBasic

1.  
2. type ty string s,t,u
3.  
4. ty t
5.  
6. 'print typeof ty
7. 'print typeof t
8. 'print typeof t.s "   "
9. 'print typecodeof t.s
10.  
11.  
12. '=============
13.  
14.  
15. function foo(any*v,sys typ) as string
16. string s
17. select case typ
18. case 0x02    : s="short"
19. case 0x04    : s="long"
20. case 0x08    : s="quad"
21. case 0x21    : s="byte"
22. case 0x22    : s="word"
23. case 0x24    : s="dword"
24. case 0x64    : s="single"
25. case 0x68    : s="double"
26. case 0xa1    : s="zstring"
27. case 0xe1    : s="string"
28. end select
29. return s
30. end function
31.  
32.  
33. byte   b
34. word   w
35. dword  d
36. string s
37.  
38.  
39.  
40. print foo b,typecodeof b
41. print foo w,typecodeof w
42. print foo d,typecodeof d
43. print foo s,typecodeof s
44.  
45.  

Charles

[efgee]

Do you have the "in progress" oxygen zip file?

It works fine here...
(with oxygen.dll of Nov 13th)

bye

BTW: Shouldn't you be in bed by now?

[Charles Pegge]

typecodeof is a recent feature, (15th October).

Function overloading is another possibility, and eliminates the select case logic

Code: OxygenBasic

1.  
2. 'FUNCTION OVERLOADING
3. '====================
4.  
5. function foo (long v) as string
6. return "long " v
7. end function
8.  
9. function foo (double v) as string
10. return "double " v
11. end function
12.  
13. function foo (string v) as string
14. return "string " v
15. end function
16.  
17.  
18. long l=42
19. double d=42.5
20. string s="43"
21.  
22. print foo l
23. print foo d
24. print foo s
25.  
26.  

Charles

PS: My bed time is whenever the brain goes fuzzy

[JRS]

Is function overloading a default for typeless languages?

Code: [Select]

SUB foo(arg)
  IF ISNUMERIC(arg) THEN
    PRINT "Numeric Value\n"
  ELSE IF ISSTRING(arg) THEN
    PRINT "String Value\n"
  ELSE
    PRINT "undef\n"
  END IF
END SUB

foo 1
foo "two"
foo

jrs@laptop:~/sb/test$ scriba foo.sb
Numeric Value
String Value
undef
jrs@laptop:~/sb/test$

[Charles Pegge]

It's more for compiled typed languages, so they can pretend to be typeless

But overloading is not confined to primitives. You could use functions of the same name for totally different types

feed(Baby)

feed(Geraniums)

feed(Boiler)

Charles

[efgee]

PS: My bed time is whenever the brain goes fuzzy

If this is the rule of the day... I can't get out of bed 

Thinking of fuzzy:
Who remembers the hype about fuzzy logic in the 90'

Come and gone 

[Charles Pegge]

Along with Expert systems.

But only to reappear in algorithmic trading systems for the stock market - contributing to global financial instability.

[Charles Pegge]

Hi Peter,

You have to pass the typecode to the function as well as the variable. My first example demonstrates this.

You can use a macro to do this for you, so you only have to specify the variable once when calling.

def FlexiFunc FlexifuncA %1,typecodeof %1

FlexiFunc v

expands to:

FlexiFuncA v, typecodeof v




Charles