From ad5248a3e1bafc1b7dec4c8af82d56ed324ef314 Mon Sep 17 00:00:00 2001 From: Vasco Date: Mon, 24 Aug 2026 03:53:16 +0100 Subject: Slimed out podium. Updated math. Rend kinda works but still bugged. --- Peak/build.c | 39 - Peak/demos/demo | Bin 43544 -> 0 bytes Peak/demos/demo.c | 61 -- Peak/demos/demo.html | 19 - Peak/demos/demo.js | 2370 -------------------------------------------- Peak/demos/demo.wasm | Bin 30983 -> 0 bytes Peak/demos/demo_run | Bin 43912 -> 0 bytes Peak/demos/demo_run.c | 76 -- Peak/peak.h | 1037 +++++++++++++++++-- Peak/src/p_emscripten.c | 118 +++ Peak/src/p_linux.c | 187 ++++ Peak/src/p_log.c | 153 +++ Peak/src/p_win32.c | 391 ++++++-- Peak/src/peak.c | 80 ++ Peak/src/peak_header.h | 103 +- Peak/src/peak_header.h.out | 1037 +++++++++++++++++-- 16 files changed, 2909 insertions(+), 2762 deletions(-) delete mode 100644 Peak/build.c delete mode 100755 Peak/demos/demo delete mode 100644 Peak/demos/demo.c delete mode 100644 Peak/demos/demo.html delete mode 100644 Peak/demos/demo.js delete mode 100755 Peak/demos/demo.wasm delete mode 100755 Peak/demos/demo_run delete mode 100644 Peak/demos/demo_run.c create mode 100644 Peak/src/p_log.c (limited to 'Peak') diff --git a/Peak/build.c b/Peak/build.c deleted file mode 100644 index c3b20b9..0000000 --- a/Peak/build.c +++ /dev/null @@ -1,39 +0,0 @@ -#define POOF_IMPLEMENTATION -#include "../Poof/poof.h" - -int main(int argc, char **argv) { - POOF_GO_REBUILD_URSELF(argc, argv); - - Poof_Cmd cmd = {0}; - poof_cmd_append(&cmd, "python", "../bundle_header.py", "src/peak_header.h"); - if (!poof_cmd_run(&cmd)) return 1; - - poof_copy_file("src/peak_header.h.out", "peak.h"); - - Poof_CC cc = {0}; - poof_cc_init(&cc, POOF_CC_GCC | POOF_CC_CLANG, POOF_TARGET_HOST); - cc.debug_mode = true; - cc.optimization = POOF_O0; - cc.output = "demos/demo"; - poof_cc_append(&cc.inputs, "demos/demo.c"); - poof_cc_append(&cc.extra_flags, "-std=c99", "-Wall", "-Wno-deprecated-declarations"); - poof_cc_append(&cc.libs, "m"); - if (!poof_cc_run(&cc)) return 1; - - cc.debug_mode = true; - cc.optimization = POOF_O0; - cc.output = "demos/demo_run"; - poof_cc_append(&cc.inputs, "demos/demo_run.c"); - poof_cc_append(&cc.extra_flags, "-std=c99", "-Wall", "-Wno-deprecated-declarations"); - poof_cc_append(&cc.libs, "m"); - if (!poof_cc_run(&cc)) return 1; - - poof_cmd_clear(&cmd); - poof_cmd_append(&cmd, "emcc", "demos/demo_run.c", "-o", "demos/demo.js", - "-std=c99", "-Wall", "-Wno-deprecated-declarations", - "-sALLOW_MEMORY_GROWTH=1", "-sENVIRONMENT=web"); - if (!poof_cmd_run(&cmd)) return 1; - - return 0; -} - diff --git a/Peak/demos/demo b/Peak/demos/demo deleted file mode 100755 index 8f72b0a..0000000 Binary files a/Peak/demos/demo and /dev/null differ diff --git a/Peak/demos/demo.c b/Peak/demos/demo.c deleted file mode 100644 index cb5212d..0000000 --- a/Peak/demos/demo.c +++ /dev/null @@ -1,61 +0,0 @@ -#include - -#define PEAK_IMPLEMENTATION -#include "../peak.h" - -void print_window_resize(PeakEvent ev) { - printf("window: %u %u\n", ev.resize.width, ev.resize.height); -} - -void print_window_close(PeakEvent ev) { - (void)ev; - printf("WINDOW CLOSE!!!!!!\nWOWWWOWAAAAAAAAAAAAAAAAAAAAAAAAh\n"); -} - -void print_mouse(PeakEvent ev) { - printf("mouse: state=%d type=%d pos=(%f, %f)\n", ev.pointer.state, ev.pointer.type, ev.pointer.x, ev.pointer.y); -} - -void print_key(PeakEvent ev) { - printf("key: key=%d mod=%d\n", ev.key.key, ev.key.mod); -} - -typedef void (*print_event_func)(PeakEvent ev); -print_event_func print_event[PEAK_EVENT_LAST] = { - [PEAK_EVENT_NONE] = print_mouse, - [PEAK_EVENT_WINDOW_RESIZE] = print_window_resize, - [PEAK_EVENT_WINDOW_CLOSE] = print_window_close, - [PEAK_EVENT_POINTER] = print_mouse, - [PEAK_EVENT_POINTER_CONNECTED] = print_mouse, - [PEAK_EVENT_POINTER_DISCONNECTED] = print_mouse, - [PEAK_EVENT_KEY_DOWN] = print_key, - [PEAK_EVENT_KEY_UP] = print_key, -}; - -int main(int argc, char **argv) { - (void)argc; - (void)argv; - - if (!peak_init()) return 1; - - PeakWindow win = peak_window_open("Demo", 800, 600, 0); - peak_window_clear(&win, 0.5, 0.5, 0, 1); - - PeakEvent ev; - while (win.running) { - while (peak_window_epoll(&win, &ev)) { - if (ev.type == PEAK_EVENT_NONE) continue; - print_event[ev.type](ev); - if (ev.type == PEAK_EVENT_WINDOW_CLOSE) { - win.running = 0; - break; - } - } - if (!win.running) break; - - } - - peak_window_close(&win); - peak_quit(); - return 0; -} diff --git a/Peak/demos/demo.html b/Peak/demos/demo.html deleted file mode 100644 index a10e85e..0000000 --- a/Peak/demos/demo.html +++ /dev/null @@ -1,19 +0,0 @@ - - - - - - Peak - - - -
- -
- - - diff --git a/Peak/demos/demo.js b/Peak/demos/demo.js deleted file mode 100644 index 6ebf1b1..0000000 --- a/Peak/demos/demo.js +++ /dev/null @@ -1,2370 +0,0 @@ -// include: shell.js -// include: minimum_runtime_check.js -(function() { - // "30.0.0" -> 300000 - function humanReadableVersionToPacked(str) { - str = str.split('-')[0]; // Remove any trailing part from e.g. "12.53.3-alpha" - var vers = str.split('.').slice(0, 3); - while(vers.length < 3) vers.push('00'); - vers = vers.map((n, i, arr) => n.padStart(2, '0')); - return vers.join(''); - } - // 300000 -> "30.0.0" - var packedVersionToHumanReadable = n => [n / 10000 | 0, (n / 100 | 0) % 100, n % 100].join('.'); - - var TARGET_NOT_SUPPORTED = 2147483647; - - // Note: We use a typeof check here instead of optional chaining using - // globalThis because older browsers might not have globalThis defined. - - // We skip the node version checking when running on Bun/Deno since the node - // version they report doesn't seem to be useful. - if (typeof process !== 'undefined' && !process.versions?.bun && typeof Deno == "undefined") { - var currentNodeVersion = process.versions?.node ? humanReadableVersionToPacked(process.versions.node) : TARGET_NOT_SUPPORTED; - if (currentNodeVersion < TARGET_NOT_SUPPORTED) { - throw new Error('not compiled for this environment (did you build to HTML and try to run it not on the web, or set ENVIRONMENT to something - like node - and run it someplace else - like on the web?)'); - } - if (currentNodeVersion < 2147483647) { - throw new Error(`This emscripten-generated code requires node v${ packedVersionToHumanReadable(2147483647) } (detected v${packedVersionToHumanReadable(currentNodeVersion)})`); - } - } - - var userAgent = typeof navigator !== 'undefined' && navigator.userAgent; - if (!userAgent) { - return; - } - - var currentSafariVersion = userAgent.includes("Safari/") && !userAgent.includes("Chrome/") && userAgent.match(/Version\/(\d+\.?\d*\.?\d*)/) ? humanReadableVersionToPacked(userAgent.match(/Version\/(\d+\.?\d*\.?\d*)/)[1]) : TARGET_NOT_SUPPORTED; - if (currentSafariVersion < 150000) { - throw new Error(`This emscripten-generated code requires Safari v${ packedVersionToHumanReadable(150000) } (detected v${currentSafariVersion})`); - } - - var currentFirefoxVersion = userAgent.match(/Firefox\/(\d+(?:\.\d+)?)/) ? parseFloat(userAgent.match(/Firefox\/(\d+(?:\.\d+)?)/)[1]) : TARGET_NOT_SUPPORTED; - if (currentFirefoxVersion < 79) { - throw new Error(`This emscripten-generated code requires Firefox v79 (detected v${currentFirefoxVersion})`); - } - - var currentChromeVersion = userAgent.match(/Chrome\/(\d+(?:\.\d+)?)/) ? parseFloat(userAgent.match(/Chrome\/(\d+(?:\.\d+)?)/)[1]) : TARGET_NOT_SUPPORTED; - if (currentChromeVersion < 85) { - throw new Error(`This emscripten-generated code requires Chrome v85 (detected v${currentChromeVersion})`); - } -})(); - -// end include: minimum_runtime_check.js -// The Module object: Our interface to the outside world. We import -// and export values on it. There are various ways Module can be used: -// 1. Not defined. We create it here -// 2. A function parameter, function(moduleArg) => Promise -// 3. pre-run appended it, var Module = {}; ..generated code.. -// 4. External script tag defines var Module. -// We need to check if Module already exists (e.g. case 3 above). -// Substitution will be replaced with actual code on later stage of the build, -// this way Closure Compiler will not mangle it (e.g. case 4. above). -// Note that if you want to run closure, and also to use Module -// after the generated code, you will need to define var Module = {}; -// before the code. Then that object will be used in the code, and you -// can continue to use Module afterwards as well. -var Module = typeof Module != 'undefined' ? Module : {}; - -// Determine the runtime environment we are in. You can customize this by -// setting the ENVIRONMENT setting at compile time (see settings.js). - -// Attempt to auto-detect the environment -var ENVIRONMENT_IS_WEB = !!globalThis.window; -var ENVIRONMENT_IS_WORKER = !!globalThis.WorkerGlobalScope; -// N.b. Electron.js environment is simultaneously a NODE-environment, but -// also a web environment. -var ENVIRONMENT_IS_NODE = globalThis.process?.versions?.node && globalThis.process?.type != 'renderer'; -var ENVIRONMENT_IS_SHELL = !ENVIRONMENT_IS_WEB && !ENVIRONMENT_IS_NODE && !ENVIRONMENT_IS_WORKER; - -// --pre-jses are emitted after the Module integration code, so that they can -// refer to Module (if they choose; they can also define Module) - - -var programArgs = []; -var thisProgram = './this.program'; -var quit_ = (status, toThrow) => { - throw toThrow; -}; - -// In MODULARIZE mode _scriptName needs to be captured already at the very top of the page immediately when the page is parsed, so it is generated there -// before the page load. In non-MODULARIZE modes generate it here. -var _scriptName = globalThis.document?.currentScript?.src; - -// `/` should be present at the end if `scriptDirectory` is not empty -var scriptDirectory = ''; -function locateFile(path) { - if (Module['locateFile']) { - return Module['locateFile'](path, scriptDirectory); - } - return scriptDirectory + path; -} - -// Hooks that are implemented differently in different runtime environments. -var readAsync, readBinary; - -if (ENVIRONMENT_IS_SHELL) { - -} else - -// Note that this includes Node.js workers when relevant (pthreads is enabled). -// Node.js workers are detected as a combination of ENVIRONMENT_IS_WORKER and -// ENVIRONMENT_IS_NODE. -if (ENVIRONMENT_IS_WEB || ENVIRONMENT_IS_WORKER) { - try { - scriptDirectory = new URL('.', _scriptName).href; // includes trailing slash - } catch { - // Must be a `blob:` or `data:` URL (e.g. `blob:http://site.com/etc/etc`), we cannot - // infer anything from them. - } - - if (!(globalThis.window || globalThis.WorkerGlobalScope)) throw new Error('not compiled for this environment (did you build to HTML and try to run it not on the web, or set ENVIRONMENT to something - like node - and run it someplace else - like on the web?)'); - - { -// include: web_or_worker_shell_read.js -readAsync = async (url) => { - assert(!isFileURI(url), "readAsync does not work with file:// URLs"); - var response = await fetch(url, { credentials: 'same-origin' }); - if (response.ok) { - return response.arrayBuffer(); - } - throw new Error(response.status + ' : ' + response.url); - }; -// end include: web_or_worker_shell_read.js - } -} else -{ - throw new Error('environment detection error'); -} - -var out = console.log.bind(console); -var err = console.error.bind(console); - -var IDBFS = 'IDBFS is no longer included by default; build with -lidbfs.js'; -var PROXYFS = 'PROXYFS is no longer included by default; build with -lproxyfs.js'; -var WORKERFS = 'WORKERFS is no longer included by default; build with -lworkerfs.js'; -var FETCHFS = 'FETCHFS is no longer included by default; build with -lfetchfs.js'; -var ICASEFS = 'ICASEFS is no longer included by default; build with -licasefs.js'; -var JSFILEFS = 'JSFILEFS is no longer included by default; build with -ljsfilefs.js'; -var OPFS = 'OPFS is no longer included by default; build with -lopfs.js'; - -var NODEFS = 'NODEFS is no longer included by default; build with -lnodefs.js'; - -// perform assertions in shell.js after we set up out() and err(), as otherwise -// if an assertion fails it cannot print the message - -assert(!ENVIRONMENT_IS_WORKER, 'worker environment detected but not enabled at build time (add `worker` to `-sENVIRONMENT` to enable)'); - -assert(!ENVIRONMENT_IS_NODE, 'node environment detected but not enabled at build time (add `node` to `-sENVIRONMENT` to enable)'); - -assert(!ENVIRONMENT_IS_SHELL, 'shell environment detected but not enabled at build time (add `shell` to `-sENVIRONMENT` to enable)'); - -// end include: shell.js - -// include: preamble.js -// === Preamble library stuff === - -// Documentation for the public APIs defined in this file must be updated in: -// site/source/docs/api_reference/preamble.js.rst -// A prebuilt local version of the documentation is available at: -// site/build/text/docs/api_reference/preamble.js.txt -// You can also build docs locally as HTML or other formats in site/ -// An online HTML version (which may be of a different version of Emscripten) -// is up at http://kripken.github.io/emscripten-site/docs/api_reference/preamble.js.html - -var wasmBinary; - -if (!globalThis.WebAssembly) { - err('no native wasm support detected'); -} - -// Wasm globals - -//======================================== -// Runtime essentials -//======================================== - -// whether we are quitting the application. no code should run after this. -// set in exit() and abort() -var ABORT = false; - -// set by exit() and abort(). Passed to 'onExit' handler. -// NOTE: This is also used as the process return code in shell environments -// but only when noExitRuntime is false. -var EXITSTATUS; - -// In STRICT mode, we only define assert() when ASSERTIONS is set. i.e. we -// don't define it at all in release modes. This matches the behaviour of -// MINIMAL_RUNTIME. -// TODO(sbc): Make this the default even without STRICT enabled. -/** @type {function(*, string=)} */ -function assert(condition, text) { - if (!condition) { - abort('Assertion failed' + (text ? ': ' + text : '')); - } -} - -// We used to include malloc/free by default in the past. Show a helpful error in -// builds with assertions. -function _free() { - // Show a helpful error since we used to include free by default in the past. - abort('free() called but not included in the build - add `_free` to EXPORTED_FUNCTIONS'); -} - -/** - * Indicates whether filename is delivered via file protocol (as opposed to http/https) - * @noinline - */ -var isFileURI = (filename) => filename.startsWith('file://'); - -// include: runtime_common.js -// include: runtime_exceptions.js -// Base Emscripten EH error class -class EmscriptenEH {} - -class EmscriptenSjLj extends EmscriptenEH {} - -// end include: runtime_exceptions.js -// include: runtime_debug.js -var runtimeDebug = true; // Switch to false at runtime to disable logging at the right times - -// Used by XXXXX_DEBUG settings to output debug messages. -function dbg(...args) { - if (!runtimeDebug && typeof runtimeDebug != 'undefined') return; - // TODO(sbc): Make this configurable somehow. Its not always convenient for - // logging to show up as warnings. - console.warn(...args); -} - -// Endianness check -(() => { - var h16 = new Int16Array(1); - var h8 = new Int8Array(h16.buffer); - h16[0] = 0x6373; - if (h8[0] !== 0x73 || h8[1] !== 0x63) abort('Runtime error: expected the system to be little-endian! (Run with -sSUPPORT_BIG_ENDIAN to bypass)'); -})(); - -function consumedModuleProp(prop) { - var value = Module[prop]; - var msg = `Attempt to modify \`Module.${prop}\` after it has already been processed. This can happen, for example, when code is injected via '--post-js' rather than '--pre-js'`; - if (Array.isArray(value)) { - value = new Proxy(value, { - set(target, key, val) { - abort(msg); - return false; - }, - defineProperty(target, key, descriptor) { - abort(msg); - return false; - }, - deleteProperty(target, key) { - abort(msg); - return false; - } - }); - } - Object.defineProperty(Module, prop, { - configurable: true, - get() { return value; }, - set() { - abort(msg); - } - }); -} - -function makeInvalidEarlyAccess(name) { - return () => assert(false, `call to '${name}' via reference taken before Wasm module initialization`); - -} - -function ignoredModuleProp(prop) { - if (Object.getOwnPropertyDescriptor(Module, prop)) { - abort(`\`Module.${prop}\` was supplied but \`${prop}\` not included in INCOMING_MODULE_JS_API`); - } -} - -// forcing the filesystem exports a few things by default -function isExportedByForceFilesystem(name) { - return name === 'FS_createPath' || - name === 'FS_createDataFile' || - name === 'FS_createPreloadedFile' || - name === 'FS_preloadFile' || - name === 'FS_unlink' || - name === 'addRunDependency' || - // The old FS has some functionality that WasmFS lacks. - name === 'FS_createLazyFile' || - name === 'FS_createDevice' || - name === 'removeRunDependency'; -} - -/** - * Intercept access to a symbols in the global symbol. This enables us to give - * informative warnings/errors when folks attempt to use symbols they did not - * include in their build, or no symbols that no longer exist. - * - * We don't define this in MODULARIZE mode since in that mode emscripten symbols - * are never placed in the global scope. - */ -function hookGlobalSymbolAccess(sym, func) { - if (!Object.getOwnPropertyDescriptor(globalThis, sym)) { - Object.defineProperty(globalThis, sym, { - configurable: true, - get() { - func(); - return undefined; - } - }); - } -} - -function missingGlobal(sym, msg) { - hookGlobalSymbolAccess(sym, () => { - warnOnce(`\`${sym}\` is no longer defined by emscripten. ${msg}`); - }); -} - -missingGlobal('buffer', 'Please use HEAP8.buffer or wasmMemory.buffer'); -missingGlobal('asm', 'Please use wasmExports instead'); - -function missingLibrarySymbol(sym) { - hookGlobalSymbolAccess(sym, () => { - // Can't `abort()` here because it would break code that does runtime - // checks. e.g. `if (typeof SDL === 'undefined')`. - var msg = `\`${sym}\` is a library symbol and not included by default; add it to your library.js __deps or to DEFAULT_LIBRARY_FUNCS_TO_INCLUDE on the command line`; - // DEFAULT_LIBRARY_FUNCS_TO_INCLUDE requires the name as it appears in - // library.js, which means $name for a JS name with no prefix, or name - // for a JS name like _name. - var librarySymbol = sym; - if (!librarySymbol.startsWith('_')) { - librarySymbol = '$' + sym; - } - msg += ` (e.g. -sDEFAULT_LIBRARY_FUNCS_TO_INCLUDE='${librarySymbol}')`; - if (isExportedByForceFilesystem(sym)) { - msg += '. Alternatively, forcing filesystem support (-sFORCE_FILESYSTEM) can export this for you'; - } - warnOnce(msg); - }); - - // Any symbol that is not included from the JS library is also (by definition) - // not exported on the Module object. - unexportedRuntimeSymbol(sym); -} - -function unexportedRuntimeSymbol(sym) { - if (!Object.getOwnPropertyDescriptor(Module, sym)) { - Object.defineProperty(Module, sym, { - configurable: true, - get() { - var msg = `'${sym}' was not exported. add it to EXPORTED_RUNTIME_METHODS (see the Emscripten FAQ)`; - if (isExportedByForceFilesystem(sym)) { - msg += '. Alternatively, forcing filesystem support (-sFORCE_FILESYSTEM) can export this for you'; - } - abort(msg); - }, - }); - } -} - -// end include: runtime_debug.js -// include: runtime_stack_check.js -const stackCookie1 = 0x02135467; -const stackCookie2 = 0x89BACDFE; - -// Initializes the stack cookie. Called at the startup of main and at the startup of each thread in pthreads mode. -function writeStackCookie() { - var max = _emscripten_stack_get_end(); - assert((max & 3) == 0); - // If the stack ends at address zero we write our cookies 4 bytes into the - // stack. This prevents interference with SAFE_HEAP and ASAN which also - // monitor writes to address zero. - if (max == 0) { - max += 4; - } - // The stack grow downwards towards _emscripten_stack_get_end. - // We write cookies to the final two words in the stack and detect if they are - // ever overwritten. - HEAPU32[((max)>>2)] = stackCookie1; - HEAPU32[(((max)+(4))>>2)] = stackCookie2; - // Also test the global address 0 for integrity. - HEAPU32[((0)>>2)] = 1668509029; -} - -function u32ToHexString(num) { - return '0x' + (num >>> 0).toString(16).padStart(8, '0'); -} - -function checkStackCookie() { - if (ABORT) return; - var max = _emscripten_stack_get_end(); - // See writeStackCookie(). - if (max == 0) { - max += 4; - } - var val1 = HEAPU32[((max)>>2)]; - var val2 = HEAPU32[(((max)+(4))>>2)]; - if (val1 != stackCookie1 || val2 != stackCookie2) { - abort(`Stack overflow! Stack cookie has been overwritten at ${ptrToString(max)}, expected hex dwords ${u32ToHexString(stackCookie2)} and ${u32ToHexString(stackCookie1)}, but received ${u32ToHexString(val2)} ${u32ToHexString(val1)}`); - } - // Also test the global address 0 for integrity. - if (HEAPU32[((0)>>2)] != 0x63736d65 /* 'emsc' */) { - abort('Runtime error: The application has corrupted its heap memory area (address zero)!'); - } -} -// end include: runtime_stack_check.js -// Memory management - -var runtimeInitialized = false; - - - -// When ALLOW_MEMORY_GROWTH is enabled, the conversion from Wasm -// memory to ArrayBuffer requires some additional logic. -function getMemoryBuffer() { - return wasmMemory.buffer; -} - -function updateMemoryViews() { - // If we already have a heap that is resizeable/growable buffer we don't - // need to do anything in updateMemoryViews. - if (HEAP8?.buffer?.resizable) return; - var b = getMemoryBuffer(); - HEAP8 = new Int8Array(b); - HEAP16 = new Int16Array(b); - HEAPU8 = new Uint8Array(b); - - HEAP32 = new Int32Array(b); - HEAPU32 = new Uint32Array(b); - - HEAPF64 = new Float64Array(b); - HEAP64 = new BigInt64Array(b); - -} - -// include: memoryprofiler.js -// end include: memoryprofiler.js -// end include: runtime_common.js -assert(globalThis.Int32Array && globalThis.Float64Array && Int32Array.prototype.subarray && Int32Array.prototype.set, - 'JS engine does not provide full typed array support'); - -function preRun() { - var preRun = Module['preRun']; - if (preRun) { - if (typeof preRun == 'function') preRun = [preRun]; - onPreRuns.push(...preRun); - } - consumedModuleProp('preRun'); - // Begin ATPRERUNS hooks - callRuntimeCallbacks(onPreRuns); - // End ATPRERUNS hooks -} - -function initRuntime() { - assert(!runtimeInitialized); - runtimeInitialized = true; - - checkStackCookie(); - - // No ATINITS hooks - - wasmExports['__wasm_call_ctors'](); - - // No ATPOSTCTORS hooks - - checkStackCookie(); -} - -function postRun() { - checkStackCookie(); - - var postRun = Module['postRun']; - if (postRun) { - if (typeof postRun == 'function') postRun = [postRun]; - onPostRuns.push(...postRun); - } - consumedModuleProp('postRun'); - - // Begin ATPOSTRUNS hooks - callRuntimeCallbacks(onPostRuns); - // End ATPOSTRUNS hooks -} - -/** - * @param {string|number=} what - */ -function abort(what) { - Module['onAbort']?.(what); - - what = `Aborted(${what})`; - // TODO(sbc): Should we remove printing and leave it up to whoever - // catches the exception? - err(what); - - ABORT = true; - - // Use a wasm runtime error, because a JS error might be seen as a foreign - // exception, which means we'd run destructors on it. We need the error to - // simply make the program stop. - // FIXME This approach does not work in Wasm EH because it currently does not assume - // all RuntimeErrors are from traps; it decides whether a RuntimeError is from - // a trap or not based on a hidden field within the object. So at the moment - // we don't have a way of throwing a wasm trap from JS. TODO Make a JS API that - // allows this in the wasm spec. - - // Suppress closure compiler warning here. Closure compiler's builtin extern - // definition for WebAssembly.RuntimeError claims it takes no arguments even - // though it can. - // TODO(https://github.com/google/closure-compiler/pull/3913): Remove if/when upstream closure gets fixed. - /** @suppress {checkTypes} */ - var e = new WebAssembly.RuntimeError(what); - - // Throw the error whether or not MODULARIZE is set because abort is used - // in code paths apart from instantiation where an exception is expected - // to be thrown when abort is called. - throw e; -} - -// show errors on likely calls to FS when it was not included -function fsMissing() { - abort('Filesystem support (FS) was not included. The problem is that you are using files from JS, but files were not used from C/C++, so filesystem support was not auto-included. You can force-include filesystem support with -sFORCE_FILESYSTEM'); -} -var FS = { - init: fsMissing, - createDataFile: fsMissing, - createPreloadedFile: fsMissing, - createLazyFile: fsMissing, - open: fsMissing, - mkdev: fsMissing, - registerDevice: fsMissing, - analyzePath: fsMissing, - ErrnoError: fsMissing, -}; - - -function createExportWrapper(name, func, nargs) { - assert(func); - return (...args) => { - assert(runtimeInitialized, `native function \`${name}\` called before runtime initialization`); - // Only assert for too many arguments. Too few can be valid since the missing arguments will be zero filled. - assert(args.length <= nargs, `native function \`${name}\` called with ${args.length} args but expects ${nargs}`); - return func(...args); - }; -} - -var wasmBinaryFile; - -function findWasmBinary() { - return locateFile('demo.wasm'); -} - -function getBinarySync(file) { - if (readBinary) { - return readBinary(file); - } - // Throwing a plain string here, even though it not normally advisable since - // this gets turning into an `abort` in instantiateArrayBuffer. - throw 'both async and sync fetching of the wasm failed'; -} - -async function getWasmBinary(binaryFile) { - // If we don't have the binary yet, load it asynchronously using readAsync. - if (!wasmBinary) { - // Fetch the binary using readAsync - try { - var response = await readAsync(binaryFile); - return new Uint8Array(response); - } catch { - // Fall back to getBinarySync below; - } - } - - // Otherwise, getBinarySync should be able to get it synchronously - return getBinarySync(binaryFile); -} - -async function instantiateArrayBuffer(binaryFile, imports) { - try { - var binary = await getWasmBinary(binaryFile); - var instance = await WebAssembly.instantiate(binary, imports); - return instance; - } catch (reason) { - err(`failed to asynchronously prepare wasm: ${reason}`); - - // Warn on some common problems. - if (isFileURI(binaryFile)) { - err(`warning: Loading from a file URI (${binaryFile}) is not supported in most browsers. See https://emscripten.org/docs/getting_started/FAQ.html#how-do-i-run-a-local-webserver-for-testing-why-does-my-program-stall-in-downloading-or-preparing`); - } - abort(reason); - } -} - -async function instantiateAsync(binary, binaryFile, imports) { - if (!binary - ) { - try { - var response = fetch(binaryFile, { credentials: 'same-origin' }); - var instantiationResult = await WebAssembly.instantiateStreaming(response, imports); - return instantiationResult; - } catch (reason) { - // We expect the most common failure cause to be a bad MIME type for the binary, - // in which case falling back to ArrayBuffer instantiation should work. - err(`wasm streaming compile failed: ${reason}`); - err('falling back to ArrayBuffer instantiation'); - // fall back of instantiateArrayBuffer below - }; - } - return instantiateArrayBuffer(binaryFile, imports); -} - -function getWasmImports() { - // prepare imports - var imports = { - 'env': wasmImports, - 'wasi_snapshot_preview1': wasmImports, - }; - return imports; -} - -// Create the wasm instance. -// Receives the wasm imports, returns the exports. -async function createWasm() { - // Load the wasm module and create an instance of using native support in the JS engine. - // handle a generated wasm instance, receiving its exports and - // performing other necessary setup - function receiveInstance(instance) { - wasmExports = instance.exports; - - assignWasmExports(wasmExports); - - updateMemoryViews(); - - return wasmExports; - } - - // Prefer streaming instantiation if available. - // Async compilation can be confusing when an error on the page overwrites Module - // (for example, if the order of elements is wrong, and the one defining Module is - // later), so we save Module and check it later. - var trueModule = Module; - function receiveInstantiationResult(result) { - // 'result' is a ResultObject object which has both the module and instance. - // receiveInstance() will swap in the exports (to Module.asm) so they can be called - assert(Module === trueModule, 'the Module object should not be replaced during async compilation - perhaps the order of HTML elements is wrong?'); - trueModule = null; - // TODO: Due to Closure regression https://github.com/google/closure-compiler/issues/3193, the above line no longer optimizes out down to the following line. - // When the regression is fixed, can restore the above PTHREADS-enabled path. - return receiveInstance(result['instance']); - } - - var info = getWasmImports(); - - // User shell pages can write their own Module.instantiateWasm = function(imports, successCallback) callback - // to manually instantiate the Wasm module themselves. This allows pages to - // run the instantiation parallel to any other async startup actions they are - // performing. - // Also pthreads and wasm workers initialize the wasm instance through this - // path. - var instantiateWasm = Module['instantiateWasm']; - if (instantiateWasm) { - return new Promise((resolve) => { - try { - instantiateWasm(info, (inst) => resolve(receiveInstance(inst))); - } catch(e) { - err(`Module.instantiateWasm callback failed with error: ${e}`); - throw e; - } - }); - } - - wasmBinaryFile ??= findWasmBinary(); - var result = await instantiateAsync(wasmBinary, wasmBinaryFile, info); - var exports = receiveInstantiationResult(result); - return exports; -} - -// end include: preamble.js - -// Begin JS library code - - - class ExitStatus { - name = 'ExitStatus'; - constructor(status) { - this.message = `Program terminated with exit(${status})`; - this.status = status; - } - } - - /** @type {!Int32Array} */ - var HEAP32; - - /** @type {!Int8Array} */ - var HEAP8; - - /** @type {!Uint32Array} */ - var HEAPU32; - - var callRuntimeCallbacks = (callbacks) => { - while (callbacks.length > 0) { - // Pass the module as the first argument. - callbacks.shift()(Module); - } - }; - var onPostRuns = []; - var addOnPostRun = (cb) => onPostRuns.push(cb); - - var onPreRuns = []; - var addOnPreRun = (cb) => onPreRuns.push(cb); - - - var noExitRuntime = true; - - function ptrToString(ptr) { - assert(typeof ptr === 'number', `ptrToString expects a number, got ${typeof ptr}`); - // Convert to 32-bit unsigned value - ptr >>>= 0; - return '0x' + ptr.toString(16).padStart(8, '0'); - } - - var stackRestore = (val) => __emscripten_stack_restore(val); - - var stackSave = () => _emscripten_stack_get_current(); - - var warnOnce = (text) => { - warnOnce.shown ||= {}; - if (!warnOnce.shown[text]) { - warnOnce.shown[text] = 1; - err(text); - } - }; - - - - var UTF8Decoder = globalThis.TextDecoder && new TextDecoder(); - - - /** - * heapOrArray is either a regular array, or a JavaScript typed array view. - * @param {number} idx - * @param {number=} maxBytesToRead - * @param {boolean=} ignoreNul - * @return {number} - */ - var findStringEnd = (heapOrArray, idx, maxBytesToRead, ignoreNul) => { - var maxIdx = idx + maxBytesToRead; - if (ignoreNul) return maxIdx; - // TextDecoder needs to know the byte length in advance, it doesn't stop on - // null terminator by itself. - // As a tiny code save trick, compare idx against maxIdx using a negation, - // so that maxBytesToRead=undefined/NaN means Infinity. - while (heapOrArray[idx] && !(idx >= maxIdx)) ++idx; - return idx; - }; - - - /** - * Given a pointer 'idx' to a null-terminated UTF8-encoded string in the given - * array that contains uint8 values, returns a copy of that string as a - * Javascript String object. - * heapOrArray is either a regular array, or a JavaScript typed array view. - * @param {number=} idx - * @param {number=} maxBytesToRead - * @param {boolean=} ignoreNul - If true, the function will not stop on a NUL character. - * @return {string} - */ - var UTF8ArrayToString = (heapOrArray, idx = 0, maxBytesToRead, ignoreNul) => { - - var endPtr = findStringEnd(heapOrArray, idx, maxBytesToRead, ignoreNul); - - // When using conditional TextDecoder, skip it for short strings as the overhead of the native call is not worth it. - if (endPtr - idx > 16 && heapOrArray.buffer && UTF8Decoder) { - return UTF8Decoder.decode(heapOrArray.subarray(idx, endPtr)); - } - var str = ''; - while (idx < endPtr) { - // For UTF8 byte structure, see: - // http://en.wikipedia.org/wiki/UTF-8#Description - // https://www.ietf.org/rfc/rfc2279.txt - // https://tools.ietf.org/html/rfc3629 - var u0 = heapOrArray[idx++]; - if (!(u0 & 0x80)) { str += String.fromCharCode(u0); continue; } - var u1 = heapOrArray[idx++] & 63; - if ((u0 & 0xE0) == 0xC0) { str += String.fromCharCode(((u0 & 31) << 6) | u1); continue; } - var u2 = heapOrArray[idx++] & 63; - if ((u0 & 0xF0) == 0xE0) { - u0 = ((u0 & 15) << 12) | (u1 << 6) | u2; - } else { - if ((u0 & 0xF8) != 0xF0) warnOnce(`Invalid UTF-8 leading byte ${ptrToString(u0)} encountered when deserializing a UTF-8 string in wasm memory to a JS string!`); - u0 = ((u0 & 7) << 18) | (u1 << 12) | (u2 << 6) | (heapOrArray[idx++] & 63); - } - - if (u0 < 0x10000) { - str += String.fromCharCode(u0); - } else { - var ch = u0 - 0x10000; - str += String.fromCharCode(0xD800 | (ch >> 10), 0xDC00 | (ch & 0x3FF)); - } - } - return str; - }; - - /** @type {!Uint8Array} */ - var HEAPU8; - - /** - * Given a pointer 'ptr' to a null-terminated UTF8-encoded string in the - * emscripten HEAP, returns a copy of that string as a Javascript String object. - * - * @param {number} ptr - * @param {number=} maxBytesToRead - An optional length that specifies the - * maximum number of bytes to read. You can omit this parameter to scan the - * string until the first 0 byte. If maxBytesToRead is passed, and the string - * at [ptr, ptr+maxBytesToReadr[ contains a null byte in the middle, then the - * string will cut short at that byte index. - * @param {boolean=} ignoreNul - If true, the function will not stop on a NUL character. - * @return {string} - */ - var UTF8ToString = (ptr, maxBytesToRead, ignoreNul) => { - assert(typeof ptr == 'number', `UTF8ToString expects a number (got ${typeof ptr})`); - return ptr ? UTF8ArrayToString(HEAPU8, ptr, maxBytesToRead, ignoreNul) : ''; - }; - var ___assert_fail = (condition, filename, line, func) => - abort(`Assertion failed: ${UTF8ToString(condition)}, at: ` + [filename ? UTF8ToString(filename) : 'unknown filename', line, func ? UTF8ToString(func) : 'unknown function']); - - var __abort_js = () => - abort('native code called abort()'); - - var _emscripten_get_now = () => performance.now(); - - var _emscripten_date_now = () => Date.now(); - - var nowIsMonotonic = 1; - - var checkWasiClock = (clock_id) => clock_id >= 0 && clock_id <= 3; - - var INT53_MAX = 9007199254740992; - - var INT53_MIN = -9007199254740992; - var bigintToI53Checked = (num) => (num < INT53_MIN || num > INT53_MAX) ? NaN : Number(num); - - /** not-@type {!BigInt64Array} */ - var HEAP64; - function _clock_time_get(clk_id, ignored_precision, ptime) { - ignored_precision = bigintToI53Checked(ignored_precision); - - - if (!checkWasiClock(clk_id)) { - return 28; - } - var now; - // all wasi clocks but realtime are monotonic - if (clk_id === 0) { - now = _emscripten_date_now(); - } else if (nowIsMonotonic) { - now = _emscripten_get_now(); - } else { - return 52; - } - // "now" is in ms, and wasi times are in ns. - var nsec = Math.round(now * 1000 * 1000); - HEAP64[((ptime)>>3)] = BigInt(nsec); - return 0; - ; - } - - - var _emscripten_set_main_loop_timing = (mode, value) => { - MainLoop.timingMode = mode; - MainLoop.timingValue = value; - - if (!MainLoop.func) { - err('emscripten_set_main_loop_timing: Cannot set timing mode for main loop since a main loop does not exist! Call emscripten_set_main_loop first to set one up.'); - return 1; // Return non-zero on failure, can't set timing mode when there is no main loop. - } - - if (mode == 0) { - MainLoop.scheduler = function MainLoop_scheduler_setTimeout() { - var timeUntilNextTick = Math.max(0, MainLoop.tickStartTime + value - _emscripten_get_now())|0; - setTimeout(MainLoop.runner, timeUntilNextTick); // doing this each time means that on exception, we stop - }; - } else if (mode == 1) { - MainLoop.scheduler = function MainLoop_scheduler_rAF() { - MainLoop.requestAnimationFrame(MainLoop.runner); - }; - } else { - assert(mode == 2); - if (!MainLoop.setImmediate) { - if (globalThis.scheduler) { - // Some modern browsers implement scheduler.postTask, but not all. - MainLoop.setImmediate = scheduler.postTask.bind(scheduler); - } else { - // Emulate setImmediate. (note: not a complete polyfill, we don't emulate clearImmediate() to keep code size to minimum, since not needed) - var setImmediates = []; - var emscriptenMainLoopMessageId = 'setimmediate'; - /** @param {Event} event */ - var MainLoop_setImmediate_messageHandler = (event) => { - if (event.data === emscriptenMainLoopMessageId) { - event.stopPropagation(); - setImmediates.shift()(); - } - }; - addEventListener('message', MainLoop_setImmediate_messageHandler, true); - MainLoop.setImmediate = /** @type{function(function(): ?, ...?): number} */((func) => { - setImmediates.push(func); - if (ENVIRONMENT_IS_WORKER) { - // The postMessge API in a Worker, sends message to the main - // thread and does not support the `targetOrigin` (*) argument. - postMessage(emscriptenMainLoopMessageId); - } else { - postMessage(emscriptenMainLoopMessageId, '*'); - } - }); - } - } - MainLoop.scheduler = function MainLoop_scheduler_setImmediate() { - MainLoop.setImmediate(MainLoop.runner); - }; - } - return 0; - }; - - - - var runtimeKeepaliveCounter = 0; - var keepRuntimeAlive = () => noExitRuntime || runtimeKeepaliveCounter > 0; - var _proc_exit = (code) => { - EXITSTATUS = code; - if (!keepRuntimeAlive()) { - Module['onExit']?.(code); - ABORT = true; - } - quit_(code, new ExitStatus(code)); - }; - - - /** @param {boolean|number=} implicit */ - var exitJS = (status, implicit) => { - EXITSTATUS = status; - - checkUnflushedContent(); - - // if exit() was called explicitly, warn the user if the runtime isn't actually being shut down - if (keepRuntimeAlive() && !implicit) { - var msg = `program exited (with status: ${status}), but keepRuntimeAlive() is set (counter=${runtimeKeepaliveCounter}) due to an async operation, so halting execution but not exiting the runtime or preventing further async execution (you can use emscripten_force_exit, if you want to force a true shutdown)`; - err(msg); - } - - _proc_exit(status); - }; - var _exit = exitJS; - - var handleException = (e) => { - // Certain exception types we do not treat as errors since they are used for - // internal control flow. - // 1. ExitStatus, which is thrown by exit() - // 2. "unwind", which is thrown by emscripten_unwind_to_js_event_loop() and others - // that wish to return to JS event loop. - if (e instanceof ExitStatus || e == 'unwind') { - return EXITSTATUS; - } - checkStackCookie(); - if (e instanceof WebAssembly.RuntimeError) { - if (_emscripten_stack_get_current() <= 0) { - err('Stack overflow detected. You can try increasing -sSTACK_SIZE (currently set to 65536)'); - } - } - quit_(1, e); - }; - - var maybeExit = () => { - if (!keepRuntimeAlive()) { - try { - _exit(EXITSTATUS); - } catch (e) { - handleException(e); - } - } - }; - - /** - * @param {number=} arg - * @param {boolean=} noSetTiming - */ - var setMainLoop = (iterFunc, fps, simulateInfiniteLoop, arg, noSetTiming) => { - assert(!MainLoop.func, 'emscripten_set_main_loop: there can only be one main loop function at once') - MainLoop.func = iterFunc; - MainLoop.arg = arg; - - var thisMainLoopId = MainLoop.currentlyRunningMainloop; - function checkIsRunning() { - if (thisMainLoopId < MainLoop.currentlyRunningMainloop) { - maybeExit(); - return false; - } - return true; - } - - // We create the loop runner here but it is not actually running until - // _emscripten_set_main_loop_timing is called (which might happen at a - // later time). - MainLoop.runner = function MainLoop_runner() { - if (ABORT) return; - if (MainLoop.queue.length > 0) { - var start = Date.now(); - var blocker = MainLoop.queue.shift(); - blocker.func(blocker.arg); - if (MainLoop.remainingBlockers) { - var remaining = MainLoop.remainingBlockers; - var next = remaining%1 == 0 ? remaining-1 : Math.floor(remaining); - if (blocker.counted) { - MainLoop.remainingBlockers = next; - } else { - // not counted, but move the progress along a tiny bit - next = next + 0.5; // do not steal all the next one's progress - MainLoop.remainingBlockers = (8*remaining + next)/9; - } - } - MainLoop.updateStatus(); - - // catches pause/resume main loop from blocker execution - if (!checkIsRunning()) return; - - setTimeout(MainLoop.runner, 0); - return; - } - - // catch pauses from non-main loop sources - if (!checkIsRunning()) return; - - // Implement very basic swap interval control - MainLoop.currentFrameNumber = MainLoop.currentFrameNumber + 1 | 0; - if (MainLoop.timingMode == 1 && MainLoop.timingValue > 1 && MainLoop.currentFrameNumber % MainLoop.timingValue != 0) { - // Not the scheduled time to render this frame - skip. - MainLoop.scheduler(); - return; - } else if (MainLoop.timingMode == 0) { - MainLoop.tickStartTime = _emscripten_get_now(); - if (Module['ctx']) { - warnOnce('Looks like you are rendering without using requestAnimationFrame for the main loop. You should use 0 for the frame rate in emscripten_set_main_loop in order to use requestAnimationFrame, as that can greatly improve your frame rates!'); - } - } - - MainLoop.runIter(iterFunc); - - // catch pauses from the main loop itself - if (!checkIsRunning()) return; - - MainLoop.scheduler(); - } - - if (!noSetTiming) { - if (fps > 0) { - _emscripten_set_main_loop_timing(0, 1000.0 / fps); - } else { - // Do rAF by rendering each frame (no decimating) - _emscripten_set_main_loop_timing(1, 1); - } - - MainLoop.scheduler(); - } - - if (simulateInfiniteLoop) { - throw 'unwind'; - } - }; - - - var callUserCallback = (func) => { - if (ABORT) { - err('user callback triggered after runtime exited or application aborted. Ignoring.'); - return; - } - try { - return func(); - } catch (e) { - handleException(e); - } finally { - maybeExit(); - } - }; - - var MainLoop = { - func:null, - scheduler:null, - currentlyRunningMainloop:0, - arg:0, - timingMode:0, - timingValue:0, - currentFrameNumber:0, - queue:[], - preMainLoop:[], - postMainLoop:[], - pause() { - if (MainLoop.scheduler) { - MainLoop.scheduler = null; - // Incrementing this signals the previous main loop that it's now become old, and it must return. - MainLoop.currentlyRunningMainloop++; - - } - }, - resume() { - MainLoop.currentlyRunningMainloop++; - var timingMode = MainLoop.timingMode; - var timingValue = MainLoop.timingValue; - var func = MainLoop.func; - MainLoop.func = null; - // do not set timing and call scheduler, we will do it on the next lines - setMainLoop(func, 0, false, MainLoop.arg, true); - _emscripten_set_main_loop_timing(timingMode, timingValue); - MainLoop.scheduler(); - }, - updateStatus() { - if (Module['setStatus']) { - var message = Module['statusMessage'] || 'Please wait...'; - var remaining = MainLoop.remainingBlockers ?? 0; - var expected = MainLoop.expectedBlockers ?? 0; - if (remaining) { - if (remaining < expected) { - Module['setStatus'](`{message} ({expected - remaining}/{expected})`); - } else { - Module['setStatus'](message); - } - } else { - Module['setStatus'](''); - } - } - }, - init() { - }, - runIter(func) { - if (ABORT) return; - for (var pre of MainLoop.preMainLoop) { - if (pre() === false) { - return; // |return false| skips a frame - } - } - callUserCallback(func); - for (var post of MainLoop.postMainLoop) { - post(); - } - checkStackCookie(); - }, - nextRAF:0, - fakeRequestAnimationFrame(func) { - // try to keep 60fps between calls to here - var now = Date.now(); - if (!MainLoop.nextRAF) { - MainLoop.nextRAF = now + 1000/60; - } else { - while (now + 2 >= MainLoop.nextRAF) { // fudge a little, to avoid timer jitter causing us to do lots of delay:0 - MainLoop.nextRAF += 1000/60; - } - } - var delay = Math.max(MainLoop.nextRAF - now, 0); - setTimeout(func, delay); - }, - requestAnimationFrame(func) { - if (globalThis.requestAnimationFrame) { - requestAnimationFrame(func); - } else { - MainLoop.fakeRequestAnimationFrame(func); - } - }, - }; - var _emscripten_cancel_main_loop = () => { - MainLoop.pause(); - MainLoop.func = null; - }; - - - var getHeapMax = () => - // Stay one Wasm page short of 4GB: while e.g. Chrome is able to allocate - // full 4GB Wasm memories, the size will wrap back to 0 bytes in Wasm side - // for any code that deals with heap sizes, which would require special - // casing all heap size related code to treat 0 specially. - 2147483648; - - var alignMemory = (size, alignment) => { - assert(alignment, 'alignment argument is required'); - return Math.ceil(size / alignment) * alignment; - }; - - var growMemory = (size) => { - var oldHeapSize = wasmMemory.buffer.byteLength; - var pages = ((size - oldHeapSize + 65535) / 65536) | 0; - try { - // round size grow request up to wasm page size (fixed 64KB per spec) - wasmMemory.grow(pages); // .grow() takes a delta compared to the previous size - updateMemoryViews(); - return 1 /*success*/; - } catch(e) { - err(`growMemory: Attempted to grow heap from ${oldHeapSize} bytes to ${size} bytes, but got error: ${e}`); - } - // implicit 0 return to save code size (caller will cast 'undefined' into 0 - // anyhow) - }; - - var _emscripten_resize_heap = (requestedSize) => { - var oldSize = HEAPU8.length; - // With CAN_ADDRESS_2GB or MEMORY64, pointers are already unsigned. - requestedSize >>>= 0; - // With multithreaded builds, races can happen (another thread might increase the size - // in between), so return a failure, and let the caller retry. - assert(requestedSize > oldSize); - - // Memory resize rules: - // 1. Always increase heap size to at least the requested size, rounded up - // to next page multiple. - // 2a. If MEMORY_GROWTH_LINEAR_STEP == -1, excessively resize the heap - // geometrically: increase the heap size according to - // MEMORY_GROWTH_GEOMETRIC_STEP factor (default +20%), At most - // overreserve by MEMORY_GROWTH_GEOMETRIC_CAP bytes (default 96MB). - // 2b. If MEMORY_GROWTH_LINEAR_STEP != -1, excessively resize the heap - // linearly: increase the heap size by at least - // MEMORY_GROWTH_LINEAR_STEP bytes. - // 3. Max size for the heap is capped at 2048MB-WASM_PAGE_SIZE, or by - // MAXIMUM_MEMORY, or by ASAN limit, depending on which is smallest - // 4. If we were unable to allocate as much memory, it may be due to - // over-eager decision to excessively reserve due to (3) above. - // Hence if an allocation fails, cut down on the amount of excess - // growth, in an attempt to succeed to perform a smaller allocation. - - // A limit is set for how much we can grow. We should not exceed that - // (the wasm binary specifies it, so if we tried, we'd fail anyhow). - var maxHeapSize = getHeapMax(); - if (requestedSize > maxHeapSize) { - err(`Cannot enlarge memory, requested ${requestedSize} bytes, but the limit is ${maxHeapSize} bytes!`); - return false; - } - - // Loop through potential heap size increases. If we attempt a too eager - // reservation that fails, cut down on the attempted size and reserve a - // smaller bump instead. (max 3 times, chosen somewhat arbitrarily) - for (var cutDown = 1; cutDown <= 4; cutDown *= 2) { - var overGrownHeapSize = oldSize * (1 + 0.2 / cutDown); // ensure geometric growth - // but limit overreserving (default to capping at +96MB overgrowth at most) - overGrownHeapSize = Math.min(overGrownHeapSize, requestedSize + 100663296 ); - - var newSize = Math.min(maxHeapSize, alignMemory(Math.max(requestedSize, overGrownHeapSize), 65536)); - - var replacement = growMemory(newSize); - if (replacement) { - - return true; - } - } - err(`Failed to grow the heap from ${oldSize} bytes to ${newSize} bytes, not enough memory!`); - return false; - }; - - var onExits = []; - var addOnExit = (cb) => onExits.push(cb); - var JSEvents = { - removeAllEventListeners() { - while (JSEvents.eventHandlers.length) { - JSEvents._removeHandler(JSEvents.eventHandlers.length - 1); - } - JSEvents.deferredCalls = []; - }, - inEventHandler:0, - deferredCalls:[], - deferCall(targetFunction, precedence, argsList) { - function arraysHaveEqualContent(arrA, arrB) { - if (arrA.length != arrB.length) return false; - - for (var i = 0; i < arrA.length; i++) { - if (arrA[i] != arrB[i]) return false; - } - return true; - } - // Test if the given call was already queued, and if so, don't add it again. - for (var call of JSEvents.deferredCalls) { - if (call.targetFunction == targetFunction && arraysHaveEqualContent(call.argsList, argsList)) { - return; - } - } - JSEvents.deferredCalls.push({ - targetFunction, - precedence, - argsList - }); - - JSEvents.deferredCalls.sort((x,y) => x.precedence - y.precedence); - }, - removeDeferredCalls(targetFunction) { - JSEvents.deferredCalls = JSEvents.deferredCalls.filter((call) => call.targetFunction != targetFunction); - }, - canPerformEventHandlerRequests() { - // Browsers that support navigator.userActivation.isActive: https://developer.mozilla.org/en-US/docs/Web/API/UserActivation/isActive - if (navigator.userActivation) { - // Verify against transient activation status from UserActivation API - // whether it is possible to perform a request here without needing to defer. See - // https://developer.mozilla.org/en-US/docs/Web/Security/User_activation#transient_activation - // and https://caniuse.com/mdn-api_useractivation - return navigator.userActivation.isActive; - } - - return JSEvents.inEventHandler && JSEvents.currentEventHandler.allowsDeferredCalls; - }, - runDeferredCalls() { - if (!JSEvents.canPerformEventHandlerRequests()) { - return; - } - var deferredCalls = JSEvents.deferredCalls; - JSEvents.deferredCalls = []; - for (var call of deferredCalls) { - call.targetFunction(...call.argsList); - } - }, - eventHandlers:[], - removeAllHandlersOnTarget:(target, eventTypeString) => { - for (var i = 0; i < JSEvents.eventHandlers.length; ++i) { - if (JSEvents.eventHandlers[i].target == target && - (!eventTypeString || eventTypeString == JSEvents.eventHandlers[i].eventTypeString)) { - JSEvents._removeHandler(i--); - } - } - }, - _removeHandler(i) { - var h = JSEvents.eventHandlers[i]; - h.target.removeEventListener(h.eventTypeString, h.eventListenerFunc, h.useCapture); - JSEvents.eventHandlers.splice(i, 1); - }, - registerOrRemoveHandler(eventHandler) { - if (!eventHandler.target) { - err('registerOrRemoveHandler: the target element for event handler registration does not exist, when processing the following event handler registration:'); - console.dir(eventHandler); - return -4; - } - if (eventHandler.callbackfunc) { - eventHandler.eventListenerFunc = function(event) { - // Increment nesting count for the event handler. - ++JSEvents.inEventHandler; - JSEvents.currentEventHandler = eventHandler; - // Process any old deferred calls the user has placed. - JSEvents.runDeferredCalls(); - // Process the actual event, calls back to user C code handler. - eventHandler.handlerFunc(event); - // Process any new deferred calls that were placed right now from this event handler. - JSEvents.runDeferredCalls(); - // Out of event handler - restore nesting count. - --JSEvents.inEventHandler; - }; - - eventHandler.target.addEventListener(eventHandler.eventTypeString, - eventHandler.eventListenerFunc, - eventHandler.useCapture); - JSEvents.eventHandlers.push(eventHandler); - } else { - for (var i = 0; i < JSEvents.eventHandlers.length; ++i) { - if (JSEvents.eventHandlers[i].target == eventHandler.target - && JSEvents.eventHandlers[i].eventTypeString == eventHandler.eventTypeString) { - JSEvents._removeHandler(i--); - } - } - } - return 0; - }, - removeSingleHandler(eventHandler) { - let success = false; - for (let i = 0; i < JSEvents.eventHandlers.length; ++i) { - const handler = JSEvents.eventHandlers[i]; - if (handler.target === eventHandler.target - && handler.eventTypeId === eventHandler.eventTypeId - && handler.callbackfunc === eventHandler.callbackfunc - && handler.userData === eventHandler.userData) { - // in some very rare cases (ex: Safari / fullscreen events), there is more than 1 handler (eventTypeString is different) - JSEvents._removeHandler(i--); - success = true; - } - } - return success ? 0 : -5; - }, - getNodeNameForTarget(target) { - if (target == window) return '#window'; - if (target == screen) return '#screen'; - return target?.nodeName ?? ''; - }, - fullscreenEnabled() { - return document.fullscreenEnabled - // Safari 13.0.3 on macOS Catalina 10.15.1 still ships with prefixed webkitFullscreenEnabled. - // TODO: If Safari at some point ships with unprefixed version, update the version check above. - ?? document.webkitFullscreenEnabled - ; - }, - }; - - var maybeCStringToJsString = (cString) => { - // 'cString > 2' checks if the input is a number, and isn't of the special - // values we accept here, EMSCRIPTEN_EVENT_TARGET_* (which map to 0, 1, 2). - // In other words, if cString > 2 then it's a pointer to a valid place in - // memory, and points to a C string. - return cString > 2 ? UTF8ToString(cString) : cString; - }; - - /** @type {Object} */ - var specialHTMLTargets = [0, document, window]; - var findEventTarget = (target) => { - target = maybeCStringToJsString(target); - var domElement = specialHTMLTargets[target] || document.querySelector(target); - return domElement; - }; - - var stringToUTF8Array = (str, heap, outIdx, maxBytesToWrite) => { - assert(typeof str === 'string', `stringToUTF8Array expects a string (got ${typeof str})`); - // Parameter maxBytesToWrite is not optional. Negative values, 0, null, - // undefined and false each don't write out any bytes. - if (!(maxBytesToWrite > 0)) - return 0; - - var startIdx = outIdx; - var endIdx = outIdx + maxBytesToWrite - 1; // -1 for string null terminator. - for (var i = 0; i < str.length; ++i) { - // For UTF8 byte structure, see http://en.wikipedia.org/wiki/UTF-8#Description - // and https://www.ietf.org/rfc/rfc2279.txt - // and https://tools.ietf.org/html/rfc3629 - var u = str.codePointAt(i); - if (u <= 0x7F) { - if (outIdx >= endIdx) break; - heap[outIdx++] = u; - } else if (u <= 0x7FF) { - if (outIdx + 1 >= endIdx) break; - heap[outIdx++] = 0xC0 | (u >> 6); - heap[outIdx++] = 0x80 | (u & 63); - } else if (u <= 0xFFFF) { - if (outIdx + 2 >= endIdx) break; - heap[outIdx++] = 0xE0 | (u >> 12); - heap[outIdx++] = 0x80 | ((u >> 6) & 63); - heap[outIdx++] = 0x80 | (u & 63); - } else { - if (outIdx + 3 >= endIdx) break; - if (u > 0x10FFFF) warnOnce(`Invalid Unicode code point ${ptrToString(u)} encountered when serializing a JS string to a UTF-8 string in wasm memory! (Valid unicode code points should be in range 0-0x10FFFF).`); - heap[outIdx++] = 0xF0 | (u >> 18); - heap[outIdx++] = 0x80 | ((u >> 12) & 63); - heap[outIdx++] = 0x80 | ((u >> 6) & 63); - heap[outIdx++] = 0x80 | (u & 63); - // Gotcha: if codePoint is over 0xFFFF, it is represented as a surrogate pair in UTF-16. - // We need to manually skip over the second code unit for correct iteration. - i++; - } - } - // Null-terminate the pointer to the buffer. - heap[outIdx] = 0; - return outIdx - startIdx; - }; - - var stringToUTF8 = (str, outPtr, maxBytesToWrite) => { - assert(typeof maxBytesToWrite == 'number', 'stringToUTF8 requires a third parameter that specifies the length of the output buffer'); - return stringToUTF8Array(str, HEAPU8, outPtr, maxBytesToWrite); - }; - - - var wasmTableMirror = []; - - - var getWasmTableEntry = (funcPtr) => { - var func = wasmTableMirror[funcPtr]; - if (!func) { - /** @suppress {checkTypes} */ - wasmTableMirror[funcPtr] = func = wasmTable.get(funcPtr); - } - /** @suppress {checkTypes} */ - assert(wasmTable.get(funcPtr) == func, 'table mirror is out of date'); - return func; - }; - - - - /** @type {!Float64Array} */ - var HEAPF64; - var registerKeyEventCallback = (target, userData, useCapture, callbackfunc, eventTypeId, eventTypeString, targetThread) => { - var eventSize = 160; - JSEvents.keyEvent ||= _malloc(eventSize); - - var keyEventHandlerFunc = (e) => { - assert(e); - - var keyEventData = JSEvents.keyEvent; - HEAPF64[((keyEventData)>>3)] = e.timeStamp; - - var idx = ((keyEventData)>>2); - - HEAP32[idx + 2] = e.location; - HEAP8[keyEventData + 12] = e.ctrlKey; - HEAP8[keyEventData + 13] = e.shiftKey; - HEAP8[keyEventData + 14] = e.altKey; - HEAP8[keyEventData + 15] = e.metaKey; - HEAP8[keyEventData + 16] = e.repeat; - HEAP32[idx + 5] = e.charCode; - HEAP32[idx + 6] = e.keyCode; - HEAP32[idx + 7] = e.which; - stringToUTF8(e.key ?? '', keyEventData + 32, 32); - stringToUTF8(e.code ?? '', keyEventData + 64, 32); - stringToUTF8(e.char ?? '', keyEventData + 96, 32); - stringToUTF8(e.locale ?? '', keyEventData + 128, 32); - - if (getWasmTableEntry(callbackfunc)(eventTypeId, keyEventData, userData)) e.preventDefault(); - }; - - var eventHandler = { - target: findEventTarget(target), - eventTypeString, - eventTypeId, - userData, - callbackfunc, - handlerFunc: keyEventHandlerFunc, - useCapture - }; - return JSEvents.registerOrRemoveHandler(eventHandler); - }; - var _emscripten_set_keydown_callback_on_thread = (target, userData, useCapture, callbackfunc, targetThread) => - registerKeyEventCallback(target, userData, useCapture, callbackfunc, 2, 'keydown', targetThread); - - var _emscripten_set_keyup_callback_on_thread = (target, userData, useCapture, callbackfunc, targetThread) => - registerKeyEventCallback(target, userData, useCapture, callbackfunc, 3, 'keyup', targetThread); - - - var _emscripten_set_main_loop_arg = (func, arg, fps, simulateInfiniteLoop) => { - var iterFunc = () => getWasmTableEntry(func)(arg); - setMainLoop(iterFunc, fps, simulateInfiniteLoop, arg); - }; - - - var getBoundingClientRect = (e) => specialHTMLTargets.indexOf(e) < 0 ? e.getBoundingClientRect() : {'left':0,'top':0}; - - - /** @type {!Int16Array} */ - var HEAP16; - - - var fillMouseEventData = (eventStruct, e, target) => { - assert(eventStruct % 4 == 0); - HEAPF64[((eventStruct)>>3)] = e.timeStamp; - var idx = ((eventStruct)>>2); - HEAP32[idx + 2] = e.screenX; - HEAP32[idx + 3] = e.screenY; - HEAP32[idx + 4] = e.clientX; - HEAP32[idx + 5] = e.clientY; - HEAP8[eventStruct + 24] = e.ctrlKey; - HEAP8[eventStruct + 25] = e.shiftKey; - HEAP8[eventStruct + 26] = e.altKey; - HEAP8[eventStruct + 27] = e.metaKey; - HEAP16[idx*2 + 14] = e.button; - HEAP16[idx*2 + 15] = e.buttons; - HEAP32[idx + 8] = e.movementX; - HEAP32[idx + 9] = e.movementY; - - // Note: rect contains doubles (truncated to placate SAFE_HEAP, which is the same behaviour when writing to HEAP32 anyway) - var rect = getBoundingClientRect(target); - HEAP32[idx + 10] = e.clientX - (rect.left | 0); - HEAP32[idx + 11] = e.clientY - (rect.top | 0); - }; - - - - var registerMouseEventCallback = (target, userData, useCapture, callbackfunc, eventTypeId, eventTypeString, targetThread) => { - var eventSize = 64; - JSEvents.mouseEvent ||= _malloc(eventSize); - target = findEventTarget(target); - - var mouseEventHandlerFunc = (e) => { - // TODO: Make this access thread safe, or this could update live while app is reading it. - fillMouseEventData(JSEvents.mouseEvent, e, target); - - if (getWasmTableEntry(callbackfunc)(eventTypeId, JSEvents.mouseEvent, userData)) e.preventDefault(); - }; - - var eventHandler = { - target, - allowsDeferredCalls: eventTypeString != 'mousemove' && eventTypeString != 'mouseenter' && eventTypeString != 'mouseleave', // Mouse move events do not allow fullscreen/pointer lock requests to be handled in them! - eventTypeString, - eventTypeId, - userData, - callbackfunc, - handlerFunc: mouseEventHandlerFunc, - useCapture - }; - return JSEvents.registerOrRemoveHandler(eventHandler); - }; - var _emscripten_set_mousedown_callback_on_thread = (target, userData, useCapture, callbackfunc, targetThread) => - registerMouseEventCallback(target, userData, useCapture, callbackfunc, 5, 'mousedown', targetThread); - - var _emscripten_set_mousemove_callback_on_thread = (target, userData, useCapture, callbackfunc, targetThread) => - registerMouseEventCallback(target, userData, useCapture, callbackfunc, 8, 'mousemove', targetThread); - - var _emscripten_set_mouseup_callback_on_thread = (target, userData, useCapture, callbackfunc, targetThread) => - registerMouseEventCallback(target, userData, useCapture, callbackfunc, 6, 'mouseup', targetThread); - - var SYSCALLS = { - varargs:undefined, - getStr(ptr) { - var ret = UTF8ToString(ptr); - return ret; - }, - }; - var _fd_close = (fd) => { - abort('fd_close called without SYSCALLS_REQUIRE_FILESYSTEM'); - }; - - function _fd_seek(fd, offset, whence, newOffset) { - offset = bigintToI53Checked(offset); - - - return 70; - ; - } - - var printCharBuffers = [null,[],[]]; - - var printChar = (stream, curr) => { - var buffer = printCharBuffers[stream]; - assert(buffer); - if (!curr || curr === 10) { - (stream === 1 ? out : err)(UTF8ArrayToString(buffer)); - buffer.length = 0; - } else { - buffer.push(curr); - } - }; - - var flush_NO_FILESYSTEM = () => { - // flush anything remaining in the buffers during shutdown - _fflush(0); - if (printCharBuffers[1].length) printChar(1, 10); - if (printCharBuffers[2].length) printChar(2, 10); - }; - - - - - var _fd_write = (fd, iov, iovcnt, pnum) => { - // hack to support printf in SYSCALLS_REQUIRE_FILESYSTEM=0 - var num = 0; - for (var i = 0; i < iovcnt; i++) { - var ptr = HEAPU32[((iov)>>2)]; - var len = HEAPU32[(((iov)+(4))>>2)]; - iov += 8; - for (var j = 0; j < len; j++) { - printChar(fd, HEAPU8[ptr+j]); - } - num += len; - } - HEAPU32[((pnum)>>2)] = num; - return 0; - }; - - - - var lengthBytesUTF8 = (str) => { - var len = 0; - for (var i = 0; i < str.length; ++i) { - // Gotcha: charCodeAt returns a 16-bit word that is a UTF-16 encoded code - // unit, not a Unicode code point of the character! So decode - // UTF16->UTF32->UTF8. - // See http://unicode.org/faq/utf_bom.html#utf16-3 - var c = str.charCodeAt(i); // possibly a lead surrogate - if (c <= 0x7F) { - len++; - } else if (c <= 0x7FF) { - len += 2; - } else if (c >= 0xD800 && c <= 0xDFFF) { - len += 4; ++i; - } else { - len += 3; - } - } - return len; - }; - - - var stackAlloc = (sz) => __emscripten_stack_alloc(sz); - var stringToUTF8OnStack = (str) => { - var size = lengthBytesUTF8(str) + 1; - var ret = stackAlloc(size); - stringToUTF8(str, ret, size); - return ret; - }; - - - - - - Module['requestAnimationFrame'] = MainLoop.requestAnimationFrame; - Module['pauseMainLoop'] = MainLoop.pause; - Module['resumeMainLoop'] = MainLoop.resume; - MainLoop.init();; -// End JS library code - -// include: postlibrary.js -// This file is included after the automatically-generated JS library code -// but before the wasm module is created. - -{ - - // Begin ATMODULES hooks - if (Module['noExitRuntime']) noExitRuntime = Module['noExitRuntime']; -if (Module['print']) out = Module['print']; -if (Module['printErr']) err = Module['printErr']; - -Module['FS_createDataFile'] = FS.createDataFile; -Module['FS_createPreloadedFile'] = FS.createPreloadedFile; - - // End ATMODULES hooks - - checkIncomingModuleAPI(); - - if (Module['arguments']) programArgs = Module['arguments']; - if (Module['thisProgram']) thisProgram = Module['thisProgram']; - - // Assertions on removed incoming Module JS APIs. - assert(typeof Module['memoryInitializerPrefixURL'] == 'undefined', 'Module.memoryInitializerPrefixURL option was removed, use Module.locateFile instead'); - assert(typeof Module['pthreadMainPrefixURL'] == 'undefined', 'Module.pthreadMainPrefixURL option was removed, use Module.locateFile instead'); - assert(typeof Module['cdInitializerPrefixURL'] == 'undefined', 'Module.cdInitializerPrefixURL option was removed, use Module.locateFile instead'); - assert(typeof Module['filePackagePrefixURL'] == 'undefined', 'Module.filePackagePrefixURL option was removed, use Module.locateFile instead'); - assert(typeof Module['read'] == 'undefined', 'Module.read option was removed'); - assert(typeof Module['readAsync'] == 'undefined', 'Module.readAsync option was removed (modify readAsync in JS)'); - assert(typeof Module['readBinary'] == 'undefined', 'Module.readBinary option was removed (modify readBinary in JS)'); - assert(typeof Module['setWindowTitle'] == 'undefined', 'Module.setWindowTitle option was removed (modify emscripten_set_window_title in JS)'); - assert(typeof Module['TOTAL_MEMORY'] == 'undefined', 'Module.TOTAL_MEMORY has been renamed Module.INITIAL_MEMORY'); - assert(typeof Module['ENVIRONMENT'] == 'undefined', 'Module.ENVIRONMENT has been deprecated. To force the environment, use the ENVIRONMENT compile-time option (for example, -sENVIRONMENT=web or -sENVIRONMENT=node)'); - assert(typeof Module['STACK_SIZE'] == 'undefined', 'STACK_SIZE can no longer be set at runtime. Use -sSTACK_SIZE at link time') - // If memory is defined in wasm, the user can't provide it, or set INITIAL_MEMORY - assert(typeof Module['wasmMemory'] == 'undefined', 'Use of `wasmMemory` detected. Use -sIMPORTED_MEMORY to define wasmMemory externally'); - assert(typeof Module['INITIAL_MEMORY'] == 'undefined', 'Detected runtime INITIAL_MEMORY setting. Use -sIMPORTED_MEMORY to define wasmMemory dynamically'); - - var preInit = Module['preInit']; - if (preInit) { - if (typeof preInit == 'function') Module['preInit'] = preInit = [preInit]; - // Written as a loop so that preInit functions that themselves add more - // preInit functions. Is this actually needed? - while (preInit.length > 0) { - preInit.shift()(); - } - } - consumedModuleProp('preInit'); -} - -// Begin runtime exports - var missingLibrarySymbols = [ - 'writeI53ToI64', - 'writeI53ToI64Clamped', - 'writeI53ToI64Signaling', - 'writeI53ToU64Clamped', - 'writeI53ToU64Signaling', - 'readI53FromI64', - 'readI53FromU64', - 'convertI32PairToI53', - 'convertI32PairToI53Checked', - 'convertU32PairToI53', - 'getTempRet0', - 'setTempRet0', - 'createNamedFunction', - 'zeroMemory', - 'withStackSave', - 'strError', - 'inetPton4', - 'inetNtop4', - 'inetPton6', - 'inetNtop6', - 'readSockaddr', - 'writeSockaddr', - 'readEmAsmArgs', - 'jstoi_q', - 'getExecutableName', - 'autoResumeAudioContext', - 'getDynCaller', - 'dynCall', - 'runtimeKeepalivePush', - 'runtimeKeepalivePop', - 'asyncLoad', - 'asmjsMangle', - 'mmapAlloc', - 'HandleAllocator', - 'getUniqueRunDependency', - 'addRunDependency', - 'removeRunDependency', - 'addOnInit', - 'addOnPostCtor', - 'addOnPreMain', - 'STACK_SIZE', - 'STACK_ALIGN', - 'POINTER_SIZE', - 'ASSERTIONS', - 'ccall', - 'cwrap', - 'convertJsFunctionToWasm', - 'getEmptyTableSlot', - 'updateTableMap', - 'getFunctionAddress', - 'addFunction', - 'removeFunction', - 'setValue', - 'getValue', - 'intArrayFromString', - 'intArrayToString', - 'AsciiToString', - 'stringToAscii', - 'UTF16ToString', - 'stringToUTF16', - 'lengthBytesUTF16', - 'UTF32ToString', - 'stringToUTF32', - 'lengthBytesUTF32', - 'stringToNewUTF8', - 'writeArrayToMemory', - 'registerWheelEventCallback', - 'registerUiEventCallback', - 'registerFocusEventCallback', - 'fillDeviceOrientationEventData', - 'registerDeviceOrientationEventCallback', - 'fillDeviceMotionEventData', - 'registerDeviceMotionEventCallback', - 'screenOrientation', - 'fillOrientationChangeEventData', - 'registerOrientationChangeEventCallback', - 'fillFullscreenChangeEventData', - 'registerFullscreenChangeEventCallback', - 'callCanvasResizedCallback', - 'JSEvents_requestFullscreen', - 'JSEvents_resizeCanvasForFullscreen', - 'registerRestoreOldStyle', - 'hideEverythingExceptGivenElement', - 'restoreHiddenElements', - 'setLetterbox', - 'currentFullscreenStrategy', - 'softFullscreenResizeWebGLRenderTarget', - 'doRequestFullscreen', - 'fillPointerlockChangeEventData', - 'registerPointerlockChangeEventCallback', - 'registerPointerlockErrorEventCallback', - 'requestPointerLock', - 'fillVisibilityChangeEventData', - 'registerVisibilityChangeEventCallback', - 'registerTouchEventCallback', - 'fillGamepadEventData', - 'registerGamepadEventCallback', - 'registerBeforeUnloadEventCallback', - 'fillBatteryEventData', - 'registerBatteryEventCallback', - 'setCanvasElementSize', - 'getCanvasElementSize', - 'jsStackTrace', - 'getCallstack', - 'convertPCtoSourceLocation', - 'getEnvStrings', - 'wasiRightsToMuslOFlags', - 'wasiOFlagsToMuslOFlags', - 'initRandomFill', - 'randomFill', - 'safeSetTimeout', - 'setImmediateWrapped', - 'safeRequestAnimationFrame', - 'clearImmediateWrapped', - 'registerPostMainLoop', - 'registerPreMainLoop', - 'getPromise', - 'makePromise', - 'addPromise', - 'idsToPromises', - 'makePromiseCallback', - 'Browser_asyncPrepareDataCounter', - 'isLeapYear', - 'ydayFromDate', - 'arraySum', - 'addDays', - 'getSocketFromFD', - 'getSocketAddress', - 'FS_createPreloadedFile', - 'FS_preloadFile', - 'FS_modeStringToFlags', - 'FS_getMode', - 'FS_fileDataToTypedArray', - 'FS_stdin_getChar', - 'FS_mkdirTree', - '_setNetworkCallback', - 'heapObjectForWebGLType', - 'toTypedArrayIndex', - 'webgl_enable_ANGLE_instanced_arrays', - 'webgl_enable_OES_vertex_array_object', - 'webgl_enable_WEBGL_draw_buffers', - 'webgl_enable_WEBGL_multi_draw', - 'webgl_enable_EXT_polygon_offset_clamp', - 'webgl_enable_EXT_clip_control', - 'webgl_enable_WEBGL_polygon_mode', - 'emscriptenWebGLGet', - 'computeUnpackAlignedImageSize', - 'colorChannelsInGlTextureFormat', - 'emscriptenWebGLGetTexPixelData', - 'emscriptenWebGLGetUniform', - 'webglGetProgramUniformLocation', - 'webglGetUniformLocation', - 'webglPrepareUniformLocationsBeforeFirstUse', - 'webglGetLeftBracePos', - 'emscriptenWebGLGetVertexAttrib', - '__glGetActiveAttribOrUniform', - 'writeGLArray', - 'registerWebGlEventCallback', - 'runAndAbortIfError', - 'writeStringToMemory', - 'writeAsciiToMemory', - 'allocateUTF8', - 'allocateUTF8OnStack', - 'stackTrace', - 'getNativeTypeSize', -]; -missingLibrarySymbols.forEach(missingLibrarySymbol) - - var unexportedSymbols = [ - 'run', - 'out', - 'err', - 'callMain', - 'abort', - 'wasmExports', - 'writeStackCookie', - 'checkStackCookie', - 'INT53_MAX', - 'INT53_MIN', - 'bigintToI53Checked', - 'HEAP8', - 'HEAPU8', - 'HEAP16', - 'HEAPU16', - 'HEAP32', - 'HEAPU32', - 'HEAPF32', - 'HEAPF64', - 'HEAP64', - 'HEAPU64', - 'stackSave', - 'stackRestore', - 'stackAlloc', - 'ptrToString', - 'exitJS', - 'getHeapMax', - 'growMemory', - 'ENV', - 'ERRNO_CODES', - 'DNS', - 'Protocols', - 'Sockets', - 'timers', - 'warnOnce', - 'readEmAsmArgsArray', - 'handleException', - 'keepRuntimeAlive', - 'callUserCallback', - 'maybeExit', - 'alignMemory', - 'wasmTable', - 'wasmMemory', - 'noExitRuntime', - 'addOnPreRun', - 'addOnExit', - 'addOnPostRun', - 'freeTableIndexes', - 'functionsInTableMap', - 'PATH', - 'PATH_FS', - 'UTF8Decoder', - 'UTF8ArrayToString', - 'UTF8ToString', - 'stringToUTF8Array', - 'stringToUTF8', - 'lengthBytesUTF8', - 'UTF16Decoder', - 'stringToUTF8OnStack', - 'JSEvents', - 'registerKeyEventCallback', - 'specialHTMLTargets', - 'maybeCStringToJsString', - 'findEventTarget', - 'findCanvasEventTarget', - 'getBoundingClientRect', - 'fillMouseEventData', - 'registerMouseEventCallback', - 'restoreOldWindowedStyle', - 'UNWIND_CACHE', - 'ExitStatus', - 'checkWasiClock', - 'flush_NO_FILESYSTEM', - 'emSetImmediate', - 'emClearImmediate_deps', - 'emClearImmediate', - 'promiseMap', - 'Browser', - 'requestFullscreen', - 'setCanvasSize', - 'getUserMedia', - 'createContext', - 'getPreloadedImageData__data', - 'wget', - 'MONTH_DAYS_REGULAR', - 'MONTH_DAYS_LEAP', - 'MONTH_DAYS_REGULAR_CUMULATIVE', - 'MONTH_DAYS_LEAP_CUMULATIVE', - 'SYSCALLS', - 'preloadPlugins', - 'FS_stdin_getChar_buffer', - 'FS_unlink', - 'FS_createPath', - 'FS_createDevice', - 'FS_readFile', - 'FS', - 'FS_root', - 'FS_mounts', - 'FS_devices', - 'FS_streams', - 'FS_nextInode', - 'FS_nameTable', - 'FS_currentPath', - 'FS_initialized', - 'FS_ignorePermissions', - 'FS_filesystems', - 'FS_syncFSRequests', - 'FS_lookupPath', - 'FS_getPath', - 'FS_hashName', - 'FS_hashAddNode', - 'FS_hashRemoveNode', - 'FS_lookupNode', - 'FS_createNode', - 'FS_destroyNode', - 'FS_isRoot', - 'FS_isMountpoint', - 'FS_isFile', - 'FS_isDir', - 'FS_isLink', - 'FS_isChrdev', - 'FS_isBlkdev', - 'FS_isFIFO', - 'FS_isSocket', - 'FS_flagsToPermissionString', - 'FS_nodePermissions', - 'FS_mayLookup', - 'FS_mayCreate', - 'FS_mayDelete', - 'FS_mayOpen', - 'FS_checkOpExists', - 'FS_nextfd', - 'FS_getStreamChecked', - 'FS_getStream', - 'FS_createStream', - 'FS_closeStream', - 'FS_dupStream', - 'FS_doSetAttr', - 'FS_chrdev_stream_ops', - 'FS_major', - 'FS_minor', - 'FS_makedev', - 'FS_registerDevice', - 'FS_getDevice', - 'FS_getMounts', - 'FS_syncfs', - 'FS_mount', - 'FS_unmount', - 'FS_lookup', - 'FS_mknod', - 'FS_statfs', - 'FS_statfsStream', - 'FS_statfsNode', - 'FS_create', - 'FS_mkdir', - 'FS_mkdev', - 'FS_symlink', - 'FS_link', - 'FS_rename', - 'FS_rmdir', - 'FS_readdir', - 'FS_readlink', - 'FS_stat', - 'FS_fstat', - 'FS_lstat', - 'FS_doChmod', - 'FS_chmod', - 'FS_lchmod', - 'FS_fchmod', - 'FS_doChown', - 'FS_chown', - 'FS_lchown', - 'FS_fchown', - 'FS_doTruncate', - 'FS_truncate', - 'FS_ftruncate', - 'FS_utime', - 'FS_open', - 'FS_close', - 'FS_isClosed', - 'FS_llseek', - 'FS_read', - 'FS_write', - 'FS_mmap', - 'FS_msync', - 'FS_ioctl', - 'FS_writeFile', - 'FS_cwd', - 'FS_chdir', - 'FS_createDefaultDirectories', - 'FS_createDefaultDevices', - 'FS_createSpecialDirectories', - 'FS_createStandardStreams', - 'FS_staticInit', - 'FS_init', - 'FS_quit', - 'FS_findObject', - 'FS_analyzePath', - 'FS_createFile', - 'FS_createDataFile', - 'FS_forceLoadFile', - 'FS_createLazyFile', - 'MEMFS', - 'TTY', - 'PIPEFS', - 'SOCKFS', - 'tempFixedLengthArray', - 'miniTempWebGLFloatBuffers', - 'miniTempWebGLIntBuffers', - 'GL', - 'AL', - 'GLUT', - 'EGL', - 'GLEW', - 'IDBStore', - 'SDL', - 'SDL_gfx', - 'print', - 'printErr', - 'jstoi_s', -]; -unexportedSymbols.forEach(unexportedRuntimeSymbol); - - // End runtime exports - // Begin JS library exports - // End JS library exports - -// end include: postlibrary.js - -function checkIncomingModuleAPI() { - ignoredModuleProp('fetchSettings'); - ignoredModuleProp('logReadFiles'); - ignoredModuleProp('loadSplitModule'); - ignoredModuleProp('onMalloc'); - ignoredModuleProp('onRealloc'); - ignoredModuleProp('onFree'); - ignoredModuleProp('onSbrkGrow'); - ignoredModuleProp('onCOSCacheHit'); - ignoredModuleProp('onCOSCacheMiss'); - ignoredModuleProp('onCOSStore'); - ignoredModuleProp('GL_MAX_TEXTURE_IMAGE_UNITS'); - ignoredModuleProp('SDL_canPlayWithWebAudio'); - ignoredModuleProp('SDL_numSimultaneouslyQueuedBuffers'); - ignoredModuleProp('freePreloadedMediaOnUse'); - ignoredModuleProp('preinitializedWebGLContext'); - ignoredModuleProp('keyboardListeningElement'); - ignoredModuleProp('doNotCaptureKeyboard'); - ignoredModuleProp('extraStackTrace'); - ignoredModuleProp('preloadPlugins'); - ignoredModuleProp('preMainLoop'); - ignoredModuleProp('postMainLoop'); - ignoredModuleProp('forcedAspectRatio'); - ignoredModuleProp('mainScriptUrlOrBlob'); - ignoredModuleProp('onFullScreen'); - ignoredModuleProp('INITIAL_MEMORY'); - ignoredModuleProp('wasmMemory'); - ignoredModuleProp('wasmBinary'); -} -function peak_web_dom_open(id,w,h) { var name = UTF8ToString(id); var c = document.getElementById(name); if (!c) { c = document.createElement('canvas'); c.id = name; document.body.appendChild(c); } c.width = w; c.height = h; c.tabIndex = 0; c.focus(); } -function peak_web_dom_present(id,w,h,pixels) { var c = document.getElementById(UTF8ToString(id)); if (!c) return; var ctx = c.getContext('2d'); if (c.width !== w || c.height !== h) { c.width = w; c.height = h; } var img = ctx.createImageData(w, h); img.data.set(HEAPU8.subarray(pixels, pixels + w * h * 4)); ctx.putImageData(img, 0, 0); } - -// Imports from the Wasm binary. -var _main = Module['_main'] = makeInvalidEarlyAccess('_main'); -var _fflush = makeInvalidEarlyAccess('_fflush'); -var _emscripten_stack_get_end = makeInvalidEarlyAccess('_emscripten_stack_get_end'); -var _emscripten_stack_get_base = makeInvalidEarlyAccess('_emscripten_stack_get_base'); -var _strerror = makeInvalidEarlyAccess('_strerror'); -var _malloc = makeInvalidEarlyAccess('_malloc'); -var _emscripten_stack_init = makeInvalidEarlyAccess('_emscripten_stack_init'); -var _emscripten_stack_get_free = makeInvalidEarlyAccess('_emscripten_stack_get_free'); -var __emscripten_stack_restore = makeInvalidEarlyAccess('__emscripten_stack_restore'); -var __emscripten_stack_alloc = makeInvalidEarlyAccess('__emscripten_stack_alloc'); -var _emscripten_stack_get_current = makeInvalidEarlyAccess('_emscripten_stack_get_current'); -var memory = makeInvalidEarlyAccess('memory'); -var __indirect_function_table = makeInvalidEarlyAccess('__indirect_function_table'); -var wasmMemory = makeInvalidEarlyAccess('wasmMemory'); -var wasmTable = makeInvalidEarlyAccess('wasmTable'); - -function assignWasmExports(wasmExports) { - assert(typeof wasmExports['__main_argc_argv'] != 'undefined', 'missing Wasm export: __main_argc_argv'); - assert(typeof wasmExports['fflush'] != 'undefined', 'missing Wasm export: fflush'); - assert(typeof wasmExports['emscripten_stack_get_end'] != 'undefined', 'missing Wasm export: emscripten_stack_get_end'); - assert(typeof wasmExports['emscripten_stack_get_base'] != 'undefined', 'missing Wasm export: emscripten_stack_get_base'); - assert(typeof wasmExports['strerror'] != 'undefined', 'missing Wasm export: strerror'); - assert(typeof wasmExports['malloc'] != 'undefined', 'missing Wasm export: malloc'); - assert(typeof wasmExports['emscripten_stack_init'] != 'undefined', 'missing Wasm export: emscripten_stack_init'); - assert(typeof wasmExports['emscripten_stack_get_free'] != 'undefined', 'missing Wasm export: emscripten_stack_get_free'); - assert(typeof wasmExports['_emscripten_stack_restore'] != 'undefined', 'missing Wasm export: _emscripten_stack_restore'); - assert(typeof wasmExports['_emscripten_stack_alloc'] != 'undefined', 'missing Wasm export: _emscripten_stack_alloc'); - assert(typeof wasmExports['emscripten_stack_get_current'] != 'undefined', 'missing Wasm export: emscripten_stack_get_current'); - assert(typeof wasmExports['memory'] != 'undefined', 'missing Wasm export: memory'); - assert(typeof wasmExports['__indirect_function_table'] != 'undefined', 'missing Wasm export: __indirect_function_table'); - _main = Module['_main'] = createExportWrapper('__main_argc_argv', wasmExports['__main_argc_argv'], 2); - _fflush = createExportWrapper('fflush', wasmExports['fflush'], 1); - _emscripten_stack_get_end = wasmExports['emscripten_stack_get_end']; - _emscripten_stack_get_base = wasmExports['emscripten_stack_get_base']; - _strerror = createExportWrapper('strerror', wasmExports['strerror'], 1); - _malloc = createExportWrapper('malloc', wasmExports['malloc'], 1); - _emscripten_stack_init = wasmExports['emscripten_stack_init']; - _emscripten_stack_get_free = wasmExports['emscripten_stack_get_free']; - __emscripten_stack_restore = wasmExports['_emscripten_stack_restore']; - __emscripten_stack_alloc = wasmExports['_emscripten_stack_alloc']; - _emscripten_stack_get_current = wasmExports['emscripten_stack_get_current']; - memory = wasmMemory = wasmExports['memory']; - __indirect_function_table = wasmTable = wasmExports['__indirect_function_table']; -} - -var wasmImports = { - /** @export */ - __assert_fail: ___assert_fail, - /** @export */ - _abort_js: __abort_js, - /** @export */ - clock_time_get: _clock_time_get, - /** @export */ - emscripten_cancel_main_loop: _emscripten_cancel_main_loop, - /** @export */ - emscripten_get_now: _emscripten_get_now, - /** @export */ - emscripten_resize_heap: _emscripten_resize_heap, - /** @export */ - emscripten_set_keydown_callback_on_thread: _emscripten_set_keydown_callback_on_thread, - /** @export */ - emscripten_set_keyup_callback_on_thread: _emscripten_set_keyup_callback_on_thread, - /** @export */ - emscripten_set_main_loop_arg: _emscripten_set_main_loop_arg, - /** @export */ - emscripten_set_mousedown_callback_on_thread: _emscripten_set_mousedown_callback_on_thread, - /** @export */ - emscripten_set_mousemove_callback_on_thread: _emscripten_set_mousemove_callback_on_thread, - /** @export */ - emscripten_set_mouseup_callback_on_thread: _emscripten_set_mouseup_callback_on_thread, - /** @export */ - fd_close: _fd_close, - /** @export */ - fd_seek: _fd_seek, - /** @export */ - fd_write: _fd_write, - /** @export */ - peak_web_dom_open -}; - - -// include: postamble.js -// === Auto-generated postamble setup entry stuff === - -var calledRun; - -function callMain(args = []) { - assert(typeof onPreRuns === 'undefined' || onPreRuns.length == 0, 'cannot call main when preRun functions remain to be called'); - - var entryFunction = _main; - - args.unshift(thisProgram); - - var argc = args.length; - var argv = stackAlloc((argc + 1) * 4); - var argv_ptr = argv; - for (var arg of args) { - HEAPU32[((argv_ptr)>>2)] = stringToUTF8OnStack(arg); - argv_ptr += 4; - } - HEAPU32[((argv_ptr)>>2)] = 0; - - try { - - var ret = entryFunction(argc, argv); - - // if we're not running an evented main loop, it's time to exit - exitJS(ret, /* implicit = */ true); - return ret; - } catch (e) { - return handleException(e); - } -} - -function stackCheckInit() { - // This is normally called automatically during __wasm_call_ctors but need to - // get these values before even running any of the ctors so we call it redundantly - // here. - _emscripten_stack_init(); - // TODO(sbc): Move writeStackCookie to native to to avoid this. - writeStackCookie(); -} - -async function run(args = programArgs) { - assert(!calledRun); - calledRun = true; - - stackCheckInit(); - - preRun(); - - var setStatus = Module['setStatus']; - if (setStatus) { - setStatus('Running...'); - // Yield to the event loop to allow the browser to paint "Running..." - await new Promise((resolve) => setTimeout(resolve, 1)); - // Then we want to clear the status text, but only after the rest of this function runs. - setTimeout(setStatus, 1, ''); - } - - if (ABORT) return; - - initRuntime(); - - // No ATMAINS hooks - - Module['onRuntimeInitialized']?.(); - consumedModuleProp('onRuntimeInitialized'); - - var noInitialRun = Module['noInitialRun'] || false; - if (!noInitialRun) callMain(args); - - postRun(); -} - -function checkUnflushedContent() { - // Compiler settings do not allow exiting the runtime, so flushing - // the streams is not possible. but in ASSERTIONS mode we check - // if there was something to flush, and if so tell the user they - // should request that the runtime be exitable. - // Normally we would not even include flush() at all, but in ASSERTIONS - // builds we do so just for this check, and here we see if there is any - // content to flush, that is, we check if there would have been - // something a non-ASSERTIONS build would have not seen. - // How we flush the streams depends on whether we are in SYSCALLS_REQUIRE_FILESYSTEM=0 - // mode (which has its own special function for this; otherwise, all - // the code is inside libc) - var oldOut = out; - var oldErr = err; - var has = false; - out = err = (x) => { - has = true; - } - try { // it doesn't matter if it fails - flush_NO_FILESYSTEM(); - } catch(e) {} - out = oldOut; - err = oldErr; - if (has) { - warnOnce('stdio streams had content in them that was not flushed. you should set EXIT_RUNTIME to 1 (see the Emscripten FAQ), or make sure to emit a newline when you printf etc.'); - warnOnce('(this may also be due to not including full filesystem support - try building with -sFORCE_FILESYSTEM)'); - } -} - -var wasmExports; - -// With async instantation wasmExports is assigned asynchronously when the -// instance is received. -createWasm().then(() => run()); - -// end include: postamble.js - diff --git a/Peak/demos/demo.wasm b/Peak/demos/demo.wasm deleted file mode 100755 index e7e428b..0000000 Binary files a/Peak/demos/demo.wasm and /dev/null differ diff --git a/Peak/demos/demo_run b/Peak/demos/demo_run deleted file mode 100755 index 7a526c1..0000000 Binary files a/Peak/demos/demo_run and /dev/null differ diff --git a/Peak/demos/demo_run.c b/Peak/demos/demo_run.c deleted file mode 100644 index f5c2f7f..0000000 --- a/Peak/demos/demo_run.c +++ /dev/null @@ -1,76 +0,0 @@ -#include - -#define PEAK_IMPLEMENTATION -#include "../peak.h" - - -void print_window_resize(PeakEvent ev) { - printf("window: %u %u\n", ev.resize.width, ev.resize.height); -} - -void print_window_close(PeakEvent ev) { - printf("WINDOW CLOSE!!!!!!\nWOWWWOWAAAAAAAAAAAAAAAAAAAAAAAAh\n"); -} - -void print_mouse(PeakEvent ev) { - printf("mouse: state=%d type=%d pos=(%f, %f)\n", ev.pointer.state, ev.pointer.type, ev.pointer.x, ev.pointer.y); -} - -void print_key(PeakEvent ev) { - printf("key: key=%d mod=%d\n", ev.key.key, ev.key.mod); -} - -typedef void (*print_event_func)(PeakEvent ev); -print_event_func print_event[PEAK_EVENT_LAST] = { - [PEAK_EVENT_NONE] = print_mouse, - [PEAK_EVENT_WINDOW_RESIZE] = print_window_resize, - [PEAK_EVENT_WINDOW_CLOSE] = print_window_close, - [PEAK_EVENT_POINTER] = print_mouse, - [PEAK_EVENT_POINTER_CONNECTED] = print_mouse, - [PEAK_EVENT_POINTER_DISCONNECTED] = print_mouse, - [PEAK_EVENT_KEY_DOWN] = print_key, - [PEAK_EVENT_KEY_UP] = print_key, -}; - - -typedef struct { - char *msg; -} AppData; - -static AppData data; - -static int -peak_run_func(PeakWindow *win, void *userdata) -{ - AppData d = *(AppData*) userdata; - static PeakEvent ev; - while (peak_window_epoll(win, &ev)) { - switch (ev.type) { - case PEAK_EVENT_NONE: - continue; - case PEAK_EVENT_WINDOW_CLOSE: - return 0; - default: - print_event[ev.type](ev); - continue; - } - } - printf("%s\n", d.msg); - return 1; -} - -int -main(int argc, char**argv) -{ - data.msg = "Hello World"; - - if (!peak_init()) { - return 1; - } - - PeakWindow win = peak_window_open("demo", 400, 400, 0); - peak_window_run(&win, peak_run_func, &data); - peak_window_close(&win); - peak_quit(); - return 0; -} diff --git a/Peak/peak.h b/Peak/peak.h index 97bb0a3..f5cc83b 100644 --- a/Peak/peak.h +++ b/Peak/peak.h @@ -10,17 +10,24 @@ #define PEAK_H #define PEAK_MAJOR "0" -#define PEAK_MINOR "1" -#define PEAK_PATCH "1" +#define PEAK_MINOR "5" +#define PEAK_PATCH "2" /* CHANGE LOG * 0.0.0 - @vasco - prototyping * 0.1.0 - @vasco - linux x11 that automagically loads X11 DLL * 0.1.1 - @vasco - fixed event handling on linux * 0.1.2 - @vasco - better handling of windows, if multiple windows becomes necessary in the future - * 0.2.0 - @vasco - win32 + * 0.2.0 - @vasco - multiple windows, major-ish API changes. + * 0.3.0 - @vasco - web via emscripten + * 0.4.0 - @vasco - win32 + * 0.5.0 - @vasco - audio start/stop, s16le pull callback + * 0.5.1 - @vasco - log, file, time, vulkan extensions + * 0.5.2 - @vasco - vulkan surface from window */ +#define NANOS_PER_SEC 1000000000ull + #include #include #include @@ -73,6 +80,62 @@ #define PEAK extern #endif +typedef enum PeakLogLevel { + P_LOG_LEVEL_FATAL = 0, + P_LOG_LEVEL_ERROR, + P_LOG_LEVEL_WARN, + P_LOG_LEVEL_INFO, + P_LOG_LEVEL_DEBUG, + P_LOG_LEVEL_TRACE, + P_COUNT_LOG_LEVEL +} PeakLogLevel; + +#define P_PREFIX_LEN 7 +static const char *p_prefix[P_COUNT_LOG_LEVEL] = { + [P_LOG_LEVEL_FATAL] = "[FATAL]", + [P_LOG_LEVEL_ERROR] = "[ERROR]", + [P_LOG_LEVEL_WARN] = "[WARNI]", + [P_LOG_LEVEL_INFO] = "[INFOR]", + [P_LOG_LEVEL_DEBUG] = "[DEBUG]", + [P_LOG_LEVEL_TRACE] = "[TRACE]", +}; + +#ifndef P_LOG_WARN_ENABLED +#define P_LOG_WARN_ENABLED 1 +#endif +#ifndef P_LOG_INFO_ENABLED +#define P_LOG_INFO_ENABLED 1 +#endif +#ifndef P_LOG_DEBUG_ENABLED +#define P_LOG_DEBUG_ENABLED 0 +#endif +#ifndef P_LOG_TRACE_ENABLED +#define P_LOG_TRACE_ENABLED 0 +#endif + +#define PFATAL(message, ...) peak_log_printf(P_LOG_LEVEL_FATAL, message, ##__VA_ARGS__) +#define PERROR(message, ...) peak_log_printf(P_LOG_LEVEL_ERROR, message, ##__VA_ARGS__) +#if P_LOG_WARN_ENABLED == 1 +#define PWARN(message, ...) peak_log_printf(P_LOG_LEVEL_WARN, message, ##__VA_ARGS__) +#else +#define PWARN(message, ...) +#endif +#if P_LOG_INFO_ENABLED == 1 +#define PINFO(message, ...) peak_log_printf(P_LOG_LEVEL_INFO, message, ##__VA_ARGS__) +#else +#define PINFO(message, ...) +#endif +#if P_LOG_DEBUG_ENABLED == 1 +#define PDEBUG(message, ...) peak_log_printf(P_LOG_LEVEL_DEBUG, message, ##__VA_ARGS__) +#else +#define PDEBUG(message, ...) +#endif +#if P_LOG_TRACE_ENABLED == 1 +#define PTRACE(message, ...) peak_log_printf(P_LOG_LEVEL_TRACE, message, ##__VA_ARGS__) +#else +#define PTRACE(message, ...) +#endif + typedef enum { PEAK_KEYMOD_NONE = 0, PEAK_KEYMOD_ALT, @@ -128,22 +191,49 @@ typedef struct { typedef struct peak_window_internal_t PeakWindowInternal; typedef struct PeakWindow PeakWindow; -/* Public API */ +/* Initialize the platform. */ PEAK int peak_init(void); // Initialize platform context and load necessary DLLs. PEAK void peak_quit(void); // Close platform context. + +/* Do sexy stuff with the windows. */ PEAK PeakWindow peak_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); // Open a window. PEAK void peak_window_close(PeakWindow *window); // Close a window. PEAK void peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdata), void *userdata); // Hijacking the main loop makes life easier on platforms like web PEAK int peak_window_epoll(PeakWindow *win, PeakEvent *ev); // Poll a window for events. PEAK uint32_t* peak_window_backbuffer(PeakWindow *win, size_t *width, size_t *height); // Get the windows backbuffer. -PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); -PEAK void peak_window_present(PeakWindow *win); +PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); // Clear window to color. +PEAK void peak_window_present(PeakWindow *win); // Present window backbuffer. + +/* Play some tunes. */ +PEAK int peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata); // Device pulls interleaved s16le +PEAK void peak_audio_stop(void); // Stop audio. + +/* Time */ +PEAK uint64_t peak_get_time(void); // Get time in nanoseconds. +PEAK void peak_sleep_ns(int64_t ns); // Sleep for nanoseconds!!! + +/* File */ +PEAK int peak_file_exists(const char *path); // Does this file exist? +PEAK void *peak_file_alloc(const char *path, unsigned long *buf_size); // Allocate an entire file. + +/* Graphics API bull... */ +PEAK const char **peak_vulkan_get_extensions(uint32_t *count); // Get vulkan extensions. +PEAK int peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface); // Create a vulkan surface for a window. Needs PEAK_VULKAN. + +/* Debug your amazing code. */ +PEAK void peak_log_printf(PeakLogLevel level, const char *src, ...); // Printf with log level. +PEAK void *peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func); // Malloc for debuggin. +PEAK void peak_debug_free_impl(void *ptr, const char *file, int line, const char *func); // Free for debugging. +PEAK void *peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func); // Realloc for debugging. +PEAK void peak_debug_memory_report(void); // Report memory. #endif // PEAK_H #ifdef PEAK_IMPLEMENTATION #undef PEAK_IMPLEMENTATION +/* NOTE(vasco): Some platforms require an event queue + * while others have it built in. */ #if defined(PEAK_WIN32) || defined(PEAK_WEB) #define PEAK_Q 64 @@ -174,43 +264,68 @@ peak_q_pop(PeakQ *q, PeakEvent *ev) #if defined(PEAK_WIN32) /* --- Start of p_win32.c --- */ +/* + * Win32 window, input, StretchDIBits present, and waveOut audio. + * user32.dll, gdi32.dll, and winmm.dll are loaded at runtime. + * + * * 0.4.0 - @vasco - win32 + * * 0.5.0 - @vasco - audio start/stop, s16le pull callback + */ + #ifndef WIN32_LEAN_AND_MEAN #define WIN32_LEAN_AND_MEAN #endif +/* windows.h must precede mmsystem.h */ #include +#include #include #include #include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_WIN32_KHR +#include +#endif #define PEAK_WIN32_USER32 "user32.dll" #define PEAK_WIN32_GDI32 "gdi32.dll" +#define PEAK_WIN32_WINMM "winmm.dll" #define PEAK_WIN32_CLASS "PeakWindow" #define PEAK_WIN32_PROP "Peak" +#define PEAK_AUDIO_FRAMES 256 +#define PEAK_AUDIO_BUFFERS 2 #define PEAK_USER32_API(X) \ - X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ - X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ - X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ - X(DestroyWindow, BOOL, WINAPI, (HWND)) \ - X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ - X(GetDC, HDC, WINAPI, (HWND)) \ - X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ - X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ - X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ - X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ - X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ - X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ - X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ - X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ - X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ - X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ - X(GetKeyState, SHORT, WINAPI, (int)) + X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ + X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ + X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ + X(DestroyWindow, BOOL, WINAPI, (HWND)) \ + X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ + X(GetDC, HDC, WINAPI, (HWND)) \ + X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ + X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ + X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ + X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ + X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ + X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ + X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ + X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ + X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ + X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ + X(GetKeyState, SHORT, WINAPI, (int)) #define PEAK_GDI32_API(X) \ - X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + +#define PEAK_WINMM_API(X) \ + X(waveOutOpen, MMRESULT, WINAPI, (LPHWAVEOUT, UINT, LPCWAVEFORMATEX, DWORD_PTR, DWORD_PTR, DWORD)) \ + X(waveOutClose, MMRESULT, WINAPI, (HWAVEOUT)) \ + X(waveOutPrepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutUnprepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutWrite, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutReset, MMRESULT, WINAPI, (HWAVEOUT)) typedef struct { #define X(name, ret, conv, args) ret (conv *name) args; @@ -224,6 +339,25 @@ typedef struct { #undef X } PeakGdi32Api; +typedef struct { +#define X(name, ret, conv, args) ret (conv *name) args; + PEAK_WINMM_API(X) +#undef X +} PeakWinmmApi; + +typedef struct { + volatile int run; + HANDLE thread; + HANDLE event; + HWAVEOUT out; + WAVEHDR hdr[PEAK_AUDIO_BUFFERS]; + int16_t *pcm[PEAK_AUDIO_BUFFERS]; + uint32_t channels; + uint32_t bytes; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + typedef struct { HMODULE user32; HMODULE gdi32; @@ -243,9 +377,28 @@ struct peak_window_internal_t { struct peak_win32_win *w; }; +static int peak_internal_user32_load(HMODULE handle); +static int peak_internal_gdi32_load(HMODULE handle); +static PeakKeyCode peak_internal_win32_key_map(WPARAM vk); +static PeakKeyMod peak_internal_win32_mod_map(void); +static int peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height); +static LRESULT CALLBACK peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam); +static int peak_platform_init(void); +static void peak_platform_quit(void); +static PeakWindowInternal peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); +static void peak_platform_window_close(PeakWindowInternal *intern); +static uint32_t *peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height); +static void peak_platform_window_present(PeakWindowInternal *intern); +static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev); +static int peak_internal_winmm_load(void); +static void peak_internal_win32_audio_fill(int i); +static DWORD WINAPI peak_internal_win32_audio_thread(LPVOID arg); + static PeakWin32 peak_win32; static PeakUser32Api peak_user32; static PeakGdi32Api peak_gdi32; +static PeakWinmmApi peak_winmm; +static PeakAudio peak_audio; static int peak_internal_user32_load(HMODULE handle) @@ -279,34 +432,45 @@ peak_internal_win32_key_map(WPARAM vk) if (vk >= 'A' && vk <= 'Z') return (PeakKeyCode)(PEAK_KEY_A + (int)(vk - 'A')); switch (vk) { - case VK_UP: return PEAK_KEY_UP; - case VK_DOWN: return PEAK_KEY_DOWN; - case VK_LEFT: return PEAK_KEY_LEFT; - case VK_RIGHT: return PEAK_KEY_RIGHT; - case VK_SPACE: return PEAK_KEY_SPACE; - case VK_ESCAPE: return PEAK_KEY_ESCAPE; - case VK_RETURN: return PEAK_KEY_ENTER; - default: return PEAK_KEY_UNKNOWN; + case VK_UP: + return PEAK_KEY_UP; + case VK_DOWN: + return PEAK_KEY_DOWN; + case VK_LEFT: + return PEAK_KEY_LEFT; + case VK_RIGHT: + return PEAK_KEY_RIGHT; + case VK_SPACE: + return PEAK_KEY_SPACE; + case VK_ESCAPE: + return PEAK_KEY_ESCAPE; + case VK_RETURN: + return PEAK_KEY_ENTER; + default: + return PEAK_KEY_UNKNOWN; } } static PeakKeyMod peak_internal_win32_mod_map(void) { - if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) return PEAK_KEYMOD_CTRL; - if (peak_user32.GetKeyState(VK_MENU) & 0x8000) return PEAK_KEYMOD_ALT; - if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) return PEAK_KEYMOD_SHIFT; - if (peak_user32.GetKeyState(VK_CAPITAL) & 1) return PEAK_KEYMOD_CAPS; + if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) + return PEAK_KEYMOD_CTRL; + if (peak_user32.GetKeyState(VK_MENU) & 0x8000) + return PEAK_KEYMOD_ALT; + if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) + return PEAK_KEYMOD_SHIFT; + if (peak_user32.GetKeyState(VK_CAPITAL) & 1) + return PEAK_KEYMOD_CAPS; return (PeakKeyMod)0; } static int -peak_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) +peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) { uint32_t *buffer; - buffer = calloc((size_t)width * height, sizeof *buffer); - if (!buffer) + if (!(buffer = calloc((size_t)width * height, sizeof(*buffer)))) return 0; free(w->buffer); w->buffer = buffer; @@ -320,9 +484,10 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) { struct peak_win32_win *w; PeakEvent ev; + CREATESTRUCTA *cs; if (msg == WM_NCCREATE) { - CREATESTRUCTA *cs = (CREATESTRUCTA *)lparam; + cs = (CREATESTRUCTA *)lparam; peak_user32.SetPropA(hwnd, PEAK_WIN32_PROP, cs->lpCreateParams); } @@ -332,45 +497,46 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) switch (msg) { case WM_CLOSE: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_CLOSE; peak_q_push(&w->q, ev); return 0; case WM_SIZE: { uint32_t width, height; + if (wparam == SIZE_MINIMIZED) return 0; width = (uint32_t)LOWORD(lparam); height = (uint32_t)HIWORD(lparam); if (!width || !height || (width == w->width && height == w->height)) return 0; - if (!peak_win32_buffer(w, width, height)) + if (!peak_internal_win32_buffer(w, width, height)) return 0; - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_RESIZE; ev.resize.width = w->width; ev.resize.height = w->height; peak_q_push(&w->q, ev); return 0; } - case WM_KEYDOWN: - case WM_KEYUP: - case WM_SYSKEYDOWN: + case WM_KEYDOWN: /* FALLTHROUGH */ + case WM_KEYUP: /* FALLTHROUGH */ + case WM_SYSKEYDOWN: /* FALLTHROUGH */ case WM_SYSKEYUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = (msg == WM_KEYDOWN || msg == WM_SYSKEYDOWN) ? PEAK_EVENT_KEY_DOWN : PEAK_EVENT_KEY_UP; ev.key.key = peak_internal_win32_key_map(wparam); ev.key.mod = peak_internal_win32_mod_map(); peak_q_push(&w->q, ev); return 0; - case WM_MOUSEMOVE: - case WM_LBUTTONDOWN: - case WM_LBUTTONUP: - case WM_RBUTTONDOWN: - case WM_RBUTTONUP: - case WM_MBUTTONDOWN: + case WM_MOUSEMOVE: /* FALLTHROUGH */ + case WM_LBUTTONDOWN: /* FALLTHROUGH */ + case WM_LBUTTONUP: /* FALLTHROUGH */ + case WM_RBUTTONDOWN: /* FALLTHROUGH */ + case WM_RBUTTONUP: /* FALLTHROUGH */ + case WM_MBUTTONDOWN: /* FALLTHROUGH */ case WM_MBUTTONUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_POINTER; ev.pointer.x = (float)(short)LOWORD(lparam); ev.pointer.y = (float)(short)HIWORD(lparam); @@ -391,6 +557,7 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) return 0; case WM_PAINT: { PAINTSTRUCT ps; + peak_user32.BeginPaint(hwnd, &ps); peak_user32.EndPaint(hwnd, &ps); return 0; @@ -431,8 +598,8 @@ peak_platform_init(void) } } if (!peak_win32.class_reg) { - memset(&wc, 0, sizeof wc); - wc.cbSize = sizeof wc; + memset(&wc, 0, sizeof(wc)); + wc.cbSize = sizeof(wc); wc.style = CS_OWNDC; wc.lpfnWndProc = peak_internal_win32_wndproc; wc.hInstance = GetModuleHandleA(NULL); @@ -469,10 +636,9 @@ peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uin if (!peak_user32.CreateWindowExA && !peak_platform_init()) return intern; - w = calloc(1, sizeof *w); - if (!w) + if (!(w = calloc(1, sizeof(*w)))) return intern; - if (!peak_win32_buffer(w, width, height)) { + if (!peak_internal_win32_buffer(w, width, height)) { free(w); return intern; } @@ -511,6 +677,7 @@ static void peak_platform_window_close(PeakWindowInternal *intern) { struct peak_win32_win *w; + if (!intern || !intern->w) return; w = intern->w; @@ -528,7 +695,9 @@ peak_platform_window_close(PeakWindowInternal *intern) static uint32_t * peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + + w = intern ? intern->w : NULL; if (!w) { *width = 0; *height = 0; @@ -542,13 +711,14 @@ peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *h static void peak_platform_window_present(PeakWindowInternal *intern) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; BITMAPINFO bmi; + w = intern ? intern->w : NULL; if (!w || !w->hwnd || !w->hdc || !w->buffer) return; - memset(&bmi, 0, sizeof bmi); + memset(&bmi, 0, sizeof(bmi)); bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER); bmi.bmiHeader.biWidth = (LONG)w->width; bmi.bmiHeader.biHeight = -(LONG)w->height; @@ -565,8 +735,9 @@ static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) { MSG msg; - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + w = intern ? intern->w : NULL; if (!w || !w->hwnd) return 0; @@ -578,6 +749,198 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) } return peak_q_pop(&w->q, ev); } + +static int +peak_internal_winmm_load(void) +{ + HMODULE handle; + + if (peak_winmm.waveOutOpen) + return 1; + if (!(handle = LoadLibraryA(PEAK_WIN32_WINMM))) { + fputs("Failed to load winmm.dll. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, conv, args) peak_winmm.name = (ret (conv *) args)(void *)GetProcAddress(handle, #name); + PEAK_WINMM_API(X) +#undef X +#define X(name, ret, conv, args) || !peak_winmm.name + if (0 PEAK_WINMM_API(X)) { + fputs("Failed to load winmm symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void +peak_internal_win32_audio_fill(int i) +{ + memset(peak_audio.pcm[i], 0, peak_audio.bytes); + if (peak_audio.fill) + peak_audio.fill(peak_audio.pcm[i], PEAK_AUDIO_FRAMES, peak_audio.userdata); + peak_winmm.waveOutWrite(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); +} + +static DWORD WINAPI +peak_internal_win32_audio_thread(LPVOID arg) +{ + int i, did; + + (void)arg; + for (;;) { + did = 0; + if (!peak_audio.run) + break; + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_DONE) { + peak_internal_win32_audio_fill(i); + did = 1; + } + } + if (did) + continue; + WaitForSingleObject(peak_audio.event, INFINITE); + ResetEvent(peak_audio.event); + } + return 0; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + WAVEFORMATEX fmt; + int i; + + if (channels > 32) + return 0; + if (!peak_internal_winmm_load()) + return 0; + + memset(&fmt, 0, sizeof(fmt)); + fmt.wFormatTag = WAVE_FORMAT_PCM; + fmt.nChannels = (WORD)channels; + fmt.nSamplesPerSec = rate; + fmt.wBitsPerSample = 16; + fmt.nBlockAlign = (WORD)(channels * 2); + fmt.nAvgBytesPerSec = rate * fmt.nBlockAlign; + + peak_audio.event = CreateEventA(NULL, TRUE, FALSE, NULL); + if (!peak_audio.event) + return 0; + if (peak_winmm.waveOutOpen(&peak_audio.out, WAVE_MAPPER, &fmt, (DWORD_PTR)peak_audio.event, 0, CALLBACK_EVENT) != MMSYSERR_NOERROR) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + fputs("Failed to open waveOut device", stderr); + return 0; + } + + peak_audio.channels = channels; + peak_audio.bytes = (uint32_t)channels * PEAK_AUDIO_FRAMES * sizeof(int16_t); + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.run = 1; + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (!(peak_audio.pcm[i] = calloc(1, peak_audio.bytes))) + goto fail; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + peak_audio.hdr[i].lpData = (LPSTR)peak_audio.pcm[i]; + peak_audio.hdr[i].dwBufferLength = peak_audio.bytes; + if (peak_winmm.waveOutPrepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)) != MMSYSERR_NOERROR) + goto fail; + peak_audio.hdr[i].dwFlags |= WHDR_DONE; + } + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) + peak_internal_win32_audio_fill(i); + + peak_audio.thread = CreateThread(NULL, 0, peak_internal_win32_audio_thread, NULL, 0, NULL); + if (!peak_audio.thread) + goto fail; + return 1; + +fail: + peak_platform_audio_stop(); + return 0; +} + +static uint64_t +peak_platform_get_time(void) +{ + LARGE_INTEGER count, freq; + QueryPerformanceCounter(&count); + QueryPerformanceFrequency(&freq); + return (uint64_t)((count.QuadPart * 1000000000ull) / freq.QuadPart); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + Sleep((DWORD)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_win32_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *intern, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkWin32SurfaceCreateInfoKHR ci; + if (!intern || !intern->w || !intern->w->hwnd) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_WIN32_SURFACE_CREATE_INFO_KHR; + ci.hwnd = intern->w->hwnd; + ci.hinstance = GetModuleHandleA(NULL); + return vkCreateWin32SurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)intern; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + int i; + + peak_audio.run = 0; + if (peak_audio.event) + SetEvent(peak_audio.event); + if (peak_audio.thread) { + WaitForSingleObject(peak_audio.thread, INFINITE); + CloseHandle(peak_audio.thread); + peak_audio.thread = NULL; + } + if (peak_audio.out) { + peak_winmm.waveOutReset(peak_audio.out); + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_PREPARED) + peak_winmm.waveOutUnprepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); + free(peak_audio.pcm[i]); + peak_audio.pcm[i] = NULL; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + } + peak_winmm.waveOutClose(peak_audio.out); + peak_audio.out = NULL; + } + if (peak_audio.event) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + } + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} /* --- End of p_win32.c --- */ #elif defined(PEAK_LINUX) /* --- Start of p_linux.c --- */ @@ -590,10 +953,24 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) #include #include #include +#include #include #include +#include +#include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_XLIB_KHR +#include +#endif #define PEAK_X11_LINUX "libX11.so.6" +#define PEAK_PULSE_LINUX "libpulse-simple.so.0" +#define PEAK_AUDIO_FRAMES 256 + +#define PEAK_PULSE_API(X) \ + X(pa_simple_new, void *, (const char *, const char *, int, const char *, const char *, const void *, const void *, const void *, int *)) \ + X(pa_simple_free, void, (void *)) \ + X(pa_simple_write, int, (void *, const void *, size_t, int *)) #define PEAK_X11_API(X) \ X(XOpenDisplay, Display *, (const char *)) \ @@ -619,11 +996,34 @@ typedef struct { #undef X } PeakX11Api; +typedef struct { +#define X(name, ret, args) ret (*name) args; + PEAK_PULSE_API(X) +#undef X +} PeakPulseApi; + +typedef struct { + int format; + uint32_t rate; + uint8_t channels; +} PeakPaSampleSpec; + typedef struct { Display *display; Atom wm_delete_window; } PeakLinux; +typedef struct { + volatile int run; + int thread_on; + pthread_t thread; + void *stream; + int16_t *buf; + uint32_t channels; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + struct peak_window_internal_t { Window window; GC gfx_ctx; @@ -635,6 +1035,8 @@ struct peak_window_internal_t { static PeakLinux peak_linux; static PeakX11Api peak_x11; +static PeakPulseApi peak_pulse; +static PeakAudio peak_audio; static int peak_internal_x11_load(void *handle) @@ -877,6 +1279,154 @@ peak_platform_epoll(PeakWindowInternal *w, PeakEvent *ev) } return 0; } + +static int +peak_internal_pulse_load(void) +{ + void *handle; + + if (peak_pulse.pa_simple_new) + return 1; + if (!(handle = dlopen(PEAK_PULSE_LINUX, RTLD_LOCAL | RTLD_NOW))) { + fputs("Failed to load PulseAudio library. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, args) peak_pulse.name = (ret (*) args)dlsym(handle, #name); + PEAK_PULSE_API(X) +#undef X +#define X(name, ret, args) || !peak_pulse.name + if (0 PEAK_PULSE_API(X)) { + fputs("Failed to load PulseAudio symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void * +peak_internal_audio_thread(void *arg) +{ + size_t n; + int error; + + (void)arg; + n = (size_t)peak_audio.channels * PEAK_AUDIO_FRAMES; + while (peak_audio.run) { + memset(peak_audio.buf, 0, n * sizeof(int16_t)); + if (peak_audio.fill) + peak_audio.fill(peak_audio.buf, PEAK_AUDIO_FRAMES, peak_audio.userdata); + if (peak_pulse.pa_simple_write(peak_audio.stream, peak_audio.buf, n * sizeof(int16_t), &error) < 0) + break; + } + return NULL; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + PeakPaSampleSpec ss; + int error; + + if (channels > 32) + return 0; + if (!peak_internal_pulse_load()) + return 0; + + ss.format = 3; /* PA_SAMPLE_S16LE */ + ss.rate = rate; + ss.channels = (uint8_t)channels; + peak_audio.stream = peak_pulse.pa_simple_new(NULL, "Peak", 1, NULL, "playback", &ss, NULL, NULL, &error); + if (!peak_audio.stream) { + fputs("Failed to open PulseAudio stream", stderr); + return 0; + } + if (!(peak_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.channels = channels; + peak_audio.run = 1; + if (pthread_create(&peak_audio.thread, NULL, peak_internal_audio_thread, NULL) != 0) { + peak_audio.thread_on = 0; + peak_audio.run = 0; + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.thread_on = 1; + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + struct timespec ts; + clock_gettime(CLOCK_MONOTONIC, &ts); + return (uint64_t)ts.tv_sec * NANOS_PER_SEC + (uint64_t)ts.tv_nsec; +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + struct timespec ts; + if (ns <= 0) return; + ts.tv_sec = ns / 1000000000ll; + ts.tv_nsec = ns % 1000000000ll; + nanosleep(&ts, NULL); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_xlib_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkXlibSurfaceCreateInfoKHR ci; + if (!w || !peak_linux.display || !w->window) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_XLIB_SURFACE_CREATE_INFO_KHR; + ci.dpy = peak_linux.display; + ci.window = w->window; + return vkCreateXlibSurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + if (!peak_audio.run && !peak_audio.stream) + return; + peak_audio.run = 0; + if (peak_audio.thread_on) { + pthread_join(peak_audio.thread, NULL); + peak_audio.thread_on = 0; + } + if (peak_audio.stream) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + } + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} /* --- End of p_linux.c --- */ #elif defined(PEAK_WEB) /* --- Start of p_emscripten.c --- */ @@ -1068,10 +1618,129 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) struct peak_web_win *w = intern ? intern->w : NULL; return w ? peak_q_pop(&w->q, ev) : 0; } + +#define PEAK_AUDIO_FRAMES 1024 + +static struct { + int run; + uint32_t channels; + int16_t *buf; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} peak_web_audio; + +void EMSCRIPTEN_KEEPALIVE +peak_internal_web_audio_fill(int16_t *out, int frames) +{ + size_t n; + + if (!peak_web_audio.run || !out || frames <= 0) + return; + n = (size_t)frames * peak_web_audio.channels; + memset(out, 0, n * sizeof(int16_t)); + if (peak_web_audio.fill) + peak_web_audio.fill(out, (size_t)frames, peak_web_audio.userdata); +} + +EM_JS(int, peak_web_audio_dom_start, (int channels, int rate, int frames, uintptr_t ptr), { + var AC = window.AudioContext || window.webkitAudioContext; + var ctx, proc, i, c, heap, off, ch; + if (!AC || Module._peak_web_audio) + return 0; + ctx = new AC({ sampleRate: rate }); + if (ctx.sampleRate !== rate) { + ctx.close(); + return 0; + } + proc = ctx.createScriptProcessor(frames, 0, channels); + proc.onaudioprocess = function(e) { + Module._peak_internal_web_audio_fill(ptr, frames); + heap = Module.HEAP16; + off = ptr >> 1; + for (c = 0; c < channels; c++) { + ch = e.outputBuffer.getChannelData(c); + for (i = 0; i < frames; i++) + ch[i] = heap[off + i * channels + c] / 32768.0; + } + }; + proc.connect(ctx.destination); + ctx.resume(); + Module._peak_web_audio = { ctx: ctx, proc: proc }; + return 1; +}); + +EM_JS(void, peak_web_audio_dom_stop, (void), { + var a = Module._peak_web_audio; + if (!a) + return; + a.proc.disconnect(); + a.ctx.close(); + Module._peak_web_audio = null; +}); + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (channels > 32) + return 0; + if (!(peak_web_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) + return 0; + peak_web_audio.fill = fill; + peak_web_audio.userdata = userdata; + peak_web_audio.channels = channels; + peak_web_audio.run = 1; + if (!peak_web_audio_dom_start((int)channels, (int)rate, PEAK_AUDIO_FRAMES, (uintptr_t)peak_web_audio.buf)) { + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.run = 0; + peak_web_audio.fill = NULL; + return 0; + } + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + return (uint64_t)(emscripten_get_now() * 1000000.0); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + emscripten_sleep((unsigned)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + if (count) *count = 0; + return NULL; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +} + +static void +peak_platform_audio_stop(void) +{ + peak_web_audio.run = 0; + peak_web_audio_dom_stop(); + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.fill = NULL; + peak_web_audio.userdata = NULL; +} /* --- End of p_emscripten.c --- */ #endif -/* We define PeakWindow only when we know the type of peak_window_internal_t */ +/* NOTE(vasco): We define PeakWindow only when + * we know the type of peak_window_internal_t */ struct PeakWindow { PeakWindowInternal internal; int (*tick)(struct PeakWindow *win, void *userdata); @@ -1080,11 +1749,170 @@ struct PeakWindow { uint32_t width; uint32_t height; uint32_t bufsize; + uint16_t *audio; // LRLRLR int running; }; +/* --- Start of p_log.c --- */ +/* + * Logging! + */ + +#include +#include +#include +#include + +#define PEAK_MAX_PRINTF 1024 +#define PEAK_MAX_ALLOCS 512 + +typedef struct { + void *ptr; + size_t size; + const char *file; + const char *func; + int line; +} PeakDebugMemoryInfo; + +static uint64_t peak_alloc_count = 0; +static PeakDebugMemoryInfo peak_ptr_array[PEAK_MAX_ALLOCS]; + +void +peak_log_printf(PeakLogLevel level, const char *src, ...) +{ + char out[PEAK_MAX_PRINTF]; + va_list ap; + int len; + size_t offset = P_PREFIX_LEN + 1; + + if (level < 0 || level >= P_COUNT_LOG_LEVEL) + level = P_LOG_LEVEL_ERROR; + memcpy(out, p_prefix[level], P_PREFIX_LEN); + out[P_PREFIX_LEN] = ' '; + va_start(ap, src); + len = vsnprintf(out + offset, PEAK_MAX_PRINTF - offset, src, ap); + va_end(ap); + if (len < 0) len = 0; + if (offset + (size_t)len >= PEAK_MAX_PRINTF) + len = (int)(PEAK_MAX_PRINTF - offset - 1); + out[offset + (size_t)len] = '\n'; + fwrite(out, 1, offset + (size_t)len + 1, (level <= P_LOG_LEVEL_ERROR) ? stderr : stdout); +} + +void * +peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func) +{ + void *ptr = malloc(size); + printf("[ALLOC] %p (%zu bytes) -> %s:%d %s()\n", ptr, size, file, line, func); + + if (ptr) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } else { + fprintf(stderr, "[ERROR] Debug allocator tracking capacity (%d) exceeded!\n", PEAK_MAX_ALLOCS); + } + } + return ptr; +} + +void +peak_debug_free_impl(void *ptr, const char *file, int line, const char *func) +{ + printf("[FREE] %p -> %s:%d %s()\n", ptr, file, line, func); + + if (!ptr) return; + + bool found = false; + uint64_t index = 0; + + for (index = 0; index < peak_alloc_count; ++index) { + if (peak_ptr_array[index].ptr == ptr) { + found = true; + break; + } + } + + if (found) { + for (uint64_t j = index; j < peak_alloc_count - 1; ++j) { + peak_ptr_array[j] = peak_ptr_array[j + 1]; + } + peak_alloc_count--; + } else { + fprintf(stderr, "[WARNING] Attempted to free untracked/double-freed pointer %p at %s:%d %s()\n", + ptr, file, line, func); + } + + free(ptr); +} + +void * +peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func) +{ + if (!ptr) { + return peak_debug_malloc_impl(size, file, line, func); + } + if (size == 0) { + peak_debug_free_impl(ptr, file, line, func); + return NULL; + } + + uintptr_t old_addr = (uintptr_t)ptr; + void *new_ptr = realloc(ptr, size); + printf("[REALLOC] %p -> %p (%zu bytes) -> %s:%d %s()\n", (void *)old_addr, new_ptr, size, file, line, func); + + if (new_ptr) { + bool found = false; + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + if (peak_ptr_array[i].ptr == (void *)old_addr) { + peak_ptr_array[i].ptr = new_ptr; + peak_ptr_array[i].size = size; + peak_ptr_array[i].file = file; + peak_ptr_array[i].line = line; + peak_ptr_array[i].func = func; + found = true; + break; + } + } + if (!found) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = new_ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } + } + } + return new_ptr; +} + +void +peak_debug_memory_report(void) +{ + printf("\n==================== MEMORY REPORT ====================\n"); + printf("Remaining unfreed allocations: %lu\n", (unsigned long)peak_alloc_count); + + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + PeakDebugMemoryInfo *info = &peak_ptr_array[i]; + printf("[LEAK] %p (%zu bytes) allocated at %s:%d in %s()\n", + info->ptr, info->size, info->file, info->line, info->func); + } + printf("=======================================================\n"); +} +/* --- End of p_log.c --- */ /* --- Start of peak.c --- */ +#include +#include + static uint32_t * peak_window_sync(PeakWindow *win, size_t *width, size_t *height) { @@ -1107,6 +1935,7 @@ peak_init(void) void peak_quit(void) { + peak_audio_stop(); peak_platform_quit(); } @@ -1203,6 +2032,82 @@ peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdat while (win->running && win->tick(win, win->userdata)); #endif } + +int +peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (!fill || !channels || !rate) + return 0; + peak_audio_stop(); + return peak_platform_audio_start(channels, rate, fill, userdata); +} + +void +peak_audio_stop(void) +{ + peak_platform_audio_stop(); +} + +uint64_t +peak_get_time(void) +{ + return peak_platform_get_time(); +} + +void +peak_sleep_ns(int64_t ns) +{ + peak_platform_sleep_ns(ns); +} + +int +peak_file_exists(const char *path) +{ + FILE *f; + if (!path) return 0; + f = fopen(path, "rb"); + if (!f) return 0; + fclose(f); + return 1; +} + +void * +peak_file_alloc(const char *path, unsigned long *buf_size) +{ + FILE *f; + long n; + void *p; + if (!path) return NULL; + f = fopen(path, "rb"); + if (!f) return NULL; + if (fseek(f, 0, SEEK_END) != 0) { fclose(f); return NULL; } + n = ftell(f); + if (n < 0) { fclose(f); return NULL; } + rewind(f); + p = malloc((size_t)n + (n == 0)); + if (!p) { fclose(f); return NULL; } + if (n && fread(p, 1, (size_t)n, f) != (size_t)n) { + free(p); + fclose(f); + return NULL; + } + fclose(f); + if (buf_size) *buf_size = (unsigned long)n; + return p; +} + +const char ** +peak_vulkan_get_extensions(uint32_t *count) +{ + return peak_platform_vulkan_get_extensions(count); +} + +int +peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface) +{ + if (!win || !instance || !out_surface) return 0; + return peak_platform_vulkan_create_surface(&win->internal, instance, allocator, out_surface); +} /* --- End of peak.c --- */ #endif // PEAK_IMPLEMENTATION diff --git a/Peak/src/p_emscripten.c b/Peak/src/p_emscripten.c index f79f575..6da25a8 100644 --- a/Peak/src/p_emscripten.c +++ b/Peak/src/p_emscripten.c @@ -186,3 +186,121 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) struct peak_web_win *w = intern ? intern->w : NULL; return w ? peak_q_pop(&w->q, ev) : 0; } + +#define PEAK_AUDIO_FRAMES 1024 + +static struct { + int run; + uint32_t channels; + int16_t *buf; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} peak_web_audio; + +void EMSCRIPTEN_KEEPALIVE +peak_internal_web_audio_fill(int16_t *out, int frames) +{ + size_t n; + + if (!peak_web_audio.run || !out || frames <= 0) + return; + n = (size_t)frames * peak_web_audio.channels; + memset(out, 0, n * sizeof(int16_t)); + if (peak_web_audio.fill) + peak_web_audio.fill(out, (size_t)frames, peak_web_audio.userdata); +} + +EM_JS(int, peak_web_audio_dom_start, (int channels, int rate, int frames, uintptr_t ptr), { + var AC = window.AudioContext || window.webkitAudioContext; + var ctx, proc, i, c, heap, off, ch; + if (!AC || Module._peak_web_audio) + return 0; + ctx = new AC({ sampleRate: rate }); + if (ctx.sampleRate !== rate) { + ctx.close(); + return 0; + } + proc = ctx.createScriptProcessor(frames, 0, channels); + proc.onaudioprocess = function(e) { + Module._peak_internal_web_audio_fill(ptr, frames); + heap = Module.HEAP16; + off = ptr >> 1; + for (c = 0; c < channels; c++) { + ch = e.outputBuffer.getChannelData(c); + for (i = 0; i < frames; i++) + ch[i] = heap[off + i * channels + c] / 32768.0; + } + }; + proc.connect(ctx.destination); + ctx.resume(); + Module._peak_web_audio = { ctx: ctx, proc: proc }; + return 1; +}); + +EM_JS(void, peak_web_audio_dom_stop, (void), { + var a = Module._peak_web_audio; + if (!a) + return; + a.proc.disconnect(); + a.ctx.close(); + Module._peak_web_audio = null; +}); + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (channels > 32) + return 0; + if (!(peak_web_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) + return 0; + peak_web_audio.fill = fill; + peak_web_audio.userdata = userdata; + peak_web_audio.channels = channels; + peak_web_audio.run = 1; + if (!peak_web_audio_dom_start((int)channels, (int)rate, PEAK_AUDIO_FRAMES, (uintptr_t)peak_web_audio.buf)) { + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.run = 0; + peak_web_audio.fill = NULL; + return 0; + } + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + return (uint64_t)(emscripten_get_now() * 1000000.0); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + emscripten_sleep((unsigned)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + if (count) *count = 0; + return NULL; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +} + +static void +peak_platform_audio_stop(void) +{ + peak_web_audio.run = 0; + peak_web_audio_dom_stop(); + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.fill = NULL; + peak_web_audio.userdata = NULL; +} diff --git a/Peak/src/p_linux.c b/Peak/src/p_linux.c index 0dc5e2f..9090b46 100644 --- a/Peak/src/p_linux.c +++ b/Peak/src/p_linux.c @@ -7,10 +7,24 @@ #include #include #include +#include #include #include +#include +#include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_XLIB_KHR +#include +#endif #define PEAK_X11_LINUX "libX11.so.6" +#define PEAK_PULSE_LINUX "libpulse-simple.so.0" +#define PEAK_AUDIO_FRAMES 256 + +#define PEAK_PULSE_API(X) \ + X(pa_simple_new, void *, (const char *, const char *, int, const char *, const char *, const void *, const void *, const void *, int *)) \ + X(pa_simple_free, void, (void *)) \ + X(pa_simple_write, int, (void *, const void *, size_t, int *)) #define PEAK_X11_API(X) \ X(XOpenDisplay, Display *, (const char *)) \ @@ -36,11 +50,34 @@ typedef struct { #undef X } PeakX11Api; +typedef struct { +#define X(name, ret, args) ret (*name) args; + PEAK_PULSE_API(X) +#undef X +} PeakPulseApi; + +typedef struct { + int format; + uint32_t rate; + uint8_t channels; +} PeakPaSampleSpec; + typedef struct { Display *display; Atom wm_delete_window; } PeakLinux; +typedef struct { + volatile int run; + int thread_on; + pthread_t thread; + void *stream; + int16_t *buf; + uint32_t channels; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + struct peak_window_internal_t { Window window; GC gfx_ctx; @@ -52,6 +89,8 @@ struct peak_window_internal_t { static PeakLinux peak_linux; static PeakX11Api peak_x11; +static PeakPulseApi peak_pulse; +static PeakAudio peak_audio; static int peak_internal_x11_load(void *handle) @@ -294,3 +333,151 @@ peak_platform_epoll(PeakWindowInternal *w, PeakEvent *ev) } return 0; } + +static int +peak_internal_pulse_load(void) +{ + void *handle; + + if (peak_pulse.pa_simple_new) + return 1; + if (!(handle = dlopen(PEAK_PULSE_LINUX, RTLD_LOCAL | RTLD_NOW))) { + fputs("Failed to load PulseAudio library. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, args) peak_pulse.name = (ret (*) args)dlsym(handle, #name); + PEAK_PULSE_API(X) +#undef X +#define X(name, ret, args) || !peak_pulse.name + if (0 PEAK_PULSE_API(X)) { + fputs("Failed to load PulseAudio symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void * +peak_internal_audio_thread(void *arg) +{ + size_t n; + int error; + + (void)arg; + n = (size_t)peak_audio.channels * PEAK_AUDIO_FRAMES; + while (peak_audio.run) { + memset(peak_audio.buf, 0, n * sizeof(int16_t)); + if (peak_audio.fill) + peak_audio.fill(peak_audio.buf, PEAK_AUDIO_FRAMES, peak_audio.userdata); + if (peak_pulse.pa_simple_write(peak_audio.stream, peak_audio.buf, n * sizeof(int16_t), &error) < 0) + break; + } + return NULL; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + PeakPaSampleSpec ss; + int error; + + if (channels > 32) + return 0; + if (!peak_internal_pulse_load()) + return 0; + + ss.format = 3; /* PA_SAMPLE_S16LE */ + ss.rate = rate; + ss.channels = (uint8_t)channels; + peak_audio.stream = peak_pulse.pa_simple_new(NULL, "Peak", 1, NULL, "playback", &ss, NULL, NULL, &error); + if (!peak_audio.stream) { + fputs("Failed to open PulseAudio stream", stderr); + return 0; + } + if (!(peak_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.channels = channels; + peak_audio.run = 1; + if (pthread_create(&peak_audio.thread, NULL, peak_internal_audio_thread, NULL) != 0) { + peak_audio.thread_on = 0; + peak_audio.run = 0; + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.thread_on = 1; + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + struct timespec ts; + clock_gettime(CLOCK_MONOTONIC, &ts); + return (uint64_t)ts.tv_sec * NANOS_PER_SEC + (uint64_t)ts.tv_nsec; +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + struct timespec ts; + if (ns <= 0) return; + ts.tv_sec = ns / 1000000000ll; + ts.tv_nsec = ns % 1000000000ll; + nanosleep(&ts, NULL); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_xlib_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkXlibSurfaceCreateInfoKHR ci; + if (!w || !peak_linux.display || !w->window) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_XLIB_SURFACE_CREATE_INFO_KHR; + ci.dpy = peak_linux.display; + ci.window = w->window; + return vkCreateXlibSurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + if (!peak_audio.run && !peak_audio.stream) + return; + peak_audio.run = 0; + if (peak_audio.thread_on) { + pthread_join(peak_audio.thread, NULL); + peak_audio.thread_on = 0; + } + if (peak_audio.stream) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + } + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} diff --git a/Peak/src/p_log.c b/Peak/src/p_log.c new file mode 100644 index 0000000..136214d --- /dev/null +++ b/Peak/src/p_log.c @@ -0,0 +1,153 @@ +/* + * Logging! + */ + +#include +#include +#include +#include + +#define PEAK_MAX_PRINTF 1024 +#define PEAK_MAX_ALLOCS 512 + +typedef struct { + void *ptr; + size_t size; + const char *file; + const char *func; + int line; +} PeakDebugMemoryInfo; + +static uint64_t peak_alloc_count = 0; +static PeakDebugMemoryInfo peak_ptr_array[PEAK_MAX_ALLOCS]; + +void +peak_log_printf(PeakLogLevel level, const char *src, ...) +{ + char out[PEAK_MAX_PRINTF]; + va_list ap; + int len; + size_t offset = P_PREFIX_LEN + 1; + + if (level < 0 || level >= P_COUNT_LOG_LEVEL) + level = P_LOG_LEVEL_ERROR; + memcpy(out, p_prefix[level], P_PREFIX_LEN); + out[P_PREFIX_LEN] = ' '; + va_start(ap, src); + len = vsnprintf(out + offset, PEAK_MAX_PRINTF - offset, src, ap); + va_end(ap); + if (len < 0) len = 0; + if (offset + (size_t)len >= PEAK_MAX_PRINTF) + len = (int)(PEAK_MAX_PRINTF - offset - 1); + out[offset + (size_t)len] = '\n'; + fwrite(out, 1, offset + (size_t)len + 1, (level <= P_LOG_LEVEL_ERROR) ? stderr : stdout); +} + +void * +peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func) +{ + void *ptr = malloc(size); + printf("[ALLOC] %p (%zu bytes) -> %s:%d %s()\n", ptr, size, file, line, func); + + if (ptr) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } else { + fprintf(stderr, "[ERROR] Debug allocator tracking capacity (%d) exceeded!\n", PEAK_MAX_ALLOCS); + } + } + return ptr; +} + +void +peak_debug_free_impl(void *ptr, const char *file, int line, const char *func) +{ + printf("[FREE] %p -> %s:%d %s()\n", ptr, file, line, func); + + if (!ptr) return; + + bool found = false; + uint64_t index = 0; + + for (index = 0; index < peak_alloc_count; ++index) { + if (peak_ptr_array[index].ptr == ptr) { + found = true; + break; + } + } + + if (found) { + for (uint64_t j = index; j < peak_alloc_count - 1; ++j) { + peak_ptr_array[j] = peak_ptr_array[j + 1]; + } + peak_alloc_count--; + } else { + fprintf(stderr, "[WARNING] Attempted to free untracked/double-freed pointer %p at %s:%d %s()\n", + ptr, file, line, func); + } + + free(ptr); +} + +void * +peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func) +{ + if (!ptr) { + return peak_debug_malloc_impl(size, file, line, func); + } + if (size == 0) { + peak_debug_free_impl(ptr, file, line, func); + return NULL; + } + + uintptr_t old_addr = (uintptr_t)ptr; + void *new_ptr = realloc(ptr, size); + printf("[REALLOC] %p -> %p (%zu bytes) -> %s:%d %s()\n", (void *)old_addr, new_ptr, size, file, line, func); + + if (new_ptr) { + bool found = false; + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + if (peak_ptr_array[i].ptr == (void *)old_addr) { + peak_ptr_array[i].ptr = new_ptr; + peak_ptr_array[i].size = size; + peak_ptr_array[i].file = file; + peak_ptr_array[i].line = line; + peak_ptr_array[i].func = func; + found = true; + break; + } + } + if (!found) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = new_ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } + } + } + return new_ptr; +} + +void +peak_debug_memory_report(void) +{ + printf("\n==================== MEMORY REPORT ====================\n"); + printf("Remaining unfreed allocations: %lu\n", (unsigned long)peak_alloc_count); + + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + PeakDebugMemoryInfo *info = &peak_ptr_array[i]; + printf("[LEAK] %p (%zu bytes) allocated at %s:%d in %s()\n", + info->ptr, info->size, info->file, info->line, info->func); + } + printf("=======================================================\n"); +} diff --git a/Peak/src/p_win32.c b/Peak/src/p_win32.c index c1a289b..cf99b6c 100644 --- a/Peak/src/p_win32.c +++ b/Peak/src/p_win32.c @@ -1,40 +1,65 @@ +/* + * Win32 window, input, StretchDIBits present, and waveOut audio. + * user32.dll, gdi32.dll, and winmm.dll are loaded at runtime. + * + * * 0.4.0 - @vasco - win32 + * * 0.5.0 - @vasco - audio start/stop, s16le pull callback + */ + #ifndef WIN32_LEAN_AND_MEAN #define WIN32_LEAN_AND_MEAN #endif +/* windows.h must precede mmsystem.h */ #include +#include #include #include #include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_WIN32_KHR +#include +#endif #define PEAK_WIN32_USER32 "user32.dll" #define PEAK_WIN32_GDI32 "gdi32.dll" +#define PEAK_WIN32_WINMM "winmm.dll" #define PEAK_WIN32_CLASS "PeakWindow" #define PEAK_WIN32_PROP "Peak" +#define PEAK_AUDIO_FRAMES 256 +#define PEAK_AUDIO_BUFFERS 2 #define PEAK_USER32_API(X) \ - X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ - X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ - X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ - X(DestroyWindow, BOOL, WINAPI, (HWND)) \ - X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ - X(GetDC, HDC, WINAPI, (HWND)) \ - X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ - X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ - X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ - X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ - X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ - X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ - X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ - X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ - X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ - X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ - X(GetKeyState, SHORT, WINAPI, (int)) + X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ + X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ + X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ + X(DestroyWindow, BOOL, WINAPI, (HWND)) \ + X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ + X(GetDC, HDC, WINAPI, (HWND)) \ + X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ + X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ + X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ + X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ + X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ + X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ + X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ + X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ + X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ + X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ + X(GetKeyState, SHORT, WINAPI, (int)) #define PEAK_GDI32_API(X) \ - X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + +#define PEAK_WINMM_API(X) \ + X(waveOutOpen, MMRESULT, WINAPI, (LPHWAVEOUT, UINT, LPCWAVEFORMATEX, DWORD_PTR, DWORD_PTR, DWORD)) \ + X(waveOutClose, MMRESULT, WINAPI, (HWAVEOUT)) \ + X(waveOutPrepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutUnprepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutWrite, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutReset, MMRESULT, WINAPI, (HWAVEOUT)) typedef struct { #define X(name, ret, conv, args) ret (conv *name) args; @@ -48,6 +73,25 @@ typedef struct { #undef X } PeakGdi32Api; +typedef struct { +#define X(name, ret, conv, args) ret (conv *name) args; + PEAK_WINMM_API(X) +#undef X +} PeakWinmmApi; + +typedef struct { + volatile int run; + HANDLE thread; + HANDLE event; + HWAVEOUT out; + WAVEHDR hdr[PEAK_AUDIO_BUFFERS]; + int16_t *pcm[PEAK_AUDIO_BUFFERS]; + uint32_t channels; + uint32_t bytes; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + typedef struct { HMODULE user32; HMODULE gdi32; @@ -67,9 +111,28 @@ struct peak_window_internal_t { struct peak_win32_win *w; }; +static int peak_internal_user32_load(HMODULE handle); +static int peak_internal_gdi32_load(HMODULE handle); +static PeakKeyCode peak_internal_win32_key_map(WPARAM vk); +static PeakKeyMod peak_internal_win32_mod_map(void); +static int peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height); +static LRESULT CALLBACK peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam); +static int peak_platform_init(void); +static void peak_platform_quit(void); +static PeakWindowInternal peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); +static void peak_platform_window_close(PeakWindowInternal *intern); +static uint32_t *peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height); +static void peak_platform_window_present(PeakWindowInternal *intern); +static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev); +static int peak_internal_winmm_load(void); +static void peak_internal_win32_audio_fill(int i); +static DWORD WINAPI peak_internal_win32_audio_thread(LPVOID arg); + static PeakWin32 peak_win32; static PeakUser32Api peak_user32; static PeakGdi32Api peak_gdi32; +static PeakWinmmApi peak_winmm; +static PeakAudio peak_audio; static int peak_internal_user32_load(HMODULE handle) @@ -103,34 +166,45 @@ peak_internal_win32_key_map(WPARAM vk) if (vk >= 'A' && vk <= 'Z') return (PeakKeyCode)(PEAK_KEY_A + (int)(vk - 'A')); switch (vk) { - case VK_UP: return PEAK_KEY_UP; - case VK_DOWN: return PEAK_KEY_DOWN; - case VK_LEFT: return PEAK_KEY_LEFT; - case VK_RIGHT: return PEAK_KEY_RIGHT; - case VK_SPACE: return PEAK_KEY_SPACE; - case VK_ESCAPE: return PEAK_KEY_ESCAPE; - case VK_RETURN: return PEAK_KEY_ENTER; - default: return PEAK_KEY_UNKNOWN; + case VK_UP: + return PEAK_KEY_UP; + case VK_DOWN: + return PEAK_KEY_DOWN; + case VK_LEFT: + return PEAK_KEY_LEFT; + case VK_RIGHT: + return PEAK_KEY_RIGHT; + case VK_SPACE: + return PEAK_KEY_SPACE; + case VK_ESCAPE: + return PEAK_KEY_ESCAPE; + case VK_RETURN: + return PEAK_KEY_ENTER; + default: + return PEAK_KEY_UNKNOWN; } } static PeakKeyMod peak_internal_win32_mod_map(void) { - if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) return PEAK_KEYMOD_CTRL; - if (peak_user32.GetKeyState(VK_MENU) & 0x8000) return PEAK_KEYMOD_ALT; - if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) return PEAK_KEYMOD_SHIFT; - if (peak_user32.GetKeyState(VK_CAPITAL) & 1) return PEAK_KEYMOD_CAPS; + if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) + return PEAK_KEYMOD_CTRL; + if (peak_user32.GetKeyState(VK_MENU) & 0x8000) + return PEAK_KEYMOD_ALT; + if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) + return PEAK_KEYMOD_SHIFT; + if (peak_user32.GetKeyState(VK_CAPITAL) & 1) + return PEAK_KEYMOD_CAPS; return (PeakKeyMod)0; } static int -peak_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) +peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) { uint32_t *buffer; - buffer = calloc((size_t)width * height, sizeof *buffer); - if (!buffer) + if (!(buffer = calloc((size_t)width * height, sizeof(*buffer)))) return 0; free(w->buffer); w->buffer = buffer; @@ -144,9 +218,10 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) { struct peak_win32_win *w; PeakEvent ev; + CREATESTRUCTA *cs; if (msg == WM_NCCREATE) { - CREATESTRUCTA *cs = (CREATESTRUCTA *)lparam; + cs = (CREATESTRUCTA *)lparam; peak_user32.SetPropA(hwnd, PEAK_WIN32_PROP, cs->lpCreateParams); } @@ -156,45 +231,46 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) switch (msg) { case WM_CLOSE: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_CLOSE; peak_q_push(&w->q, ev); return 0; case WM_SIZE: { uint32_t width, height; + if (wparam == SIZE_MINIMIZED) return 0; width = (uint32_t)LOWORD(lparam); height = (uint32_t)HIWORD(lparam); if (!width || !height || (width == w->width && height == w->height)) return 0; - if (!peak_win32_buffer(w, width, height)) + if (!peak_internal_win32_buffer(w, width, height)) return 0; - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_RESIZE; ev.resize.width = w->width; ev.resize.height = w->height; peak_q_push(&w->q, ev); return 0; } - case WM_KEYDOWN: - case WM_KEYUP: - case WM_SYSKEYDOWN: + case WM_KEYDOWN: /* FALLTHROUGH */ + case WM_KEYUP: /* FALLTHROUGH */ + case WM_SYSKEYDOWN: /* FALLTHROUGH */ case WM_SYSKEYUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = (msg == WM_KEYDOWN || msg == WM_SYSKEYDOWN) ? PEAK_EVENT_KEY_DOWN : PEAK_EVENT_KEY_UP; ev.key.key = peak_internal_win32_key_map(wparam); ev.key.mod = peak_internal_win32_mod_map(); peak_q_push(&w->q, ev); return 0; - case WM_MOUSEMOVE: - case WM_LBUTTONDOWN: - case WM_LBUTTONUP: - case WM_RBUTTONDOWN: - case WM_RBUTTONUP: - case WM_MBUTTONDOWN: + case WM_MOUSEMOVE: /* FALLTHROUGH */ + case WM_LBUTTONDOWN: /* FALLTHROUGH */ + case WM_LBUTTONUP: /* FALLTHROUGH */ + case WM_RBUTTONDOWN: /* FALLTHROUGH */ + case WM_RBUTTONUP: /* FALLTHROUGH */ + case WM_MBUTTONDOWN: /* FALLTHROUGH */ case WM_MBUTTONUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_POINTER; ev.pointer.x = (float)(short)LOWORD(lparam); ev.pointer.y = (float)(short)HIWORD(lparam); @@ -215,6 +291,7 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) return 0; case WM_PAINT: { PAINTSTRUCT ps; + peak_user32.BeginPaint(hwnd, &ps); peak_user32.EndPaint(hwnd, &ps); return 0; @@ -255,8 +332,8 @@ peak_platform_init(void) } } if (!peak_win32.class_reg) { - memset(&wc, 0, sizeof wc); - wc.cbSize = sizeof wc; + memset(&wc, 0, sizeof(wc)); + wc.cbSize = sizeof(wc); wc.style = CS_OWNDC; wc.lpfnWndProc = peak_internal_win32_wndproc; wc.hInstance = GetModuleHandleA(NULL); @@ -293,10 +370,9 @@ peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uin if (!peak_user32.CreateWindowExA && !peak_platform_init()) return intern; - w = calloc(1, sizeof *w); - if (!w) + if (!(w = calloc(1, sizeof(*w)))) return intern; - if (!peak_win32_buffer(w, width, height)) { + if (!peak_internal_win32_buffer(w, width, height)) { free(w); return intern; } @@ -335,6 +411,7 @@ static void peak_platform_window_close(PeakWindowInternal *intern) { struct peak_win32_win *w; + if (!intern || !intern->w) return; w = intern->w; @@ -352,7 +429,9 @@ peak_platform_window_close(PeakWindowInternal *intern) static uint32_t * peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + + w = intern ? intern->w : NULL; if (!w) { *width = 0; *height = 0; @@ -366,13 +445,14 @@ peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *h static void peak_platform_window_present(PeakWindowInternal *intern) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; BITMAPINFO bmi; + w = intern ? intern->w : NULL; if (!w || !w->hwnd || !w->hdc || !w->buffer) return; - memset(&bmi, 0, sizeof bmi); + memset(&bmi, 0, sizeof(bmi)); bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER); bmi.bmiHeader.biWidth = (LONG)w->width; bmi.bmiHeader.biHeight = -(LONG)w->height; @@ -389,8 +469,9 @@ static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) { MSG msg; - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + w = intern ? intern->w : NULL; if (!w || !w->hwnd) return 0; @@ -402,3 +483,195 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) } return peak_q_pop(&w->q, ev); } + +static int +peak_internal_winmm_load(void) +{ + HMODULE handle; + + if (peak_winmm.waveOutOpen) + return 1; + if (!(handle = LoadLibraryA(PEAK_WIN32_WINMM))) { + fputs("Failed to load winmm.dll. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, conv, args) peak_winmm.name = (ret (conv *) args)(void *)GetProcAddress(handle, #name); + PEAK_WINMM_API(X) +#undef X +#define X(name, ret, conv, args) || !peak_winmm.name + if (0 PEAK_WINMM_API(X)) { + fputs("Failed to load winmm symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void +peak_internal_win32_audio_fill(int i) +{ + memset(peak_audio.pcm[i], 0, peak_audio.bytes); + if (peak_audio.fill) + peak_audio.fill(peak_audio.pcm[i], PEAK_AUDIO_FRAMES, peak_audio.userdata); + peak_winmm.waveOutWrite(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); +} + +static DWORD WINAPI +peak_internal_win32_audio_thread(LPVOID arg) +{ + int i, did; + + (void)arg; + for (;;) { + did = 0; + if (!peak_audio.run) + break; + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_DONE) { + peak_internal_win32_audio_fill(i); + did = 1; + } + } + if (did) + continue; + WaitForSingleObject(peak_audio.event, INFINITE); + ResetEvent(peak_audio.event); + } + return 0; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + WAVEFORMATEX fmt; + int i; + + if (channels > 32) + return 0; + if (!peak_internal_winmm_load()) + return 0; + + memset(&fmt, 0, sizeof(fmt)); + fmt.wFormatTag = WAVE_FORMAT_PCM; + fmt.nChannels = (WORD)channels; + fmt.nSamplesPerSec = rate; + fmt.wBitsPerSample = 16; + fmt.nBlockAlign = (WORD)(channels * 2); + fmt.nAvgBytesPerSec = rate * fmt.nBlockAlign; + + peak_audio.event = CreateEventA(NULL, TRUE, FALSE, NULL); + if (!peak_audio.event) + return 0; + if (peak_winmm.waveOutOpen(&peak_audio.out, WAVE_MAPPER, &fmt, (DWORD_PTR)peak_audio.event, 0, CALLBACK_EVENT) != MMSYSERR_NOERROR) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + fputs("Failed to open waveOut device", stderr); + return 0; + } + + peak_audio.channels = channels; + peak_audio.bytes = (uint32_t)channels * PEAK_AUDIO_FRAMES * sizeof(int16_t); + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.run = 1; + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (!(peak_audio.pcm[i] = calloc(1, peak_audio.bytes))) + goto fail; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + peak_audio.hdr[i].lpData = (LPSTR)peak_audio.pcm[i]; + peak_audio.hdr[i].dwBufferLength = peak_audio.bytes; + if (peak_winmm.waveOutPrepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)) != MMSYSERR_NOERROR) + goto fail; + peak_audio.hdr[i].dwFlags |= WHDR_DONE; + } + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) + peak_internal_win32_audio_fill(i); + + peak_audio.thread = CreateThread(NULL, 0, peak_internal_win32_audio_thread, NULL, 0, NULL); + if (!peak_audio.thread) + goto fail; + return 1; + +fail: + peak_platform_audio_stop(); + return 0; +} + +static uint64_t +peak_platform_get_time(void) +{ + LARGE_INTEGER count, freq; + QueryPerformanceCounter(&count); + QueryPerformanceFrequency(&freq); + return (uint64_t)((count.QuadPart * 1000000000ull) / freq.QuadPart); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + Sleep((DWORD)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_win32_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *intern, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkWin32SurfaceCreateInfoKHR ci; + if (!intern || !intern->w || !intern->w->hwnd) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_WIN32_SURFACE_CREATE_INFO_KHR; + ci.hwnd = intern->w->hwnd; + ci.hinstance = GetModuleHandleA(NULL); + return vkCreateWin32SurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)intern; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + int i; + + peak_audio.run = 0; + if (peak_audio.event) + SetEvent(peak_audio.event); + if (peak_audio.thread) { + WaitForSingleObject(peak_audio.thread, INFINITE); + CloseHandle(peak_audio.thread); + peak_audio.thread = NULL; + } + if (peak_audio.out) { + peak_winmm.waveOutReset(peak_audio.out); + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_PREPARED) + peak_winmm.waveOutUnprepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); + free(peak_audio.pcm[i]); + peak_audio.pcm[i] = NULL; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + } + peak_winmm.waveOutClose(peak_audio.out); + peak_audio.out = NULL; + } + if (peak_audio.event) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + } + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} diff --git a/Peak/src/peak.c b/Peak/src/peak.c index 6c4c038..e6e7655 100644 --- a/Peak/src/peak.c +++ b/Peak/src/peak.c @@ -1,3 +1,6 @@ +#include +#include + static uint32_t * peak_window_sync(PeakWindow *win, size_t *width, size_t *height) { @@ -20,6 +23,7 @@ peak_init(void) void peak_quit(void) { + peak_audio_stop(); peak_platform_quit(); } @@ -116,3 +120,79 @@ peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdat while (win->running && win->tick(win, win->userdata)); #endif } + +int +peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (!fill || !channels || !rate) + return 0; + peak_audio_stop(); + return peak_platform_audio_start(channels, rate, fill, userdata); +} + +void +peak_audio_stop(void) +{ + peak_platform_audio_stop(); +} + +uint64_t +peak_get_time(void) +{ + return peak_platform_get_time(); +} + +void +peak_sleep_ns(int64_t ns) +{ + peak_platform_sleep_ns(ns); +} + +int +peak_file_exists(const char *path) +{ + FILE *f; + if (!path) return 0; + f = fopen(path, "rb"); + if (!f) return 0; + fclose(f); + return 1; +} + +void * +peak_file_alloc(const char *path, unsigned long *buf_size) +{ + FILE *f; + long n; + void *p; + if (!path) return NULL; + f = fopen(path, "rb"); + if (!f) return NULL; + if (fseek(f, 0, SEEK_END) != 0) { fclose(f); return NULL; } + n = ftell(f); + if (n < 0) { fclose(f); return NULL; } + rewind(f); + p = malloc((size_t)n + (n == 0)); + if (!p) { fclose(f); return NULL; } + if (n && fread(p, 1, (size_t)n, f) != (size_t)n) { + free(p); + fclose(f); + return NULL; + } + fclose(f); + if (buf_size) *buf_size = (unsigned long)n; + return p; +} + +const char ** +peak_vulkan_get_extensions(uint32_t *count) +{ + return peak_platform_vulkan_get_extensions(count); +} + +int +peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface) +{ + if (!win || !instance || !out_surface) return 0; + return peak_platform_vulkan_create_surface(&win->internal, instance, allocator, out_surface); +} diff --git a/Peak/src/peak_header.h b/Peak/src/peak_header.h index b0a3023..d5dd3b5 100644 --- a/Peak/src/peak_header.h +++ b/Peak/src/peak_header.h @@ -10,8 +10,8 @@ #define PEAK_H #define PEAK_MAJOR "0" -#define PEAK_MINOR "1" -#define PEAK_PATCH "1" +#define PEAK_MINOR "5" +#define PEAK_PATCH "2" /* CHANGE LOG * 0.0.0 - @vasco - prototyping @@ -21,8 +21,13 @@ * 0.2.0 - @vasco - multiple windows, major-ish API changes. * 0.3.0 - @vasco - web via emscripten * 0.4.0 - @vasco - win32 + * 0.5.0 - @vasco - audio start/stop, s16le pull callback + * 0.5.1 - @vasco - log, file, time, vulkan extensions + * 0.5.2 - @vasco - vulkan surface from window */ +#define NANOS_PER_SEC 1000000000ull + #include #include #include @@ -75,6 +80,62 @@ #define PEAK extern #endif +typedef enum PeakLogLevel { + P_LOG_LEVEL_FATAL = 0, + P_LOG_LEVEL_ERROR, + P_LOG_LEVEL_WARN, + P_LOG_LEVEL_INFO, + P_LOG_LEVEL_DEBUG, + P_LOG_LEVEL_TRACE, + P_COUNT_LOG_LEVEL +} PeakLogLevel; + +#define P_PREFIX_LEN 7 +static const char *p_prefix[P_COUNT_LOG_LEVEL] = { + [P_LOG_LEVEL_FATAL] = "[FATAL]", + [P_LOG_LEVEL_ERROR] = "[ERROR]", + [P_LOG_LEVEL_WARN] = "[WARNI]", + [P_LOG_LEVEL_INFO] = "[INFOR]", + [P_LOG_LEVEL_DEBUG] = "[DEBUG]", + [P_LOG_LEVEL_TRACE] = "[TRACE]", +}; + +#ifndef P_LOG_WARN_ENABLED +#define P_LOG_WARN_ENABLED 1 +#endif +#ifndef P_LOG_INFO_ENABLED +#define P_LOG_INFO_ENABLED 1 +#endif +#ifndef P_LOG_DEBUG_ENABLED +#define P_LOG_DEBUG_ENABLED 0 +#endif +#ifndef P_LOG_TRACE_ENABLED +#define P_LOG_TRACE_ENABLED 0 +#endif + +#define PFATAL(message, ...) peak_log_printf(P_LOG_LEVEL_FATAL, message, ##__VA_ARGS__) +#define PERROR(message, ...) peak_log_printf(P_LOG_LEVEL_ERROR, message, ##__VA_ARGS__) +#if P_LOG_WARN_ENABLED == 1 +#define PWARN(message, ...) peak_log_printf(P_LOG_LEVEL_WARN, message, ##__VA_ARGS__) +#else +#define PWARN(message, ...) +#endif +#if P_LOG_INFO_ENABLED == 1 +#define PINFO(message, ...) peak_log_printf(P_LOG_LEVEL_INFO, message, ##__VA_ARGS__) +#else +#define PINFO(message, ...) +#endif +#if P_LOG_DEBUG_ENABLED == 1 +#define PDEBUG(message, ...) peak_log_printf(P_LOG_LEVEL_DEBUG, message, ##__VA_ARGS__) +#else +#define PDEBUG(message, ...) +#endif +#if P_LOG_TRACE_ENABLED == 1 +#define PTRACE(message, ...) peak_log_printf(P_LOG_LEVEL_TRACE, message, ##__VA_ARGS__) +#else +#define PTRACE(message, ...) +#endif + typedef enum { PEAK_KEYMOD_NONE = 0, PEAK_KEYMOD_ALT, @@ -130,22 +191,49 @@ typedef struct { typedef struct peak_window_internal_t PeakWindowInternal; typedef struct PeakWindow PeakWindow; -/* Public API */ +/* Initialize the platform. */ PEAK int peak_init(void); // Initialize platform context and load necessary DLLs. PEAK void peak_quit(void); // Close platform context. + +/* Do sexy stuff with the windows. */ PEAK PeakWindow peak_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); // Open a window. PEAK void peak_window_close(PeakWindow *window); // Close a window. PEAK void peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdata), void *userdata); // Hijacking the main loop makes life easier on platforms like web PEAK int peak_window_epoll(PeakWindow *win, PeakEvent *ev); // Poll a window for events. PEAK uint32_t* peak_window_backbuffer(PeakWindow *win, size_t *width, size_t *height); // Get the windows backbuffer. -PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); -PEAK void peak_window_present(PeakWindow *win); +PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); // Clear window to color. +PEAK void peak_window_present(PeakWindow *win); // Present window backbuffer. + +/* Play some tunes. */ +PEAK int peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata); // Device pulls interleaved s16le +PEAK void peak_audio_stop(void); // Stop audio. + +/* Time */ +PEAK uint64_t peak_get_time(void); // Get time in nanoseconds. +PEAK void peak_sleep_ns(int64_t ns); // Sleep for nanoseconds!!! + +/* File */ +PEAK int peak_file_exists(const char *path); // Does this file exist? +PEAK void *peak_file_alloc(const char *path, unsigned long *buf_size); // Allocate an entire file. + +/* Graphics API bull... */ +PEAK const char **peak_vulkan_get_extensions(uint32_t *count); // Get vulkan extensions. +PEAK int peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface); // Create a vulkan surface for a window. Needs PEAK_VULKAN. + +/* Debug your amazing code. */ +PEAK void peak_log_printf(PeakLogLevel level, const char *src, ...); // Printf with log level. +PEAK void *peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func); // Malloc for debuggin. +PEAK void peak_debug_free_impl(void *ptr, const char *file, int line, const char *func); // Free for debugging. +PEAK void *peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func); // Realloc for debugging. +PEAK void peak_debug_memory_report(void); // Report memory. #endif // PEAK_H #ifdef PEAK_IMPLEMENTATION #undef PEAK_IMPLEMENTATION +/* NOTE(vasco): Some platforms require an event queue + * while others have it built in. */ #if defined(PEAK_WIN32) || defined(PEAK_WEB) #define PEAK_Q 64 @@ -182,7 +270,8 @@ peak_q_pop(PeakQ *q, PeakEvent *ev) #include "p_emscripten.c" // #endif -/* We define PeakWindow only when we know the type of peak_window_internal_t */ +/* NOTE(vasco): We define PeakWindow only when + * we know the type of peak_window_internal_t */ struct PeakWindow { PeakWindowInternal internal; int (*tick)(struct PeakWindow *win, void *userdata); @@ -191,10 +280,12 @@ struct PeakWindow { uint32_t width; uint32_t height; uint32_t bufsize; + uint16_t *audio; // LRLRLR int running; }; +#include "p_log.c" // #include "peak.c" // #endif // PEAK_IMPLEMENTATION diff --git a/Peak/src/peak_header.h.out b/Peak/src/peak_header.h.out index 97bb0a3..f5cc83b 100644 --- a/Peak/src/peak_header.h.out +++ b/Peak/src/peak_header.h.out @@ -10,17 +10,24 @@ #define PEAK_H #define PEAK_MAJOR "0" -#define PEAK_MINOR "1" -#define PEAK_PATCH "1" +#define PEAK_MINOR "5" +#define PEAK_PATCH "2" /* CHANGE LOG * 0.0.0 - @vasco - prototyping * 0.1.0 - @vasco - linux x11 that automagically loads X11 DLL * 0.1.1 - @vasco - fixed event handling on linux * 0.1.2 - @vasco - better handling of windows, if multiple windows becomes necessary in the future - * 0.2.0 - @vasco - win32 + * 0.2.0 - @vasco - multiple windows, major-ish API changes. + * 0.3.0 - @vasco - web via emscripten + * 0.4.0 - @vasco - win32 + * 0.5.0 - @vasco - audio start/stop, s16le pull callback + * 0.5.1 - @vasco - log, file, time, vulkan extensions + * 0.5.2 - @vasco - vulkan surface from window */ +#define NANOS_PER_SEC 1000000000ull + #include #include #include @@ -73,6 +80,62 @@ #define PEAK extern #endif +typedef enum PeakLogLevel { + P_LOG_LEVEL_FATAL = 0, + P_LOG_LEVEL_ERROR, + P_LOG_LEVEL_WARN, + P_LOG_LEVEL_INFO, + P_LOG_LEVEL_DEBUG, + P_LOG_LEVEL_TRACE, + P_COUNT_LOG_LEVEL +} PeakLogLevel; + +#define P_PREFIX_LEN 7 +static const char *p_prefix[P_COUNT_LOG_LEVEL] = { + [P_LOG_LEVEL_FATAL] = "[FATAL]", + [P_LOG_LEVEL_ERROR] = "[ERROR]", + [P_LOG_LEVEL_WARN] = "[WARNI]", + [P_LOG_LEVEL_INFO] = "[INFOR]", + [P_LOG_LEVEL_DEBUG] = "[DEBUG]", + [P_LOG_LEVEL_TRACE] = "[TRACE]", +}; + +#ifndef P_LOG_WARN_ENABLED +#define P_LOG_WARN_ENABLED 1 +#endif +#ifndef P_LOG_INFO_ENABLED +#define P_LOG_INFO_ENABLED 1 +#endif +#ifndef P_LOG_DEBUG_ENABLED +#define P_LOG_DEBUG_ENABLED 0 +#endif +#ifndef P_LOG_TRACE_ENABLED +#define P_LOG_TRACE_ENABLED 0 +#endif + +#define PFATAL(message, ...) peak_log_printf(P_LOG_LEVEL_FATAL, message, ##__VA_ARGS__) +#define PERROR(message, ...) peak_log_printf(P_LOG_LEVEL_ERROR, message, ##__VA_ARGS__) +#if P_LOG_WARN_ENABLED == 1 +#define PWARN(message, ...) peak_log_printf(P_LOG_LEVEL_WARN, message, ##__VA_ARGS__) +#else +#define PWARN(message, ...) +#endif +#if P_LOG_INFO_ENABLED == 1 +#define PINFO(message, ...) peak_log_printf(P_LOG_LEVEL_INFO, message, ##__VA_ARGS__) +#else +#define PINFO(message, ...) +#endif +#if P_LOG_DEBUG_ENABLED == 1 +#define PDEBUG(message, ...) peak_log_printf(P_LOG_LEVEL_DEBUG, message, ##__VA_ARGS__) +#else +#define PDEBUG(message, ...) +#endif +#if P_LOG_TRACE_ENABLED == 1 +#define PTRACE(message, ...) peak_log_printf(P_LOG_LEVEL_TRACE, message, ##__VA_ARGS__) +#else +#define PTRACE(message, ...) +#endif + typedef enum { PEAK_KEYMOD_NONE = 0, PEAK_KEYMOD_ALT, @@ -128,22 +191,49 @@ typedef struct { typedef struct peak_window_internal_t PeakWindowInternal; typedef struct PeakWindow PeakWindow; -/* Public API */ +/* Initialize the platform. */ PEAK int peak_init(void); // Initialize platform context and load necessary DLLs. PEAK void peak_quit(void); // Close platform context. + +/* Do sexy stuff with the windows. */ PEAK PeakWindow peak_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); // Open a window. PEAK void peak_window_close(PeakWindow *window); // Close a window. PEAK void peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdata), void *userdata); // Hijacking the main loop makes life easier on platforms like web PEAK int peak_window_epoll(PeakWindow *win, PeakEvent *ev); // Poll a window for events. PEAK uint32_t* peak_window_backbuffer(PeakWindow *win, size_t *width, size_t *height); // Get the windows backbuffer. -PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); -PEAK void peak_window_present(PeakWindow *win); +PEAK void peak_window_clear(PeakWindow *win, float r, float g, float b, float a); // Clear window to color. +PEAK void peak_window_present(PeakWindow *win); // Present window backbuffer. + +/* Play some tunes. */ +PEAK int peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata); // Device pulls interleaved s16le +PEAK void peak_audio_stop(void); // Stop audio. + +/* Time */ +PEAK uint64_t peak_get_time(void); // Get time in nanoseconds. +PEAK void peak_sleep_ns(int64_t ns); // Sleep for nanoseconds!!! + +/* File */ +PEAK int peak_file_exists(const char *path); // Does this file exist? +PEAK void *peak_file_alloc(const char *path, unsigned long *buf_size); // Allocate an entire file. + +/* Graphics API bull... */ +PEAK const char **peak_vulkan_get_extensions(uint32_t *count); // Get vulkan extensions. +PEAK int peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface); // Create a vulkan surface for a window. Needs PEAK_VULKAN. + +/* Debug your amazing code. */ +PEAK void peak_log_printf(PeakLogLevel level, const char *src, ...); // Printf with log level. +PEAK void *peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func); // Malloc for debuggin. +PEAK void peak_debug_free_impl(void *ptr, const char *file, int line, const char *func); // Free for debugging. +PEAK void *peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func); // Realloc for debugging. +PEAK void peak_debug_memory_report(void); // Report memory. #endif // PEAK_H #ifdef PEAK_IMPLEMENTATION #undef PEAK_IMPLEMENTATION +/* NOTE(vasco): Some platforms require an event queue + * while others have it built in. */ #if defined(PEAK_WIN32) || defined(PEAK_WEB) #define PEAK_Q 64 @@ -174,43 +264,68 @@ peak_q_pop(PeakQ *q, PeakEvent *ev) #if defined(PEAK_WIN32) /* --- Start of p_win32.c --- */ +/* + * Win32 window, input, StretchDIBits present, and waveOut audio. + * user32.dll, gdi32.dll, and winmm.dll are loaded at runtime. + * + * * 0.4.0 - @vasco - win32 + * * 0.5.0 - @vasco - audio start/stop, s16le pull callback + */ + #ifndef WIN32_LEAN_AND_MEAN #define WIN32_LEAN_AND_MEAN #endif +/* windows.h must precede mmsystem.h */ #include +#include #include #include #include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_WIN32_KHR +#include +#endif #define PEAK_WIN32_USER32 "user32.dll" #define PEAK_WIN32_GDI32 "gdi32.dll" +#define PEAK_WIN32_WINMM "winmm.dll" #define PEAK_WIN32_CLASS "PeakWindow" #define PEAK_WIN32_PROP "Peak" +#define PEAK_AUDIO_FRAMES 256 +#define PEAK_AUDIO_BUFFERS 2 #define PEAK_USER32_API(X) \ - X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ - X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ - X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ - X(DestroyWindow, BOOL, WINAPI, (HWND)) \ - X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ - X(GetDC, HDC, WINAPI, (HWND)) \ - X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ - X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ - X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ - X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ - X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ - X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ - X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ - X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ - X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ - X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ - X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ - X(GetKeyState, SHORT, WINAPI, (int)) + X(RegisterClassExA, ATOM, WINAPI, (const WNDCLASSEXA *)) \ + X(UnregisterClassA, BOOL, WINAPI, (LPCSTR, HINSTANCE)) \ + X(CreateWindowExA, HWND, WINAPI, (DWORD, LPCSTR, LPCSTR, DWORD, int, int, int, int, HWND, HMENU, HINSTANCE, LPVOID)) \ + X(DestroyWindow, BOOL, WINAPI, (HWND)) \ + X(ShowWindow, BOOL, WINAPI, (HWND, int)) \ + X(GetDC, HDC, WINAPI, (HWND)) \ + X(ReleaseDC, int, WINAPI, (HWND, HDC)) \ + X(PeekMessageA, BOOL, WINAPI, (LPMSG, HWND, UINT, UINT, UINT)) \ + X(TranslateMessage, BOOL, WINAPI, (const MSG *)) \ + X(DispatchMessageA, LRESULT, WINAPI, (const MSG *)) \ + X(DefWindowProcA, LRESULT, WINAPI, (HWND, UINT, WPARAM, LPARAM)) \ + X(SetPropA, BOOL, WINAPI, (HWND, LPCSTR, HANDLE)) \ + X(GetPropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(RemovePropA, HANDLE, WINAPI, (HWND, LPCSTR)) \ + X(BeginPaint, HDC, WINAPI, (HWND, LPPAINTSTRUCT)) \ + X(EndPaint, BOOL, WINAPI, (HWND, const PAINTSTRUCT *)) \ + X(AdjustWindowRectEx, BOOL, WINAPI, (LPRECT, DWORD, BOOL, DWORD)) \ + X(LoadCursorA, HCURSOR, WINAPI, (HINSTANCE, LPCSTR)) \ + X(GetKeyState, SHORT, WINAPI, (int)) #define PEAK_GDI32_API(X) \ - X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + X(StretchDIBits, int, WINAPI, (HDC, int, int, int, int, int, int, int, int, const void *, const BITMAPINFO *, UINT, DWORD)) + +#define PEAK_WINMM_API(X) \ + X(waveOutOpen, MMRESULT, WINAPI, (LPHWAVEOUT, UINT, LPCWAVEFORMATEX, DWORD_PTR, DWORD_PTR, DWORD)) \ + X(waveOutClose, MMRESULT, WINAPI, (HWAVEOUT)) \ + X(waveOutPrepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutUnprepareHeader, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutWrite, MMRESULT, WINAPI, (HWAVEOUT, LPWAVEHDR, UINT)) \ + X(waveOutReset, MMRESULT, WINAPI, (HWAVEOUT)) typedef struct { #define X(name, ret, conv, args) ret (conv *name) args; @@ -224,6 +339,25 @@ typedef struct { #undef X } PeakGdi32Api; +typedef struct { +#define X(name, ret, conv, args) ret (conv *name) args; + PEAK_WINMM_API(X) +#undef X +} PeakWinmmApi; + +typedef struct { + volatile int run; + HANDLE thread; + HANDLE event; + HWAVEOUT out; + WAVEHDR hdr[PEAK_AUDIO_BUFFERS]; + int16_t *pcm[PEAK_AUDIO_BUFFERS]; + uint32_t channels; + uint32_t bytes; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + typedef struct { HMODULE user32; HMODULE gdi32; @@ -243,9 +377,28 @@ struct peak_window_internal_t { struct peak_win32_win *w; }; +static int peak_internal_user32_load(HMODULE handle); +static int peak_internal_gdi32_load(HMODULE handle); +static PeakKeyCode peak_internal_win32_key_map(WPARAM vk); +static PeakKeyMod peak_internal_win32_mod_map(void); +static int peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height); +static LRESULT CALLBACK peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam); +static int peak_platform_init(void); +static void peak_platform_quit(void); +static PeakWindowInternal peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uint32_t flags); +static void peak_platform_window_close(PeakWindowInternal *intern); +static uint32_t *peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height); +static void peak_platform_window_present(PeakWindowInternal *intern); +static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev); +static int peak_internal_winmm_load(void); +static void peak_internal_win32_audio_fill(int i); +static DWORD WINAPI peak_internal_win32_audio_thread(LPVOID arg); + static PeakWin32 peak_win32; static PeakUser32Api peak_user32; static PeakGdi32Api peak_gdi32; +static PeakWinmmApi peak_winmm; +static PeakAudio peak_audio; static int peak_internal_user32_load(HMODULE handle) @@ -279,34 +432,45 @@ peak_internal_win32_key_map(WPARAM vk) if (vk >= 'A' && vk <= 'Z') return (PeakKeyCode)(PEAK_KEY_A + (int)(vk - 'A')); switch (vk) { - case VK_UP: return PEAK_KEY_UP; - case VK_DOWN: return PEAK_KEY_DOWN; - case VK_LEFT: return PEAK_KEY_LEFT; - case VK_RIGHT: return PEAK_KEY_RIGHT; - case VK_SPACE: return PEAK_KEY_SPACE; - case VK_ESCAPE: return PEAK_KEY_ESCAPE; - case VK_RETURN: return PEAK_KEY_ENTER; - default: return PEAK_KEY_UNKNOWN; + case VK_UP: + return PEAK_KEY_UP; + case VK_DOWN: + return PEAK_KEY_DOWN; + case VK_LEFT: + return PEAK_KEY_LEFT; + case VK_RIGHT: + return PEAK_KEY_RIGHT; + case VK_SPACE: + return PEAK_KEY_SPACE; + case VK_ESCAPE: + return PEAK_KEY_ESCAPE; + case VK_RETURN: + return PEAK_KEY_ENTER; + default: + return PEAK_KEY_UNKNOWN; } } static PeakKeyMod peak_internal_win32_mod_map(void) { - if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) return PEAK_KEYMOD_CTRL; - if (peak_user32.GetKeyState(VK_MENU) & 0x8000) return PEAK_KEYMOD_ALT; - if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) return PEAK_KEYMOD_SHIFT; - if (peak_user32.GetKeyState(VK_CAPITAL) & 1) return PEAK_KEYMOD_CAPS; + if (peak_user32.GetKeyState(VK_CONTROL) & 0x8000) + return PEAK_KEYMOD_CTRL; + if (peak_user32.GetKeyState(VK_MENU) & 0x8000) + return PEAK_KEYMOD_ALT; + if (peak_user32.GetKeyState(VK_SHIFT) & 0x8000) + return PEAK_KEYMOD_SHIFT; + if (peak_user32.GetKeyState(VK_CAPITAL) & 1) + return PEAK_KEYMOD_CAPS; return (PeakKeyMod)0; } static int -peak_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) +peak_internal_win32_buffer(struct peak_win32_win *w, uint32_t width, uint32_t height) { uint32_t *buffer; - buffer = calloc((size_t)width * height, sizeof *buffer); - if (!buffer) + if (!(buffer = calloc((size_t)width * height, sizeof(*buffer)))) return 0; free(w->buffer); w->buffer = buffer; @@ -320,9 +484,10 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) { struct peak_win32_win *w; PeakEvent ev; + CREATESTRUCTA *cs; if (msg == WM_NCCREATE) { - CREATESTRUCTA *cs = (CREATESTRUCTA *)lparam; + cs = (CREATESTRUCTA *)lparam; peak_user32.SetPropA(hwnd, PEAK_WIN32_PROP, cs->lpCreateParams); } @@ -332,45 +497,46 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) switch (msg) { case WM_CLOSE: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_CLOSE; peak_q_push(&w->q, ev); return 0; case WM_SIZE: { uint32_t width, height; + if (wparam == SIZE_MINIMIZED) return 0; width = (uint32_t)LOWORD(lparam); height = (uint32_t)HIWORD(lparam); if (!width || !height || (width == w->width && height == w->height)) return 0; - if (!peak_win32_buffer(w, width, height)) + if (!peak_internal_win32_buffer(w, width, height)) return 0; - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_WINDOW_RESIZE; ev.resize.width = w->width; ev.resize.height = w->height; peak_q_push(&w->q, ev); return 0; } - case WM_KEYDOWN: - case WM_KEYUP: - case WM_SYSKEYDOWN: + case WM_KEYDOWN: /* FALLTHROUGH */ + case WM_KEYUP: /* FALLTHROUGH */ + case WM_SYSKEYDOWN: /* FALLTHROUGH */ case WM_SYSKEYUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = (msg == WM_KEYDOWN || msg == WM_SYSKEYDOWN) ? PEAK_EVENT_KEY_DOWN : PEAK_EVENT_KEY_UP; ev.key.key = peak_internal_win32_key_map(wparam); ev.key.mod = peak_internal_win32_mod_map(); peak_q_push(&w->q, ev); return 0; - case WM_MOUSEMOVE: - case WM_LBUTTONDOWN: - case WM_LBUTTONUP: - case WM_RBUTTONDOWN: - case WM_RBUTTONUP: - case WM_MBUTTONDOWN: + case WM_MOUSEMOVE: /* FALLTHROUGH */ + case WM_LBUTTONDOWN: /* FALLTHROUGH */ + case WM_LBUTTONUP: /* FALLTHROUGH */ + case WM_RBUTTONDOWN: /* FALLTHROUGH */ + case WM_RBUTTONUP: /* FALLTHROUGH */ + case WM_MBUTTONDOWN: /* FALLTHROUGH */ case WM_MBUTTONUP: - memset(&ev, 0, sizeof ev); + memset(&ev, 0, sizeof(ev)); ev.type = PEAK_EVENT_POINTER; ev.pointer.x = (float)(short)LOWORD(lparam); ev.pointer.y = (float)(short)HIWORD(lparam); @@ -391,6 +557,7 @@ peak_internal_win32_wndproc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam) return 0; case WM_PAINT: { PAINTSTRUCT ps; + peak_user32.BeginPaint(hwnd, &ps); peak_user32.EndPaint(hwnd, &ps); return 0; @@ -431,8 +598,8 @@ peak_platform_init(void) } } if (!peak_win32.class_reg) { - memset(&wc, 0, sizeof wc); - wc.cbSize = sizeof wc; + memset(&wc, 0, sizeof(wc)); + wc.cbSize = sizeof(wc); wc.style = CS_OWNDC; wc.lpfnWndProc = peak_internal_win32_wndproc; wc.hInstance = GetModuleHandleA(NULL); @@ -469,10 +636,9 @@ peak_platform_window_open(const char *name, uint32_t width, uint32_t height, uin if (!peak_user32.CreateWindowExA && !peak_platform_init()) return intern; - w = calloc(1, sizeof *w); - if (!w) + if (!(w = calloc(1, sizeof(*w)))) return intern; - if (!peak_win32_buffer(w, width, height)) { + if (!peak_internal_win32_buffer(w, width, height)) { free(w); return intern; } @@ -511,6 +677,7 @@ static void peak_platform_window_close(PeakWindowInternal *intern) { struct peak_win32_win *w; + if (!intern || !intern->w) return; w = intern->w; @@ -528,7 +695,9 @@ peak_platform_window_close(PeakWindowInternal *intern) static uint32_t * peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *height) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + + w = intern ? intern->w : NULL; if (!w) { *width = 0; *height = 0; @@ -542,13 +711,14 @@ peak_platform_window_buffer(PeakWindowInternal *intern, size_t *width, size_t *h static void peak_platform_window_present(PeakWindowInternal *intern) { - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; BITMAPINFO bmi; + w = intern ? intern->w : NULL; if (!w || !w->hwnd || !w->hdc || !w->buffer) return; - memset(&bmi, 0, sizeof bmi); + memset(&bmi, 0, sizeof(bmi)); bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER); bmi.bmiHeader.biWidth = (LONG)w->width; bmi.bmiHeader.biHeight = -(LONG)w->height; @@ -565,8 +735,9 @@ static bool peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) { MSG msg; - struct peak_win32_win *w = intern ? intern->w : NULL; + struct peak_win32_win *w; + w = intern ? intern->w : NULL; if (!w || !w->hwnd) return 0; @@ -578,6 +749,198 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) } return peak_q_pop(&w->q, ev); } + +static int +peak_internal_winmm_load(void) +{ + HMODULE handle; + + if (peak_winmm.waveOutOpen) + return 1; + if (!(handle = LoadLibraryA(PEAK_WIN32_WINMM))) { + fputs("Failed to load winmm.dll. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, conv, args) peak_winmm.name = (ret (conv *) args)(void *)GetProcAddress(handle, #name); + PEAK_WINMM_API(X) +#undef X +#define X(name, ret, conv, args) || !peak_winmm.name + if (0 PEAK_WINMM_API(X)) { + fputs("Failed to load winmm symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void +peak_internal_win32_audio_fill(int i) +{ + memset(peak_audio.pcm[i], 0, peak_audio.bytes); + if (peak_audio.fill) + peak_audio.fill(peak_audio.pcm[i], PEAK_AUDIO_FRAMES, peak_audio.userdata); + peak_winmm.waveOutWrite(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); +} + +static DWORD WINAPI +peak_internal_win32_audio_thread(LPVOID arg) +{ + int i, did; + + (void)arg; + for (;;) { + did = 0; + if (!peak_audio.run) + break; + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_DONE) { + peak_internal_win32_audio_fill(i); + did = 1; + } + } + if (did) + continue; + WaitForSingleObject(peak_audio.event, INFINITE); + ResetEvent(peak_audio.event); + } + return 0; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + WAVEFORMATEX fmt; + int i; + + if (channels > 32) + return 0; + if (!peak_internal_winmm_load()) + return 0; + + memset(&fmt, 0, sizeof(fmt)); + fmt.wFormatTag = WAVE_FORMAT_PCM; + fmt.nChannels = (WORD)channels; + fmt.nSamplesPerSec = rate; + fmt.wBitsPerSample = 16; + fmt.nBlockAlign = (WORD)(channels * 2); + fmt.nAvgBytesPerSec = rate * fmt.nBlockAlign; + + peak_audio.event = CreateEventA(NULL, TRUE, FALSE, NULL); + if (!peak_audio.event) + return 0; + if (peak_winmm.waveOutOpen(&peak_audio.out, WAVE_MAPPER, &fmt, (DWORD_PTR)peak_audio.event, 0, CALLBACK_EVENT) != MMSYSERR_NOERROR) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + fputs("Failed to open waveOut device", stderr); + return 0; + } + + peak_audio.channels = channels; + peak_audio.bytes = (uint32_t)channels * PEAK_AUDIO_FRAMES * sizeof(int16_t); + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.run = 1; + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (!(peak_audio.pcm[i] = calloc(1, peak_audio.bytes))) + goto fail; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + peak_audio.hdr[i].lpData = (LPSTR)peak_audio.pcm[i]; + peak_audio.hdr[i].dwBufferLength = peak_audio.bytes; + if (peak_winmm.waveOutPrepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)) != MMSYSERR_NOERROR) + goto fail; + peak_audio.hdr[i].dwFlags |= WHDR_DONE; + } + + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) + peak_internal_win32_audio_fill(i); + + peak_audio.thread = CreateThread(NULL, 0, peak_internal_win32_audio_thread, NULL, 0, NULL); + if (!peak_audio.thread) + goto fail; + return 1; + +fail: + peak_platform_audio_stop(); + return 0; +} + +static uint64_t +peak_platform_get_time(void) +{ + LARGE_INTEGER count, freq; + QueryPerformanceCounter(&count); + QueryPerformanceFrequency(&freq); + return (uint64_t)((count.QuadPart * 1000000000ull) / freq.QuadPart); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + Sleep((DWORD)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_win32_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *intern, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkWin32SurfaceCreateInfoKHR ci; + if (!intern || !intern->w || !intern->w->hwnd) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_WIN32_SURFACE_CREATE_INFO_KHR; + ci.hwnd = intern->w->hwnd; + ci.hinstance = GetModuleHandleA(NULL); + return vkCreateWin32SurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)intern; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + int i; + + peak_audio.run = 0; + if (peak_audio.event) + SetEvent(peak_audio.event); + if (peak_audio.thread) { + WaitForSingleObject(peak_audio.thread, INFINITE); + CloseHandle(peak_audio.thread); + peak_audio.thread = NULL; + } + if (peak_audio.out) { + peak_winmm.waveOutReset(peak_audio.out); + for (i = 0; i < PEAK_AUDIO_BUFFERS; i++) { + if (peak_audio.hdr[i].dwFlags & WHDR_PREPARED) + peak_winmm.waveOutUnprepareHeader(peak_audio.out, &peak_audio.hdr[i], sizeof(WAVEHDR)); + free(peak_audio.pcm[i]); + peak_audio.pcm[i] = NULL; + memset(&peak_audio.hdr[i], 0, sizeof(peak_audio.hdr[i])); + } + peak_winmm.waveOutClose(peak_audio.out); + peak_audio.out = NULL; + } + if (peak_audio.event) { + CloseHandle(peak_audio.event); + peak_audio.event = NULL; + } + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} /* --- End of p_win32.c --- */ #elif defined(PEAK_LINUX) /* --- Start of p_linux.c --- */ @@ -590,10 +953,24 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) #include #include #include +#include #include #include +#include +#include +#ifdef PEAK_VULKAN +#define VK_USE_PLATFORM_XLIB_KHR +#include +#endif #define PEAK_X11_LINUX "libX11.so.6" +#define PEAK_PULSE_LINUX "libpulse-simple.so.0" +#define PEAK_AUDIO_FRAMES 256 + +#define PEAK_PULSE_API(X) \ + X(pa_simple_new, void *, (const char *, const char *, int, const char *, const char *, const void *, const void *, const void *, int *)) \ + X(pa_simple_free, void, (void *)) \ + X(pa_simple_write, int, (void *, const void *, size_t, int *)) #define PEAK_X11_API(X) \ X(XOpenDisplay, Display *, (const char *)) \ @@ -619,11 +996,34 @@ typedef struct { #undef X } PeakX11Api; +typedef struct { +#define X(name, ret, args) ret (*name) args; + PEAK_PULSE_API(X) +#undef X +} PeakPulseApi; + +typedef struct { + int format; + uint32_t rate; + uint8_t channels; +} PeakPaSampleSpec; + typedef struct { Display *display; Atom wm_delete_window; } PeakLinux; +typedef struct { + volatile int run; + int thread_on; + pthread_t thread; + void *stream; + int16_t *buf; + uint32_t channels; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} PeakAudio; + struct peak_window_internal_t { Window window; GC gfx_ctx; @@ -635,6 +1035,8 @@ struct peak_window_internal_t { static PeakLinux peak_linux; static PeakX11Api peak_x11; +static PeakPulseApi peak_pulse; +static PeakAudio peak_audio; static int peak_internal_x11_load(void *handle) @@ -877,6 +1279,154 @@ peak_platform_epoll(PeakWindowInternal *w, PeakEvent *ev) } return 0; } + +static int +peak_internal_pulse_load(void) +{ + void *handle; + + if (peak_pulse.pa_simple_new) + return 1; + if (!(handle = dlopen(PEAK_PULSE_LINUX, RTLD_LOCAL | RTLD_NOW))) { + fputs("Failed to load PulseAudio library. What system are you fucking using and abusing?", stderr); + return 0; + } +#define X(name, ret, args) peak_pulse.name = (ret (*) args)dlsym(handle, #name); + PEAK_PULSE_API(X) +#undef X +#define X(name, ret, args) || !peak_pulse.name + if (0 PEAK_PULSE_API(X)) { + fputs("Failed to load PulseAudio symbols", stderr); + return 0; + } +#undef X + return 1; +} + +static void * +peak_internal_audio_thread(void *arg) +{ + size_t n; + int error; + + (void)arg; + n = (size_t)peak_audio.channels * PEAK_AUDIO_FRAMES; + while (peak_audio.run) { + memset(peak_audio.buf, 0, n * sizeof(int16_t)); + if (peak_audio.fill) + peak_audio.fill(peak_audio.buf, PEAK_AUDIO_FRAMES, peak_audio.userdata); + if (peak_pulse.pa_simple_write(peak_audio.stream, peak_audio.buf, n * sizeof(int16_t), &error) < 0) + break; + } + return NULL; +} + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + PeakPaSampleSpec ss; + int error; + + if (channels > 32) + return 0; + if (!peak_internal_pulse_load()) + return 0; + + ss.format = 3; /* PA_SAMPLE_S16LE */ + ss.rate = rate; + ss.channels = (uint8_t)channels; + peak_audio.stream = peak_pulse.pa_simple_new(NULL, "Peak", 1, NULL, "playback", &ss, NULL, NULL, &error); + if (!peak_audio.stream) { + fputs("Failed to open PulseAudio stream", stderr); + return 0; + } + if (!(peak_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.fill = fill; + peak_audio.userdata = userdata; + peak_audio.channels = channels; + peak_audio.run = 1; + if (pthread_create(&peak_audio.thread, NULL, peak_internal_audio_thread, NULL) != 0) { + peak_audio.thread_on = 0; + peak_audio.run = 0; + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + return 0; + } + peak_audio.thread_on = 1; + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + struct timespec ts; + clock_gettime(CLOCK_MONOTONIC, &ts); + return (uint64_t)ts.tv_sec * NANOS_PER_SEC + (uint64_t)ts.tv_nsec; +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + struct timespec ts; + if (ns <= 0) return; + ts.tv_sec = ns / 1000000000ll; + ts.tv_nsec = ns % 1000000000ll; + nanosleep(&ts, NULL); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + static const char *exts[] = { + "VK_KHR_surface", + "VK_KHR_xlib_surface", + }; + if (count) *count = 2; + return exts; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ +#ifdef PEAK_VULKAN + VkXlibSurfaceCreateInfoKHR ci; + if (!w || !peak_linux.display || !w->window) return 0; + memset(&ci, 0, sizeof ci); + ci.sType = VK_STRUCTURE_TYPE_XLIB_SURFACE_CREATE_INFO_KHR; + ci.dpy = peak_linux.display; + ci.window = w->window; + return vkCreateXlibSurfaceKHR((VkInstance)instance, &ci, (const VkAllocationCallbacks *)allocator, (VkSurfaceKHR *)out_surface) == VK_SUCCESS; +#else + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +#endif +} + +static void +peak_platform_audio_stop(void) +{ + if (!peak_audio.run && !peak_audio.stream) + return; + peak_audio.run = 0; + if (peak_audio.thread_on) { + pthread_join(peak_audio.thread, NULL); + peak_audio.thread_on = 0; + } + if (peak_audio.stream) { + peak_pulse.pa_simple_free(peak_audio.stream); + peak_audio.stream = NULL; + } + free(peak_audio.buf); + peak_audio.buf = NULL; + peak_audio.fill = NULL; + peak_audio.userdata = NULL; +} /* --- End of p_linux.c --- */ #elif defined(PEAK_WEB) /* --- Start of p_emscripten.c --- */ @@ -1068,10 +1618,129 @@ peak_platform_epoll(PeakWindowInternal *intern, PeakEvent *ev) struct peak_web_win *w = intern ? intern->w : NULL; return w ? peak_q_pop(&w->q, ev) : 0; } + +#define PEAK_AUDIO_FRAMES 1024 + +static struct { + int run; + uint32_t channels; + int16_t *buf; + void (*fill)(int16_t *out, size_t frames, void *userdata); + void *userdata; +} peak_web_audio; + +void EMSCRIPTEN_KEEPALIVE +peak_internal_web_audio_fill(int16_t *out, int frames) +{ + size_t n; + + if (!peak_web_audio.run || !out || frames <= 0) + return; + n = (size_t)frames * peak_web_audio.channels; + memset(out, 0, n * sizeof(int16_t)); + if (peak_web_audio.fill) + peak_web_audio.fill(out, (size_t)frames, peak_web_audio.userdata); +} + +EM_JS(int, peak_web_audio_dom_start, (int channels, int rate, int frames, uintptr_t ptr), { + var AC = window.AudioContext || window.webkitAudioContext; + var ctx, proc, i, c, heap, off, ch; + if (!AC || Module._peak_web_audio) + return 0; + ctx = new AC({ sampleRate: rate }); + if (ctx.sampleRate !== rate) { + ctx.close(); + return 0; + } + proc = ctx.createScriptProcessor(frames, 0, channels); + proc.onaudioprocess = function(e) { + Module._peak_internal_web_audio_fill(ptr, frames); + heap = Module.HEAP16; + off = ptr >> 1; + for (c = 0; c < channels; c++) { + ch = e.outputBuffer.getChannelData(c); + for (i = 0; i < frames; i++) + ch[i] = heap[off + i * channels + c] / 32768.0; + } + }; + proc.connect(ctx.destination); + ctx.resume(); + Module._peak_web_audio = { ctx: ctx, proc: proc }; + return 1; +}); + +EM_JS(void, peak_web_audio_dom_stop, (void), { + var a = Module._peak_web_audio; + if (!a) + return; + a.proc.disconnect(); + a.ctx.close(); + Module._peak_web_audio = null; +}); + +static int +peak_platform_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (channels > 32) + return 0; + if (!(peak_web_audio.buf = calloc((size_t)channels * PEAK_AUDIO_FRAMES, sizeof(int16_t)))) + return 0; + peak_web_audio.fill = fill; + peak_web_audio.userdata = userdata; + peak_web_audio.channels = channels; + peak_web_audio.run = 1; + if (!peak_web_audio_dom_start((int)channels, (int)rate, PEAK_AUDIO_FRAMES, (uintptr_t)peak_web_audio.buf)) { + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.run = 0; + peak_web_audio.fill = NULL; + return 0; + } + return 1; +} + +static uint64_t +peak_platform_get_time(void) +{ + return (uint64_t)(emscripten_get_now() * 1000000.0); +} + +static void +peak_platform_sleep_ns(int64_t ns) +{ + if (ns <= 0) return; + emscripten_sleep((unsigned)(ns / 1000000)); +} + +static const char ** +peak_platform_vulkan_get_extensions(uint32_t *count) +{ + if (count) *count = 0; + return NULL; +} + +static int +peak_platform_vulkan_create_surface(PeakWindowInternal *w, void *instance, const void *allocator, void *out_surface) +{ + (void)w; (void)instance; (void)allocator; (void)out_surface; + return 0; +} + +static void +peak_platform_audio_stop(void) +{ + peak_web_audio.run = 0; + peak_web_audio_dom_stop(); + free(peak_web_audio.buf); + peak_web_audio.buf = NULL; + peak_web_audio.fill = NULL; + peak_web_audio.userdata = NULL; +} /* --- End of p_emscripten.c --- */ #endif -/* We define PeakWindow only when we know the type of peak_window_internal_t */ +/* NOTE(vasco): We define PeakWindow only when + * we know the type of peak_window_internal_t */ struct PeakWindow { PeakWindowInternal internal; int (*tick)(struct PeakWindow *win, void *userdata); @@ -1080,11 +1749,170 @@ struct PeakWindow { uint32_t width; uint32_t height; uint32_t bufsize; + uint16_t *audio; // LRLRLR int running; }; +/* --- Start of p_log.c --- */ +/* + * Logging! + */ + +#include +#include +#include +#include + +#define PEAK_MAX_PRINTF 1024 +#define PEAK_MAX_ALLOCS 512 + +typedef struct { + void *ptr; + size_t size; + const char *file; + const char *func; + int line; +} PeakDebugMemoryInfo; + +static uint64_t peak_alloc_count = 0; +static PeakDebugMemoryInfo peak_ptr_array[PEAK_MAX_ALLOCS]; + +void +peak_log_printf(PeakLogLevel level, const char *src, ...) +{ + char out[PEAK_MAX_PRINTF]; + va_list ap; + int len; + size_t offset = P_PREFIX_LEN + 1; + + if (level < 0 || level >= P_COUNT_LOG_LEVEL) + level = P_LOG_LEVEL_ERROR; + memcpy(out, p_prefix[level], P_PREFIX_LEN); + out[P_PREFIX_LEN] = ' '; + va_start(ap, src); + len = vsnprintf(out + offset, PEAK_MAX_PRINTF - offset, src, ap); + va_end(ap); + if (len < 0) len = 0; + if (offset + (size_t)len >= PEAK_MAX_PRINTF) + len = (int)(PEAK_MAX_PRINTF - offset - 1); + out[offset + (size_t)len] = '\n'; + fwrite(out, 1, offset + (size_t)len + 1, (level <= P_LOG_LEVEL_ERROR) ? stderr : stdout); +} + +void * +peak_debug_malloc_impl(size_t size, const char *file, int line, const char *func) +{ + void *ptr = malloc(size); + printf("[ALLOC] %p (%zu bytes) -> %s:%d %s()\n", ptr, size, file, line, func); + + if (ptr) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } else { + fprintf(stderr, "[ERROR] Debug allocator tracking capacity (%d) exceeded!\n", PEAK_MAX_ALLOCS); + } + } + return ptr; +} + +void +peak_debug_free_impl(void *ptr, const char *file, int line, const char *func) +{ + printf("[FREE] %p -> %s:%d %s()\n", ptr, file, line, func); + + if (!ptr) return; + + bool found = false; + uint64_t index = 0; + + for (index = 0; index < peak_alloc_count; ++index) { + if (peak_ptr_array[index].ptr == ptr) { + found = true; + break; + } + } + + if (found) { + for (uint64_t j = index; j < peak_alloc_count - 1; ++j) { + peak_ptr_array[j] = peak_ptr_array[j + 1]; + } + peak_alloc_count--; + } else { + fprintf(stderr, "[WARNING] Attempted to free untracked/double-freed pointer %p at %s:%d %s()\n", + ptr, file, line, func); + } + + free(ptr); +} + +void * +peak_debug_realloc_impl(void *ptr, size_t size, const char *file, int line, const char *func) +{ + if (!ptr) { + return peak_debug_malloc_impl(size, file, line, func); + } + if (size == 0) { + peak_debug_free_impl(ptr, file, line, func); + return NULL; + } + + uintptr_t old_addr = (uintptr_t)ptr; + void *new_ptr = realloc(ptr, size); + printf("[REALLOC] %p -> %p (%zu bytes) -> %s:%d %s()\n", (void *)old_addr, new_ptr, size, file, line, func); + + if (new_ptr) { + bool found = false; + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + if (peak_ptr_array[i].ptr == (void *)old_addr) { + peak_ptr_array[i].ptr = new_ptr; + peak_ptr_array[i].size = size; + peak_ptr_array[i].file = file; + peak_ptr_array[i].line = line; + peak_ptr_array[i].func = func; + found = true; + break; + } + } + if (!found) { + if (peak_alloc_count < PEAK_MAX_ALLOCS) { + peak_ptr_array[peak_alloc_count++] = (PeakDebugMemoryInfo){ + .ptr = new_ptr, + .size = size, + .file = file, + .func = func, + .line = line + }; + } + } + } + return new_ptr; +} + +void +peak_debug_memory_report(void) +{ + printf("\n==================== MEMORY REPORT ====================\n"); + printf("Remaining unfreed allocations: %lu\n", (unsigned long)peak_alloc_count); + + for (uint64_t i = 0; i < peak_alloc_count; ++i) { + PeakDebugMemoryInfo *info = &peak_ptr_array[i]; + printf("[LEAK] %p (%zu bytes) allocated at %s:%d in %s()\n", + info->ptr, info->size, info->file, info->line, info->func); + } + printf("=======================================================\n"); +} +/* --- End of p_log.c --- */ /* --- Start of peak.c --- */ +#include +#include + static uint32_t * peak_window_sync(PeakWindow *win, size_t *width, size_t *height) { @@ -1107,6 +1935,7 @@ peak_init(void) void peak_quit(void) { + peak_audio_stop(); peak_platform_quit(); } @@ -1203,6 +2032,82 @@ peak_window_run(PeakWindow *win, int (*peak_tick)(PeakWindow *win, void *userdat while (win->running && win->tick(win, win->userdata)); #endif } + +int +peak_audio_start(uint32_t channels, uint32_t rate, void (*fill)(int16_t *out, size_t frames, void *userdata), void *userdata) +{ + if (!fill || !channels || !rate) + return 0; + peak_audio_stop(); + return peak_platform_audio_start(channels, rate, fill, userdata); +} + +void +peak_audio_stop(void) +{ + peak_platform_audio_stop(); +} + +uint64_t +peak_get_time(void) +{ + return peak_platform_get_time(); +} + +void +peak_sleep_ns(int64_t ns) +{ + peak_platform_sleep_ns(ns); +} + +int +peak_file_exists(const char *path) +{ + FILE *f; + if (!path) return 0; + f = fopen(path, "rb"); + if (!f) return 0; + fclose(f); + return 1; +} + +void * +peak_file_alloc(const char *path, unsigned long *buf_size) +{ + FILE *f; + long n; + void *p; + if (!path) return NULL; + f = fopen(path, "rb"); + if (!f) return NULL; + if (fseek(f, 0, SEEK_END) != 0) { fclose(f); return NULL; } + n = ftell(f); + if (n < 0) { fclose(f); return NULL; } + rewind(f); + p = malloc((size_t)n + (n == 0)); + if (!p) { fclose(f); return NULL; } + if (n && fread(p, 1, (size_t)n, f) != (size_t)n) { + free(p); + fclose(f); + return NULL; + } + fclose(f); + if (buf_size) *buf_size = (unsigned long)n; + return p; +} + +const char ** +peak_vulkan_get_extensions(uint32_t *count) +{ + return peak_platform_vulkan_get_extensions(count); +} + +int +peak_vulkan_create_surface(PeakWindow *win, void *instance, const void *allocator, void *out_surface) +{ + if (!win || !instance || !out_surface) return 0; + return peak_platform_vulkan_create_surface(&win->internal, instance, allocator, out_surface); +} /* --- End of peak.c --- */ #endif // PEAK_IMPLEMENTATION -- cgit v1.3.1