git.maemo.org Git - opencv/blob - apps/Hawk/convertwrap.cpp

   1 /*M///////////////////////////////////////////////////////////////////////////////////////
   2 //
   3 //  IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.
   4 //
   5 //  By downloading, copying, installing or using the software you agree to this license.
   6 //  If you do not agree to this license, do not download, install,
   7 //  copy or use the software.
   8 //
   9 //
  10 //                        Intel License Agreement
  11 //                For Open Source Computer Vision Library
  12 //
  13 // Copyright (C) 2000, Intel Corporation, all rights reserved.
  14 // Third party copyrights are property of their respective owners.
  15 //
  16 // Redistribution and use in source and binary forms, with or without modification,
  17 // are permitted provided that the following conditions are met:
  18 //
  19 //   * Redistribution's of source code must retain the above copyright notice,
  20 //     this list of conditions and the following disclaimer.
  21 //
  22 //   * Redistribution's in binary form must reproduce the above copyright notice,
  23 //     this list of conditions and the following disclaimer in the documentation
  24 //     and/or other materials provided with the distribution.
  25 //
  26 //   * The name of Intel Corporation may not be used to endorse or promote products
  27 //     derived from this software without specific prior written permission.
  28 //
  29 // This software is provided by the copyright holders and contributors "as is" and
  30 // any express or implied warranties, including, but not limited to, the implied
  31 // warranties of merchantability and fitness for a particular purpose are disclaimed.
  32 // In no event shall the Intel Corporation or contributors be liable for any direct,
  33 // indirect, incidental, special, exemplary, or consequential damages
  34 // (including, but not limited to, procurement of substitute goods or services;
  35 // loss of use, data, or profits; or business interruption) however caused
  36 // and on any theory of liability, whether in contract, strict liability,
  37 // or tort (including negligence or otherwise) arising in any way out of
  38 // the use of this software, even if advised of the possibility of such damage.
  39 //
  40 //M*/#include "stdafx.h"
  41 #include <stdlib.h>
  42 #include <varargs.h>
  43 #include <limits.h>
  44
  45 extern "C"
  46 {
  47 #include "CVEiCL\EiC\src\eic.h"
  48 #include "CVEiCL\EiC\src\typemod.h"
  49 //#include "CVEiCL\EiC\src\datastruct.h"
  50 #include "CVEiCL\EiC\src\global.h"
  51 #include "CVEiCL\EiC\src\func.h"
  52 #include "wrap.h"
  53 }
  54
  55 #ifdef WIN32
  56 #undef WIN32
  57 #include "convert.h"
  58 #define WIN32
  59 #else
  60 #include "convert.h"
  61 #endif
  62
  63 symentry_t * EiC_lookup(char nspace, char *id);
  64
  65
  66 #include "cv.h"
  67 #ifdef malloc /* This macros is defined in eic.h */
  68 #undef malloc
  69 #endif /* malloc */
  70 #ifdef realloc
  71 #undef realloc
  72 #endif /* realloc */
  73 #ifdef free
  74 #undef free
  75 #endif /* free */
  76
  77
  78 #include "hawkwrap.h"
  79
  80 static jmp_buf* hawk_mark = NULL;
  81 static errlevel_t hawk_errlevel = unsafe;
  82
  83
  84 static void (*avi_callback)(IplImage*) = NULL;
  85 static void eic_avi_play_callback(void* image)
  86 {
  87     if(!avi_callback)
  88     {
  89         return;
  90     }
  91
  92     setArg(0, (code_t*)avi_callback, void*, image);
  93     EiC_callBack(avi_callback);
  94 }
  95
  96 static val_t eic_play_avi(void)
  97 {
  98         val_t v;
  99
 100     avi_callback = (void(*)(IplImage*))arg(2,getargs(),ptr_t).p;
 101         v.ival = play_avi((char*)arg(0,getargs(),ptr_t).p,
 102         (char*)arg(1,getargs(),ptr_t).p,
 103         (void(*)(IplImage*))eic_avi_play_callback);
 104     avi_callback = NULL;
 105
 106         return v;
 107 }
 108
 109 static void (*ds_callback)(IplImage*) = NULL;
 110 static void eic_ds_play_callback(void* image)
 111 {
 112     if(!ds_callback)
 113     {
 114         return;
 115     }
 116
 117     setArg(0, (code_t*)ds_callback, void*, image);
 118     EiC_callBack(ds_callback);
 119 }
 120
 121 static val_t eic_play_ds(void)
 122 {
 123         val_t v;
 124
 125     ds_callback = (void(*)(IplImage*))arg(0,getargs(),ptr_t).p;
 126     v.ival = play_ds((void(*)(IplImage*))(ds_callback ? eic_ds_play_callback : NULL));
 127     ds_callback = NULL;
 128
 129         return v;
 130 }
 131
 132 /**********************************/
 133 void set_hawk_mark(jmp_buf* mark)
 134 {
 135     hawk_mark = mark;
 136 }
 137
 138 void set_hawk_errlevel(errlevel_t level)
 139 {
 140     hawk_errlevel = level;
 141 }
 142
 143 /**********************************/
 144
 145 val_t eic_universal_wrapper()
 146 {
 147     val_t v;
 148     v.ival = 0;
 149
 150     int pcount = int(arg(2, getargs(), ptr_t).p);
 151     uni_wrap((stub_f)arg(0, getargs(), ptr_t).p,
 152         (int*)arg(1, getargs(), ptr_t).p,
 153         (char*)(getargs()- 10 - pcount), (int*)arg(3, getargs(), ptr_t).p,
 154         arg(4, getargs(), ptr_t).p);
 155
 156     return v;
 157 }
 158
 159
 160 void module_convertwrap()
 161 {
 162     EiC_add_builtinfunc("_Hawk_uniwrap", eic_universal_wrapper);
 163         EiC_add_builtinfunc("play_avi",eic_play_avi);
 164     EiC_add_builtinfunc("play_ds", eic_play_ds);
 165 }
 166
 167 /**********************************/
 168