<commit_before>.include "languages/tcl/lib/returncodes.pir"

=head1 exception handling macros

Exception creation can be fairly verbose. These macros provide an API
of sorts to the exceptions.

=cut

=head2 catch ()

Preamble for any tcl-related exception handler.

=cut

.macro catch ()
  .sym pmc exception
  get_results "(0)", exception
.endm

=head2 rethrow ()

Re-throw the current exception

=cut

.macro rethrow ()<commit_msg>tcl - Make .catch() actually get the right # of args in an exception handler.<commit_after>.include "languages/tcl/lib/returncodes.pir"

=head1 exception handling macros

Exception creation can be fairly verbose. These macros provide an API
of sorts to the exceptions.

=cut

=head2 catch ()

Preamble for any tcl-related exception handler.

=cut

.macro catch ()
  .sym pmc exception
  .sym string exception_message_unused_XXX
  get_results '(0,0)', exception, exception_message_unused_XXX
.endm

=head2 rethrow ()

Re-throw the current exception

=cut

.macro rethrow ()
{'fraction_non_alphanumeric': 0.0845771144278607, 'fraction_numerical': 0.008955223880597015, 'mean_word_length': 4.322751322751323, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6173391', 'n_tokens_mistral': 323, 'n_tokens_neox': 310, 'n_words': 116}