(index ("define-ssql-record" 0) ("<ssql-record>-select" 325) ("<ssql-record>-rec-select" 647) ("<ssql-record>-select-all" 949) ("<ssql-record>-update" 1336) ("<ssql-record>-rec-update" 1558) ("<ssql-record>-insert" 1796) ("<ssql-record>-rec-insert" 2013) ("<ssql-record>-delete" 2311) ("<ssql-record>-rec-delete" 2512))
(def (sig (syntax "(define-ssql-record <record-name> (<id1> [<id2> ...] ) <other-field1> [<other-field2> ...] )" (id define-ssql-record))) (p "Creates a record with useful procedures to generate SSQL code. The first item after the " (tt "<record-name>") " " (b "MUST") " be a list containing one or more " (tt "<id>s") "."))
(def (sig (procedure "(<ssql-record>-select cols [ssql])" (id <ssql-record>-select))) (p (tt "cols") " must be a list as " (tt "'(columns <col1> [<col2> ...] )") ". " (tt "ssql") " is optional and if provided must be a list of lists like " (tt "'((where (< 1 id)))") " or " (tt "'((where (= 123 id)) (order name))") "."))
(def (sig (procedure "(<ssql-record>-rec-select record [ssql])" (id <ssql-record>-rec-select))) (p (tt "record") " must be a <ssql-record>. " (tt "ssql") " is optional and if provided must be a list of lists. Automatically builds a " (tt "where") " clause with " (tt "record") "'s " (tt "<id>s") "."))
(def (sig (procedure "(<ssql-record>-select-all [ssql])" (id <ssql-record>-select-all))) (p "Returns a SSQL " (tt "select") " statement that selects all columns defined at the creation of <ssql-record> in the same specified order. " (tt "ssql") " is optional and if provided must be a list of lists like " (tt "'((where (< 1 id))") " or " (tt "'((where (= 123 id)) (order name))") "."))
(def (sig (procedure "(<ssql-record>-update ssql)" (id <ssql-record>-update))) (p (tt "ssql") " is mandatory and must be a list of lists like " (tt "'((set (name \"Bob\") (surname \"Spitzer\")) [(where (< 1 id))])") "."))
(def (sig (procedure "(<ssql-record>-rec-update record)" (id <ssql-record>-rec-update))) (p "No " (tt "ssql") " can be appended to this command. Automatically builds a " (tt "where") " clause with " (tt "record") "'s " (tt "<id>s") "."))
(def (sig (procedure "(<ssql-record>-insert ssql)" (id <ssql-record>-insert))) (p (tt "ssql") " is mandatory and must be a list of lists like " (tt "'([(columns name surname)] (values #(\"Bob\" \"Spitzer\")))") "."))
(def (sig (procedure "(<ssql-record>-rec-insert record)" (id <ssql-record>-rec-insert))) (p "Generates a SSQL " (tt "insert") " statement with all " (tt "record") "'s fields, except for " (tt "<id>s") " " (i "if") " anyone of them is " (tt "'NULL") " (in both single or composite id scenarios)."))
(def (sig (procedure "(<ssql-record>-delete [ssql])" (id <ssql-record>-delete))) (p (tt "ssql") " is optional and if provided must be a list of lists like " (tt "'((where (in id #(10 11 93))))") "."))
(def (sig (procedure "(<ssql-record>-rec-delete record)" (id <ssql-record>-rec-delete))) (p "Generates a SSQL " (tt "delete") " statement with a " (tt "where") " clause correctly assigned to " (tt "record") "'s " (tt "<id>s") "."))
