mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 01:01:59 +03:00
28 lines
531 B
Idris
28 lines
531 B
Idris
module System.Term
|
|
|
|
%default total
|
|
|
|
libterm : String -> String
|
|
libterm s = "C:" ++ s ++ ", libidris2_support, idris_term.h"
|
|
|
|
%foreign libterm "idris2_setupTerm"
|
|
prim__setupTerm : PrimIO ()
|
|
|
|
%foreign libterm "idris2_getTermCols"
|
|
prim__getTermCols : PrimIO Int
|
|
|
|
%foreign libterm "idris2_getTermLines"
|
|
prim__getTermLines : PrimIO Int
|
|
|
|
export
|
|
setupTerm : IO ()
|
|
setupTerm = primIO prim__setupTerm
|
|
|
|
export
|
|
getTermCols : IO Int
|
|
getTermCols = primIO prim__getTermCols
|
|
|
|
export
|
|
getTermLines : IO Int
|
|
getTermLines = primIO prim__getTermLines
|