;;; Project:           Scheme-PG
;;; Author:            David J. Neu, djneu@acm.org
;;; Maintainer:        David J. Neu, djneu@acm.org
;;; Project Home Page: http://scheme-pg.sourceforge.net
;;; Copyright:         Copyright (c) 2004 Universal Technical Resource Services, Inc.
;;; License:           MIT License, see license.txt
;;; CVS Id:            $Id: s-pg.ss,v 1.3 2005/03/15 12:41:44 djneu Exp $

(module s-pg
  mzscheme

  (define connection-open
    (error 'connection-open "extension not compiled"))

  (define connection?
    (error 'connection? "extension not compiled"))

  (define connection-close
    (error 'connection-close "extension not compiled"))

  (define execute-sql
    (error 'execute-sql "extension not compiled"))

  (define result-open
    (error 'result-open "extension not compiled"))

  (define result?
    (error 'result? "extension not compiled"))

  (define result-ref
    (error 'result-ref "extension not compiled"))

  (define result-length
    (error 'result-length "extension not compiled"))

  (define result-metadata
    (error ' "extension not compiled"))

  (define result-close
    (error 'result-close "extension not compiled"))  

  (define escape-string
    (error 'escape-string "extension not compiled"))

  (define null-object?
    (error 'null-object? "extension not compiled"))    
  
  (provide
   connection-open
   connection?
   connection-close
   execute-sql
   result-open
   result?
   result-ref
   result-length
   result-metadata
   result-close
   escape-string
   null-object?))