diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-02-13 17:51:00 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-02-13 17:51:00 -0800 |
commit | 28020fb827625d41c1252c9e34690114607506ec (patch) | |
tree | 0872144345372cb1e9a789d2af8683bafd1a3e49 | |
parent | b9b5bc1bb557657de2848252ca06f1c68138e397 (diff) | |
download | txr-28020fb827625d41c1252c9e34690114607506ec.tar.gz txr-28020fb827625d41c1252c9e34690114607506ec.tar.bz2 txr-28020fb827625d41c1252c9e34690114607506ec.zip |
Support horizontal form of @(throw).
* match.c (dir_tables_init): Wire throw_s into horizontal
dispatch table via hv_trampoline.
* txr.1: Documented.
-rw-r--r-- | match.c | 1 | ||||
-rw-r--r-- | txr.1 | 14 |
2 files changed, 15 insertions, 0 deletions
@@ -4580,6 +4580,7 @@ static void dir_tables_init(void) sethash(h_directive_table, choose_s, cptr(coerce(mem_t *, h_parallel))); sethash(h_directive_table, trailer_s, cptr(coerce(mem_t *, h_trailer))); sethash(h_directive_table, define_s, cptr(coerce(mem_t *, h_define))); + sethash(h_directive_table, throw_s, cptr(coerce(mem_t *, hv_trampoline))); sethash(h_directive_table, eol_s, cptr(coerce(mem_t *, h_eol))); sethash(h_directive_table, chr_s, cptr(coerce(mem_t *, h_chr))); sethash(h_directive_table, do_s, cptr(coerce(mem_t *, h_do))); @@ -9688,6 +9688,20 @@ can take whatever value the corresponding throw argument provides, so it ends up with .strn lc . +There is a horizontal form of +.codn throw . +For instance: + +.cblk + abc@(throw e 1) +.cble + +throws exception +.code e +if +.code abc +matches. + .dir defex The |