/tags/rel-1-3-15/SWIG/Examples/ocaml/simple/example_prog.ml

# · OCaml · 30 lines · 8 code · 16 blank · 6 comment · 0 complexity · dd5577cc262cc2cdd4b349b06dbaf35b MD5 · raw file 

    

  1. (* example_prog.ml *)
    2. 

  2. 

  3. open Example
    4. 

  4. 

  5. (* Call our gcd() function *)
    6. 

  6. 

  7. let x = 42
    8. 

  8. let y = 105
    9. 

  9. let g = gcd x y
    10. 

  10. let _ = Printf.printf "The gcd of %d and %d is %d\n" x y g
    11. 

  11. 

  12. (* Manipulate the Foo global variable *)
    13. 

  13. 

  14. (* Output its current value *)
    15. 

  15. let _ = Printf.printf "Foo = %f\n" (_Foo_get ())
    16. 

  16. 

  17. (* Change its value *)
    18. 

  18. let _ = _Foo_set 3.1415926
    19. 

  19. 

  20. (* See if the change took effect *)
    21. 

  21. let _ = Printf.printf "Foo = %f\n" (_Foo_get ())
    22.