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

Issue #55 - Compile complex number literals

Browse source
This commit is contained in:
Justin Ethier 2018-05-11 16:06:39 -04:00
parent 84b2f9c67e
commit 689a1d552a
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scheme/cyclone/cgen.sld
View file

@ -9,6 +9,7 @@
(define-library (scheme cyclone cgen) (define-library (scheme cyclone cgen)
(import (scheme base) (import (scheme base)
(scheme char) (scheme char)
(scheme complex)
(scheme eval) (scheme eval)
(scheme inexact) (scheme inexact)
(scheme write) (scheme write)
@ -487,6 +488,24 @@
;; TODO: need error checking, this is just a first cut: ;; TODO: need error checking, this is just a first cut:
"mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10);")))) "mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10);"))))
) )
((complex? exp)
(let* ((cvar-name (mangle (gensym 'c)))
(num2str (lambda (n)
(cond
;; The following two may not be very portable,
;; may be better to use C99:
((nan? n) "(0./0.)")
((infinite? n) "(1./0.)")
(else
(number->string n)))))
(rnum (num2str (real-part exp)))
(inum (num2str (imag-part exp)))
)
(c-code/vars
(string-append "&" cvar-name) ; Code is just the variable name
(list ; Allocate on the C stack
(string-append
"make_complex_num(" cvar-name ", " rnum ", " inum ");")))))
((integer? exp) ((integer? exp)
; (let ((cvar-name (mangle (gensym 'c)))) ; (let ((cvar-name (mangle (gensym 'c))))
; (c-code/vars ; (c-code/vars