haikuprojects/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

renamed bstring.pp to _string.pp, because of naming conflicts.

Browse Source
This commit is contained in:
oscarl-2
2003-12-20 08:53:21 +00:00
parent b433dea871
commit 0568ea688a
1 changed files with 24 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
bepascal/source/bepascal/pas/src/be/support/bstring.pp → bepascal/source/bepascal/pas/src/be/support/_string.pp
View File

@@ -1,6 +1,6 @@
{ BePascal - A pascal wrapper around the BeOS API { BePascal - A pascal wrapper around the BeOS API
Copyright (C) 2002 - 2003 Eric Jourde Copyright (C) 2002-2003 Eric Jourde
Oscar Lesta Oscar Lesta
This library is free software; you can redistribute it and/or This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public modify it under the terms of the GNU Library General Public
@@ -16,7 +16,7 @@
License along with this library; if not, write to the Free License along with this library; if not, write to the Free
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
} }
unit BString; unit _String;
interface interface
@@ -30,15 +30,15 @@ type
// constructor Create(value : PChar); override; // constructor Create(value : PChar); override;
destructor Destroy; override; destructor Destroy; override;
function CountChars : integer; function CountChars : Integer;
function length : integer; function Length : Integer;
function String_pchar : PChar; function String_pchar : PChar;
// Affectation // Affectation
procedure SetTo(value : PChar; lenght : cardinal); procedure SetTo(value : PChar; _length : Cardinal);
procedure SetTo(from : TString); procedure SetTo(from : BString);
procedure SetTo(value : TString; length1 : cardinal); procedure SetTo(value : BString; _length : Cardinal);
procedure Adopt(from : TString); procedure Adopt(from : BString);
end; end;
function BString_Create(AObject : TBeObject) : TCPlusObject; function BString_Create(AObject : TBeObject) : TCPlusObject;
@@ -47,18 +47,18 @@ function BString_Create(AObject : TBeObject; value : PChar) : TCPlusObject;
cdecl; external BePascalLibName name 'BString_Create_1'; cdecl; external BePascalLibName name 'BString_Create_1';
procedure BString_Free(AObject : TCPlusObject); procedure BString_Free(AObject : TCPlusObject);
cdecl; external BePascalLibName name 'BString_Free'; cdecl; external BePascalLibName name 'BString_Free';
function BString_CountChars(AObject : TCPlusObject) : cardinal; function BString_CountChars(AObject : TCPlusObject) : Cardinal;
cdecl; external BePascalLibName name 'BString_CountChars'; cdecl; external BePascalLibName name 'BString_CountChars';
function BString_Length(AObject : TCPlusObject) : cardinal; function BString_Length(AObject : TCPlusObject) : Cardinal;
cdecl; external BePascalLibName name 'BString_Length'; cdecl; external BePascalLibName name 'BString_Length';
function BString_String(AObject : TCPlusObject) : Pchar; function BString_String(AObject : TCPlusObject) : Pchar;
cdecl; external BePascalLibName name 'BString_String'; cdecl; external BePascalLibName name 'BString_String';
procedure BString_SetTo(AObject : TCPlusObject; value : Pchar; length : cardinal); procedure BString_SetTo(AObject : TCPlusObject; value : Pchar; length : Cardinal);
cdecl; external BePascalLibName name 'BString_SetTo'; cdecl; external BePascalLibName name 'BString_SetTo';
procedure BString_SetTo_1(AObject : TCPlusObject; from : TBeObject); procedure BString_SetTo_1(AObject : TCPlusObject; from : TBeObject);
cdecl; external BePascalLibName name 'BString_SetTo_1'; cdecl; external BePascalLibName name 'BString_SetTo_1';
procedure BString_SetTo_2(AObject : TCPlusObject; value : TBeObject; length : cardinal); procedure BString_SetTo_2(AObject : TCPlusObject; value : TBeObject; length : Cardinal);
cdecl; external BePascalLibName name 'BString_SetTo_2'; cdecl; external BePascalLibName name 'BString_SetTo_2';
procedure BString_Adopt(AObject : TCPlusObject; from : TBeObject); procedure BString_Adopt(AObject : TCPlusObject; from : TBeObject);
@@ -73,20 +73,17 @@ BString &
BString_SetTo_3(BString *String, char value, BString_SetTo_3(BString *String, char value,
int32 count) int32 count)
BString & BString &
BString_CopyInto(BString *String, BString &into, BString_CopyInto(BString *String, BString &into,
int32 fromOffset, int32 fromOffset,
int32 length) int32 length)
void void
BString_CopyInto_1 BString_CopyInto_1
(BString *String, char *into, (BString *String, char *into,
int32 fromOffset, int32 fromOffset,
int32 length) int32 length)
BString & BString &
BString_Append(BString *String, const BString &value, BString_Append(BString *String, const BString &value,
int32 length) int32 length)
@@ -459,7 +456,7 @@ begin
end; end;
{ {
constructor BString.Create_1(value:PChar); constructor BString.Create_1(value : PChar);
begin begin
inherited; inherited;
CPlusObject := BString_Create_1(Self, value); CPlusObject := BString_Create_1(Self, value);
@@ -473,12 +470,12 @@ begin
inherited; inherited;
end; end;
function BString.CountChars : integer; function BString.CountChars : Integer;
begin begin
Result := BString_CountChars(CPlusObject); Result := BString_CountChars(CPlusObject);
end; end;
function BString.length : integer; function BString.Length : Integer;
begin begin
Result := BString_Length(CPlusObject); Result := BString_Length(CPlusObject);
end; end;
@@ -488,24 +485,24 @@ begin
Result := BString_String(CPlusObject); Result := BString_String(CPlusObject);
end; end;
procedure BString.SetTo(value : PChar; lenght : cardinal); procedure BString.SetTo(value : PChar; _length : Cardinal);
begin begin
BString_SetTo(CPlusObject,value,lenght); BString_SetTo(CPlusObject, value, _length);
end; end;
procedure BString.SetTo(from : TString); procedure BString.SetTo(from : BString);
begin begin
BString_SetTo_1(CPlusObject, from); BString_SetTo_1(CPlusObject, from);
end; end;
procedure BString.SetTo( value : TString; length1 : cardinal); procedure BString.SetTo(value : BString; _length : Cardinal);
begin begin
BString_SetTo_2(CPlusObject, value, length1); BString_SetTo_2(CPlusObject, value, _length);
end; end;
procedure BString.Adopt(from : TString); procedure BString.Adopt(from : BString);
begin begin
BString_Adopt(CPlusObject, from); BString_Adopt(CPlusObject, from);
end; end;
end. end.