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

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 14:40:03 +01:00
parent 00f7bfc43d
commit ee4c0673bd
3 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/gdbm/examples/testgdbm.pp
View File

@ -22,7 +22,7 @@ uses sysutils,gdbm;
Var
dbf : pgdbm_file;
Key,Data : TDatum;
A,B : String;
A,B : AnsiString;
i : longint;
begin
@ -33,9 +33,9 @@ begin
begin
A:=Format('data for string %d',[i]);
B:=Format('string %d',[i]);
Data.dptr:=Pchar(A);
Data.dptr:=PAnsiChar(A);
Data.dsize:=length(A);
key.dptr:=pchar(B);
key.dptr:=PAnsiChar(B);
key.dsize:=length(B);
if gdbm_store(dbf,key,data,gdbm_insert)<>0 then
Writeln('Error inserting data')

2
packages/gdbm/examples/testgdbm2.pp
View File

@ -23,7 +23,7 @@ uses sysutils,gdbm;
Var
dbf : pgdbm_file;
A,B : String;
A,B : AnsiString;
i : longint;
begin

40
packages/gdbm/src/gdbm.pp
View File

@ -79,7 +79,7 @@ GDBM_OPT_ILLEGAL = 29;
type
TDatum = record
dptr : Pchar;
dptr : PAnsiChar;
dsize : longint;
end;
PDatum = ^TDatum;
@ -93,9 +93,9 @@ type
var
gdbm_version : Pchar;cvar; external; {name 'gdbm_version' not accepted ??}
gdbm_version : PAnsiChar;cvar; external; {name 'gdbm_version' not accepted ??}
function gdbm_open(para1:Pchar; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;cdecl;external External_library name 'gdbm_open';
function gdbm_open(para1:PAnsiChar; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;cdecl;external External_library name 'gdbm_open';
procedure gdbm_close(para1:PGDBM_FILE);cdecl;external External_library name 'gdbm_close';
function gdbm_store(para1:PGDBM_FILE; para2:TDatum; para3:TDatum; para4:longint):longint;cdecl;external External_library name 'gdbm_store';
function gdbm_fetch(para1:PGDBM_FILE; para2:TDatum):TDatum;cdecl;external External_library name 'gdbm_fetch';
@ -110,13 +110,13 @@ function gdbm_fdesc(para1:PGDBM_FILE):longint;cdecl;external External_library na
{ Easy Pascal access routines }
function gdbm_open(Const para1:string; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;
function gdbm_store(para1:PGDBM_FILE; Const para2:string; Const para3:string; para4:longint):Boolean;
function gdbm_fetch(para1:PGDBM_FILE; Const para2:string):string;
function gdbm_delete(para1:PGDBM_FILE; Const para2:string):boolean;
procedure gdbm_firstkey(para1:PGDBM_FILE; var key :string);
function gdbm_nextkey(para1:PGDBM_FILE; Const para2:string):string;
function gdbm_exists(para1:PGDBM_FILE; Const para2:string):boolean;
function gdbm_open(Const para1:AnsiString; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;
function gdbm_store(para1:PGDBM_FILE; Const para2:AnsiString; Const para3:AnsiString; para4:longint):Boolean;
function gdbm_fetch(para1:PGDBM_FILE; Const para2:AnsiString):AnsiString;
function gdbm_delete(para1:PGDBM_FILE; Const para2:AnsiString):boolean;
procedure gdbm_firstkey(para1:PGDBM_FILE; var key :AnsiString);
function gdbm_nextkey(para1:PGDBM_FILE; Const para2:AnsiString):AnsiString;
function gdbm_exists(para1:PGDBM_FILE; Const para2:AnsiString):boolean;
type
@ -124,11 +124,11 @@ type
var
gdbm_errno : gdbm_error;cvar;external{ 'gdbm_errno'};
function gdbm_strerror(para1:gdbm_error):Pchar;cdecl;external External_library name 'gdbm_strerror';
function gdbm_strerror(para1:gdbm_error):PAnsiChar;cdecl;external External_library name 'gdbm_strerror';
implementation
function gdbm_open(Const para1:string; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;
function gdbm_open(Const para1:AnsiString; para2:longint; para3:longint; para4:longint; para5:TGDBMErrorCallBack ):PGDBM_FILE;
begin
gdbm_open:=gdbm_open(@para1[1],para2,para3,para4,para5);
@ -136,7 +136,7 @@ end;
procedure cfree (P : pointer);cdecl; external 'c' name 'free';
Function DatumToString(Key : TDatum) : String;
Function DatumToString(Key : TDatum) : AnsiString;
begin
SetLength(DatumToString,Key.dsize);
@ -146,7 +146,7 @@ begin
cfree(Key.dptr);
end;
Function StringToDatum(Value : String) : TDatum;
Function StringToDatum(Value : AnsiString) : TDatum;
begin
StringToDatum.dptr:=@Value[1];
@ -154,7 +154,7 @@ begin
end;
function gdbm_store(para1:PGDBM_FILE; Const para2:string; Const para3:string; para4:longint):Boolean;
function gdbm_store(para1:PGDBM_FILE; Const para2:AnsiString; Const para3:AnsiString; para4:longint):Boolean;
Var
Data,Key : TDatum;
@ -165,31 +165,31 @@ begin
gdbm_store:=gdbm_store(para1,key,data,para4)=0;
end;
function gdbm_fetch(para1:PGDBM_FILE; Const para2:string):string;
function gdbm_fetch(para1:PGDBM_FILE; Const para2:AnsiString):AnsiString;
begin
gdbm_fetch:=DatumToString(gdbm_fetch(para1,StringToDatum(Para2)));
end;
function gdbm_delete(para1:PGDBM_FILE; Const para2:string):boolean;
function gdbm_delete(para1:PGDBM_FILE; Const para2:AnsiString):boolean;
begin
gdbm_delete:=gdbm_delete(Para1,StringToDatum(para2))=0;
end;
Procedure gdbm_firstkey(para1:PGDBM_FILE; var key : String);
Procedure gdbm_firstkey(para1:PGDBM_FILE; var key : AnsiString);
begin
Key:=DatumToString(gdbm_firstkey(para1));
end;
function gdbm_nextkey(para1:PGDBM_FILE; Const Para2 :string):string;
function gdbm_nextkey(para1:PGDBM_FILE; Const Para2 :AnsiString):AnsiString;
begin
gdbm_nextkey:=DatumToString(gdbm_nextkey(para1,StringToDatum(para2)));
end;
function gdbm_exists(para1:PGDBM_FILE; const para2:string):boolean;
function gdbm_exists(para1:PGDBM_FILE; const para2:AnsiString):boolean;
begin
gdbm_exists:=gdbm_exists(para1,StringToDatum(para2))<>0;