mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
68 lines
2.2 KiB
Idris
68 lines
2.2 KiB
Idris
||| Additional FFI help for more interesting C types
|
|
module System.FFI
|
|
-- Some assumptions are made about the existence of this module in
|
|
-- Compiler.CompileExpr
|
|
|
|
|
|
%default total
|
|
|
|
||| A struct with a name and a list of key-value pairs of field names and their
|
|
||| types.
|
|
export
|
|
data Struct : String -> -- C struct name
|
|
List (String, Type) -> -- field names and types
|
|
Type where
|
|
|
|
||| A proof that the field exists as an entry in the list of field names and
|
|
||| their types.
|
|
public export
|
|
data FieldType : String -> Type -> List (String, Type) -> Type where
|
|
First : FieldType n t ((n, t) :: ts)
|
|
Later : FieldType n t ts -> FieldType n t (f :: ts)
|
|
|
|
%extern
|
|
prim__getField : {s : _} -> forall fs, ty .
|
|
Struct s fs -> (n : String) ->
|
|
FieldType n ty fs -> ty
|
|
%extern
|
|
prim__setField : {s : _} -> forall fs, ty .
|
|
Struct s fs -> (n : String) ->
|
|
FieldType n ty fs -> ty -> PrimIO ()
|
|
|
|
||| Retrieve the value of the specified field in the given `Struct`.
|
|
|||
|
|
||| @ s the `Struct` to retrieve the value from
|
|
||| @ n the name of the field in the `Struct`.
|
|
public export %inline
|
|
getField : {sn : _} -> (s : Struct sn fs) -> (n : String) ->
|
|
{auto fieldok : FieldType n ty fs} -> ty
|
|
getField s n = prim__getField s n fieldok
|
|
|
|
||| Set the value of the specified field in the given `Struct`.
|
|
|||
|
|
||| @ s the `Struct` in which the field exists
|
|
||| @ n the name of the field to set
|
|
||| @ val the value to set the field to
|
|
public export %inline
|
|
setField : {sn : _} -> (s : Struct sn fs) -> (n : String) ->
|
|
{auto fieldok : FieldType n ty fs} -> (val : ty) -> IO ()
|
|
setField s n val = primIO (prim__setField s n fieldok val)
|
|
|
|
%foreign "C:idris2_malloc, libidris2_support, idris_memory.h"
|
|
prim__malloc : (size : Int) -> PrimIO AnyPtr
|
|
|
|
%foreign "C:idris2_free, libidris2_support, idris_memory.h"
|
|
prim__free : AnyPtr -> PrimIO ()
|
|
|
|
||| Allocate memory with libc `malloc`.
|
|
|||
|
|
||| @ size the number of bytes to allocate
|
|
export
|
|
malloc : HasIO io => (size : Int) -> io AnyPtr
|
|
malloc size = primIO $ prim__malloc size
|
|
|
|
||| Release memory with libc `free`.
|
|
export
|
|
free : HasIO io => AnyPtr -> io ()
|
|
free ptr = primIO $ prim__free ptr
|