From 89a424521b753ee7c2c67ebdc957865657f647c4 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Mon, 31 Oct 2005 16:16:54 +0000
Subject: Moved the STkLos and Bigloo code to `legacy'.

Moved the STkLos and Bigloo code from `src' to `legacy'.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-9
---
 legacy/bigloo/sui.bgl | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 legacy/bigloo/sui.bgl

(limited to 'legacy/bigloo/sui.bgl')

diff --git a/legacy/bigloo/sui.bgl b/legacy/bigloo/sui.bgl
new file mode 100644
index 0000000..63c5477
--- /dev/null
+++ b/legacy/bigloo/sui.bgl
@@ -0,0 +1,34 @@
+;*=====================================================================*/
+;*    serrano/prgm/project/skribe/src/bigloo/sui.bgl                   */
+;*    -------------------------------------------------------------    */
+;*    Author      :  Manuel Serrano                                    */
+;*    Creation    :  Wed Jul 23 12:48:11 2003                          */
+;*    Last change :  Thu Jan  1 16:16:03 2004 (serrano)                */
+;*    Copyright   :  2003-04 Manuel Serrano                            */
+;*    -------------------------------------------------------------    */
+;*    The Skribe runtime (i.e., the style user functions).             */
+;*    -------------------------------------------------------------    */
+;*    Implementation: @label sui@                                      */
+;*    bigloo: @path ../common/sui.scm@                                 */
+;*=====================================================================*/
+
+;*---------------------------------------------------------------------*/
+;*    The module                                                       */
+;*---------------------------------------------------------------------*/
+(module skribe_sui
+   
+   (include "debug.sch")
+   
+   (import  skribe_types
+	    skribe_eval
+	    skribe_param
+	    skribe_output
+	    skribe_engine)
+   
+   (export  (load-sui ::bstring)
+	    (sui-ref->url ::bstring ::obj ::obj ::pair-nil)
+	    (sui-title::bstring ::pair-nil)
+	    (sui-file::obj ::pair-nil)
+	    (sui-key::obj ::pair-nil ::obj)
+	    (sui-filter::pair-nil ::obj ::procedure ::procedure)))
+
-- 
cgit v1.2.3