nonin/src/plugin.cpp

Go to the documentation of this file.

/*
-----------------------------------------------------------------------------
This source file is part of OpenSpace3D
For the latest info, see http://www.openspace3d.com

Copyright (c) 2010 I-maginer

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 59 Temple
Place - Suite 330, Boston, MA 02111-1307, USA, or go to
http://www.gnu.org/copyleft/lesser.txt

You may alternatively use this source under the terms of a specific version of
the OpenSpace3D Unrestricted License provided you have obtained such a license from
I-maginer.
-----------------------------------------------------------------------------
*/

/*
 First version : October 2010
 Author : Hamza Hamdi
*/

#include "plugin.h"
#include "NoninCom.h"

cbmachine ww;
HWND HScol = NULL;              

int OBJNONINSCOL;

//===== CB Nonin CONNECTION ===
int SCOL_NONIN_CONNECTED_CB = 0;
int NONIN_CONNECTED_CB;

//===== CB Nonin DISCONNECTION ===
int SCOL_NONIN_DISCONNECTED_CB = 1;
int NONIN_DISCONNECTED_CB;

//===== CB Nonin Heart Rate ===
int SCOL_NONIN_HR_CB = 2;
int NONIN_HR_CB;

//===== CB Nonin SpO2 ===
int SCOL_NONIN_SPO2_CB = 3;
int NONIN_SPO2_CB;

//===== CB Nonin SpO2 ===
int SCOL_NONIN_SNSA_CB = 4;
int NONIN_SNSA_CB;

extern std::list<NoninCom*> noninList ;

int destroyNoninObj(mmachine m, int handsys, int NoninTab) 
{
  NoninCom* NoninComObj = (NoninCom*) MMfetch(m, MTOP(NoninTab), 0);
  if (NoninComObj == NULL) {
    MMset(m, 0, NIL);
    return 0;
  }
  SAFE_DELETE(NoninComObj);
  MMstore(m, MTOP(NoninTab), 0, NULL);
  return 0;
}


int _CRNonin(mmachine m)
{
        #ifdef _SCOL_DEBUG_
                MMechostr(MSKDEBUG,"_CRNonin\n");
        #endif
        
                //Get Channel
                int channel = MMget(m, 0);
                //Test Channel
                if (channel == NIL) { 
                        MMechostr(MSKDEBUG, "Channel NIL\n");   //Display Warning in Console
                        MMpull(m);
                        MMpush(m, NIL);
                        return 0;
                }
                //Create Nonin Instance
                NoninCom * newNoninCom = new NoninCom();
                int noninComTab = MMmalloc(m,1,TYPETAB) ;
                if ( noninComTab == NIL ) 
                {
                        SAFE_DELETE(newNoninCom) ; 
                        MMpull(m);                                      /* depile le channel */
                        return MMpush(m, NIL);
                }

                MMstore( m, noninComTab, 0, (int)newNoninCom ) ;
                MMpush(m, PTOM( noninComTab )) ;

                int k = 0;
                k = OBJcreate(m, OBJNONINSCOL, (int)newNoninCom, -1, -1);

        #ifdef  _SCOL_DEBUG_
                MMechostr(MSKDEBUG,"ok\n");
        #endif

        return k ;
}


int _DSNonin (mmachine m) 
{
#ifdef _SCOL_DEBUG_
        MMechostr(MSKDEBUG,"_DSNonin\n");
#endif

        int noninComTab = MMget(m, 0);
        if (noninComTab == NIL) {
                MMechostr(MSKDEBUG,"ObjNonin NIL\n");
                MMset(m, 0, -1);
                return 0;
        }
        OBJdelTM(m, OBJNONINSCOL, noninComTab);
        MMset(m, 0, 0);

#ifdef  _SCOL_DEBUG_
        MMechostr(MSKDEBUG,"ok\n");
#endif
        return 0;
}


