Enums basics (EDIT: and Bug?)

[abakoboParticipant]

two questions (EDIT:+ bug found on 2nd post?):

-are we supposed to declare new enums like I did in the following code ‘e:myEnum’ and assign them their default member? (the code works fine but may I do that?)

-is there a way to get binary shifts members with some kind of flag while declaring an enum or should we do it as I did in the code below?

Monkey

[crayon-5cba166e8914c341873063 inline="true" ] Namespace myapp #Import "<std>" Using std.. Enum myEnum a,b,c,d,e End Enum binEnum a=1 b=1 Shl 1 c=1 Shl 2 d=1 Shl 3 End Function Main() Local i:Int Local j:Int Local e:myEnum i=e Print i 'prints 0 e=myEnum.e i=e Print i 'prints 4 i=e.b Print i 'prints 1 e=e.d|e.e i=e Print i 'prints 7 j=binEnum.b|binEnum.e Print j 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

[crayon-5cba166e8914c341873063 inline="true" ] Namespace myapp   #Import "<std>"   Using std..   Enum myEnum a,b,c,d,e End   Enum binEnum a=1 b=1 Shl 1 c=1 Shl 2 d=1 Shl 3 End   Function Main()     Local i:Int Local j:Int Local e:myEnum i=e Print i 'prints 0   e=myEnum.e i=e Print i 'prints 4 i=e.b Print i 'prints 1 e=e.d|e.e i=e Print i 'prints 7   j=binEnum.b|binEnum.e Print j End

[/crayon]

[abakoboParticipant]

I have some unexpected behaviuor here! Am I doing something wrong or should i post an issue?

Monkey

[crayon-5cba166e8d384522471786 inline="true" ]Namespace myapp #Import "<std>" Using std.. Enum myEnum a=1 b=10 c=100 d=1000 e=10000 End Function Main() Local i:Int Local e:myEnum e=myEnum.c|myEnum.e|myEnum.a i=e Print i 'should print "10101"? and prints it! e=e.b|e.d i=e Print i 'should print "1010"? and prints "1002" If e=myEnum.b|myEnum.d Then Print "equals ok" e=myEnum.c|myEnum.e|myEnum.d i=e Print i 'should print "11100"? prints "10236" If e=e.c|e.d|e.e Then Print "equals ok" 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

[crayon-5cba166e8d384522471786 inline="true" ]Namespace myapp   #Import "<std>"   Using std..   Enum myEnum a=1 b=10 c=100 d=1000 e=10000 End   Function Main() Local i:Int Local e:myEnum   e=myEnum.c|myEnum.e|myEnum.a i=e Print i 'should print "10101"? and prints it!   e=e.b|e.d i=e Print i 'should print "1010"? and prints "1002" If e=myEnum.b|myEnum.d Then Print "equals ok"   e=myEnum.c|myEnum.e|myEnum.d i=e Print i 'should print "11100"? prints "10236" If e=e.c|e.d|e.e Then Print "equals ok"   End

[/crayon]

Monkey

[crayon-5cba166e8d38a522068654 inline="true" ]#Import "<std>" Using std.. Enum myEnum a,b,c,d,e End Function Main() Local i:Int Local j:int Local E:myEnum Local F:myEnum E=myEnum.b|myEnum.d|myEnum.e i=E Print i 'should print 8? prints 7 F=E.d|E.e j=F Print i 'should print 7? prints 7 If F=E 'F(d,e), E (b,d,e) so I suppose E<>F but it detects it as equal Print "problem 1" Else Print "no problem 1" End If myEnum.b|myEnum.d|myEnum.e=myEnum.d|myEnum.e 'here it detects it as equal (very strange?) Print "even bigger problem? 2" Else Print "no big problem? 2" End If myEnum.b|myEnum.d|myEnum.e=E.e|E.b ' here it detects it as not equal (nice) Print "even bigger problem? 3" Else Print "no big problem? 3" 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

[crayon-5cba166e8d38a522068654 inline="true" ]#Import "<std>" Using std..   Enum myEnum a,b,c,d,e End   Function Main()     Local i:Int     Local j:int Local E:myEnum Local F:myEnum E=myEnum.b|myEnum.d|myEnum.e i=E Print i 'should print 8? prints 7 F=E.d|E.e j=F Print i 'should print 7? prints 7 If F=E 'F(d,e), E (b,d,e) so I suppose E<>F but it detects it as equal Print "problem 1" Else Print "no problem 1" End If myEnum.b|myEnum.d|myEnum.e=myEnum.d|myEnum.e 'here it detects it as equal (very strange?) Print "even bigger problem? 2" Else Print "no big problem? 2" End If myEnum.b|myEnum.d|myEnum.e=E.e|E.b ' here it detects it as not equal (nice) Print "even bigger problem? 3" Else Print "no big problem? 3" End End

[/crayon]

[Mark SiblyKeymaster]

Yes, that’s how enum’s work. There’s no mechanism for auto-generating ‘mask’ enum values, eg: 1 Shl 1, 1 Shl 2, 1 Shl 3 etc. I find it useful to use hex for these:

Monkey

Enum Flags A=$0001 B=$0002 C=$0004 D=$0008 E=$0010 F=$0020 G=$0040 H=$0080 End Local flags:=Flags.A | Flags.B

1 2 3 4 5 6 7 8 9 10 11 12

Enum Flags   A=$0001   B=$0002   C=$0004   D=$0008   E=$0010   F=$0020   G=$0040   H=$0080 End Local flags:=Flags.A | Flags.B

As for the ‘bugs’, I think you might be getting operators ‘|’ and ‘+’  mixed up! X|Y is NOT the same as X+Y. The code is working, but your enum values have multiple bits set so you’re getting weird values when you ‘|’ them together.

[Author]

Posts