- postmodern-devel - mailman3.common-lisp.net

[postmodern-devel] Capital/mixed-case table/column names?
by Matthew Lamari 06 Nov '07

06 Nov '07

This question may betray a limited understanding of Postmodern or PostGres; but. . . . If possible, how can Postmodern be used to generate queries that can interact with capitalized/mixed-case table and column names? It appears that in postgres, unless double-quoted, a string is converted to lowercase (as with lisp with uppercase). String literals are single-quoted to SQL literals, not double-quoted as appears required for names. Postgres appears to lowercase even symbols containing capitals (e.g. |AbCd|) If no mechanism for mixed-case exists, would the use of mixed-case symbols be an appropriate change to make to PostGres? Thanks, Matt

2 1

[postmodern-devel] Multiple inner joins ...
by Ralf Mattes 17 Oct '07

17 Oct '07

Hello list, I'm trying to generate a query similar to the following: SELECT foo, bar, baz FROM (SELECT foo FROM ... WHERE ...) AS tmp1 INNER JOIN (SELECT bar FROM ... WHERE ...) AS tmp2 ON (tmp1.id = tmp2.id) INNER JOIN (SELECT baz FROM ... WHERE ...) AS tmp3 ON (tmp2.id = tmp3.id) How can I express this in S-SQL syntax? TIA Ralf Mattes

2 2

[postmodern-devel] is postmodern thread safe
by Samantha Atkins 02 Oct '07

02 Oct '07

I would like to find a Lisp database interface that is. I intend to build a general ODBMS layer in lisp on top of such. To do so I need serious multi-threaded support. Think persistence layer to a web app platform. Does postmodern handle multi-threaded use? If it makes a difference my Lisp of choice is SBCL. - samantha

5 6

[postmodern-devel] Selecting dao's
by Renato Lucindo 28 Sep '07

28 Sep '07

Hi, There is some way to select a limited number of daos without using query-dao? I think in something like that: the function select-dao accepting some key parameters, like :limit, :offset, :order-by... (select-dao 'my-entity :limit 100) to be same as (query-dao 'my-entity (:limit (:select '* :from 'my-entity) 100)) I think this would be useful in many applications, and allow the developer to write code without SQL. []'s Lucindo

3 7

[postmodern-devel] postmodern:connected-p
by Renato Lucindo 24 Sep '07

24 Sep '07

Hello, The function postmodern:connected-p should fail when its argument is a variable bounded to nil? For instance, here is some code using the package :postmodern : (defun connect-to-database () (when (not (connected-p *database*)) (connect-toplevel *db-name* *db-user* *db-pass* *db-host*))) This code fails because *database* is nil at first. If the function cl-postgress:database-open-p was changed into this: (defun database-open-p (connection) "Returns a boolean indicating whether the given connection is currently connected." (and connection (connection-socket connection) (open-stream-p (connection-socket connection)))) the code above would work as expected.

2 1

[postmodern-devel] porting Postmodern to SQLite
by Ryszard Szopa 19 Sep '07

19 Sep '07

Marijn, I was talking with a friend about Submarine and Postmodern and he complained about the fact that Postmodern (and thus Submarine) are PostgreSQL specific. I agreed that this is a shame: for some smaller projects Postgres is a bit overkill and you may want to use something smaller, like SQLite. You write in your docs that "...postmodern has no intention of being portable across different SQL implementations (it embraces non-standard Postgres features)." What do you mean by that? Is there anything Postgres specific outside of CL-POSTGRES? How difficult do you think it would be to port Postmodern to SQLite? (And: how long did it take to write CL-POSTGRES?) Cheers, -- Richard -- http://szopa.tasak.gda.pl/

2 1

[postmodern-devel] with-connection problem
by Jens Teich 18 Sep '07

18 Sep '07

What's wrong here? Tested with LW and SBCL. Thanks Jens POMO> (with-connection ("web_access" "web_access" "***" "localhost") (query (:select '* :from 'dokumente-files))) (("s5s732006l9t5i0ai3a308281gwdh5 " "z_z15p02" "Bilddata/AZ/Pdf/Az15_16/baumuste" "pdf" 1914355) ...... POMO> (defparameter *db* '("web_access" "web_access" "***" "localhost")) *DB* POMO> (with-connection *db* (query (:select '* :from 'dokumente-files))) error while parsing arguments to DEFMACRO WITH-CONNECTION: bogus sublist *DB* to satisfy lambda-list (DATABASE USER PASSWORD HOST &KEY (PORT 5432) POOLED-P) [Condition of type SB-KERNEL::DEFMACRO-BOGUS-SUBLIST-ERROR]

