https://github.com/thebesttvarynka/lisp-sql-parser
SQL-parser implemented in LISP
https://github.com/thebesttvarynka/lisp-sql-parser
lisp sql sql-parser
Last synced: about 2 months ago
JSON representation
SQL-parser implemented in LISP
- Host: GitHub
- URL: https://github.com/thebesttvarynka/lisp-sql-parser
- Owner: TheBestTvarynka
- Archived: true
- Created: 2020-02-19T15:54:37.000Z (about 5 years ago)
- Default Branch: master
- Last Pushed: 2022-09-01T08:22:59.000Z (over 2 years ago)
- Last Synced: 2025-03-08T08:11:35.351Z (about 2 months ago)
- Topics: lisp, sql, sql-parser
- Language: Common Lisp
- Homepage:
- Size: 418 KB
- Stars: 14
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
## SQL-parser implemented in lisp.
All data reads from `.csv` or `.tsv` or `.json` file and holds in table structure.
Table structure contain a few parameters:
* tableName - no comments
* columnNames - vector with column names (like `#("col1" "col2" …)`)
* columnIndexes - hash map where key is columns name and value is column index in the table
* data - all table data. holds as vector of vectors
SQL-parser supports the next functionality:
* expressions in select. like: `select 1 + id * ...`. All supported operators: `+,-,*,/,(,),<,>,=`.
* sql functions:
- substr (str, from, number_of_char)
- concat (str1, str2)
* `as` operator for renaming columns. `select count(col) as 'count' …`. Unlike regular SQL, here we must enclose new column name between simple quotes `'new_column_name'`.
* aggregate functions: `count(), avg(), max(), sum()`
* case. In `then` branch can pass only values. In `where` clause can use only `<,>,=` operators.
* from. Only tablename. Subqueries are not allowed.
* joins: `inner, left, right, full outer`
* order by. can use with multiply columns, like: `order by col1, col2 desc`
* where. can use `and` and `or` but without `()`. Only `=`, `<`, `>` inside a condition.
* group by
* having (but only one condition)
* union
* limit
## How to run SQL-parser
For running this parser I use SBCL 2.0.1.
Type in your terminal:
```bash
git clone https://github.com/TheBestTvarynka/Lisp-SQL-Parser.git
cd Lisp-SQL-Parser/src
sbcl --script cli.lisp
```
To exit type `exit()`.
## Examples
SQL-parser can execute the next queries:
```sql
query(select 5 + 6 * 2)
query(select 5*(6+2))
query(select row = 2 from test)
query(select row < 15 from test)
query(select concat('FirstName', substr('Myroniuk Pavlo Yaroslavovych', 8, 6)))
query(select distinct title, id_mp, id_fr from map_zal-skl9)
query(select distinct * from test where col > 15 and col < 23)
query(select row + 2, col, pos_x, from test)
query(select max(col) * count(row) from test)
query(select 2*(col+pos_x), substr(title, 1, 3) from test)
query(select 2*(col+pos_x) as 'sum', substr(title, 1, 3) as 'piece' from test order by sum)
query(select 2*(col+pos_x), concat('piece: ', substr(title, 1, 3)) from test)
query(select test2.id, test2.price, test2.owner, test.row, test.title from test2 left join test on test.id = test2.id)
query(select test2.id, test2.price, test2.owner, test.row, test.title from test2 left join test on test.id = test2.id order by test2.price)
query(select test2.id, test2.price, test2.owner, test.row, test.title from test2 left join test on test.id = test2.id where test2.id < 5 order by test2.price desc)
query(select test2.id, test2.price, test2.owner, test.row, test.col, test.pos_x, test.title from test2 inner join test on test.id = test2.id)
query(select test.id, test.row, test.col, test.title, test2.id, test2.price, test2.owner from test full outer join test2 on test.id = test2.id)
query(select id, price, owner from test2 union select id, price, owner from test3)
query(select id, price, owner from test2 union select id, price, owner from test3 union select id, price, owner from test4)
query(select 1 as 'numbers' union select 2 union select 3 union select 4)
query(select row, count(col) as 'col_count', count(title) as 'title_count' from test group by row)
query(select row, count(col) as 'count', max(pos_x) as 'max' from test group by row)
query(select row, count(col) from test group by row having count(col) > 3)
query(select row, count(col) from test group by row having count(col) = 4)
query(select row, count(col) from test group by row having count(col) < 5)
query(select row, count(col) from test group by row having count(col) > 3 order by row desc)
query(select row, col, title from test limit 5)
query(select row, case when row = 4 then 'four' when row > 5 then 'big' else 'small' end as 'comp' from test)
query(select sum(case when sex = 't' then 1 else 0 end) as 'man_count' from test)
query(select sum(case when sex = 't' then 0 else 1 end) as 'women_count' from test)
```
## Meta
Pavlo Myroniyk – [@TheBestTvarynka](https://github.com/TheBestTvarynka), [[email protected]](mailto:[email protected])
If you want to
* improve this project then make a pull request or write to me on email;
* report about a bug or other mistake then make an issue;
* tell me something else then write to me on email;
## Other links
Additional lisp packages that I use in this project:
* [json parser](https://github.com/hankhero/cl-json)
* [priority queue](https://github.com/dsorokin/priority-queue)