; config to be used by exe/list-bindings.
; for generated bindings

(define-as generated list-q
  ; mostly from mi-lists
  (define-type dg-ids-t (struct (link (struct dg-ids-struct*)) (data dg-id-t)))
  (define-type dg-data-list-t (struct (link (struct dg-data-list-struct*)) (data dg-data-t)))
  (define-type dg-data-records-t
    (struct (link (struct dg-data-records-struct*)) (data dg-data-record-t)))
  (define-type dg-relation-records-t
    (struct (link (struct dg-relation-records-struct*)) (data dg-relation-record-t)))
  (define (dg-data-list-add a value) (dg-data-list-t* dg-data-list-t* dg-data-t))
  (define (dg-data-records-add a value) (dg-data-records-t* dg-data-records-t* dg-data-record-t))
  (define (dg-ids-add a value) (dg-ids-t* dg-ids-t* dg-id-t))
  (define (dg-relation-records-add a value)
    (dg-relation-records-t* dg-relation-records-t* dg-relation-record-t))
  (define (dg-data-list-drop a) (dg-data-list-t* dg-data-list-t*))
  (define (dg-data-records-drop a) (dg-data-records-t* dg-data-records-t*))
  (define (dg-ids-drop a) (dg-ids-t* dg-ids-t*))
  (define (dg-relation-records-drop a) (dg-relation-records-t* dg-relation-records-t*))
  (define (dg-data-list-length a) (size-t dg-data-list-t*))
  (define (dg-data-records-length a) (size-t dg-data-records-t*))
  (define (dg-ids-length a) (size-t dg-ids-t*))
  (define (dg-relation-records-length a) (size-t dg-relation-records-t*)))

(define-as excluded list-q
  ; exported but not really supposed to be used
  "dg-mdb-.*" "mi-list-.*" "dg-status-no-more-data-if-mdb-notfound" "imht-set-.*")

(define-as identifier-replacements list-q
  ; replace short type aliases to make it clear that they do not have to be used
  "^b0" "void"
  "^b8" "uint8_t"
  "^b16" "uint16_t"
  "^b32" "uint32_t"
  "^b64" "uint64_t"
  "^b8-s" "int8_t"
  "^b16-s" "int16_t" "^b32-s" "int32_t" "^b64-s" "int64_t" "^f32-s" "double" "boolean" "uint8_t")