paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 11:17:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* needed here as well to compile host

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-07 23:36:59 +02:00
parent cc6810e6e6
commit 44a0bdb82e
2 changed files with 161 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
packages/wasm-utils/src/wasm.http.shared.pas Normal file
View File

@ -0,0 +1,93 @@
{
This file is part of the Free Component Library
Webassembly HTTP API - shared constants
Copyright (c) 2024 by Michael Van Canneyt michael@freepascal.org
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit wasm.http.shared;
{$mode ObjFPC}{$H+}
interface
Const
WASMHTTP_CACHE_DEFAULT = 0;
WASMHTTP_CACHE_NO_STORE = 1;
WASMHTTP_CACHE_RELOAD = 2;
WASMHTTP_CACHE_NO_CACHE = 3;
WASMHTTP_CACHE_FORCE_CACHE = 4;
WASMHTTP_CACHE_ONLY_IF_CACHED = 5;
WASMHTTP_CREDENTIALS_SAME_ORIGIN = 0;
WASMHTTP_CREDENTIALS_OMIT = 1;
WASMHTTP_CREDENTIALS_INCLUDE = 2;
WASMHTTP_MODE_CORS = 0;
WASMHTTP_MODE_SAME_ORIGIN = 1;
WASMHTTP_MODE_NO_CORS = 2;
WASMHTTP_MODE_NAVIGATE = 3;
WASMHTTP_MODE_WEBSOCKET = 4;
WASMHTTP_PRIORITY_AUTO = 0;
WASMHTTP_PRIORITY_LOW = 1;
WASMHTTP_PRIORITY_HIGH = 2;
WASMHTTP_REDIRECT_FOLLOW = 0;
WASMHTTP_REDIRECT_ERROR = 1;
WASMHTTP_REDIRECT_MANUAL = 2;
WASMHTTP_ABORTSIGNAL_NO = 0;
WASMHTTP_ABORTSIGNAL_YES = 1;
WASMHTTP_RESULT_SUCCESS = 0;
WASMHTTP_RESULT_ERROR = -1;
WASMHTTP_RESULT_NO_URL = -2;
WASMHTTP_RESULT_INVALIDID = -3;
WASMHTTP_RESULT_INPROGRESS = -4;
WASMHTTP_RESULT_INSUFFICIENTMEM = -5;
WASMHTTP_RESPONSE_SUCCESS = 0;
WASMHTTP_RESPONSE_DEALLOCATE = 1;
WASMHTTP_RESPONSE_ERROR = -1;
Type
TWasmHTTPRequestID = Longint;
{$IFDEF PAS2JS}
TWasmPointer = Longint;
PWasmHTTPRequestID = TWasmPointer;
{$ELSE}
PWasmHTTPRequestID = ^TWasmHTTPRequestID;
{$ENDIF}
TWasmHTTPResult = Longint;
TWasmHTTPResponseResult = Longint;
TWasmHTTPResponseStatus = Longint;
TWasmHTTPResponseInfoType = Longint;
const
httpExportName = 'http';
httpFN_RequestAllocate = 'request_allocate';
httpFN_RequestExecute = 'request_execute';
httpFN_RequestDeAllocate = 'request_deallocate';
httpFN_RequestAbort = 'request_abort';
httpFN_ResponseGetStatus = 'response_get_status';
httpFN_ResponseGetStatusText = 'response_get_status_text';
httpFN_ResponseGetHeaderName = 'response_get_header_name';
httpFN_ResponseGetHeaderCount = 'response_get_header_count';
httpFN_ResponseGetHeader = 'response_get_header';
httpFN_ResponseGetBody = 'response_get_body';
httpFN_ResponseCallback = '__wasmhttp_response_callback';
implementation
end.

68
packages/wasm-utils/src/wasm.websocket.shared.pas Normal file
View File

@ -0,0 +1,68 @@
{
This file is part of the Free Component Library
Webassembly Websocket API - Definitions shared with host implementation.
Copyright (c) 2024 by Michael Van Canneyt michael@freepascal.org
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit wasm.websocket.shared;
{$mode ObjFPC}{$H+}
interface
uses
{$IFDEF FPC_DOTTEDUNITS}
System.SysUtils;
{$ELSE}
sysutils;
{$ENDIF}
Type
TWasmWebsocketResult = longint;
TWasmWebsocketID = longint;
TBuffer = longint;
TWasmWebSocketMessageType = Longint;
TWebsocketCallBackResult = Longint;
{$IFNDEF PAS2JS}
PWasmWebSocketID = ^TWasmWebsocketID;
{$ELSE}
TWasmPointer = longint;
PByte = TWasmPointer;
PWasmWebSocketID = TWasmPointer;
{$endif}
Const
WASMWS_RESULT_SUCCESS = 0;
WASMWS_RESULT_ERROR = -1;
WASMWS_RESULT_NO_URL = -2;
WASMWS_RESULT_INVALIDID = -3;
WASMWS_CALLBACK_SUCCESS = 0;
WASMWS_CALLBACK_NOHANDLER = -1;
WASMWS_CALLBACK_ERROR = -2;
WASMWS_MESSAGE_TYPE_TEXT = 0;
WASMWS_MESSAGE_TYPE_BINARY = 1;
const
websocketExportName = 'websocket';
websocketFN_Allocate = 'allocate';
websocketFN_DeAllocate = 'deallocate';
websocketFN_close = 'close';
websocketFN_send = 'send';
implementation
end.