blob: 63c5477528bca1173e6673755e81b0229e6ceb0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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)))
|
