paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 08:18:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add signal function (from Silvio Clecio)

Browse Source 
git-svn-id: trunk@32798 -
This commit is contained in:
michael 2015-12-30 14:43:18 +00:00
parent de2eb17d6e
commit 3e7357064d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/libmicrohttpd/examples/cutils.pas
View File

@ -22,6 +22,14 @@ const
SEEK_END = 2;
{$IFDEF MSWINDOWS}
DELTA_EPOCH_IN_MICROSECS: culonglong = 11644473600000000;
SIGINT = 2;
SIGILL = 4;
SIGFPE = 8;
SIGSEGV = 11;
SIGTERM = 15;
SIGBREAK = 21;
SIGABRT = 22;
{$ENDIF}
type
@ -33,6 +41,7 @@ type
FILEptr = ^File;
seek_mode = longint;
open_mode = (fopenread, fopenwrite, fappendwrite);
signal_func = procedure(sig: cint); cdecl;
{$IFDEF MSWINDOWS}
function fpgettimeofday(tv: PTimeVal; tz: PTimeZone): cint;
@ -59,6 +68,7 @@ function strerror(errnum: cint): Pchar; cdecl; external LIB_NAME name 'strerror'
function strncat(a, b: Pcchar; sz: size_t): Pchar; cdecl; external LIB_NAME name 'strncat';
function strcpy(a, b: Pcchar): Pchar; cdecl; external LIB_NAME name 'strcpy';
function strncmp(a, b: Pcchar; sz: size_t): cint; cdecl; external LIB_NAME name 'strncmp';
function signal(sig: cint; func: signal_func): signal_func; cdecl; external LIB_NAME Name 'signal';
function fopen(filename: PAnsiChar; mode: open_mode): FILEptr;
procedure fclose(fp: FILEptr);