blob: 9697981b71b3f4d19cb87a04d11fc04bbab428a3 (
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
|
;*=====================================================================*/
;* serrano/prgm/project/skribe/src/bigloo/index.bgl */
;* ------------------------------------------------------------- */
;* Author : Manuel Serrano */
;* Creation : Sun Aug 24 08:01:45 2003 */
;* Last change : Wed Feb 4 05:24:10 2004 (serrano) */
;* Copyright : 2003-04 Manuel Serrano */
;* ------------------------------------------------------------- */
;* Skribe indexes Bigloo module declaration */
;* ------------------------------------------------------------- */
;* Implementation: @label index@ */
;* bigloo: @path ../common/index.scm@ */
;*=====================================================================*/
;*---------------------------------------------------------------------*/
;* The module */
;*---------------------------------------------------------------------*/
(module skribe_index
(include "new.sch")
(import skribe_types
skribe_lib
skribe_resolve
skribe_eval
skribe_api)
(export (index?::bool ::obj)
(default-index)
(make-index-table ::bstring)
(resolve-the-index ::obj ::obj ::obj ::pair-nil ::bool ::int ::int ::int)))
|
