(module c-sqld-oracle mzscheme
  (define c-sqld-oracle-available? #f)
  (provide c-sqld-oracle-available?)

  (define-syntax provide-wrappers
    (syntax-rules ()
      [(_) (begin)]
      [(_ id1 id ...)
       (begin
	 (define (id1 . args)
	   (error 'id1 "extension not compiled"))
	 (provide id1)
	 (provide-wrappers id ...))]))

  (provide-wrappers
   c-oracle-version
   c-oracle-server-version
   c-oracle-open
   c-oracle-close
   c-oracle-query
   c-oracle-fetch
   c-oracle-eoq
   c-oracle-fields
   c-oracle-prows
   c-oracle-columns
   c-oracle-lasterr
   c-oracle-autocommit-on
   c-oracle-autocommit-off
   c-oracle-escape))