carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

core: make bit-* interfaces

Browse Source
This commit is contained in:
hellerve 2020-07-08 21:11:13 +02:00
parent 73bb5735c1
commit 06607c2203
5 changed files with 73 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/Byte.carp
View File

@ -40,6 +40,12 @@
(register bit-or (λ [Byte Byte] Byte))
(register bit-xor (λ [Byte Byte] Byte))
(register bit-not (λ [Byte] Byte))
(implements bit-shift-left Byte.bit-shift-left)
(implements bit-shift-right Byte.bit-shift-right)
(implements bit-and Byte.bit-and)
(implements bit-or Byte.bit-or)
(implements bit-xor Byte.bit-xor)
(implements bit-not Byte.bit-not)
(defn even? [a] (= (mod a 2b) 0b))
(defn odd? [a] (not (even? a)))

6
core/Int.carp
View File

@ -47,6 +47,12 @@
(register bit-or (λ [Int Int] Int))
(register bit-xor (λ [Int Int] Int))
(register bit-not (λ [Int] Int))
(implements bit-shift-left Int.bit-shift-left)
(implements bit-shift-right Int.bit-shift-right)
(implements bit-and Int.bit-and)
(implements bit-or Int.bit-or)
(implements bit-xor Int.bit-xor)
(implements bit-not Int.bit-not)
(doc abs "The absolute value (removes the negative sign) of an Int.")
(register abs (λ [Int] Int))

7
core/Interfaces.carp
View File

@ -17,6 +17,13 @@
(definterface / (λ [a a] a))
(definterface mod (λ [a a] a))
(definterface bit-and (λ [a a] a))
(definterface bit-or (λ [a a] a))
(definterface bit-xor (λ [a a] a))
(definterface bit-not (λ [a] a))
(definterface bit-shift-left (λ [a a] a))
(definterface bit-shift-right (λ [a a] a))
(definterface < (λ [a a] Bool))
(definterface > (λ [a a] Bool))

6
core/Long.carp
View File

@ -41,6 +41,12 @@ to non-refs.")
(implements mod Long.mod)
(implements to-int Long.to-int)
(implements from-int Long.from-int)
(implements bit-shift-left Long.bit-shift-left)
(implements bit-shift-right Long.bit-shift-right)
(implements bit-and Long.bit-and)
(implements bit-or Long.bit-or)
(implements bit-xor Long.bit-xor)
(implements bit-not Long.bit-not)
(not-on-windows ; this seems to generate invalid code on some windows machines
(register safe-add (λ [Long Long (Ref Long)] Bool))

48
core/StdInt.carp
View File

@ -44,6 +44,12 @@
(implements str Int8.str)
(implements prn Int8.prn)
(implements zero Int8.zero)
(implements bit-shift-left Int8.bit-shift-left)
(implements bit-shift-right Int8.bit-shift-right)
(implements bit-and Int8.bit-and)
(implements bit-or Int8.bit-or)
(implements bit-xor Int8.bit-xor)
(implements bit-not Int8.bit-not)
)
(defmodule Int8Extra
@ -90,6 +96,12 @@
(implements str Int16.str)
(implements prn Int16.prn)
(implements zero Int16.zero)
(implements bit-shift-left Int16.bit-shift-left)
(implements bit-shift-right Int16.bit-shift-right)
(implements bit-and Int16.bit-and)
(implements bit-or Int16.bit-or)
(implements bit-xor Int16.bit-xor)
(implements bit-not Int16.bit-not)
)
(defmodule Int16Extra
@ -136,6 +148,12 @@
(implements str Int32.str)
(implements prn Int32.prn)
(implements zero Int32.zero)
(implements bit-shift-left Int32.bit-shift-left)
(implements bit-shift-right Int32.bit-shift-right)
(implements bit-and Int32.bit-and)
(implements bit-or Int32.bit-or)
(implements bit-xor Int32.bit-xor)
(implements bit-not Int32.bit-not)
)
(defmodule Int32Extra
@ -182,6 +200,12 @@
(implements str Int64.str)
(implements prn Int64.prn)
(implements zero Int64.zero)
(implements bit-shift-left Int64.bit-shift-left)
(implements bit-shift-right Int64.bit-shift-right)
(implements bit-and Int64.bit-and)
(implements bit-or Int64.bit-or)
(implements bit-xor Int64.bit-xor)
(implements bit-not Int64.bit-not)
)
(defmodule Int64Extra
@ -228,6 +252,12 @@
(implements str Uint8.str)
(implements prn Uint8.prn)
(implements zero Uint8.zero)
(implements bit-shift-left Uint8.bit-shift-left)
(implements bit-shift-right Uint8.bit-shift-right)
(implements bit-and Uint8.bit-and)
(implements bit-or Uint8.bit-or)
(implements bit-xor Uint8.bit-xor)
(implements bit-not Uint8.bit-not)
)
(defmodule Uint8Extra
@ -274,6 +304,12 @@
(implements str Uint16.str)
(implements prn Uint16.prn)
(implements zero Uint16.zero)
(implements bit-shift-left Uint16.bit-shift-left)
(implements bit-shift-right Uint16.bit-shift-right)
(implements bit-and Uint16.bit-and)
(implements bit-or Uint16.bit-or)
(implements bit-xor Uint16.bit-xor)
(implements bit-not Uint16.bit-not)
)
(defmodule Uint16Extra
@ -320,6 +356,12 @@
(implements str Uint32.str)
(implements prn Uint32.prn)
(implements zero Uint32.zero)
(implements bit-shift-left Uint32.bit-shift-left)
(implements bit-shift-right Uint32.bit-shift-right)
(implements bit-and Uint32.bit-and)
(implements bit-or Uint32.bit-or)
(implements bit-xor Uint32.bit-xor)
(implements bit-not Uint32.bit-not)
)
(defmodule Uint32Extra
@ -366,6 +408,12 @@
(implements str Uint64.str)
(implements prn Uint64.prn)
(implements zero Uint64.zero)
(implements bit-shift-left Uint64.bit-shift-left)
(implements bit-shift-right Uint64.bit-shift-right)
(implements bit-and Uint64.bit-and)
(implements bit-or Uint64.bit-or)
(implements bit-xor Uint64.bit-xor)
(implements bit-not Uint64.bit-not)
)
(defmodule Uint64Extra