diff options
| author | Ludovic Courtes | 2005-10-31 16:16:54 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-10-31 16:16:54 +0000 |
| commit | 89a424521b753ee7c2c67ebdc957865657f647c4 (patch) | |
| tree | 7d15f69ef9aa87cd6e89153d34240baa031177c2 /legacy/bigloo/sui.bgl | |
| parent | fe831fd1e716de64a1b92beeabe4d865546dd986 (diff) | |
| download | skribilo-89a424521b753ee7c2c67ebdc957865657f647c4.tar.gz skribilo-89a424521b753ee7c2c67ebdc957865657f647c4.tar.lz skribilo-89a424521b753ee7c2c67ebdc957865657f647c4.zip | |
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
Diffstat (limited to 'legacy/bigloo/sui.bgl')
| -rw-r--r-- | legacy/bigloo/sui.bgl | 34 |
1 files changed, 34 insertions, 0 deletions
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))) + |