Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added include-c-header

Browse source
This commit is contained in:
Justin Ethier 2016-04-19 23:28:40 -04:00
parent f0e45111e4
commit c594cdadbe
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
examples/game-of-life-png/example/life.sld
View file

@ -1,4 +1,5 @@
(define-library (example life) (define-library (example life)
(include-c-header "../write-png.h")
(export life) (export life)
(import (scheme base) ;TODO: (except (scheme base) set!) (import (scheme base) ;TODO: (except (scheme base) set!)
(scheme write) (scheme write)

10
scheme/cyclone/libraries.sld
View file

@ -30,6 +30,7 @@
lib:imports lib:imports
lib:body lib:body
lib:includes lib:includes
lib:include-c-headers
lib:import->filename lib:import->filename
lib:import->metalist lib:import->metalist
lib:import->path lib:import->path
@ -115,6 +116,15 @@
(tagged-list? 'include code)) (tagged-list? 'include code))
(cddr ast)))) (cddr ast))))
(define (lib:include-c-headers ast)
(map
(lambda (inc-lst)
(cadr inc-lst))
(filter
(lambda (code)
(tagged-list? 'include-c-header code))
(cddr ast))))
;; TODO: include-ci, cond-expand ;; TODO: include-ci, cond-expand
(define (lib:atom->string atom) (define (lib:atom->string atom)