# <20180514.1916.52>

set sc [info script]
set platform [regsub {\.tcl} [file tail $sc] {}]
#
# This is platform stuff generated by the "Filerunner" project.
# To add to this group, drop new files in this directory and make
# a new tclIndex. This file MUST be named <platform>.tcl where
# <platform> is what ::tcl_platform(platform) returns.
# 
# This file is a package and will be so found by pkg_mkIndex.
# If it is required that a file be sourced on "package request" (e.g. they
# contain replacements for already present commands) include a
# command with "load_now" in its name e.g.
# proc load_now_auto_execok {} {}

package provide $platform 0.1

if {$::tcl_platform(platform) != $platform} {return}

# We use the apply command so that we can have a stack frame on which
# to build a private auto_index (this is NOT ::auto_index) and, at the
# same time not leaving a, now useless, command lying around in memory.

# We use this form of package to make it easy to:
# A. Add new bits of code and
# B. Make it easy to group a bunch of these base on one easy package require call

# Note that the "body" code for the apply is enclosed in {}s. This insures that
# the "body" is not evaluated until needed.

apply [list [list dir]\
	   {if {$dir ni $::auto_path} {
	     lappend ::auto_path $dir
	   } 
	     source $dir/tclIndex
	     foreach  {fun ad} [array get auto_index] {
	       if {[string match {*load_now*} $fun]} {
		 eval $fun
	       }
	     }
	   }] [file dir $sc]


