+ empty prototypes for the AnsiStr* multi byte functions added

rtl/objpas/sysansi.inc

@@ -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
+}

rtl/objpas/sysansih.inc

@@ -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
+}

rtl/objpas/sysutilh.inc

@@ -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

rtl/objpas/sysutils.inc

@@ -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