From 44b966187727772a263a3c73f9f2b04def50d82f Mon Sep 17 00:00:00 2001 From: stanton Date: Mon, 5 Oct 1998 18:46:03 +0000 Subject: * auto.tcl, package.tcl: replaced SCCS strings with RCS strings * tclIndex: updated index to reflect 8.1 files --- library/auto.tcl | 28 ++++++++--------- library/package.tcl | 2 +- library/tclIndex | 86 ++++++++++++++++++++++++++++++++++++++++++++--------- 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]] -- cgit v0.12