PureBasic Forums - English

Posted: **Wed May 06, 2009 4:56 pm**

I'd like to have the possibility to use something like...

Enumeration
	#X_A
	#X_B
	#X_C
	#X_D
EndEnumeration

#ScreenSaver=#X_A

CompilerSelect #ScreenSaver
CompilerCase #X_A,#X_B
	:
	:
	:
CompilerDefault
	:
CompilerEndSelect

Posted: **Thu May 07, 2009 1:27 pm**

Workaround:

Code: Select all

Enumeration
   #X_A
   #X_B
   #X_C
   #X_D
EndEnumeration

#ScreenSaver=#X_A

CompilerSelect #ScreenSaver
	CompilerCase (#X_A | #X_B) & #ScreenSaver
	  Debug "#X_A,#X_B"
	  ;   :
	  ;   :
	  ;   :

	CompilerDefault
  	Debug "Default"
	  ;   :
	  ;   :
	  ;   :

CompilerEndSelect

cu, guido

Posted: **Thu May 07, 2009 1:44 pm**

This does not work:

Code: Select all

Enumeration 
   #X_A 
   #X_B 
   #X_C 
   #X_D 
EndEnumeration 

#ScreenSaver=#X_B

CompilerSelect #ScreenSaver 
   CompilerCase (#X_A | #X_D) & #ScreenSaver 
     Debug "#X_A,#X_D" 
     ;   : 
     ;   : 
     ;   : 

   CompilerDefault 
     Debug "Default" 
     ;   : 
     ;   : 
     ;   : 

CompilerEndSelect

If you want it to work this way the constants must use different bits:

Code: Select all

Enumeration 
   #X_A = 1<<0
   #X_B = 1<<1
   #X_C = 1<<2
   #X_D = 1<<3
EndEnumeration 

#ScreenSaver=#X_B

CompilerSelect #ScreenSaver 
   CompilerCase (#X_A | #X_D) & #ScreenSaver 
     Debug "#X_A,#X_D" 
     ;   : 
     ;   : 
     ;   : 

   CompilerDefault 
     Debug "Default" 
     ;   : 
     ;   : 
     ;   : 

CompilerEndSelect

Posted: **Thu May 07, 2009 4:30 pm**

Thank you Deem2031!!!

You are right!

At the beginning I had it in mind, but as I wrote/copied the code ... it got lost

... I took too less time ...

PureBasic Forums - English

CompilerCase A,B,C

CompilerCase A,B,C