expr integer modulus operator
If "a == b % c", then "a == b - (b / c) * c"
Alternatively: (x / y) * y == x - (x % y)
Also the first character of substitution specifiers in format, bind, scan, clock, ...
jima A question that perhaps should be placed elsewhere:
Recently reading Aspect Support Class for TclOO I found the following bit of code
method DefineAspect args {
set opts [dict merge {
-name {}
-condition 1 -before {} -after {}
-variable ASPECT__result -trap {}
} $args]
if {[dict get $opts -trap] eq ""} {
set script {
if {[lindex [self target] 0] eq "::oo::object"} {
return [next {*}$args]
}
if {%1$s} {
%2$s
set %4$s [next {*}$args]
%3$s
return [set %4$s]
} else {
return [next {*}$args]
}
}
...Where I assume %1$s , %2$s et cetera are "script parts" of an invocation like:
aspect -before {
my variable ValueCache
set key [self target],$args
if {[info exist ValueCache($key)]} {
return $ValueCache($key)
}
} -variable result -after {
set ValueCache($key) $result
}The thing I don't get is where is the magic of %1$s and terms alike defined.
Is this something that follows standard rules of tcl?
Or is it just something parsed inside the TclOO package?
RS: Well, if you look at the very next line, it is
set script [format $script \
[dict get $opts -condition] \
[dict get $opts -before] \
[dict get $opts -after] \
[list [dict get $opts -variable]] \
[list [dict get $opts -trap]]]so the % things are placeholders for items to get substituted into the script.
DKF: Yes, the % is also used in format to indicate a substitution point, though I admit that code uses the somewhat-unusual XPG positional format specifiers because there are substitutions that I don't always need or sometimes need more than once. They're also used in bind (and if you want to put a format statement or expression inside a binding script, it's better to use a helper procedure. Really) and some clock subcommands too (notably clock format and 8.5's clock scan).
AMG: Any reason why % can't be extended to work with real numbers? % is easier to type than fmod().