Changeset 1908 in project


Ignore:
Timestamp:
09/22/06 14:44:50 (14 years ago)
Author:
felix winkelmann
Message:

glut/opengl split, inline fix

Files:
8 added
2 deleted
16 edited

Legend:

Unmodified
Added
Removed
  • datatype/datatype.html

    r1 r1908  
    1717<h3>Version:</h3>
    1818<ul>
     19<li>1.2
     20Added missing <code>datatype.html</code> [Thanks to Ivan Raikov]
    1921<li>1.1
    2022Adapted to new setup scheme
  • datatype/datatype.meta

    r1 r1908  
    99 (author
    1010   "<a href=\"mailto:felix@call-with-current-continuation.org\">felix</a>")
    11  (files "datatype.setup" "datatype.scm" "datatype-support.scm"))
     11 (files "datatype.setup" "datatype.scm" "datatype-support.scm" "datatype.html"))
  • datatype/datatype.setup

    r1884 r1908  
    1010        `("datatype.scm" "datatype-support.so" "datatype.html"
    1111                ,@(if hash-exports? '("datatype-support.exports") '()) )
    12         `((version 1.1)
    13                 (syntax)
    14                 ,@(if hash-exports? `((exports "datatype-support.exports")) '())
    15                 (documentation "datatype.html")
    16                 (require-at-runtime datatype-support) ) )
     12        `((version 1.2)
     13          (syntax)
     14          ,@(if hash-exports? `((exports "datatype-support.exports")) '())
     15          (documentation "datatype.html")
     16          (require-at-runtime datatype-support) ) )
  • inline/inline-support.scm

    r1 r1908  
    3636  (fixnum)
    3737  (uses utils)
    38   (export inline:compile inline:cache) )
     38  (export inline:compile inline:cache inline:catalog) )
    3939
    40 (define-constant hash-limit 99999991)
     40(use md5)
     41
    4142(define-constant default-inline-cache-name ".cache")
    4243
    4344(define inline:cache (make-parameter default-inline-cache-name))
    4445
    45 (define catalog '())    ; ((#(HASH RTYPE ATYPES TEXT) . PROC) ...)
     46(define inline:catalog '())     ; ((#(HASH OPTIONS TEXT) . PROC) ...)
    4647
    4748(define (inline:compile text . more)
    4849  (let* ([opts (:optional more "")]
    49          [hc (hash text hash-limit)]
     50         [hc (md5:digest text)]
    5051         [fname (make-pathname (inline:cache) (->string hc) "scm")]
    5152         [p (vector hc opts text)]
    52          [a (member p catalog)] )
     53         [a (member p inline:catalog)] )
    5354    (define (doload fname)
    54       (parameterize ([load-verbose #f])
    55         (load (pathname-replace-extension fname ##sys#load-library-extension)) ) )
     55      (load (pathname-replace-extension fname ##sys#load-library-extension)) )
    5656    (unless a
    57       (let ([tmp (create-temporary-file "scm")] )
     57      (let ([tmp (create-temporary-file "scm")]
     58            (cmd (sprintf "csc ~A -s -d0 ~A -X easyffi" fname opts)) )
    5859        (with-output-to-file tmp
    5960          (lambda ()
    60             (printf "; ~A~%" opts)
    61             (write `(declare (foreign-declare ,text) (foreign-parse ,text))) ) )
     61            (printf "; ~A~%" cmd)
     62            (pp `(foreign-parse/declare ,text))) )
    6263        (ensure-cache)
    6364        (if (and (file-exists? fname) (files-equal? tmp fname))
     
    6566              (delete-file* tmp)
    6667              (doload fname)
    67               (update-catalog p) )
     68              (update-inline:catalog p) )
    6869            (begin
    6970              (system* "mv ~A ~A" tmp fname)
    70               (system* "csc ~A -s -d0 ~A" fname opts)
     71              (system* cmd)
    7172              (doload fname)
    72               (update-catalog p) ) ) ) )
     73              (update-inline:catalog p) ) ) ) )
    7374    (void) ) )
    7475
    75 (define (update-catalog key)
    76   (unless (member key catalog)
    77     (set! catalog (cons key catalog)) ) )
     76(define (update-inline:catalog key)
     77  (unless (member key inline:catalog)
     78    (set! inline:catalog (cons key inline:catalog)) ) )
    7879
    7980(define (files-equal? a b)
  • inline/inline.html

    r1 r1908  
    1616<h3>Version:</h3>
    1717<ul>
     18<li>1.5
     19Fixed dependencies on new easyffi egg
    1820<li>1.4
    1921Fixed dependency on <code>utils</code> unit [Thanks to Benedikt Rosenau]
  • inline/inline.meta

    r1 r1908  
    66 (category lang-exts)
    77 (license "BSD")
     8 (needs silex easyffi md5)
    89 (author
    910   "<a href=\"mailto:felix@call-with-current-continuation.org\">felix</a>")
  • inline/inline.scm

    r1 r1908  
    3333; Germany
    3434
     35(when (or (memq #:compiling ##sys#features) (memq #:compiler-extension ##sys#features))
     36  (require-extension easyffi) )
     37
    3538(define-macro (inline text . more)
    3639  (cond-expand
  • inline/inline.setup

    r1 r1908  
    77 '("inline.scm" "inline-support.so" "inline.html")
    88 '((syntax)
     9   (version 1.5)
    910   (documentation "inline.html")
    1011   (require-at-runtime inline-support)) )
  • opengl/README

    r4 r1908  
    1717initialization by the user, so its use is completely transparent.
    1818
    19 To install this egg, make sure you have the GL, GLU and GLUT header files
     19To install this egg, make sure you have the GL and GLU header files
    2020and import libraries somewhere the compiler can find them.  Then just
    2121follow the normal windows chicken-setup procedure.
     
    8282  take the function pointer argument and so avoid the issue entirely.
    8383
    84 - glut.scm
    85 
    86   - No changes
    87 
    8884- opengl.setup
    8985
  • opengl/opengl.html

    r1375 r1908  
    99
    1010<h3>Description:</h3>
    11 Bindings for the OpenGL + GLUT API.
     11Bindings for the OpenGL API.
    1212
    1313<h3>Author:</h3>
     
    1616<h3>Version:</h3>
    1717<ul>
     18<li>1.13
     19Moved GLUT functionality into a separate egg (<a href="glut.html">glut</a>)
    1820<li>1.12
    1921Adapted to externalized <code>easyffi</code> extension
     
    4951(require-extension gl)
    5052(require-extension glu)
    51 (require-extension glut)
    5253</pre>
    5354
     
    14461447</dl>
    14471448
    1448 <li><code>glut</code>
    1449 
    1450 <!-- glut -->
    1451 <dl>
    1452 <dt><b><pre>
    1453 [value] glut:RGB
    1454 [value] glut:RGBA
    1455 [value] glut:INDEX
    1456 [value] glut:SINGLE
    1457 [value] glut:DOUBLE
    1458 [value] glut:ACCUM
    1459 [value] glut:ALPHA
    1460 [value] glut:DEPTH
    1461 [value] glut:STENCIL
    1462 [value] glut:MULTISAMPLE
    1463 [value] glut:STEREO
    1464 [value] glut:LUMINANCE
    1465 [value] glut:LEFT_BUTTON
    1466 [value] glut:MIDDLE_BUTTON
    1467 [value] glut:RIGHT_BUTTON
    1468 [value] glut:DOWN
    1469 [value] glut:UP
    1470 [value] glut:KEY_F1
    1471 [value] glut:KEY_F2
    1472 [value] glut:KEY_F3
    1473 [value] glut:KEY_F4
    1474 [value] glut:KEY_F5
    1475 [value] glut:KEY_F6
    1476 [value] glut:KEY_F7
    1477 [value] glut:KEY_F8
    1478 [value] glut:KEY_F9
    1479 [value] glut:KEY_F10
    1480 [value] glut:KEY_F11
    1481 [value] glut:KEY_F12
    1482 [value] glut:KEY_LEFT
    1483 [value] glut:KEY_UP
    1484 [value] glut:KEY_RIGHT
    1485 [value] glut:KEY_DOWN
    1486 [value] glut:KEY_PAGE_UP
    1487 [value] glut:KEY_PAGE_DOWN
    1488 [value] glut:KEY_HOME
    1489 [value] glut:KEY_END
    1490 [value] glut:KEY_INSERT
    1491 [value] glut:LEFT
    1492 [value] glut:ENTERED
    1493 [value] glut:MENU_NOT_IN_USE
    1494 [value] glut:MENU_IN_USE
    1495 [value] glut:NOT_VISIBLE
    1496 [value] glut:VISIBLE
    1497 [value] glut:HIDDEN
    1498 [value] glut:FULLY_RETAINED
    1499 [value] glut:PARTIALLY_RETAINED
    1500 [value] glut:FULLY_COVERED
    1501 [value] glut:RED
    1502 [value] glut:GREEN
    1503 [value] glut:BLUE
    1504 [value] glut:NORMAL
    1505 [value] glut:OVERLAY
    1506 [value] glut:WINDOW_X
    1507 [value] glut:WINDOW_Y
    1508 [value] glut:WINDOW_WIDTH
    1509 [value] glut:WINDOW_HEIGHT
    1510 [value] glut:WINDOW_BUFFER_SIZE
    1511 [value] glut:WINDOW_STENCIL_SIZE
    1512 [value] glut:WINDOW_DEPTH_SIZE
    1513 [value] glut:WINDOW_RED_SIZE
    1514 [value] glut:WINDOW_GREEN_SIZE
    1515 [value] glut:WINDOW_BLUE_SIZE
    1516 [value] glut:WINDOW_ALPHA_SIZE
    1517 [value] glut:WINDOW_ACCUM_RED_SIZE
    1518 [value] glut:WINDOW_ACCUM_GREEN_SIZE
    1519 [value] glut:WINDOW_ACCUM_BLUE_SIZE
    1520 [value] glut:WINDOW_ACCUM_ALPHA_SIZE
    1521 [value] glut:WINDOW_DOUBLEBUFFER
    1522 [value] glut:WINDOW_RGBA
    1523 [value] glut:WINDOW_PARENT
    1524 [value] glut:WINDOW_NUM_CHILDREN
    1525 [value] glut:WINDOW_COLORMAP_SIZE
    1526 [value] glut:WINDOW_NUM_SAMPLES
    1527 [value] glut:WINDOW_STEREO
    1528 [value] glut:WINDOW_CURSOR
    1529 [value] glut:SCREEN_WIDTH
    1530 [value] glut:SCREEN_HEIGHT
    1531 [value] glut:SCREEN_WIDTH_MM
    1532 [value] glut:SCREEN_HEIGHT_MM
    1533 [value] glut:MENU_NUM_ITEMS
    1534 [value] glut:DISPLAY_MODE_POSSIBLE
    1535 [value] glut:INIT_WINDOW_X
    1536 [value] glut:INIT_WINDOW_Y
    1537 [value] glut:INIT_WINDOW_WIDTH
    1538 [value] glut:INIT_WINDOW_HEIGHT
    1539 [value] glut:INIT_DISPLAY_MODE
    1540 [value] glut:ELAPSED_TIME
    1541 [value] glut:WINDOW_FORMAT_ID
    1542 [value] glut:HAS_KEYBOARD
    1543 [value] glut:HAS_MOUSE
    1544 [value] glut:HAS_SPACEBALL
    1545 [value] glut:HAS_DIAL_AND_BUTTON_BOX
    1546 [value] glut:HAS_TABLET
    1547 [value] glut:NUM_MOUSE_BUTTONS
    1548 [value] glut:NUM_SPACEBALL_BUTTONS
    1549 [value] glut:NUM_BUTTON_BOX_BUTTONS
    1550 [value] glut:NUM_DIALS
    1551 [value] glut:NUM_TABLET_BUTTONS
    1552 [value] glut:DEVICE_IGNORE_KEY_REPEAT
    1553 [value] glut:DEVICE_KEY_REPEAT
    1554 [value] glut:HAS_JOYSTICK
    1555 [value] glut:OWNS_JOYSTICK
    1556 [value] glut:JOYSTICK_BUTTONS
    1557 [value] glut:JOYSTICK_AXES
    1558 [value] glut:JOYSTICK_POLL_RATE
    1559 [value] glut:OVERLAY_POSSIBLE
    1560 [value] glut:LAYER_IN_USE
    1561 [value] glut:HAS_OVERLAY
    1562 [value] glut:TRANSPARENT_INDEX
    1563 [value] glut:NORMAL_DAMAGED
    1564 [value] glut:OVERLAY_DAMAGED
    1565 [value] glut:VIDEO_RESIZE_POSSIBLE
    1566 [value] glut:VIDEO_RESIZE_IN_USE
    1567 [value] glut:VIDEO_RESIZE_X_DELTA
    1568 [value] glut:VIDEO_RESIZE_Y_DELTA
    1569 [value] glut:VIDEO_RESIZE_WIDTH_DELTA
    1570 [value] glut:VIDEO_RESIZE_HEIGHT_DELTA
    1571 [value] glut:VIDEO_RESIZE_X
    1572 [value] glut:VIDEO_RESIZE_Y
    1573 [value] glut:VIDEO_RESIZE_WIDTH
    1574 [value] glut:VIDEO_RESIZE_HEIGHT
    1575 [value] glut:NORMAL
    1576 [value] glut:OVERLAY
    1577 [value] glut:ACTIVE_SHIFT
    1578 [value] glut:ACTIVE_CTRL
    1579 [value] glut:ACTIVE_ALT
    1580 [value] glut:CURSOR_RIGHT_ARROW
    1581 [value] glut:CURSOR_LEFT_ARROW
    1582 [value] glut:CURSOR_INFO
    1583 [value] glut:CURSOR_DESTROY
    1584 [value] glut:CURSOR_HELP
    1585 [value] glut:CURSOR_CYCLE
    1586 [value] glut:CURSOR_SPRAY
    1587 [value] glut:CURSOR_WAIT
    1588 [value] glut:CURSOR_TEXT
    1589 [value] glut:CURSOR_CROSSHAIR
    1590 [value] glut:CURSOR_UP_DOWN
    1591 [value] glut:CURSOR_LEFT_RIGHT
    1592 [value] glut:CURSOR_TOP_SIDE
    1593 [value] glut:CURSOR_BOTTOM_SIDE
    1594 [value] glut:CURSOR_LEFT_SIDE
    1595 [value] glut:CURSOR_RIGHT_SIDE
    1596 [value] glut:CURSOR_TOP_LEFT_CORNER
    1597 [value] glut:CURSOR_TOP_RIGHT_CORNER
    1598 [value] glut:CURSOR_BOTTOM_RIGHT_CORNER
    1599 [value] glut:CURSOR_BOTTOM_LEFT_CORNER
    1600 [value] glut:CURSOR_INHERIT
    1601 [value] glut:CURSOR_NONE
    1602 [value] glut:CURSOR_FULL_CROSSHAIR
    1603 [value] glut:STROKE_ROMAN
    1604 [value] glut:STROKE_MONO_ROMAN
    1605 [value] glut:BITMAP_9_BY_15
    1606 [value] glut:BITMAP_8_BY_13
    1607 [value] glut:BITMAP_TIMES_ROMAN_10
    1608 [value] glut:BITMAP_TIMES_ROMAN_24
    1609 [value] glut:BITMAP_HELVETICA_10
    1610 [value] glut:BITMAP_HELVETICA_12
    1611 [value] glut:BITMAP_HELVETICA_18
    1612 [value] glut:KEY_REPEAT_OFF
    1613 [value] glut:KEY_REPEAT_ON
    1614 [value] glut:KEY_REPEAT_DEFAULT
    1615 [value] glut:JOYSTICK_BUTTON_A
    1616 [value] glut:JOYSTICK_BUTTON_B
    1617 [value] glut:JOYSTICK_BUTTON_C
    1618 [value] glut:JOYSTICK_BUTTON_D
    1619 [value] glut:GAME_MODE_ACTIVE
    1620 [value] glut:GAME_MODE_POSSIBLE
    1621 [value] glut:GAME_MODE_WIDTH
    1622 [value] glut:GAME_MODE_HEIGHT
    1623 [value] glut:GAME_MODE_PIXEL_DEPTH
    1624 [value] glut:GAME_MODE_REFRESH_RATE
    1625 [value] glut:GAME_MODE_DISPLAY_CHANGED
    1626 [procedure] (glut:InitDisplayMode UNSIGNED-INTEGER)
    1627 [procedure] (glut:InitDisplayString STRING)
    1628 [procedure] (glut:InitWindowPosition INTEGER INTEGER)
    1629 [procedure] (glut:InitWindowSize INTEGER INTEGER)
    1630 [procedure] (glut:MainLoop)
    1631 [procedure] (glut:CreateWindow C-STRING) -> INTEGER
    1632 [procedure] (glut:CreateSubWindow INTEGER INTEGER INTEGER INTEGER INTEGER) -> INTEGER
    1633 [procedure] (glut:DestroyWindow INTEGER)
    1634 [procedure] (glut:PostRedisplay)
    1635 [procedure] (glut:PostWindowRedisplay INTEGER)
    1636 [procedure] (glut:PostWindowOverlayRedisplay INTEGER)
    1637 [procedure] (glut:SwapBuffers)
    1638 [procedure] (glut:GetWindow) -> INTEGER
    1639 [procedure] (glut:SetWindow INTEGER)
    1640 [procedure] (glut:SetWindowTitle C-STRING)
    1641 [procedure] (glut:SetIconTitle C-STRING)
    1642 [procedure] (glut:PositionWindow INTEGER INTEGER)
    1643 [procedure] (glut:ReshapeWindow INTEGER INTEGER)
    1644 [procedure] (glut:PopWindow)
    1645 [procedure] (glut:PushWindow)
    1646 [procedure] (glut:IconifyWindow)
    1647 [procedure] (glut:ShowWindow)
    1648 [procedure] (glut:HideWindow)
    1649 [procedure] (glut:CreateMenu PROCEDURE) -> INTEGER
    1650 [procedure] (glut:DestroyMenu INTEGER)
    1651 [procedure] (glut:GetMenu) -> INTEGER
    1652 [procedure] (glut:SetMenu INTEGER)
    1653 [procedure] (glut:AddMenuEntry C-STRING INTEGER)
    1654 [procedure] (glut:AddSubMenu C-STRING INTEGER)
    1655 [procedure] (glut:ChangeToMenuEntry INTEGER C-STRING INTEGER)
    1656 [procedure] (glut:ChangeToSubMenu INTEGER C-STRING INTEGER)
    1657 [procedure] (glut:RemoveMenuItem INTEGER)
    1658 [procedure] (glut:AttachMenu INTEGER)
    1659 [procedure] (glut:DetachMenu INTEGER)
    1660 [procedure] (glut:DisplayFunc PROCEDURE)
    1661 [procedure] (glut:ReshapeFunc PROCEDURE)
    1662 [procedure] (glut:KeyboardFunc PROCEDURE)
    1663 [procedure] (glut:MouseFunc PROCEDURE)
    1664 [procedure] (glut:MotionFunc PROCEDURE)
    1665 [procedure] (glut:PassiveMotionFunc PROCEDURE)
    1666 [procedure] (glut:EntryFunc PROCEDURE)
    1667 [procedure] (glut:VisibilityFunc PROCEDURE)
    1668 [procedure] (glut:IdleFunc PROCEDURE)
    1669 [procedure] (glut:TimerFunc UNSIGNED-INTEGER PROCEDURE INTEGER)
    1670 [procedure] (glut:MenuStateFunc PROCEDURE)
    1671 [procedure] (glut:WindowStatusFunc PROCEDURE)
    1672 [procedure] (glut:KeyboardUpFunc PROCEDURE)
    1673 [procedure] (glut:SpecialUpFunc PROCEDURE)
    1674 [procedure] (glut:JoystickFunc PROCEDURE)
    1675 [procedure] (glut:SetColor INTEGER FLOAT FLOAT FLOAT)
    1676 [procedure] (glut:GetColor INTEGER INTEGER) -> FLOAT
    1677 [procedure] (glut:CopyColormap INTEGER)
    1678 [procedure] (glut:Get INTEGER) -> INTEGER
    1679 [procedure] (glut:DeviceGet INTEGER) -> INTEGER
    1680 [procedure] (glut:BitmapCharacter (POINTER VOID) CHAR)
    1681 [procedure] (glut:BitmapWidth (POINTER VOID) CHAR) -> INTEGER
    1682 [procedure] (glut:StrokeCharacter (POINTER VOID) CHAR)
    1683 [procedure] (glut:StrokeWidth (POINTER VOID) CHAR) -> INTEGER
    1684 [procedure] (glut:WireSphere DOUBLE INTEGER INTEGER)
    1685 [procedure] (glut:SolidSphere DOUBLE INTEGER INTEGER)
    1686 [procedure] (glut:WireCone DOUBLE DOUBLE INTEGER INTEGER)
    1687 [procedure] (glut:SolidCone DOUBLE DOUBLE INTEGER INTEGER)
    1688 [procedure] (glut:WireCube DOUBLE)
    1689 [procedure] (glut:SolidCube DOUBLE)
    1690 [procedure] (glut:WireTorus DOUBLE DOUBLE INTEGER INTEGER)
    1691 [procedure] (glut:SolidTorus DOUBLE DOUBLE INTEGER INTEGER)
    1692 [procedure] (glut:WireDodecahedron)
    1693 [procedure] (glut:SolidDodecahedron)
    1694 [procedure] (glut:WireTeapot DOUBLE)
    1695 [procedure] (glut:SolidTeapot DOUBLE)
    1696 [procedure] (glut:WireOctahedron)
    1697 [procedure] (glut:SolidOctahedron)
    1698 [procedure] (glut:WireTetrahedron)
    1699 [procedure] (glut:SolidTetrahedron)
    1700 [procedure] (glut:WireIcosahedron)
    1701 [procedure] (glut:SolidIcosahedron)
    1702 [procedure] (glut:WarpPointer INTEGER INTEGER)
    1703 [procedure] (glut:VideoResizeGet INTEGER)
    1704 [procedure] (glut:SetupVideoResizing)
    1705 [procedure] (glut:StopVideoResizing)
    1706 [procedure] (glut:VideoResize INTEGER INTEGER INTEGER INTEGER)
    1707 [procedure] (glut:VideoPan INTEGER INTEGER INTEGER INTEGER)
    1708 [procedure] (glut:ReportErrors)
    1709 [procedure] (glut:IgnoreKeyRepeat BOOLEAN)
    1710 [procedure] (glut:SetKeyRepeat INTEGER)
    1711 [procedure] (glut:ForceJoystickFunc)
    1712 [procedure] (glut:GameModeString STRING)
    1713 [procedure] (glut:EnterGameMode)
    1714 [procedure] (glut:LeaveGameMode)
    1715 [procedure] (glut:GameModeGet INTEGER)
    1716 </b></pre>
    1717 <dd>
    1718 Constants and procedures for the OpenGL GLUT API. Note that <code>glutInit</code> will be called automatically
    1719 after the <code>(opengl glut)</code> extension is loaded.
    1720 
    17211449<p><b>Note:</b>
    17221450Some OpenGL functions accept pointers to buffers of various sizes (for example <code>gl:CallLists</code>). To convert
     
    17301458<p><h3>Examples:</h3>
    17311459
    1732 A most trivial example: a white rectangle
    1733 
    1734 <pre>
    1735 (require-extension gl glut)
    1736 
    1737 (glut:CreateWindow "simple")
    1738 
    1739 (glut:DisplayFunc
    1740  (lambda ()
    1741    (gl:Clear gl:COLOR_BUFFER_BIT)
    1742    (gl:Begin gl:POLYGON)
    1743    (gl:Vertex2f -0.5 -0.5)
    1744    (gl:Vertex2f -0.5 0.5)
    1745    (gl:Vertex2f 0.5 0.5)
    1746    (gl:Vertex2f 0.5 -0.5)
    1747    (gl:End)
    1748    (gl:Flush) ) )
    1749 
    1750 (gl:ClearColor 0 0 0 1)
    1751 (glut:MainLoop)
    1752 </pre>
    1753 
    1754 <p>The well-known "gears" example can be found here: <a href="gears.scm">gears.scm</a>.
    1755 </pre>
     1460<p>An SDL based version of the well-known "gears" example can be found here:
     1461<a href="sdl-gears.scm">sdl-gears.scm</a>.
    17561462
    17571463<h3>License:</h3>
    17581464<pre>
    1759 Copyright (c) 2004, Felix L. Winkelmann
     1465Copyright (c) 2004-2005, Felix L. Winkelmann
    17601466All rights reserved.
    17611467
  • opengl/opengl.meta

    r1382 r1908  
    11;;; opengl.meta -*- Hen -*-
    22
    3 ((date "2004-04-28")
    4  (egg "opengl.egg")
    5  (synopsis "OpenGL + GLUT bindings")
     3((egg "opengl.egg")
     4 (synopsis "OpenGL bindings")
    65 (category graphics)
    76 (license "BSD")
     
    109   "<a href=\"mailto:felix@call-with-current-continuation.org\">felix</a>")
    1110 (files "opengl.setup"
     11        "opengl.html"
    1212        "gl.scm"
    1313        "glu.scm"
    14         "glut.scm"
    1514        "glprocs"
    1615        "glprocs.c"
  • opengl/opengl.setup

    r1188 r1908  
    44 ((eq? (software-version) 'macosx)
    55  (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)))
    7          ("glut.so" ("glut.scm") (run (csc -s glut.scm -O2 -d0 -FGLUT -FOpenGL -framework GLUT -framework OpenGL -framework Foundation))) )
    8     '#("gl.so" "glu.so" "glut.so") ))
     6         ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -FOpenGL -framework OpenGL))))
     7    '#("gl.so" "glu.so") ))
    98 ((and (eq? (software-type) 'windows) (eq? (build-platform) 'msvc))
    109  (make (("gl.dll" ("gl.scm") (run (csc -s -feature msvc gl.scm glprocs.c -O2 -d0 -lopengl32 -C "/Iglprocs")))
    11          ("glu.dll" ("glu.scm") (run (csc -s -feature msvc -emit-external-prototypes-first glu.scm -O2 -d0 -lglu32 -C "/Iglprocs")))
    12          ("glut.dll" ("glut.scm") (run (csc -s glut.scm -O2 -d0 -lglut32 -C "/Iglprocs"))))
    13     '#("gl.dll" "glu.dll" "glut.dll")))
     10         ("glu.dll" ("glu.scm") (run (csc -s -feature msvc -emit-external-prototypes-first glu.scm -O2 -d0 -lglu32 -C "/Iglprocs"))))
     11    '#("gl.dll" "glu.dll")))
    1412 ((and (eq? (software-type) 'windows) (eq? (build-platform) 'cygwin))
    1513  (make (("gl.so" ("gl.scm") (run (csc -s -feature cygwin gl.scm -O2 -d0 -lopengl32)))
    16          ("glu.so" ("glu.scm") (run (csc -s -feature cygwin glu.scm -O2 -d0 -lopengl32 -lglu32)))
    17          ("glut.so" ("glut.scm") (run (csc -s -feature cygwin glut.scm -O2 -d0 -lopengl32 -lglu32 -lglut32))) )
    18     '#("gl.so" "glu.so" "glut.so") ))
     14         ("glu.so" ("glu.scm") (run (csc -s -feature cygwin glu.scm -O2 -d0 -lopengl32 -lglu32))))
     15    '#("gl.so" "glu.so") ))
    1916 (else
    2017  (make (("gl.so" ("gl.scm") (run (csc gl.scm -s -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGL -LX11\"")))
    21          ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGLU -LX11\"")))
    22          ("glut.so" ("glut.scm") (run (csc -s glut.scm -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lglut -LX11 -lXmu\""))) )
    23     '#("gl.so" "glu.so" "glut.so") ) ))
     18         ("glu.so" ("glu.scm") (run (csc -s glu.scm -O2 -d0 -L "\"-L/usr/X11R6/lib -L/usr/X11/lib -lGLU -LX11\""))))
     19    '#("gl.so" "glu.so") ) ))
    2420
    2521(install-extension
    2622 'gl
    27  '("gl.so" "glu.so" "glut.so") )
     23 '("gl.so" "glu.so")
     24 '((version 1.13)
     25   (examples "sdl-gears.scm")
     26   (documentation "opengl.html")))
     27
  • wiki/Accessing external objects

    r1869 r1908  
    77=== foreign-code
    88
    9  [syntax] (foreign-code STRING)
    10 
    11 Executes the embedded C/C++ code {{STRING}}, which should
     9 [syntax] (foreign-code STRING ...)
     10
     11Executes the embedded C/C++ code {{STRING ...}}, which should
    1212be a sequence of C statements, which are executed and return an unspecified result.
    1313
  • wiki/chicken-setup

    r1739 r1908  
    452452; {{-i  -docindex}} : Displays the path to the index-page of any installed extension-documentation. If the index page does not exist, it is created.
    453453; {{-C  -check}} : Downloads the repository-index and lists locally installed extensions for which a newer release is available for download.
     454; {{-t  -test EXTENSION ...}} : return success if all given extensions are installed
    454455; {{-ls EXTENSION}} : List installed files for extension
    455456; {{-fetch-tree}} : Downloads and prints the repository catalog
  • wiki/codewalk

    r1869 r1908  
    33
    44
    5 == Introduction
     5== codewalk
    66
    77A generic macro-expansion and code-walking and code-transformation facility.
    88
    99
    10 == expand
     10=== expand
    1111
    1212 [procedure] (expand EXPRESSION [HOOK [ARGUMENT ...]])
     
    3232for all expression classes.
    3333
    34 == expand/context
     34=== expand/context
    3535
    3636 [procedure] (expand/context EXPRESSION CONTEXT [HOOK [ARGUMENT ...]])
     
    3939{{expansion-context}}.
    4040
    41 == expansion-context
     41=== expansion-context
    4242
    4343 [procedure] (expansion-context #!key evaluate compilation unsafe cooked classes prehook environment)
     
    7171
    7272
    73 == expansion-context?
     73=== expansion-context?
    7474
    7575 [procedure] (expansion-context? X)
     
    7777Returns {{#t}} if {{X}} is an expansion context, or {{#f}} otherwise.
    7878
    79 == install-toplevel-expander
     79=== install-toplevel-expander
    8080
    8181 [procedure] (install-toplevel-expander EXPANDER [OVERRIDE-MACROEXPAND])
     
    8888
    8989
    90 == Examples
     90=== Examples
    9191
    9292 (define exp
  • wiki/openal

    r1703 r1908  
    191191
    192192This extension loads {{al}}, {{alc}} and {{alut}} and provides few higher-level operations.
     193Note that loading this unit automatically calls {{alut:Init}}.
    193194
    194195 [procedure] (openal:make-source INT) -> INT
Note: See TracChangeset for help on using the changeset viewer.