int _CBNoninConnected(mmachine m)
{
        return OBJaddreflex(m, OBJNONINSCOL, SCOL_NONIN_CONNECTED_CB);
}
int getNoninConnectedCb(mmachine m,HWND h,unsigned msg,UINT id,LONG param,int *ret)
{
        int k = 0;
        NoninCom* NoninComObj =(NoninCom*) id;
        
        // OBJbeginreflex(mmachine, objecttype, objectptr, cbtype)
        if (OBJbeginreflex(m, OBJNONINSCOL, (int)NoninComObj, SCOL_NONIN_CONNECTED_CB))
                return 0;
        if ((k=OBJcallreflex(m, 0))) return k;
        return k;
}


int _CBNoninDisconnected(mmachine m)
{
        return OBJaddreflex(m, OBJNONINSCOL, SCOL_NONIN_DISCONNECTED_CB);
}
int getNoninDisconnectedCb(mmachine m,HWND h,unsigned msg,UINT id,LONG param,int *ret)
{
        int k = 0;
        NoninCom* NoninComObj =(NoninCom*) id;
        
        // OBJbeginreflex(mmachine, objecttype, objectptr, cbtype)
        if (OBJbeginreflex(m, OBJNONINSCOL, (int)NoninComObj, SCOL_NONIN_DISCONNECTED_CB))
                return 0;
        if ((k=OBJcallreflex(m, 0))) return k;
        return k;
}


int _CBNoninHR(mmachine m)
{
        return OBJaddreflex(m, OBJNONINSCOL, SCOL_NONIN_HR_CB);
}
int getNoninHRCb(mmachine m,HWND h,unsigned msg,UINT id,LONG param,int *ret)
{
        int k = 0;
        NoninCom* NoninComObj =(NoninCom*) id;
        
        // OBJbeginreflex(mmachine, objecttype, objectptr, cbtype)
        if (OBJbeginreflex(m, OBJNONINSCOL, (int)NoninComObj, SCOL_NONIN_HR_CB))
                return 0;
  MMpush(m, ITOM(param));
  if ((k=OBJcallreflex(m, 1))) return k;
  return k;
}


int _CBNoninSPO2(mmachine m)
{
        return OBJaddreflex(m, OBJNONINSCOL, SCOL_NONIN_SPO2_CB);
}
int getNoninSPO2Cb(mmachine m,HWND h,unsigned msg,UINT id,LONG param,int *ret)
{
        int k = 0;
        NoninCom* NoninComObj =(NoninCom*) id;
        
        // OBJbeginreflex(mmachine, objecttype, objectptr, cbtype)
        if (OBJbeginreflex(m, OBJNONINSCOL, (int)NoninComObj, SCOL_NONIN_SPO2_CB))
                return 0;
  MMpush(m, ITOM(param));
  if ((k=OBJcallreflex(m, 1))) return k;
  return k;
}


int _CBNoninSNSA(mmachine m)
{
        return OBJaddreflex(m, OBJNONINSCOL, SCOL_NONIN_SNSA_CB);
}
int getNoninSNSACb(mmachine m,HWND h,unsigned msg,UINT id,LONG param,int *ret)
{
        int k = 0;
        NoninCom* NoninComObj =(NoninCom*) id;
        
        // OBJbeginreflex(mmachine, objecttype, objectptr, cbtype)
        if (OBJbeginreflex(m, OBJNONINSCOL, (int)NoninComObj, SCOL_NONIN_SNSA_CB))
                return 0;
        if ((k=OBJcallreflex(m, 0))) return k;
        return k;
}


#define NbNoninPKG      8


char    *NoninName[NbNoninPKG] =
{
  "ObjNonin",
  "_CRNonin",
  "_DSNonin",
  "_CBNoninConnected",
  "_CBNoninDisconnected",
  "_CBNoninHR",
  "_CBNoninSPO2",
  "_CBNoninSNSA"
};


int (*NoninFunc[NbNoninPKG])(mmachine m)=
{
  NULL,
  _CRNonin,
  _DSNonin,
  _CBNoninConnected,
  _CBNoninDisconnected,
  _CBNoninHR,
  _CBNoninSPO2,
  _CBNoninSNSA
};


