Changeset 14785 in project


Ignore:
Timestamp:
05/26/09 03:28:04 (10 years ago)
Author:
Ivan Raikov
Message:

ezxdisp ported to Chicken 4

Location:
release/4/ezxdisp
Files:
5 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/ezxdisp/3d_clock.scm

    r1908 r14785  
    11;;;; 3d_clock.scm
    22
    3 (use posix ezxdisp)
     3(use posix srfi-4 ezxdisp matchable)
    44
    55(define +pi+ 3.14159265358979323846)
  • release/4/ezxdisp/ezxdisp.meta

    r9305 r14785  
    1 ;;; ezxdisp.meta -*- Hen -*-
     1;;; -*- Hen -*-
    22
    33((category graphics)
     4
    45 (author "n-sibata and Morihiko Tamai")
     6
     7 (maintainer "Ivan Raikov")
     8
    59 (synopsis "A simple 2D and 3D graphics library for X11")
     10
    611 (license "GPL-2")
     12
    713 (needs easyffi)
     14
    815 (egg "ezxdisp.egg")
     16
    917 (doc-from-wiki)
     18
    1019 (files "ezxdisp.scm" "ezxdisp.setup" "ezxdisp0.c" "ezxdisp.h" "ezxdisp.html"
    1120        "3d_clock.scm"))
  • release/4/ezxdisp/ezxdisp.scm

    r7351 r14785  
    11;;;;; ezxdisp.scm
    22
     3(module ezxdisp  *
     4
     5        (import scheme chicken srfi-4 foreign)
     6
     7        (require-extension easyffi)
    38
    49#>
     
    712
    813(declare
    9   (uses srfi-4)
    1014  (hide ezx-ptr ezx-ptr-set! make-ezx) )
    1115
     
    4953(define (make-ezx-color r g b)
    5054  (f64vector r g b) )
     55
     56)
  • release/4/ezxdisp/ezxdisp.setup

    r7351 r14785  
    1 (run (csc -s -O2 -d0 ezxdisp.scm -X easyffi ezxdisp0.c -C "\"-I. -w -I/usr/X11R6/include\"" -L "\"-L/usr/X11R6/lib -lX11\"" -emit-exports ezxdisp.exports))
     1;;; -*- Hen -*-
     2
     3(define (dynld-name fn)         
     4  (make-pathname #f fn ##sys#load-dynamic-extension))   
     5
     6(compile -s -O2 -X easyffi ezxdisp.scm ezxdisp0.c
     7         -C "\"-I. -w -I/usr/X11R6/include\"" -L "\"-L/usr/X11R6/lib -lX11\""
     8         -j ezxdisp)
     9
     10(compile -s ezxdisp.import.scm)
     11
     12
    213(install-extension
     14
    315 'ezxdisp
    4  '("ezxdisp.so")
    5  '((version 1.3)
     16
     17 `( ,(dynld-name "ezxdisp") ,(dynld-name "ezxdisp.import") )
     18
     19 '((version 1.4)
    620   (examples "3d_clock.scm")
    721   (documentation "ezxdisp.html")
    8    (exports "ezxdisp.exports")))
     22   (exports "ezxdisp.exports")
     23   ))
  • release/4/ezxdisp/hello.scm

    r7351 r14785  
    1 (use ezxdisp srfi-18)
     1(use ezxdisp srfi-4 srfi-18)
    22
    33(define ezx (ezx-init 100 100 "Hello, ezxdisp"))
Note: See TracChangeset for help on using the changeset viewer.