[Implemented] Step value to the power of X

Hroudtwolf · Post by **Hroudtwolf** » Thu Sep 21, 2006 8:52 pm

Hello Fred and PureBasic team,

Its more an idea than a wish.
Could you please make it possible to use the power of x for the step keyword ?

Example:

Code: Select all

Enumeration 2 Step ^2
   #cDXSCREEN_RENDER_CLEARBYCOLOR
   #cDXSCREEN_RENDER_VSYNCOFF
   #cDXSCREEN_RENDER_VSYNCON
   #cDXSCREEN_RENDER_VSYNCIDLE
EndEnumeration

The set values...

#cDXSCREEN_RENDER_CLEARBYCOLOR = 2
#cDXSCREEN_RENDER_VSYNCOFF = 4
#cDXSCREEN_RENDER_VSYNCON = 8
#cDXSCREEN_RENDER_VSYNCIDLE = 16

Best regards.

Hroudtwolf

hellhound66 · Post by **hellhound66** » Thu Sep 21, 2006 9:01 pm

Removed.

Hroudtwolf · Post by **Hroudtwolf** » Thu Sep 21, 2006 9:04 pm

My idea is, to have the possibility to let increase the enumeration-value with the power of X.

hellhound66 · Post by **hellhound66** » Thu Sep 21, 2006 9:06 pm

Removed.

Hroudtwolf · Post by **Hroudtwolf** » Thu Sep 21, 2006 9:14 pm

Yes, thats also a good idea.

Bonne_den_kule · Post by **Bonne_den_kule** » Sun Apr 15, 2007 12:19 am

Good idea. PB should be enable to increase the enumeration value with the power of 2.

MrMat · Post by **MrMat** » Sun Apr 15, 2007 6:25 am

Yeah i suggested this too:

MrMat wrote:Enumeration type for bitmasks, e.g.

Code: Select all

EnumerationBitmask 1
#MIIM_ID
#MIIM_SUBMENU
#MIIM_CHECKMARKS
#MIIM_TYPE
#MIIM_DATA
EndEnumerationBitmask

instead of

Code: Select all

#MIIM_ID = 1 << 1
#MIIM_SUBMENU = 1 << 2
#MIIM_CHECKMARKS = 1 << 3
#MIIM_TYPE = 1 << 4
#MIIM_DATA = 1 << 5

It would be really useful.

#NULL · Post by **#NULL** » Fri Feb 15, 2008 4:27 pm

something like this would make much use for me too! and it would fit well into PB

+1

NicTheQuick · Post by **NicTheQuick** » Tue Feb 19, 2008 5:06 pm

hellhound66 · Post by **hellhound66** » Tue Feb 19, 2008 5:13 pm

Removed.

#NULL · Post by **#NULL** » Sat Dec 06, 2008 10:50 pm

i found a way with macros, but it looks a bit silly

Code: Select all

Macro startFlags(set, starting_bit=1) 
  set = #PB_Compiler_Line + 2 - starting_bit 
EndMacro 

Macro nextFlag(set) 
  (1 << (#PB_Compiler_Line - set)) 
EndMacro 





startFlags(#myFlags) 
#a = nextFlag(#myFlags) 
#b = nextFlag(#myFlags) 
#c = nextFlag(#myFlags) 

Debug #a 
Debug #b 
Debug #c 

Debug "" 

startFlags(#Flags2, 3) 
#_1 = nextFlag(#Flags2) 
#_2 = nextFlag(#Flags2) 
#_3 = nextFlag(#Flags2) 
#_4 = nextFlag(#Flags2) 

Debug #_1 
Debug #_2 
Debug #_3 
Debug #_4

DoubleDutch · Post by **DoubleDutch** » Sun Dec 07, 2008 12:35 pm

+1 very good idea

Little John · Post by **Little John** » Sun Dec 07, 2008 1:33 pm

#NULL wrote:i found a way with macros, but it looks a bit silly

Inspired by your idea, I found a simpler way.

//edit: even more simplified

Code: Select all

; successfully tested with PB 4.30 beta 5

Macro NextFlag (_factor_=2)
   ((#PB_Compiler_EnumerationValue-1)*_factor_)
EndMacro


;-- according to original example by Hroudtwolf:
Enumeration 2
   #cDXSCREEN_RENDER_CLEARBYCOLOR
   #cDXSCREEN_RENDER_VSYNCOFF = NextFlag()
   #cDXSCREEN_RENDER_VSYNCON = NextFlag()
   #cDXSCREEN_RENDER_VSYNCIDLE = NextFlag()
EndEnumeration

Debug #cDXSCREEN_RENDER_CLEARBYCOLOR
Debug #cDXSCREEN_RENDER_VSYNCOFF
Debug #cDXSCREEN_RENDER_VSYNCON
Debug #cDXSCREEN_RENDER_VSYNCIDLE

Regards, Little John

PB · Post by PB » Sun Dec 07, 2008 1:45 pm

The more you post workarounds, the less likely it'll be done natively.

Michael Vogel · Post by **Michael Vogel** » Sun Dec 07, 2008 2:37 pm

Another, even crazier (?) variant...

Code: Select all

Macro _skip_()
EndEnumeration
Enumeration (#PB_Compiler_EnumerationValue-1)<<1
EndMacro

Enumeration 1
	#a
	_skip_()
	#b
	_skip_()
	#c
	_skip_()
	#d
EndEnumeration

Debug #a
Debug #b
Debug #c
Debug #d

Michael

PS and, as a running gag - Purebasic could have some additional integrated integer functions like BitSet(), BitClr, BitTest()