* auto.tcl, package.tcl: replaced SCCS strings with RCS strings

* tclIndex: updated index to reflect 8.1 files

3 files changed, 85 insertions, 31 deletions

diff --git a/library/auto.tcl b/library/auto.tcl
index dfb9b6c..6e731fc 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -3,7 +3,7 @@
 # utility procs formerly in init.tcl dealing with auto execution
 # of commands and can be auto loaded themselves.
 #
-# SCCS: @(#) auto.tcl 1.1 98/01/07 11:21:02
+# RCS: @(#) $Id: auto.tcl,v 1.1.2.3 1998/10/05 18:46:03 stanton Exp $
 #
 # Copyright (c) 1991-1993 The Regents of the University of California.
 # Copyright (c) 1994-1998 Sun Microsystems, Inc.
@@ -130,16 +130,12 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} {
 # parse Tcl source files, writing out index entries as "proc"
 # commands are encountered.  This implementation won't work in a
 # safe interpreter, since a safe interpreter can't create the
-# special parser and mess with its commands.  If this is a safe
-# interpreter, we simply clip these procs out.
+# special parser and mess with its commands.  
 
 if {[interp issafe]} {
     proc auto_mkindex {dir args} {
         error "can't generate index within safe interpreter"
     }
-    proc tcl_nonsafe {args} {}
-} else {
-    proc tcl_nonsafe {args} {eval $args}
 }
 
 # auto_mkindex --
@@ -154,7 +150,7 @@ if {[interp issafe]} {
 #		names of files within dir.  If no additional
 #		are given auto_mkindex will look for *.tcl.
 
-tcl_nonsafe proc auto_mkindex {dir args} {
+proc auto_mkindex {dir args} {
     global errorCode errorInfo
 
     if {[interp issafe]} {
@@ -307,7 +303,7 @@ namespace eval auto_mkindex_parser {
 # Arguments: 
 # file -		Name of Tcl source file to be indexed.
 
-tcl_nonsafe proc auto_mkindex_parser::mkindex {file} {
+proc auto_mkindex_parser::mkindex {file} {
     variable parser
     variable index
     variable scriptFile
@@ -345,7 +341,7 @@ tcl_nonsafe proc auto_mkindex_parser::mkindex {file} {
 # The command is evaluated in the master interpreter, and can
 # use the variable auto_mkindex_parser::parser to get to the slave
 
-tcl_nonsafe proc auto_mkindex_parser::hook {cmd} {
+proc auto_mkindex_parser::hook {cmd} {
     variable initCommands
 
     lappend initCommands $cmd
@@ -356,7 +352,7 @@ tcl_nonsafe proc auto_mkindex_parser::hook {cmd} {
 # slave interpreter used by the mkindex parser.
 # The command is evaluated in the slave interpreter.
 
-tcl_nonsafe proc auto_mkindex_parser::slavehook {cmd} {
+proc auto_mkindex_parser::slavehook {cmd} {
     variable initCommands
 
     lappend initCommands "\$parser eval [list $cmd]"
@@ -378,7 +374,7 @@ tcl_nonsafe proc auto_mkindex_parser::slavehook {cmd} {
 # arglist -		Argument list for command.
 # body -		Implementation of command to handle indexing.
 
-tcl_nonsafe proc auto_mkindex_parser::command {name arglist body} {
+proc auto_mkindex_parser::command {name arglist body} {
     hook [list auto_mkindex_parser::commandInit $name $arglist $body]
 }
 
@@ -386,7 +382,7 @@ tcl_nonsafe proc auto_mkindex_parser::command {name arglist body} {
 # This does the actual work set up by auto_mkindex_parser::command
 # This is called when the interpreter used by the parser is created.
 
-tcl_nonsafe proc auto_mkindex_parser::commandInit {name arglist body} {
+proc auto_mkindex_parser::commandInit {name arglist body} {
     variable parser
 
     set ns [namespace qualifiers $name]
@@ -432,7 +428,7 @@ tcl_nonsafe proc auto_mkindex_parser::commandInit {name arglist body} {
 # Arguments:
 # name -		Name that is being added to index.
 
-tcl_nonsafe proc auto_mkindex_parser::fullname {name} {
+proc auto_mkindex_parser::fullname {name} {
     variable contextStack
 
     if {![string match ::* $name]} {
@@ -458,7 +454,7 @@ tcl_nonsafe proc auto_mkindex_parser::fullname {name} {
 # AUTO MKINDEX:  proc name arglist body
 # Adds an entry to the auto index list for the given procedure name.
 
-tcl_nonsafe auto_mkindex_parser::command proc {name args} {
+auto_mkindex_parser::command proc {name args} {
     variable index
     variable scriptFile
     append index "set [list auto_index([fullname $name])]"
@@ -477,7 +473,7 @@ tcl_nonsafe auto_mkindex_parser::command proc {name args} {
 # procedure does the import operation, but keeps track of imported
 # patterns so we can remove the imports later.
 
-tcl_nonsafe auto_mkindex_parser::command namespace {op args} {
+auto_mkindex_parser::command namespace {op args} {
     switch -- $op {
         eval {
             variable parser
@@ -507,4 +503,4 @@ tcl_nonsafe auto_mkindex_parser::command namespace {op args} {
     }
 }
 
-rename tcl_nonsafe ""
+return
diff --git a/library/package.tcl b/library/package.tcl
index 9ab8231..70e9064 100644
--- a/library/package.tcl
+++ b/library/package.tcl
@@ -3,7 +3,7 @@
 # utility procs formerly in init.tcl which can be loaded on demand
 # for package management.
 #
-# SCCS: @(#) package.tcl 1.5 98/01/28 17:07:30
+# RCS: @(#) $Id: package.tcl,v 1.1.2.3 1998/10/05 18:46:03 stanton Exp $
 #
 # Copyright (c) 1991-1993 The Regents of the University of California.
 # Copyright (c) 1994-1998 Sun Microsystems, Inc.
diff --git a/library/tclIndex b/library/tclIndex
index 1806695..7a0e699 100644
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -6,25 +6,83 @@
 # element name is the name of a command and the value is
 # a script that loads the command.
 
-set auto_index(parray) [list source [file join $dir parray.tcl]]
+set auto_index(auto_reset) [list source [file join $dir auto.tcl]]
+set auto_index(tcl_findLibrary) [list source [file join $dir auto.tcl]]
+set auto_index(auto_mkindex) [list source [file join $dir auto.tcl]]
+set auto_index(auto_mkindex_old) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::init) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::cleanup) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::mkindex) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::hook) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::slavehook) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::command) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::commandInit) [list source [file join $dir auto.tcl]]
+set auto_index(::auto_mkindex_parser::fullname) [list source [file join $dir auto.tcl]]
+set auto_index(history) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistAdd) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistKeep) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistClear) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistInfo) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistRedo) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistIndex) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistEvent) [list source [file join $dir history.tcl]]
+set auto_index(::tcl::HistChange) [list source [file join $dir history.tcl]]
+set auto_index(unknown) [list source [file join $dir init.tcl]]
+set auto_index(auto_load) [list source [file join $dir init.tcl]]
+set auto_index(auto_load_index) [list source [file join $dir init.tcl]]
+set auto_index(auto_qualify) [list source [file join $dir init.tcl]]
+set auto_index(auto_import) [list source [file join $dir init.tcl]]
 set auto_index(tclLdAout) [list source [file join $dir ldAout.tcl]]
-set auto_index(tcl_wordBreakAfter) [list source [file join $dir word.tcl]]
-set auto_index(tcl_wordBreakBefore) [list source [file join $dir word.tcl]]
-set auto_index(tcl_endOfWord) [list source [file join $dir word.tcl]]
-set auto_index(tcl_startOfNextWord) [list source [file join $dir word.tcl]]
-set auto_index(tcl_startOfPreviousWord) [list source [file join $dir word.tcl]]
+set auto_index(pkg_mkIndex) [list source [file join $dir package.tcl]]
+set auto_index(tclPkgSetup) [list source [file join $dir package.tcl]]
+set auto_index(tclMacPkgSearch) [list source [file join $dir package.tcl]]
+set auto_index(tclPkgUnknown) [list source [file join $dir package.tcl]]
+set auto_index(parray) [list source [file join $dir parray.tcl]]
 set auto_index(::safe::interpCreate) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::interpInit) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::interpConfigure) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpStatics) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpNested) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::interpCreate) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::interpInit) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::CheckInterp) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::interpConfigure) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpCreate) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpSetConfig) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::interpFindInAccessPath) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::interpAddToAccessPath) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpInit) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::AddSubDirs) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::interpDelete) [list source [file join $dir safe.tcl]]
 set auto_index(::safe::setLogCmd) [list source [file join $dir safe.tcl]]
-set auto_index(history) [list source [file join $dir history.tcl]]
-set auto_index(pkg_mkIndex) [list source [file join $dir package.tcl]]
-set auto_index(tclPkgSetup) [list source [file join $dir package.tcl]]
-set auto_index(tclMacPkgSearch) [list source [file join $dir package.tcl]]
-set auto_index(tclPkgUnknown) [list source [file join $dir package.tcl]]
-set auto_index(auto_execok) [list source [file join $dir auto.tcl]]
-set auto_index(auto_reset) [list source [file join $dir auto.tcl]]
-set auto_index(auto_mkindex) [list source [file join $dir auto.tcl]]
+set auto_index(::safe::SyncAccessPath) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::InterpStateName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::IsInterp) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::PathToken) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::PathListName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::VirtualPathListName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::PathNumberName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::StaticsOkName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::NestedOkName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Toplevel) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Set) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Lappend) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Unset) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Exists) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::GetAccessPath) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::StaticsOk) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::NestedOk) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::DeleteHookName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::TranslatePath) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Log) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::CheckFileName) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::AliasSource) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::AliasLoad) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::FileInAccessPath) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::Subset) [list source [file join $dir safe.tcl]]
+set auto_index(::safe::AliasSubset) [list source [file join $dir safe.tcl]]
+set auto_index(tcl_wordBreakAfter) [list source [file join $dir word.tcl]]
+set auto_index(tcl_wordBreakBefore) [list source [file join $dir word.tcl]]
+set auto_index(tcl_endOfWord) [list source [file join $dir word.tcl]]
+set auto_index(tcl_startOfNextWord) [list source [file join $dir word.tcl]]
+set auto_index(tcl_startOfPreviousWord) [list source [file join $dir word.tcl]]