changeset 698: | 96958d3eb5b0 |
parent: | 35bb0d5ec95e |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: | -rw-r--r-- |
description: | fixes |
482 | 1 | ;;; q/pkg.lisp --- Q Lang Packages |
2 | ||
3 | ;; |
|
4 | ||
5 | ;;; Code: |
|
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
6 | (defpackage :q/proto |
482 | 7 | (:use :cl :std :obj/query :obj/id) |
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
8 | (:export |
577
806c2b214df8
refactored q/tests, added rt/fuzz, more sql query work
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
9 | :query-engine :query-parser |
806c2b214df8
refactored q/tests, added rt/fuzz, more sql query work
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
10 | :*query-engine* |
806c2b214df8
refactored q/tests, added rt/fuzz, more sql query work
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
11 | :*query-dialect* |
581 | 12 | :query-dialect-designator |
13 | :sql :dql)) |
|
482 | 14 | |
15 | (defpackage :q/sql |
|
502
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
16 | (:nicknames :sql) |
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
17 | (:use :cl :std :q/proto :parse/pratt :obj/query :obj/id) |
482 | 18 | (:export |
502
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
19 | :sql-error |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
20 | :read-sql-string |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
21 | :read-sql-stream |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
22 | :parse-expression |
483 | 23 | :sql-tokens |
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
24 | :sql-parser |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
25 | :simple-sql-error |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
26 | :sql-token-error |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
27 | :illegal-sql-state |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
28 | :sql-query |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
29 | :sql-data-source |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
30 | :sql-expression |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
31 | :sql-expression-vector |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
32 | :sql-identifier |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
33 | :sql-string |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
34 | :sql-number |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
35 | :sql-function |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
36 | :sql-alias |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
37 | :sql-cast |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
38 | :sql-sort |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
39 | :sql-relation |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
40 | :sql-select |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
41 | :sql-planner |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
42 | :sql-optimizer |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
43 | :*sql-token-types* |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
44 | :sql-token-type-designator |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
45 | :*sql-keywords* |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
46 | :*sql-keyword-table* |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
47 | :*sql-symbol-table* |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
48 | :get-sql-keyword |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
49 | :get-sql-symbol |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
50 | :*sql-symbols* |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
51 | :sql-token |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
52 | :next-sql-token |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
53 | :with-sql-parser |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
54 | :sql-math-expression |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
55 | :sql-binary-expression |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
56 | :with-sql-stream |
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
57 | :with-sql-string |
577
806c2b214df8
refactored q/tests, added rt/fuzz, more sql query work
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
58 | :with-sql |
806c2b214df8
refactored q/tests, added rt/fuzz, more sql query work
Richard Westhaver <ellis@rwest.io>
parents:
575
diff
changeset
|
59 | :make-sql-data-frame)) |
482 | 60 | |
502
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
61 | (defpackage :q/dql |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
62 | (:nicknames :dql) |
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
63 | (:use :cl :std :q/proto :obj/query :obj/id :dat/sxp :dat/proto) |
502
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
64 | (:export |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
65 | :dql-error |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
66 | :dql-data-source |
a2fe095379f9
fix dns, rename lql->dql
Richard Westhaver <ellis@rwest.io>
parents:
483
diff
changeset
|
67 | :dql-query |
584
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
581
diff
changeset
|
68 | :dql-expression |
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
581
diff
changeset
|
69 | :dql-variable-p |
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
581
diff
changeset
|
70 | :dql-variable |
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
581
diff
changeset
|
71 | :dql-anonymous |
35bb0d5ec95e
bug fixes, added freedesktop.org.xml rule. more work on prolog/dql - considering lib/lang+forrth..
Richard Westhaver <ellis@rwest.io>
parents:
581
diff
changeset
|
72 | :dql-anonymous-p)) |
482 | 73 | |
74 | ;; (defpackage :q/e) |
|
75 | ||
76 | (in-package :std-user) |
|
77 | (defpkg :q |
|
575
efb4a19ff530
color palettes, obj/query upgrades and q/sql parsing - successfully parsing SQL-SELECT
Richard Westhaver <ellis@rwest.io>
parents:
502
diff
changeset
|
78 | (:use-reexport :q/proto :q/sql :q/dql)) |