From fc42fe56a57eace2dbdb31574c2e161f0eacf839 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 15 Jun 2005 13:00:39 +0000
Subject: Initial import of Skribe 1.2d.

Initial import of Skribe 1.2d.


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--base-0
---
 tools/skribebibtex/bigloo/main.scm | 44 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create 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
new file mode 100644
index 0000000..3ff89de
--- /dev/null
+++ b/tools/skribebibtex/bigloo/main.scm
@@ -0,0 +1,44 @@
+;*=====================================================================*/
+;*    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