Update to 2.0.0 tree from current Fremantle build

[opencv] / interfaces / swig / octave / octtypemaps.i

/*M///////////////////////////////////////////////////////////////////////////////////////
//
//  IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.
//
//  By downloading, copying, installing or using the software you agree to this license.
//  If you do not agree to this license, do not download, install,
//  copy or use the software.
//
//
//                        Intel License Agreement
//                For Open Source Computer Vision Library
//
// Copyright (C) 2000, Intel Corporation, all rights reserved.
// Third party copyrights are property of their respective owners.
//
// Redistribution and use in source and binary forms, with or without modification,
// are permitted provided that the following conditions are met:
//
//   * Redistribution's of source code must retain the above copyright notice,
//     this list of conditions and the following disclaimer.
//
//   * Redistribution's in binary form must reproduce the above copyright notice,
//     this list of conditions and the following disclaimer in the documentation
//     and/or other materials provided with the distribution.
//
//   * The name of Intel Corporation may not be used to endorse or promote products
//     derived from this software without specific prior written permission.
//
// This software is provided by the copyright holders and contributors "as is" and
// any express or implied warranties, including, but not limited to, the implied
// warranties of merchantability and fitness for a particular purpose are disclaimed.
// In no event shall the Intel Corporation or contributors be liable for any direct,
// indirect, incidental, special, exemplary, or consequential damages
// (including, but not limited to, procurement of substitute goods or services;
// loss of use, data, or profits; or business interruption) however caused
// and on any theory of liability, whether in contract, strict liability,
// or tort (including negligence or otherwise) arising in any way out of
// the use of this software, even if advised of the possibility of such damage.
//
//M*/
%include "exception.i"
%include "./octhelpers.i"

%typemap(in) (CvArr *) (bool freearg=false){
  $1 = OctObject_to_CvArr($input, &freearg);
}
%typemap(freearg) (CvArr *) {
  if($1!=NULL && freearg$argnum){
    cvReleaseData( $1 );
    cvFree(&($1));
  }
}
%typecheck(SWIG_TYPECHECK_POINTER) CvArr * {
  void *ptr;
  if(OctList_Check($input) || OctTuple_Check($input)) {
    $1 = 1;
  }
  else if (SWIG_ConvertPtr($input, &ptr, 0, 0) == -1) {
    $1 = 0;
  }
  else{
    $1 = 1;
  }
}

// for cvReshape, cvGetRow, where header is passed, then filled in
%typemap(in, numinputs=0) CvMat * OUTPUT (CvMat * header) {
  header = (CvMat *)cvAlloc(sizeof(CvMat));
  $1 = header;
}
%newobject cvReshape;
%newobject cvGetRow;
%newobject cvGetRows;
%newobject cvGetCol;
%newobject cvGetCols;
%newobject cvGetSubRect;
%newobject cvGetDiag;

%apply CvMat *OUTPUT {CvMat * header};
%apply CvMat *OUTPUT {CvMat * submat};

// In C, these functions assume input will always be around at least as long as header,
// presumably because the most common usage is to pass in a reference to a stack object.  
// i.e
// CvMat row;
// cvGetRow(A, &row, 0);
//
// As a result, the header is not refcounted (see the C source for cvGetRow, Reshape, in cxarray.cpp)
// However, in octave, the header parameter is implicitly created so it is easier to create
// situations where the sub-array outlives the original header.  A simple example is:
// A = cvReshape(A, -1, A.rows*A.cols)
//
// since octave doesn't have an assignment operator, the new header simply replaces the original,
// the refcount of the original goes to zero, and cvReleaseMat is called on the original, freeing both
// the header and data.  The new header is left pointing to invalid data.  To avoid this, need to add
// refcount field to the returned header.
%typemap(argout) (const CvArr* arr, CvMat* header) {
  $2->hdr_refcount = ((CvMat *)$1)->hdr_refcount;
  $2->refcount = ((CvMat *)$1)->refcount;
  cvIncRefData($2);
}
%typemap(argout) (const CvArr* arr, CvMat* submat) {
  $2->hdr_refcount = ((CvMat *)$1)->hdr_refcount;
  $2->refcount = ((CvMat *)$1)->refcount;
  cvIncRefData($2);
}

