;;; -*- Mode: Scheme; scheme48-package: (config) -*-

;;;; Scheme48 Networking Interface
;;;; Package Definitions

;;; This code is written by Taylor Campbell and placed in the Public
;;; Domain.  All warranties are disclaimed.

(define-structure network-sockets network-sockets-interface
  (open scheme
        define-record-types
        let-opt
        receiving
        features                        ;make-immutable!
        signals
        proposals
        interrupts
        condvars
        channels
        channel-i/o
        architecture                    ; for channel status options
        channel-ports
        external-calls
        (subset primitives (copy-bytes!))
        bitwise
        byte-vectors
        network-constants
        )
  (optimize auto-integrate)
  (files socket))

(define-structure network-database network-database-interface
  (open scheme
        signals
        define-record-types
        destructuring
        locks
        channel-ports
        posix-files
        posix-time
        ascii
        srfi-1
        srfi-13)
  (optimize auto-integrate)
  (files netdb))

(define-structure network-constants network-constants-interface
  (open scheme
        define-c-struct
        byte-vectors
        )
  (optimize auto-integrate)
  (files netconsts))

(define-structure networking networking-interface
  (open scheme
        signals
        handle
        network-sockets
        network-constants
        network-database)
  (optimize auto-integrate)
  (files networking))

(define-structure network-tests network-tests-interface
  (open scheme
        signals
        handle
        receiving
        pp
        (subset features (force-output))
        byte-vectors
        (subset primitives (copy-bytes!))
        network-sockets
        network-constants
        )
  (files test))