cosmetics.
authorPierre Habouzit <madcoder@debian.org>
Mon, 26 Mar 2007 21:40:26 +0000 (23:40 +0200)
committerPierre Habouzit <madcoder@debian.org>
Mon, 26 Mar 2007 21:40:26 +0000 (23:40 +0200)
Signed-off-by: Pierre Habouzit <madcoder@debian.org>
tools/cpkg2c.mll

index 0eccf47..b33cf84 100644 (file)
   module H = Hashtbl
   module B = Buffer
 
-  type 'a anchor = ('a * string * int)
-
+  type 'a anchor   = ('a * string * int)
   let t1 (a, _, _) = a
-  let t2 (_, a, _) = a
-  let t3 (_, _, a) = a
 
   let die lpos fpos s =
     output_string stderr (sprintf "%s:%d: %s\n" fpos lpos s);
@@ -160,7 +157,6 @@ let sp     = [' ''\t']
 let typdecl = sp* ("const" sp+)? ident sp*
 
 (* }}} *)
-
 (* entry point {{{ *)
 
 rule cLine lpos fpos buf = parse
@@ -332,6 +328,8 @@ and ext_bodycode buf = parse
 (* }}} *)
 
 {
+(* templating functions {{{ *)
+
   let upper = String.uppercase
   let tplize tpl v =
     Str.global_replace (Str.regexp_string "$L") "L" (
@@ -550,6 +548,8 @@ int luaopen_%s(lua_State *L)
 ")
     in List.iter do_c_aux
 
+(* }}} *)
+
   let usage () =
     output_string stderr "usage: cpkg2c (-h | -c) file.cpkg\n";
     exit 1