🚀 go-pugleaf

In article <1230@cluster.cs.su.oz.au> steve@cluster.cs.su.oz (Stephen Russell) writes:
>Herman Stevens asks:
>>I fail to see how I can do a bitwise EXOR, something you
>>can easily write in C as :
>>
>>         tmpbuf[i] = inbuf[i]^key[kp]
>>
>>Can someone help me on this ?
>
>It ain't as simple as in C (but then neither are bit-ands and ors). Try
>using the symmetric set difference operator by casting. Something
>like this might work:
>
>	tmpbuf[i] := CARDINAL(BITSET(inbuf[i]) / BITSET(key[kp]))

Well, if you want to fiddle bits, use BITSETs in the first place.
Then, assuming you've declared all your variables as arrays
of BITSET, you simply write

	tmpbuf[i] := inbuf[i] / key[kp]

I think "symmetric set difference" is a rather unhelpful name,
but perhaps it's more common in Europe.

Note also that the BITSET idea is handy for testing and setting
particular bits.

	IF 2 IN key[kp] THEN ...

or

	tmpbuf[i] := key[kp] + {5, 7}

-- 
Preston Briggs				looking for the great leap forward
preston@titan.rice.edu