carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-11-04 01:25:04 +03:00
Code Issues Projects Releases Wiki Activity
11239f1c8b
Carp/examples/functor.carp

41 lines
1.3 KiB
Plaintext
Raw Normal View History

s/import/use in carp files.
2017-09-06 11:05:19 +03:00
(use IO)
(use Int)
(use Array)
Added dynamic function 'Project.no-echo' to disable echoing in examples.
2018-06-05 11:05:33 +03:00
(Project.no-echo)
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
Update test to account for constrained interfaces Constrained interfaces require little change to core carp. In rare cases (illustrated in test/interfaces.carp) we need to make our functions slightly more specific. This weakens inference slightly, but in my opinion is a reasonable case of weakness and not a fault of the type system. Exceptional cases that were typed `a-> a` that is, cases that relied on the previous typing errors related to interfaces, as might be expected, no longer work (as is the case for the higher-order use of fmap in examples/functor.carp). Aside from that, nothing changes.
2020-06-02 06:39:19 +03:00
(definterface fmap (λ [(Ref (λ [a] b)) (f a)] (f b)))
The fmap works now.
2017-11-23 01:24:38 +03:00
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
(defmodule ArrayExtension
Changed names of map-functions to 'copy-map' and 'endo-map'.
2017-10-17 17:54:00 +03:00
(defn fmap [f a] (Array.endo-map f a))
Add some more calls to implement to make tests pass
2020-05-10 20:32:22 +03:00
(implements fmap ArrayExtension.fmap)
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
)
feat: add box type (#1358) * feat: add box templates and box type This commit adds an implementation of Boxes, memory manged heap allocated values. Boxes are implemented as C pointers, with no additional structure but are treated as structs in Carp. To facilitate this, we need to add them as a clause to our special type emissions (TypesToC) as they'd otherwise be emitted like other struct types. Co-authored-by: Veit Heller <veit@veitheller.de> * fix: slight memory management fix for Box Make sure we free the box! * test: add tests for box (including memory checks) * Revert "fix: Ignore clang nitpick" This reverts commit 70ec6d46d4c636c39dc4d47dc7732421a30a0b3f. * fix: update example/functor.carp Now that a builtin type named Box exists, the definitions in this file cause a conflict. I've renamed the "Box" type in the functor example to remove the conflict. * feat: add Box.peek Box.peek allows users to transform a reference to a box into a a reference to the box's contained value. The returned reference will have the same lifetime as the box. This function allows callers to manipulate the value in a box without re-allocation, for example: ```clojure (deftype Num [val Int]) (let-do [box (Box.init (Num.init 0))] (Num.set-val! (Box.peek &box) 1) @(Num.val (Box.peek &box))) ``` This commit also includes tests for Box.peek. Co-authored-by: TimDeve <TimDeve@users.noreply.github.com> Co-authored-by: Veit Heller <veit@veitheller.de> Co-authored-by: Erik Svedäng <erik@coherence.io> Co-authored-by: TimDeve <TimDeve@users.noreply.github.com>
2021-11-30 12:35:22 +03:00
(deftype (MyBox a) [x a])
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
feat: add box type (#1358) * feat: add box templates and box type This commit adds an implementation of Boxes, memory manged heap allocated values. Boxes are implemented as C pointers, with no additional structure but are treated as structs in Carp. To facilitate this, we need to add them as a clause to our special type emissions (TypesToC) as they'd otherwise be emitted like other struct types. Co-authored-by: Veit Heller <veit@veitheller.de> * fix: slight memory management fix for Box Make sure we free the box! * test: add tests for box (including memory checks) * Revert "fix: Ignore clang nitpick" This reverts commit 70ec6d46d4c636c39dc4d47dc7732421a30a0b3f. * fix: update example/functor.carp Now that a builtin type named Box exists, the definitions in this file cause a conflict. I've renamed the "Box" type in the functor example to remove the conflict. * feat: add Box.peek Box.peek allows users to transform a reference to a box into a a reference to the box's contained value. The returned reference will have the same lifetime as the box. This function allows callers to manipulate the value in a box without re-allocation, for example: ```clojure (deftype Num [val Int]) (let-do [box (Box.init (Num.init 0))] (Num.set-val! (Box.peek &box) 1) @(Num.val (Box.peek &box))) ``` This commit also includes tests for Box.peek. Co-authored-by: TimDeve <TimDeve@users.noreply.github.com> Co-authored-by: Veit Heller <veit@veitheller.de> Co-authored-by: Erik Svedäng <erik@coherence.io> Co-authored-by: TimDeve <TimDeve@users.noreply.github.com>
2021-11-30 12:35:22 +03:00
(defmodule MyBox
(defn fmap [f box] (let [new-x (~f @(MyBox.x &box))]
(MyBox.set-x box new-x)))
(implements fmap MyBox.fmap))
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
feat: add box type (#1358) * feat: add box templates and box type This commit adds an implementation of Boxes, memory manged heap allocated values. Boxes are implemented as C pointers, with no additional structure but are treated as structs in Carp. To facilitate this, we need to add them as a clause to our special type emissions (TypesToC) as they'd otherwise be emitted like other struct types. Co-authored-by: Veit Heller <veit@veitheller.de> * fix: slight memory management fix for Box Make sure we free the box! * test: add tests for box (including memory checks) * Revert "fix: Ignore clang nitpick" This reverts commit 70ec6d46d4c636c39dc4d47dc7732421a30a0b3f. * fix: update example/functor.carp Now that a builtin type named Box exists, the definitions in this file cause a conflict. I've renamed the "Box" type in the functor example to remove the conflict. * feat: add Box.peek Box.peek allows users to transform a reference to a box into a a reference to the box's contained value. The returned reference will have the same lifetime as the box. This function allows callers to manipulate the value in a box without re-allocation, for example: ```clojure (deftype Num [val Int]) (let-do [box (Box.init (Num.init 0))] (Num.set-val! (Box.peek &box) 1) @(Num.val (Box.peek &box))) ``` This commit also includes tests for Box.peek. Co-authored-by: TimDeve <TimDeve@users.noreply.github.com> Co-authored-by: Veit Heller <veit@veitheller.de> Co-authored-by: Erik Svedäng <erik@coherence.io> Co-authored-by: TimDeve <TimDeve@users.noreply.github.com>
2021-11-30 12:35:22 +03:00
(use MyBox)
s/import/use in carp files.
2017-09-06 11:05:19 +03:00
(use ArrayExtension)
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
Update test to account for constrained interfaces Constrained interfaces require little change to core carp. In rare cases (illustrated in test/interfaces.carp) we need to make our functions slightly more specific. This weakens inference slightly, but in my opinion is a reasonable case of weakness and not a fault of the type system. Exceptional cases that were typed `a-> a` that is, cases that relied on the previous typing errors related to interfaces, as might be expected, no longer work (as is the case for the higher-order use of fmap in examples/functor.carp). Aside from that, nothing changes.
2020-06-02 06:39:19 +03:00
;; TODO: This function currently concretizes to the type of the first (f *) it
;; receives. Is there a way for us to ensure it remains generic?
;; N.B. the only reason it worked previously was because it was ill-typed as
;; (a -> a) which erroneously served as a universal type.
;(sig higherOrder (Fn [(f a)] (f b)))
;(defn higherOrder [x] (fmap &Int.inc x))
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
(defn main []
(do
feat: add box type (#1358) * feat: add box templates and box type This commit adds an implementation of Boxes, memory manged heap allocated values. Boxes are implemented as C pointers, with no additional structure but are treated as structs in Carp. To facilitate this, we need to add them as a clause to our special type emissions (TypesToC) as they'd otherwise be emitted like other struct types. Co-authored-by: Veit Heller <veit@veitheller.de> * fix: slight memory management fix for Box Make sure we free the box! * test: add tests for box (including memory checks) * Revert "fix: Ignore clang nitpick" This reverts commit 70ec6d46d4c636c39dc4d47dc7732421a30a0b3f. * fix: update example/functor.carp Now that a builtin type named Box exists, the definitions in this file cause a conflict. I've renamed the "Box" type in the functor example to remove the conflict. * feat: add Box.peek Box.peek allows users to transform a reference to a box into a a reference to the box's contained value. The returned reference will have the same lifetime as the box. This function allows callers to manipulate the value in a box without re-allocation, for example: ```clojure (deftype Num [val Int]) (let-do [box (Box.init (Num.init 0))] (Num.set-val! (Box.peek &box) 1) @(Num.val (Box.peek &box))) ``` This commit also includes tests for Box.peek. Co-authored-by: TimDeve <TimDeve@users.noreply.github.com> Co-authored-by: Veit Heller <veit@veitheller.de> Co-authored-by: Erik Svedäng <erik@coherence.io> Co-authored-by: TimDeve <TimDeve@users.noreply.github.com>
2021-11-30 12:35:22 +03:00
(println &(str @(MyBox.x &(fmap &Int.inc (MyBox.init 100)))))
(println &(str @(MyBox.x &(MyBox.fmap &inc (MyBox.init 100)))))
Follow convention of passing lambdas as refs as default.
2018-11-14 16:09:43 +03:00
(println &(str &(ArrayExtension.fmap &inc [10 20 30 40 50])))
(println &(str &(fmap &Int.inc [10 20 30 40 50])))
(println &(Array.str &(fmap &Int.inc [10 20 30 40 50])))
(println &(Array.str &(ArrayExtension.fmap &Int.inc [10 20 30 40 50])))
Update test to account for constrained interfaces Constrained interfaces require little change to core carp. In rare cases (illustrated in test/interfaces.carp) we need to make our functions slightly more specific. This weakens inference slightly, but in my opinion is a reasonable case of weakness and not a fault of the type system. Exceptional cases that were typed `a-> a` that is, cases that relied on the previous typing errors related to interfaces, as might be expected, no longer work (as is the case for the higher-order use of fmap in examples/functor.carp). Aside from that, nothing changes.
2020-06-02 06:39:19 +03:00
;(println &(str &(higherOrder (Box.init 999))))
;(println &(str &(higherOrder [9 99 999 9999])))
REPLACE WITH HASKELL VERSION
2017-06-26 12:15:03 +03:00
))
Reference in New Issue Copy Permalink