implementation module SaplStdEnvDir

import StdEnv, StdMaybe
import SaplTokenizer, Map, StringAppender, FastString, SaplStdEnvDir
import Platform, File, Directory

// Heuristic built-ins directory search by the path of the linker
sapl_stdenv_dir :: !String *World -> (Maybe String, !*World)
sapl_stdenv_dir base world
	# currdir = base +++ postfix
	= case isDirectory currdir world of
			(True, world) = (Just currdir, world)
			(_   , world) # nextbase = (fst (extractPathAndFile base))
						  = case nextbase == base of
						  		True = (Nothing, world)
						  			 = sapl_stdenv_dir nextbase world
where
	postfix = {path_separator} +++ "Libraries" +++ {path_separator} +++ "StdEnv" +++ {path_separator} +++ "Sapl"