<commit_before>#*******************************************************************************
# ALMA - Atacama Large Millimiter Array
#
# "@(#) $Id: generateSed.tcl,v 1.1 2008/05/16 12:41:02 eallaert Exp $"
#
# who       when      what
# --------  --------  ----------------------------------------------
# 

# Simple script (i.e. without error checking) to create an sed
# command-file which will replace pathnames by their corresponding 
# environment variable. To be used with tat, so that the reference 
# file is not dependent on a particular user or from which directory
# (s)he is running the tat-test.
set baseName [lindex $argv 0]

set fp [open ${baseName}.sed w]

puts $fp "s|$env(ACSROOT)|<ACSROOT>|g"
puts $fp "s|$env(INTROOT)|<INTROOT>|g"
puts $fp "s|$env(ACSDATA)|<ACSDATA>|g"
puts $fp "s|[pwd]|<pwd>|g"
puts $fp "s|$env(HOME)|<HOME>|g"
puts $fp "s|$env(HOSTNAME)|<HOSTNAME>|g"

close $fp
#
# ___oOo___
<commit_msg>The env var HOSTNAME does not seem to exist on the test-account on NRI. Replaced by [info hostname].<commit_after>#*******************************************************************************
# ALMA - Atacama Large Millimiter Array
#
# "@(#) $Id: generateSed.tcl,v 1.2 2008/05/19 11:15:07 eallaert Exp $"
#
# who       when      what
# --------  --------  ----------------------------------------------
# 

# Simple script (i.e. without error checking) to create an sed
# command-file which will replace pathnames by their corresponding 
# environment variable. To be used with tat, so that the reference 
# file is not dependent on a particular user or from which directory
# (s)he is running the tat-test.
set baseName [lindex $argv 0]

set fp [open ${baseName}.sed w]

set fqhostname [info hostname];			# fully qualified hostname
set hostname [lindex [split $fqhostname .] 0];	# basename only

puts $fp "s|$env(ACSROOT)|<ACSROOT>|g"
puts $fp "s|$env(INTROOT)|<INTROOT>|g"
puts $fp "s|$env(ACSDATA)|<ACSDATA>|g"
puts $fp "s|[pwd]|<pwd>|g"
puts $fp "s|$env(HOME)|<HOME>|g"
puts $fp "s|$fqhostname|<HOSTNAME>|g"
puts $fp "s|$hostname|<HOSTNAME>|g"

close $fp
#
# ___oOo___

{'fraction_non_alphanumeric': 0.26008542952064545, 'fraction_numerical': 0.016611295681063124, 'mean_word_length': 3.582608695652174, 'pattern_counts': {'":': 0, '<': 16, '<?xml version=': 0, '>': 16, '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': '2370286', 'n_tokens_mistral': 770, 'n_tokens_neox': 723, 'n_words': 221}