[Pkg-ocaml-maint-commits] [SCM] hlins packaging branch, master, updated. debian/0.39-14-3-g67ac34b

[Ralf Treinen]

The following commit has been merged in the master branch:
commit 67ac34be940bf59a12a2c62fb4340e8032d89160
Author: Ralf Treinen <treinen at free.fr>
Date:   Wed Jun 24 22:31:51 2009 +0200

    ???

diff --git a/debian/patches/01_nocustom.dpatch b/debian/patches/01_nocustom.dpatch
old mode 100644
new mode 100755
diff --git a/debian/patches/02_examples_makefile.dpatch b/debian/patches/02_examples_makefile.dpatch
old mode 100644
new mode 100755
diff --git a/source/#addr_lex.mll# b/source/#addr_lex.mll#
deleted file mode 100644
index 6af8fe2..0000000
--- a/source/#addr_lex.mll#
+++ /dev/null
@@ -1,65 +0,0 @@
-(*
-    HLins: insert http-links into HTML documents.
-    See http://www.lri.fr/~treinen/hlins
-
-    Copyright (C) 1999 Ralf Treinen <treinen at lri.fr>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-*)
-
-
-{
-  let ln = ref 1;; (* line number *)
-  exception Error_lex of int*string;;
-  exception Eof;;
-}
-
-
-let linespace = [' ''\t']
-
-
-(* 
-    next_name_tab_url: called when we expect a name. Ignore any line
-    that starts with the comment sign, and any white space. We accept
-    as a name any string that does not contain "=" or newline, and that
-    does not end or start on white space. The character "=" can be
-    escaped as "==".
-*)
-
-rule next_name_sep_url = parse
-    '#'[^'\n']*('\n')	       { incr ln; next_name_sep_url lexbuf }
-  | linespace+  	       { next_name_sep_url lexbuf }
-  | '\n'                       { incr ln; next_name_sep_url lexbuf }
-  | [^' ''#''\t''\n''='](([^'=''\n']|"==")*[^' ''\t''\n''='])?
-                               { let name = Lexing.lexeme lexbuf
-                          			in (name , sep_url lexbuf) }
-  | eof					{ raise Eof }
-
-
-(* separator *)
-and sep_url = parse
-    linespace* '=' linespace* { url lexbuf }
-  | _     		{ raise (Error_lex (!ln,"No separator found"))}
-
-
-(*
-    any non-empty string up to the end of the line is accepted as url
-*)
-and url = parse
-    [^'\n']+	{ Lexing.lexeme lexbuf }
-  | ('\n'|eof)	{ raise (Error_lex (!ln,"No URL found"))}
-
-

-- 
hlins packaging