ruby-glfw 0.9

data/glfw-src/lib/dos/dos_mouse.c

@@ -0,0 +1,337 @@
+//========================================================================
+// GLFW - An OpenGL framework
+// File:        dos_mouse.c
+// Platform:    DOS
+// API version: 2.6
+// WWW:         http://glfw.sourceforge.net
+//------------------------------------------------------------------------
+// Copyright (c) 2002-2006 Camilla Berglund
+//
+// This software is provided 'as-is', without any express or implied
+// warranty. In no event will the authors be held liable for any damages
+// arising from the use of this software.
+//
+// Permission is granted to anyone to use this software for any purpose,
+// including commercial applications, and to alter it and redistribute it
+// freely, subject to the following restrictions:
+//
+// 1. The origin of this software must not be misrepresented; you must not
+//    claim that you wrote the original software. If you use this software
+//    in a product, an acknowledgment in the product documentation would
+//    be appreciated but is not required.
+//
+// 2. Altered source versions must be plainly marked as such, and must not
+//    be misrepresented as being the original software.
+//
+// 3. This notice may not be removed or altered from any source
+//    distribution.
+//
+//========================================================================
+
+#include "internal.h"
+
+//========================================================================
+// Most of the code in this source file is based on the mouse driver in
+// Daniel Borca's GLUT implementation for DOS/MESA.
+//========================================================================
+
+//========================================================================
+// Definitions
+//========================================================================
+
+#define _GLFW_MOUSE_STACK_SIZE 16384
+
+
+// Assembler function prototypes
+extern void _glfwMouseWrap( void );
+extern int  _glfwMouseWrap_end[];
+
+
+//========================================================================
+// Global variables
+//========================================================================
+
+static int _glfwMouseInstalled = 0;
+
+static struct {
+    long         Callback;
+    int          Emulate3;
+    int          OldX, OldY, OldB;
+    __dpmi_regs  Regs;
+} _glfwMouseDrv;
+
+
+
+//************************************************************************
+//**** Mouse Interrupt ***************************************************
+//************************************************************************
+
+//========================================================================
+// _glfwMouseInt() - Mouse interrupt handler
+//========================================================================
+
+static void _glfwMouseInt( __dpmi_regs *r )
+{
+    int newx, newy, dx, dy, dz, buttons;
+    _GLFWdosevent event;
+    struct mousemove_event   *mousemove   = &event.MouseMove;
+    struct mousewheel_event  *mousewheel  = &event.MouseWheel;
+    struct mousebutton_event *mousebutton = &event.MouseButton;
+
+    // Calculate mouse deltas
+    newx = (signed short)r->x.si;
+    newy = (signed short)r->x.di;
+    dx   = newx - _glfwMouseDrv.OldX;
+    dy   = newy - _glfwMouseDrv.OldY;
+    dz   = (signed char)r->h.bh;
+
+    // Get mouse buttons status
+    buttons = r->h.bl;
+
+    // Emulate 3rd mouse button?
+    if( _glfwMouseDrv.Emulate3 )
+    {
+        if( (buttons & 3) == 3 )
+        {
+            buttons = 4;
+        }
+    }
+
+    // Mouse moved?
+    if( dx || dy )
+    {
+        mousemove->Type = _GLFW_DOS_MOUSE_MOVE_EVENT;
+        mousemove->DeltaX = dx;
+        mousemove->DeltaY = dy;
+        _glfwPostDOSEvent( &event );
+    }
+
+    // Mouse wheel moved?
+    if( dz )
+    {
+        mousewheel->Type = _GLFW_DOS_MOUSE_WHEEL_EVENT;
+        mousewheel->WheelDelta = dz;
+        _glfwPostDOSEvent( &event );
+    }
+
+    // Button state changed?
+    if( buttons != _glfwMouseDrv.OldB )
+    {
+        mousebutton->Type = _GLFW_DOS_MOUSE_BUTTON_EVENT;
+
+        // Left mouse button changed?
+        if( (_glfwMouseDrv.OldB & 1) && !(buttons & 1) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_LEFT;
+            mousebutton->Action = GLFW_RELEASE;
+            _glfwPostDOSEvent( &event );
+        }
+        else if( !(_glfwMouseDrv.OldB & 1) && (buttons & 1) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_LEFT;
+            mousebutton->Action = GLFW_PRESS;
+            _glfwPostDOSEvent( &event );
+        }
+
+        // Right mouse button changed?
+        if( (_glfwMouseDrv.OldB & 2) && !(buttons & 2) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_RIGHT;
+            mousebutton->Action = GLFW_RELEASE;
+            _glfwPostDOSEvent( &event );
+        }
+        else if( !(_glfwMouseDrv.OldB & 2) && (buttons & 2) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_RIGHT;
+            mousebutton->Action = GLFW_PRESS;
+            _glfwPostDOSEvent( &event );
+        }
+
+        // Middle mouse button changed?
+        if( (_glfwMouseDrv.OldB & 4) && !(buttons & 4) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_MIDDLE;
+            mousebutton->Action = GLFW_RELEASE;
+            _glfwPostDOSEvent( &event );
+        }
+        else if( !(_glfwMouseDrv.OldB & 4) && (buttons & 4) )
+        {
+            mousebutton->Button = GLFW_MOUSE_BUTTON_MIDDLE;
+            mousebutton->Action = GLFW_PRESS;
+            _glfwPostDOSEvent( &event );
+        }
+
+    }
+
+    // Remember old mouse state
+    _glfwMouseDrv.OldX = newx;
+    _glfwMouseDrv.OldY = newy;
+    _glfwMouseDrv.OldB = buttons;
+} ENDOFUNC(_glfwMouseInt)
+
+
+
+//************************************************************************
+//****                  GLFW internal functions                       ****
+//************************************************************************
+
+//========================================================================
+// _glfwInitMouse() - Initialize mouse driver
+//========================================================================
+
+int _glfwInitMouse( void )
+{
+    int buttons;
+
+    // Already installed?
+    if( _glfwMouseInstalled )
+    {
+        return 0;
+    }
+
+    // Reset mouse and get status
+    __asm("\n\
+                xorl    %%eax, %%eax    \n\
+                int     $0x33           \n\
+                andl    %%ebx, %%eax    \n\
+                movl    %%eax, %0       \n\
+    ":"=g" (buttons)::"%eax", "%ebx");
+    if( !buttons )
+    {
+        return 0;
+    }
+
+    // Lock data and functions
+    LOCKDATA( _glfwMouseDrv );
+    LOCKBUFF( _glfwMouseWrap_end, 8 );
+    LOCKFUNC( _glfwMouseInt );
+    LOCKFUNC( _glfwMouseWrap );
+
+    _glfwMouseWrap_end[1] = __djgpp_ds_alias;
+
+    // Grab a locked stack
+    _glfwMouseWrap_end[0] = (int)malloc( _GLFW_MOUSE_STACK_SIZE );
+    if( _glfwMouseWrap_end[0] == NULL )
+    {
+        return 0;
+    }
+    LOCKBUFF( _glfwMouseWrap_end[0], _GLFW_MOUSE_STACK_SIZE );
+
+    // Try to hook a call-back
+    __asm("\n\
+                pushl   %%ds            \n\
+                pushl   %%es            \n\
+                movw    $0x0303, %%ax   \n\
+                pushl   %%ds            \n\
+                pushl   %%cs            \n\
+                popl    %%ds            \n\
+                popl    %%es            \n\
+                int     $0x31           \n\
+                popl    %%es            \n\
+                popl    %%ds            \n\
+                jc      0f              \n\
+                shll    $16, %%ecx      \n\
+                movw    %%dx, %%cx      \n\
+                movl    %%ecx, %0       \n\
+        0:                              \n\
+    ":"=g"(_glfwMouseDrv.Callback)
+    :"S" (_glfwMouseWrap), "D"(&_glfwMouseDrv.Regs)
+    :"%eax", "%ecx", "%edx");
+    if( !_glfwMouseDrv.Callback )
+    {
+        free( (void *)_glfwMouseWrap_end[0] );
+        return 0;
+    }
+
+    // Adjust stack
+    _glfwMouseWrap_end[0] += _GLFW_MOUSE_STACK_SIZE;
+
+    // Install the handler
+    _glfwMouseDrv.Regs.x.ax = 0x000c;
+    _glfwMouseDrv.Regs.x.cx = 0x7f | 0x80;
+    _glfwMouseDrv.Regs.x.dx = _glfwMouseDrv.Callback & 0xffff;
+    _glfwMouseDrv.Regs.x.es = _glfwMouseDrv.Callback >> 16;
+    __dpmi_int( 0x33, &_glfwMouseDrv.Regs );
+
+    // Clear mickeys
+    __asm __volatile ("\n\
+        movw $0xb, %%ax;    \n\
+        int $0x33           \n\
+    ":::"%eax", "%ecx", "%edx");
+
+    _glfwMouseDrv.OldX = 0;
+    _glfwMouseDrv.OldY = 0;
+    _glfwMouseDrv.OldB = 0;
+
+    // Emulate third mouse button?
+    _glfwMouseDrv.Emulate3 = buttons < 3;
+
+    return 1;
+}
+
+
+//========================================================================
+// _glfwTerminateMouse() - Terminate mouse driver
+//========================================================================
+
+void _glfwTerminateMouse( void )
+{
+    if( !_glfwMouseInstalled )
+    {
+        return;
+    }
+
+    __asm("\n\
+            movl    %%edx, %%ecx    \n\
+            shrl    $16, %%ecx      \n\
+            movw    $0x0304, %%ax   \n\
+            int     $0x31           \n\
+            movw    $0x000c, %%ax   \n\
+            xorl    %%ecx, %%ecx    \n\
+            int     $0x33           \n\
+    "::"d"(_glfwMouseDrv.Callback):"%eax", "%ecx");
+    _glfwMouseDrv.Callback = 0;
+
+    free( (void *)(_glfwMouseWrap_end[0] - _GLFW_MOUSE_STACK_SIZE) );
+
+    _glfwMouseInstalled = 0;
+}
+
+
+
+//========================================================================
+// _glfwMouseWrap()
+//========================================================================
+
+// Hack alert: `_glfwMouseWrap_end' actually holds the address of stack in
+// a safe data selector.
+
+__asm("\n\
+                .text                           \n\
+                .p2align 5,,31                  \n\
+                .global __glfwMouseWrap         \n\
+__glfwMouseWrap:                                \n\
+                cld                             \n\
+                lodsl                           \n\
+                movl    %eax, %es:42(%edi)      \n\
+                addw    $4, %es:46(%edi)        \n\
+                pushl   %es                     \n\
+                movl    %ss, %ebx               \n\
+                movl    %esp, %esi              \n\
+                lss     %cs:__glfwMouseWrap_end, %esp\n\
+                pushl   %ss                     \n\
+                pushl   %ss                     \n\
+                popl    %es                     \n\
+                popl    %ds                     \n\
+                movl    ___djgpp_dos_sel, %fs   \n\
+                pushl   %fs                     \n\
+                popl    %gs                     \n\
+                pushl   %edi                    \n\
+                call    __glfwMouseInt          \n\
+                popl    %edi                    \n\
+                movl    %ebx, %ss               \n\
+                movl    %esi, %esp              \n\
+                popl    %es                     \n\
+                iret                            \n\
+                .global __glfwMouseWrap_end     \n\
+__glfwMouseWrap_end:.long   0, 0");