// map scalar or sequence to CvScalar, CvPoint2D32f, CvPoint
%typemap(in) (CvScalar) {
  $1 = OctObject_to_CvScalar( $input );
}
%typemap(in) (CvPoint) {
  $1 = OctObject_to_CvPoint($input);
}
%typemap(in) (CvPoint2D32f) {
  $1 = OctObject_to_CvPoint2D32f($input);
}


// typemap for cvGetDims
%typemap(in) (const CvArr * arr, int * sizes = NULL) (void * myarr, int mysizes[CV_MAX_DIM]){
  SWIG_Octave_ConvertPtr($input, &myarr, 0, SWIG_POINTER_EXCEPTION);
  $1=(CvArr *)myarr;
  $2=mysizes;
}

%typemap(argout) (const CvArr * arr, int * sizes = NULL) {
  int len = OctInt_AsLong( $result );
  octave_value obj = OctTuple_FromIntArray( $2, len );
  %append_output(obj);
}
                                
// map one list of integer to the two parameters dimension/sizes
%typemap(in) (int dims, int* sizes) {
  int i;

  // get the size of the dimention array
  $1 = OctList_Size ($input);

  // allocate the needed memory
  $2 = (int *)malloc ($1 * sizeof (int));

  // extract all the integer values from the list
  for (i = 0; i < $1; i++) {
    octave_value item = OctList_GetItem ($input, i);
    $2 [i] = (int)OctInt_AsLong (item);
  }
}

// map one list of integer to the parameter idx of
//   cvGetND, cvSetND, cvClearND, cvGetRealND, cvSetRealND and cvClearRealND
%typemap(in) (int* idx) {
  int i;
  int size;

  // get the size of the dimention array
  size = OctList_Size ($input);

  // allocate the needed memory
  $1 = (int *)malloc (size * sizeof (int));

  // extract all the integer values from the list
  for (i = 0; i < size; i++) {
    octave_value item = OctList_GetItem ($input, i);
    $1 [i] = (int)OctInt_AsLong (item);
  }
}

// map a list of list of float to an matrix of floats
%typemap(in) float** ranges {
  int i1;
  int i2;
  int size1;
  int size2 = 0;

  // get the number of lines of the matrix
  size1 = OctList_Size ($input);

  // allocate the correct number of lines for the destination matrix
  $1 = (float **)malloc (size1 * sizeof (float *));

  for (i1 = 0; i1 < size1; i1++) {

    // extract all the lines of the matrix
    octave_value list = OctList_GetItem ($input, i1);

    if (size2 == 0) {
      // size 2 wasn't computed before
      size2 = OctList_Size (list);
    } else if (size2 != OctList_Size (list)) {
      // the current line as a different size than the previous one
      // so, generate an exception
      SWIG_exception (SWIG_ValueError, "Lines must be the same size");
    }

    // allocate the correct number of rows for the current line
    $1 [i1] = (float *)malloc (size2 * sizeof (float));

    // extract all the float values of this row
    for (i2 = 0; i2 < size2; i2++) {
      octave_value item = OctList_GetItem (list, i2);
      $1 [i1][i2] = (float)OctFloat_AsDouble (item);
    }
  }
}

//
// map the output parameter of the cvGetMinMaxHistValue()
// so, we can call cvGetMinMaxHistValue() in Octave like:
// min_value, max_value = cvGetMinMaxHistValue (hist, None, None)
//
%apply int *OUTPUT {int *min_idx};                                                                   
%apply int *OUTPUT {int *max_idx}; 
%apply float *OUTPUT {float *min_value};
%apply float *OUTPUT {float *max_value};
//
// map output parameters of cvMinMaxLoc
//
%apply double *OUTPUT {double* min_val, double* max_val};

