test[S8FFI] constants

SwikiCodeRobot @> #testS8FFIConstants

"Accessing FFI constants"
#( ok sysv
) do: [:key| self print: #ffi ,' ',key ,'=' ,(S8FFI current ffi: key)
]

"Accessing RTLD constants"
#( default first global lazy
   local main_only next
   noDelete noLoad now self
) do: [:key| self print: #rtld ,' ',key ,'=' ,(S8FFI current rtld: key)
]

"Accessing ABI constants"
#( bad default first last
) do: [:key| self print: #abi ,' ',key ,'=' ,(S8FFI current abi: key)
]

"Accessing other constants"
self print: #version ,'=' ,S8FFI current version printString.
self print: #hasObjC ,'=' ,S8FFI current hasObjC.
self print: #libExt ,'=' ,S8FFI current libExt printString.