Changeset 30697 in project


Ignore:
Timestamp:
04/12/14 11:54:16 (7 years ago)
Author:
sjamaan
Message:

Postgresql: improve error reporting a bit (and fix case where conn was passed instead of conn-ptr)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/postgresql/trunk/postgresql.scm

    r30695 r30697  
    433433               (postgresql-error
    434434                'connect 'connect
    435                 (conc "Polling Postgres database failed. " message) conn)))
     435                (conc "Polling Postgres database failed: " message) conn)))
    436436            ((member result (list PGRES_POLLING_WRITING PGRES_POLLING_READING))
    437437             (thread-wait-for-i/o! conn-fd (if (= PGRES_POLLING_READING result)
     
    518518          (postgresql-error
    519519           'connect 'reset-connection
    520            (conc "Reset of connection failed " error-message) connection)))))
     520           (conc "Reset of connection failed: " error-message) connection)))))
    521521
    522522(define (disconnect connection)
     
    703703          (postgresql-error
    704704           'i/o 'buffer-available-input!
    705            (conc "Error reading reply from server. " (PQerrorMessage conn-ptr))
     705           (conc "Error reading reply from server: " (PQerrorMessage conn-ptr))
    706706           conn)))))
    707707
     
    968968           (get-last-result conn raw: raw))
    969969          (else (postgresql-error 'i/o 'query*
    970                                   (conc "Unable to send query to server. "
     970                                  (conc "Unable to send query to server: "
    971971                                        (PQerrorMessage (pg-connection-ptr conn)))
    972972                                  conn query params format)))))
     
    10571057        (postgresql-error
    10581058         'i/o 'put-copy-data
    1059          (conc "Error putting COPY data. " (PQerrorMessage conn-ptr)) conn))
     1059         (conc "Error putting COPY data: " (PQerrorMessage conn-ptr)) conn))
    10601060       (else (postgresql-error
    10611061              'internal 'put-copy-data
     
    10741074        (postgresql-error
    10751075         'i/o 'put-copy-end
    1076          (conc "Error ending put COPY data. " (PQerrorMessage conn-ptr))
     1076         (conc "Error ending put COPY data: " (PQerrorMessage conn-ptr))
    10771077         conn error-message))
    10781078       (else
     
    11061106            (postgresql-error
    11071107             'i/o 'get-copy-data
    1108              (conc "Error getting COPY data. " (PQerrorMessage conn-ptr)) conn))
     1108             (conc "Error getting COPY data: " (PQerrorMessage conn-ptr)) conn))
    11091109           (else (postgresql-error
    11101110                  'internal 'get-copy-data
     
    11241124           (buflen (add1 (* strlen 2)))
    11251125           (buffer (make-string buflen))
    1126            (size (%escape-string-conn (pg-connection-ptr conn) buffer str strlen (location err))))
     1126           (conn-ptr (pg-connection-ptr conn))
     1127           (size (%escape-string-conn conn-ptr buffer str strlen (location err))))
    11271128      (cond (err (postgresql-error 'internal 'escape-string
    11281129                                   (conc "String escaping failed. "
    1129                                          (PQerrorMessage conn)) conn str))
     1130                                         (PQerrorMessage conn-ptr)) conn str))
    11301131            ((fx= size buflen) buffer)
    11311132            (else (##sys#substring buffer 0 size))))))
     
    11381139     (or (%escape-ident (pg-connection-ptr conn) str (string-length str))
    11391140         (postgresql-error 'internal 'quote-identifier
    1140                            (conc "Identifier escaping failed. "
    1141                                  (PQerrorMessage conn)) conn str)))
     1141                           (conc "Identifier escaping failed: "
     1142                                 (PQerrorMessage (pg-connection-ptr conn)))
     1143                           conn str)))
    11421144    (else (postgresql-error 'unsupported-version 'quote-identifier
    11431145                            (conc "Please upgrade your PostgreSQL to 9.0 or later "
     
    11551157                              'type 'escape-bytea
    11561158                              "Expected string, blob or srfi-4 vector" obj))))
    1157            (buf (%escape-bytea-conn (pg-connection-ptr conn) data
    1158                                     (##sys#size data) (location allocated))))
     1159           (conn-ptr (pg-connection-ptr conn))
     1160           (buf (%escape-bytea-conn
     1161                 conn-ptr data (##sys#size data) (location allocated))))
    11591162      (if buf
    11601163          (let* ((string-length (sub1 allocated))
     
    11651168          (postgresql-error
    11661169           'internal 'escape-bytea
    1167            (conc "Byte array escaping failed. " (PQerrorMessage conn)) conn obj)))))
     1170           (conc "Byte array escaping failed: " (PQerrorMessage conn-ptr))
     1171           conn obj)))))
    11681172
    11691173(define (unescape-bytea str)
Note: See TracChangeset for help on using the changeset viewer.