//
// the input argument of cvPolyLine "CvPoint** pts" is converted from 
// a "list of list" (aka. an array) of CvPoint().
// The next parameters "int* npts" and "int contours" are computed from
// the givne list.
//
%typemap(in) (CvPoint** pts, int* npts, int contours){
  int i;
  int j;
  int size2 = -1;
  CvPoint **points = NULL;
  int *nb_vertex = NULL;

  if(!OctSequence_Check($input)){
    SWIG_exception(SWIG_TypeError, "Expected a list for argument $argnum\n");
    SWIG_fail;
  }

  // get the number of polylines input array
  int size1 = OctSequence_Size ($input);
  $3 = size1;

  if(size1>0){
    // create the points array
    points = (CvPoint **)malloc (size1 * sizeof (CvPoint *));

    // point to the created array for passing info to the C function
    $1 = points;

    // create the array for memorizing the vertex
    nb_vertex = (int *)malloc (size1 * sizeof (int));
    $2 = nb_vertex;
  }
  for (i = 0; i < size1; i++) {

    // get the current item
    octave_value line = OctSequence_GetItem ($input, i);

    if(!OctSequence_Check(line)){
      SWIG_exception(SWIG_TypeError, "Expected a sequence of sequences of integers for argument $argnum\n");
      // TODO: cleanup here
    }

    // get the size of the current polyline
    size2 = OctSequence_Size (line);


    if(size2>0){
      // allocate the necessary memory to store the points
      points [i] = (CvPoint *)malloc (size2 * sizeof (CvPoint));
    }

    // memorize the size of the polyline in the vertex list
    nb_vertex [i] = size2;

    for (j = 0; j < size2; j++) {
      // get the current item
      octave_value item = OctSequence_GetItem (line, j);
      points[i][j] = OctObject_to_CvPoint( item );
    }
  }
}
// Free arguments allocated before the function call
%typemap(freearg) (CvPoint **pts, int* npts, int contours){
  int i;
  for(i=0;i<$3;i++){
    free($1[i]);
  }
  free($1);
  free($2);
}

// Macro to define typemaps to convert a octave list of CvPoints to a C array of CvPoints
%define %typemap_CvPoint_CArr(points_arg, numpoints_arg)

     %typemap(in, numinputs=1) (CvPoint * points_arg, int numpoints_arg){
  int i;
  if(!OctSequence_Check($input)){
    SWIG_exception(SWIG_TypeError, "Expected a list for argument $argnum\n");
    SWIG_fail;
  }
  int size = OctSequence_Size($input);
  CvPoint * points = (CvPoint *)malloc(size*sizeof(CvPoint));
  for(i=0; i<size; i++){
    octave_value item = OctSequence_GetItem($input, i);
    points[i] = OctObject_to_CvPoint( item );
  }
  $1 = points;
  $2 = size;
}
%typemap(freearg) (CvPoint *points_arg, int numpoints_arg){
  free((char *)$1);
}
%enddef

// apply to cvFillConvexPoly
%typemap_CvPoint_CArr(pts, npts)

     //
     // this is mainly an "output parameter"
     // So, just allocate the memory as input
     //
     %typemap (in, numinputs=0) (CvSeq ** OUTPUT) (CvSeq * seq) {
  $1 = &seq;
}

//
// return the finded contours with all the others parametres
//
%typemap(argout) (CvSeq ** OUTPUT) {
  octave_value to_add;

  // extract the pointer we want to add to the returned tuple
  // sequence is allocated in CvMemStorage, so octave_ownership=0
  to_add = SWIG_NewPointerObj (*$1, $descriptor(CvSeq*), 0); 

  $result = SWIG_AppendResult($result, &to_add, 1);
}
%apply CvSeq **OUTPUT {CvSeq **first_contour};
%apply CvSeq **OUTPUT {CvSeq **comp};

