| 12345678910111213141516171819202122232425 |
- ' filemode.bmx
- SuperStrict
- ' the following function converts the file mode to
- ' the standard unix permission bits string
- Function Permissions:String(mode:Int)
- Local testbit:Int, pos:Int
- Local p:String = "rwxrwxrwx"
- testbit = %100000000
- pos = 1
- Local res:String
- While (testbit)
- If mode & testbit
- res :+ Mid(p, pos, 1)
- Else
- res :+ "-"
- EndIf
- testbit = testbit Shr 1
- pos :+ 1
- Wend
- Return res
- End Function
- Print Permissions(FileMode("filemode.bmx"))
|
