← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/objpas/sysutils/sysansih.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/objpas/sysutils/sysansih.inc
 
1
{
 
2
    *********************************************************************
 
3
    $Id: sysansih.inc,v 1.1 2003/10/06 21:01:06 peter Exp $
 
4
    Copyright (C) 2002 by Florian Klaempfl
 
5
 
 
6
    This program is free software; you can redistribute it and/or modify
 
7
    it under the terms of the GNU General Public License as published by
 
8
    the Free Software Foundation; either version 2 of the License, or
 
9
    (at your option) any later version.
 
10
 
 
11
    This program is distributed in the hope that it will be useful,
 
12
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
14
    GNU General Public License for more details.
 
15
 
 
16
    You should have received a copy of the GNU General Public License
 
17
    along with this program; if not, write to the Free Software
 
18
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
19
    *********************************************************************
 
20
}
 
21
 
 
22
function AnsiCompareFileName(const S1, S2 : Ansistring) : Longint;
 
23
function AnsiLowerCaseFileName(const s : string) : Ansistring;
 
24
function AnsiUpperCaseFileName(const s : string) : Ansistring;
 
25
function AnsiPos(const substr,s : string) : Longint;
 
26
function AnsiStrPos(str,substr : PChar) : PChar;
 
27
function AnsiStrRScan(Str : PChar;Chr : Char) : PChar;
 
28
function AnsiStrScan(Str : PChar;Chr: Char) : PChar;
 
29
 
 
30
{
 
31
  $Log: sysansih.inc,v $
 
32
  Revision 1.1  2003/10/06 21:01:06  peter
 
33
    * moved classes unit to rtl
 
34
 
 
35
  Revision 1.1  2002/10/07 19:43:24  florian
 
36
    + empty prototypes for the AnsiStr* multi byte functions added
 
37
}