Carp/examples/external_struct.carp

(relative-include "headers/banana.h")
(Project.no-echo)

(register-type Apple)
(register-type Banana [price Double, size Int])

(defn main []
  (let [b (Banana.init 2.3 1000)]
    (IO.println &(Banana.str &b))))
chore: Move some examples to test/produces-output (#989) * chore: Moved examples that work more as tests to folder 'test/produces-output' * fix: Corrections to the release script * fix: Correct filename on Windows * fix: Move more files around * fix: Remove check-malloc example * fix: Apparently unicode example does not work * chore: Move nested_lambdas.carp back to examples * chore: Remove .DS_Store files * fix: Bring back unicode test * test: Make sure benchmark compile (had to remove mandelbrot and n-bodies) * fix: Replacement implementation of clock_gettime on Windows * chore: Trigger CI * fix: Define CLOCK_REALTIME Co-authored-by: Erik Svedang <erik@Eriks-iMac.local> 2020-11-23 08:30:43 +03:00			`(relative-include "headers/banana.h")`
Added dynamic function 'Project.no-echo' to disable echoing in examples. 2018-06-05 11:05:33 +03:00			`(Project.no-echo)`
Moved external struct example to its own file. 2017-11-17 19:34:07 +03:00
			`(register-type Apple)`
			`(register-type Banana [price Double, size Int])`

			`(defn main []`
			`(let [b (Banana.init 2.3 1000)]`
			`(IO.println &(Banana.str &b))))`