Changeset 37393 in project


Ignore:
Timestamp:
03/17/19 11:58:43 (11 months ago)
Author:
Kooda
Message:

Port freetype to CHICKEN 5

Location:
release/5/freetype
Files:
7 added
3 deleted
3 copied

Legend:

Unmodified
Added
Removed
  • release/5/freetype/tags/0.2/freetype.scm

    r36758 r37393  
    44;; BSD-style license: http://synthcode.com/license.txt
    55(module freetype *
    6   (import scheme chicken foreign data-structures extras srfi-1 srfi-13 foreigners)
    7  
    8   (import-for-syntax matchable)
     6
     7(import
     8  scheme
     9  (chicken base)
     10  (chicken string)
     11  (chicken foreign)
     12  srfi-1
     13  srfi-13
     14  foreigners)
     15
     16(import-for-syntax (chicken string) matchable srfi-1 srfi-13)
    917
    1018  (foreign-declare
     
    1523
    1624  (define-syntax define-foreign-enum
     25    (er-macro-transformer
    1726    (lambda (e r c)
    1827      `(,(r 'begin)
     
    2231             `(,(r 'define) ,name (,(r 'foreign-value) ,(symbol->string realname) ,(r 'int))))
    2332            (name `(,(r 'define) ,name (,(r 'foreign-value) ,(symbol->string name) ,(r 'int)))))
    24            (cdr e)))))
     33           (cdr e))))))
    2534
    2635  (define-syntax define-foreign-record
     36    (er-macro-transformer
    2737    (lambda (e r c)
    2838      (let ((rename identity)
     
    7989                                                 (->string slotname)
    8090                                                 "-set!")))))
    81               (cddr e)))))))
     91              (cddr e))))))))
    8292
    8393  (define-foreign-enum
  • release/5/freetype/trunk/freetype.scm

    r36758 r37393  
    44;; BSD-style license: http://synthcode.com/license.txt
    55(module freetype *
    6   (import scheme chicken foreign data-structures extras srfi-1 srfi-13 foreigners)
    7  
    8   (import-for-syntax matchable)
     6
     7(import
     8  scheme
     9  (chicken base)
     10  (chicken string)
     11  (chicken foreign)
     12  srfi-1
     13  srfi-13
     14  foreigners)
     15
     16(import-for-syntax (chicken string) matchable srfi-1 srfi-13)
    917
    1018  (foreign-declare
     
    1523
    1624  (define-syntax define-foreign-enum
     25    (er-macro-transformer
    1726    (lambda (e r c)
    1827      `(,(r 'begin)
     
    2231             `(,(r 'define) ,name (,(r 'foreign-value) ,(symbol->string realname) ,(r 'int))))
    2332            (name `(,(r 'define) ,name (,(r 'foreign-value) ,(symbol->string name) ,(r 'int)))))
    24            (cdr e)))))
     33           (cdr e))))))
    2534
    2635  (define-syntax define-foreign-record
     36    (er-macro-transformer
    2737    (lambda (e r c)
    2838      (let ((rename identity)
     
    7989                                                 (->string slotname)
    8090                                                 "-set!")))))
    81               (cddr e)))))))
     91              (cddr e))))))))
    8292
    8393  (define-foreign-enum
Note: See TracChangeset for help on using the changeset viewer.