1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
{
*********************************************************************
Copyright (C) 1997, 1998 Gertjan Schouten
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.
**********************************************************************
System Utilities For Free Pascal
}
{ PChar functions }
{ Processor dependent part, shared withs strings unit }
{$ifdef FPC_USE_LIBC}
{$i cgenstr.inc}
{$endif FPC_USE_LIBC}
{$i strings.inc }
{ Read generic string functions that are not implemented for the processor }
{$i genstr.inc}
{ Processor independent part, shared with strings unit }
{$i stringsi.inc }
{ StrPas converts a PChar to a pascal string }
function StrPas(Str: PChar): string;
begin
Result:=Str;
end ;
{ StrAlloc allocates a buffer of Size + 4
the size of the allocated buffer is stored at result - 4
StrDispose should be used to destroy the buffer }
function StrAlloc(Size: cardinal): PChar;
begin
inc(size,sizeof(cardinal));
getmem(result,size);
cardinal(pointer(result)^):=size;
inc(result,sizeof(cardinal));
end;
{ Allocates a new string using StrAlloc, you need StrDispose to dispose the
string }
function strnew(p : pchar) : pchar;
var
len : longint;
begin
Result:=nil;
if (p=nil) or (p^=#0) then
exit;
len:=strlen(p)+1;
Result:=StrAlloc(Len);
if Result<>nil then
strmove(Result,p,len);
end;
{ StrPCopy copies the pascal string Source to Dest and returns Dest }
function StrPCopy(Dest: PChar; Source: string): PChar;overload;
begin
result := StrMove(Dest, PChar(Source), length(Source)+1);
end ;
{ StrPLCopy copies MaxLen or less characters from the pascal string
Source to Dest and returns Dest }
function StrPLCopy(Dest: PChar; Source: string; MaxLen: SizeUInt): PChar;overload;
var Count: SizeUInt;
begin
result := Dest;
if (Result <> Nil) and (MaxLen <> 0) then
begin
Count := Length(Source);
if Count > MaxLen then
Count := MaxLen;
StrMove(Dest, PChar(Source), Count);
result[Count] := #0; { terminate ! }
end ;
end ;
{ StrDispose clears the memory allocated with StrAlloc }
procedure StrDispose(Str: PChar);
begin
if (Str <> Nil) then
begin
dec(Str,sizeof(cardinal));
Freemem(str,cardinal(pointer(str)^));
end;
end;
{ StrBufSize returns the amount of memory allocated for pchar Str allocated with StrAlloc }
function StrBufSize(Str: PChar): SizeUInt;
begin
if Str <> Nil then
result := SizeUInt(pointer(Str - SizeOf(SizeUInt))^)-sizeof(SizeUInt)
else
result := 0;
end ;
|
