775 lines
40 KiB
Scheme
775 lines
40 KiB
Scheme
;; -*- geiser-scheme: chicken -*-
|
|
(module (qml lowlevel)
|
|
*
|
|
(import scheme)
|
|
(import (chicken foreign))
|
|
(import foreigners)
|
|
(begin
|
|
(foreign-declare "#include <DOtherSide/DOtherSideTypes.h>")
|
|
(foreign-declare "#include <DOtherSide/DOtherSide.h>")
|
|
(define-foreign-type DosQVariant "DosQVariant")
|
|
(define-foreign-type DosQModelIndex "DosQModelIndex")
|
|
(define-foreign-type DosQAbstractListModel "DosQAbstractListModel")
|
|
(define-foreign-type DosQAbstractItemModel "DosQAbstractItemModel")
|
|
(define-foreign-type DosQAbstractTableModel "DosQAbstractTableModel")
|
|
(define-foreign-type DosQQmlApplicationEngine "DosQQmlApplicationEngine")
|
|
(define-foreign-type DosQQuickView "DosQQuickView")
|
|
(define-foreign-type DosQQmlContext "DosQQmlContext")
|
|
(define-foreign-type DosQHashIntQByteArray "DosQHashIntQByteArray")
|
|
(define-foreign-type DosQUrl "DosQUrl")
|
|
(define-foreign-type DosQMetaObject "DosQMetaObject")
|
|
(define-foreign-type DosQObject "DosQObject")
|
|
(define-foreign-type DosQQuickImageProvider "DosQQuickImageProvider")
|
|
(define-foreign-type DosPixmap "DosPixmap")
|
|
(define-foreign-type DosQPointer "DosQPointer")
|
|
|
|
(define-foreign-type RequestPixmapCallback (function void
|
|
(c-string
|
|
(c-pointer int) ; width
|
|
(c-pointer int) ; height
|
|
int ; requestedWidth
|
|
int ; requestedHeight
|
|
(c-pointer DosPixmap))))
|
|
(define-foreign-type DObjectCallback (function void
|
|
((c-pointer DosQObject)
|
|
(c-pointer DosQVariant)
|
|
int
|
|
pointer-vector)))
|
|
(define-foreign-type RowCountCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer int))))
|
|
(define-foreign-type ColumnCountCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer int))))
|
|
(define-foreign-type DataCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
int
|
|
(c-pointer DosQVariant))))
|
|
(define-foreign-type SetDataCallback (function void
|
|
((c-pointer DosQAbstractItemModel) ;; Is that correct?
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer DosQVariant)
|
|
int
|
|
(c-pointer bool))))
|
|
(define-foreign-type RoleNamesCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
(c-pointer DosQHashIntQByteArray))))
|
|
(define-foreign-type FlagsCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer int))))
|
|
(define-foreign-type HeaderDataCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
int ; section
|
|
int ; orientation
|
|
int ; role
|
|
(c-pointer DosQVariant))))
|
|
(define-foreign-type IndexCallback (function void
|
|
((c-pointer DosQAbstractItemModel)
|
|
int ; row
|
|
int ; column
|
|
(c-pointer DosQModelIndex) ; parent
|
|
(c-pointer DosQModelIndex)))) ; result
|
|
(define-foreign-type ParentCallback (function void
|
|
((c-pointer QAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer DosQModelIndex))))
|
|
(define-foreign-type HasChildrenCallback (function void
|
|
((c-pointer QAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer bool))))
|
|
(define-foreign-type CanFetchMoreCallback (function void
|
|
((c-pointer QAbstractItemModel)
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer bool))))
|
|
(define-foreign-type FetchMoreCallback (function void
|
|
((c-pointer QAbstractItemModel)
|
|
(c-pointer DosQModelIndex))))
|
|
|
|
(define-foreign-type CreateDObject (function void
|
|
(int
|
|
(c-pointer DosQObject)
|
|
pointer-vector
|
|
pointer-vector)))
|
|
(define-foreign-type DeleteDObject (function void
|
|
(int
|
|
(c-pointer DosQObject))))
|
|
|
|
(define-foreign-type DosQVariantArray (struct "DosQVariantArray"))
|
|
(define-foreign-type QmlRegisterType (struct "QmlRegisterType"))
|
|
(define-foreign-type ParameterDefinition (struct "ParameterDefinition"))
|
|
(define-foreign-type SignalDefinition (struct "SignalDefinition"))
|
|
(define-foreign-type SignalDefinitions (struct "SignalDefinitions"))
|
|
(define-foreign-type SlotDefinition (struct "SlotDefinition"))
|
|
(define-foreign-type SlotDefinitions (struct "SlotDefinitions"))
|
|
(define-foreign-type PropertyDefinition (struct "PropertyDefinition"))
|
|
(define-foreign-type PropertyDefinitions (struct "PropertyDefinitions"))
|
|
(define-foreign-type DosQAbstractItemModelCallbacks (struct "DosQAbstractItemModelCallbacks"))
|
|
|
|
(define-foreign-type DosQEventLoopProcessEventFlag (enum "DosQEventLoopProcessEventFlag"))
|
|
(define DosQEventLoopProcessEventFlagProcessAllEvents #x00)
|
|
(define DosQEventLoopProcessEventFlagExcludeUserInputEvents #x01)
|
|
(define DosQEventLoopProcessEventFlagProcessExcludeSocketNotifiers #x02)
|
|
(define DosQEventLoopProcessEventFlagProcessAllEventsWaitForMoreEvents #x03)
|
|
|
|
(define-foreign-type DosQtConnectionType (enum "DosQtConnectionType"))
|
|
(define DosQtConnectionTypeAutoConnection 0)
|
|
(define DosQtConnectionTypeDirectConnection 1)
|
|
(define DosQtConnectionTypeQueuedConnection 2)
|
|
(define DosQtConnectionTypeBlockingConnection 3)
|
|
(define DosQtConnectionTypeUniqueConnection #x80)
|
|
|
|
;; Functions
|
|
;; ParameterDefinition
|
|
(define dos_parameterdefinition_create
|
|
(foreign-lambda* scheme-object ((c-string name)
|
|
(int metaType))
|
|
"struct ParameterDefinition pd = {.name = name, .metaType = metaType};"
|
|
"C_word* ptr = C_alloc(1);"
|
|
"C_return(C_structure(&ptr,C_SIZEOF_STRUCTURE(3),pd));"))
|
|
|
|
;; SignalDefinition
|
|
(define dos_signaldefinition_create
|
|
(foreign-lambda* scheme-object ((c-string name)
|
|
(int parametersCount)
|
|
(pointer-vector parameters))
|
|
"struct SignalDefinition sd = {.name = name, .parametersCount = parametersCount, "
|
|
".parameters = (ParameterDefinition*) parameters};"
|
|
"C_word* ptr = C_alloc(1);"
|
|
"C_return(C_structure(&ptr,C_SIZEOF_STRUCTURE(4),sd));"))
|
|
|
|
;; SignalDefinitions
|
|
(define dos_signaldefinitions_create
|
|
(foreign-lambda* (c-pointer SignalDefinitions) ((int count)
|
|
(pointer-vector definitions))
|
|
"struct SignalDefinitions sd = {.count = count, .definitions = (SignalDefinition*) definitions};"
|
|
"struct SignalDefinitions* sdptr = (struct SignalDefinitions*) malloc(sizeof(struct SignalDefinitions));"
|
|
"*sdptr = sd;"
|
|
"C_return(sdptr);"))
|
|
(define dos_signaldefinitions_delete
|
|
(foreign-lambda* void (((c-pointer SignalDefinitions) definitions))
|
|
"free(definitions);"))
|
|
|
|
;; QCoreApplication
|
|
(define dos_qcoreapplication_application_dir_path
|
|
(foreign-lambda c-string "dos_qcoreapplication_application_dir_path"))
|
|
(define dos_qcoreapplication_process_events
|
|
(foreign-lambda void "dos_qcoreapplication_process_events"
|
|
DosQEventLoopProcessEventFlag))
|
|
(define dos_qcoreapplication_process_events_timed
|
|
(foreign-lambda void "dos_qcoreapplication_process_events_timed"
|
|
DosQEventLoopProcessEventFlag int))
|
|
|
|
;; QGuiApplication
|
|
(define dos_qguiapplication_create
|
|
(foreign-lambda void "dos_qguiapplication_create"))
|
|
(define dos_qguiapplication_exec
|
|
(foreign-lambda void "dos_qguiapplication_exec"))
|
|
(define dos_qguiapplication_quit
|
|
(foreign-lambda void "dos_qguiapplication_quit"))
|
|
(define dos_qguiapplication_delete
|
|
(foreign-lambda void "dos_qguiapplication_delete"))
|
|
|
|
;; QApplication
|
|
(define dos_qapplication_create
|
|
(foreign-lambda void "dos_qapplication_create"))
|
|
(define dos_qapplication_exec
|
|
(foreign-lambda void "dos_qapplication_exec"))
|
|
(define dos_qapplication_quit
|
|
(foreign-lambda void "dos_qapplication_quit"))
|
|
(define dos_qapplication_delete
|
|
(foreign-lambda void "dos_qapplication_delete"))
|
|
|
|
;; QQmlApplicationEngine
|
|
(define dos_qqmlapplicationengine_create
|
|
(foreign-lambda (c-pointer DosQQmlApplicationEngine) "dos_qqmlapplicationengine_create"))
|
|
(define dos_qqmlapplicationengine_load
|
|
(foreign-lambda void "dos_qqmlapplicationengine_load"
|
|
(c-pointer DosQQmlApplicationEngine)
|
|
c-string))
|
|
(define dos_qqmlapplicationengine_load_url
|
|
(foreign-lambda void "dos_qqmlapplicationengine_load_url"
|
|
(c-pointer DosQQmlApplicationEngine)
|
|
(c-pointer DosQUrl)))
|
|
(define dos_qqmlapplicationengine_load_data
|
|
(foreign-lambda void "dos_qqmlapplicationengine_load_data"
|
|
(c-pointer DosQQmlApplicationEngine)
|
|
c-string))
|
|
(define dos_qqmlapplicationengine_add_import_path
|
|
(foreign-lambda void "dos_qqmlapplicationengine_add_import_path"
|
|
(c-pointer DosQQmlApplicationEngine)
|
|
c-string))
|
|
(define dos_qqmlapplicationengine_context
|
|
(foreign-lambda (c-pointer DosQQmlContext) "dos_qqmlapplicationengine_context"
|
|
(c-pointer DosQQmlApplicationEngine)))
|
|
(define dos_qqmlapplicationengine_addImageProvider
|
|
(foreign-lambda void "dos_qqmlapplicationengine_addImageProvider"
|
|
(c-pointer DosQQmlApplicationEngine)
|
|
c-string
|
|
(c-pointer DosQQuickImageProvider)))
|
|
(define dos_qqmlapplicationengine_delete
|
|
(foreign-lambda void "dos_qqmlapplicationengine_delete"
|
|
(c-pointer DosQQmlApplicationEngine)))
|
|
|
|
;; QQuickImageProvider
|
|
(define dos_qquickimageprovider_create
|
|
(foreign-lambda* (c-pointer DosQQuickImageProvider) ((RequestPixmapCallback callback))
|
|
"C_return(dos_qquickimageprovider_create((RequestPixmapCallback) callback));"))
|
|
(define dos_qquickimageprovider_delete
|
|
(foreign-lambda* void (((c-pointer DosQQuickImageProvider) vptr))
|
|
"dos_qquickimageprovider_delete(vptr);"))
|
|
|
|
;; QPixmap
|
|
(define dos_qpixmap_create
|
|
(foreign-lambda* (c-pointer DosPixmap) ()
|
|
"C_return(dos_qpixmap_create());"))
|
|
(define dos_qpixmap_create_qpixmap
|
|
(foreign-lambda* (c-pointer DosPixmap) (((c-pointer DosPixmap) other))
|
|
"C_return(dos_qpixmap_create_qpixmap(other));"))
|
|
(define dos_qpixmap_create_width_and_height
|
|
(foreign-lambda* (c-pointer DosPixmap) ((int width)
|
|
(int height))
|
|
"C_return(dos_qpixmap_create_width_and_height(width, height));"))
|
|
(define dos_qpixmap_delete
|
|
(foreign-lambda* void (((c-pointer DosPixmap) vptr))
|
|
"dos_qpixmap_delete(vptr);"))
|
|
(define dos_qpixmap_load
|
|
(foreign-lambda* void (((c-pointer DosPixmap) vptr)
|
|
(c-string filepath)
|
|
(c-string format))
|
|
"dos_qpixmap_load(vptr, filepath, format);"))
|
|
(define dos_qpixmap_loadFromData
|
|
(foreign-lambda* void (((c-pointer DosPixmap) vptr)
|
|
(unsigned-c-string data)
|
|
(unsigned-int len))
|
|
"dos_qpixmap_loadFromData(vptr, data, len);"))
|
|
(define dos_qpixmap_fill
|
|
(foreign-lambda* void (((c-pointer DosPixmap) vptr)
|
|
(unsigned-char r)
|
|
(unsigned-char g)
|
|
(unsigned-char b)
|
|
(unsigned-char a))
|
|
"dos_qpixmap_fill(vptr, r, g, b, a);"))
|
|
(define dos_qpixmap_assign
|
|
(foreign-lambda* void (((c-pointer DosPixmap) vptr)
|
|
((c-pointer DosPixmap) other))
|
|
"dos_qpixmap_assign(vptr, other);"))
|
|
(define dos_qpixmap_isNull
|
|
(foreign-lambda* bool (((c-pointer DosPixmap) vptr))
|
|
"C_return(dos_qpixmap_isNull(vptr));"))
|
|
|
|
;; QQuickStyle
|
|
(define dos_qquickstyle_set_style
|
|
(foreign-lambda* void ((c-string style))
|
|
"dos_qquickstyle_set_style(style);"))
|
|
(define dos_qquickstyle_set_fallback_style
|
|
(foreign-lambda* void ((c-string style))
|
|
"dos_qquickstyle_set_fallback_style(style);"))
|
|
|
|
;; QQuickView
|
|
(define dos_qquickview_create
|
|
(foreign-lambda* (c-pointer DosQQuickView) ()
|
|
"C_return(dos_qquickview_create());"))
|
|
(define dos_qquickview_show
|
|
(foreign-lambda* void (((c-pointer DosQQuickView) vptr))
|
|
"dos_qquickview_show(vptr);"))
|
|
(define dos_qquickview_source
|
|
(foreign-lambda* c-string (((c-pointer DosQQuickView) vptr))
|
|
"dos_qquickview_source(vptr);"))
|
|
(define dos_qquickview_set_source_url
|
|
(foreign-lambda* void (((c-pointer DosQQuickView) vptr)
|
|
((c-pointer DosQUrl) url))
|
|
"dos_qquickview_set_source_url(vptr, url);"))
|
|
(define dos_qquickview_set_source
|
|
(foreign-lambda* void (((c-pointer DosQQuickView) vptr)
|
|
(c-string filename))
|
|
"dos_qquickview_set_source(vptr, filename);"))
|
|
(define dos_qquickview_set_resize_mode
|
|
(foreign-lambda* void (((c-pointer DosQQuickView) vptr)
|
|
(int resizeMode))
|
|
"dos_qquickview_set_resize_mode(vptr, resizeMode);"))
|
|
(define dos_qquickview_delete
|
|
(foreign-lambda* void (((c-pointer DosQQuickView) vptr))
|
|
"dos_qquickview_delete(vptr);"))
|
|
(define dos_qquickview_rootContext
|
|
(foreign-lambda* (c-pointer DosQQmlContext) (((c-pointer DosQQuickView) vptr))
|
|
"C_return(dos_qquickview_rootContext(vptr));"))
|
|
|
|
;; QQmlContext
|
|
(define dos_qqmlcontext_baseUrl
|
|
(foreign-lambda* c-string (((c-pointer DosQQmlContext) vptr))
|
|
"C_return(dos_qqmlcontext_baseUrl(vptr));"))
|
|
(define dos_qqmlcontext_setcontextproperty
|
|
(foreign-lambda* void (((c-pointer DosQQmlContext) vptr)
|
|
(c-string name)
|
|
((c-pointer DosQVariant) value))
|
|
"dos_qqmlcontext_setcontextproperty(vptr, name, value);"))
|
|
|
|
;; String
|
|
(define dos_chararray_delete
|
|
(foreign-lambda* void ((c-string ptr))
|
|
"dos_chararray_delete(ptr);"))
|
|
|
|
;; QVariant
|
|
(define dos_qvariantarray_create
|
|
(foreign-lambda* (c-pointer DosQVariantArray) ((int size)
|
|
(pointer-vector data))
|
|
"struct DosQVariantArray qva = "
|
|
"{.size = size, .data = data};"
|
|
"struct DosQVariantArray* qvaptr = (struct DosQVariantArray*) malloc(sizeof(struct DosQVariantArray));"
|
|
"*qvaptr = qva;"
|
|
"C_return(qvaptr);"))
|
|
(define dos_qvariantarray_delete
|
|
(foreign-lambda* void (((c-pointer DosQVariantArray) ptr))
|
|
"dos_qvariantarray_delete(ptr);"))
|
|
(define dos_qvariant_create
|
|
(foreign-lambda* (c-pointer DosQVariant) ()
|
|
"C_return(dos_qvariant_create());"))
|
|
(define dos_qvariant_create_int
|
|
(foreign-lambda* (c-pointer DosQVariant) ((int value))
|
|
"C_return(dos_qvariant_create_int(value));"))
|
|
(define dos_qvariant_create_bool
|
|
(foreign-lambda* (c-pointer DosQVariant) ((bool value))
|
|
"C_return(dos_qvariant_create_bool(value));"))
|
|
(define dos_qvariant_create_string
|
|
(foreign-lambda* (c-pointer DosQVariant) ((c-string value))
|
|
"C_return(dos_qvariant_create_string(value));"))
|
|
(define dos_qvariant_create_qobject
|
|
(foreign-lambda* (c-pointer DosQVariant) (((c-pointer DosQObject) value))
|
|
"C_return(dos_qvariant_create_qobject(value));"))
|
|
(define dos_qvariant_create_qvariant
|
|
(foreign-lambda* (c-pointer DosQVariant) (((c-pointer DosQVariant) value))
|
|
"C_return(dos_qvariant_create_qvariant(value));"))
|
|
(define dos_qvariant_create_float
|
|
(foreign-lambda* (c-pointer DosQVariant) ((float value))
|
|
"C_return(dos_qvariant_create_float(value));"))
|
|
(define dos_qvariant_create_double
|
|
(foreign-lambda* (c-pointer DosQVariant) ((double value))
|
|
"C_return(dos_qvariant_create_double(value));"))
|
|
(define dos_qvariant_create_array
|
|
(foreign-lambda* (c-pointer DosQVariant) ((int size)
|
|
(pointer-vector array))
|
|
"C_return(dos_qvariant_create_array(size, (DosQVariant**) array));"))
|
|
|
|
(define dos_qvariant_setInt
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(int value))
|
|
"dos_qvariant_setInt(vptr, value);"))
|
|
(define dos_qvariant_setBool
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(bool value))
|
|
"dos_qvariant_setBool(vptr, value);"))
|
|
(define dos_qvariant_setFloat
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(float value))
|
|
"dos_qvariant_setFloat(vptr, value);"))
|
|
(define dos_qvariant_setDouble
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(double value))
|
|
"dos_qvariant_setDouble(vptr, value);"))
|
|
(define dos_qvariant_setString
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(c-string value))
|
|
"dos_qvariant_setString(vptr, value);"))
|
|
(define dos_qvariant_setQObject
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
((c-pointer DosQObject) value))
|
|
"dos_qvariant_setQObject(vptr, value);"))
|
|
(define dos_qvariant_setArray
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
(int size)
|
|
(pointer-vector array))
|
|
"dos_qvariant_setArray(vptr, size, array);"))
|
|
(define dos_qvariant_isnull
|
|
(foreign-lambda* bool (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_isnull(vptr));"))
|
|
(define dos_qvariant_delete
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr))
|
|
"dos_qvariant_delete(vptr);"))
|
|
(define dos_qvariant_assign
|
|
(foreign-lambda* void (((c-pointer DosQVariant) vptr)
|
|
((c-pointer DosQVariant) other))
|
|
"dos_qvariant_assign(vptr, other);"))
|
|
(define dos_qvariant_toInt
|
|
(foreign-lambda* int (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toInt(vptr));"))
|
|
(define dos_qvariant_toBool
|
|
(foreign-lambda* bool (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toBool(vptr));"))
|
|
(define dos_qvariant_toString
|
|
(foreign-lambda* c-string (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toString(vptr));"))
|
|
(define dos_qvariant_toFloat
|
|
(foreign-lambda* float (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toFloat(vptr));"))
|
|
(define dos_qvariant_toDouble
|
|
(foreign-lambda* double (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toDouble(vptr));"))
|
|
(define dos_qvariant_toArray
|
|
(foreign-lambda* (c-pointer DosQVariantArray) (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toArray(vptr));"))
|
|
(define dos_qvariant_toQObject
|
|
(foreign-lambda* (c-pointer DosQObject) (((c-pointer DosQVariant) vptr))
|
|
"C_return(dos_qvariant_toQObject(vptr));"))
|
|
|
|
;; QMetaObject
|
|
(define dos_qmetaobject_create
|
|
(foreign-lambda* (c-pointer DosQMetaObject) (((c-pointer DosQMetaObject) superClassMetaObject)
|
|
(c-string className)
|
|
((c-pointer SignalDefinitions) signalDefinitions)
|
|
((c-pointer SlotDefinitions) slotDefinitions)
|
|
((c-pointer PropertyDefinitions) propertyDefinitions))
|
|
"C_return(dos_qmetaobject_create(superClassMetaObject, className, signalDefinitions, slotDefinitions, propertyDefinitions));"))
|
|
(define dos_qmetaobject_delete
|
|
(foreign-lambda* void (((c-pointer DosQMetaObject) vptr))
|
|
"dos_qmetaobject_delete(vptr);"))
|
|
(define dos_qmetaobject_invoke_method
|
|
(foreign-lambda* bool (((c-pointer DosQMetaObject) context)
|
|
((function void ((c-pointer DosQObject) c-pointer)) callback)
|
|
(c-pointer data)
|
|
(DosQtConnectionType connection_type))
|
|
"C_return(dos_qmetaobject_invoke_method(context, callback, data, connection_type));"))
|
|
|
|
;; QAbstractListModel
|
|
(define dos_qabstractlistmodel_qmetaobject
|
|
(foreign-lambda* (c-pointer DosQMetaObject) ()
|
|
"C_return(dos_qabstractlistmodel_qmetaobject());"))
|
|
(define dos_qabstractlistmodel_create
|
|
(foreign-safe-lambda*
|
|
(c-pointer DosQAbstractListModel) (((c-pointer (function void ())) callbackObject)
|
|
((c-pointer DosQMetaObject) metaObject)
|
|
(DObjectCallback dObjectCallback)
|
|
((c-pointer DosQAbstractItemModelCallbacks) callbacks))
|
|
"C_return(dos_qabstractlistmodel_create(callbackObject, metaObject, dObjectCallback, callbacks));"))
|
|
(define dos_qabstractlistmodel_index
|
|
(foreign-lambda* (c-pointer DosQModelIndex) (((c-pointer DosQAbstractListModel) vptr)
|
|
(int row)
|
|
(int column)
|
|
((c-pointer DosQModelIndex) parent))
|
|
"C_return(dos_qabstractlistmodel_index(vptr, row, column, parent));"))
|
|
(define dos_qabstractlistmodel_parent
|
|
(foreign-lambda* (c-pointer DosQModelIndex) (((c-pointer DosQAbstractListModel) vptr)
|
|
((c-pointer DosQModelIndex) child))
|
|
"C_return(dos_qabstractlistmodel_parent(vptr, child));"))
|
|
(define dos_qabstractlistmodel_columnCount
|
|
(foreign-lambda* int (((c-pointer DosQAbstractListModel) vptr)
|
|
((c-pointer DosQModelIndex) parent))
|
|
"C_return(dos_qabstractlistmodel_columnCount(vptr, parent));"))
|
|
|
|
;; QAbstractTableModel
|
|
(define dos_qabstracttablemodel_qmetaobject
|
|
(foreign-lambda* (c-pointer DosQMetaObject) ()
|
|
"C_return(dos_qabstracttablemodel_qmetaobject());"))
|
|
(define dos_qabstracttablemodel_create
|
|
(foreign-safe-lambda*
|
|
(c-pointer DosQAbstractTableModel) (((c-pointer (function void ())) callbackObject)
|
|
((c-pointer DosQMetaObject) metaObject)
|
|
(DObjectCallback dObjectCallback)
|
|
((c-pointer DosQAbstractItemModelCallbacks) callbacks))
|
|
"C_return(dos_qabstracttablemodel_create(callbackObject, metaObject, dObjectCallback, callbacks));"))
|
|
(define dos_qabstracttablemodel_index
|
|
(foreign-lambda* (c-pointer DosQModelIndex) (((c-pointer DosQAbstractTableModel) vptr)
|
|
(int row)
|
|
(int column)
|
|
((c-pointer DosQModelIndex) parent))
|
|
"C_return(dos_qabstracttablemodel_index(vptr, row, column, parent));"))
|
|
(define dos_qabstracttablemodel_parent
|
|
(foreign-lambda* (c-pointer DosQModelIndex) (((c-pointer DosQAbstractTableModel) vptr)
|
|
((c-pointer DosQModelIndex) child))
|
|
"C_return(dos_qabstracttablemodel_parent(vptr, child));"))
|
|
|
|
;; QAbstractItemModel
|
|
(define dos_qabstractitemmodel_qmetaobject
|
|
(foreign-lambda* (c-pointer DosQMetaObject) ()
|
|
"C_return(dos_qabstractitemmodel_qmetaobject());"))
|
|
(define dos_qabstractitemmodel_create
|
|
(foreign-safe-lambda*
|
|
(c-pointer DosQAbstractItemModel) (((c-pointer (function void ())) callbackObject)
|
|
((c-pointer DosQMetaObject) metaObject)
|
|
(DObjectCallback dObjectCallback)
|
|
((c-pointer DosQAbstractItemModelCallbacks) callbacks))
|
|
"C_return(dos_qabstractitemmodel_create(callbackObject, metaObject, dObjectCallback, callbacks));"))
|
|
(define dos_qabstractitemmodel_setData
|
|
(foreign-lambda* bool (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) index)
|
|
((c-pointer DosQVariant) data)
|
|
(int role))
|
|
"C_return(dos_qabstractitemmodel_setData(vptr, index, data, role));"))
|
|
(define dos_qabstractitemmodel_roleNames
|
|
(foreign-lambda* (c-pointer DosQHashIntQByteArray) (((c-pointer DosQAbstractItemModel) vptr))
|
|
"C_return(dos_qabstractitemmodel_roleNames(vptr));"))
|
|
(define dos_qabstractitemmodel_flags
|
|
(foreign-lambda* int (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) index))
|
|
"C_return(dos_qabstractitemmodel_flags(vptr, index));"))
|
|
(define dos_qabstractitemmodel_headerData
|
|
(foreign-lambda* (c-pointer DosQVariant) (((c-pointer DosQAbstractItemModel) vptr)
|
|
(int section)
|
|
(int orientation)
|
|
(int role))
|
|
"C_return(dos_qabstractitemmodel_headerData(vptr, section, orientation, role));"))
|
|
(define dos_qabstractitemmodel_hasChildren
|
|
(foreign-lambda* bool (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parentIndex))
|
|
"C_return(dos_qabstractitemmodel_hasChildren(vptr, parentIndex));"))
|
|
(define dos_qabstractitemmodel_hasIndex
|
|
(foreign-lambda* bool (((c-pointer DosQAbstractItemModel) vptr)
|
|
(int row)
|
|
(int column)
|
|
((c-pointer DosQModelIndex) dosParentIndex))
|
|
"C_return(dos_qabstractitemmodel_hasIndex(vptr, row, column, dosParentIndex));"))
|
|
(define dos_qabstractitemmodel_canFetchMore
|
|
(foreign-lambda* bool (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parentIndex))
|
|
"C_return(dos_qabstractitemmodel_canFetchMore(vptr, parentIndex));"))
|
|
(define dos_qabstractitemmodel_fetchMore
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parentIndex))
|
|
"dos_qabstractitemmodel_fetchMore(vptr, parentIndex);"))
|
|
(define dos_qabstractitemmodel_beginInsertRows
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parent)
|
|
(int first)
|
|
(int last))
|
|
"dos_qabstractitemmodel_beginInsertRows(vptr, parent, first, last);"))
|
|
(define dos_qabstractitemmodel_endInsertRows
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_endInsertRows(vptr);"))
|
|
(define dos_qabstractitemmodel_beginRemoveRows
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parent)
|
|
(int first)
|
|
(int last))
|
|
"dos_qabstractitemmodel_beginRemoveRows(vptr, parent, first, last);"))
|
|
(define dos_qabstractitemmodel_endRemoveRows
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_endRemoveRows(vptr);"))
|
|
(define dos_qabstractitemmodel_beginInsertColumns
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parent)
|
|
(int first)
|
|
(int last))
|
|
"dos_qabstractitemmodel_beginInsertColumns(vptr, parent, first, last);"))
|
|
(define dos_qabstractitemmodel_endInsertColumns
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_endInsertColumns(vptr);"))
|
|
(define dos_qabstractitemmodel_beginRemoveColumns
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) parent)
|
|
(int first)
|
|
(int last))
|
|
"dos_qabstractitemmodel_beginRemoveColumns(vptr, parent, first, last);"))
|
|
(define dos_qabstractitemmodel_endRemoveColumns
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_endRemoveColumns(vptr);"))
|
|
(define dos_qabstractitemmodel_beginResetModel
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_beginResetModel(vptr);"))
|
|
(define dos_qabstractitemmodel_endResetModel
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr))
|
|
"dos_qabstractitemmodel_endResetModel(vptr);"))
|
|
(define dos_qabstractitemmodel_dataChanged
|
|
(foreign-lambda* void (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) topLeft)
|
|
((c-pointer DosQModelIndex) bottomRight)
|
|
((c-pointer int) rolesPtr)
|
|
(int rolesLength))
|
|
"dos_qabstractitemmodel_dataChanged(vptr, topLeft, bottomRight, rolesPtr, rolesLength);"))
|
|
(define dos_qabstractitemmodel_createIndex
|
|
(foreign-lambda* (c-pointer DosQModelIndex) (((c-pointer DosQAbstractItemModel) vptr)
|
|
(int row)
|
|
(int column)
|
|
(c-pointer data))
|
|
"C_return(dos_qabstractitemmodel_createIndex(vptr, row, column, data));"))
|
|
(define dos_qabstractitemmodel_setData
|
|
(foreign-lambda* bool (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) index)
|
|
((c-pointer DosQVariant) value)
|
|
(int role))
|
|
"C_return(dos_qabstractitemmodel_setData(vptr, index, value, role));"))
|
|
(define dos_qabstractitemmodel_roleNames
|
|
(foreign-lambda* (c-pointer DosQHashIntQByteArray) (((c-pointer DosQAbstractItemModel) vptr))
|
|
"C_return(dos_qabstractitemmodel_roleNames(vptr));"))
|
|
(define dos_qabstractitemmodel_flags
|
|
(foreign-lambda* int (((c-pointer DosQAbstractItemModel) vptr)
|
|
((c-pointer DosQModelIndex) index))
|
|
"C_return(dos_qabstractitemmodel_flags(vptr, index));"))
|
|
(define dos_qabstractitemmodel_headerData
|
|
(foreign-lambda* (c-pointer DosQVariant) (((c-pointer DosQAbstractItemModel) vptr)
|
|
(int section)
|
|
(int orientation)
|
|
(int role))
|
|
"C_return(dos_qabstractitemmodel_headerData(vptr, section, orientation, role));"))
|
|
|
|
;; QObject
|
|
(define dos_qobject_qmetaobject
|
|
(foreign-lambda* (c-pointer DosQMetaObject) ()
|
|
"C_return(dos_qobject_qmetaobject());"))
|
|
(define dos_qobject_create
|
|
(foreign-lambda (c-pointer DosQObject) "dos_qobject_create"
|
|
c-pointer (c-pointer DosQMetaObject) DObjectCallback))
|
|
(define dos_qobject_signal_emit
|
|
(foreign-lambda void "dos_qobject_signal_emit"
|
|
(c-pointer DosQObject) c-string int (c-pointer c-pointer)))
|
|
(define dos_qobject_objectName
|
|
(foreign-lambda c-string "dos_qobject_objectName"
|
|
(c-pointer DosQObject)))
|
|
(define dos_qobject_setObjectName
|
|
(foreign-lambda void "dos_qobject_setObjectName"
|
|
(c-pointer DosQObject) c-string))
|
|
(define dos_qobject_delete
|
|
(foreign-lambda void "dos_qobject_delete"
|
|
(c-pointer DosQObject)))
|
|
(define dos_qobject_deleteLater
|
|
(foreign-lambda void "dos_qobject_deleteLater"
|
|
(c-pointer DosQObject)))
|
|
(define dos_qobject_property
|
|
(foreign-lambda (c-pointer DosQVariant) "dos_qobject_property"
|
|
(c-pointer DosQObject) c-string))
|
|
(define dos_qobject_setProperty
|
|
(foreign-lambda bool "dos_qobject_setProperty"
|
|
(c-pointer DosQObject) c-string (c-pointer DosQVariant)))
|
|
|
|
(define dos_slot_macro
|
|
(foreign-lambda c-string "dos_slot_macro"
|
|
c-string))
|
|
(define dos_signal_macro
|
|
(foreign-lambda c-string "dos_signal_macro"
|
|
c-string))
|
|
|
|
(define dos_qobject_connect_static
|
|
(foreign-lambda void "dos_qobject_connect_static"
|
|
(c-pointer DosQObject) ;; sender
|
|
c-string ;; signal
|
|
(c-pointer DosQObject) ;; receiver
|
|
c-string ;; slot
|
|
DosQtConnectionType)) ;; connection_type
|
|
(define dos_qobject_disconnect_static
|
|
(foreign-lambda void "dos_qobject_disconnect_static"
|
|
(c-pointer DosQObject) ;; sender
|
|
c-string ;; signal
|
|
(c-pointer DosQObject) ;; receiver
|
|
c-string)) ;; slot
|
|
|
|
;; QModelIndex
|
|
(define dos_qmodelindex_create
|
|
(foreign-lambda (c-pointer DosQModelIndex) "dos_qmodelindex_create"))
|
|
(define dos_qmodelindex_create_qmodelindex
|
|
(foreign-lambda (c-pointer DosQModelIndex) "dos_qmodelindex_create_qmodelindex"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_delete
|
|
(foreign-lambda void "dos_qmodelindex_delete"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_row
|
|
(foreign-lambda int "dos_qmodelindex_row"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_column
|
|
(foreign-lambda int "dos_qmodelindex_column"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_isValid
|
|
(foreign-lambda bool "dos_qmodelindex_isValid"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_data
|
|
(foreign-lambda (c-pointer DosQVariant) "dos_qmodelindex_data"
|
|
(c-pointer DosQModelIndex)
|
|
int))
|
|
(define dos_qmodelindex_parent
|
|
(foreign-lambda (c-pointer DosQModelIndex) "dos_qmodelindex_parent"
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_child
|
|
(foreign-lambda (c-pointer DosQModelIndex) "dos_qmodelindex_child"
|
|
(c-pointer DosQModelIndex)
|
|
int
|
|
int))
|
|
(define dos_qmodelindex_sibling
|
|
(foreign-lambda (c-pointer DosQModelIndex) "dos_qmodelindex_sibling"
|
|
(c-pointer DosQModelIndex)
|
|
int
|
|
int))
|
|
(define dos_qmodelindex_assign
|
|
(foreign-lambda void "dos_qmodelindex_assign"
|
|
(c-pointer DosQModelIndex)
|
|
(c-pointer DosQModelIndex)))
|
|
(define dos_qmodelindex_internalPointer
|
|
(foreign-lambda c-pointer "dos_qmodelindex_internalPointer"
|
|
(c-pointer DosQModelIndex)))
|
|
|
|
;; QHash
|
|
(define dos_qhash_int_qbytearray_create
|
|
(foreign-lambda (c-pointer DosQHashIntQByteArray) "dos_qhash_int_qbytearray_create"))
|
|
(define dos_qhash_int_qbytearray_delete
|
|
(foreign-lambda void "dos_qhash_int_qbytearray_delete"
|
|
(c-pointer DosQHashIntQByteArray)))
|
|
(define dos_qhash_int_qbytearray_insert
|
|
(foreign-lambda void "dos_qhash_int_qbytearray_insert"
|
|
(c-pointer DosQHashIntQByteArray)
|
|
int
|
|
c-string))
|
|
(define dos_qhash_int_qbytearray_value
|
|
(foreign-lambda c-string "dos_qhash_int_qbytearray_value"
|
|
(c-pointer DosQHashIntQByteArray)
|
|
int))
|
|
|
|
;; QResource
|
|
(define dos_qresource_register
|
|
(foreign-lambda void "dos_qresource_register"
|
|
c-string))
|
|
|
|
;; QUrl
|
|
(define dos_qurl_create
|
|
(foreign-lambda (c-pointer DosQUrl) "dos_qurl_create"
|
|
c-string
|
|
int))
|
|
(define dos_qurl_delete
|
|
(foreign-lambda void "dos_qurl_delete"
|
|
(c-pointer DosQUrl)))
|
|
(define dos_qurl_to_string
|
|
(foreign-lambda c-string "dos_qurl_to_string"
|
|
(c-pointer DosQUrl)))
|
|
(define dos_qurl_isValid
|
|
(foreign-lambda bool "dos_qurl_isValid"
|
|
(c-pointer DosQUrl)))
|
|
|
|
;; QmlRegisterType
|
|
(define dos_qmlregistertype_create
|
|
(foreign-lambda* (c-pointer QmlRegisterType) ((int major)
|
|
(int minor)
|
|
(c-string uri)
|
|
(c-string qml)
|
|
((c-pointer DosQMetaObject) staticMetaObject)
|
|
(CreateDObject createDObject)
|
|
(DeleteDObject deleteDObject))
|
|
"struct QmlRegisterType qrt = {.major = major, .minor = minor, .uri = uri, .qml = qml,"
|
|
".staticMetaObject = staticMetaObject, .createDObject = createDObject, .deleteDObject = deleteDObject};"
|
|
"struct QmlRegisterType* qrtptr = (struct QmlRegisterType*) malloc(sizeof(struct QmlRegisterType));"
|
|
"*qrtptr = qrt;"
|
|
"C_return(qrtptr);"))
|
|
|
|
;; QDeclarative
|
|
(define dos_qdeclarative_qmlregistertype
|
|
(foreign-lambda int "dos_qdeclarative_qmlregistertype"
|
|
(c-pointer QmlRegisterType)))
|
|
(define dos_qdeclarative_qmlregistersingletontype
|
|
(foreign-lambda int "dos_qdeclarative_qmlregistersingletontype"
|
|
(c-pointer QmlRegisterType)))
|
|
|
|
;; QPointer
|
|
(define dos_qpointer_create
|
|
(foreign-lambda (c-pointer DosQPointer) "dos_qpointer_create"
|
|
(c-pointer DosQObject)))
|
|
(define dos_qpointer_delete
|
|
(foreign-lambda void "dos_qpointer_delete"
|
|
(c-pointer DosQPointer)))
|
|
(define dos_qpointer_is_null
|
|
(foreign-lambda bool "dos_qpointer_is_null"
|
|
(c-pointer DosQPointer)))
|
|
(define dos_qpointer_clear
|
|
(foreign-lambda void "dos_qpointer_clear"
|
|
(c-pointer DosQPointer)))
|
|
(define dos_qpointer_data
|
|
(foreign-lambda (c-pointer DosQObject) "dos_qpointer_data"
|
|
(c-pointer DosQPointer)))))
|