mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 18:51:40 +03:00
98d67499db
* Add utility functions to treat All as a heterogeneous container * Distinguish RefC Int and Bits types * Change RefC Integers to be arbitrary precision * Add RefC Bits maths operations * Make RefC div and mod Euclidean * Add RefC bit-ops tests * Add RefC integer comparison tests * Add RefC IntN support
384 lines
5.6 KiB
Idris
384 lines
5.6 KiB
Idris
module IntCasts
|
|
|
|
import IntNum
|
|
|
|
-- This file to be deleted once these interfaces are added to prelude
|
|
|
|
-- To String
|
|
|
|
export
|
|
Cast Int8 String where
|
|
cast = prim__cast_Int8String
|
|
|
|
export
|
|
Cast Int16 String where
|
|
cast = prim__cast_Int16String
|
|
|
|
export
|
|
Cast Int32 String where
|
|
cast = prim__cast_Int32String
|
|
|
|
export
|
|
Cast Int64 String where
|
|
cast = prim__cast_Int64String
|
|
|
|
-- To Integer
|
|
|
|
export
|
|
Cast Int8 Integer where
|
|
cast = prim__cast_Int8Integer
|
|
|
|
export
|
|
Cast Int16 Integer where
|
|
cast = prim__cast_Int16Integer
|
|
|
|
export
|
|
Cast Int32 Integer where
|
|
cast = prim__cast_Int32Integer
|
|
|
|
export
|
|
Cast Int64 Integer where
|
|
cast = prim__cast_Int64Integer
|
|
|
|
-- To Int
|
|
|
|
export
|
|
Cast Int8 Int where
|
|
cast = prim__cast_Int8Int
|
|
|
|
export
|
|
Cast Int16 Int where
|
|
cast = prim__cast_Int16Int
|
|
|
|
export
|
|
Cast Int32 Int where
|
|
cast = prim__cast_Int32Int
|
|
|
|
export
|
|
Cast Int64 Int where
|
|
cast = prim__cast_Int64Int
|
|
|
|
-- To Int8
|
|
|
|
export
|
|
Cast Int Int8 where
|
|
cast = prim__cast_IntInt8
|
|
|
|
export
|
|
Cast Int16 Int8 where
|
|
cast = prim__cast_Int16Int8
|
|
|
|
export
|
|
Cast Int32 Int8 where
|
|
cast = prim__cast_Int32Int8
|
|
|
|
export
|
|
Cast Int64 Int8 where
|
|
cast = prim__cast_Int64Int8
|
|
|
|
export
|
|
Cast Integer Int8 where
|
|
cast = prim__cast_IntegerInt8
|
|
|
|
export
|
|
Cast Char Int8 where
|
|
cast = prim__cast_CharInt8
|
|
|
|
export
|
|
Cast Double Int8 where
|
|
cast = prim__cast_DoubleInt8
|
|
|
|
export
|
|
Cast String Int8 where
|
|
cast = prim__cast_StringInt8
|
|
|
|
export
|
|
Cast Nat Int8 where
|
|
cast = fromInteger . natToInteger
|
|
|
|
export
|
|
Cast Bits8 Int8 where
|
|
cast = prim__cast_Bits8Int8
|
|
|
|
export
|
|
Cast Bits16 Int8 where
|
|
cast = prim__cast_Bits16Int8
|
|
|
|
export
|
|
Cast Bits32 Int8 where
|
|
cast = prim__cast_Bits32Int8
|
|
|
|
export
|
|
Cast Bits64 Int8 where
|
|
cast = prim__cast_Bits64Int8
|
|
|
|
-- To Int16
|
|
|
|
export
|
|
Cast Int Int16 where
|
|
cast = prim__cast_IntInt16
|
|
|
|
export
|
|
Cast Int8 Int16 where
|
|
cast = prim__cast_Int8Int16
|
|
|
|
export
|
|
Cast Int32 Int16 where
|
|
cast = prim__cast_Int32Int16
|
|
|
|
export
|
|
Cast Int64 Int16 where
|
|
cast = prim__cast_Int64Int16
|
|
|
|
export
|
|
Cast Integer Int16 where
|
|
cast = prim__cast_IntegerInt16
|
|
|
|
export
|
|
Cast Char Int16 where
|
|
cast = prim__cast_CharInt16
|
|
|
|
export
|
|
Cast Double Int16 where
|
|
cast = prim__cast_DoubleInt16
|
|
|
|
export
|
|
Cast String Int16 where
|
|
cast = prim__cast_StringInt16
|
|
|
|
export
|
|
Cast Nat Int16 where
|
|
cast = fromInteger . natToInteger
|
|
|
|
export
|
|
Cast Bits8 Int16 where
|
|
cast = prim__cast_Bits8Int16
|
|
|
|
export
|
|
Cast Bits16 Int16 where
|
|
cast = prim__cast_Bits16Int16
|
|
|
|
export
|
|
Cast Bits32 Int16 where
|
|
cast = prim__cast_Bits32Int16
|
|
|
|
export
|
|
Cast Bits64 Int16 where
|
|
cast = prim__cast_Bits64Int16
|
|
|
|
-- To Int32
|
|
|
|
export
|
|
Cast Int Int32 where
|
|
cast = prim__cast_IntInt32
|
|
|
|
export
|
|
Cast Int8 Int32 where
|
|
cast = prim__cast_Int8Int32
|
|
|
|
export
|
|
Cast Int16 Int32 where
|
|
cast = prim__cast_Int16Int32
|
|
|
|
export
|
|
Cast Int64 Int32 where
|
|
cast = prim__cast_Int64Int32
|
|
|
|
export
|
|
Cast Integer Int32 where
|
|
cast = prim__cast_IntegerInt32
|
|
|
|
export
|
|
Cast Char Int32 where
|
|
cast = prim__cast_CharInt32
|
|
|
|
export
|
|
Cast Double Int32 where
|
|
cast = prim__cast_DoubleInt32
|
|
|
|
export
|
|
Cast String Int32 where
|
|
cast = prim__cast_StringInt32
|
|
|
|
export
|
|
Cast Nat Int32 where
|
|
cast = fromInteger . natToInteger
|
|
|
|
export
|
|
Cast Bits8 Int32 where
|
|
cast = prim__cast_Bits8Int32
|
|
|
|
export
|
|
Cast Bits16 Int32 where
|
|
cast = prim__cast_Bits16Int32
|
|
|
|
export
|
|
Cast Bits32 Int32 where
|
|
cast = prim__cast_Bits32Int32
|
|
|
|
export
|
|
Cast Bits64 Int32 where
|
|
cast = prim__cast_Bits64Int32
|
|
|
|
-- To Int64
|
|
|
|
export
|
|
Cast Int Int64 where
|
|
cast = prim__cast_IntInt64
|
|
|
|
export
|
|
Cast Int8 Int64 where
|
|
cast = prim__cast_Int8Int64
|
|
|
|
export
|
|
Cast Int16 Int64 where
|
|
cast = prim__cast_Int16Int64
|
|
|
|
export
|
|
Cast Int32 Int64 where
|
|
cast = prim__cast_Int32Int64
|
|
|
|
export
|
|
Cast Integer Int64 where
|
|
cast = prim__cast_IntegerInt64
|
|
|
|
export
|
|
Cast Char Int64 where
|
|
cast = prim__cast_CharInt64
|
|
|
|
export
|
|
Cast Double Int64 where
|
|
cast = prim__cast_DoubleInt64
|
|
|
|
export
|
|
Cast String Int64 where
|
|
cast = prim__cast_StringInt64
|
|
|
|
export
|
|
Cast Nat Int64 where
|
|
cast = fromInteger . natToInteger
|
|
|
|
export
|
|
Cast Bits8 Int64 where
|
|
cast = prim__cast_Bits8Int64
|
|
|
|
export
|
|
Cast Bits16 Int64 where
|
|
cast = prim__cast_Bits16Int64
|
|
|
|
export
|
|
Cast Bits32 Int64 where
|
|
cast = prim__cast_Bits32Int64
|
|
|
|
export
|
|
Cast Bits64 Int64 where
|
|
cast = prim__cast_Bits64Int64
|
|
|
|
-- To Char
|
|
|
|
export
|
|
Cast Int8 Char where
|
|
cast = prim__cast_Int8Char
|
|
|
|
export
|
|
Cast Int16 Char where
|
|
cast = prim__cast_Int16Char
|
|
|
|
export
|
|
Cast Int32 Char where
|
|
cast = prim__cast_Int32Char
|
|
|
|
export
|
|
Cast Int64 Char where
|
|
cast = prim__cast_Int64Char
|
|
|
|
-- To Double
|
|
|
|
export
|
|
Cast Int8 Double where
|
|
cast = prim__cast_Int8Double
|
|
|
|
export
|
|
Cast Int16 Double where
|
|
cast = prim__cast_Int16Double
|
|
|
|
export
|
|
Cast Int32 Double where
|
|
cast = prim__cast_Int32Double
|
|
|
|
export
|
|
Cast Int64 Double where
|
|
cast = prim__cast_Int64Double
|
|
|
|
-- To Bits8
|
|
|
|
export
|
|
Cast Int8 Bits8 where
|
|
cast = prim__cast_Int8Bits8
|
|
|
|
export
|
|
Cast Int16 Bits8 where
|
|
cast = prim__cast_Int16Bits8
|
|
|
|
export
|
|
Cast Int32 Bits8 where
|
|
cast = prim__cast_Int32Bits8
|
|
|
|
export
|
|
Cast Int64 Bits8 where
|
|
cast = prim__cast_Int64Bits8
|
|
|
|
-- To Bits16
|
|
|
|
export
|
|
Cast Int8 Bits16 where
|
|
cast = prim__cast_Int8Bits16
|
|
|
|
export
|
|
Cast Int16 Bits16 where
|
|
cast = prim__cast_Int16Bits16
|
|
|
|
export
|
|
Cast Int32 Bits16 where
|
|
cast = prim__cast_Int32Bits16
|
|
|
|
export
|
|
Cast Int64 Bits16 where
|
|
cast = prim__cast_Int64Bits16
|
|
|
|
-- To Bits32
|
|
|
|
export
|
|
Cast Int8 Bits32 where
|
|
cast = prim__cast_Int8Bits32
|
|
|
|
export
|
|
Cast Int16 Bits32 where
|
|
cast = prim__cast_Int16Bits32
|
|
|
|
export
|
|
Cast Int32 Bits32 where
|
|
cast = prim__cast_Int32Bits32
|
|
|
|
export
|
|
Cast Int64 Bits32 where
|
|
cast = prim__cast_Int64Bits32
|
|
|
|
-- To Bits64
|
|
|
|
export
|
|
Cast Int8 Bits64 where
|
|
cast = prim__cast_Int8Bits64
|
|
|
|
export
|
|
Cast Int16 Bits64 where
|
|
cast = prim__cast_Int16Bits64
|
|
|
|
export
|
|
Cast Int32 Bits64 where
|
|
cast = prim__cast_Int32Bits64
|
|
|
|
export
|
|
Cast Int64 Bits64 where
|
|
cast = prim__cast_Int64Bits64
|