Re: Bitwise ops in RPG (was: Re: Determining *DS4 support)

On Tue, 14 Nov 2000 boldt@ca.ibm.com wrote:

> This begs the question:  What syntax would you prefer for bitwise
> operations?
> 
> a) infix operators:
>       x ANDB y
>       x ORB y
>       x XORB y
>       NOTB y
> 
>    (&& and || (like in C) are problematical for us since '|' is
>    not in the invariant EBCDIC code page.)
> 
> b) built-in functions:
>       %BITAND(x:y)
>       %BITOR(x:y)
>       %BITXOR(x:y)
>       %BITNOT(x)
> 
> Cheers!  Hans
> 
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
> 

Hi Hans,

I'm trying to envision using these bitwise operators in the real world,
and I'm wondering how you'd use a BIF version, say for example %BITOR,
with more than 2 arguments.

For example, with the "infix" notation, you might have something like
this:

C                   eval      fd = open(%addr(Filename): 
C                              O_CREAT orb O_TRUNC orb O_WRONLY:
C                              S_IRUSR orb S_IWUSR orb S_IRGRP orb S_IWGRP)

With %BITOR would it look like this:

C                   eval      fd = open(%addr(Filename): 
C                              %BITOR(O_CREAT:O_TRUNC:O_WRONLY):
C                              %BITOR(S_IRUSR:S_IWUSR:S_IRGRP:S_IWGRP))

Or would we have to use something like this (yuck):

C                   eval      fd = open(%addr(Filename): 
C                             %BITOR(O_CREAT: %BITOR(O_TRUNC:O_WRONLY) ):
C                             %BITOR(S_IRUSR:%BITOR(S_IWUSR: 
%BITOR(S_IRGRP:S_IWGRP))) )


I can't really give my 2 cents without knowing which way it'd work, but I
think of the three examples above, I'd prefer the middle one, and I'd take
the first one as my 2nd choice.

Thanks!



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---