paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

all the strings.h functions are in libstd.pas

Browse Source
This commit is contained in:
Kirill Kranz 2024-10-05 01:26:03 +02:00
parent fe6e7430ce
commit 987d2174a3
1 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/ps1/psy-q-sdk/libstrings.pas
View File

@ -1,38 +0,0 @@
// string functions pseudo definition header
// $PSLibId: Run-time Library Release 4.6$
{$MODE OBJFPC}
unit libstrings;
interface
const
LMAX = 256;
function strcat(destination:pchar; const source: pchar): pchar; stdcall; external;
function strncat(destination:pchar; const source, num: longint): pchar; stdcall; external;
function strcmp(str1, str2: pchar): longint; stdcall; external;
function strncmp(str1, str2: pchar; num: longint): longint; stdcall; external;
function strcpy(destination, source: pchar): pchar; stdcall; external;
function strncpy(destination, source: pchar; num: longint): pchar; stdcall; external;
function strlen(p: pchar): longint; stdcall; external;
function index(const p: pchar; num: longint): pchar; stdcall; external;
function rindex(const p: pchar; num: longint): pchar; stdcall; external;
function strchr(const str: pchar; character: longint): pchar; stdcall; external;
function strrchr(const str: pchar; character: longint): pchar; stdcall; external;
function strpbrk(const str1, str2: pchar): pchar; stdcall; external;
function strspn(const str1, str2: pchar): longint; stdcall; external;
function strcspn(const str1, str2: pchar): longint; stdcall; external;
function strtok(str1, str2: pchar): pchar; stdcall; external;
function strstr(const str1, str2: pchar): pchar; stdcall; external;
function strdup(p: pchar): pchar;
implementation
uses libstd;
function strdup(p: pchar): pchar;
begin
result:= strcpy(malloc(strlen(p) + 1), p);
end;
begin
end.