mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 18:13:50 +02:00
46 lines
1.5 KiB
PHP
46 lines
1.5 KiB
PHP
|
|
type
|
|
Pprintf_info = ^printf_info;
|
|
printf_info = record
|
|
prec : longint;
|
|
width : longint;
|
|
spec : wchar_t;
|
|
flag0 : dword;
|
|
pad : wchar_t;
|
|
end;
|
|
|
|
printf_function = function(__stream: PIOFile; const __info: printf_info; __args: PPointer): Integer; cdecl;
|
|
printf_arginfo_function = function(const __info: printf_info; __n: size_t; var __argtypes: Integer): Integer; cdecl;
|
|
|
|
function register_printf_function(__spec:longint; __func:printf_function; __arginfo:printf_arginfo_function):longint;cdecl;external clib name 'register_printf_function';
|
|
function parse_printf_format(__fmt:Pchar; __n:size_t; __argtypes:Plongint):size_t;cdecl;external clib name 'parse_printf_format';
|
|
|
|
Const
|
|
PA_INT = 0;
|
|
PA_CHAR = 1;
|
|
PA_WCHAR = 2;
|
|
PA_STRING = 3;
|
|
PA_WSTRING = 4;
|
|
PA_POINTER = 5;
|
|
PA_FLOAT = 6;
|
|
PA_DOUBLE = 7;
|
|
PA_LAST = 8;
|
|
|
|
PA_FLAG_MASK = $ff00;
|
|
PA_FLAG_LONG_LONG = 1 shl 8;
|
|
PA_FLAG_LONG_DOUBLE = PA_FLAG_LONG_LONG;
|
|
PA_FLAG_LONG = 1 shl 9;
|
|
PA_FLAG_SHORT = 1 shl 10;
|
|
PA_FLAG_PTR = 1 shl 11;
|
|
|
|
function printf_size(__fp:PFILE; __info:Pprintf_info; __args:Ppointer):longint;cdecl;external clib name 'printf_size';
|
|
function printf_size_info(__info:Pprintf_info; __n:size_t; __argtypes:Plongint):longint;cdecl;external clib name 'printf_size_info';
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
Type
|
|
TPrintfInfo = printf_info;
|
|
PPrintfInfo = ^TPrintfInfo;
|