mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-18 00:31:57 +03:00
27 lines
577 B
Idris
27 lines
577 B
Idris
|
import Data.Buffer
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
public export
|
||
|
|
interface Singleton (n : Nat) where
|
||
|
|
sing : (m : Nat ** m === n)
|
||
|
|
sing = (n ** Refl)
|
||
|
|
|
||
|
|
Singleton 3 where
|
||
|
|
Singleton 5 where
|
||
|
|
|
||
|
|
export
|
||
|
|
data ForeignPtr : Type -> Type where
|
||
|
|
MkFP : Buffer -> ForeignPtr a
|
||
|
|
|
||
|
|
public export
|
||
|
|
interface Storable (0 a : Type) (n : Nat) | a where
|
||
|
|
constructor MkStorable
|
||
|
|
peekByteOff : HasIO io => ForeignPtr a -> Int -> io a
|
||
|
|
|
||
|
|
peekElemOff : HasIO io => ForeignPtr a -> Int -> io a
|
||
|
|
peekElemOff fp off = peekByteOff fp (off * cast n)
|
||
|
|
|
||
|
|
Storable Bits8 8 where
|
||
|
|
peekByteOff (MkFP b) off = getBits8 b off
|