Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

* main_codemap.ml: filter pfff now show PHP and Prolog

  • Loading branch information...
commit 889db0f9a49c9daf17a4ff2cf962d88b5a6b2385 1 parent c46c1ca
@aryx aryx authored
Showing with 8 additions and 4 deletions.
  1. +1 −1  Makefile
  2. +3 −1 commons/file_type.ml
  3. +4 −2 main_codemap.ml
View
2  Makefile
@@ -656,7 +656,7 @@ layers:
visual:
./codemap -no_legend -profile -ss 2 \
- -with_info DB_LIGHT.marshall -with_layers . -filter ocaml .
+ -with_info DB_LIGHT.marshall -with_layers . -filter pfff .
visual2:
./codemap -no_legend -profile -ss 2 \
-with_info DB_LIGHT.marshall -with_layers . .
View
4 commons/file_type.ml
@@ -128,7 +128,9 @@ let file_type_of_file2 file =
| "lisp" -> PL (Lisp CommonLisp)
| "el" -> PL (Lisp Elisp)
- | "pl" | "perl" -> PL Perl (* could be prolog too *)
+ (* Perl or Prolog ... *)
+ | "pl" -> PL (Prolog "pl")
+ | "perl" -> PL Perl
| "py" -> PL Python
| "rb" -> PL Ruby
View
6 main_codemap.ml
@@ -49,12 +49,14 @@ let filters = [
);
"pfff", (fun file ->
match FT.file_type_of_file file with
- | FT.PL ((FT.ML _) | FT.Makefile | FT.Opa) ->
+ | FT.PL (
+ (FT.ML _) | FT.Makefile | FT.Opa | FT.Prolog _ | FT.Web (FT.Php _))
+ ->
(* todo: should be done in file_type_of_file *)
not (FT.is_syncweb_obj_file file)
&& not (file =~ ".*commons/" ||
file =~ ".*external/" ||
- file =~ ".*_build/")
+ file =~ ".*_build/")
| _ -> false
);
"cpp", (let x = ref false in (fun file ->
Please sign in to comment.
Something went wrong with that request. Please try again.