mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-20 22:29:16 +02:00
Refactoring
This commit is contained in:
parent
f737681ddf
commit
fa5f630fa5
5 changed files with 11 additions and 11 deletions
|
@ -1,14 +1,14 @@
|
||||||
all: limited-scm-call-from-c complex-scm-call
|
all: basic-no-gc full-with-gc
|
||||||
|
|
||||||
sys.o: sys.c
|
basic.o: basic.c
|
||||||
cc -g -c sys.c
|
cc -g -c basic.c
|
||||||
|
|
||||||
limited-scm-call-from-c: limited-scm-call-from-c.scm sys.o
|
basic-no-gc: basic-no-gc.scm basic.o
|
||||||
cyclone -CLNK sys.o limited-scm-call-from-c.scm
|
cyclone -CLNK basic.o basic-no-gc.scm
|
||||||
|
|
||||||
complex-scm-call: complex-scm-call.scm sys.o
|
full-with-gc: full-with-gc.scm basic.o
|
||||||
cyclone -CLNK sys.o complex-scm-call.scm
|
cyclone -CLNK basic.o full-with-gc.scm
|
||||||
|
|
||||||
.PHONY: clean
|
.PHONY: clean
|
||||||
clean:
|
clean:
|
||||||
rm -f *.o limited-scm-call-from-c.c limited-scm-call-from-c complex-scm-call.c complex-scm-call
|
rm -f *.o basic-no-gc.c basic-no-gc full-with-gc.c full-with-gc
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
(scheme write)
|
(scheme write)
|
||||||
(srfi 18))
|
(srfi 18))
|
||||||
|
|
||||||
(include-c-header "sys.h")
|
(include-c-header "basic.h")
|
||||||
|
|
||||||
(define lock (make-mutex))
|
(define lock (make-mutex))
|
||||||
(define *done* #f)
|
(define *done* #f)
|
|
@ -1,6 +1,6 @@
|
||||||
#include "cyclone/types.h"
|
#include "cyclone/types.h"
|
||||||
#include "cyclone/runtime.h"
|
#include "cyclone/runtime.h"
|
||||||
#include "sys.h"
|
#include "basic.h"
|
||||||
#include <unistd.h>
|
#include <unistd.h>
|
||||||
|
|
||||||
/**
|
/**
|
|
@ -3,7 +3,7 @@
|
||||||
(srfi 1)
|
(srfi 1)
|
||||||
(srfi 18))
|
(srfi 18))
|
||||||
|
|
||||||
(include-c-header "sys.h")
|
(include-c-header "basic.h")
|
||||||
|
|
||||||
(define lock (make-mutex))
|
(define lock (make-mutex))
|
||||||
(define *done* #f)
|
(define *done* #f)
|
Loading…
Add table
Reference in a new issue