diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-18 16:02:09 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-18 16:02:09 +0000 |
commit | 2375b0413acc1f3e6659fc110c13bcc061cd320d (patch) | |
tree | 4661b764b6caa774672a30e7b7baf762293ae0b6 /perl_checker.src/info.ml | |
parent | b852ba8ae186c776d03a44e4a63179a633aaeb52 (diff) | |
download | perl_checker-2375b0413acc1f3e6659fc110c13bcc061cd320d.tar perl_checker-2375b0413acc1f3e6659fc110c13bcc061cd320d.tar.gz perl_checker-2375b0413acc1f3e6659fc110c13bcc061cd320d.tar.bz2 perl_checker-2375b0413acc1f3e6659fc110c13bcc061cd320d.tar.xz perl_checker-2375b0413acc1f3e6659fc110c13bcc061cd320d.zip |
new features including checking methods being available and unused functions
Diffstat (limited to 'perl_checker.src/info.ml')
-rw-r--r-- | perl_checker.src/info.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl_checker.src/info.ml b/perl_checker.src/info.ml index 947dc50..f64af7a 100644 --- a/perl_checker.src/info.ml +++ b/perl_checker.src/info.ml @@ -12,6 +12,8 @@ let start_a_new_file file = current_file := file ; current_file_lines_starts := [0] +let add_a_file file file_lines_starts = Hashtbl.replace lines_starts file file_lines_starts + let get_lines_starts_for_file file = if file = !current_file then !current_file_lines_starts else Hashtbl.find lines_starts file |