|
|
@ -1,15 +1,12 @@ |
|
|
|
(c-import |
|
|
|
;; Included only for FT_BEGIN_HEADER etc. |
|
|
|
;; Normally we are "supposed" to include the headers via the defines, but that would break the build |
|
|
|
;; system's ability to find dependent headers to scan. |
|
|
|
"freetype/config/ftheader.h" |
|
|
|
"freetype/freetype.h") |
|
|
|
|
|
|
|
(comptime-cond |
|
|
|
('auto-test |
|
|
|
(c-import "<stdio.h>") |
|
|
|
|
|
|
|
(defmacro freetype-check-result-or-return (result symbol while-doing string) |
|
|
|
(export-and-evaluate |
|
|
|
(c-import |
|
|
|
;; Included only for FT_BEGIN_HEADER etc. |
|
|
|
;; Normally we are "supposed" to include the headers via the defines, but that would break the build |
|
|
|
;; system's ability to find dependent headers to scan. |
|
|
|
"freetype/config/ftheader.h" |
|
|
|
"freetype/freetype.h")) |
|
|
|
|
|
|
|
(defmacro freetype-check-result-or-return (result symbol while-doing string) |
|
|
|
(tokenize-push output |
|
|
|
(unless (= (token-splice result) FT_Err_Ok) |
|
|
|
(fprintf stderr "error: encountered error %d while %s\n" (token-splice result) |
|
|
@ -17,6 +14,10 @@ |
|
|
|
(return 1))) |
|
|
|
(return true)) |
|
|
|
|
|
|
|
(comptime-cond |
|
|
|
('auto-test |
|
|
|
(c-import "<stdio.h>") |
|
|
|
|
|
|
|
(defun test--freetype (&return int) |
|
|
|
(var freetype-library FT_Library) |
|
|
|
(var result int |
|
|
|