This is TclInit.tcl in view mode; [Download] [Up]
# Copyright 1994 by TransSys, Inc.
#
# $Header: /local/SRCS/slip2/pnid/TclInit.tcl,v 1.2 1994/05/27 02:34:08 louie Exp $
proc unknown args {
error "Unknown function invocation: [lindex $args 0]"
}
if $tcl_interactive {
if ![info exists tcl_prompt1] {
set tcl_prompt1 { global argv0;
puts -nonewline stderr "[file tail $argv0] ([history nextid])>" }
}
if ![info exists tcl_prompt2] {
set tcl_prompt2 {puts -nonewline stderr "=>" }
}
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.