home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tclsrc / TclInit.tcl < prev    next >
Encoding:
Text File  |  1994-01-11  |  1.0 KB  |  34 lines
  1. #-----------------------------------------------------------------------------
  2. # TclInit.tcl -- Extended Tcl initialization.
  3. #-----------------------------------------------------------------------------
  4. # $Id: TclInit.tcl,v 3.1 1994/01/11 06:31:35 markd Exp $
  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.