Re: My hang-up about OOP (snit)

On Wed, 26 Jun 2024 22:32:17 -0000 (UTC), Rich wrote:

As a thought experiment, consider how you'd make your 'dog' proc
'count' (say you have circus dogs that can 'count' ...) and imagine how
to give each of four different dogs their own, independent, counter to
store their current value into.
>
Then, compare the code you'd need to add to the dog proc to make a
'counting dog' proc with separate counter variables for each dog to the
code necessary to achieve the same result from the counting class
above.

lassign "1 1" c_01 c_02

proc countcees {cee} {
upvar \#0 $cee _cee
incr _cee
puts $_cee
}

countcees c_01
2
countcees c_01
3
countcees c_02
2
countcees c_02
3
countcees c_01
4


In reality though, nobody needs a proc for that.

incr c_o1
1
incr c_o2
1
incr c_o2
2
incr c_o2
3
incr c_o2
4
incr c_o1
2

--
Luc

>