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 | 1537738cd9023b08d8730a56eb7bc1e1cab0dc90 (patch) | |
| tree | 9413bf04a7937f557cd9691d3cfa0031d3adda5a /perl_checker.src/common.ml | |
| parent | 431db26a9d138a21e17caf3affe5d2131387b69f (diff) | |
| download | perl-MDK-Common-1537738cd9023b08d8730a56eb7bc1e1cab0dc90.tar perl-MDK-Common-1537738cd9023b08d8730a56eb7bc1e1cab0dc90.tar.gz perl-MDK-Common-1537738cd9023b08d8730a56eb7bc1e1cab0dc90.tar.bz2 perl-MDK-Common-1537738cd9023b08d8730a56eb7bc1e1cab0dc90.tar.xz perl-MDK-Common-1537738cd9023b08d8730a56eb7bc1e1cab0dc90.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 |