From 26fc9d18c3db792f500d73eb22e78860216d2a9b Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 30 Aug 2006 09:08:27 +0000
Subject: Removed `tools/skribebibtex/bigloo'.

git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-51
---
 tools/skribebibtex/bigloo/main.scm | 44 --------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 tools/skribebibtex/bigloo/main.scm

(limited to 'tools/skribebibtex/bigloo/main.scm')

diff --git a/tools/skribebibtex/bigloo/main.scm b/tools/skribebibtex/bigloo/main.scm
deleted file mode 100644
index 3ff89de..0000000
--- a/tools/skribebibtex/bigloo/main.scm
+++ /dev/null
@@ -1,44 +0,0 @@
-;*=====================================================================*/
-;*    serrano/prgm/project/skribe/tools/skribebibtex/main.scm          */
-;*    -------------------------------------------------------------    */
-;*    Author      :  Manuel Serrano                                    */
-;*    Creation    :  Fri Oct 12 14:57:58 2001                          */
-;*    Last change :  Fri Oct 24 12:00:23 2003 (serrano)                */
-;*    Copyright   :  2001-03 Manuel Serrano                            */
-;*    -------------------------------------------------------------    */
-;*    The entry point of the bibtex->skribe translator                 */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;*    The module                                                       */
-;*---------------------------------------------------------------------*/
-(module main
-   (import skribebibtex)
-   (main main))
-
-;*---------------------------------------------------------------------*/
-;*    main ...                                                         */
-;*---------------------------------------------------------------------*/
-(define (main argv)
-   (define (usage args-parse-usage)
-      (print "usage: skribebibtex [options] [input]")
-      (newline)
-      (args-parse-usage #f))
-   (let ((stage 'scr)
-	 (dest #f)
-	 (in #f))
-      (args-parse (cdr argv)
-	 ((("-h" "--help") (help "This help message"))
-	  (usage args-parse-usage)
-	  (exit 0))
-	 ((("--options") (help "Display the options and exit"))
-	  (args-parse-usage #t)
-	  (exit 0))
-	 (("-o" ?out (help "Set the destination file"))
-	  (set! dest out))
-	 (else
-	  (set! in else)))
-      (if (string? dest)
-	  (with-output-to-file dest (lambda () (skribebibtex in)))
-	  (skribebibtex in))))
-
-- 
cgit v1.2.3