← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/objpas/sysutils/fina.inc
1
1
{
2
2
    *********************************************************************
3
 
    $Id: fina.inc,v 1.3 2004/05/01 11:56:25 marco Exp $
 
3
    $Id: fina.inc,v 1.5 2005/02/14 17:13:31 peter Exp $
4
4
    Copyright (C) 1997, 1998 Gertjan Schouten
5
5
 
6
6
    This program is free software; you can redistribute it and/or modify
29
29
var i: longint;
30
30
begin
31
31
  I := Length(FileName);
32
 
  while (I > 0) and not(FileName[I] in ['/', '.', '\', ':']) do 
 
32
  while (I > 0) and not(FileName[I] in ['/', '.', '\', ':']) do
33
33
    Dec(I);
34
 
  if (I = 0) or (FileName[I] <> '.') then 
 
34
  if (I = 0) or (FileName[I] <> '.') then
35
35
    I := Length(FileName)+1;
36
36
  Result := Copy(FileName, 1, I - 1) + Extension;
37
37
end;
102
102
 DoDirSeparators(S);
103
103
 {$ENDIF}
104
104
{$ifdef HasUnix}
105
 
  Result:=Unix.fexpand(S);
 
105
  Result:=fexpand(S);
106
106
{$else}
107
107
  Result:=Dos.Fexpand(S);
108
108
{$endif}
215
215
function ExcludeTrailingBackslash(Const Path: string): string;
216
216
 
217
217
begin
218
 
  Result:=ExcludeTrailingPathDelimiter(Path);   
 
218
  Result:=ExcludeTrailingPathDelimiter(Path);
219
219
end;
220
220
 
221
221
function ExcludeTrailingPathDelimiter(Const Path: string): string;
249
249
 
250
250
{
251
251
  $Log: fina.inc,v $
252
 
  Revision 1.3  2004/05/01 11:56:25  marco
253
 
   * fileno -> getfilehandle
254
 
 
255
 
  Revision 1.2  2004/05/01 11:04:34  marco
256
 
   * fileno
257
 
 
258
 
  Revision 1.1  2003/10/06 21:01:06  peter
259
 
    * moved classes unit to rtl
260
 
 
261
 
  Revision 1.10  2003/09/06 21:52:24  marco
262
 
   * commited.
263
 
 
264
 
  Revision 1.9  2003/01/10 21:02:13  marco
265
 
   * hasunix fix for beos
266
 
 
267
 
  Revision 1.8  2002/10/22 21:57:54  michael
268
 
  + Added some missing path functions
269
 
 
270
 
  Revision 1.7  2002/10/12 15:34:09  michael
271
 
  + Fixed changefileexit for long (>255) filenames
272
 
 
273
 
  Revision 1.6  2002/09/07 16:01:22  peter
274
 
    * old logs removed and tabs fixed
 
252
  Revision 1.5  2005/02/14 17:13:31  peter
 
253
    * truncate log
275
254
 
276
255
}