First commit

Author: ankane

.github/workflows/build.yml

@@ -0,0 +1,20 @@
+name: build
+on: [push, pull_request]
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v5
+      - run: sudo apt-get update && sudo apt-get install fpc
+      - uses: ankane/setup-postgres@v1
+        with:
+          database: pgvector_pascal_test
+          dev-files: true
+      - run: |
+          cd /tmp
+          git clone --branch v0.8.1 https://github.com/pgvector/pgvector.git
+          cd pgvector
+          make
+          sudo make install
+      - run: fpc example.pp
+      - run: ./example

.gitignore

@@ -0,0 +1,3 @@
+/example
+/libpq.dylib
+*.o

LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2025 Andrew Kane
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

README.md

@@ -0,0 +1,90 @@
+# pgvector-pascal
+
+[pgvector](https://github.com/pgvector/pgvector) examples for Pascal
+
+Supports [SQLDB](https://www.freepascal.org/docs-html/fcl/sqldb/)
+
+[![Build Status](https://github.com/pgvector/pgvector-pascal/actions/workflows/build.yml/badge.svg)](https://github.com/pgvector/pgvector-pascal/actions)
+
+## Getting Started
+
+Follow the instructions for your database library:
+
+- [SQLDB](#sqldb)
+
+## SQLDB
+
+Enable the extension
+
+```pascal
+Query.SQL.Text := 'CREATE EXTENSION IF NOT EXISTS vector';
+Query.ExecSQL;
+```
+
+Create a table
+
+```pascal
+Query.SQL.Text := 'CREATE TABLE items (id bigserial PRIMARY KEY, embedding vector(3))';
+Query.ExecSQL;
+```
+
+Insert vectors
+
+```pascal
+Query.SQL.Text := 'INSERT INTO items (embedding) VALUES ((:embedding1)::vector), ((:embedding2)::vector)';
+Query.Params.ParamByName('embedding1').AsString := '[1,2,3]';
+Query.Params.ParamByName('embedding2').AsString := '[4,5,6]';
+Query.ExecSQL;
+```
+
+Get the nearest neighbors
+
+```pascal
+Query.SQL.Text := 'SELECT * FROM items ORDER BY embedding <-> (:embedding)::vector LIMIT 5';
+Query.Params.ParamByName('embedding').AsString := '[3,1,2]';
+Query.Open;
+while not Query.EOF do
+begin
+  writeln(Query.FieldByName('id').AsString);
+  Query.Next;
+end;
+Query.Close;
+```
+
+Add an approximate index
+
+```pascal
+Query.SQL.Text := 'CREATE INDEX ON items USING hnsw (embedding vector_l2_ops)';
+// or
+Query.SQL.Text := 'CREATE INDEX ON items USING ivfflat (embedding vector_l2_ops) WITH (lists = 100)';
+Query.ExecSQL;
+```
+
+Use `vector_ip_ops` for inner product and `vector_cosine_ops` for cosine distance
+
+See a [full example](example.pp)
+
+## Contributing
+
+Everyone is encouraged to help improve this project. Here are a few ways you can help:
+
+- [Report bugs](https://github.com/pgvector/pgvector-pascal/issues)
+- Fix bugs and [submit pull requests](https://github.com/pgvector/pgvector-pascal/pulls)
+- Write, clarify, or fix documentation
+- Suggest or add new features
+
+To get started with development:
+
+```sh
+git clone https://github.com/pgvector/pgvector-pascal.git
+cd pgvector-pascal
+createdb pgvector_pascal_test
+fpc example.pp
+./example
+```
+
+Specify the path to libpq if needed:
+
+```sh
+ln -s /opt/homebrew/opt/libpq/lib/libpq.dylib libpq.dylib
+```

example.pp

@@ -0,0 +1,49 @@
+program Example;
+
+uses
+  pqconnection,
+  sqldb;
+
+var
+  Connection : TSQLConnection;
+  Query : TSQLQuery;
+  Transaction : TSQLTransaction;
+
+begin
+  Connection := TPQConnection.Create(Nil);
+  Connection.DatabaseName := 'pgvector_pascal_test';
+
+  Transaction := TSQLTransaction.Create(Connection);
+  Transaction.Database := Connection;
+
+  Query := TSQLQuery.Create(Connection);
+  Query.Database := Connection;
+  Query.Transaction := Transaction;
+
+  Query.SQL.Text := 'CREATE EXTENSION IF NOT EXISTS vector';
+  Query.ExecSQL;
+
+  Query.SQL.Text := 'DROP TABLE IF EXISTS items';
+  Query.ExecSQL;
+
+  Query.SQL.Text := 'CREATE TABLE items (id bigserial PRIMARY KEY, embedding vector(3))';
+  Query.ExecSQL;
+
+  Query.SQL.Text := 'INSERT INTO items (embedding) VALUES ((:embedding1)::vector), ((:embedding2)::vector)';
+  Query.Params.ParamByName('embedding1').AsString := '[1,2,3]';
+  Query.Params.ParamByName('embedding2').AsString := '[4,5,6]';
+  Query.ExecSQL;
+
+  Query.SQL.Text := 'SELECT * FROM items ORDER BY embedding <-> (:embedding)::vector LIMIT 5';
+  Query.Params.ParamByName('embedding').AsString := '[3,1,2]';
+  Query.Open;
+  while not Query.EOF do
+  begin
+    writeln(Query.FieldByName('id').AsString);
+    Query.Next;
+  end;
+  Query.Close;
+
+  Transaction.Commit;
+  Connection.Free;
+end.