“however I’ve found that’s not always the case in Tcl (or how it’s implemented in Cloverleaf).”
Can you be more specific? Tcl as implemented in Cloverleaf uses the same precedence rules as Tcl anywhere. Also, to the best of my knowledge Tcl uses the same precedence rules as most languages. I cannot think of one that is different.
https://www.tutorialspoint.com/tcl-tk/tcl_operators_precedence.htm
Operator precedence determines the grouping of terms in an expression. This affects how an expression is evaluated. Certain operators have higher precedence than others; for example, the multiplication operator has higher precedence than the addition operator.
<b>For example</b> : x = 7 + 3 * 2; here, x is assigned 13, not 20 because operator * has higher precedence than +, so it first gets multiplied with 3 * 2 and then adds into 7.
Here, operators with the highest precedence appear at the top of the table, those with the lowest appear at the bottom. Within an expression, higher precedence operators will be evaluated first.
Category |
Operator |
Associativity |
Unary |
+ – |
Right to left |
Multiplicative |
* / % |
Left to right |
Additive |
+ – |
Left to right |
Shift |
<< >> |
Left to right |
Relational |
< <= > >= |
Left to right |
Equality |
== != |
Left to right |
Bitwise AND |
& |
Left to right |
Bitwise XOR |
^ |
Left to right |
Bitwise OR |
| |
Left to right |
Logical AND |
&& |
Left to right |
Logical OR |
|| |
Left to right |
Ternary |
?: |
Right to left |
Example
Try the following example to understand the operator precedence available in Tcl language −
<pre class=”prettyprint notranslate prettyprinted”>#!/usr/bin/tclsh
set a 20
set b 10
set c 15
set d 5
set e [expr [expr $a + $b] * $c / $d ] ;# ( 30 * 15 ) / 5
puts “Value of (a + b) * c / d is : $e\n”
set e [expr [expr [expr $a + $b] * $c] / $d] ;# (30 * 15 ) / 5]
puts “Value of ((a + b) * c) / d is : $e\n”
set e [expr [expr $a + $b] * [expr $c / $d] ] ;# (30) * (15/5)
puts “Value of (a + b) * (c / d) is : $e\n”
set e [expr $a + [expr $b * $c ] / $d ] ;# 20 + (150/5)
puts “Value of a + (b * c) / d is : $e\n”</pre>
When you compile and execute the above program, it produces the following result −
<pre class=”result notranslate”>Value of (a + b) * c / d is : 90
Value of ((a + b) * c) / d is : 90
Value of (a + b) * (c / d) is : 90
Value of a + (b * c) / d is : 50</pre>