어떠냐? 떡실신?


(defonce table-fk-sql-fmt "SELECT regexp_matches(pg_get_constraintdef(c.oid), 'FOREIGN KEY \\((\\w+)\\) REFERENCES (\\w+)\\((\\w+)\\)') AS col_ftab_fcol FROM pg_constraint c, pg_namespace n, pg_class cls WHERE c.connamespace = n.oid AND contype = 'f' AND n.nspname IN (%s) AND cls.relname = $1 and cls.oid = conrelid")


(defn- make-table-fk-sql

  ([]

   (make-table-fk-sql (:schema *user-session-context*)))

  ([schema-str]

   (format table-fk-sql-fmt (if schema-str

                              (str "'public','" schema-str "'")

                              "'public'"))))


(defonce table-column-sql-fmt "SELECT column_name, data_type FROM information_schema.columns WHERE table_name = $1 AND table_schema in (%s)")


(defn- make-table-column-sql

  ([]

   (make-table-column-sql (:schema *user-session-context*)))

  ([schema-str]

   (format table-column-sql-fmt (if schema-str

                                  (str "'" schema-str "','public'")

                                  "'public'"))))