<commit_before>.HLL 'Tcl', 'tcl_group'
.namespace

.sub '&subst'
  .param pmc argv :slurpy
 
  .local int argc
  argc = elements argv 
  if argc == 0 goto badargs

  .local string a_string
 
  # XXX not handling options. 

  a_string = argv[0]

  # XXX not handling anything. Just a slightly better stub.
  .return (a_string)

badargs:
    tcl_error 'wrong # args: should be "subst ?-nobackslashes? ?-nocommands? ?-novariables? string"'

.end<commit_msg> r5116@avon:  cochrane | 2006-11-09 15:50:41 +0100  [tcl]: Added RT ticket #40779 to TODO item<commit_after>.HLL 'Tcl', 'tcl_group'
.namespace

.sub '&subst'
  .param pmc argv :slurpy
 
  .local int argc
  argc = elements argv 
  if argc == 0 goto badargs

  .local string a_string
 
  # XXX not handling options. 

  a_string = argv[0]

  # XXX (#40779): not handling anything. Just a slightly better stub.
  .return (a_string)

badargs:
    tcl_error 'wrong # args: should be "subst ?-nobackslashes? ?-nocommands? ?-novariables? string"'

.end
{'fraction_non_alphanumeric': 0.11411411411411411, 'fraction_numerical': 0.036036036036036036, 'mean_word_length': 3.310344827586207, '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': '6330955', 'n_tokens_mistral': 407, 'n_tokens_neox': 362, 'n_words': 119}