proc module {args} {
   global env; 
   set script {}; 
   if {[catch { set script [eval exec "/usr/bin/tclsh" "/usr/lib/arm-linux-gnueabihf/modulecmd.tcl" "tcl" $args] } msg]} {
      puts $msg
   }; 
   uplevel $script; 
}

set env(MODULESHOME) /usr

if {![info exists env(MODULEPATH)]} {
   if {[file readable /usr/init/.modulespath]} {
      set fid [open "/usr/init/.modulespath" r]
      set fdata [split [read $fid] "\n"]
      close $fid
      set pathlist {}
      foreach fline $fdata {
         if {[regexp {^\s*(.*?)[\s#].*$} $fline match patharg] == 1} {
            if {$patharg ne ""} {
               lappend pathlist $patharg
            }
         }
      }
      set env(MODULEPATH) [join $pathlist ":"]
   } else {
      set env(MODULEPATH) ""
   }
}

if {![info exists env(LOADEDMODULES)]} {
   set env(LOADEDMODULES) ""
}

# load modulerc only if module environment is empty
if {[file readable /usr/init/modulerc] && $env(MODULEPATH) eq "" && $env(LOADEDMODULES) eq ""} {
   source /usr/init/modulerc
}