//
// CvArr ** image can be either one CvArr or one array of CvArr
// (for example like in cvCalcHist() )
// From Octave, the array of CvArr can be a tuple.
//
%typemap(in) (CvArr ** INPUT) (
                               CvArr * one_image=NULL, 
                               bool free_one_arg=false, 
                               CvArr ** many_images=NULL, 
                               bool *free_many_args=NULL, 
                               int nimages=0 ) {
  // first, check if this is a tuple
  if (OctTuple_Check ($input)) {
    // This is a tuple, so we need to test each element and pass
    // them to the called function

    int i;

    // get the size of the tuple
    nimages = OctTuple_Size ($input);

    // allocate the necessary place
    many_images = (CvArr **)malloc (nimages * sizeof (CvArr *));
    free_many_args = (bool *)malloc(nimages * sizeof(bool));

    for (i = 0; i < nimages; i++) {

      // convert the current tuple element to a CvArr *, and
      // store to many_images [i]
      many_images[i] = OctObject_to_CvArr (OctTuple_GetItem ($input, i),
                                           free_many_args+i);

      // check that the current item is a correct type
      if(!many_images[i]) {
        // incorrect !
        SWIG_fail;
      }
    }

    // what to give to the called function
    $1 = many_images;

  } else if((one_image = OctObject_to_CvArr( $input, &free_one_arg ))){

    // this is just one CvArr *, so one_image will receive it
    $1 = &one_image;

  } else {
    // not a CvArr *, not a tuple, this is wrong
    SWIG_fail;
  }
}
%apply CvArr ** INPUT {CvArr ** img};
%apply CvArr ** INPUT {CvArr ** image};
%apply CvArr ** INPUT {CvArr ** arr};
%apply CvArr ** INPUT {CvArr ** vects};

%typemap(freearg) (CvArr ** FREEARG) {
  if(free_one_arg$argnum){
    cvFree(&(one_image$argnum));
  }
  else if(free_many_args$argnum){
    int i;
    for (i=0; i<nimages$argnum; i++){
      if(free_many_args$argnum[i]){
        cvReleaseData(many_images$argnum[i]);
        cvFree(many_images$argnum+i);
      }
    }
    free(many_images$argnum);
    free(free_many_args$argnum);
  }
}
%apply CvArr ** FREEARG {CvArr ** img};
%apply CvArr ** FREEARG {CvArr ** image};
%apply CvArr ** FREEARG {CvArr ** arr};
%apply CvArr ** FREEARG {CvArr ** vects};

//
// Map the CvFont * parameter from the cvInitFont() as an output parameter
//
%typemap (in, numinputs=1) (CvFont* font, int font_face) {
  $1 = (CvFont *)malloc (sizeof (CvFont));
  $2 = (int)OctInt_AsLong ($input); 
  if (SWIG_arg_fail($argnum)) SWIG_fail;
}
%typemap(argout) (CvFont* font, int font_face) {
  octave_value to_add;

  // extract the pointer we want to add to the returned tuple
  to_add = SWIG_NewPointerObj ($1, $descriptor(CvFont *), 0);

  $result = SWIG_AppendResult($result, &to_add, 1);
}

//
// these are output parameters for cvGetTextSize
//
%typemap (in, numinputs=0) (CvSize* text_size, int* baseline) {
  CvSize *size = (CvSize *)malloc (sizeof (CvSize));
  int *baseline = (int *)malloc (sizeof (int));
  $1 = size;
  $2 = baseline;
}

//
// return the finded parameters for cvGetTextSize
//
%typemap(argout) (CvSize* text_size, int* baseline) {
  octave_value to_add[2];

  // extract the pointers we want to add to the returned tuple
  to_add [0] = SWIG_NewPointerObj ($1, $descriptor(CvSize *), 0);
  to_add [1] = OctInt_FromLong (*$2);

  $result = SWIG_AppendResult($result, to_add, 2);
}


