← Back to branch summary

~ubuntu-branches/ubuntu/edgy/swig1.3/edgy

« back to all changes in this revision

Viewing changes to Lib/mzscheme/mzscheme.swg

  • Committer: Bazaar Package Importer
  • Author(s): Adam Conrad
  • Date: 2005-12-05 01:16:04 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20051205011604-ygx904it6413k3go
Tags: 1.3.27-1ubuntu1
Resynchronise with Debian again, for the new subversion packages.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Lib/mzscheme/mzscheme.swg
4
4
 
5
5
/* Include headers */
6
6
%runtime "swigrun.swg"     // Common C API type-checking code
7
 
%runtime "common.swg"
8
7
%runtime "mzrun.swg"
9
8
 
10
9
%define SWIG_APPEND_VALUE(value)
22
21
/* Read in standard typemaps. */
23
22
%include "typemaps.i"
24
23
 
 
24
%insert(init) "swiginit.swg"
 
25
 
25
26
%init %{
26
 
  static int _swig_init = 0;
 
27
Scheme_Object *scheme_reload(Scheme_Env *env) {
 
28
  Scheme_Env *menv = SWIG_MZSCHEME_CREATE_MENV(env);
27
29
 
28
 
  if (!_swig_init) {
29
 
    int i;
30
 
    SWIG_MzScheme_LookupTypePointer(env);
31
 
    for (i = 0; swig_types_initial[i]; i++) {
32
 
      swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]);
33
 
    }
34
 
    _swig_init = 1;
35
 
  }
 
30
  SWIG_InitializeModule((void *) env);
36
31
%}