<commit_before># global port routines
package provide portextract 1.0
package require portutil 1.0

register target extract portextract::main 
register requires extract fetch checksum

namespace eval portextract {
	variable options
}

# define globals
globals portextract::options

# define options
options portextract::options extract_only extract_command extract_before_args extract_after_args

proc portextract::main {args} {
	global portname portpath portdir workdir distname distpath distfiles use_bzip2

	# Set up defaults
	default portextract::options extract_only $distfiles
	default portextract::options extract_cmd gzip
	default portextract::options extract_before_args -dc
	default portextract::options extract_after_args "| tar -xf -"

	if [info exists use_bzip2] {
	    puts "XXX using bzip2 man"
		setval portextract::options extract_cmd bzip2
	} elseif [info exists use_zip] {
		setval portextract::options extract_cmd unzip
		setval portextract::options extract_before_args -q
		setval portextract::options extract_after_args -d $portdir/$workdir
	}

	puts "Extracting for $distname"
	if [file exists $workdir] {
		file delete -force $portdir/$workdir
	}

	file mkdir $portdir/$workdir
	cd $portdir/$workdir
	foreach distfile [getval portextract::options extract_only] {
		puts -nonewline "$distfile: "
		flush stdout
		set cmd "[getval portextract::options extract_cmd] [getval portextract::options extract_before_args] $distpath/$distfile [getval portextract::options extract_after_args]"
		if [catch {system $cmd} result] {
			puts $result
			return -1
		}
		puts "done"
	}
	return 0
}
<commit_msg>Follow C-style structure.member formatting for closely related variables<commit_after># global port routines
package provide portextract 1.0
package require portutil 1.0

register target extract portextract::main 
register requires extract fetch checksum

namespace eval portextract {
	variable options
}

# define globals
globals portextract::options extract.only extract.cmd extract.before_args extract.after_args

# define options
options portextract::options extract.only extract.cmd extract.before_args extract.after_args

proc portextract::main {args} {
	global portname portpath portdir workdir distname distpath distfiles use_bzip2

	# Set up defaults
	default portextract::options extract.only $distfiles
	default portextract::options extract.cmd gzip
	default portextract::options extract.before_args -dc
	default portextract::options extract.after_args "| tar -xf -"

	if [info exists use_bzip2] {
	    puts "XXX using bzip2 man"
		setval portextract::options extract.cmd bzip2
	} elseif [info exists use_zip] {
		setval portextract::options extract.cmd unzip
		setval portextract::options extract.before_args -q
		setval portextract::options extract.after_args -d $portdir/$workdir
	}

	puts "Extracting for $distname"
	if [file exists $workdir] {
		file delete -force $portdir/$workdir
	}

	file mkdir $portdir/$workdir
	cd $portdir/$workdir
	foreach distfile [getval portextract::options extract.only] {
		puts -nonewline "$distfile: "
		flush stdout
		set cmd "[getval portextract::options extract.cmd] [getval portextract::options extract.before_args] $distpath/$distfile [getval portextract::options extract.after_args]"
		if [catch {system $cmd} result] {
			puts $result
			return -1
		}
		puts "done"
	}
	return 0
}

{'fraction_non_alphanumeric': 0.07694601849090367, 'fraction_numerical': 0.005964807634953773, 'mean_word_length': 5.3283018867924525, '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': '5495362', 'n_tokens_mistral': 1043, 'n_tokens_neox': 993, 'n_words': 315}