2
This file is part of the Free Pascal run time library.
3
Copyright (c) 1999-2000 by the Free Pascal development team
5
Processor independent part for strings and sysutils units
7
See the file COPYING.FPC, included in this distribution,
8
for details about the copyright.
10
This program is distributed in the hope that it will be useful,
11
but WITHOUT ANY WARRANTY; without even the implied warranty of
12
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
**********************************************************************}
16
function strcat(dest,source : pchar) : pchar;
19
strcopy(strend(dest),source);
23
function strlcat(dest,source : pchar;l : SizeInt) : pchar;
29
destend:=strend(dest);
32
strlcopy(destend,source,l);
36
function strmove(dest,source : pchar;l : SizeInt) : pchar;
39
move(source^,dest^,l);
44
function strpos(str1,str2 : pchar) : pchar;
50
if (str1 = nil) or (str2 = nil) then
52
p:=strscan(str1,str2^);
58
if strlcomp(p,str2,lstr2)=0 then