; $Id: link.ss,v 1.17 2000/01/02 23:28:25 robby Exp $

(compound-unit/sig 
  (import
    (INTERFACE : zodiac:interface^)
    (PRETTY : mzlib:pretty-print^)
    (MZLIB-FILE : mzlib:file^))
  (link
    [MISC : zodiac:misc^
      ((require-relative-library-unit/sig "misc.ss") PRETTY)]
    [TOP-STRUCTS : zodiac:structures^ 
      ((require-relative-library-unit/sig "basestr.ss"))]
    [SCAN-STRUCTS : zodiac:scanner-structs^
      ((require-relative-library-unit/sig "scanstr.ss")
	TOP-STRUCTS)]
    [READ-STRUCTS : zodiac:reader-structs^
      ((require-relative-library-unit/sig "readstr.ss")
	TOP-STRUCTS)]
    [SCAN-PARMS : zodiac:scanner-parameters^
      ((require-relative-library-unit/sig "scanparm.ss")
	TOP-STRUCTS)]
    [SCAN-CODE : zodiac:scanner-code^
      ((require-relative-library-unit/sig "scanner.ss")
	TOP-STRUCTS SCAN-STRUCTS READ-STRUCTS 
	SCAN-PARMS INTERFACE)]
    [READ-CODE : zodiac:reader-code^
      ((require-relative-library-unit/sig "reader.ss")
	TOP-STRUCTS SCAN-STRUCTS READ-STRUCTS
	SCAN-PARMS INTERFACE SCAN-CODE)]
    [SEXP : zodiac:sexp^
      ((require-relative-library-unit/sig "sexp.ss")
	MISC TOP-STRUCTS READ-STRUCTS INTERFACE
	SCHEME-MAIN)]
    [PATTERN : zodiac:pattern^
      ((require-relative-library-unit/sig "pattern.ss")
	MISC SEXP READ-STRUCTS SCHEME-CORE)]
    [EXPANDER : zodiac:expander^
      ((require-relative-library-unit/sig "x.ss")
	MISC SEXP TOP-STRUCTS READ-STRUCTS
	SCHEME-CORE INTERFACE)]
    [CORRELATE : zodiac:correlate^
      ((require-relative-library-unit/sig "corelate.ss")
	TOP-STRUCTS)]
    [BACK-PROTOCOL : zodiac:back-protocol^
      ((require-relative-library-unit/sig "back.ss")
	MISC INTERFACE)]
    [SCHEME-CORE : zodiac:scheme-core^
      ((require-relative-library-unit/sig "scm-core.ss")
	TOP-STRUCTS MISC SEXP READ-STRUCTS
	BACK-PROTOCOL EXPANDER INTERFACE PATTERN)]
    [SCHEME-MAIN : zodiac:scheme-main^
      ((require-relative-library-unit/sig "scm-main.ss")
	MISC TOP-STRUCTS SCAN-PARMS
	READ-STRUCTS READ-CODE SEXP
	PATTERN SCHEME-CORE BACK-PROTOCOL EXPANDER INTERFACE)]
    [SCHEME-SPIDEY : zodiac:scheme-mrspidey^
      ((require-relative-library-unit/sig "scm-spdy.ss")
	MISC TOP-STRUCTS SCAN-PARMS READ-STRUCTS READ-CODE SEXP PATTERN
	SCHEME-CORE SCHEME-MAIN BACK-PROTOCOL EXPANDER INTERFACE
	MZLIB-FILE)]
    [SCHEME-OBJ : zodiac:scheme-objects^
      ((require-relative-library-unit/sig "scm-obj.ss")
	MISC TOP-STRUCTS READ-STRUCTS SEXP
	PATTERN SCHEME-CORE SCHEME-MAIN BACK-PROTOCOL EXPANDER INTERFACE)]
    [SCHEME-UNIT : zodiac:scheme-units^
      ((require-relative-library-unit/sig "scm-unit.ss")
	MISC TOP-STRUCTS SCAN-PARMS READ-STRUCTS READ-CODE SEXP
	PATTERN SCHEME-CORE SCHEME-MAIN SCHEME-OBJ BACK-PROTOCOL EXPANDER INTERFACE)]
    [SCHEME-OBJ+UNIT : zodiac:scheme-objects+units^
      ((require-relative-library-unit/sig "scm-ou.ss")
	MISC TOP-STRUCTS READ-STRUCTS SEXP PATTERN EXPANDER INTERFACE
	SCHEME-CORE SCHEME-MAIN SCHEME-OBJ SCHEME-UNIT)])
  (export (open TOP-STRUCTS) (open SCAN-PARMS)
    (open READ-STRUCTS) (open READ-CODE)
    (open SEXP) (open PATTERN) (open CORRELATE) (open BACK-PROTOCOL)
    (open EXPANDER)
    (open SCHEME-CORE) (open SCHEME-MAIN)
    (open SCHEME-OBJ) (open SCHEME-UNIT)
    (open SCHEME-OBJ+UNIT)
    (open SCHEME-SPIDEY)))
