puts "This script identifies HDL files in a directory"
puts {Would you like to change target directory? [Y/N]}

set usrInput ""
gets stdin usrInput                                         
#Takes User Input 

if {$usrInput == "Y"} {
    puts "What your target directory?"
    set trgtDir [gets stdin]                                     
    #New Target Directory

    set configFile "config.txt"

    #At some point should add condition to check if config is empty and initialize smth
    
    set filePtr [open $configFile w]                        
    #Opens config.txt in write mode

    puts $filePtr "trgt_Dir=$trgtDir"

    puts "Target directory updated to: $trgtDir"

    close $filePtr
}

set configFile "config.txt"

set filePtr [open $configFile r]

set configTrgtDir ""

gets $filePtr configTrgtDir

set dirRec [split $configTrgtDir "="]

set configTrgtDir [lindex $dirRec 1]

puts "Targeting $configTrgtDir"

#Now we have the target directory

cd $configTrgtDir

set files [glob -nocomplain -type f *.v *.vhd]
if { [llength $files] > 0} {
    puts "Files:"
    foreach f [lsort $files] {
        puts "$f"
    }
} else {
    puts "(No Files)"
}