parse source opsys . thisRexxProgram
rexxProgramDir=filespec("location",thisRexxProgram)

say "opsys          :" opsys
say "thisRexxProgram:" thisRexxProgram
say "rexxProgramDir :" rexxProgramDir
say "directory()    :" directory()
say

if opsys[1]="W" then    -- Windows?
do
   tmpDir =value("TMP"        , ,"ENVIRONMENT")
   tempDir=value("TEMP"       , ,"ENVIRONMENT")
   homeDir=value("USERPROFILE", ,"ENVIRONMENT")
end
else        -- Unix
do
   tmpDir ="/tmp"
   tempDir="/tmp"
   homeDir=value("HOME", , "ENVIRONMENT")
end

say "directories:"
say "tmpDir       :" tmpDir
say "tempDir      :" tempDir
say "homeDir      :" homeDir
say "---"
say

say "according to Java:"
say "directory() -> property 'user.dir'      :" .java.lang.System~getProperty("user.dir")
say "homeDir     -> property 'user.home'     :" .java.lang.System~getProperty("user.home")
say "tmpDir      -> property 'java.io.tmpdir':" .java.lang.System~getProperty("java.io.tmpdir")

::requires BSF.CLS