home *** CD-ROM | disk | FTP | other *** search
/ Serving the Web / ServingTheWeb1995.disc1of1.iso / linux / slacksrce / tcl / tcl+tk+t / tclx7.3bl / tclx7 / tclX7.3b / tclsrc / TclInit.tcl < prev    next >
Encoding:
Text File  |  1994-07-16  |  1.0 KB  |  34 lines
  1. #-----------------------------------------------------------------------------
  2. # TclInit.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: TclInit.tcl,v 4.0 1994/07/16 05:29:51 markd Rel $
  5. #-----------------------------------------------------------------------------
  6.  
  7. #
  8. # Unknown command trap handler.
  9. #
  10. proc unknown args {
  11.     if [auto_load [lindex $args 0]] {
  12.         return [uplevel 1 $args]
  13.     }
  14.     if {([info proc tclx_unknown2] == "") && ![auto_load tclx_unknown2]} {
  15.         error "can't find tclx_unknown2 on auto_path"
  16.     }
  17.     return [tclx_unknown2 $args]
  18. }
  19.  
  20. set auto_index(buildpackageindex) {source [info library]/buildidx.tcl}
  21.  
  22. # == Put any code you want all Tcl programs to include here. ==
  23.  
  24. if !$tcl_interactive return
  25.  
  26. # == Interactive Tcl session initialization ==
  27.  
  28. if ![info exists tcl_prompt1] {
  29.     set tcl_prompt1 {global argv0; puts -nonewline stdout [file tail $argv0]>}
  30. }
  31. if ![info exists tcl_prompt2] {
  32.     set tcl_prompt2 {puts -nonewline stdout =>}
  33. }
  34.