Permalink
Browse files

lang_web: empty -dump_web

  • Loading branch information...
1 parent 3bdf747 commit e241606ef9a7375fa8f1c522e88f43b1e3302ca1 @aryx aryx committed Mar 7, 2011
View
@@ -164,6 +164,7 @@ BASICLIBS=commons/commons.cma \
lang_html/parsing/lib.cma \
lang_js/parsing/lib.cma \
lang_css/parsing/lib.cma \
+ lang_web/parsing/lib.cma \
lang_text/lib.cma \
BASICSYSLIBS=nums.cma bigarray.cma str.cma unix.cma
@@ -221,6 +222,7 @@ LIBS= commons/commons.cma \
lang_html/parsing/lib.cma \
lang_html/analyze/lib.cma \
lang_css/parsing/lib.cma \
+ lang_web/parsing/lib.cma \
MAKESUBDIRS=commons \
@@ -271,6 +273,7 @@ MAKESUBDIRS=commons \
lang_html/parsing \
lang_html/analyze \
lang_css/parsing \
+ lang_web/parsing \
lang_text \
$(VISUALDIR) \
$(FACEBOOKDIR)
@@ -1,4 +1,4 @@
-TOP=..
+TOP=../..
##############################################################################
# Variables
##############################################################################
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
View
@@ -5,13 +5,12 @@
open Common
-
-
-
(*****************************************************************************)
(* Purpose *)
(*****************************************************************************)
+(* A "driver" of the different parsers in pfff *)
+
(*****************************************************************************)
(* Flags *)
(*****************************************************************************)
@@ -47,13 +46,11 @@ let main_action xs =
let action1 () =
raise Todo
-
let test_json_pretty_printer file =
let json = Json_in.load_json file in
let s = Json_io.string_of_json json in
pr s
-
(* ---------------------------------------------------------------------- *)
let pfff_extra_actions () = [
"-json_pp", " <file>",
@@ -84,6 +81,7 @@ let all_actions () =
Test_parsing_text.actions()++
Test_parsing_html.actions()++
Test_parsing_css.actions()++
+ Test_parsing_web.actions()++
Test_analyze_cpp.actions () ++
[]
@@ -103,14 +101,14 @@ let options () =
[
"-version", Arg.Unit (fun () ->
- pr2 (spf "pfff (console) version: %s" Config.version);
+ pr2 (spf "pfff version: %s" Config.version);
exit 0;
),
" guess what";
(* this can not be factorized in Common *)
"-date", Arg.Unit (fun () ->
- pr2 "version: $Date: 2008/10/26 00:44:57 $";
+ pr2 "version: $Date: 2011/03/26 00:44:57 $";
raise (Common.UnixExit 0)
),
" guess what";
@@ -163,9 +161,6 @@ let main () =
)
)
-
-
-
(*****************************************************************************)
let _ =
Common.main_boilerplate (fun () ->

0 comments on commit e241606

Please sign in to comment.