data/glfw-src/lib/dos/dos_thread.c

@@ -0,0 +1,267 @@
+//========================================================================
+// GLFW - An OpenGL framework
+// File:        dos_thread.c
+// Platform:    DOS
+// API version: 2.6
+// WWW:         http://glfw.sourceforge.net
+//------------------------------------------------------------------------
+// Copyright (c) 2002-2006 Camilla Berglund
+//
+// This software is provided 'as-is', without any express or implied
+// warranty. In no event will the authors be held liable for any damages
+// arising from the use of this software.
+//
+// Permission is granted to anyone to use this software for any purpose,
+// including commercial applications, and to alter it and redistribute it
+// freely, subject to the following restrictions:
+//
+// 1. The origin of this software must not be misrepresented; you must not
+//    claim that you wrote the original software. If you use this software
+//    in a product, an acknowledgment in the product documentation would
+//    be appreciated but is not required.
+//
+// 2. Altered source versions must be plainly marked as such, and must not
+//    be misrepresented as being the original software.
+//
+// 3. This notice may not be removed or altered from any source
+//    distribution.
+//
+//========================================================================
+
+#include "internal.h"
+
+
+
+//************************************************************************
+//****                  GLFW internal functions                       ****
+//************************************************************************
+
+//========================================================================
+// _glfwInitThreads() - Initialize GLFW thread package
+//========================================================================
+
+int _glfwInitThreads( void )
+{
+    // TODO
+    _glfwThrd.First.Previous = NULL;
+    _glfwThrd.First.Next     = NULL;
+    _glfwThrd.First.ID       = 0;
+    _glfwThrd.NextID = 1;
+
+    return 1;
+}
+
+
+//========================================================================
+// _glfwTerminateThreads() - Terminate GLFW thread package
+//========================================================================
+
+void _glfwTerminateThreads( void )
+{
+    _GLFWthread *t, *t_next;
+
+    // Enter critical section
+    ENTER_THREAD_CRITICAL_SECTION
+
+    // Kill all threads (NOTE: THE USER SHOULD WAIT FOR ALL THREADS TO
+    // DIE, _BEFORE_ CALLING glfwTerminate()!!!)
+    t = _glfwThrd.First.Next;
+    while( t != NULL )
+    {
+        // Get pointer to next thread
+        t_next = t->Next;
+
+        // Simply murder the process, no mercy!
+        // TODO
+
+        // Free memory allocated for this thread
+        free( (void *) t );
+
+        // Select next thread in list
+        t = t_next;
+    }
+
+    // Leave critical section
+    LEAVE_THREAD_CRITICAL_SECTION
+}
+
+
+
+//************************************************************************
+//****               Platform implementation functions                ****
+//************************************************************************
+
+//========================================================================
+// _glfwPlatformCreateThread() - Create a new thread
+//========================================================================
+
+GLFWthread _glfwPlatformCreateThread( GLFWthreadfun fun, void *arg )
+{
+    // TODO
+    return -1;
+}
+
+
+//========================================================================
+// _glfwPlatformDestroyThread() - Kill a thread. NOTE: THIS IS A VERY
+// DANGEROUS OPERATION, AND SHOULD NOT BE USED EXCEPT IN EXTREME
+// SITUATIONS!
+//========================================================================
+
+void _glfwPlatformDestroyThread( GLFWthread ID )
+{
+    _GLFWthread *t, *t_wait;
+
+    // Enter critical section
+    ENTER_THREAD_CRITICAL_SECTION
+
+    // Get thread information pointer
+    t = _glfwGetThreadPointer( ID );
+    if( t == NULL )
+    {
+        LEAVE_THREAD_CRITICAL_SECTION
+        return;
+    }
+
+    // Simply murder the process, no mercy!
+    // TODO
+
+    // Remove thread from thread list
+    _glfwRemoveThread( t );
+
+    // Signal any waiting threads that the thread has died
+    // TODO
+
+    // Leave critical section
+    LEAVE_THREAD_CRITICAL_SECTION
+}
+
+
+//========================================================================
+// _glfwPlatformWaitThread() - Wait for a thread to die
+//========================================================================
+
+int _glfwPlatformWaitThread( GLFWthread ID, int waitmode )
+{
+    // TODO
+    return GL_FALSE;
+}
+
+
+//========================================================================
+// _glfwPlatformGetThreadID() - Return the thread ID for the current
+// thread
+//========================================================================
+
+GLFWthread _glfwPlatformGetThreadID( void )
+{
+    // TODO
+    return 0;
+}
+
+
+//========================================================================
+// _glfwPlatformCreateMutex() - Create a mutual exclusion object
+//========================================================================
+
+GLFWmutex _glfwPlatformCreateMutex( void )
+{
+    // TODO
+    return NULL;
+}
+
+
+//========================================================================
+// _glfwPlatformDestroyMutex() - Destroy a mutual exclusion object
+//========================================================================
+
+void _glfwPlatformDestroyMutex( GLFWmutex mutex )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformLockMutex() - Request access to a mutex
+//========================================================================
+
+void _glfwPlatformLockMutex( GLFWmutex mutex )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformUnlockMutex() - Release a mutex
+//========================================================================
+
+void _glfwPlatformUnlockMutex( GLFWmutex mutex )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformCreateCond() - Create a new condition variable object
+//========================================================================
+
+GLFWcond _glfwPlatformCreateCond( void )
+{
+    // TODO
+    return NULL;
+}
+
+
+//========================================================================
+// _glfwPlatformDestroyCond() - Destroy a condition variable object
+//========================================================================
+
+void _glfwPlatformDestroyCond( GLFWcond cond )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformWaitCond() - Wait for a condition to be raised
+//========================================================================
+
+void _glfwPlatformWaitCond( GLFWcond cond, GLFWmutex mutex,
+    double timeout )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformSignalCond() - Signal a condition to one waiting thread
+//========================================================================
+
+void _glfwPlatformSignalCond( GLFWcond cond )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformBroadcastCond() - Broadcast a condition to all waiting
+// threads
+//========================================================================
+
+void _glfwPlatformBroadcastCond( GLFWcond cond )
+{
+    // TODO
+}
+
+
+//========================================================================
+// _glfwPlatformGetNumberOfProcessors() - Return the number of processors
+// in the system.
+//========================================================================
+
+int _glfwPlatformGetNumberOfProcessors( void )
+{
+    // Return number of processors online (DOS does not support multiple
+    // CPUs...)
+    return 1;
+}