Skip to content
Open
Show file tree
Hide file tree
Changes from 3 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 4 additions & 3 deletions modules/ln_core/time.scm
Original file line number Diff line number Diff line change
Expand Up @@ -258,9 +258,10 @@ end-of-c-declare
;; thanks, Martin Gasbichler ...

(define (copy-time time)
(make-srfi19:time (srfi19:time-type time)
(srfi19:time-second time)
(srfi19:time-nanosecond time)))
(make-srfi19:time
(srfi19:time-type time)
(srfi19:time-nanosecond time)
(srfi19:time-second time)))


;;; current-time
Expand Down
10 changes: 10 additions & 0 deletions modules/ln_glcore/glcore-ffi.scm
Original file line number Diff line number Diff line change
Expand Up @@ -169,6 +169,16 @@ ___result = GL_CLAMP_TO_EDGE;
((c-lambda (float float float) void "glTranslatef")
(flo a) (flo b) (flo c)))

(define glTranslatef//checks (c-lambda (float float float) void "glTranslatef"))
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Can you explain what the // in variable names mean?



(define glTranslatef/f32vector//checks
;; call site argument checks are supposed to ensure type and length
(c-lambda
(scheme-object) void "
___F32* args = ___CAST(___F32*, ___BODY_AS(___arg1, ___tSUBTYPED));
glTranslatef(args[0], args[1], args[2]);"))

(define (glScalef a b c)
((c-lambda (float float float) void "glScalef")
(flo a) (flo b) (flo c)))
Expand Down
Loading