summaryrefslogtreecommitdiff
path: root/src/bigloo/index.bgl
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)))