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 |
;returns +modes -modes alias ttest { var %1 = $remove($regsubex($1,/\-[^+]+/g,),+),%2 = $remove($regsubex($1,/\+[^-]+/g,),-) return + $+ $regsubex(%1,/[ %2 ]/xg,) - $+ $regsubex(%2,/[ %1 ]/xg,) } /*...*/ ;you might change it to $3- spaces will be ripped off. var %temp = $ttest($3) var %+modes = $gettok(%temp,1,32) var %-modes = $gettok(%temp,2,32) var %+ = 1,%- = 1 ;loop for %+modes while ($mid(%+modes,%+,1)) { ; these flags are in the + if ($mid(%+modes,%+,1) == a) { do stuff if the flag is a } elseif($mid(%+modes,%+,1) == b) { do stuff if the flag is b } /*etc*/ inc %+ } ;loop for %-modes while ($mid(%-modes,%-,1)) { ; these flags are in the - if ($mid(%+modes,%-,1) == a) { do stuff if the flag is a } elseif($mid(%+modes,%-,1) == b) { do stuff if the flag is b } /*etc*/ inc %- } |
| Parsed for bracket errors and indented: | |
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 |
;returns +modes -modes alias ttest { var %1 = $remove($regsubex($1,/\-[^+]+/g,),+),%2 = $remove($regsubex($1,/\+[^-]+/g,),-) return + $+ $regsubex(%1,/[ %2 ]/xg,) - $+ $regsubex(%2,/[ %1 ]/xg,) } /*...*/ ;you might change it to $3- spaces will be ripped off. var %temp = $ttest($3) var %+modes = $gettok(%temp,1,32) var %-modes = $gettok(%temp,2,32) var %+ = 1,%- = 1 ;loop for %+modes while ($mid(%+modes,%+,1)) { ; these flags are in the + if ($mid(%+modes,%+,1) == a) { do stuff if the flag is a } elseif($mid(%+modes,%+,1) == b) { do stuff if the flag is b } /*etc*/ inc %+ } ;loop for %-modes while ($mid(%-modes,%-,1)) { ; these flags are in the - if ($mid(%+modes,%-,1) == a) { do stuff if the flag is a } elseif($mid(%+modes,%-,1) == b) { do stuff if the flag is b } /*etc*/ inc %- } |