diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-24 07:13:05 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-24 07:13:05 -0700 |
| commit | 657217908b4a9e41de931b433b7b0a494abacb96 (patch) | |
| tree | d73870a3e31a0d31423449e5ef9c60b011c1c987 /share | |
| parent | 856c7188075a3e74ac4d9ef4dd665774f193d8d1 (diff) | |
| download | txr-657217908b4a9e41de931b433b7b0a494abacb96.tar.gz txr-657217908b4a9e41de931b433b7b0a494abacb96.tar.bz2 txr-657217908b4a9e41de931b433b7b0a494abacb96.zip | |
awk macro: fconv conversions iz, xz, oz, bz and rz.
* share/txr/stdlib/conv.tl (sys:conv-let): New
flets iz, oz, xz, bz and rz.
* txr.1: Documented under fconv.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/conv.tl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/share/txr/stdlib/conv.tl b/share/txr/stdlib/conv.tl index 546b8759..9a25f8c5 100644 --- a/share/txr/stdlib/conv.tl +++ b/share/txr/stdlib/conv.tl @@ -33,7 +33,17 @@ (b (arg) (toint arg 2)) (r (arg) - (tofloat arg))) + (tofloat arg)) + (iz (arg : radix) + (tointz arg radix)) + (oz (arg) + (tointz arg 8)) + (xz (arg) + (tointz arg 16)) + (bz (arg) + (tointz arg 2)) + (rz (arg) + (tofloatz arg))) ,*body)) (defun sys:do-conv (lfl mfl tfl nm list) |