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 /stdlib/termios.tl | |
| 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 'stdlib/termios.tl')
| -rw-r--r-- | stdlib/termios.tl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/termios.tl b/stdlib/termios.tl index 1689ecaa..6059149e 100644 --- a/stdlib/termios.tl +++ b/stdlib/termios.tl @@ -25,28 +25,28 @@ ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ;; POSSIBILITY OF SUCH DAMAGE. (defmeth termios set-iflags (tio . values) - (set tio.iflag (logior tio.iflag . values))) + (set-mask tio.iflag . values)) (defmeth termios set-oflags (tio . values) - (set tio.oflag (logior tio.oflag . values))) + (set-mask tio.oflag . values)) (defmeth termios set-cflags (tio . values) - (set tio.cflag (logior tio.cflag . values))) + (set-mask tio.cflag . values)) (defmeth termios set-lflags (tio . values) - (set tio.lflag (logior tio.lflag . values))) + (set-mask tio.lflag . values)) (defmeth termios clear-iflags (tio . values) - (set tio.iflag (logand tio.iflag (lognot (logior . values))))) + (clear-mask tio.iflag . values)) (defmeth termios clear-oflags (tio . values) - (set tio.oflag (logand tio.oflag (lognot (logior . values))))) + (clear-mask tio.oflag . values)) (defmeth termios clear-cflags (tio . values) - (set tio.cflag (logand tio.cflag (lognot (logior . values))))) + (clear-mask tio.cflag . values)) (defmeth termios clear-lflags (tio . values) - (set tio.lflag (logand tio.lflag (lognot (logior . values))))) + (clear-mask tio.lflag . values)) (defmeth termios go-raw (tio) tio.(clear-iflags ignbrk brkint parmrk istrip inlcr igncr icrnl ixon) |