postmodern-devel

Download

postmodern-devel@common-lisp.net

May 2012

3 participants
2 discussions

[postmodern-devel] S-SQL extension :if=
by Andy Chambers 14 May '12

14 May '12

Hi All, If anyone's interested in using it, I made a little S-SQL extension (def-sql-op :=if (a b) `(,@(case a (:null (sql-expand `(:is-null ,b))) (nil (sql-expand t)) (otherwise (sql-expand `(:= ,a ,b)))))) I find it convenient when writing queries that take optional parameters where if the parameter is not specified, you want to return the row regardless of what value b takes. Does anyone else write little extensions like these? Should we collect them in a contrib? -- Andy Chambers Software Engineer (e) achambers(a)mcna.net (t) 954-682-0573 CONFIDENTIALITY NOTICE: This electronic mail may contain information that is privileged, confidential, and/or otherwise protected from disclosure to anyone other than its intended recipient(s). Any dissemination or use of this electronic mail or its contents by persons other than the intended recipient(s) is strictly prohibited. If you have received this communication in error, please notify the sender immediately by reply e-mail so that we may correct our internal records. Please then delete the original message. Thank you.

2 1

[postmodern-devel] single-key object magic
by Greg Pfeil 09 May '12

09 May '12

I've made a few changes to Postmodern. They both try to do a little magic in the case where a table has a single primary key column. The first change allows you to use a DAO-OBJECT directly as a parameter, rather than pulling out the key field. EG: > (select-dao 'foo (:= 'bar bar)) instead of having to do > (select-dao 'foo (:= 'bar (id bar))) And the second allows the use of a DAO-CLASS name in the :COL-TYPE field of a slot definition. EG: > (defclass bar () ((id :col-type serial)) (:metaclass dao-class)) > (defclass foo () ((bar :col-type (or db-null bar))) (:metaclass dao-class)) instead of > (defclass bar () ((id :col-type serial)) (:metaclass dao-class)) > (defclass foo () ((bar :col-type (or db-null integer))) (:metaclass dao-class)) These both seem pretty basic, but they mean that you can change the primary key column name or type without having to make changes throughout your code. Also, I see it as a first step toward being able to (eagerly or lazily) auto-populate slots with full objects rather than keys. Does this seem useful, too magical, or already there but I missed it?

2 1