include file.e

sequence CommandLine,SUDir

CommandLine=command_line()


SUDir=""

if length(CommandLine)>2 then
  CommandLine=CommandLine[3]
  for k=length(CommandLine) to 1 by -1 do
    if CommandLine[k]='\\' then
      SUDir=CommandLine[1..k]
      exit
    end if
  end for
else
  SUDir=current_dir()&"\\"
end if

global function GetStartupDirectory()
  return SUDir
end function


global procedure SwitchToCurrentDirectory()
  sequence sudir
  atom icd

  sudir=GetStartupDirectory()
  icd=chdir(sudir)
end procedure