package.lisp

;;; Copyright (c) 2022-2024 Max-Gerd Retzlaff <mgr@matroid.org>, Datagraph GmbH.
;;; Distributed under the terms of the GNU General Public License, Version 2.0,
;;; see file LICENSE in the top level directory of this repository.

(in-package :cl-user)

(defpackage :ndbapi.types
  (:use :cl)
  (:export :initialized
           :free-foreign-object
           :*ndbapi-verbose*)
  (:documentation "The low-level C++ NDB API interface (for RonDB)."))

(defpackage :ndbapi.ffi
  (:use #| :cl |#)
  (:export :ndb-end
           :dictionary-get-ndb-error
           :table-get-name
           :ndb-transaction-get-ndb-error
           :index-bound
           :index-get-name
           :ndb-scan-operation-get-ndb-transaction
           :ndb-operation-get-ndb-transaction
           :ndb-close-transaction
           :ndb-transaction-get-ndb
           :ndb-interpreted-code-get-ndb-error
           ;; pseudo columns
           :column-fragment :column-fragment-fixed-memory :column-fragment-varsized-memory
           :column-row-count :column-commit-count :column-row-size
           :column-range-no :column-disk-ref :column-records-in-range
           :column-rowid :column-row-gci :column-row-gci-64
           :column-row-author :column-any-value :column-copy-rowid
           :column-lock-ref :column-op-id :column-optimize
           :column-fragment-extent-space :column-fragment-free-extent-space
           :column-read-interpreter-output-0 :column-read-interpreter-output-1
           :column-read-interpreter-output-2 :column-read-interpreter-output-3
           :column-read-interpreter-output-4 :column-read-interpreter-output-5
           :column-read-interpreter-output-6 :column-read-interpreter-output-7
           :column-read-interpreter-output-8 :column-read-interpreter-output-9
           :column-read-interpreter-output-10 :column-read-interpreter-output-11
           :column-read-interpreter-output-12 :column-read-interpreter-output-13
           :column-read-interpreter-output-14 :column-read-interpreter-output-15
           :column-interpreter-input-0 :column-interpreter-input-1
           :column-interpreter-input-2 :column-interpreter-input-3
           :column-interpreter-input-4 :column-interpreter-input-5
           :column-interpreter-input-6 :column-interpreter-input-7
           :column-interpreter-input-8 :column-interpreter-input-9
           :column-interpreter-input-10 :column-interpreter-input-11
           :column-interpreter-input-12 :column-interpreter-input-13
           :column-interpreter-input-14 :column-interpreter-input-15
           ;; structs
           :list
           :element
           :event-buffer-memory-usage
           :key-part-ptr
           :partition-spec
           :ps-key-part-ptr
           :ps-union)
  (:documentation "The low-level C++ NDB API interface (for RonDB)."))

(defpackage :ndbapi.ffi.overloading
  (:use :cl)
  (:import-from :ndbapi.types
                :*ndbapi-verbose*)
  (:nicknames :ndbapi.ffi.o))

(defpackage :ndbapi.implementation
  (:use :cl)
  (:nicknames :ndbapi.i)
  (:documentation "A higher level NDB API interface (for RonDB)."))

;; defpackage :ndbapi in file ndbapi-interface.lisp
;; as it needs the implementation files to be loaded
;; while those files need the other package definitions already...

(defpackage :ndbapi.ic
  (:nicknames :ndbapi.interpreted-code
              ;; alternative names to fit with ndb ic compiler
              :ic.ndbapi :ndb-interpreted-code.ndbapi)
  (:export :new
           :new/record
           :interpret-exit-last-row
           :interpret-exit-ok
           :interpret-exit-nok
           :read-attr
           :read-attr/attr-id
           :write-attr
           :load-const-u16
           :load-const-u32
           :load-const-u64
           :load-const-null
           :def-label
           :branch-label
           :branch-ge
           :branch-gt
           :branch-le
           :branch-lt
           :branch-eq
           :branch-eq-null
           :branch-ne
           :branch-ne-null
           :call-sub
           :def-sub
           :ret-sub
           :sub-val-u32
           :sub-val-u64
           :add-val-u32
           :add-val-u64
           :sub-reg
           :add-reg
           :finalise
           :with-code
           :get-words-used
           ;; new additions of RONDB-671
           :lshift-reg
           :rshift-reg
           :mul-reg
           :div-reg
           :and-reg
           :or-reg
           :xor-reg
           :mod-reg
           :not-reg
           :move-reg
           :add-const-reg
           :sub-const-reg
           :lshift-const-reg
           :rshift-const-reg
           :mul-const-reg
           :div-const-reg
           :and-const-reg
           :or-const-reg
           :xor-const-reg
           :mod-const-reg
           :read-u8-to-reg/const
           :read-u16-to-reg/const
           :read-u32-to-reg/const
           :read-i64-to-reg/const
           :read-u8-to-reg/reg
           :read-u16-to-reg/reg
           :read-u32-to-reg/reg
           :read-i64-to-reg/reg
           :write-u8-reg-to-mem/const
           :write-u16-reg-to-mem/const
           :write-u32-reg-to-mem/const
           :write-i64-reg-to-mem/const
           :write-u8-reg-to-mem/reg
           :write-u16-reg-to-mem/reg
           :write-u32-reg-to-mem/reg
           :write-i64-reg-to-mem/reg
           :read-partial
           :read-full
           :write-from-mem
           :append-from-mem
           :load-const-mem
           :branch-eq-const
           :branch-ne-const
           :branch-gt-const
           :branch-lt-const
           :branch-ge-const
           :branch-le-const
           ;; new additions of rondb 24.10.6
           :search-interval-32
           :write-interpreter-output
           :read-interpreter-input))