carpentry/inline-c
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: carpentry:0.0.2
Branches Tags
carpentry:master
carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1
...
compare: carpentry:master
Branches Tags
carpentry:master
carpentry:0.0.3 carpentry:0.0.2 carpentry:0.0.1

3 Commits
0.0.2 ... master

Author SHA1 Message Date
hellerve
4942896241 version bump 2020-05-05 13:36:24 +02:00
hellerve
a263017504 update for new carp 2020-05-05 13:35:29 +02:00
hellerve
75e98123df published new version 2020-04-21 10:36:21 +02:00
2 changed files with 4 additions and 4 deletions
Expand all files Collapse all files

4
README.md
View File

@@ -5,7 +5,7 @@ is a simple module for defining C code inside Carp code.
## Installation ## Installation
```clojure ```clojure
(load "https://veitheller.de/git/carpentry/inline-c@0.0.1") (load "https://veitheller.de/git/carpentry/inline-c@0.0.3")
``` ```
## Usage ## Usage
@@ -16,7 +16,7 @@ express those things that are just kind of awkward in Carp (like complex
bit-twiddling) without having to include a helper every time. bit-twiddling) without having to include a helper every time.
```clojure ```clojure
(load "https://veitheller.de/git/carpentry/inline-c@0.0.1") (load "https://veitheller.de/git/carpentry/inline-c@0.0.3")
(inline-c "int count_set_bits(int n) { (inline-c "int count_set_bits(int n) {
int count = 0; int count = 0;

4
main.carp
View File

@@ -1,8 +1,8 @@
(defdynamic *c-counter* 0) (defdynamic *c-counter* 0)
(defndynamic inline-c [s] (defndynamic inline-c [s]
(let [f (String.join [(Project.get-config "output-directory") (let [f (String.concat [(Project.get-config "output-directory")
"carp_inline_c_generated" (str *c-counter*) ".h"])] "carp_inline_c_generated" (str *c-counter*) ".h"])]
(do (do
(write-file f s) (write-file f s)
(set! *c-counter* (inc *c-counter*)) (set! *c-counter* (inc *c-counter*))