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

+ empty prototypes for the AnsiStr* multi byte functions added

Browse Source
This commit is contained in:
florian 2002-10-07 19:43:24 +00:00
parent e08206f2dc
commit cd9e34ff2b
4 changed files with 103 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
rtl/objpas/sysansi.inc Normal file
View File

@ -0,0 +1,54 @@
{
*********************************************************************
$Id$
Copyright (C) 2002 by Florian Klaempfl
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
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. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*********************************************************************
}
function AnsiCompareFileName(const S1, S2 : Ansistring) : Longint;
begin
end;
function AnsiLowerCaseFileName(const s : string) : Ansistring;
begin
end;
function AnsiUpperCaseFileName(const s : string) : Ansistring;
begin
end;
function AnsiPos(const substr,s : string) : Longint;
begin
end;
function AnsiStrPos(str,substr : PChar) : PChar;
begin
end;
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
begin
end;
function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
begin
end;
{
$Log$
Revision 1.1 2002-10-07 19:43:24 florian
+ empty prototypes for the AnsiStr* multi byte functions added
}

34
rtl/objpas/sysansih.inc Normal file
View File

@ -0,0 +1,34 @@
{
*********************************************************************
$Id$
Copyright (C) 2002 by Florian Klaempfl
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
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. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*********************************************************************
}
function AnsiCompareFileName(const S1, S2 : Ansistring) : Longint;
function AnsiLowerCaseFileName(const s : string) : Ansistring;
function AnsiUpperCaseFileName(const s : string) : Ansistring;
function AnsiPos(const substr,s : string) : Longint;
function AnsiStrPos(str,substr : PChar) : PChar;
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
{
$Log$
Revision 1.1 2002-10-07 19:43:24 florian
+ empty prototypes for the AnsiStr* multi byte functions added
}

10
rtl/objpas/sysutilh.inc
View File

@ -158,9 +158,12 @@ Type
{ Read internationalization settings }
{$i sysinth.inc}
{ Read pchar handling functions declration }
{ Read pchar handling functions declaration }
{$i syspchh.inc}
{ MCBS functions }
{$i sysansih.inc}
{ Read filename handling functions declaration }
{$i finah.inc}
@ -182,7 +185,10 @@ Type
{
$Log$
Revision 1.17 2002-09-07 16:01:22 peter
Revision 1.18 2002-10-07 19:43:24 florian
+ empty prototypes for the AnsiStr* multi byte functions added
Revision 1.17 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
Revision 1.16 2002/01/25 17:42:03 peter

8
rtl/objpas/sysutils.inc
View File

@ -66,6 +66,9 @@
{ Read pchar handling functions implementation }
{$i syspch.inc}
{ MCBS functions }
{$i sysansi.inc}
{ CPU Specific code }
{$i sysutilp.inc}
@ -371,7 +374,10 @@ end;
{
$Log$
Revision 1.11 2002-09-07 16:01:22 peter
Revision 1.12 2002-10-07 19:43:24 florian
+ empty prototypes for the AnsiStr* multi byte functions added
Revision 1.11 2002/09/07 16:01:22 peter
* old logs removed and tabs fixed
Revision 1.10 2002/07/16 13:57:39 florian