Advertisement
Guest User

Untitled

a guest
Nov 5th, 2013
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. class bs a m =
  2.     let _mode = m and _arch = a in
  3.     let bsh = bs_open _arch _mode in
  4.     object
  5.         method test code addr count =
  6.             let a =
  7.               match bs with
  8.               | None ->
  9.                 let b = 42 in
  10.                 printf ":(\n";
  11.                 b
  12.               | Some _ ->
  13.                 let b = 43 in
  14.                 printf "Hello world\n";
  15.                 b
  16.             in
  17.               printf "value was: %d\n" a
  18.     end;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement