SuperStrict
Local file:String = AppArgs[0]
Print file
Print "Write: " + FileWriteAccess(file)
Print "Read:  " + FileReadAccess(file)
Print "Exec:  " + FileExecAccess(file)

Function FileWriteAccess:Int(path:String)
   Return CheckPermissions(path, 2)
End Function

'?Linux
Function FileReadAccess:Int(path:String)
   Return CheckPermissions(path, 4)
End Function

Function FileExecAccess:Int(path:String)
   Return CheckPermissions(path, 1)
End Function
'?

Rem
?Win32
Function FileReadAccess:Int(path:String)
   Return 1
End Function

Function FileExecAccess:Int(path:String)
   Return 1
End Function
?
End Rem

Extern "c"
   Function access_( path$z, mode:Int )="access"
End Extern

Function CheckPermissions:Int(path:String, amode:Int)
   FixPath path
   Return access_(path, amode) = 0
End Function

Function CheckPermissions2:Int(path:String, amode:Int)
   FixPath path
   Local mode:Int, size:Int, mtime:Int, ctime:Int
   If stat_(path, mode, size, mtime, ctime) Return 0
   Return ((mode & ~S_IFMT_) & amode) <> 0
End Function