[ sisc-Bugs-1731336 ] contrib/pure-scheme/jdbc.scm broken on 1.16.6 (outdated?)

Bugs item #1731336, was opened at 2007-06-05 05:16
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1731336&group_id=23735

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: contrib/pure-scheme/jdbc.scm broken on 1.16.6 (outdated?)

Initial Comment:
;; jdbc/connect-auth only for conveniance
  (define (jdbc/connect-auth jdbc-datasource user pass)
    (get-connection (java-null <java.sql.driver-manager>) (->jstring jdbc-datasource) (->jstring user) (->jstring pass)))


#;> (let* ((conn (jdbc/connect-auth "jdbc:postgresql:traffic_nrw_0_3_0" "olsim" ""))
          (stmt (jdbc/prepare-statement conn
                                       "select * from vrz_verfuegbarkeit(NULL)"
                                       '(|Statement.NO_GENERATED_KEYS|)))
          (res (jdbc/execute-query stmt)))
  (jdbc/close conn)
  res)
Error: attempt to apply non-procedure '#<java java.lang.Class java.sq...'.
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:91:28: <indeterminate call>
---------------------------
console:82:88: <from call to @jdbc::jdbc/prepare-statement>
#;> (let* ((conn (jdbc/connect-auth "jdbc:postgresql:traffic_nrw_0_3_0" "olsim" ""))
          (stmt (jdbc/prepare-statement conn
                                       "select * from vrz_verfuegbarkeit(NULL)"))
          (res (jdbc/execute-query stmt)))
  (jdbc/close conn) res)
Error in cdr: expected type pair, got '#f'.
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:63:32: <from call to cdr>
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:62:25: <from call to map>
---------------------------
console:83:165: <from call to @jdbc::jdbc/execute-query>


#;> (load "/home/johannes/sisc/contrib/pure-scheme/streams.scm")
#;> (load "/home/johannes/sisc/contrib/pure-scheme/jdbc.scm")
#;> (import jdbc)
#;> (let* ((conn (jdbc/connect-auth "jdbc:postgresql:traffic_nrw_0_3_0" "olsim" ""))
          (stmt (jdbc/prepare-statement conn
                                       "select * from vrz_verfuegbarkeit(NULL)"
                                       (list (access-constant java-class '|Statement.NO_GENERATED_KEYS|))))
          (res (jdbc/execute-query stmt)))
  (jdbc/close conn) res)
Error in java/null: expected type java class, got '#<procedure |@s2j::java-class|...'.
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:45:42: <from call to @s2j::java-null>
---------------------------
console:109:164: <from call to @jdbc::access-constant>


#;> (let* ((conn (jdbc/connect-auth "jdbc:postgresql:traffic_nrw_0_3_0" "olsim" ""))
          (stmt (jdbc/prepare-statement conn
                                       "select * from vrz_verfuegbarkeit(NULL)"))
          (res (jdbc/execute-query stmt)))
   (jdbc/close conn) res)
Error in cdr: expected type pair, got '#f'.
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:63:32: <from call to cdr>
---------------------------
file:/home/johannes/sisc/contrib/pure-scheme/jdbc.scm:62:25: <from call to map>
---------------------------
console:114:165: <from call to @jdbc::jdbc/execute-query>



;; even changing the jdbc/prepare-statement into
;; the following doesn't change situation
  (define (jdbc/prepare-statement connection query . updatable)
    (if (and (not (null? updatable)) (car updatable))
        (prepare-statement connection (->jstring query)
                           (access-constant <java.sql.result-set> '|TYPE_FORWARD_ONLY|)
                           (access-constant <java.sql.result-set> '|CONCUR_UPDATABLE|))
        (prepare-statement connection (->jstring query))))




----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1731336&group_id=23735

-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/