File: CSharpTypemapHelper.i

package info (click to toggle)
simpleitk 1.0.1-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 75,056 kB
  • sloc: cpp: 25,403; python: 3,060; sh: 1,131; ansic: 369; java: 260; cs: 215; makefile: 51; ruby: 47; tcl: 22
file content (55 lines) | stat: -rw-r--r-- 1,916 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
/*=========================================================================
*
*  Copyright Insight Software Consortium
*
*  Licensed under the Apache License, Version 2.0 (the "License");
*  you may not use this file except in compliance with the License.
*  You may obtain a copy of the License at
*
*         http://www.apache.org/licenses/LICENSE-2.0.txt
*
*  Unless required by applicable law or agreed to in writing, software
*  distributed under the License is distributed on an "AS IS" BASIS,
*  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
*  See the License for the specific language governing permissions and
*  limitations under the License.
*
*=========================================================================*/
/* File : CSharpTypemapHelper.i */
%define %CSharpTypemapHelper(TYPE, CSTYPE)
  %typemap(in) TYPE "$1 = ($1_ltype)$input;" // wrap
  %typemap(imtype) TYPE "CSTYPE" // pinvoke
  %typemap(cstype, excode=SWIGEXCODE) TYPE "CSTYPE" // cs
  %typemap(csin, excode=SWIGEXCODE) TYPE "$csinput"
  %typemap(csout, excode=SWIGEXCODE) TYPE {
    CSTYPE ret = $imcall;$excode
    return ret;
  }
  %typemap(csvarin, excode=SWIGEXCODE) TYPE "
      set {
        $imcall;$excode
      }"
  %typemap(csvarout, excode=SWIGEXCODE) TYPE "
      get {
        return $imcall;$excode
      }"
%enddef

%define %CSharpPointerTypemapHelper(TYPE, CSTYPE)
  %typemap(in) TYPE "$1 = $1_ltype(($1_ltype::ObjectType*)$input);" // wrap
  %typemap(imtype) TYPE "CSTYPE" // pinvoke
  %typemap(cstype, excode=SWIGEXCODE) TYPE "CSTYPE" // cs
  %typemap(csin, excode=SWIGEXCODE) TYPE "$csinput"
  %typemap(csout, excode=SWIGEXCODE) TYPE {
    CSTYPE ret = $imcall;$excode
    return ret;
  }
  %typemap(csvarin, excode=SWIGEXCODE) TYPE "
      set {
        $imcall;$excode
      }"
  %typemap(csvarout, excode=SWIGEXCODE) TYPE "
      get {
        return $imcall;$excode
      }"
%enddef