diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 14:14:53 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 14:14:53 +0000 |
commit | 87662a1e8b7376458625666dda3b6b4b7df6172e (patch) | |
tree | 0ea065de075b5f82aa713cc9556e48c1174fd560 /perl_checker.src/common.ml | |
parent | cefb5b411da34efe63a588828410cfe4adc5563f (diff) | |
download | perl_checker-87662a1e8b7376458625666dda3b6b4b7df6172e.tar perl_checker-87662a1e8b7376458625666dda3b6b4b7df6172e.tar.gz perl_checker-87662a1e8b7376458625666dda3b6b4b7df6172e.tar.bz2 perl_checker-87662a1e8b7376458625666dda3b6b4b7df6172e.tar.xz perl_checker-87662a1e8b7376458625666dda3b6b4b7df6172e.zip |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index 439c460..64e123d 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -513,6 +513,9 @@ let hashtbl_find f h = let hashtbl_filter f h = Hashtbl.iter (fun v c -> hashtbl_set h v (f v c)) h +let hashtbl_to_list h = + Hashtbl.fold (fun k v l -> (k,v) :: l) h [] + let array_shift a = Array.sub a 1 (Array.length a - 1) let array_last_n n a = let len = Array.length a in |