//
// curr_features is output parameter for cvCalcOpticalFlowPyrLK
//
%typemap (in, numinputs=1) (CvPoint2D32f* curr_features, int count)
     (int tmpCount) {
  // as input, we only need the size of the wanted features

  // memorize the size of the wanted features
  tmpCount = (int)OctInt_AsLong ($input);

  // create the array for the C call
  $1 = (CvPoint2D32f *) malloc(tmpCount * sizeof (CvPoint2D32f));

  // the size of the array for the C call
  $2 = tmpCount;
}

//
// the features returned by cvCalcOpticalFlowPyrLK
//
%typemap(argout) (CvPoint2D32f* curr_features, int count) {
  int i;
  octave_value to_add;
    
  // create the list to return
  to_add = OctList_New (tmpCount$argnum);

  // extract all the points values of the result, and add it to the
  // final resulting list
  for (i = 0; i < tmpCount$argnum; i++) {
    OctList_SetItem (to_add, i,
                     SWIG_NewPointerObj (&($1 [i]),
                                         $descriptor(CvPoint2D32f *), 0));
  }

  $result = SWIG_AppendResult($result, &to_add, 1);
}

//
// status is an output parameters for cvCalcOpticalFlowPyrLK
//
%typemap (in, numinputs=1) (char *status) (int tmpCountStatus){
  // as input, we still need the size of the status array

  // memorize the size of the status array
  tmpCountStatus = (int)OctInt_AsLong ($input);

  // create the status array for the C call
  $1 = (char *)malloc (tmpCountStatus * sizeof (char));
}

//
// the status returned by cvCalcOpticalFlowPyrLK
//
%typemap(argout) (char *status) {
  int i;
  octave_value to_add;

  // create the list to return
  to_add = OctList_New (tmpCountStatus$argnum);

  // extract all the integer values of the result, and add it to the
  // final resulting list
  for (i = 0; i < tmpCountStatus$argnum; i++) {
    OctList_SetItem (to_add, i, OctBool_FromLong ($1 [i]));
  }

  $result = SWIG_AppendResult($result, &to_add, 1); 
}

// map one list of points to the two parameters dimenssion/sizes
// for cvCalcOpticalFlowPyrLK
%typemap(in) (CvPoint2D32f* prev_features) {
  int i;
  int size;

  // get the size of the input array
  size = OctList_Size ($input);

  // allocate the needed memory
  $1 = (CvPoint2D32f *)malloc (size * sizeof (CvPoint2D32f));

  // extract all the points values from the list
  for (i = 0; i < size; i++) {
    octave_value item = OctList_GetItem ($input, i);

    void * vptr;
    SWIG_Octave_ConvertPtr (item, &vptr,
                            $descriptor(CvPoint2D32f*),
                            SWIG_POINTER_EXCEPTION);
    CvPoint2D32f *p = (CvPoint2D32f *)vptr;
    $1 [i].x = p->x;
    $1 [i].y = p->y;
  }
}

//
// the corners returned by cvGoodFeaturesToTrack
//
%typemap (in, numinputs=1) (CvPoint2D32f* corners, int* corner_count)
     (int tmpCount) {
  // as input, we still need the size of the corners array

  // memorize the size of the status corners
  tmpCount = (int)OctInt_AsLong ($input);

  // create the corners array for the C call
  $1 = (CvPoint2D32f *)malloc (tmpCount * sizeof (CvPoint2D32f));

  // the size of the array for the C call
  $2 = &tmpCount;
}

//
// the corners returned by cvGoodFeaturesToTrack
//
%typemap(argout) (CvPoint2D32f* corners, int* corner_count) {
  int i;
  octave_value to_add;
    
  // create the list to return
  to_add = OctList_New (tmpCount$argnum);

  // extract all the integer values of the result, and add it to the
  // final resulting list
  for (i = 0; i < tmpCount$argnum; i++) {
    OctList_SetItem (to_add, i,
                     SWIG_NewPointerObj (&($1 [i]),
                                         $descriptor(CvPoint2D32f *), 0));
  }

  $result = SWIG_AppendResult($result, &to_add, 1);
}

