home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 15_2.tcl < prev    next >
Text File  |  2003-04-15  |  508b  |  25 lines
  1. #
  2. # Example 15-2
  3. # Using scripts in nonstandard encodings.
  4. #
  5.  
  6. proc Source {args} {
  7.     set file [lindex $args end]
  8.     if {[llength $args] == 3 && 
  9.             [string equal -encoding [lindex $args 0]]} {
  10.         set encoding [lindex $args 1]
  11.         set in [open $file]
  12.         fconfigure $in -encoding $encoding
  13.         set script [read $in]
  14.         close $in
  15.         return [uplevel 1 $script]
  16.     } elseif {[llength $args] == 1} {
  17.         return [uplevel 1 [list source $file]]
  18.     } else {
  19.         return -code error \
  20.             "Usage: Source ?-encoding encoding? file?"
  21.     }
  22. }
  23.  
  24.  
  25.