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 | 1e9b027b5bb760a1b15d76a7b4574052853930e0 (patch) | |
| tree | cd7b06bac95a507a11842d50d837392d23b8b108 /perl_checker.src/info.ml | |
| parent | 00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6 (diff) | |
| download | perl-MDK-Common-1e9b027b5bb760a1b15d76a7b4574052853930e0.tar perl-MDK-Common-1e9b027b5bb760a1b15d76a7b4574052853930e0.tar.gz perl-MDK-Common-1e9b027b5bb760a1b15d76a7b4574052853930e0.tar.bz2 perl-MDK-Common-1e9b027b5bb760a1b15d76a7b4574052853930e0.tar.xz perl-MDK-Common-1e9b027b5bb760a1b15d76a7b4574052853930e0.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 |