// map one list of points to the two parameters dimension/sizes
// for cvFindCornerSubPix
%typemap(in, numinputs=1) (CvPoint2D32f* corners, int count)
     (int cornersCount, CvPoint2D32f* corners){
  int i;

  if(!OctList_Check($input)){
    error("Expected a list");
    SWIG_fail;
  }

  // get the size of the input array
  cornersCount = OctList_Size ($input);
  $2 = cornersCount;

  // allocate the needed memory
  corners = (CvPoint2D32f *)malloc ($2 * sizeof (CvPoint2D32f));
  $1 = corners;

  // the size of the array for the C call

  // extract all the points values from the list
  for (i = 0; i < $2; i++) {
    octave_value item = OctList_GetItem ($input, i);

    void *vptr;
    SWIG_Octave_ConvertPtr (item, &vptr,
                            $descriptor(CvPoint2D32f*),
                            SWIG_POINTER_EXCEPTION);
    CvPoint2D32f *p = (CvPoint2D32f *) vptr;;
    $1 [i].x = p->x;
    $1 [i].y = p->y;
  }
}

//
// the corners returned by cvFindCornerSubPix
//
%typemap(argout) (CvPoint2D32f* corners, int count) {
  int i;
  octave_value to_add;

  // create the list to return
  to_add = OctList_New (cornersCount$argnum);

  // extract all the corner values of the result, and add it to the
  // final resulting list
  for (i = 0; i < cornersCount$argnum; i++) {
    OctList_SetItem (to_add, i,
                     SWIG_NewPointerObj (&(corners$argnum [i]),
                                         $descriptor(CvPoint2D32f *), 0));
  }

  $result = SWIG_AppendResult( $result, &to_add, 1);
}

//
// return the corners for cvFindChessboardCorners
//
%typemap(in, numinputs=1) (CvSize pattern_size, CvPoint2D32f * corners, int * corner_count ) 
     (CvSize * pattern_size, CvPoint2D32f * tmp_corners, int tmp_ncorners) {
  void * vptr;
  if( SWIG_ConvertPtr($input, &vptr, $descriptor( CvSize * ), SWIG_POINTER_EXCEPTION ) == -1){
    SWIG_fail;
  }
  pattern_size=(CvSize *)vptr;
  tmp_ncorners = pattern_size->width*pattern_size->height;

  tmp_corners = (CvPoint2D32f *) malloc(sizeof(CvPoint2D32f)*tmp_ncorners);
  $1 = *pattern_size;
  $2 = tmp_corners;
  $3 = &tmp_ncorners;
}

%typemap(argout) (CvSize pattern_size, CvPoint2D32f * corners, int * corner_count){
  int i;
  octave_value to_add;

  // create the list to return
  to_add = OctList_New ( tmp_ncorners$argnum );

  // extract all the corner values of the result, and add it to the
  // final resulting list
  for (i = 0; i < tmp_ncorners$argnum; i++) {
    CvPoint2D32f * pt = new CvPoint2D32f;
    pt->x = tmp_corners$argnum[i].x;
    pt->y = tmp_corners$argnum[i].y;
                
    OctList_SetItem (to_add, i,
                     SWIG_NewPointerObj( pt, $descriptor(CvPoint2D32f *), 0));
  }

  $result = SWIG_AppendResult( $result, &to_add, 1);
  free(tmp_corners$argnum);
}

//
// return the matrices for cvCameraCalibrate
//
%typemap(in, numinputs=0) (CvMat * intrinsic_matrix, CvMat * distortion_coeffs)
{
  $1 = cvCreateMat(3,3,CV_32F);
  $2 = cvCreateMat(4,1,CV_32F);
}

