diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-09-12 00:43:22 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-14 00:19:02 -0700 |
| commit | 7c174401f4926683d26e5b638b95d8956cfdb211 (patch) | |
| tree | dba83899339f3621eb26d9e6bddf7c42855127b3 /txr.1 | |
| parent | 44f4ef01ce095d334769b071460f19c5d74217c3 (diff) | |
| download | txr-7c174401f4926683d26e5b638b95d8956cfdb211.tar.gz txr-7c174401f4926683d26e5b638b95d8956cfdb211.tar.bz2 txr-7c174401f4926683d26e5b638b95d8956cfdb211.zip | |
defset: add set-mask and clear-mask.
* stdlib/defset.tl (set-mask, clear-mask): New update macros.
* stdlib/optimize.tl (calc-liveness): Use the new macros.
* stdlib/socket.tl (sys:str-inaddr-net-impl, str-in6addr-net):
Same.
* stdlib/termios.tl (set-iflags, set-oflags, set-cflags,
set-lflags, clear-iflags, clear-oflags, clear-cflags,
clear-lflags): Same.
* lisplib.c (defset_set_entries): Add set-mask and clear-mask
to autoload symbols for defset.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'txr.1')
| -rw-r--r-- | txr.1 | 40 |
1 files changed, 40 insertions, 0 deletions
@@ -14035,6 +14035,20 @@ operational pipeline to the value of and stores the result back into .metn place . +.meIP (set-mask < place << integer *) +Sets to 1 the bits in +.meta place +corresponding to bits that are equal to 1 in the mask made up of the +.meta integer +arguments (by combining them together with the inclusive or operation). + +.meIP (clear-mask < place << integer *) +Clears (sets to 0) the bits in +.meta place +corresponding to bits that are equal to 1 in the mask made up of the +.meta integer +arguments (by combining them together with the inclusive or operation). + .PP .SS* Namespaces and Environments @@ -47094,6 +47108,32 @@ is zero, the value returned is zero. The argument may be a character. +.coNP Macros @ set-mask and @ clear-mask +.synb +.mets (set-mask < place << integer *) +.mets (clear-mask < place << integer *) +.syne +.desc +The +.code set-mask +and +.code clear-mask +macros set to 1 and 0, respectively, the bits in +.meta place +corresponding to bits that are equal to 1 in the mask resulting from +applying the inclusive or operation to the +.meta integer +arguments. +The following equivalences hold: + +.verb + (set-mask place integer ...) + <--> (set place (logior place integer ...) + + (clear-mask place integer ...) + <--> (set place (logand place (lognot (logior integer ...)))) +.brev + .SS* User-Defined Arithmetic Types \*(TL makes it possible for the user application program to define structure |