← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/rtl/amiga/dos.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/rtl/amiga/dos.pp
122
122
{ Converts a value in seconds past 1978 to a value in AMIGA DateStamp format }
123
123
{ Taken from SWAG and modified to work with the Amiga format - CEC           }
124
124
var
125
 
  LocalDate : LongInt; 
126
 
  Done : Boolean; 
 
125
  LocalDate : LongInt;
 
126
  Done : Boolean;
127
127
  TotDays : Integer;
128
128
  Y: Word;
129
129
  H: Word;
183
183
end;
184
184
 
185
185
function dosSetFileDate(name: string; p : PDateStamp): Boolean;
186
 
var 
 
186
var
187
187
  buffer : array[0..255] of Char;
188
188
begin
189
189
  move(name[1],buffer,length(name));
448
448
  DosError:= 0;
449
449
  LastDosExitCode:=0;
450
450
  tmpPath:=PathConv(Path)+#0+ComLine+#0; // hacky... :)
451
 
    
 
451
 
452
452
  { Here we must first check if the command we wish to execute }
453
453
  { actually exists, because this is NOT handled by the        }
454
454
  { _SystemTagList call (program will abort!!)                 }
726
726
    DosError:=0;
727
727
    FTime := 0;
728
728
    Str := StrPas(filerec(f).name);
729
 
    for i:=1 to length(Str) do
730
 
     if str[i]='\' then str[i]:='/';
 
729
    DoDirSeparators(Str);
731
730
    FLock := dosLock(Str, SHARED_LOCK);
732
731
    IF FLock <> 0 then begin
733
732
        New(FInfo);
758
757
  Begin
759
758
    new(DateStamp);
760
759
    Str := StrPas(filerec(f).name);
761
 
    for i:=1 to length(Str) do
762
 
     if str[i]='\' then str[i]:='/';
 
760
    DoDirSeparators(str);
763
761
    { Check first of all, if file exists }
764
762
    FLock := dosLock(Str, SHARED_LOCK);
765
763
    IF FLock <> 0 then
791
789
    flags:=0;
792
790
    New(info);
793
791
    Str := StrPas(filerec(f).name);
794
 
    for i:=1 to length(Str) do
795
 
     if str[i]='\' then str[i]:='/';
 
792
    DoDirSeparators(str);
796
793
    { open with shared lock to check if file exists }
797
794
    MyLock:=dosLock(Str,SHARED_LOCK);
798
795
    if MyLock <> 0 then
853
850
                             --- Environment ---
854
851
******************************************************************************}
855
852
 
856
 
var 
 
853
var
857
854
  strofpaths : string;
858
855
 
859
856
function getpathstring: string;