%typemap(argout) (CvMat * intrinsic_matrix, CvMat * distortion_coeffs)
{
  octave_value to_add[2];
  to_add[0] = SWIG_NewPointerObj($1, $descriptor(CvMat *), 1);
  to_add[1] = SWIG_NewPointerObj($2, $descriptor(CvMat *), 1);
  $result = SWIG_AppendResult( $result, to_add, 2 );
}

//
// Fix OpenCV inheritance for CvSeq, CvSet, CvGraph
// Otherwise, can't call CvSeq functions on CvSet or CvGraph
//
%typemap(in, numinputs=1) (CvSeq *) (void * ptr)
{
        
  if( SWIG_ConvertPtr($input, &ptr, $descriptor(CvSeq *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvSet *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvGraph *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvSubdiv2D *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvChain *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvContour *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvContourTree *), 0) == -1 )
    {
      SWIG_exception (SWIG_TypeError, "could not convert to CvSeq");
      SWIG_fail;
    }
  $1 = (CvSeq *) ptr;
}

%typemap(in, numinputs=1) (CvSet *) (void * ptr)
{
  if( SWIG_ConvertPtr($input, &ptr, $descriptor(CvSet *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvGraph *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvSubdiv2D *), 0) == -1) 
    {
      SWIG_exception (SWIG_TypeError, "could not convert to CvSet");
      SWIG_fail;
    }
  $1 = (CvSet *)ptr;
}

%typemap(in, numinputs=1) (CvGraph *) (void * ptr)
{
  if( SWIG_ConvertPtr($input, &ptr, $descriptor(CvGraph *), 0) == -1 &&
      SWIG_ConvertPtr($input, &ptr, $descriptor(CvSubdiv2D *), 0) == -1) 
    {
      SWIG_exception (SWIG_TypeError, "could not convert to CvGraph");
      SWIG_fail;
    }
  $1 = (CvGraph *)ptr;
}

//
// Remap output arguments to multiple return values for cvMinEnclosingCircle
//
%typemap(in, numinputs=0) (CvPoint2D32f * center, float * radius) (CvPoint2D32f * tmp_center, float tmp_radius) 
{
  tmp_center = (CvPoint2D32f *) malloc(sizeof(CvPoint2D32f));
  $1 = tmp_center;
  $2 = &tmp_radius;
}
%typemap(argout) (CvPoint2D32f * center, float * radius)
{
  octave_value to_add[2];
  to_add[0] = SWIG_NewPointerObj( tmp_center$argnum, $descriptor(CvPoint2D32f *), 1); 
  to_add[1] = OctFloat_FromDouble( tmp_radius$argnum );

  $result = SWIG_AppendResult($result, to_add, 2);
}

// BoxPoints
%typemap(in, numinputs=0) (CvPoint2D32f pt[4]) (CvPoint2D32f tmp_pts[4])
{
  $1 = tmp_pts;
}
%typemap(argout) (CvPoint2D32f pt[4])
{
  octave_value to_add = OctList_New(4);
  int i;
  for(i=0; i<4; i++){
    CvPoint2D32f * p = new CvPoint2D32f;
    *p = tmp_pts$argnum[i];
    OctList_SetItem(to_add, i, SWIG_NewPointerObj( p, $descriptor(CvPoint2D32f *), 1 ) );
  }
  $result = SWIG_AppendResult($result, &to_add, 1);
}

// Macro to wrap a built-in type that is used as an object like CvRNG and CvSubdiv2DEdge
%define %wrap_builtin(type)
     %inline %{
  // Wrapper class
  class type##_Wrapper {
  private:
    type m_val;
  public:
    type##_Wrapper( const type & val ) :
      m_val(val)
      {
      }
    type * ptr() { return &m_val; }
    type & ref() { return m_val; }
    bool operator==(const type##_Wrapper & x){
      return m_val==x.m_val;
    }
    bool operator!=(const type##_Wrapper & x){
      return m_val!=x.m_val;
    }
  };
  %}