4 9

Fw: [postmodern-devel] query with keyword :on
by Jens Teich 17 Sep '07

17 Sep '07

Marijn Haverbeke wrote: > Hello Jens (and other lispworks users), > > I finally got a chance to do some coding, and I pushed a patch that > should fix this problem -- could you try it out and tell me if it > works at all. The only lisp interpreter I had available was Franz' > telnet repl, so testing has been minimal, but the changes weren't > that drastic, so there is a not unreasonable chance that they are > correct. First short test looks very good! Thanks Jens ------------ WEBCAT 15 > (with-db (postmodern:sql (:select 'pmw.wert :from (:as 'projekt-merkmale-werte 'pmw) :inner-join (:as 'projekt-elemente 'pe) :on (:= 'pmw.guid-produkt 'pe.guid-objekt) :where (:and (:= 'pe.guid "rzt732819vlurc5827955302wwxz8b") (:= 'pmw.merkmal-id "MID1008519") (:= 'pmw.lang-id "de"))))) "(SELECT pmw.wert FROM projekt_merkmale_werte AS pmw INNER JOIN projekt_elemente AS pe ON (pmw.guid_produkt = pe.guid_objekt) WHERE ((pe.guid = 'rzt732819vlurc5827955302wwxz8b') and (pmw.merkmal_id = 'MID1008519') and (pmw.lang_id = 'de')))" WEBCAT 16 > (with-db (postmodern:query (:select 'pmw.wert :from (:as 'projekt-merkmale-werte 'pmw) :inner-join (:as 'projekt-elemente 'pe) :on (:= 'pmw.guid-produkt 'pe.guid-objekt) :where (:and (:= 'pe.guid "rzt732819vlurc5827955302wwxz8b") (:= 'pmw.merkmal-id "MID1008519") (:= 'pmw.lang-id "de"))))) NIL WEBCAT 17 > (with-db (postmodern:query (:select 'pmw.wert :from (:as 'projekt-merkmale-werte 'pmw) :inner-join (:as 'projekt-elemente 'pe) :on (:= 'pmw.guid-produkt 'pe.guid-objekt) :where (:and (:= 'pmw.merkmal-id "MID1008519") (:= 'pmw.lang-id "de"))))) (("30 N") ("30 N") ("5 N") ("5 N") ("30 N") ("5 N") ("5 N") ("30 N") (" 5 N") .....

1 0

[postmodern-devel] query with keyword :on
by Jens Teich 17 Sep '07

17 Sep '07

This is an example from the documentation which gives strange results on Lispworks 5.0.2. I'm using the latest version of postmodern (1.02) CL-USER 3 > (postmodern:sql (:select (:+ 'field-1 100) 'field-5 :from (:as 'my-table 'x) :left-join 'your-table :on (:= 'x.field-2 'your-table.field-1) :where (:not-null 'a.field-3))) "(SELECT (field_1 + 100), field_5 FROM my_table AS x LEFT JOIN your_table ON (x.field_2 = your_table.field_1), your_table, on, (x.field_2 = ................................^ your_table.field_1) WHERE not_null(a.field_3))" Jens PS my previous problem with if statement is solved, I needed a macro instead of a function

3 11

[postmodern-devel] postmodern patch for CMUCL
by Ryszard Szopa 07 Sep '07

07 Sep '07

Hi, I wanted to see how submarine works under CMUCL, and it failed all the tests. It turned out, however, that the blame is on the side of Postmodern: it couldn't connect to the database, and also failed all its tests. The problem was that in some place it was trying to compare with >= a number and nil. With some effort I managed to find the guilty piece of code. It was read-ascii-string in communicate.lisp. In that function, if byte-length is not nil, it is compared with bytes-read. Byte-length, however, was declared as fixnum. This probably caused CMUCL to optimized it away as not-NIL in any conditional expressions (imagine my surpise when evaluating (when byte-length (break "bytes-read: ~A byte-length: ~A" bytes-read byte-length)) threw a break and showed byte-length to be nil :)) Also, binding the utf-8 stuff in package.lisp was indeed an awful hack... It's been a long time since I've used grep on source code to find who calls a function (yeah, slime is addicting;). Now Postmodern passes on CMUCL all its tests except two, table and transaction. I'll take a look at them if I have time. Cheers, -- Richard -- http://szopa.tasak.gda.pl/

2 1