28 lines
961 B
OCaml
28 lines
961 B
OCaml
(*******************************************************************************
|
|
* Copyright (c) 2014 IBM Corporation.
|
|
* All rights reserved. This program and the accompanying materials
|
|
* are made available under the terms of the Eclipse Public License v1.0
|
|
* which accompanies this distribution, and is available at
|
|
* http://www.eclipse.org/legal/epl-v10.html
|
|
*
|
|
* Contributors:
|
|
* IBM Corporation - initial API and implementation
|
|
******************************************************************************)
|
|
|
|
let method_hash = Hashtbl.create 1000;;
|
|
|
|
let print_hello arg = print_string (arg ^ "!\n");;
|
|
|
|
let bar arg =
|
|
print_string "before calling print_hello in bar\n";
|
|
print_hello arg;
|
|
print_string "after calling print_hello in bar\n";;
|
|
|
|
let foo arg =
|
|
print_string "before calling bar in foo\n";
|
|
bar arg;
|
|
print_string "after calling bar in foo\n";;
|
|
|
|
Hashtbl.add method_hash "var" (foo);;
|
|
(Hashtbl.find method_hash "var") "Hello World";;
|