%typemap(out) type
{
  type##_Wrapper * wrapper = new type##_Wrapper( $1 );
  $result = SWIG_NewPointerObj( wrapper, $descriptor( type##_Wrapper * ), 1 );
}
%typemap(out) type *
{
  type##_Wrapper * wrapper = new type##_Wrapper( *($1) );
  $result = SWIG_NewPointerObj( wrapper, $descriptor( type##_Wrapper * ), 1 );
}

%typemap(in) (type *) (void * vptr, type##_Wrapper * wrapper){
  if(SWIG_ConvertPtr($input, &vptr, $descriptor(type##_Wrapper *), 0)==-1){
    SWIG_exception( SWIG_TypeError, "could not convert Octave object to C value");
    SWIG_fail;
  }
  wrapper = (type##_Wrapper *) vptr;
  $1 = wrapper->ptr();
}
%typemap(in) (type) (void * vptr, type##_Wrapper * wrapper){
  if(SWIG_ConvertPtr($input, &vptr, $descriptor(type##_Wrapper *), 0)==-1){
    SWIG_exception( SWIG_TypeError, "could not convert Octave object to C value");
    SWIG_fail;
  }
  wrapper = (type##_Wrapper *) vptr;
  $1 = wrapper->ref();
}
%enddef 

// Application of wrapper class to built-in types
%wrap_builtin(CvRNG);
%wrap_builtin(CvSubdiv2DEdge);

//
// Allow CvQuadEdge2D to be interpreted as CvSubdiv2DEdge
//
%typemap(in, numinputs=1) (CvSubdiv2DEdge) (CvSubdiv2DEdge_Wrapper * wrapper, CvQuadEdge2D * qedge, void *vptr)
{
  if( SWIG_ConvertPtr($input, &vptr, $descriptor(CvSubdiv2DEdge_Wrapper *), 0) != -1 ){
    wrapper = (CvSubdiv2DEdge_Wrapper *) vptr;
    $1 = wrapper->ref();
  }
  else if( SWIG_ConvertPtr($input, &vptr, $descriptor(CvQuadEdge2D *), 0) != -1 ){
    qedge = (CvQuadEdge2D *) vptr;
    $1 = (CvSubdiv2DEdge)qedge;
  }
  else{
    SWIG_exception( SWIG_TypeError, "could not convert to CvSubdiv2DEdge");
    SWIG_fail;
  }
}

//
// return the vertex and edge for cvSubdiv2DLocate
//
%typemap(in, numinputs=0) (CvSubdiv2DEdge * edge, CvSubdiv2DPoint ** vertex) 
     (CvSubdiv2DEdge tmpEdge, CvSubdiv2DPoint * tmpVertex)
{
  $1 = &tmpEdge;
  $2 = &tmpVertex;
}
%typemap(argout) (CvSubdiv2DEdge * edge, CvSubdiv2DPoint ** vertex)
{
  octave_value to_add[2];
  if(result==CV_PTLOC_INSIDE || result==CV_PTLOC_ON_EDGE){
    CvSubdiv2DEdge_Wrapper * wrapper = new CvSubdiv2DEdge_Wrapper( tmpEdge$argnum );
    to_add[0] = SWIG_NewPointerObj( wrapper, $descriptor(CvSubdiv2DEdge_Wrapper *), 0);
    to_add[1] = octave_value();
  }
  if(result==CV_PTLOC_VERTEX){
    to_add[0] = octave_value();
    to_add[1] = SWIG_NewPointerObj( tmpVertex$argnum, $descriptor(CvSubdiv2DPoint *), 0);
  }
        
  $result = SWIG_AppendResult($result, to_add, 2);
}

//
// int *value  in cvCreateTrackbar() is only used for input in the Octave wrapper.
// for output, use the pos in the callback
// TODO: remove the memory leak introducted by the malloc () (if needed).
//
%typemap(in, numinputs=1) (int *value)
{
  $1 = (int *)malloc (sizeof (int));
  *$1 = OctInt_AsLong ($input);
}