* embedded: cleanup of the dummy DOS unit. remove the stubs for platform-specific helpers, cleanup tabs/spaces, cleanup the copyright-message mess

rtl/embedded/dos.pp

@@ -1,16 +1,6 @@
 {
     This file is part of the Free Pascal run time library.
-    Copyright (c) 2004 by Karoly Balogh for Genesi S.a.r.l.
+    Copyright (c) 2022 by the Free Pascal Compiler development team
-
-    Heavily based on the Commodore Amiga/m68k RTL by Nils Sjoholm and
-    Carl Eric Codere
-
-    MorphOS port was done on a free Pegasos II/G4 machine
-    provided by Genesi S.a.r.l. <www.genesi.lu>
-
-    This unit is based on the MorphOS one and is adapted for Gameboy Advance
-    simply by stripping out all stuff inside funcs and procs.
-    Copyright (c) 2006 by Francesco Lombardi
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -29,8 +19,8 @@ interface
 
 type
   SearchRec = Packed Record
-	AnchorPtr : Pointer;    { Pointer to the Anchorpath structure }
+    AnchorPtr : Pointer;    { Pointer to the Anchorpath structure }
-	Fill: Array[1..15] of Byte; {future use}
+    Fill: Array[1..15] of Byte; {future use}
     {End of replacement for fill}
     Attr : BYTE;        {attribute of found file}
     Time : LongInt;     {last modify date of found file}
@@ -46,30 +36,6 @@ implementation
 
 {$I dos.inc}
 
-{******************************************************************************
-                           --- Internal routines ---
-******************************************************************************}
-
-function dosLock(const name: String; accessmode: Longint) : LongInt;
-begin
-  result := -1;
-end;
-
-function IsLeapYear(Source : Word) : Boolean;
-begin
-  result := false;
-end;
-
-function dosSetProtection(const name: string; mask:longint): Boolean;
-begin
-  result := false;
-end;
-
-function dosSetFileDate(name: string): Boolean;
-begin
-  result := false;
-end;
-
 
 {******************************************************************************
                         --- Info / Date / Time ---
@@ -80,48 +46,6 @@ begin
   result := 0;
 end;
 
-procedure NewList ();
-begin
-end;
-
-function CreateExtIO (size: Longint): integer;
-begin
-  result := -1;
-end;
-
-procedure DeleteExtIO ();
-begin
-end;
-
-function Createport(name : PChar; pri : longint): integer;
-begin
-  result := -1;
-end;
-
-procedure DeletePort ();
-begin
-end;
-
-
-function Create_Timer(theUnit : longint) : integer;
-begin
-  result := -1;
-end;
-
-Procedure Delete_Timer();
-begin
-end;
-
-function set_new_time(secs, micro : longint): longint;
-begin
-  result := -1;
-end;
-
-function get_sys_time(): longint;
-begin
-  result := -1;
-end;
-
 procedure GetDate(Var Year, Month, MDay, WDay: Word);
 begin
   Year := 0;
@@ -148,7 +72,7 @@ end;
 
 function GetMsCount: int64;
 begin
-   result:=0;
+  result := 0;
 end;
 
 {******************************************************************************
@@ -227,11 +151,6 @@ end;
                              --- Environment ---
 ******************************************************************************}
 
-function getpathstring: string;
-begin
-  result := '';
-end;
-
 
 function EnvCount: Longint;
 begin
@@ -244,35 +163,10 @@ begin
   result := '';
 end;
 
-
-
 function GetEnv(envvar : String): String;
 begin
   result := '';
 end;
 
 
-procedure AddDevice(str : String);
-begin
-end;
-
-function MakeDeviceName(str : pchar): string;
-begin
-  result := '';
-end;
-
-function IsInDeviceList(str : string): boolean;
-begin
-  result := false;
-end;
-
-procedure ReadInDevices;
-begin
-end;
-
-begin
-//  DosError:=0;
-//  numberofdevices := 0;
-//  StrOfPaths := '';
-//  ReadInDevices;
 end.