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 %-
}
|