diff options
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 |