📝 SQLInsert Formatter (#165)

* 📝 SQLInsert Formatter Signed-off-by: Julio Jimenez <julio@julioj.com> * README Signed-off-by: Julio Jimenez <julio@julioj.com> * sqlinsert Signed-off-by: Julio Jimenez <julio@julioj.com> --------- Signed-off-by: Julio Jimenez <julio@julioj.com>
juliojimenez · Mar 4, 2023 · 1ef7512 · 1ef7512
1 parent de95c12
commit 1ef7512
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/README.md b/README.md
@@ -212,6 +212,7 @@ clickhouse-cl supports automatic input and output format processing for the form
 | [CSV](https://clickhouse.com/docs/en/interfaces/formats/#csv) | :heavy_check_mark: | :heavy_check_mark: | '('(string*)*) ||
 | [CSVWithNames](https://clickhouse.com/docs/en/interfaces/formats/#csvwithnames) | :heavy_check_mark: | :heavy_check_mark: | '('(string*)*) ||
 | [CSVWithNamesAndTypes](https://clickhouse.com/docs/en/interfaces/formats/#csvwithnamesandtypes) | :heavy_check_mark: | :heavy_check_mark: | '('(string*)*) ||
+| [SQLInsert](https://clickhouse.com/docs/en/interfaces/formats/#sqlinsert) || :heavy_check_mark: | string ||
 | [JSON](https://clickhouse.com/docs/en/interfaces/formats/#json) | :heavy_check_mark: | :heavy_check_mark: | BOOST-JSON:JSON-OBJECT | jget *obj* *key* |
 | [JSONAsString](https://clickhouse.com/docs/en/interfaces/formats/#jsonasstring) | :heavy_check_mark: ||||
 | [JSONStrings](https://clickhouse.com/docs/en/interfaces/formats/#jsonstrings) | :heavy_check_mark: | :heavy_check_mark: | BOOST-JSON:JSON-OBJECT | jget *obj* *key* |

diff --git a/clickhouse.asd b/clickhouse.asd
@@ -2,7 +2,7 @@
   :description "Common Lisp ClickHouse Client Library"
   :author "julio@clickhouse.com"
   :license "Apache-2.0"
-  :version "0.39.0"
+  :version "0.40.0"
   :depends-on (#:boost-json
 	             #:dexador
 	             #:lexer

diff --git a/src/ch-sql-parser.lisp b/src/ch-sql-parser.lisp
@@ -284,6 +284,7 @@
                           ((equal chosen-format "CSV") (setf *format* 'csv))
                           ((equal chosen-format "CSVWithNames") (setf *format* 'csvwithnames))
                           ((equal chosen-format "CSVWithNamesAndTypes") (setf *format* 'csvwithnamesandtypes))
+                          ((equal chosen-format "SQLInsert") (setf *format* 'sqlinsert))
                           ((equal chosen-format "JSON") (setf *format* 'json))
                           ((equal chosen-format "JSONStrings") (setf *format* 'jsonstrings))
                           ((equal chosen-format "JSONColumns") (setf *format* 'jsoncolumns))

diff --git a/src/utils.lisp b/src/utils.lisp
@@ -58,7 +58,8 @@
 								(equalp formatting clickhouse.ch-sql-parser::'prettyspacenoescapes)
 								(equalp formatting clickhouse.ch-sql-parser::'prettyspacemonoblock)
 								(equalp formatting clickhouse.ch-sql-parser::'prettyspacenoescapesmonoblock)
-								(equalp formatting clickhouse.ch-sql-parser::'markdown)))
+								(equalp formatting clickhouse.ch-sql-parser::'markdown)
+								(equalp formatting clickhouse.ch-sql-parser::'sqlinsert)))
 	   			 (format t "~d" (prettycompact-formatter b)))
 					((ver formatting) (cond ((or
 																			(equalp formatting clickhouse.ch-sql-parser::'json)
@@ -97,7 +98,8 @@
 																			(equalp formatting clickhouse.ch-sql-parser::'prettyspacenoescapes)
 																			(equalp formatting clickhouse.ch-sql-parser::'prettyspacemonoblock)
 																			(equalp formatting clickhouse.ch-sql-parser::'prettyspacenoescapesmonoblock)
-																			(equalp formatting clickhouse.ch-sql-parser::'markdown))
+																			(equalp formatting clickhouse.ch-sql-parser::'markdown)
+																			(equalp formatting clickhouse.ch-sql-parser::'sqlinsert))
 																	 (prettycompact-formatter b))
 																	((or
 																			(equalp formatting clickhouse.ch-sql-parser::'tabseparated)