Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | moved d.s. import to top of c-eval |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
23bcb0c8b5b61be81e801522fb8b9772 |
| User & Date: | aldo 2016-12-09 20:24:22 |
Context
|
2016-12-10
| ||
| 18:57 | added server support to socket.sls check-in: 82bf686062 user: aldo tags: trunk | |
|
2016-12-09
| ||
| 20:24 | moved d.s. import to top of c-eval check-in: 23bcb0c8b5 user: aldo tags: trunk | |
| 20:15 | added data-structures check-in: edbaf21f17 user: aldo tags: trunk | |
Changes
Changes to c-eval.sls.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
(library (c-eval) (export c-eval c-eval-printf c-eval-includes) (import (chezscheme) (posix)) (define c-eval-includes (make-parameter '("stdio.h"))) (define (c-eval-printf format . values) (import (only (data-structures) string-intersperse ->string)) (c-eval (string-append "printf (\"" format "\"," (string-intersperse (map ->string values) ",") ");"))) (define (c-eval expr) (with-mktemp "/tmp/c-eval-XXXXXX" (lambda (file) (apply |
| > > < |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
(library (c-eval) (export c-eval c-eval-printf c-eval-includes) (import (chezscheme) (posix) (only (data-structures) string-intersperse ->string)) (define c-eval-includes (make-parameter '("stdio.h"))) (define (c-eval-printf format . values) (c-eval (string-append "printf (\"" format "\"," (string-intersperse (map ->string values) ",") ");"))) (define (c-eval expr) (with-mktemp "/tmp/c-eval-XXXXXX" (lambda (file) (apply |