PageRenderTime 7ms CodeModel.GetById 1ms app.highlight 2ms RepoModel.GetById 2ms app.codeStats 0ms

/trunk/Examples/test-suite/mzscheme/imports_runme.scm

#
Lisp | 16 lines | 5 code | 5 blank | 6 comment | 0 complexity | 56eb25945f106a3c4ccae88ce3e4420d MD5 | raw file
 1;;; This file is part of a test for SF bug #231619. 
 2;;; It shows that the %import directive does not work properly in SWIG
 3;;; 1.3a5:  Type information is not properly generated if a base class
 4;;; comes from an %import-ed file. 
 5
 6(load-extension "imports_a.so")
 7(load-extension "imports_b.so")
 8
 9(define x (new-B))
10
11;; This fails in 1.3a5 because the SWIG runtime code does not know
12;; that x (an instance of class B) can be passed to methods of class A. 
13
14(A-hello x)				
15
16(exit 0)