Skip to content

Commit

Permalink
Merge pull request #176 from MarceColl/main
Browse files Browse the repository at this point in the history 
Fix utils for LispWorks
  • Loading branch information
@juliojimenez
juliojimenez authored Mar 24, 2024
2 parents 843c90e + 03d6c52 commit 6eb632f
Showing 1 changed file with 65 additions and 65 deletions.
130 changes: 65 additions & 65 deletions src/utils.lisp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -41,83 +41,83 @@
(ver console)
(ver formatting)
(or
(equalp formatting clickhouse.ch-sql-parser::'pretty)
(equalp formatting clickhouse.ch-sql-parser::'prettynoescapes)
(equalp formatting clickhouse.ch-sql-parser::'prettymonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettynoescapesmonoblock)))
(equalp formatting 'clickhouse.ch-sql-parser::pretty)
(equalp formatting 'clickhouse.ch-sql-parser::prettynoescapes)
(equalp formatting 'clickhouse.ch-sql-parser::prettymonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettynoescapesmonoblock)))
(format t "~d" (pretty-formatter b)))
((and
(ver console)
(ver formatting)
(or
(equalp formatting clickhouse.ch-sql-parser::'prettycompact)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactnoescapes)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactmonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactnoescapesmonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettyspace)
(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::'sqlinsert)))
(equalp formatting 'clickhouse.ch-sql-parser::prettycompact)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactnoescapes)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactmonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactnoescapesmonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettyspace)
(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::sqlinsert)))
(format t "~d" (prettycompact-formatter b)))
((ver formatting) (cond ((or
(equalp formatting clickhouse.ch-sql-parser::'json)
(equalp formatting clickhouse.ch-sql-parser::'jsonstrings)
(equalp formatting clickhouse.ch-sql-parser::'jsoncolumns)
(equalp formatting clickhouse.ch-sql-parser::'jsoncolumnswithmetadata)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompact)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompactstrings)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompactcolumns)
(equalp formatting clickhouse.ch-sql-parser::'jsonobjecteachrow))
(equalp formatting 'clickhouse.ch-sql-parser::json)
(equalp formatting 'clickhouse.ch-sql-parser::jsonstrings)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncolumns)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncolumnswithmetadata)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompact)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompactstrings)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompactcolumns)
(equalp formatting 'clickhouse.ch-sql-parser::jsonobjecteachrow))
(json-formats b))
((or
(equalp formatting clickhouse.ch-sql-parser::'jsoneachrow)
(equalp formatting clickhouse.ch-sql-parser::'jsoneachrowwithprogress)
(equalp formatting clickhouse.ch-sql-parser::'jsonstringseachrow)
(equalp formatting clickhouse.ch-sql-parser::'jsonstringseachrowwithprogress)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompacteachrow)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompacteachrowwithnames)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompacteachrowwithnamesandtypes)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompactstringseachrow)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompactstringseachrowwithnames)
(equalp formatting clickhouse.ch-sql-parser::'jsoncompactstringseachrowwithnamesandtypes))
(equalp formatting 'clickhouse.ch-sql-parser::jsoneachrow)
(equalp formatting 'clickhouse.ch-sql-parser::jsoneachrowwithprogress)
(equalp formatting 'clickhouse.ch-sql-parser::jsonstringseachrow)
(equalp formatting 'clickhouse.ch-sql-parser::jsonstringseachrowwithprogress)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompacteachrow)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompacteachrowwithnames)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompacteachrowwithnamesandtypes)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompactstringseachrow)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompactstringseachrowwithnames)
(equalp formatting 'clickhouse.ch-sql-parser::jsoncompactstringseachrowwithnamesandtypes))
(jsoneachrow-formats b))
((or
(equalp formatting clickhouse.ch-sql-parser::'pretty)
(equalp formatting clickhouse.ch-sql-parser::'prettynoescapes)
(equalp formatting clickhouse.ch-sql-parser::'prettymonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettynoescapesmonoblock))
(equalp formatting 'clickhouse.ch-sql-parser::pretty)
(equalp formatting 'clickhouse.ch-sql-parser::prettynoescapes)
(equalp formatting 'clickhouse.ch-sql-parser::prettymonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettynoescapesmonoblock))
(pretty-formatter b))
((or
(equalp formatting clickhouse.ch-sql-parser::'prettycompact)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactnoescapes)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactmonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettycompactnoescapesmonoblock)
(equalp formatting clickhouse.ch-sql-parser::'prettyspace)
(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::'sqlinsert))
(equalp formatting 'clickhouse.ch-sql-parser::prettycompact)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactnoescapes)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactmonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettycompactnoescapesmonoblock)
(equalp formatting 'clickhouse.ch-sql-parser::prettyspace)
(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::sqlinsert))
(prettycompact-formatter b))
((equalp formatting clickhouse.ch-sql-parser::'values)
((equalp formatting 'clickhouse.ch-sql-parser::values)
(values-formatter b))
((or
(equalp formatting clickhouse.ch-sql-parser::'tabseparated)
(equalp formatting clickhouse.ch-sql-parser::'tabseparatedraw)
(equalp formatting clickhouse.ch-sql-parser::'tabseparatedwithnames)
(equalp formatting clickhouse.ch-sql-parser::'tabseparatedwithnamesandtypes)
(equalp formatting clickhouse.ch-sql-parser::'tabseparatedrawwithnames)
(equalp formatting clickhouse.ch-sql-parser::'tabseparatedrawwithnamesandtypes))
(equalp formatting 'clickhouse.ch-sql-parser::tabseparated)
(equalp formatting 'clickhouse.ch-sql-parser::tabseparatedraw)
(equalp formatting 'clickhouse.ch-sql-parser::tabseparatedwithnames)
(equalp formatting 'clickhouse.ch-sql-parser::tabseparatedwithnamesandtypes)
(equalp formatting 'clickhouse.ch-sql-parser::tabseparatedrawwithnames)
(equalp formatting 'clickhouse.ch-sql-parser::tabseparatedrawwithnamesandtypes))
(tab-separated-formatter b))
((or
(equalp formatting clickhouse.ch-sql-parser::'tskv))
(equalp formatting 'clickhouse.ch-sql-parser::tskv))
(tskv-formatter b))
((or
(equalp formatting clickhouse.ch-sql-parser::'csv)
(equalp formatting clickhouse.ch-sql-parser::'csvwithnames)
(equalp formatting clickhouse.ch-sql-parser::'csvwithnamesandtypes))
(equalp formatting 'clickhouse.ch-sql-parser::csv)
(equalp formatting 'clickhouse.ch-sql-parser::csvwithnames)
(equalp formatting 'clickhouse.ch-sql-parser::csvwithnamesandtypes))
(csv-formatter b))))
(console (format t "~d" b))
(t (values b)))))
Expand All @@ -138,16 +138,16 @@
(concatenate
'string
(pretty-formatter-border positions
#\BOX_DRAWINGS_LIGHT_DOWN_AND_RIGHT
#\BOX_DRAWINGS_LIGHT_DOWN_AND_LEFT
#\BOX_DRAWINGS_LIGHT_DOWN_AND_HORIZONTAL
#\BOX_DRAWINGS_LIGHT_HORIZONTAL)
#\┌
#\┐
#\┬
#\─)
(pretty-formatter-title-row positions title-row-split)
(pretty-formatter-border positions
#\BOX_DRAWINGS_LIGHT_VERTICAL_AND_RIGHT
#\BOX_DRAWINGS_LIGHT_VERTICAL_AND_LEFT
#\BOX_DRAWINGS_LIGHT_VERTICAL_AND_HORIZONTAL
#\BOX_DRAWINGS_LIGHT_HORIZONTAL)
#\├
#\┤
#\┼
#\─)
clean-split-string))
(values clean)))

Expand Down

0 comments on commit 6eb632f

Please sign in to comment.