Extracting all table names from a query?

[Symbolics]

Does anyone have any ideas on how to extract all table names from a s-sql query?

My use case involves pre-processing the tables before executing the query. I do not see any obvious way to do this, and trying to parse the s-sql expression seems like a bit of work to do in a reliable way. Alternatively I could wrap the function with a macro and have the user specify the tables, but it would be nice, since the information is already there, to extract it if possible.

Any ideas?

[sabracrolleton]

Do you mean including all tables from joins? Can you give an example s-sql query (anonymizing as necessary)?

[Symbolics]

I don't have a specific example. I'll be taking user provided s-sql queries from which I want a list of table names. There could be joins in the query.

[sabracrolleton]

Maybe something like this?

(defun tables-in-query (db-spec s-sql-query)
  (pomo:with-connection db-spec 
    (intersection (pomo:list-tables t)
                  (mapcar 'string
                          (s-sql::split-on-keywords ((select *) 
                                              (from * ?))
                                             s-sql-query
                                             `(,@(when from (alexandria:flatten from)))))
                  :test 'equalp)))

[Symbolics]

Thanks. That looks like it may work. I'd like to leave this open for a while as I go fight some fires. I'll circle back around with the solution I go with and then close.

[Symbolics]

Working. Thanks.