Changeset 11079 in project


Ignore:
Timestamp:
06/24/08 12:51:33 (11 years ago)
Author:
felix winkelmann
Message:

first attempt to port

Location:
release/4/opengl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/opengl/gl.scm

    r1375 r11079  
    11;;;; gl.scm
    22
    3 (use easyffi)
     3(require-library easyffi)
     4
     5(module gl all
     6
     7(import scheme chicken foreign easyffi)
    48
    59(cond-expand
     
    18431847EOF
    18441848)))
     1849
     1850)
     1851
  • release/4/opengl/glu.scm

    r6960 r11079  
    11;;;; glu.scm
    22
    3 (use easyffi)
     3(require-library easyffi)
     4
     5(module glu all
     6
     7(import scheme chicken foreign easyffi)
    48
    59(cond-expand
     
    353357  (define glu:QuadricCallback (let ([old glu:QuadricCallback]) (lambda (p i proc) (old p i (location quadric_cb)) (set! quadric-func proc))))
    354358  (define glu:TessCallback (let ([old glu:TessCallback]) (lambda (p i proc) (old p i (location tess_cb)) (set! tess-func proc))))))
     359
     360)
     361
  • release/4/opengl/opengl.setup

    r6960 r11079  
    33(cond
    44 ((eq? (software-version) 'macosx)
    5   (make (("gl.so" ("gl.scm") (run (csc gl.scm -s -O2 -d0 -FOpenGL -framework OpenGL)))
    6          ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -FOpenGL -framework OpenGL))))
     5  (make (("gl.so" ("gl.scm") (run (csc gl.scm -s -O2 -d0 -j gl -FOpenGL -framework OpenGL)))
     6         ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -j glu -FOpenGL -framework OpenGL))))
    77    '#("gl.so" "glu.so") ))
    88 ((and (eq? (software-type) 'windows) (eq? (build-platform) 'msvc))
    9   (make (("gl.dll" ("gl.scm") (run (csc -s -feature msvc gl.scm glprocs.c -O2 -d0 -lopengl32 -C "/Iglprocs")))
    10          ("glu.dll" ("glu.scm") (run (csc -s -feature msvc -emit-external-prototypes-first glu.scm -O2 -d0 -lglu32 -C "/Iglprocs"))))
     9  (make (("gl.dll" ("gl.scm")
     10          (run (csc -s -feature msvc gl.scm -j gl glprocs.c -O2 -d0 -lopengl32 -C "/Iglprocs")))
     11         ("glu.dll" ("glu.scm")
     12          (run (csc -s -feature msvc -j glu -emit-external-prototypes-first
     13                    glu.scm -O2 -d0 -lglu32 -C "/Iglprocs"))))
    1114    '#("gl.dll" "glu.dll")))
    1215 ((eq? (software-type) 'windows)
    13   (make (("gl.so" ("gl.scm") (run (csc -s -feature cygwin gl.scm -O2 -d0 -lopengl32)))
    14          ("glu.so" ("glu.scm") (run (csc -s -feature cygwin glu.scm -O2 -d0 -lopengl32 -lglu32))))
     16  (make (("gl.so" ("gl.scm")
     17          (run (csc -s -feature cygwin gl.scm -O2 -d0 -j gl -lopengl32)))
     18         ("glu.so" ("glu.scm")
     19          (run (csc -s -feature cygwin glu.scm -O2 -d0 -j glu -lopengl32 -lglu32))))
    1520    '#("gl.so" "glu.so") ))
    1621 (else
    17   (make (("gl.so" ("gl.scm") (run (csc gl.scm -s -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGL -LX11\"")))
    18          ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGLU -LX11\""))))
     22  (make (("gl.so" ("gl.scm")
     23          (run (csc gl.scm -s -O2 -d0 -j gl -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGL -LX11\"")))
     24         ("glu.so" ("glu.scm")
     25          (run (csc -s glu.scm -O2 -d0 -j glu -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGLU -LX11\""))))
    1926    '#("gl.so" "glu.so") ) ))
    2027
     28(make (("gl.import.so" ("gl.import.scm")
     29        (compile -s -O2 -d0 gl.import.scm))
     30       ("glu.import.so" ("glu.import.scm")
     31        (compile -s -O2 -d0 glu.import.scm)))
     32  '("gl.import.so" "glu.import.so"))
     33
    2134(install-extension
    22  'gl
    23  '("gl.so" "glu.so")
    24  '((version 1.16)
    25    (examples "sdl-gears.scm")
    26    (documentation "opengl.html")))
     35 'opengl
     36 '("gl.so" "glu.so" "gl.import.so" "glu.import.so")
     37 '((version 1.17)))
    2738
Note: See TracChangeset for help on using the changeset viewer.