Add further headers (clipboard, cpuinfo, dialog, ...)

tests/testcpuinfo.pas

@@ -0,0 +1,38 @@
+{
+  This file is part of:
+
+    SDL3 for Pascal
+    (https://github.com/PascalGameDevelopment/SDL3-for-Pascal)
+    SPDX-License-Identifier: Zlib
+}
+
+{ Test CPU Info routines }
+
+program testcpuinfo;
+
+uses
+  SDL3;
+
+begin
+
+  SDL_Log('SDL_GetNumLogicalCPUCores: %d',[SDL_GetNumLogicalCPUCores]);
+  SDL_Log('SDL_GetCPUCacheLineSize: %d',[SDL_GetCPUCacheLineSize]);
+  SDL_Log('SDL_HasAltiVec: %d',[SDL_HasAltiVec]);
+  SDL_Log('SDL_HasMMX: %d',[SDL_HasMMX]);
+  SDL_Log('SDL_HasSSE: %d',[SDL_HasSSE]);
+  SDL_Log('SDL_HasSSE2: %d',[SDL_HasSSE2]);
+  SDL_Log('SDL_HasSSE3: %d',[SDL_HasSSE3]);
+  SDL_Log('SDL_HasSSE41: %d',[SDL_HasSSE41]);
+  SDL_Log('SDL_HasSSE42: %d',[SDL_HasSSE42]);
+  SDL_Log('SDL_HasAVX: %d',[SDL_HasAVX]);
+  SDL_Log('SDL_HasAVX2: %d',[SDL_HasAVX2]);
+  SDL_Log('SDL_HasAVX512F: %d',[SDL_HasAVX512F]);
+  SDL_Log('SDL_HasARMSIMD: %d',[SDL_HasARMSIMD]);
+  SDL_Log('SDL_HasNEON: %d',[SDL_HasNEON]);
+  SDL_Log('SDL_HasLSX: %d',[SDL_HasLSX]);
+  SDL_Log('SDL_HasLASX: %d',[SDL_HasLASX]);
+  SDL_Log('SDL_GetSystemRAM: %d',[SDL_GetSystemRAM]);
+  SDL_Log('SDL_GetSIMDAlignment: %d',[SDL_GetSIMDAlignment]);
+
+end.
+

units/SDL3.pas

@@ -103,6 +103,11 @@ interface
 {$I SDL_camera.inc}                       // 3.1.6-prev
 {$I SDL_events.inc}                       // 3.1.6-prev
 {$I SDL_render.inc}                       // 3.1.6-prev
+{$I SDL_clipboard.inc}                    // 3.2.0
+{$I SDL_cpuinfo.inc}                      // 3.2.0
+{$I SDL_dialog.inc}                       // 3.2.0
+{$I SDL_time.inc}                         // 3.2.0
+{$I SDL_filesystem.inc}                   // 3.2.0
 
 
 implementation

units/SDL_clipboard.inc

@@ -0,0 +1,312 @@
+{
+  This file is part of:
+
+    SDL3 for Pascal
+    (https://github.com/PascalGameDevelopment/SDL3-for-Pascal)
+    SPDX-License-Identifier: Zlib
+}
+
+{*
+  * # CategoryClipboard
+  *
+  * SDL provides access to the system clipboard, both for reading information
+  * from other processes and publishing information of its own.
+  *
+  * This is not just text! SDL apps can access and publish data by mimetype.
+  *
+  * ## Basic use (text)
+  *
+  * Obtaining and publishing simple text to the system clipboard is as easy as
+  * calling SDL_GetClipboardText() and SDL_SetClipboardText(), respectively.
+  * These deal with C strings in UTF-8 encoding. Data transmission and encoding
+  * conversion is completely managed by SDL.
+  *
+  * ## Clipboard callbacks (data other than text)
+  *
+  * Things get more complicated when the clipboard contains something other
+  * than text. Not only can the system clipboard contain data of any type, in
+  * some cases it can contain the same data in different formats! For example,
+  * an image painting app might let the user copy a graphic to the clipboard,
+  * and offers it in .BMP, .JPG, or .PNG format for other apps to consume.
+  *
+  * Obtaining clipboard data ("pasting") like this is a matter of calling
+  * SDL_GetClipboardData() and telling it the mimetype of the data you want.
+  * But how does one know if that format is available? SDL_HasClipboardData()
+  * can report if a specific mimetype is offered, and
+  * SDL_GetClipboardMimeTypes() can provide the entire list of mimetypes
+  * available, so the app can decide what to do with the data and what formats
+  * it can support.
+  *
+  * Setting the clipboard ("copying") to arbitrary data is done with
+  * SDL_SetClipboardData. The app does not provide the data in this call, but
+  * rather the mimetypes it is willing to provide and a callback function.
+  * During the callback, the app will generate the data. This allows massive
+  * data sets to be provided to the clipboard, without any data being copied
+  * before it is explicitly requested. More specifically, it allows an app to
+  * offer data in multiple formats without providing a copy of all of them
+  * upfront. If the app has an image that it could provide in PNG or JPG
+  * format, it doesn't have to encode it to either of those unless and until
+  * something tries to paste it.
+  *
+  * ## Primary Selection
+  *
+  * The X11 and Wayland video targets have a concept of the "primary selection"
+  * in addition to the usual clipboard. This is generally highlighted (but not
+  * explicitly copied) text from various apps. SDL offers APIs for this through
+  * SDL_GetPrimarySelectionText() and SDL_SetPrimarySelectionText(). SDL offers
+  * these APIs on platforms without this concept, too, but only so far that it
+  * will keep a copy of a string that the app sets for later retrieval; the
+  * operating system will not ever attempt to change the string externally if
+  * it doesn't support a primary selection.
+  }
+
+{ Function prototypes  }
+
+{*
+ * Put UTF-8 text into the clipboard.
+ *
+ * \param text the text to store in the clipboard.
+ * \returns true on success or false on failure; call SDL_GetError() for more
+ *          information.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_GetClipboardText
+ * \sa SDL_HasClipboardText
+  }
+function SDL_SetClipboardText(text: PAnsiChar): cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_SetClipboardText' {$ENDIF} {$ENDIF};
+
+{*
+ * Get UTF-8 text from the clipboard.
+ *
+ * This functions returns an empty string if there was not enough memory left
+ * for a copy of the clipboard's content.
+ *
+ * \returns the clipboard text on success or an empty string on failure; call
+ *          SDL_GetError() for more information. This should be freed with
+ *          SDL_free() when it is no longer needed.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_HasClipboardText
+ * \sa SDL_SetClipboardText
+  }
+function SDL_GetClipboardText: PAnsiChar; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetClipboardText' {$ENDIF} {$ENDIF};
+
+{*
+ * Query whether the clipboard exists and contains a non-empty text string.
+ *
+ * \returns true if the clipboard has text, or false if it does not.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_GetClipboardText
+ * \sa SDL_SetClipboardText
+  }
+function SDL_HasClipboardText: cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_HasClipboardText' {$ENDIF} {$ENDIF};
+
+{*
+ * Put UTF-8 text into the primary selection.
+ *
+ * \param text the text to store in the primary selection.
+ * \returns true on success or false on failure; call SDL_GetError() for more
+ *          information.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_GetPrimarySelectionText
+ * \sa SDL_HasPrimarySelectionText
+  }
+function SDL_SetPrimarySelectionText(text: PAnsiChar): cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_SetPrimarySelectionText' {$ENDIF} {$ENDIF};
+
+{*
+ * Get UTF-8 text from the primary selection.
+ *
+ * This functions returns an empty string if there was not enough memory left
+ * for a copy of the primary selection's content.
+ *
+ * \returns the primary selection text on success or an empty string on
+ *          failure; call SDL_GetError() for more information. This should be
+ *          freed with SDL_free() when it is no longer needed.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_HasPrimarySelectionText
+ * \sa SDL_SetPrimarySelectionText
+  }
+function SDL_GetPrimarySelectionText: PAnsiChar; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetPrimarySelectionText' {$ENDIF} {$ENDIF};
+
+{*
+ * Query whether the primary selection exists and contains a non-empty text
+ * string.
+ *
+ * \returns true if the primary selection has text, or false if it does not.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_GetPrimarySelectionText
+ * \sa SDL_SetPrimarySelectionText
+  }
+function SDL_HasPrimarySelectionText: cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_HasPrimarySelectionText' {$ENDIF} {$ENDIF};
+
+{*
+ * Callback function that will be called when data for the specified mime-type
+ * is requested by the OS.
+ *
+ * The callback function is called with nil as the mime_type when the
+ * clipboard is cleared or new data is set. The clipboard is automatically
+ * cleared in SDL_Quit().
+ *
+ * \param userdata a Pointer to provided user data.
+ * \param mime_type the requested mime-type.
+ * \param size a Pointer filled in with the length of the returned data.
+ * \returns a Pointer to the data for the provided mime-type. Returning nil
+ *          or setting length to 0 will cause no data to be sent to the
+ *          "receiver". It is up to the receiver to handle this. Essentially
+ *          returning no data is more or less undefined behavior and may cause
+ *          breakage in receiving applications. The returned data will not be
+ *          freed so it needs to be retained and dealt with internally.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_SetClipboardData
+  }
+type
+  TSDL_ClipboardDataCallback = function(userdata: Pointer; mime_type: PAnsiChar; size: pcsize_t): Pointer; cdecl;
+
+{*
+ * Callback function that will be called when the clipboard is cleared, or new
+ * data is set.
+ *
+ * \param userdata a Pointer to provided user data.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_SetClipboardData
+  }
+type
+  TSDL_ClipboardCleanupCallback = procedure(userdata: Pointer); cdecl;
+
+{*
+ * Offer clipboard data to the OS.
+ *
+ * Tell the operating system that the application is offering clipboard data
+ * for each of the proivded mime-types. Once another application requests the
+ * data the callback function will be called allowing it to generate and
+ * respond with the data for the requested mime-type.
+ *
+ * The size of text data does not include any terminator, and the text does
+ * not need to be null terminated (e.g. you can directly copy a portion of a
+ * document)
+ *
+ * \param callback a function Pointer to the function that provides the
+ *                 clipboard data.
+ * \param cleanup a function Pointer to the function that cleans up the
+ *                clipboard data.
+ * \param userdata an opaque Pointer that will be forwarded to the callbacks.
+ * \param mime_types a list of mime-types that are being offered.
+ * \param num_mime_types the number of mime-types in the mime_types list.
+ * \returns true on success or false on failure; call SDL_GetError() for more
+ *          information.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_ClearClipboardData
+ * \sa SDL_GetClipboardData
+ * \sa SDL_HasClipboardData
+  }
+function SDL_SetClipboardData(callback: TSDL_ClipboardDataCallback; cleanup: TSDL_ClipboardCleanupCallback; userdata: Pointer; mime_types: PPAnsiChar; num_mime_types: csize_t): cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_SetClipboardData' {$ENDIF} {$ENDIF};
+
+{*
+ * Clear the clipboard data.
+ *
+ * \returns true on success or false on failure; call SDL_GetError() for more
+ *          information.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_SetClipboardData
+  }
+function SDL_ClearClipboardData: cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_ClearClipboardData' {$ENDIF} {$ENDIF};
+
+{*
+ * Get the data from clipboard for a given mime type.
+ *
+ * The size of text data does not include the terminator, but the text is
+ * guaranteed to be null terminated.
+ *
+ * \param mime_type the mime type to read from the clipboard.
+ * \param size a Pointer filled in with the length of the returned data.
+ * \returns the retrieved data buffer or nil on failure; call SDL_GetError()
+ *          for more information. This should be freed with SDL_free() when it
+ *          is no longer needed.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_HasClipboardData
+ * \sa SDL_SetClipboardData
+  }
+function SDL_GetClipboardData(mime_type: PAnsiChar; size: pcsize_t): Pointer; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetClipboardData' {$ENDIF} {$ENDIF};
+
+{*
+ * Query whether there is data in the clipboard for the provided mime type.
+ *
+ * \param mime_type the mime type to check for data for.
+ * \returns true if there exists data in clipboard for the provided mime type,
+ *          false if it does not.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_SetClipboardData
+ * \sa SDL_GetClipboardData
+  }
+function SDL_HasClipboardData(mime_type: PAnsiChar): cbool; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_HasClipboardData' {$ENDIF} {$ENDIF};
+
+{*
+ * Retrieve the list of mime types available in the clipboard.
+ *
+ * \param num_mime_types a Pointer filled with the number of mime types, may
+ *                       be nil.
+ * \returns a null terminated array of strings with mime types, or nil on
+ *          failure; call SDL_GetError() for more information. This should be
+ *          freed with SDL_free() when it is no longer needed.
+ *
+ * \threadsafety You may only call this function from the main thread.
+ *
+ * \since This function is available since SDL 3.1.3.
+ *
+ * \sa SDL_SetClipboardData
+  }
+function SDL_GetClipboardMimeTypes(num_mime_types: pcsize_t):PPAnsiChar; cdecl;
+  external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetClipboardMimeTypes' {$ENDIF} {$ENDIF};
+