Lines Matching +refs:safe +refs:PathToken
0 # safe.tcl --
3 # This file provide a safe loading/sourcing mechanism for safe interpreters.
8 # See the safe.n man page for details.
15 # RCS: @(#) $Id: safe.tcl,v 1.16.4.8 2010/09/02 18:30:29 andreas_kupries Exp $
27 # Create the safe namespace
28 namespace eval ::safe {
36 proc ::safe::InterpStatics {} {
55 proc ::safe::InterpNested {} {
82 proc ::safe::interpCreate {args} {
83 set Args [::tcl::OptKeyParse ::safe::interpCreate $args]
88 proc ::safe::interpInit {args} {
89 set Args [::tcl::OptKeyParse ::safe::interpIC $args]
98 proc ::safe::CheckInterp {slave} {
99 namespace upvar ::safe S$slave state
102 "\"$slave\" is not an interpreter managed by ::safe::"
108 # between the way we store the configuration values in safe::interp's and
119 proc ::safe::interpConfigure {args} {
126 set Args [::tcl::OptKeyParse ::safe::interpIC $args]
128 namespace upvar ::safe S$slave state
143 set desc [lindex [::tcl::OptKeyGetDesc ::safe::interpIC] 2]
151 namespace upvar ::safe S$slave state
182 set Args [::tcl::OptKeyParse ::safe::interpIC $args]
184 namespace upvar ::safe S$slave state
234 # safe::InterpCreate : doing the real job
236 # This procedure creates a safe slave and initializes it with the safe
253 proc ::safe::InterpCreate {
262 ::interp create -safe $slave
265 set slave [::interp create -safe]
282 proc ::safe::InterpSetConfig {slave access_path staticsok nestedok deletehook} {
315 namespace upvar ::safe S$slave state
332 set token [PathToken $i]
352 set token [PathToken $i]
389 proc ::safe::interpFindInAccessPath {slave path} {
390 namespace upvar ::safe S$slave state
403 proc ::safe::interpAddToAccessPath {slave path} {
406 namespace upvar ::safe S$slave state
413 set token [PathToken [llength $state(access_path)]]
426 # interpreter. It is useful when you want to install the safe base aliases
427 # into a preexisting safe interpreter.
428 proc ::safe::InterpInit {
494 namespace upvar ::safe S$slave state
504 proc ::safe::AddSubDirs {pathList} {
524 # This procedure deletes a safe slave managed by Safe Tcl and cleans up
527 proc ::safe::interpDelete {slave} {
530 namespace upvar ::safe S$slave state
569 proc ::safe::setLogCmd {args} {
583 proc ::safe::Log {args} {}
587 proc ::safe::Log {slave msg {type ERROR}} {
601 proc ::safe::SyncAccessPath {slave} {
602 namespace upvar ::safe S$slave state
619 proc ::safe::PathToken {n} {
628 proc ::safe::TranslatePath {slave path} {
629 namespace upvar ::safe S$slave state
644 proc ::safe::CheckFileName {slave file} {
647 # for 8.4 as a safe interp has enough internal protection already to
661 # AliasGlob is the target of the "glob" alias in safe interpreters.
662 proc ::safe::AliasGlob {slave args} {
791 # AliasSource is the target of the "source" alias in safe interpreters.
793 proc ::safe::AliasSource {slave args} {
865 # AliasLoad is the target of the "load" alias in safe interpreters.
867 proc ::safe::AliasLoad {slave file args} {
878 namespace upvar ::safe S$slave state
941 proc ::safe::FileInAccessPath {slave file} {
942 namespace upvar ::safe S$slave state
954 namespace upvar ::safe S$slave state
960 proc ::safe::DirInAccessPath {slave dir} {
961 namespace upvar ::safe S$slave state
972 namespace upvar ::safe S$slave state
978 # This procedure enables access from a safe interpreter to only a subset
981 proc ::safe::Subset {slave command okpat args} {
998 proc ::safe::AliasSubset {slave alias target args} {
1004 # AliasEncoding is the target of the "encoding" alias in safe interpreters.
1006 proc ::safe::AliasEncoding {slave option args} {
1035 proc ::safe::AliasExeName {slave} {
1039 proc ::safe::Setup {} {
1059 } ::safe::interpCreate
1063 lappend ::tcl::OptDesc(::safe::interpCreate) $::tcl::OptDesc($temp)
1068 } ::safe::interpIC
1072 lappend ::tcl::OptDesc(::safe::interpIC) $::tcl::OptDesc($temp)
1091 namespace eval ::safe {
1116 ::safe::Setup