PageRenderTime 49ms CodeModel.GetById 23ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/rel-1-3-26/SWIG/Examples/test-suite/ocaml/imports_runme.ml

#
OCaml | 10 lines | 6 code | 1 blank | 3 comment | 0 complexity | 4a7a51b12b85ce2da997409ee39f819f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. (* purpose: to receive the hello A method from Imports_a exposed through
    2. 

  2.  * a B object derived from A *)
    3. 

  3. 

  4. open Swig
    5. 

  5. open Imports_a
    6. 

  6. open Imports_b
    7. 

  7. let x = new_B C_void
    8. 

  8. (* Tests conversion of x to a generic value *)
    9. 

  9. let a = swig_val `unknown x
    10. 

  10. let _ = (invoke x) "hello" C_void
    11. 

    12.