X-Git-Url: http://git.hcoop.net/bpt/coccinelle.git/blobdiff_plain/190f1acf3b0fa9403bea541654465a6a00bf3693..993936c04d73e4c97d0dc0910dbbef5f2c684c15:/ocaml/coccilib.ml

diff --git a/ocaml/coccilib.ml b/ocaml/coccilib.ml
index 1a45a8a..f1c0d6f 100644
--- a/ocaml/coccilib.ml
+++ b/ocaml/coccilib.ml
@@ -12,6 +12,7 @@ type param_type =
   | Str of string
   | Type of Ast_c.fullType
   | Init of Ast_c.initialiser
+  | InitList of Ast_c.initialiser Ast_c.wrap2 list
   | Int of int
   | Param of Ast_c.parameterType
   | ParamList of Ast_c.parameterType Ast_c.wrap2 list
@@ -30,4 +31,57 @@ let fcts : (string, param_type list -> string ref list -> unit) Hashtbl.t =
 
 let inc_match = ref true
 let include_match x = inc_match := x
+
+let exited = ref false
+let exit _ = exited := true
+
 let dir () = !Flag.dir
+
+(* ---------------------------------------------------------------------- *)
+(* org mode *)
+
+let build_link p msg color =
+  Printf.sprintf
+    "[[view:%s::face=%s::linb=%d::colb=%d::cole=%d][%s]]"
+    p.file color p.line p.col p.col_end msg
+
+let print_todo ?color:(color="ovl-face1") ?msg:(msg="") p =
+  let msg =
+    if msg = ""
+    then Printf.sprintf "%s::%d" p.file p.line
+    else msg in
+  Printf.printf "* TODO %s\n" (build_link p msg color)
+
+let print_link ?color:(color="ovl-face2") ?msg:(msg="") p =
+  let msg =
+    if msg = ""
+    then Printf.sprintf "%s::%d" p.file p.line
+    else msg in
+  Printf.printf "%s\n" (build_link p msg color)
+
+let print_safe_todo ?color:(color="ovl-face1") ?msg:(msg="") p =
+  let msg = String.concat "@(" (Str.split_delim (Str.regexp_string "[") msg) in
+  let msg = String.concat ")" (Str.split_delim (Str.regexp_string "]") msg) in
+  print_todo ~color:color ~msg:msg p
+
+let print_safe_link ?color:(color="ovl-face2") ?msg:(msg="") p =
+  let msg = String.concat "@(" (Str.split_delim (Str.regexp_string "[") msg) in
+  let msg = String.concat ")" (Str.split_delim (Str.regexp_string "]") msg) in
+  print_link ~color:color ~msg:msg p
+
+(*
+print_main, print_sec and print_secs
+*)
+let print_main ?color:(color="ovl-face1") msg ps =
+  let p = List.hd ps in
+  let oldmsgfmt =
+    if msg == ""
+    then Printf.sprintf "%s::%d" p.file p.line
+    else Printf.sprintf "%s %s::%d" msg p.file p.line in
+  print_todo ~color:color ~msg:oldmsgfmt p
+
+let print_sec ?color:(color="ovl-face2") msg ps =
+  print_link ~color:color ~msg:msg (List.hd ps)
+
+let print_secs ?color:(color="ovl-face2") msg ps =
+  List.iter (function i -> print_link ~color:color ~msg:msg i) ps