//----------[Begin ModSwitch Macros]----------// //---[ctr is counter or other test number]----// //---[doCommand[n] is nearly* any command]----// //-[* Does not work with #commands,ie #debug]-// //----------------[GDS|Entropy]---------------// #macro mod2Switch(ctr,doCommand0,doCommand1) // Determines if even or odd // 0 = Even // 1 = Odd #local modNum = 2; #if(mod(ctr,modNum) = 0) doCommand0 // Even Command #else // mod = 1 doCommand1 // Odd Command #end #end #macro mod3Switch(ctr,doCommand0,doCommand1,doCommand2) #local modNum = 3; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #end #end #macro mod4Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3) #local modNum = 4; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #end #end #macro mod5Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4) #local modNum = 5; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #end #end #macro mod6Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4,doCommand5) #local modNum = 6; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #case (5) doCommand5 #break #end #end #macro mod7Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4,doCommand5,doCommand6) #local modNum = 7; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #case (5) doCommand5 #break #case (6) doCommand6 #break #end #end #macro mod8Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4,doCommand5,doCommand6,doCommand7) #local modNum = 8; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #case (5) doCommand5 #break #case (6) doCommand6 #break #case (7) doCommand7 #break #end #end #macro mod9Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4,doCommand5,doCommand6,doCommand7,doCommand8) #local modNum = 9; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #case (5) doCommand5 #break #case (6) doCommand6 #break #case (7) doCommand7 #break #case (8) doCommand8 #break #end #end #macro mod10Switch(ctr,doCommand0,doCommand1,doCommand2,doCommand3,doCommand4,doCommand5,doCommand6,doCommand7,doCommand8,doCommand9) #local modNum = 10; #switch (mod(ctr,modNum)) #case (0) doCommand0 #break #case (1) doCommand1 #break #case (2) doCommand2 #break #case (3) doCommand3 #break #case (4) doCommand4 #break #case (5) doCommand5 #break #case (6) doCommand6 #break #case (7) doCommand7 #break #case (8) doCommand8 #break #case (9) doCommand9 #break #end #end //----------[End ModSwitch Macros]----------//