option -nolinks

git-svn-id: https://www.lri.fr/svn/demons/bibtex2html/trunk@335 6aee9057-109c-4a6d-8c93-4c3f535006fd

Author: backtracking

main.ml

@@ -14,7 +14,7 @@
  * (enclosed in the file GPL).
  *)
 
-(*i $Id: main.ml,v 1.57 2004-09-02 07:22:36 filliatr Exp $ i*)
+(*i $Id: main.ml,v 1.58 2004-09-16 09:39:16 filliatr Exp $ i*)
 
 (*s Main module of bibtex2html. *)
 
@@ -316,6 +316,7 @@ Usage: bibtex2html <options> [filename]
   -single    produce a single page (with BibTeX input and output)
   -nodoc     only produces the body of the HTML documents
   -nokeys    do not print the BibTeX keys
+  -nolinks   do not print any web link
   -rawurl    print URL instead of file type
   -heveaurl  use HeVeA's \\url macro
   -noabstract
@@ -376,6 +377,8 @@ let parse () =
 	print_abstract := false; parse_rec rem
     | ("-nokeywords" | "-no-keywords" | "--no-keywords") :: rem ->
 	print_keywords := false; parse_rec rem
+    | ("-nolinks" | "-no-links" | "--no-links") :: rem -> 
+	print_links := false; parse_rec rem
     | ("-nokeys" | "-no-keys" | "--no-keys") :: rem -> 
 	nokeys := true; parse_rec rem
     | ("-usekeys" | "-use-keys" | "--use-keys") :: rem ->

translate.ml

@@ -14,7 +14,7 @@
  * (enclosed in the file GPL).
  *)
 
-(*i $Id: translate.ml,v 1.66 2004-06-30 07:05:35 filliatr Exp $ i*)
+(*i $Id: translate.ml,v 1.67 2004-09-16 09:39:16 filliatr Exp $ i*)
 
 (*s Production of the HTML documents from the BibTeX bibliographies. *)
 
@@ -31,6 +31,7 @@ let title = ref ""
 let title_spec = ref false
 let print_abstract = ref true
 let print_keywords = ref true
+let print_links = ref true
 let print_header = ref true
 let print_footer = ref true
 let multiple = ref false
@@ -216,7 +217,9 @@ let display_links ch links =
 	if r <> [] then output_string ch " | \n";
 	display r
   in
-  if links <> [] then begin output_string ch "[ "; display links end
+  if !print_links && links <> [] then begin 
+    output_string ch "[ "; display links 
+  end
 
 exception Caught
 

translate.mli

@@ -14,7 +14,7 @@
  * (enclosed in the file GPL).
  *)
 
-(*i $Id: translate.mli,v 1.7 2003-09-30 15:50:44 filliatr Exp $ i*)
+(*i $Id: translate.mli,v 1.8 2004-09-16 09:39:16 filliatr Exp $ i*)
 
 (*s Production of the HTML documents from the BibTeX bibliographies. *)
 
@@ -32,6 +32,7 @@ val title : string ref
 val title_spec : bool ref
 val print_abstract : bool ref
 val print_keywords : bool ref
+val print_links : bool ref
 val print_header : bool ref
 val print_footer : bool ref
 val multiple : bool ref