Posted to tcl by dandyn at Mon Sep 09 11:03:10 GMT 2024view raw

  1. ### LIST FROM FILE
  2.  
  3. # Create a list from file.
  4.  
  5. proc ListFromFile {file} {
  6. return [lsearch -regexp -inline -all [lreplace [split [read [open $file r]] "\n"] end end] {^[^#]; close $file}]
  7. }