# Save this file as glob_basics.tcl and execute it within Cutter
# Malcolm Kesson
# 5 Feb 2004

puts "\n"

# Example 1 Using glob for simple pattern matching
set dir "H:/__TARGET_DIR__"
puts "Directory contents are:\n[glob -directory $dir *]"

puts "\n"

# Example 2 Using glob to set a list of item in a directory
set dir "H:/__TARGET_DIR__"
set contents [glob -directory $dir *]

puts "Directory contents are:"
foreach item $contents {
	puts $item
	}

puts "\n"

# Example 3 Using the -nocomplain flag to prevent error messages
set dir H:/__TARGET_DIR__
set contents [glob -nocomplain -directory $dir *.does_not_exist]

puts "Directory contents are:\n"
foreach item $contents {
	puts $item
	}

puts "\n"

# Example 4 Defining and using a proc

# A simple proc that prints a list to the console.
# Refer to list_basic.tcl
proc printDir { inlist } {
	foreach item $inlist {
		if { [llength $inlist] > 1 } {
			printDir $item 
		} else {
			puts $item
		}
	}
}

set dir /Users/malcolmkesson/Documents/WebSite/tutorials/tcl
set contents [glob -nocomplain -directory $dir *]

printDir $contents

puts "\n"