int NoninNArg[NbNoninPKG]=
{
  TYPTYPE,                  // ObjNeurosky
  1,                      // _CRNonin
  1,                      // _DSNonin
  3,                    // _CBNoninConnected
  3,                    // _CBNoninDisconnected
  3,                    // _CBNoninHR
  3,                    // _CBNoninSPO2
  3,                    // _CBNoninSNSA
};


char* NoninType[NbNoninPKG]=
{
        NULL,                                                                                                                                                                                                                                                                               // ObjNeurosky
  "fun [Chn] ObjNonin",                                                                                                                                                                                                 // _CRNonin
  "fun [ObjNonin] I",                                                                                                                                                                                                     // _DSNonin
  "fun [ObjNonin fun [ObjNonin u0] u1 u0] ObjNonin",                            // _CBNoninConnected
  "fun [ObjNonin fun [ObjNonin u0] u1 u0] ObjNonin",                            // _CBNoninDisconnected
  "fun [ObjNonin fun [ObjNonin u0 I] u1 u0] ObjNonin",                                                      // _CBNoninHR
  "fun [ObjNonin fun [ObjNonin u0 I] u1 u0] ObjNonin",                                                      // _CBNoninSPO2
  "fun [ObjNonin fun [ObjNonin u0] u1 u0] ObjNonin",                            // _CBNoninSNSA
};


void cleanDirtyConnection()
{
  std::list<NoninCom*>::iterator iNoninList = noninList.begin();
  while (iNoninList != noninList.begin())
  {
    (*iNoninList)->disconnect();
    iNoninList++;
  }
}


// Everything inside _cond and _endcond is ignored by doxygen

int LoadNonin(mmachine m)
{
        int                     k;
  HScol = (HWND)SCgetExtra("hscol");

  // Scol type declaration
        OBJNONINSCOL = OBJregister( 5, 1, destroyNoninObj, "OBJNONINSCOL" );

        //******************************    Callbacks for Nonin    *******************************************************
  NONIN_CONNECTED_CB = OBJgetUserEvent() ;
  OBJdefEvent( NONIN_CONNECTED_CB, (int (__cdecl *)(struct Mmachine *,int,unsigned int,int,int,int *))getNoninConnectedCb );

  NONIN_DISCONNECTED_CB = OBJgetUserEvent() ;
  OBJdefEvent( NONIN_DISCONNECTED_CB, (int (__cdecl *)(struct Mmachine *,int,unsigned int,int,int,int *))getNoninDisconnectedCb);

  NONIN_HR_CB = OBJgetUserEvent() ;
  OBJdefEvent( NONIN_HR_CB, (int (__cdecl *)(struct Mmachine *,int,unsigned int,int,int,int *))getNoninHRCb);

  NONIN_SPO2_CB = OBJgetUserEvent() ;
  OBJdefEvent( NONIN_SPO2_CB, (int (__cdecl *)(struct Mmachine *,int,unsigned int,int,int,int *))getNoninSPO2Cb);

  NONIN_SNSA_CB = OBJgetUserEvent() ;
  OBJdefEvent( NONIN_SNSA_CB, (int (__cdecl *)(struct Mmachine *,int,unsigned int,int,int,int *))getNoninSNSACb);

        k = PKhardpak(m, "NoninEngine", NbNoninPKG, NoninName, NoninFunc, NoninNArg, NoninType);

        return k;
}




extern "C" __declspec (dllexport) int SCOLloadNONIN(mmachine m, cbmachine w)
{
        SCOLinitplugin(w);
        MMechostr(MSKDEBUG,"SCOLloadNONIN trying loading nonin DLL ...\n");
        LoadNonin(m);
        return 0;
}


extern "C" __declspec (dllexport) int SCOLfreeNONIN()
{
  cleanDirtyConnection() ;
        MMechostr(MSKDEBUG,"\nRelease NONIN DLL\n");
        MMechostr(MSKDEBUG, "------ ..NONIN DLL CLOSED\n\n" );
        return 0;
}

---